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

[mhenoch at common-lisp.net]

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))