From 73d8c340050371085f25cb87d0c676ce7c7928f9 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 18 Apr 2003 02:34:14 +0000 Subject: [PATCH] 0.pre8.70 ... contrib/sb-aclrepl/inspect.lisp: - Fix display of named elements --- contrib/sb-aclrepl/inspect.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index cef37b10c..05ba8d702 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 d707ad9e8..9b894c688 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" -- 2.11.4.GIT