0.pre8.70
authorKevin Rosenberg <kevin@rosenberg.net>
Fri, 18 Apr 2003 02:34:14 +0000 (02:34 +0000)
committerKevin Rosenberg <kevin@rosenberg.net>
Fri, 18 Apr 2003 02:34:14 +0000 (02:34 +0000)
    ... contrib/sb-aclrepl/inspect.lisp:
         - Fix display of named elements

contrib/sb-aclrepl/inspect.lisp
version.lisp-expr

index cef37b1..05ba8d7 100644 (file)
@@ -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)))
 
index d707ad9..9b894c6 100644 (file)
@@ -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"