From mhenoch at common-lisp.net Wed Apr 18 21:56:45 2007 From: mhenoch at common-lisp.net (mhenoch at common-lisp.net) Date: Wed, 18 Apr 2007 17:56:45 -0400 (EDT) Subject: [Cl-darcs-cvs] r118 - cl-darcs/trunk Message-ID: <20070418215645.94E60111CD@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))))