Author: mhenoch Date: Wed May 24 17:00:06 2006 New Revision: 5 Modified: cl-darcs/trunk/apply-patch.lisp Log: Remove superfluous format argument. Modified: cl-darcs/trunk/apply-patch.lisp ============================================================================== --- cl-darcs/trunk/apply-patch.lisp (original) +++ cl-darcs/trunk/apply-patch.lisp Wed May 24 17:00:06 2006 @@ -210,7 +210,7 @@ (defun apply-patch-list (patches repodir) "Apply a list of patches, attempting to optimize for adjacent hunks." - (dformat "~&Looking for adjacent hunks..." patches) + (dformat "~&Looking for adjacent hunks...") (loop while patches do (etypecase (car patches)