#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] }}}