From 4e911513609c4a499898d7ec00d30f8bd76baf78 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 22 Jul 1993 13:25:08 +0000 Subject: [PATCH] Changed to use standard-object type instead of pcl::std-instance. --- interface/inspect.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/interface/inspect.lisp b/interface/inspect.lisp index d7595c9ca..01bfac71f 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 -- GitLab