[gsharp-cvs] CVS gsharp

[crhodes]

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