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

2.30.8: this version has actually been built with new-style SBCL requires.

parent 76f2f42a
No related branches found
No related tags found
No related merge requests found
...@@ -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.30.7" ;; to be automatically updated by make bump-version :version "2.30.8" ;; 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.
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
(:export (:export
#:bundle-op #:bundle-op-build-args #:bundle-type #:bundle-system #:bundle-pathname-type #:bundle-op #:bundle-op-build-args #:bundle-type #:bundle-system #:bundle-pathname-type
#:fasl-op #:load-fasl-op #:lib-op #:dll-op #:binary-op #:fasl-op #:load-fasl-op #:lib-op #:dll-op #:binary-op
#:monolithic-op #:monolithic-bundle-op #:direct-dependency-files #:monolithic-op #:monolithic-bundle-op #:bundlable-file-p #:direct-dependency-files
#:monolithic-binary-op #:monolithic-fasl-op #:monolithic-lib-op #:monolithic-dll-op #:monolithic-binary-op #:monolithic-fasl-op #:monolithic-lib-op #:monolithic-dll-op
#:program-op #:program-op
#:compiled-file #:precompiled-system #:prebuilt-system #:compiled-file #:precompiled-system #:prebuilt-system
...@@ -168,10 +168,10 @@ ...@@ -168,10 +168,10 @@
(defun bundlable-file-p (pathname) (defun bundlable-file-p (pathname)
(let ((type (pathname-type pathname))) (let ((type (pathname-type pathname)))
(declare (ignorable type)) (declare (ignorable type))
(or #+ecl (or (equal type (compile-file-type :type :object)) (or #+ecl (or (equalp type (compile-file-type :type :object))
(equal type (compile-file-type :type :static-library))) (equalp type (compile-file-type :type :static-library)))
#+mkcl (equal type (compile-file-type :fasl-p nil)) #+mkcl (equalp type (compile-file-type :fasl-p nil))
#+(or allegro clisp clozure cmu lispworks sbcl scl xcl) (equal type (compile-file-type))))) #+(or allegro clisp clozure cmu lispworks sbcl scl xcl) (equalp type (compile-file-type)))))
(defgeneric* (trivial-system-p) (component)) (defgeneric* (trivial-system-p) (component))
...@@ -398,8 +398,8 @@ ...@@ -398,8 +398,8 @@
#-(or ecl mkcl) #-(or ecl mkcl)
(defmethod perform ((o fasl-op) (c system)) (defmethod perform ((o 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 #'string=)) (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 #'string=)) (non-fasl-files (remove (compile-file-type) input-files :key #'pathname-type :test #'equalp))
(output-files (output-files o c)) (output-files (output-files o c))
(output-file (first output-files))) (output-file (first output-files)))
(unless input-files (format t "WTF no input-files for ~S on ~S !???" o c)) (unless input-files (format t "WTF no input-files for ~S on ~S !???" o c))
...@@ -419,6 +419,9 @@ ...@@ -419,6 +419,9 @@
(declare (ignorable o)) (declare (ignorable o))
(bundle-output-files (find-operation o 'fasl-op) s)) (bundle-output-files (find-operation o 'fasl-op) s))
(defmethod perform ((o load-op) (s precompiled-system))
(perform-lisp-load-fasl o s))
(defmethod component-depends-on ((o load-fasl-op) (s precompiled-system)) (defmethod component-depends-on ((o load-fasl-op) (s precompiled-system))
(declare (ignorable o)) (declare (ignorable o))
`((load-op ,s) ,@(call-next-method)))) `((load-op ,s) ,@(call-next-method))))
......
...@@ -234,13 +234,16 @@ Going forward, we recommend new users should be using the source-registry. ...@@ -234,13 +234,16 @@ Going forward, we recommend new users should be using the source-registry.
(defvar *preloaded-systems* (make-hash-table :test 'equal)) (defvar *preloaded-systems* (make-hash-table :test 'equal))
(defun make-preloaded-system (name keys)
(apply 'make-instance (getf keys :class 'system)
:name name :source-file (getf keys :source-file)
(remove-plist-keys '(:class :name :source-file) keys)))
(defun sysdef-preloaded-system-search (requested) (defun sysdef-preloaded-system-search (requested)
(let ((name (coerce-name requested))) (let ((name (coerce-name requested)))
(multiple-value-bind (keys foundp) (gethash name *preloaded-systems*) (multiple-value-bind (keys foundp) (gethash name *preloaded-systems*)
(when foundp (when foundp
(apply 'make-instance (getf keys :class 'system) (make-preloaded-system name keys)))))
:name name :source-file (getf keys :source-file)
(remove-plist-keys '(:class :name :source-file) keys))))))
(defun register-preloaded-system (system-name &rest keys) (defun register-preloaded-system (system-name &rest keys)
(setf (gethash (coerce-name system-name) *preloaded-systems*) keys)) (setf (gethash (coerce-name system-name) *preloaded-systems*) keys))
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.30.7: Another System Definition Facility. ;;; This is ASDF 2.30.8: 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>.
......
...@@ -106,7 +106,7 @@ ...@@ -106,7 +106,7 @@
"~/asdf-action::format-action/" (list (cons o c)))))) "~/asdf-action::format-action/" (list (cons o c))))))
(defun report-file-p (f) (defun report-file-p (f)
(equal (pathname-type f) "build-report")) (equalp (pathname-type f) "build-report"))
(defun perform-lisp-warnings-check (o c) (defun perform-lisp-warnings-check (o c)
(let* ((expected-warnings-files (remove-if-not #'warnings-file-p (input-files o c))) (let* ((expected-warnings-files (remove-if-not #'warnings-file-p (input-files o c)))
(actual-warnings-files (loop :for w :in expected-warnings-files (actual-warnings-files (loop :for w :in expected-warnings-files
......
...@@ -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.30.7") (asdf-version "2.30.8")
(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.30.7" "2.30.8"
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