[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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