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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Tue May 23 10:15:12 2006
New Revision: 2

Modified:
   cl-darcs/trunk/apply-patch.lisp
Log:
Remove superfluous debug output.


Modified: cl-darcs/trunk/apply-patch.lisp
==============================================================================
--- cl-darcs/trunk/apply-patch.lisp	(original)
+++ cl-darcs/trunk/apply-patch.lisp	Tue May 23 10:15:12 2006
@@ -217,16 +217,14 @@
 			     (equal (patch-filename (car patches)) filename))
 	       collect (car patches) into hunks
 	       do (setf patches (cdr patches))
-	       finally (progn
-			 (dformat "~&Found hunks: ~A"  hunks)
-			 (loop
+	       finally (loop
 			    (restart-case
 				(progn
 				  (apply-hunk-list hunks repodir)
 				  (return))
 			      (retry-hunks ()
 				  :report (lambda (stream)
-					    (format stream "Retry patch ~A to ~A" hunks filename)))))))))
+					    (format stream "Retry patch ~A to ~A" hunks filename))))))))
 	 (patch
 	  (apply-patch (car patches) repodir)
 	  (setf patches (cdr patches))))))