diff --git a/interface/inspect.lisp b/interface/inspect.lisp index d7595c9caa06617284e463b7353a182c9acd3b1e..01bfac71faaa507e721baec6e05becb987adce8c 100644 --- a/interface/inspect.lisp +++ b/interface/inspect.lisp @@ -135,7 +135,7 @@ ;;; (defmethod inspector-pane-title (object) (typecase object - (pcl::std-instance + (standard-object (format nil "Instance ~a of Class ~a" object (pcl::class-name (pcl::class-of object)))) (function (format nil "~a" object)) @@ -235,7 +235,7 @@ ;;; (defmethod display-inspector-pane (object) (typecase object - (pcl::std-instance (display-clos-pane object)) + (standard-object (display-clos-pane object)) (function (display-function-pane object)) (structure-object (display-structure-pane object)) (t