
19 Aug
2007
19 Aug
'07
3:50 p.m.
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))