Commit e583bd07 authored by pfdietz's avatar pfdietz

Bind *print-readably* to nil for the tests

parent b1f45ead
......@@ -9,6 +9,7 @@
(with-standard-io-syntax
(let ((obj '(foo bar))
(*package* (find-package :cl-test))
(*print-readably* nil)
(*print-pretty* t))
(values
(prin1-to-string obj)
......@@ -27,6 +28,7 @@
(with-standard-io-syntax
(let ((obj '(foo bar))
(*package* (find-package :cl-test))
(*print-readably* nil)
(*print-pretty* t))
(values
(prin1-to-string obj)
......@@ -46,6 +48,7 @@
(with-standard-io-syntax
(let ((obj '(foo bar))
(*package* (find-package :cl-test))
(*print-readably* nil)
(*print-pretty* t))
(values
(prin1-to-string obj)
......@@ -64,6 +67,7 @@
(with-standard-io-syntax
(let ((obj '(foo bar))
(*package* (find-package :cl-test))
(*print-readably* nil)
(*print-pretty* t))
(values
(prin1-to-string obj)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment