_ variables are not declared ignored in *let
Issue #2
new
It looks like variables with the name _ are not declared as ignored in the *let
macro.
CL-USER> (ql:quickload :defstar)
To load "defstar":
Load 1 ASDF system:
defstar
; Loading "defstar"
(:DEFSTAR)
CL-USER> (use-package :defstar)
T
CL-USER> (*let ((_ 1) (foo 2)) (print foo))
; in: *LET ((_ 1) (FOO 2))
; (LET* ((_ 1) (FOO 2))
; (PRINT FOO))
;
; caught STYLE-WARNING:
; The variable _ is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
2
2
CL-USER> (macroexpand '(*let ((_ 1) (foo 2)) (print foo)))
(LET* ((_ 1) (FOO 2))
(PRINT FOO))
T
CL-USER>