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