sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: with-compiler: print with *print-circle* and *print-readably*

Browse source
This commit is contained in:
Marius Gerbershagen 2020-12-30 22:27:51 +01:00
parent be009ddc15
commit 2cac9642d4
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/tests/ecl-tests.lisp
View file

@ -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*)