cl-darcs-cvs

Download

cl-darcs-cvs@lists.common-lisp.net

September 2007

1 participants
12 discussions

[Cl-darcs-cvs] r136 - cl-darcs/trunk
by mhenoch＠common-lisp.net 05 Sep '07

05 Sep '07

Author: mhenoch Date: Wed Sep 5 17:50:48 2007 New Revision: 136 Modified: cl-darcs/trunk/diff.lisp Log: s/:forward/:forwards/ Modified: cl-darcs/trunk/diff.lisp ============================================================================== --- cl-darcs/trunk/diff.lisp (original) +++ cl-darcs/trunk/diff.lisp Wed Sep 5 17:50:48 2007 @@ -174,7 +174,7 @@ (dolist (file files-in-original) ;; Was it touched by some "pending" patch? (multiple-value-bind (touching new-name) - (find-touching pending file :forward) + (find-touching pending file :forwards) (if touching ;; If yes, we want to record those patches, and remember the new name. (setf patches (nconc patches (patches touching)))

1 0

[Cl-darcs-cvs] r135 - cl-darcs/trunk
by mhenoch＠common-lisp.net 05 Sep '07

05 Sep '07

Author: mhenoch Date: Wed Sep 5 17:50:01 2007 New Revision: 135 Modified: cl-darcs/trunk/diff.lisp Log: Fix DIFF-REPO when there is no pending patch Modified: cl-darcs/trunk/diff.lisp ============================================================================== --- cl-darcs/trunk/diff.lisp (original) +++ cl-darcs/trunk/diff.lisp Wed Sep 5 17:50:01 2007 @@ -133,7 +133,9 @@ (pristine-wild (merge-pathnames wild pristine)) (original-wild (merge-pathnames wild original)) (modified-wild (merge-pathnames wild modified)) - (pending (read-pending repo)) + (pending (or + (read-pending repo) + (make-instance 'composite-patch :patches ()))) patches) ;; XXX: check if both directories exist

1 0