subtypep

[janson@ATHENA.MIT.EDU]

i am using franz-allegro common lisp: "3.1.beta.28 [DEC 3100] (8/3;8/7/89)"
the version of PCL is as supplied by them.

i have been attempting to use subtypep to determine whether two classes are
related, but it has not performed as i had expected it to.

under "Integrating Types and Classes" in the 88-002R document it says:
that (subtypep <class1> <class2>) will return t t if either <class1> is a
subclass of <class2> or they are the same class. shouldnt this mean that
under the following circumstances subtypep should by returning t ?

...
<cl> (pcl:defclass test nil nil)

NIL
<cl> (pcl:defclass subtest (test) nil)

NIL
<cl> (subtypep 'subtest 'test)

NIL
NIL
<cl> (subtypep (pcl:find-class 'subtest) (pcl:find-class 'test))

NIL
NIL

i did locate an un-exported function subclassp which does what i would like.
should i come to depend on it?

thanks.
james anderson.