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

tools: Remove a warning, reformat some code.

parent d728aed3
...@@ -40,10 +40,11 @@ Use the preferred lisp implementation" ...@@ -40,10 +40,11 @@ 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 ()
"compiling ASDF" (run-test-lisp
'((load "test/script-support.lisp") (asdf-test::compile-asdf-script)) "compiling ASDF"
:lisp lisp :log log)) '((load "test/script-support.lisp") (asdf-test::compile-asdf-script))
:lisp lisp :log log))
,@(mapcar ,@(mapcar
(lambda (test-script) (lambda (test-script)
(lambda () (lambda ()
......
...@@ -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