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