#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