diff --git a/tools/build.lisp b/tools/build.lisp index 0dc396825a040fa41ad2815b14b9ae12a14f0b0a..df0023dbf1ee7618d0eff4ce70430650ccffd1ec 100644 --- a/tools/build.lisp +++ b/tools/build.lisp @@ -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)))))) + diff --git a/tools/install-asdf.lisp b/tools/install-asdf.lisp index 49bd8fcab94dc67376b0a0049c3718e22e5c1266..9d500f11c6098006e5f53b0753b5a6d00cbeceb8 100644 --- a/tools/install-asdf.lisp +++ b/tools/install-asdf.lisp @@ -1,6 +1,6 @@ ":" ; 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, diff --git a/tools/test-basic.lisp b/tools/test-basic.lisp index f86f788af6c9e2049a392bbae7d822336e7b7c8a..62722214860e1b5f940b76d29f7e261db1abbb9e 100644 --- a/tools/test-basic.lisp +++ b/tools/test-basic.lisp @@ -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)