Author: mhenoch Date: Wed Mar 5 04:36:07 2008 New Revision: 174 Modified: cl-darcs/trunk/equal.lisp Log: EQUAL-PATCH: add method for comparing two DIRECTORY-PATCHes Modified: cl-darcs/trunk/equal.lisp ============================================================================== --- cl-darcs/trunk/equal.lisp (original) +++ cl-darcs/trunk/equal.lisp Wed Mar 5 04:36:07 2008 @@ -66,6 +66,12 @@ (compare #'hunk-old-lines) (compare #'hunk-new-lines)))) +(defmethod equal-patch ((a directory-patch) (b directory-patch) &optional really) + "Compare two directory add/remove patches." + (declare (ignore really)) + (and (eq (type-of a) (type-of b)) + (equal (patch-directory a) (patch-directory b)))) + (defmethod equal-patch ((a token-replace-patch) (b token-replace-patch) &optional really) "Compare two token replacing patches." (declare (ignore really))