5 Sep
2007
5 Sep
'07
9:50 p.m.
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