Changeset 7370 for trunk/ccl/level-1/l1-reader.lisp
- Timestamp:
- Oct 9, 2007, 2:53:07 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-1/l1-reader.lisp
r6637 r7370 1896 1896 (set-schar str 4 #\^@) 1897 1897 (set-schar str 5 #\^J) 1898 (set-schar str 0 #\Space) 1898 1899 (set-schar str 6 (code-char #xa0)) 1899 1900 str)) … … 1963 1964 (dotimes (ch (1+ (char-code #\Space))) 1964 1965 (uvset ttab ch $cht_wsp)) 1966 (uvset ttab #xa0 $cht_wsp) 1965 1967 (uvset ttab (char-code #\\) $cht_sesc) 1966 1968 (uvset ttab (char-code #\|) $cht_mesc)
Note: See TracChangeset
for help on using the changeset viewer.