From cmucl-devel at common-lisp.net  Mon May 31 16:18:01 2010
From: cmucl-devel at common-lisp.net (cmucl)
Date: Mon, 31 May 2010 16:18:01 -0000
Subject: [cmucl-ticket] [cmucl] #40: incorrect lexical environment for
	deftype
Message-ID: <054.90a0725d7f800385882901fe8784f690@common-lisp.net>

#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