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

[abaine at common-lisp.net]

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))