Merge branch 'master' of github.com:froydnj/trees master
authorNathan Froyd <froydnj@gmail.com>
Wed, 23 May 2012 11:54:51 +0000 (07:54 -0400)
committerNathan Froyd <froydnj@gmail.com>
Wed, 23 May 2012 11:54:51 +0000 (07:54 -0400)
binary-trees.lisp

index bccc1b6..46351f7 100644 (file)
@@ -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)))