From c26726598de06cb52185ddef884c2bd7354a55ef Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Wed, 14 Jun 2006 13:52:05 +0000 Subject: [PATCH] 0.9.13.44: tweaked text around READ-ERROR for undefined #n# label --- src/code/sharpm.lisp | 9 +++++++-- version.lisp-expr | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp index 0d4508c..e720699 100644 --- a/src/code/sharpm.lisp +++ b/src/code/sharpm.lisp @@ -303,9 +303,14 @@ (let ((entry (assoc label *sharp-equal-alist*))) (if entry (third entry) - (let ((pair (assoc label *sharp-sharp-alist*))) + (let (;; Has this label been defined previously? (Don't read + ;; ANSI "2.4.8.15 Sharpsign Equal-Sign" and worry that + ;; it requires you to implement forward references, + ;; because forward references are disallowed in + ;; "2.4.8.16 Sharpsign Sharpsign".) + (pair (assoc label *sharp-sharp-alist*))) (unless pair - (%reader-error stream "object is not labelled #~S#" label)) + (%reader-error stream "reference to undefined label #~D#" label)) (cdr pair))))) ;;;; conditional compilation: the #+ and #- readmacros diff --git a/version.lisp-expr b/version.lisp-expr index d8dd275..b9e391a 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.13.43" +"0.9.13.44" -- 1.7.10.4