diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 2af0643d2a12abbbbf1e691a1c4b03fa836a2e11..822c4399a91fb5cb2b5c3f12fb18ee557842ec91 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