compiler macro, flet, inline => Failed AVER: "NIL"

[Mark Evenson]

James Lawrence reports in ​http://article.gmane.org/gmane.lisp.armedbear.devel/2636:

(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]

[Mark Evenson]

Working for abcl-1.3.0