From 607fd27f8b9b373902ddd694d2819ea60fd66e3d Mon Sep 17 00:00:00 2001 From: sds <sds@localhost> Date: Sun, 8 Nov 2009 00:04:25 +0000 Subject: [PATCH] add with-standard-io-syntax.23, testing that with-standard-io-syntax binds *print-pprint-dispatch* --- ansi-tests/with-standard-io-syntax.lsp | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/ansi-tests/with-standard-io-syntax.lsp b/ansi-tests/with-standard-io-syntax.lsp index 1dab3d5b..3d9c0f9c 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")) -- GitLab