From 94f4763fecd439dc0623070812241a75a3e3b90e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 22 Jul 1993 20:54:14 +0000 Subject: [PATCH] Flushed uses of "pcl:", since those symbols are now external to LISP (and not PCL.) --- interface/inspect.lisp | 43 +++++++++++++++++++++--------------------- 1 file changed, 22 insertions(+), 21 deletions(-) diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 01bfac71f..54cb2c857 100644 --- a/interface/inspect.lisp +++ b/interface/inspect.lisp @@ -134,22 +134,23 @@ ;;; allow us to discriminate. ;;; (defmethod inspector-pane-title (object) - (typecase object - (standard-object - (format nil "Instance ~a of Class ~a" - object (pcl::class-name (pcl::class-of object)))) - (function (format nil "~a" object)) - (structure-object - (let ((default (format nil "~a" object))) - (declare (simple-string default)) - (if (and (> (length default) 2) - (char= (schar default 0) #\#) - (char= (schar default 1) #\S)) - (format nil "#<~a Structure>" (type-of object)) - default))) - (t - (format nil "~a ~a" (string-capitalize (type-of object)) - (print-for-widget-display "~s" object))))) + (let ((*print-level* (or debug:*debug-print-level* *print-level*)) + (*print-length* (or debug:*debug-print-length* *print-length*))) + (typecase object + (standard-object + (format nil "Instance ~a of Class ~a" object (type-of object))) + (function (format nil "~a" object)) + (structure-object + (let ((default (format nil "~a" object))) + (declare (simple-string default)) + (if (and (> (length default) 2) + (char= (schar default 0) #\#) + (char= (schar default 1) #\S)) + (format nil "#<~a Structure>" (type-of object)) + default))) + (t + (format nil "~a ~a" (string-capitalize (type-of object)) + (print-for-widget-display "~s" object)))))) (defmethod inspector-pane-title ((sym symbol)) (format nil "Symbol ~s" sym)) @@ -491,14 +492,14 @@ :font-list *header-font*)) (widgets)) (dolist (slotd slot-list) - (pcl:with-slots ((slot pcl::name) (allocation pcl::allocation)) + (with-slots ((slot pcl::name) (allocation pcl::allocation)) slotd (let* ((slot-label (if allocp (format nil "~a: " slot) (format nil "~a [~a]: " slot allocation))) - (slot-bound (pcl:slot-boundp object slot)) + (slot-bound (slot-boundp object slot)) (slot-value (if slot-bound - (pcl:slot-value object slot) + (slot-value object slot) "Unbound"))) (push (create-value-box view slot-label slot-value @@ -519,8 +520,8 @@ instance-slots class-slots other-slots) (dolist (slotd slotds) - (pcl:with-slots ((slot pcl::name) (allocation pcl::allocation)) - slotd + (with-slots ((slot pcl::name) (allocation pcl::allocation)) + slotd (case allocation (:instance (push slotd instance-slots)) (:class (push slotd class-slots)) -- GitLab