Changeset 3687

Show
Ignore:
Timestamp:
07/30/08 10:31:31 (4 months ago)
Author:
ksprotte
Message:

again a commit to avoid printer errors when testing

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/build.lisp

    r3686 r3687  
    194194  (cl-gd::load-gd-glue) 
    195195  (eval '(defmethod print-object :around ((object t) stream) 
    196           (print-unreadable-object (object stream :type t :identity t)))) 
     196          (handler-case 
     197              (call-next-method) 
     198            (error (c) (print-unreadable-object (object stream :type t :identity t)))))) 
    197199  (format t "~&;;; --- running tests~%") 
    198200  (run-tests