diff --git a/Makefile b/Makefile index 8b168080c3e2d39fc9be153c4bd0593ebdd06930..58d4f52da27c9e76dbcf54ef7c83a30eb4f1211f 100644 --- a/Makefile +++ b/Makefile @@ -147,6 +147,9 @@ test-all: doc test-all-lisps test-all-no-stop: -make doc ; for l in ${lisps} ; do make t l=$$l ; make u l=$$l ; done ; true +extract-all-tagged-asdf: + ./test/run-tests.sh -H + # Note that the debian git at git://git.debian.org/git/pkg-common-lisp/cl-asdf.git is stale, # as we currently build directly from upstream at git://common-lisp.net/projects/asdf/asdf.git debian-package: mrproper diff --git a/asdf.asd b/asdf.asd index a2a011ed10f20e47b0652fa71d167c870d03f894..1d2bf64beba7001f7243f156396ca5d6ee41ebae 100644 --- a/asdf.asd +++ b/asdf.asd @@ -74,7 +74,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.32.15" ;; to be automatically updated by make bump-version + :version "2.32.16" ;; to be automatically updated by make bump-version :depends-on () #+asdf3 :encoding #+asdf3 :utf-8 ;; For most purposes, asdf itself specially counts as a builtin system. diff --git a/bundle.lisp b/bundle.lisp index 05079aec2fa0ac8c8acb39a50d9bc9d7710a0496..2da6f0e2335ba3ea2a9ef1739142b7d42ef92b67 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -397,7 +397,7 @@ s))))) #-(or ecl mkcl) - (defmethod perform ((o fasl-op) (c system)) + (defmethod perform ((o basic-fasl-op) (c system)) (let* ((input-files (input-files o c)) (fasl-files (remove (compile-file-type) input-files :key #'pathname-type :test-not #'equalp)) (non-fasl-files (remove (compile-file-type) input-files :key #'pathname-type :test #'equalp)) @@ -454,13 +454,13 @@ #+mkcl (with-upgradability () (defmethod perform ((o lib-op) (s system)) - (apply #'compiler::build-static-library (first output) + (apply #'compiler::build-static-library (output-file o c) :lisp-object-files (input-files o s) (bundle-op-build-args o))) - (defmethod perform ((o fasl-op) (s system)) - (apply #'compiler::build-bundle (second output) + (defmethod perform ((o basic-fasl-op) (s system)) + (apply #'compiler::build-bundle (output-file o c) ;; second??? :lisp-object-files (input-files o s) (bundle-op-build-args o))) - +} (defun bundle-system (system &rest args &key force (verbose t) version &allow-other-keys) (declare (ignore force verbose version)) (apply #'operate 'binary-op system args))) diff --git a/header.lisp b/header.lisp index b5ec85f981d620b38d83811b7e8ad2d035d294e3..bd1833968a621218ad7272d61116436ba0712338 100644 --- a/header.lisp +++ b/header.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.32.15: Another System Definition Facility. +;;; This is ASDF 2.32.16: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. diff --git a/test/run-tests.sh b/test/run-tests.sh index 7920e3193fffb9ea84a1c38285bb89f9fe451d19..feb7876d787cdccdc13fc212f4475ed78bac0a0e 100755 --- a/test/run-tests.sh +++ b/test/run-tests.sh @@ -327,7 +327,7 @@ valid_upgrade_test_p () { run_upgrade_tests () { cd ${ASDFDIR} mkdir -p build/results - rm -f build/*.*f* uiop/*.*f* ## Remove stale FASLs from ASDF 1.x, especially when different implementations have same name + rm -f build/*.*f* uiop/*.*f* test/*.*f* ## Remove stale FASLs from ASDF 1.x, especially when different implementations have same name ASDF_OUTPUT_TRANSLATIONS="(:output-translations (\"${ASDFDIR}\" (\"${ASDFDIR}/build/fasls/\" :implementation \"asdf/\")) (t (\"${ASDFDIR}/build/fasls/\" :implementation \"root/\")) :ignore-inherited-configuration)" export ASDF_OUTPUT_TRANSLATIONS su=test/script-support.lisp diff --git a/test/test-bundle.script b/test/test-bundle.script index 04c760efc0c0fbffa33990835b016d25a9558161..0a3bfd32385f4bb89f3202184c365ef631555250 100644 --- a/test/test-bundle.script +++ b/test/test-bundle.script @@ -20,15 +20,20 @@ (defparameter *bundle-1* (output-file 'fasl-op :test-bundle-1)) (defparameter *bundle-2* (output-file 'fasl-op :test-bundle-2)) +(defparameter *mono-bundle-2* (output-file 'monolithic-fasl-op :test-bundle-2)) (DBG :test-bundle *bundle-1* *bundle-2*) (assert-equal (list *bundle-2*) (input-files 'load-fasl-op :test-bundle-2)) (delete-file-if-exists *bundle-1*) (delete-file-if-exists *bundle-2*) +(delete-file-if-exists *mono-bundle-2*) (operate 'load-fasl-op :test-bundle-2) -;; Check that the bundles were indeed created. +(DBG "Check that the bundles were indeed created.") (assert (probe-file *bundle-2*)) (assert (probe-file *bundle-1*)) -;; Check that the files were indeed loaded. +(DBG "Check that the files were indeed loaded.") (assert (symbol-value (find-symbol* :*file1* :test-package))) (assert (symbol-value (find-symbol* :*file3* :test-package))) +(DBG "Now for the mono-fasl") +(operate 'monolithic-fasl-op :test-bundle-2) +(assert (probe-file *mono-bundle-2*)) diff --git a/upgrade.lisp b/upgrade.lisp index f6e84458fdbbcae26acf9304573dba378cdb1c1e..6e998bb4680e45eabd20e049d1a06365daa53ea1 100644 --- a/upgrade.lisp +++ b/upgrade.lisp @@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ;; "3.4.5.67" would be a development version in the official upstream of 3.4.5. ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 - (asdf-version "2.32.15") + (asdf-version "2.32.16") (existing-version (asdf-version))) (setf *asdf-version* asdf-version) (when (and existing-version (not (equal asdf-version existing-version))) diff --git a/version.lisp-expr b/version.lisp-expr index 1f140651de7d80887c23c9ef22827671bb92a278..f51c8d06ce9008b68e249a8468f6d4ffad5c95c0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -1 +1 @@ -"2.32.15" +"2.32.16"