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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Sat Jul  8 07:55:06 2006
New Revision: 16

Modified:
   cl-darcs/trunk/touching.lisp
Log:
Declare filename argument as ignored.


Modified: cl-darcs/trunk/touching.lisp
==============================================================================
--- cl-darcs/trunk/touching.lisp	(original)
+++ cl-darcs/trunk/touching.lisp	Sat Jul  8 07:55:06 2006
@@ -25,6 +25,7 @@
 
 (defmethod find-touching ((patch patch) filename)
   "This least specific method returns NIL."
+  (declare (ignore filename))
   nil)
 
 (defmethod find-touching ((patch composite-patch) filename)