TIME-LIST in chain-complexes.lisp

[gheber]

; (LET ((CAT::RNTM (CAT::RESULT-RNTM CAT::RSLT)))
; (DECLARE (INTEGER CAT::RNTM))
; (WHEN (PLUSP CAT::RNTM) (PUSH CAT::RNTM CAT::TIME-LIST)))
;
; caught WARNING:
; Derived type of (SB-KERNEL:%RAW-INSTANCE-REF/SINGLE (THE RESULT RSLT) 4) is
; (VALUES SINGLE-FLOAT &OPTIONAL),
; conflicting with its asserted type
; INTEGER.
; See also:
; The SBCL Manual, Node "Handling of Types"

[gheber]

Fixed in b8b0609 .