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

[armedbear]

#273: compiler macro, flet, inline => Failed AVER: "NIL"
----------------------+-----------------------------------------------------
 Reporter:  mevenson  |       Owner:  ehuelsmann
     Type:  defect    |      Status:  new       
 Priority:  major     |   Milestone:  1.1.0     
Component:  compiler  |     Version:  1.1.0-dev 
 Keywords:            |  
----------------------+-----------------------------------------------------
 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]
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/273>
armedbear <http://common-lisp.net/project/armedbear>
armedbear