[armedbear-devel] compiler macro, flet, inline => Failed AVER: "NIL"

[James M. Lawrence]

Armed Bear Common Lisp 1.2.0-dev-svn-14276
Java 1.7.0_04 Oracle Corporation

The warning and error occurs on the second COMPILE call. The AVER is
in COMPILE-VAR-REF.

(defun foo (n) n)

(define-compiler-macro foo (n)
  `(flet ((bar (k) k))
     (declare (inline bar))
     (bar ,n)))

(compile nil '(lambda () (foo 3)))
(compile nil '(lambda () (foo 3)))

; Caught STYLE-WARNING:
;   The variable K is defined but never used.

compile-var-ref general case

; Compilation unit finished
;   Caught 1 STYLE-WARNING condition

=> Failed AVER: "NIL" [Condition of type SIMPLE-ERROR]