Author: abaine Date: Mon Aug 20 13:57:41 2007 New Revision: 203 Modified: trunk/funds/src/heap/heap.lisp Log: Added all-important stitch-tree specializing on heap. Modified: trunk/funds/src/heap/heap.lisp ============================================================================== --- trunk/funds/src/heap/heap.lisp (original) +++ trunk/funds/src/heap/heap.lisp Mon Aug 20 13:57:41 2007 @@ -36,3 +36,10 @@ (defmethod tree-weight ((tree heap)) (heap-weight tree)) + +(defmethod stitch-tree ((tree heap) + &key (key (bt-key tree)) (value (bt-value tree)) left right) + (make-heap :priority key + :value value + :left left + :right right))