incorrect lexical environment for deftype

[heller]

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]

[rtoy]

I can reproduce this with the current CVS too.

I do not understand why this fails. If you put the macrolet in a file and the defun in another and compile (and load) them, everything works.