[cmucl] #96: incorrect macroexpansion environment for defconstant

[cmucl]

#96: incorrect macroexpansion environment for defconstant
--------------------+-------------------------------------------------------
 Reporter:  heller  |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  2014-03 
 Keywords:          |  
--------------------+-------------------------------------------------------
 This example can't be compiled:
 {{{
 (macrolet ((foo (x) x))
   (defconstant +foo+ (foo 123)))
 }}}
 it produces this error:
 {{{
 Error in KERNEL:%COERCE-TO-FUNCTION:  the function FOO is undefined.
    [Condition of type UNDEFINED-FUNCTION]
 }}}
 This might be related to ticket #40.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/96>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.