mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Ignore errors when deleting the temporary file in ANSI-TESTS

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-05-30 22:42:18 +02:00
parent d8274f6e94
commit 918354841b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tests/config.lsp.in
View file

@ -87,8 +87,8 @@
(loop with root = (si::get-library-pathname)
with lib-name = (format nil "../lib/ecl-~A/" (lisp-implementation-version))
for base in (list root (merge-pathnames lib-name root))
for p = (merge-pathnames "./LGPL" base)
when (probe-file p)
when (or (probe-file (merge-pathnames "./BUILD-STAMP" base))
(probe-file (merge-pathnames "./LGPL" base)))
do (return base)))
(setf (logical-pathname-translations "SYS")
@ -253,7 +253,7 @@
:error :output
:wait t))
(when (probe-file tmp)
(delete-file tmp))
(ignore-errors (delete-file tmp)))
(ext:chdir *here*))))
(defun run-regressions-tests (&optional (output (merge-pathnames "regressions.log"