From rneeser at common-lisp.net  Thu Jun 18 16:37:41 2009
From: rneeser at common-lisp.net (Rudy Neeser)
Date: Thu, 18 Jun 2009 12:37:41 -0400
Subject: [Cl-heap-cvs] r7 - cl-heap/trunk
Message-ID: <E1MHKcP-0004sa-JL@common-lisp.net>

Author: rneeser
Date: Thu Jun 18 12:37:41 2009
New Revision: 7

Log:
Fixed an array size bug.

Added:
   cl-heap/trunk/ChangeLog
Modified:
   cl-heap/trunk/fibonacci-heap.lisp

Added: cl-heap/trunk/ChangeLog
==============================================================================
--- (empty file)
+++ cl-heap/trunk/ChangeLog	Thu Jun 18 12:37:41 2009
@@ -0,0 +1,6 @@
+2009-06-18  Rudy Neeser  <rudy.neeser at gmail.com>
+
+	* fibonacci-heap.lisp (pop-heap): Fixed a bug which created an
+	array one size too small, causing POP-HEAP operations to
+	intermittently fail.
+

Modified: cl-heap/trunk/fibonacci-heap.lisp
==============================================================================
--- cl-heap/trunk/fibonacci-heap.lisp	(original)
+++ cl-heap/trunk/fibonacci-heap.lisp	Thu Jun 18 12:37:41 2009
@@ -260,7 +260,7 @@
 	(concatenate-node-lists root (node-child root))
 	(setf root (delete-node root))
 	(when root
-	  (let ((ranks (make-array (ceiling (log count 2))  :initial-element nil))
+	  (let ((ranks (make-array (1+ (ceiling (log count 2)))  :initial-element nil))
 		(min nil))
 	    ;; Merge all trees of the same rank.
 	    (labels ((sort-node (node)



From rneeser at common-lisp.net  Fri Jun 19 07:37:57 2009
From: rneeser at common-lisp.net (Rudy Neeser)
Date: Fri, 19 Jun 2009 03:37:57 -0400
Subject: [Cl-heap-cvs] r8 - cl-heap/tags/release-0.1.1
Message-ID: <E1MHYfd-0006xh-EG@common-lisp.net>

Author: rneeser
Date: Fri Jun 19 03:37:56 2009
New Revision: 8

Log:
Tagging release 0.1.1

Added:
   cl-heap/tags/release-0.1.1/
      - copied from r7, /cl-heap/trunk/