From 84946c05277607a15d7e357ff3fae445abb203ca Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 30 Jun 2015 10:45:59 -0400 Subject: [PATCH] tools: Remove a warning, reformat some code. --- tools/test-scripts.lisp | 9 +++++---- tools/test-upgrade.lisp | 2 +- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/tools/test-scripts.lisp b/tools/test-scripts.lisp index b5b32342..3e500049 100644 --- a/tools/test-scripts.lisp +++ b/tools/test-scripts.lisp @@ -40,10 +40,11 @@ Use the preferred lisp implementation" (test-fail 0) (failed-list ()))) (call-without-stopping - `(,(lambda() (run-test-lisp - "compiling ASDF" - '((load "test/script-support.lisp") (asdf-test::compile-asdf-script)) - :lisp lisp :log log)) + `(,(lambda () + (run-test-lisp + "compiling ASDF" + '((load "test/script-support.lisp") (asdf-test::compile-asdf-script)) + :lisp lisp :log log)) ,@(mapcar (lambda (test-script) (lambda () diff --git a/tools/test-upgrade.lisp b/tools/test-upgrade.lisp index 670fe947..48201f5d 100644 --- a/tools/test-upgrade.lisp +++ b/tools/test-upgrade.lisp @@ -135,7 +135,7 @@ Use at a given tag, put it under build/asdf-${tag}.lisp" ((:xcl) (version<= "2.15" tag)) ;; all clear on these implementations - ((:allegro :lispworks :sbcl :scl) t)))) + ((:allegro :sbcl :scl) t)))) (deftestcmd test-upgrade (lisp upgrade-tags upgrade-methods) "run upgrade tests -- GitLab