mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: don't ruin run-program return values output

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-19 22:03:36 +01:00
parent 2c3ccd8444
commit 77cebaef4a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -133,5 +133,5 @@ as a second value."
`(let ((,var (ext:mkstemp "ecl-tests")))
(with-open-file (,stream ,var :direction :output)
(format ,stream ,string))
,@body
(delete-file ,var)))))
(multiple-value-prog1 (progn ,@body)
(delete-file ,var))))))