From 289dedecca2784ace83d10a8a9667c75aba747a5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 3 Jun 2004 11:06:21 +0000
Subject: [PATCH] Add with-standard-io-syntax wrappers to tests for
 copy-pprint-dispatch

---
 ansi-tests/copy-pprint-dispatch.lsp | 108 ++++++++++++++--------------
 1 file changed, 56 insertions(+), 52 deletions(-)

diff --git a/ansi-tests/copy-pprint-dispatch.lsp b/ansi-tests/copy-pprint-dispatch.lsp
index b64cd909..481d41f7 100644
--- a/ansi-tests/copy-pprint-dispatch.lsp
+++ b/ansi-tests/copy-pprint-dispatch.lsp
@@ -6,73 +6,77 @@
 (in-package :cl-test)
 
 (deftest copy-pprint-dispatch.1
-  (let ((obj '(foo bar))
-	(*package* (find-package :cl-test))
-	(*print-pretty* t))
-    (values
-     (prin1-to-string obj)
-     (let ((*print-pprint-dispatch* (copy-pprint-dispatch)))
-       (set-pprint-dispatch
-	`(eql ,obj)
-	#'(lambda (s obj2) (let ((*print-pretty* nil))
-			     (format s "#.'~S" obj2))))
-       (prin1-to-string obj))
-     (prin1-to-string obj)))
+  (with-standard-io-syntax
+   (let ((obj '(foo bar))
+	 (*package* (find-package :cl-test))
+	 (*print-pretty* t))
+     (values
+      (prin1-to-string obj)
+      (let ((*print-pprint-dispatch* (copy-pprint-dispatch)))
+	(set-pprint-dispatch
+	 `(eql ,obj)
+	 #'(lambda (s obj2) (let ((*print-pretty* nil))
+			      (format s "#.'~S" obj2))))
+	(prin1-to-string obj))
+     (prin1-to-string obj))))
   "(FOO BAR)"
   "#.'(FOO BAR)"
   "(FOO BAR)")
 
 (deftest copy-pprint-dispatch.2
-  (let ((obj '(foo bar))
-	(*package* (find-package :cl-test))
-	(*print-pretty* t))
-    (values
-     (prin1-to-string obj)
-     (let ((*print-pprint-dispatch* (copy-pprint-dispatch
-				     *print-pprint-dispatch*)))
-       (set-pprint-dispatch
-	`(eql ,obj)
-	#'(lambda (s obj2) (let ((*print-pretty* nil))
-			     (format s "#.'~S" obj2))))
-       (prin1-to-string obj))
-     (prin1-to-string obj)))
+  (with-standard-io-syntax
+   (let ((obj '(foo bar))
+	 (*package* (find-package :cl-test))
+	 (*print-pretty* t))
+     (values
+      (prin1-to-string obj)
+      (let ((*print-pprint-dispatch* (copy-pprint-dispatch
+				      *print-pprint-dispatch*)))
+	(set-pprint-dispatch
+	 `(eql ,obj)
+	 #'(lambda (s obj2) (let ((*print-pretty* nil))
+			      (format s "#.'~S" obj2))))
+	(prin1-to-string obj))
+      (prin1-to-string obj))))
   "(FOO BAR)"
   "#.'(FOO BAR)"
   "(FOO BAR)")
 
 (deftest copy-pprint-dispatch.3
-  (let ((obj '(foo bar))
-	(*package* (find-package :cl-test))
-	(*print-pretty* t))
-    (values
-     (prin1-to-string obj)
-     (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
-       (set-pprint-dispatch
-	`(eql ,obj)
-	#'(lambda (s obj2) (let ((*print-pretty* nil))
-			     (format s "#.'~S" obj2))))
-       (prin1-to-string obj))
-     (prin1-to-string obj)))
+  (with-standard-io-syntax
+   (let ((obj '(foo bar))
+	 (*package* (find-package :cl-test))
+	 (*print-pretty* t))
+     (values
+      (prin1-to-string obj)
+      (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
+	(set-pprint-dispatch
+	 `(eql ,obj)
+	 #'(lambda (s obj2) (let ((*print-pretty* nil))
+			      (format s "#.'~S" obj2))))
+	(prin1-to-string obj))
+      (prin1-to-string obj))))
   "(FOO BAR)"
   "#.'(FOO BAR)"
   "(FOO BAR)")
 
 (deftest copy-pprint-dispatch.4
-  (let ((obj '(foo bar))
-	(*package* (find-package :cl-test))
-	(*print-pretty* t))
-    (values
-     (prin1-to-string obj)
-     (let ((table (copy-pprint-dispatch)))
-       (set-pprint-dispatch
-	`(eql ,obj)
-	#'(lambda (s obj2) (let ((*print-pretty* nil))
-			     (format s "#.'~S" obj2)))
-	0
-	table)
-       (let ((*print-pprint-dispatch* (copy-pprint-dispatch table)))
-	 (prin1-to-string obj)))
-     (prin1-to-string obj)))
+  (with-standard-io-syntax
+   (let ((obj '(foo bar))
+	 (*package* (find-package :cl-test))
+	 (*print-pretty* t))
+     (values
+      (prin1-to-string obj)
+      (let ((table (copy-pprint-dispatch)))
+	(set-pprint-dispatch
+	 `(eql ,obj)
+	 #'(lambda (s obj2) (let ((*print-pretty* nil))
+			      (format s "#.'~S" obj2)))
+	 0
+	 table)
+	(let ((*print-pprint-dispatch* (copy-pprint-dispatch table)))
+	  (prin1-to-string obj)))
+      (prin1-to-string obj))))
   "(FOO BAR)"
   "#.'(FOO BAR)"
   "(FOO BAR)")
-- 
GitLab