[Openmcl-devel] (SETF FIND-CLASS)

[Leslie P. Polzer]

james anderson wrote:
> http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_p.htm#proper_name

Thanks, that was the missing bit.

However:

? (defclass foo nil nil)
#<STANDARD-CLASS FOO>
? (setf (find-class 'bar) (find-class 'foo))
#<STANDARD-CLASS FOO>
? (deftype bar () 'foo)
> Error: Cannot redefine type BAR

Now is BAR registered as a type by (SETF FIND-CLASS) or not?

  Thanks,

    Leslie

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