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