Commit 607fd27f authored by sds's avatar sds

add with-standard-io-syntax.23, testing that with-standard-io-syntax binds *print-pprint-dispatch*

parent c7bcc4fa
......@@ -118,13 +118,12 @@
(+ i 2)))
15)
(deftest with-standard-io-syntax.23
(let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
(set-pprint-dispatch 'symbol #'(lambda (stream obj)
(declare (ignore obj))
(write-string "FOO" stream)))
(list (let ((*print-pretty* t)) (princ-to-string 'bar))
(with-standard-io-syntax
(let ((*print-pretty* t)) (princ-to-string 'bar)))))
("FOO" "BAR"))
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