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