Author: mhenoch Date: Wed Sep 5 18:00:40 2007 New Revision: 138 Modified: cl-darcs/trunk/pull.lisp Log: PULL: Don't pull new patches if there are none Modified: cl-darcs/trunk/pull.lisp ============================================================================== --- cl-darcs/trunk/pull.lisp (original) +++ cl-darcs/trunk/pull.lisp Wed Sep 5 18:00:40 2007 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006 Magnus Henoch +;;; Copyright (C) 2006, 2007 Magnus Henoch ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -40,6 +40,11 @@ (multiple-value-bind (common only-ours only-theirs) (get-common-and-uncommon our-patchinfo their-patchinfo) (declare (ignore common)) + + (when (null only-theirs) + (format t "~&Found no new patches.") + (return-from pull)) + (format t "~&Found these new patches:") (dolist (p only-theirs) (format t "~& - ~A" p))