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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Nov 22 15:52:56 2006
New Revision: 71

Modified:
   cl-darcs/trunk/diff.lisp
Log:
Diff directories recursively


Modified: cl-darcs/trunk/diff.lisp
==============================================================================
--- cl-darcs/trunk/diff.lisp	(original)
+++ cl-darcs/trunk/diff.lisp	Wed Nov 22 15:52:56 2006
@@ -108,10 +108,11 @@
 	(cond
 	  ((fad:directory-pathname-p original-pathname)
 	   (format t "~&Skipping directory ~A for now" modified-pathname)
-	   ;; 	 (let ((last-element (car (last (pathname-directory original-pathname)))))
-	   ;; 	   (unless (file-boring-p repo last-element)
-	   ;; 	     ;; We have a non-boring subdirectory.
-	   )
+	   (let ((last-element (car (last (pathname-directory original-pathname)))))
+	     (unless (file-boring-p repo last-element)
+	       ;; We have a non-boring subdirectory.
+	       (setf patches (nconc patches
+				    (diff-repo repo original-pathname modified-pathname))))))
 
 	  ((file-binary-p repo pathname-string)
 	   (setf patches (nconc patches