Changeset 7370 for trunk/ccl/level-1/l1-reader.lisp

Timestamp:

Oct 9, 2007, 2:53:07 AM (14 years ago)

Author:

gb

Message:

Try to make sure that the reader treats #\No-Break_Space as whitespace.

File:

• trunk/ccl/level-1/l1-reader.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-reader.lisp

@@ -1896 +1896 @@
                         (set-schar str 4 #\^@)
                         (set-schar str 5 #\^J)
+                        (set-schar str 0 #\Space)
                         (set-schar str 6 (code-char #xa0))
                         str))
@@ -1963 +1964 @@
     (dotimes (ch (1+ (char-code #\Space)))
       (uvset ttab ch $cht_wsp))
+    (uvset ttab #xa0 $cht_wsp)
     (uvset ttab (char-code #\\) $cht_sesc)
     (uvset ttab (char-code #\|) $cht_mesc)