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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Mar 15 22:22:39 2007
New Revision: 115

Modified:
   cl-darcs/trunk/revert.lisp
Log:
Only print "Reapplying" when actually reapplying something


Modified: cl-darcs/trunk/revert.lisp
==============================================================================
--- cl-darcs/trunk/revert.lisp	(original)
+++ cl-darcs/trunk/revert.lisp	Thu Mar 15 22:22:39 2007
@@ -45,10 +45,11 @@
       (princ #\.)
       (force-output))
 
-    ;; Then reapply all patches we want to keep
-    (format t "~&Reapplying")
-    (dolist (patch patches-to-keep)
-      (apply-patch patch repo)
-      (princ #\.)
-      (force-output))))
+    (when patches-to-keep
+      ;; Then reapply all patches we want to keep
+      (format t "~&Reapplying")
+      (dolist (patch patches-to-keep)
+	(apply-patch patch repo)
+	(princ #\.)
+	(force-output)))))