1.1--- a/lisp/lib/dat/csv.lisp	Thu Jun 20 14:57:28 2024 -0400
     1.2+++ b/lisp/lib/dat/csv.lisp	Thu Jun 20 21:45:20 2024 -0400
     1.3@@ -52,7 +52,7 @@
     1.4   (loop for l across table
     1.5         do (write-csv-line l :stream stream :delimiter delimiter))
     1.6   (write-char #\newline stream)
     1.7-  '(ok))
     1.8+  nil)
     1.9 
    1.10 (defun write-csv-file (filename table &key (external-format *csv-default-external-format*) (delimiter *csv-separator*))
    1.11   "Accept a filename and a table and output the table as csv form to the file.