Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ecl
ecl
Commits
2cac9642
Commit
2cac9642
authored
Dec 30, 2020
by
Marius Gerbershagen
Browse files
tests: with-compiler: print with *print-circle* and *print-readably*
parent
be009ddc
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/tests/ecl-tests.lisp
View file @
2cac9642
...
...
@@ -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*
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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