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

[BKNR Commits]

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

when running tests override print-object, so that any object can be printed without error

U   trunk/build.lisp

Modified: trunk/build.lisp
===================================================================
--- trunk/build.lisp	2008-07-30 06:29:44 UTC (rev 3684)
+++ trunk/build.lisp	2008-07-30 08:11:13 UTC (rev 3685)
@@ -192,20 +192,23 @@
 
 (defun test ()
   (cl-gd::load-gd-glue)
+  (compile
+   (eval '(defmethod print-object :around ((object t) stream)
+           (print-unreadable-object (object stream :type t :identity t)))))
   (format t "~&;;; --- running tests~%")
   (run-tests
-   #+(or)
-   (cl-ppcre-run-no-failures-p)    
-   (cl-gd-run-no-failures-p)
-   #+(or)
-   (flexi-streams-no-failures-p)
-   (unit-test:run-all-tests)
-   (rt:do-tests)
-   (fiveam-run-no-failures-p :bknr.datastore)
-   #-darwin (fiveam-run-no-failures-p :bos.test)
-   (progn #+(or) (fiveam-run-no-failures-p :it.bese.FiveAM)
-          (warn "skipping :it.bese.FiveAM tests")
-          t)
-   (fiveam-run-no-failures-p 'json-test::json)
-   ))
+    #+(or)
+    (cl-ppcre-run-no-failures-p)    
+    (cl-gd-run-no-failures-p)
+    #+(or)
+    (flexi-streams-no-failures-p)
+    (unit-test:run-all-tests)
+    (rt:do-tests)
+    (fiveam-run-no-failures-p :bknr.datastore)
+    #-darwin (fiveam-run-no-failures-p :bos.test)
+    (progn #+(or) (fiveam-run-no-failures-p :it.bese.FiveAM)
+           (warn "skipping :it.bese.FiveAM tests")
+           t)
+    (fiveam-run-no-failures-p 'json-test::json)
+    ))