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