From f70b3a35d7805b8cd6a3fb7f68eab04155bb7b1a Mon Sep 17 00:00:00 2001
From: Nathan Bird <nathan@acceleration.net>
Date: Mon, 25 Jan 2010 17:44:12 -0500
Subject: [PATCH] Print the error in a useful format.

---
 tests/datasets.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.34.1