[rucksack-cvs] CVS rucksack

[alemmens]

Update of /project/rucksack/cvsroot/rucksack
In directory clnet:/tmp/cvs-serv6909

Modified Files:
	done.txt heap.lisp rucksack.asd 
Log Message:
Version 0.1.12.

Use (ARRAY-DIMENSION buffer 0) instead of LENGTH in
LOAD-BUFFER, because we want to ignore the fill pointer
here.  Thanks to Sean Ross.

--- /project/rucksack/cvsroot/rucksack/done.txt	2008/01/22 15:59:24	1.12
+++ /project/rucksack/cvsroot/rucksack/done.txt	2008/01/22 17:02:07	1.13
@@ -1,3 +1,12 @@
+* 2008-01-22 - version 0.1.12
+
+- Use (ARRAY-DIMENSION buffer 0) instead of LENGTH in
+  LOAD-BUFFER, because we want to ignore the fill pointer
+  here.  Thanks to Sean Ross.
+
+
+
+
 * 2008-01-22 - version 0.1.11
 
 - Fix bug caused by LEAF-DELETE-KEY.  Reported and fixed by
--- /project/rucksack/cvsroot/rucksack/heap.lisp	2007/03/13 13:13:00	1.15
+++ /project/rucksack/cvsroot/rucksack/heap.lisp	2008/01/22 17:02:07	1.16
@@ -1,4 +1,4 @@
-;; $Id: heap.lisp,v 1.15 2007/03/13 13:13:00 alemmens Exp $
+;; $Id: heap.lisp,v 1.16 2008/01/22 17:02:07 alemmens Exp $
 
 (in-package :rucksack)
 
@@ -575,7 +575,10 @@
   (with-slots (contents)
       buffer
     ;; If the buffer isn't big enough, make a bigger buffer.
-    (when (< (length contents) nr-octets)
+    ;; We can't use LENGTH instead of ARRAY-DIMENSION, because
+    ;; LENGTH looks at the fill pointer instead of the entire
+    ;; buffer.
+    (when (< (array-dimension contents 0) nr-octets)
       (setf contents
             (make-array nr-octets
                         :adjustable t
--- /project/rucksack/cvsroot/rucksack/rucksack.asd	2008/01/22 15:59:24	1.13
+++ /project/rucksack/cvsroot/rucksack/rucksack.asd	2008/01/22 17:02:07	1.14
@@ -1,9 +1,9 @@
-;;; $Id: rucksack.asd,v 1.13 2008/01/22 15:59:24 alemmens Exp $
+;;; $Id: rucksack.asd,v 1.14 2008/01/22 17:02:07 alemmens Exp $
 
 (in-package :cl-user)
 
 (asdf:defsystem :rucksack
-  :version "0.1.11"
+  :version "0.1.12"
   :serial t
   :components ((:file "queue")
                (:file "package")