Author: mhenoch Date: Tue Jan 8 13:05:09 2008 New Revision: 151 Modified: cl-darcs/trunk/equal.lisp Log: Make EQUAL-PATCH work for ADD-FILE-PATCH and RM-FILE-PATCH Modified: cl-darcs/trunk/equal.lisp ============================================================================== --- cl-darcs/trunk/equal.lisp (original) +++ cl-darcs/trunk/equal.lisp Tue Jan 8 13:05:09 2008 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006 Magnus Henoch +;;; Copyright (C) 2006, 2008 Magnus Henoch ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -47,6 +47,14 @@ (equal (patch-filename a) (patch-filename b))) (call-next-method))) +(defmethod equal-patch ((a file-patch) (b file-patch) &optional really) + "Compare two simple file patches. +If the :around method proceeds to call us, and there is no more specific +method, then we have two ADD-FILE-PATCHes or RM-FILE-PATCHES, which are +equal." + (declare (ignore really)) + t) + (defmethod equal-patch ((a hunk-patch) (b hunk-patch) &optional really) "Compare two hunk patches." (declare (ignore really))