[armedbear-ticket] [armedbear] #291: Compiler-macros and symbol-macros

[armedbear]

#291: Compiler-macros and symbol-macros
-----------------------+----------------------------------------------------
 Reporter:  sboukarev  |       Owner:  ehuelsmann
     Type:  defect     |      Status:  new       
 Priority:  major      |   Milestone:            
Component:  compiler   |     Version:            
 Keywords:             |  
-----------------------+----------------------------------------------------
 {{{
 (define-symbol-macro +sm+ (print "hello"))

 (defun test ()
   (list +sm+ 1))

 (eval-when
     (:compile-toplevel :load-toplevel :execute)
   (define-compiler-macro test ()
     '+sm+))

 (defun bar ()
   (test))

 (bar)
 }}}

 (load (compile-file "/tmp/foo.lisp"))
 ; in (DEFUN BAR ...)

 ; Caught STYLE-WARNING:
 ;   Undefined variable +SM+ assumed special


 ; Compilation unit finished
 ;   Caught 1 STYLE-WARNING condition

 Error loading /tmp/foo.abcl at line 13 (offset 536)
 #<THREAD "interpreter" {5BDCD49D}>: Debugger invoked on condition of type
 UNBOUND-VARIABLE
   The variable +SM+ is unbound

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