From f22413e45018c0cb2e8f2b7e619dfbffdecab5c1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 4 May 1993 12:03:36 +0000
Subject: [PATCH] Changed PCL class ops to  be :: qualified, since they aren't
 currently exported to to name clash with the built-in ones.

---
 interface/inspect.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/interface/inspect.lisp b/interface/inspect.lisp
index 2af0643d2..822c4399a 100644
--- a/interface/inspect.lisp
+++ b/interface/inspect.lisp
@@ -137,7 +137,7 @@
   (typecase object
     (pcl::std-instance
      (format nil "Instance ~a of Class ~a"
-	     object (pcl:class-name (pcl:class-of object))))
+	     object (pcl::class-name (pcl::class-of object))))
     (function (format nil "~a" object))
     (structure
      (let ((default (format nil "~a" object)))
@@ -494,7 +494,7 @@
 
 (defun display-clos-pane (object)
   (with-inspector-pane (object)
-    (let* ((class (pcl:class-of object))
+    (let* ((class (pcl::class-of object))
 	   (slotds (pcl::slots-to-inspect class object))
 	   (view (create-row-column form "rowColumn"
 				    :left-attachment :attach-form
-- 
GitLab