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