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

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