[funds-cvs] r64 - trunk/funds/src/trees

[abaine at common-lisp.net]

Author: abaine
Date: Sat Jul  7 23:29:15 2007
New Revision: 64

Modified:
   trunk/funds/src/trees/tree-remove.lisp
Log:
Added declaration to avoid compiler warnings.

Modified: trunk/funds/src/trees/tree-remove.lisp
==============================================================================
--- trunk/funds/src/trees/tree-remove.lisp	(original)
+++ trunk/funds/src/trees/tree-remove.lisp	Sat Jul  7 23:29:15 2007
@@ -20,6 +20,7 @@
 	(t (remove-side tree key :test test :order order :side :right))))
 
 (defmethod tree-remove ((tree avl-tree) key &key (test #'eql) (order #'<))
+  (declare (ignore test order))
   (let* ((temp (call-next-method))
 	 (heavy-side (if (heavier-p temp :side :left)
 			 :left