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