From 918354841beb874a45bea37741e60d5adf32a39f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 30 May 2012 22:42:18 +0200 Subject: [PATCH] Ignore errors when deleting the temporary file in ANSI-TESTS --- src/tests/config.lsp.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/tests/config.lsp.in b/src/tests/config.lsp.in index 184b48922..a0525775c 100755 --- a/src/tests/config.lsp.in +++ b/src/tests/config.lsp.in @@ -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"