[bknr-cvs] ksprotte changed trunk/build.lisp

[BKNR Commits]

Revision: 3687
Author: ksprotte
URL: http://bknr.net/trac/changeset/3687

again a commit to avoid printer errors when testing

U   trunk/build.lisp

Modified: trunk/build.lisp
===================================================================
--- trunk/build.lisp	2008-07-30 08:20:42 UTC (rev 3686)
+++ trunk/build.lisp	2008-07-30 08:31:31 UTC (rev 3687)
@@ -193,7 +193,9 @@
 (defun test ()
   (cl-gd::load-gd-glue)
   (eval '(defmethod print-object :around ((object t) stream)
-          (print-unreadable-object (object stream :type t :identity t))))
+          (handler-case
+              (call-next-method)
+            (error (c) (print-unreadable-object (object stream :type t :identity t))))))
   (format t "~&;;; --- running tests~%")
   (run-tests
     #+(or)