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))