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

BKNR Commits bknr at bknr.net
Wed Jul 30 08:42:31 UTC 2008


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

removed again print-object hack for testing - sorry for the noise
U   trunk/build.lisp

Modified: trunk/build.lisp
===================================================================
--- trunk/build.lisp	2008-07-30 08:31:31 UTC (rev 3687)
+++ trunk/build.lisp	2008-07-30 08:42:31 UTC (rev 3688)
@@ -191,11 +191,7 @@
     (zerop (nth-value 8 (5am::partition-results results)))))
 
 (defun test ()
-  (cl-gd::load-gd-glue)
-  (eval '(defmethod print-object :around ((object t) stream)
-          (handler-case
-              (call-next-method)
-            (error (c) (print-unreadable-object (object stream :type t :identity t))))))
+  (cl-gd::load-gd-glue)  
   (format t "~&;;; --- running tests~%")
   (run-tests
     #+(or)




More information about the Bknr-cvs mailing list