[Cl-darcs-cvs] r118 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Apr 18 17:56:44 2007
New Revision: 118

Modified:
   cl-darcs/trunk/patchinfo.lisp
Log:
Use PRINT-UNREADABLE-OBJECT in PRINT-OBJECT of PATCHINFO.


Modified: cl-darcs/trunk/patchinfo.lisp
==============================================================================
--- cl-darcs/trunk/patchinfo.lisp	(original)
+++ cl-darcs/trunk/patchinfo.lisp	Wed Apr 18 17:56:44 2007
@@ -118,8 +118,7 @@
     copy))
 
 (defmethod print-object ((patchinfo patchinfo) stream)
-  (if *print-readably*
-      (call-next-method)
-      (format stream "~A ~A (~A)" (patchinfo-date patchinfo)
-	      (patchinfo-name patchinfo)
-	      (patchinfo-author patchinfo))))
+  (print-unreadable-object (patchinfo stream)
+    (format stream "~A ~A (~A)" (patchinfo-date patchinfo)
+	    (patchinfo-name patchinfo)
+	    (patchinfo-author patchinfo))))