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)