[rucksack-devel] sbcl compile warning

[Cyrus Harmon]

I haven't had a chance to look at this in detail yet, but I thought  
I'd pass it along first:

; file: /Users/sly/src/lisp/rucksack/rucksack/heap.lisp
; in: DEFGENERIC INITIALIZE-BLOCK
;     (DEFGENERIC RUCKSACK::INITIALIZE-BLOCK
;               (BLOCK RUCKSACK::BLOCK-SIZE RUCKSACK:HEAP)
;               (:METHOD
;                (BLOCK RUCKSACK::BLOCK-SIZE
;                  (RUCKSACK:HEAP RUCKSACK:FREE-LIST-HEAP))
;                (DECLARE (IGNORE BLOCK RUCKSACK::BLOCK-SIZE)) BLOCK))
; --> PROGN PUSH LET* LET* DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD LIST*
; --> LET* SB-INT:NAMED-LAMBDA FUNCTION CATCH BLOCK SB-C::%WITHIN- 
CLEANUP
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND- 
ARGS
; --> LET* LOCALLY SYMBOL-MACROLET BLOCK
; ==>
;   BLOCK
;
; caught STYLE-WARNING:
;   reading an ignored variable: BLOCK

; compiling (DEFMETHOD HEAP-INFO ...)

; file: /Users/sly/src/lisp/rucksack/rucksack/heap.lisp
; in: DEFMETHOD HEAP-INFO (FREE-LIST-HEAP)
;     (GETF RUCKSACK::PLIST :NR-FREE-OCTETS)
; --> BLOCK DO BLOCK LET TAGBODY RETURN-FROM PROGN
; ==>
;   SB-IMPL::DEFAULT
;
; caught WARNING:
;   This is not a NUMBER:
;     NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

Cyrus