# HG changeset patch # User Steve Losh # Date 1776108218 14400 # Node ID e455c60718dbc869b8f3f665f7d09499d09c03e6 # Parent b0a70cc49faf2a410bec825699ba30023af77332 Remove profiling diff -r b0a70cc49faf -r e455c60718db test/tests.lisp --- 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")