Author: abaine Date: Wed Jul 11 16:39:15 2007 New Revision: 87
Modified: trunk/funds/src/trees/avl.lisp Log: Typographical.
Modified: trunk/funds/src/trees/avl.lisp ============================================================================== --- trunk/funds/src/trees/avl.lisp (original) +++ trunk/funds/src/trees/avl.lisp Wed Jul 11 16:39:15 2007 @@ -17,7 +17,6 @@
(in-package :funds)
- (defun parent-height (t1 t2) (let ((h1 (tree-height t1)) (h2 (tree-height t2)))