[funds-cvs] r203 - trunk/funds/src/heap

[abaine at common-lisp.net]

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