-(defmethod documentation ((x cl:standard-class) (doc-type (eql 't)))
- (or (values (info :type :documentation (cl:class-name x)))
- (let ((pcl-class (sb-kernel:class-pcl-class x)))
- (and pcl-class (plist-value pcl-class 'documentation)))))
-
-(defmethod documentation ((x cl:structure-class) (doc-type (eql 'type)))
- (values (info :type :documentation (cl:class-name x))))
-