Sam Steingold <[EMAIL PROTECTED]> writes:

> how do I find out whether a certain type is actually a class?
> e.g.,
> (defclass bar () ())
> (defclass foo () ())
> (defclass foo-1 (foo) ())
> 
> (canonicalize-type '(or foo foo-1))
>  ==> #<STANDARD-CLASS FOO>; or 
>  ==> FOO
> and then either FIND-CLASS or (TYPEP * 'CLASS) will tell me if I got a
> class.


* (kernel:type-specifier (kernel:specifier-type '(or foo foo-1)))

FOO
* (kernel:type-specifier (kernel:specifier-type '(or foo bar)))

(OR FOO BAR)

-- 
Regards,
Alexey Dejneka

"Alas, the spheres of truth are less transparent than those of
illusion." -- L.E.J. Brouwer

Reply via email to