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

[mhenoch at common-lisp.net]

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