Author: abaine Date: Sun Aug 19 11:50:29 2007 New Revision: 154

Modified: trunk/funds/src/trees/tree-insert.lisp Log: superficiale

Modified: trunk/funds/src/trees/tree-insert.lisp ============================================================================== --- trunk/funds/src/trees/tree-insert.lisp (original) +++ trunk/funds/src/trees/tree-insert.lisp Sun Aug 19 11:50:29 2007 @@ -33,7 +33,6 @@ (declare (ignore test order)) (stitch-avl-tree :key key :value value))

- (defmethod tree-insert (tree key value &key (test #'eql) (order #'<)) (if (funcall test key (bt-key tree)) (stitch-tree tree :key key :value value :left (bt-left tree) :right (bt-right tree))