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