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. OTOH, (canonicalize-type '(or foo bar)) will return '(or foo bar) the same way I will figure out that this is not a class. Thanks! -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Old Age Comes at a Bad Time.
