[Sbcl-commits] CVS: sbcl/contrib/sb-aclrepl inspect.lisp,1.17,1.18

[Kevin R. <kev...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv2024/contrib/sb-aclrepl

Modified Files:
	inspect.lisp 
Log Message:
0.8alpha.0.44:
    sb-aclrepl/inspect.lisp: Change usage of dsd-%name to dsd-name


Index: inspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/inspect.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- inspect.lisp	3 May 2003 18:20:02 -0000	1.17
+++ inspect.lisp	22 May 2003 16:00:20 -0000	1.18
@@ -1,4 +1,4 @@
-;;;; Inspector for sb-aclrepl
+/nick;;;; Inspector for sb-aclrepl
 ;;;;
 ;;;; The documentation, which may or may not apply in its entirety at
 ;;;; any given time, for this functionality is on the ACL website:
@@ -56,6 +56,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar *inspect-unbound-object-marker* (gensym "INSPECT-UNBOUND-OBJECT-")))
 
+
 (defun inspector-fun (object input-stream output-stream)
   (declare (ignore input-stream))
   (let ((*current-inspect* nil)
@@ -452,7 +453,7 @@
   "Returns elements of an object that have been trimmed and labeled based on
 length and skip. Returns (VALUES ELEMENTS LABELS ELEMENT-COUNT)
 where ELEMENTS and LABELS are vectors containing ELEMENT-COUNT items.
-LABELS may be a string, number, cons pair, :tail, or :ellipses.
+LABELS elements may be a string, number, cons pair, :tail, or :ellipses.
 This function may return an ELEMENT-COUNT of up to (+ 3 length) which would
 include an :ellipses at the beginning, :ellipses at the end,
 and the last element."
@@ -755,7 +756,7 @@
 	(info (sb-kernel:layout-info (sb-kernel:layout-of object))))
     (when (sb-kernel::defstruct-description-p info)
       (dolist (dd-slot (sb-kernel:dd-slots info) (nreverse components-list))
-	(push (cons (sb-kernel:dsd-%name dd-slot)
+	(push (cons (string (sb-kernel:dsd-name dd-slot))
 		    (funcall (sb-kernel:dsd-accessor-name dd-slot) object))
 	      components-list)))))