[Openmcl-devel] (SETF FIND-CLASS)

Leslie P. Polzer sky at viridian-project.de
Tue May 5 04:03:47 PDT 2009

I just noticed that CCL doesn't seem to register class aliases
as types:

? (defclass foo nil nil)
? (typep 5 'foo)
? (setf (find-class 'bar) (find-class 'foo))
? (typep 5 'bar)
> Error: Unknown type specifier: BAR

But the spec (FIND-CLASS) says:

  Returns the class object named by the symbol in the environment.

And in section 4.3.7, "Integrating Types and Classes":

  Every class that has a proper name has a corresponding type
  with the same name.

This seems to be a pretty clear case to me, but I may be
convinced of the converse. :)



More information about the Openmcl-devel mailing list