[cmucl-ticket] [cmucl] #40: incorrect lexical environment for deftype

[cmucl]

#40: incorrect lexical environment for deftype
--------------------+-------------------------------------------------------
 Reporter:  heller  |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  minor   |   Milestone:          
Component:  Core    |     Version:  20a     
 Keywords:          |  
--------------------+-------------------------------------------------------
 When compiling this:
 {{{
 (macrolet ((foo () `'fixnum))
   (deftype footype () (foo)))

 (defun bar (x)
   (etypecase x
     (footype (logand x 255))))
 }}}
 CMUCL complains that:
 {{{
 Error in kernel:%coerce-to-function:  the function foo is undefined.
    [Condition of type undefined-function]
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/40>
cmucl <http://common-lisp.net/project/cmucl>
cmucl