Changeset 3688

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

removed again print-object hack for testing - sorry for the noise

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/build.lisp

    r3687 r3688  
    192192 
    193193(defun test () 
    194   (cl-gd::load-gd-glue) 
    195   (eval '(defmethod print-object :around ((object t) stream) 
    196           (handler-case 
    197               (call-next-method) 
    198             (error (c) (print-unreadable-object (object stream :type t :identity t)))))) 
     194  (cl-gd::load-gd-glue)   
    199195  (format t "~&;;; --- running tests~%") 
    200196  (run-tests