[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv29002

Modified Files:
	buffer.lisp 
Log Message:
Fix for :name foo being printed before the class name in 
print-gsharp-object, reported by Brian Gruber.


--- /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/01/17 12:21:01	1.42
+++ /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/06/02 15:14:40	1.43
@@ -15,10 +15,11 @@
 (defclass gsharp-object () ())
 
 (defgeneric print-gsharp-object (obj stream)
-  (:method-combination progn :most-specific-last))
+  (:method-combination progn))
 
-(defmethod print-gsharp-object progn ((obj gsharp-object) stream)
-  (format stream "~s ~2i" (class-name (class-of obj))))
+(defmethod print-gsharp-object :around ((obj gsharp-object) stream)
+  (format stream "~s ~2i" (class-name (class-of obj)))
+  (call-next-method))
 
 ;;; (defmethod print-object :around ((obj gsharp-object) stream)
 ;;;  (format stream "[~a " (slot-value obj 'print-character))