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

Flushed uses of "pcl:", since those symbols are now external to LISP (and not

PCL.)
parent 4e911513
Branches
Tags
No related merge requests found
...@@ -134,22 +134,23 @@ ...@@ -134,22 +134,23 @@
;;; allow us to discriminate. ;;; allow us to discriminate.
;;; ;;;
(defmethod inspector-pane-title (object) (defmethod inspector-pane-title (object)
(typecase object (let ((*print-level* (or debug:*debug-print-level* *print-level*))
(standard-object (*print-length* (or debug:*debug-print-length* *print-length*)))
(format nil "Instance ~a of Class ~a" (typecase object
object (pcl::class-name (pcl::class-of object)))) (standard-object
(function (format nil "~a" object)) (format nil "Instance ~a of Class ~a" object (type-of object)))
(structure-object (function (format nil "~a" object))
(let ((default (format nil "~a" object))) (structure-object
(declare (simple-string default)) (let ((default (format nil "~a" object)))
(if (and (> (length default) 2) (declare (simple-string default))
(char= (schar default 0) #\#) (if (and (> (length default) 2)
(char= (schar default 1) #\S)) (char= (schar default 0) #\#)
(format nil "#<~a Structure>" (type-of object)) (char= (schar default 1) #\S))
default))) (format nil "#<~a Structure>" (type-of object))
(t default)))
(format nil "~a ~a" (string-capitalize (type-of object)) (t
(print-for-widget-display "~s" object))))) (format nil "~a ~a" (string-capitalize (type-of object))
(print-for-widget-display "~s" object))))))
(defmethod inspector-pane-title ((sym symbol)) (defmethod inspector-pane-title ((sym symbol))
(format nil "Symbol ~s" sym)) (format nil "Symbol ~s" sym))
...@@ -491,14 +492,14 @@ ...@@ -491,14 +492,14 @@
:font-list *header-font*)) :font-list *header-font*))
(widgets)) (widgets))
(dolist (slotd slot-list) (dolist (slotd slot-list)
(pcl:with-slots ((slot pcl::name) (allocation pcl::allocation)) (with-slots ((slot pcl::name) (allocation pcl::allocation))
slotd slotd
(let* ((slot-label (if allocp (let* ((slot-label (if allocp
(format nil "~a: " slot) (format nil "~a: " slot)
(format nil "~a [~a]: " slot allocation))) (format nil "~a [~a]: " slot allocation)))
(slot-bound (pcl:slot-boundp object slot)) (slot-bound (slot-boundp object slot))
(slot-value (if slot-bound (slot-value (if slot-bound
(pcl:slot-value object slot) (slot-value object slot)
"Unbound"))) "Unbound")))
(push (push
(create-value-box view slot-label slot-value (create-value-box view slot-label slot-value
...@@ -519,8 +520,8 @@ ...@@ -519,8 +520,8 @@
instance-slots class-slots other-slots) instance-slots class-slots other-slots)
(dolist (slotd slotds) (dolist (slotd slotds)
(pcl:with-slots ((slot pcl::name) (allocation pcl::allocation)) (with-slots ((slot pcl::name) (allocation pcl::allocation))
slotd slotd
(case allocation (case allocation
(:instance (push slotd instance-slots)) (:instance (push slotd instance-slots))
(:class (push slotd class-slots)) (:class (push slotd class-slots))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment