From: Nathan Froyd <froydnj@gmail.com>
Date: Wed, 23 May 2012 11:54:51 +0000 (-0400)
Subject: Merge branch 'master' of github.com:froydnj/trees
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=HEAD;hp=0b095e2a141db7a8d9afeadcfed02cf66a61ca0d;p=trees.git

Merge branch 'master' of github.com:froydnj/trees
---

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