_ variables are not declared ignored in *let

[modula t]

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>