[rucksack-cvs] CVS rucksack

[alemmens]

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

Modified Files:
	done.txt heap.lisp rucksack.asd 
Log Message:
Version 0.1.7 - Get rid of two SBCL compiler warnings. (Reported by Cyrus Harmon.)


--- /project/rucksack/cvsroot/rucksack/done.txt	2007/01/22 10:23:14	1.7
+++ /project/rucksack/cvsroot/rucksack/done.txt	2007/01/22 10:55:45	1.8
@@ -1,3 +1,8 @@
+* 2007-01-22 - version 0.1.7
+
+- Get rid of two SBCL compiler warnings. (Reported by Cyrus Harmon.)
+
+
 * 2007-01-21 - version 0.1.6
 
 - Added serializing/deserializing of structures.  Only works on SBCL.
@@ -6,7 +11,7 @@
 
 * 2006-11-30
 
-- FLET MAP-INDEXES should be LABELS MAP-INDEXES (thanks to Cyrus Harmon)
+- FLET MAP-INDEXES should be LABELS MAP-INDEXES (thanks to Cyrus Harmon).
 
 - The :EQUAL parameter for MAP-INDEX-DATA wasn't handled correctly
   for indexes with non-unique keys (reported by Cyrus Harmon).
--- /project/rucksack/cvsroot/rucksack/heap.lisp	2007/01/20 18:17:55	1.13
+++ /project/rucksack/cvsroot/rucksack/heap.lisp	2007/01/22 10:55:46	1.14
@@ -1,4 +1,4 @@
-;; $Id: heap.lisp,v 1.13 2007/01/20 18:17:55 alemmens Exp $
+;; $Id: heap.lisp,v 1.14 2007/01/22 10:55:46 alemmens Exp $
 
 (in-package :rucksack)
 
@@ -405,7 +405,7 @@
   ;; the block that distinguishes free blocks from occupied blocks.
   (:method (block block-size (heap free-list-heap))
    ;; Default: do nothing
-   (declare (ignore block block-size))
+   (declare (ignore block-size))
    block))
 
 ;;
@@ -420,7 +420,7 @@
                      unless (free-list-empty-p size-class heap)
                      collect (free-list-info size-class heap)))
          (total (loop for plist in info
-                      sum (getf plist :nr-free-octets))))
+                      sum (or (getf plist :nr-free-octets) 0))))
     (values total info)))
 
 
--- /project/rucksack/cvsroot/rucksack/rucksack.asd	2007/01/22 10:23:14	1.8
+++ /project/rucksack/cvsroot/rucksack/rucksack.asd	2007/01/22 10:55:46	1.9
@@ -1,9 +1,9 @@
-;;; $Id: rucksack.asd,v 1.8 2007/01/22 10:23:14 alemmens Exp $
+;;; $Id: rucksack.asd,v 1.9 2007/01/22 10:55:46 alemmens Exp $
 
 (in-package :cl-user)
 
 (asdf:defsystem :rucksack
-  :version "0.1.6"
+  :version "0.1.7"
   :serial t
   :components ((:file "queue")
                (:file "package")