[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	buffer.lisp 
Log Message:
Added print-object method for buffers.


--- /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp	2008/01/01 18:43:36	1.6
+++ /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp	2008/01/03 16:19:42	1.7
@@ -690,3 +690,11 @@
 
 (defmethod (setf buffer-object) :after (object (buffer observable-buffer-mixin) offset)
   (notify-observers buffer (constantly (cons offset (1+ offset)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Print method for ease of debugging
+
+(defmethod print-object ((object buffer) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (format stream "size:~A" (size object))))