0.8.19.6:

	Whitespace characters should have the (shadowed) invalid
	character constituent trait.
	... PFD ansi-tests

diff --git a/NEWS b/NEWS
index f9b3444..edb6a78 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"