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