From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 18 Apr 2003 02:34:14 +0000 (+0000)
Subject: 0.pre8.70
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=73d8c340050371085f25cb87d0c676ce7c7928f9;p=sbcl.git

0.pre8.70
    ... contrib/sb-aclrepl/inspect.lisp:
         - Fix display of named elements
---

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index cef37b1..05ba8d7 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -392,7 +392,8 @@ POSITION is NIL if the id is invalid or not found."
   "Helper function for inspected-elements. Conses the
 position with the label is the label is a string."
   (let ((label (label-at parts position)))
-    (if (stringp label)
+    (if (or (stringp label)
+	    (and (symbolp label) (not (eq label :tail))))
 	(cons position label)
 	label)))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index d707ad9..9b894c6 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.69"
+"0.pre8.70"