subtypep?

[faustus@yew.berkeley.edu (Wayne A. Christopher)]

It seems that subtypep doesn't work with classes:

	(defclass foo () ())
	(defclass bar (foo) ())
	
	(subtypep 'foo 'bar)
	nil nil 
	
	(subtypep 'bar 'foo)
	nil nil 

This is Allegro CL 3.1.beta.28 [DEC 3100] (8/3;8/7/89) -- I'm not sure
which version of PCL.

Is this one of the ways PCL doesn't match CLOS?  Is there a list of
these differences somewhere?

	Wayne