From bb4aa746d9ddbb23e0acf78feb114618fd288544 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 31 Jan 2005 11:16:11 +0000 Subject: [PATCH] 0.8.19.6: Whitespace characters should have the (shadowed) invalid character constituent trait. ... PFD ansi-tests --- NEWS | 5 ++++- src/code/reader.lisp | 13 ++++++++----- version.lisp-expr | 2 +- 3 files changed, 13 insertions(+), 7 deletions(-) diff --git a/NEWS b/NEWS index f9b3444..edb6a78 100644 --- a/NEWS +++ b/NEWS @@ -1,4 +1,4 @@ -changes in sbcl-0.8.20 (0.9alpha.0?) relative to sbcl-0.8.18: +changes in sbcl-0.8.20 (0.9alpha.0?) relative to sbcl-0.8.19: * fixed disassembly of SHLD and SHRD on x86. (thanks to David Lichteblau) * fixed bugs 19 and 317: fixed-format floating point printing is @@ -12,6 +12,9 @@ changes in sbcl-0.8.20 (0.9alpha.0?) relative to sbcl-0.8.18: passing it through to OPEN. ** LOAD on source files likewise passes any EXTERNAL-FORMAT argument given to internal calls to OPEN. + * fixed some bugs revealed by Paul Dietz' test suite: + ** Space, Tab, Linefeed, Return and Page have the invalid + secondary constituent character trait. changes in sbcl-0.8.19 relative to sbcl-0.8.18: * new port: SBCL now works in native 64-bit mode on x86-64/Linux diff --git a/src/code/reader.lisp b/src/code/reader.lisp index 40b6e1e..de0ada0 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -168,9 +168,12 @@ (!set-secondary-attribute #\d +char-attr-constituent-expt+) (!set-secondary-attribute #\s +char-attr-constituent-expt+) (!set-secondary-attribute #\l +char-attr-constituent-expt+) - (!set-secondary-attribute (code-char 8) +char-attr-invalid+) - (!set-secondary-attribute (code-char 127) +char-attr-invalid+)) - + (!set-secondary-attribute #\Space +char-attr-invalid+) + (!set-secondary-attribute #\Newline +char-attr-invalid+) + (dolist (c (list backspace-char-code tab-char-code form-feed-char-code + return-char-code rubout-char-code)) + (!set-secondary-attribute (code-char c) +char-attr-invalid+))) + (defmacro get-secondary-attribute (char) `(elt *secondary-attribute-table* (char-code ,char))) @@ -313,8 +316,8 @@ (set-cmt-entry char nil) (set-cat-entry char +char-attr-whitespace+))) (whitespaceify (code-char tab-char-code)) - (whitespaceify #\linefeed) - (whitespaceify #\space) + (whitespaceify #\Newline) + (whitespaceify #\Space) (whitespaceify (code-char form-feed-char-code)) (whitespaceify (code-char return-char-code))) diff --git a/version.lisp-expr b/version.lisp-expr index 55d9f87..f443461 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.8.19.5" +"0.8.19.6" -- 1.7.10.4