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

2.32.16: fix monolithic-fasl-op, broken by previous class refactoring.

parent cadae3bd
No related branches found
No related tags found
No related merge requests found
...@@ -147,6 +147,9 @@ test-all: doc test-all-lisps ...@@ -147,6 +147,9 @@ test-all: doc test-all-lisps
test-all-no-stop: test-all-no-stop:
-make doc ; for l in ${lisps} ; do make t l=$$l ; make u l=$$l ; done ; true -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, # 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 # as we currently build directly from upstream at git://common-lisp.net/projects/asdf/asdf.git
debian-package: mrproper debian-package: mrproper
......
...@@ -74,7 +74,7 @@ ...@@ -74,7 +74,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :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 () :depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8 #+asdf3 :encoding #+asdf3 :utf-8
;; For most purposes, asdf itself specially counts as a builtin system. ;; For most purposes, asdf itself specially counts as a builtin system.
......
...@@ -397,7 +397,7 @@ ...@@ -397,7 +397,7 @@
s))))) s)))))
#-(or ecl mkcl) #-(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)) (let* ((input-files (input-files o c))
(fasl-files (remove (compile-file-type) input-files :key #'pathname-type :test-not #'equalp)) (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)) (non-fasl-files (remove (compile-file-type) input-files :key #'pathname-type :test #'equalp))
...@@ -454,13 +454,13 @@ ...@@ -454,13 +454,13 @@
#+mkcl #+mkcl
(with-upgradability () (with-upgradability ()
(defmethod perform ((o lib-op) (s system)) (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))) :lisp-object-files (input-files o s) (bundle-op-build-args o)))
(defmethod perform ((o fasl-op) (s system)) (defmethod perform ((o basic-fasl-op) (s system))
(apply #'compiler::build-bundle (second output) (apply #'compiler::build-bundle (output-file o c) ;; second???
:lisp-object-files (input-files o s) (bundle-op-build-args o))) :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) (defun bundle-system (system &rest args &key force (verbose t) version &allow-other-keys)
(declare (ignore force verbose version)) (declare (ignore force verbose version))
(apply #'operate 'binary-op system args))) (apply #'operate 'binary-op system args)))
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- 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: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -327,7 +327,7 @@ valid_upgrade_test_p () { ...@@ -327,7 +327,7 @@ valid_upgrade_test_p () {
run_upgrade_tests () { run_upgrade_tests () {
cd ${ASDFDIR} cd ${ASDFDIR}
mkdir -p build/results 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)" ASDF_OUTPUT_TRANSLATIONS="(:output-translations (\"${ASDFDIR}\" (\"${ASDFDIR}/build/fasls/\" :implementation \"asdf/\")) (t (\"${ASDFDIR}/build/fasls/\" :implementation \"root/\")) :ignore-inherited-configuration)"
export ASDF_OUTPUT_TRANSLATIONS export ASDF_OUTPUT_TRANSLATIONS
su=test/script-support.lisp su=test/script-support.lisp
......
...@@ -20,15 +20,20 @@ ...@@ -20,15 +20,20 @@
(defparameter *bundle-1* (output-file 'fasl-op :test-bundle-1)) (defparameter *bundle-1* (output-file 'fasl-op :test-bundle-1))
(defparameter *bundle-2* (output-file 'fasl-op :test-bundle-2)) (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*) (DBG :test-bundle *bundle-1* *bundle-2*)
(assert-equal (list *bundle-2*) (assert-equal (list *bundle-2*)
(input-files 'load-fasl-op :test-bundle-2)) (input-files 'load-fasl-op :test-bundle-2))
(delete-file-if-exists *bundle-1*) (delete-file-if-exists *bundle-1*)
(delete-file-if-exists *bundle-2*) (delete-file-if-exists *bundle-2*)
(delete-file-if-exists *mono-bundle-2*)
(operate 'load-fasl-op :test-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-2*))
(assert (probe-file *bundle-1*)) (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* :*file1* :test-package)))
(assert (symbol-value (find-symbol* :*file3* :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*))
...@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ...@@ -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.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.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 ;; "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))) (existing-version (asdf-version)))
(setf *asdf-version* asdf-version) (setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version))) (when (and existing-version (not (equal asdf-version existing-version)))
......
"2.32.15" "2.32.16"
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment