Print the error in a useful format.

[clsql.git] / tests / datasets.lisp

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index 114deaccccafe2a0becbba14dbe05d06515c4946..c3c17b592cf9abdd90149e77a9cc7f5a89631ec8 100644 (file)
--- 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)