(defmethod inspected-description ((object standard-object))
(format nil "~W" (class-of object)))
-(defmethod inspected-description ((object sb-kernel:funcallable-instance))
- (format nil "a funcallable-instance of type ~S" (type-of object)))
-
(defmethod inspected-description ((object function))
(format nil "~S" object) nil)
(let ((components (inspected-standard-object-parts object)))
(list components (length components) :named nil)))
-(defmethod inspected-parts ((object sb-kernel:funcallable-instance))
- (let ((components (inspected-standard-object-parts object)))
- (list components (length components) :named nil)))
-
(defmethod inspected-parts ((object condition))
(let ((components (inspected-standard-object-parts object)))
(list components (length components) :named nil)))