Commit 84946c05 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

tools: Remove a warning, reformat some code.

parent d728aed3
...@@ -40,7 +40,8 @@ Use the preferred lisp implementation" ...@@ -40,7 +40,8 @@ Use the preferred lisp implementation"
(test-fail 0) (test-fail 0)
(failed-list ()))) (failed-list ())))
(call-without-stopping (call-without-stopping
`(,(lambda() (run-test-lisp `(,(lambda ()
(run-test-lisp
"compiling ASDF" "compiling ASDF"
'((load "test/script-support.lisp") (asdf-test::compile-asdf-script)) '((load "test/script-support.lisp") (asdf-test::compile-asdf-script))
:lisp lisp :log log)) :lisp lisp :log log))
......
...@@ -135,7 +135,7 @@ Use at a given tag, put it under build/asdf-${tag}.lisp" ...@@ -135,7 +135,7 @@ Use at a given tag, put it under build/asdf-${tag}.lisp"
((:xcl) (version<= "2.15" tag)) ((:xcl) (version<= "2.15" tag))
;; all clear on these implementations ;; all clear on these implementations
((:allegro :lispworks :sbcl :scl) t)))) ((:allegro :sbcl :scl) t))))
(deftestcmd test-upgrade (lisp upgrade-tags upgrade-methods) (deftestcmd test-upgrade (lisp upgrade-tags upgrade-methods)
"run upgrade tests "run upgrade tests
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment