From: Nathan Bird <nathan@acceleration.net>
Date: Mon, 25 Jan 2010 22:44:12 +0000 (-0500)
Subject: Print the error in a useful format.
X-Git-Tag: v4.3.3~19
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f70b3a35d7805b8cd6a3fb7f68eab04155bb7b1a

Print the error in a useful format.
---

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)