From 2cac9642d4da3f09721177c12b180b21c71cb91b Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Wed, 30 Dec 2020 22:27:51 +0100 Subject: [PATCH] tests: with-compiler: print with *print-circle* and *print-readably* --- src/tests/ecl-tests.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/tests/ecl-tests.lisp b/src/tests/ecl-tests.lisp index 3fe23261..460f1ae6 100644 --- a/src/tests/ecl-tests.lisp +++ b/src/tests/ecl-tests.lisp @@ -89,10 +89,12 @@ allow using reader macros. The output is stored in a string and output as a second value." `(progn (with-open-file (s ,filename :direction :output :if-exists :supersede - :if-does-not-exist :create) - ,@(loop for f in forms collect (if (stringp f) - `(format s "~A" ,f) - `(print ,f s)))) + :if-does-not-exist :create) + (let ((*print-circle* t) + (*print-readably* t)) + ,@(loop for f in forms collect (if (stringp f) + `(format s "~A" ,f) + `(print ,f s))))) (let* ((compiled-file t) (output (with-output-to-string (*standard-output*)