Commit 533210cd authored by pfdietz's avatar pfdietz
Browse files

Tweak escape char tests that they preserve case

parent ebddc774
......@@ -72,7 +72,6 @@
(with-standard-io-syntax
(let ((*readtable* (copy-readtable nil))
(*package* (find-package "CL-TEST")))
(setf (readtable-case *readtable*) :preserve)
(let ((results
(list
(set-syntax-from-char c #\\)
......@@ -81,13 +80,12 @@
(list c results))))))
nil)
(deftest set-syntax-from-char.multiple-escape.1
(deftest set-syntax-from-char.multiple-escape
(loop for c across +standard-chars+
nconc
(with-standard-io-syntax
(let ((*readtable* (copy-readtable nil))
(*package* (find-package "CL-TEST")))
(setf (readtable-case *readtable*) :preserve)
(let ((results
(list
(set-syntax-from-char c #\|)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment