X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fdatasets.lisp;h=c3c17b592cf9abdd90149e77a9cc7f5a89631ec8;hb=eb72a5a31260db5acacae85b4e9adbf4c959718d;hp=114deaccccafe2a0becbba14dbe05d06515c4946;hpb=4f42e6bf168107ce0ffd9ed0ca0316d00301b11d;p=clsql.git

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index 114deac..c3c17b5 100644
--- a/tests/datasets.lisp
+++ b/tests/datasets.lisp
@@ -20,7 +20,7 @@ should we debug (T) or just print and quit.")
   (when (and *dataset-debug-on-error*
 	     *debugger-hook*)
     (invoke-debugger e))
-  (print e *error-output*)
+  (princ e *error-output*)
   (throw 'quit-dataset e))
 
 (defmacro def-dataset (name &body body)