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