Skip to content
Snippets Groups Projects
Commit efaaddf7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

tools: move install-asdf from test-basic to build

parent 70b11b47
No related branches found
No related tags found
No related merge requests found
......@@ -25,3 +25,27 @@
(terpri)
(run `(pipe (wc header.lisp ,@(driver-files) ,@(asdf-defsystem-files)) (tail -n 1)))))
;;; BONUS: install asdf as module for your favorite Lisp implementation.
(deftestcmd install-asdf (lisp)
"install asdf as a module on specified Lisp"
(flet ((doit ()
(with-asdf-dir ()
(run-test-lisp
(format nil "installing ASDF to be provided as a module on ~(~A~)" lisp)
'((load "tools/install-asdf.lisp")(uiop:quit))
:lisp lisp))))
(case lisp
((:allegro :allegromodern :ccl :clisp :cmucl :lispworks :sbcl :scl :xcl)
(doit))
((:abcl :ecl :ecl_bytecodes :mkcl)
(format t "Upgrading the implementation-provided ASDF on ~(~A~) isn't supported (yet).
Happily, that implementation is known to keep ASDF reasonably up to date.~%" lisp))
((:cormancl :gcl :genera :mcl :mocl)
(format t "Installing ASDF so it is provided by ~(~A~) isn't supported.
If you care, go hack the implementation.~%" lisp))
(otherwise
(if (string-prefix-p "allegro" (string-downcase lisp))
(doit)
(error "Unknown implementation ~(~A~)" lisp))))))
":" ; exec cl-launch "$0" "$@" # -*- Lisp -*-
#|
Usage: ./tools/asdf-tools install-asdf-as-module l=lispworks
Usage: ./tools/asdf-tools install-asdf l=lispworks
This script will install the current version of ASDF
as a module pre-compiled for your implementation,
......
......@@ -54,29 +54,6 @@ Use your preferred lisp implementation and check that asdf is loaded without any
(log! log "BAD: Loading ASDF on ~(~A~) produces messages" lisp)
(return nil))))))
;;; BONUS: install asdf as module for your favorite Lisp implementation.
(deftestcmd install-asdf (lisp)
"install asdf as a module on specified Lisp"
(flet ((doit ()
(with-asdf-dir ()
(run-test-lisp
(format nil "installing ASDF to be provided as a module on ~(~A~)" lisp)
'((load "tools/install-asdf.lisp")(uiop:quit))
:lisp lisp))))
(case lisp
((:allegro :allegromodern :ccl :clisp :cmucl :lispworks :sbcl :scl :xcl)
(doit))
((:abcl :ecl :ecl_bytecodes :mkcl)
(format t "Upgrading the implementation-provided ASDF on ~(~A~) isn't supported (yet).
Happily, that implementation is known to keep ASDF reasonably up to date.~%" lisp))
((:cormancl :gcl :genera :mcl :mocl)
(format t "Installing ASDF so it is provided by ~(~A~) isn't supported.
If you care, go hack the implementation.~%" lisp))
(otherwise
(if (string-prefix-p "allegro" (string-downcase lisp))
(doit)
(error "Unknown implementation ~(~A~)" lisp))))))
(deftestcmd test-basic (lisp systems)
"basic test: doc, clean-load, load-systems"
(doc)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment