Changeset 689

Timestamp:

Mar 22, 2004, 9:30:23 AM (21 years ago)

Author:

Gary Byers

Message:

All control chars, #\Space are whitespace.

File:

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

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

@@ -155 +155 @@
 (defvar %initial-readtable%
   (let* ((ttab (make-array 256 :element-type '(signed-byte 8)))
-         (wspc '(#\Null #\Tab #\Linefeed #\Page #\Return #\Space #\312)) ;$CA=non-break space
          (macs `((#\# . (,#'read-dispatch))))
          (case :upcase))
     (dotimes (i 256) (declare (fixnum i))(uvset ttab i $cht_cnst))
-    (dolist (ch wspc) (uvset ttab (%char-code ch) $cht_wsp))
+    (dotimes (ch (1+ (char-code #\Space)))
+      (uvset ttab ch $cht_wsp))
     (uvset ttab (char-code #\\) $cht_sesc)
     (uvset ttab (char-code #\|) $cht_mesc)