close Warning: Can't synchronize with repository "(default)" ("(default)" is not readable or not a Git repository.). Look in the Trac log for more information.

Opened 14 years ago

Last modified 14 years ago

#40 new defect

incorrect lexical environment for deftype

Reported by: Helmut Eller Owned by: somebody
Priority: minor Milestone:
Component: Core Version: 20a
Keywords: Cc:

Description

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]

Change History (1)

comment:1 Changed 14 years ago by Raymond Toy

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.

Note: See TracTickets for help on using tickets.