(defmethod inspected-parts ((class standard-class))
  (values (format nil "The class ~S." class)
          `("Name: " (:value ,(class-name class))
            (:newline)
            "Super classes: " ,@(common-seperated-spec (swank-mop:class-direct-superclasses class))
            (:newline)
            "Direct Slots: " ,@(common-seperated-spec (swank-mop:class-direct-slots class)
                                                      (lambda (slot)
                                                        `(:value ,slot :format ,(princ-to-string
                                                                                 (swank-mop:slot-definition-name slot)))))
            (:newline)
            "Effective Slots: "  ,@(if (swank-mop:class-finalized-p class)
                                    (common-seperated-spec (swank-mop:class-slots class)
                                                        (lambda (slot)
                                                          `(:value ,slot :format ,(princ-to-string (swank-mop:slot-definition-name slot)))))
                                    '("N/A (class not finalized)"))
            (:newline)
            "Documentation:" (:newline)
            ,@(when (documentation class t)
                `(,(documentation class t) (:newline)))
            "Sub classes: " ,@(common-seperated-spec (swank-mop:class-direct-subclasses class)
                                                     (lambda (sub)
                                                       `(:value ,sub :format ,(princ-to-string (class-name sub)))))
            (:newline)
            "Precedence List: " ,@(if (swank-mop:class-finalized-p class)
                                      (common-seperated-spec (swank-mop:class-precedence-list class)
                                                         (lambda (class)
                                                           `(:value ,class :format ,(princ-to-string (class-name class)))))
                                      '("N/A (class not finalized)"))
            (:newline)
            "Prototype: " ,(if (swank-mop:class-finalized-p class)
                               `(:value ,(swank-mop:class-prototype class))
                               '"N/A (class not finalized)"))))