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