diff --git a/ansi-tests/with-standard-io-syntax.lsp b/ansi-tests/with-standard-io-syntax.lsp index 1dab3d5bed64efb6a0b17d2fba98e5b46245e9d0..3d9c0f9c21d36e265631c61efc5be6fb5b91cde0 100644 --- a/ansi-tests/with-standard-io-syntax.lsp +++ b/ansi-tests/with-standard-io-syntax.lsp @@ -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"))