Commit ad4e5e94 authored by pfdietz's avatar pfdietz

Forgot to check this in

parent 4fe419c5
......@@ -7,8 +7,9 @@
(defmacro def-print-test (name form result &rest bindings)
`(deftest ,name
(equalt (let ,bindings
(with-standard-io-syntax (prin1 ,form)))
,result)
(equalt
(with-standard-io-syntax
(let ,bindings
(with-output-to-string (*standard-output*) (prin1 ,form))))
,result)
t))
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