e455c60718db default tip

Remove profiling
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 13 Apr 2026 15:23:38 -0400
parents b0a70cc49faf
children (none)
branches/tags default tip
files test/tests.lisp

Changes

--- a/test/tests.lisp	Mon Apr 13 15:20:35 2026 -0400
+++ b/test/tests.lisp	Mon Apr 13 15:23:38 2026 -0400
@@ -271,17 +271,16 @@
 
 
 (defun read-file/conserve ()
-  (losh:profile
-    (with-open-file (s "test/data/large-conserve.csv")
-      (if *verify-large-file-reads*
-        (loop
-          :for original :in *data*
-          :for row = (conserve:read-row s nil :eof)
-          :until (eql :eof row)
-          :do (assert (equal original row)))
-        (loop
-          :for row = (conserve:read-row s nil :eof)
-          :until (eql :eof row))))))
+  (with-open-file (s "test/data/large-conserve.csv")
+    (if *verify-large-file-reads*
+      (loop
+        :for original :in *data*
+        :for row = (conserve:read-row s nil :eof)
+        :until (eql :eof row)
+        :do (assert (equal original row)))
+      (loop
+        :for row = (conserve:read-row s nil :eof)
+        :until (eql :eof row)))))
 
 (defun read-file/fare-csv ()
   (with-open-file (s "test/data/large-fare-csv.csv")