Inside let forms

[digikar99]

The following does not work - as in a is captured from the global environment. This is unexpected behaviour.

LISP-UNIT> (let ((a 4)) (define-test test (assert-equalp a 4)))
; in: LET ((A 4))
;     (LET ((LISP-UNIT::A 4))
;       (LISP-UNIT:DEFINE-TEST LISP-UNIT::TEST
;         (LISP-UNIT:ASSERT-EQUALP LISP-UNIT::A 4)))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
TEST

This seems to be a related issue.