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