Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv29581/Drei

Modified Files: drei.lisp Log Message: Added simple print-object method for Drei instances.

--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2008/01/13 10:33:09 1.26 +++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2008/01/16 21:30:04 1.27 @@ -343,6 +343,10 @@ (defmethod esa-current-window ((drei drei)) drei)

+(defmethod print-object ((object drei) stream) + (print-unreadable-object (object stream :type t :identity t) + (format stream "~A" (type-of (view object))))) + ;; Main redisplay entry point. (defgeneric display-drei (drei) (:documentation "`Drei' must be an object of type `drei' and