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

Modified Files: buffer.lisp Log Message: Make things a bit less likely to crash: only do the full readable printing if *print-circle* is true; otherwise just do a normal print-unreadable-object (which will handle the *print-readably* correct behaviour for us).

--- /project/gsharp/cvsroot/gsharp/buffer.lisp 2007/06/02 15:14:40 1.43 +++ /project/gsharp/cvsroot/gsharp/buffer.lisp 2007/06/06 13:16:02 1.44 @@ -27,8 +27,10 @@ ;;; (format stream "] "))

(defmethod print-object ((obj gsharp-object) stream) - (pprint-logical-block (stream nil :prefix "[" :suffix "]") - (print-gsharp-object obj stream))) + (if *print-circle* + (pprint-logical-block (stream nil :prefix "[" :suffix "]") + (print-gsharp-object obj stream)) + (print-unreadable-object (obj stream :type t :identity t))))

(defgeneric name (obj))