e455c60718db default tip
Remove profiling
| 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")