[Openmcl-devel] (SETF FIND-CLASS)

[Leslie P. Polzer]

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

? (defclass foo nil nil)
#<STANDARD-CLASS FOO>
? (typep 5 'foo)
NIL
? (setf (find-class 'bar) (find-class 'foo))
#<STANDARD-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. :)

  Leslie

-- 
http://www.linkedin.com/in/polzer