72 |
(with-standard-io-syntax |
(with-standard-io-syntax |
73 |
(let ((*readtable* (copy-readtable nil)) |
(let ((*readtable* (copy-readtable nil)) |
74 |
(*package* (find-package "CL-TEST"))) |
(*package* (find-package "CL-TEST"))) |
|
(setf (readtable-case *readtable*) :preserve) |
|
75 |
(let ((results |
(let ((results |
76 |
(list |
(list |
77 |
(set-syntax-from-char c #\\) |
(set-syntax-from-char c #\\) |
80 |
(list c results)))))) |
(list c results)))))) |
81 |
nil) |
nil) |
82 |
|
|
83 |
(deftest set-syntax-from-char.multiple-escape.1 |
(deftest set-syntax-from-char.multiple-escape |
84 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
85 |
nconc |
nconc |
86 |
(with-standard-io-syntax |
(with-standard-io-syntax |
87 |
(let ((*readtable* (copy-readtable nil)) |
(let ((*readtable* (copy-readtable nil)) |
88 |
(*package* (find-package "CL-TEST"))) |
(*package* (find-package "CL-TEST"))) |
|
(setf (readtable-case *readtable*) :preserve) |
|
89 |
(let ((results |
(let ((results |
90 |
(list |
(list |
91 |
(set-syntax-from-char c #\|) |
(set-syntax-from-char c #\|) |