diff --git a/tools/test-scripts.lisp b/tools/test-scripts.lisp
index b5b32342e8703610cc175ec30d51770861454cb9..3e500049779b96ab057b9c3eb794e803f70885b5 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 670fe94734708d8f00fdffc79c0453ab4773dc25..48201f5dbe79b00a485b49ff6f92a02f035a5071 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