From: Christophe R. <cr...@us...> - 2005-01-31 11:16:22
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6868/src/code Modified Files: reader.lisp Log Message: 0.8.19.6: Whitespace characters should have the (shadowed) invalid character constituent trait. ... PFD ansi-tests Index: reader.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/reader.lisp,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- reader.lisp 14 Jan 2005 18:09:03 -0000 1.39 +++ reader.lisp 31 Jan 2005 11:16:12 -0000 1.40 @@ -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))) |