[Openmcl-devel] (SETF FIND-CLASS)
Leslie P. Polzer
sky at viridian-project.de
Tue May 5 08:15:46 EDT 2009
james anderson wrote:
Thanks, that was the missing bit.
? (defclass foo nil nil)
? (setf (find-class 'bar) (find-class 'foo))
? (deftype bar () 'foo)
> Error: Cannot redefine type BAR
Now is BAR registered as a type by (SETF FIND-CLASS) or not?
More information about the Openmcl-devel