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

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