X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=binary-trees.lisp;fp=binary-trees.lisp;h=46351f78b6b29782aac100f0b80f5e66a47aa018;hb=7b06048af0248c4302088c758208276f9faf2beb;hp=bccc1b6bc12df421ace073e6af9eac9d3ed01e97;hpb=0b095e2a141db7a8d9afeadcfed02cf66a61ca0d;p=trees.git

diff --git a/binary-trees.lisp b/binary-trees.lisp
index bccc1b6..46351f7 100644
--- a/binary-trees.lisp
+++ b/binary-trees.lisp
@@ -57,7 +57,7 @@
       (let ((node-key (funcall key (datum node))))
         (cond
           ((funcall test node-key item-key)
-           (return-from find-insertion-point (values node direction-stack item-key)))
+           (return-from find-insertion-point (values node direction-stack node-key)))
           ((funcall pred item-key node-key)
            (push (cons node 'left) direction-stack)
            (setf node (left node)))