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

[mhenoch at common-lisp.net]

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)