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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Aug 24 13:01:39 2007
New Revision: 129

Modified:
   cl-darcs/trunk/touching.lisp
Log:
Make FIND-TOUCHING for COMPOSITE-PATCH return two values.


Modified: cl-darcs/trunk/touching.lisp
==============================================================================
--- cl-darcs/trunk/touching.lisp	(original)
+++ cl-darcs/trunk/touching.lisp	Fri Aug 24 13:01:39 2007
@@ -54,7 +54,7 @@
 	  (when (null filename)
 	    (return)))))
     (when touching-patches
-      (make-instance 'composite-patch :patches (nreverse touching-patches)))))
+      (values (make-instance 'composite-patch :patches (nreverse touching-patches)) filename))))
 
 (defmethod find-touching :around ((patch file-patch) filename direction)
   ;; File patches touch a single file, so we can ignore them if they