undefined variables float-features:single-float-{positive,negative}-infinity

[stylewarning]

the file float-features.lisp depends on constants.lisp, namely on the constants float-features:single-float-positive-infinity and float-features:single-float-negative-infinity. Since the former comes before the latter in the ASDF definition, we get warnings at compile time:

CL-USER> (asdf:load-system "float-features" :force t)
...
; file: .../float-features/float-features.lisp
; in: DEFUN FLOAT-FEATURES:BITS-SHORT-FLOAT
;     (COND
;      ((NOT (ZEROP FLOAT-FEATURES::SIG))
;       (FLOAT-FEATURES:BITS-SINGLE-FLOAT
;        (LOGIOR (ASH FLOAT-FEATURES::SIGN 31) (ASH 255 23)
;                (ASH FLOAT-FEATURES::SIG 13))))
;      ((ZEROP FLOAT-FEATURES::SIGN) FLOAT-FEATURES:SINGLE-FLOAT-POSITIVE-INFINITY)
;      (T FLOAT-FEATURES:SINGLE-FLOAT-NEGATIVE-INFINITY))
; --> IF 
; ==>
;   (THE T FLOAT-FEATURES:SINGLE-FLOAT-NEGATIVE-INFINITY)
; 
; caught WARNING:
;   undefined variable: FLOAT-FEATURES:SINGLE-FLOAT-NEGATIVE-INFINITY

; ==>
;   (IF (ZEROP FLOAT-FEATURES::SIGN)
;       FLOAT-FEATURES:SINGLE-FLOAT-POSITIVE-INFINITY
;       (THE T FLOAT-FEATURES:SINGLE-FLOAT-NEGATIVE-INFINITY))
; 
; caught WARNING:
;   undefined variable: FLOAT-FEATURES:SINGLE-FLOAT-POSITIVE-INFINITY
; 
; compilation unit finished
;   Undefined variables:
;     FLOAT-FEATURES:SINGLE-FLOAT-NEGATIVE-INFINITY FLOAT-FEATURES:SINGLE-FLOAT-POSITIVE-INFINITY
;   caught 2 WARNING conditions
;   printed 1 note
T