Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
289dedec
Commit
289dedec
authored
Jun 03, 2004
by
pfdietz
Browse files
Add with-standard-io-syntax wrappers to tests for copy-pprint-dispatch
parent
274efd95
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/copy-pprint-dispatch.lsp
View file @
289dedec
...
...
@@ -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)")
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment