+
+;;; AMOP says these are the defaults
+(assert (equal (list (find-class 'standard-object))
+ (sb-mop:class-direct-superclasses (make-instance 'standard-class))))
+(assert (equal (list (find-class 'sb-mop:funcallable-standard-object))
+ (sb-mop:class-direct-superclasses (make-instance 'sb-mop:funcallable-standard-class))))