Skip to content
Snippets Groups Projects
Commit f22413e4 authored by ram's avatar ram
Browse files

Changed PCL class ops to be :: qualified, since they aren't currently exported

to to name clash with the built-in ones.
parent 5ae215c5
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment