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

2.28.8: more consistently check whether or not to check warnings

Fixes lp#1122896
parent 235dce5a
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.28.7" ;; to be automatically updated by make bump-version :version "2.28.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.
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.28.7: Another System Definition Facility. ;;; This is ASDF 2.28.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>.
......
...@@ -130,10 +130,8 @@ ...@@ -130,10 +130,8 @@
`(,f ;; the fasl is the primary output, in first position `(,f ;; the fasl is the primary output, in first position
#+clisp #+clisp
,@`(,(make-pathname :type "lib" :defaults f)) ,@`(,(make-pathname :type "lib" :defaults f))
#+(or clozure sbcl) ,@(when (and *warnings-file-type* (not (builtin-system-p (component-system c))))
,@(let ((s (component-system c))) `(,(make-pathname :type *warnings-file-type* :defaults f)))
(unless (builtin-system-p s) ; includes ASDF itself
`(,(make-pathname :type (warnings-file-type) :defaults f))))
#+ecl #+ecl
,@(unless (use-ecl-byte-compiler-p) ,@(unless (use-ecl-byte-compiler-p)
`(,(compile-file-pathname i :type :object))) `(,(compile-file-pathname i :type :object)))
...@@ -149,16 +147,15 @@ ...@@ -149,16 +147,15 @@
(declare (ignorable o c)) (declare (ignorable o c))
nil) nil)
(defmethod perform ((o compile-op) (c system)) (defmethod perform ((o compile-op) (c system))
(when *warnings-file-type* (when (and *warnings-file-type* (not (builtin-system-p c)))
(perform-lisp-warnings-check o c))) (perform-lisp-warnings-check o c)))
(defmethod input-files ((o compile-op) (c system)) (defmethod input-files ((o compile-op) (c system))
(when *warnings-file-type* (when (and *warnings-file-type* (not (builtin-system-p c)))
(unless (builtin-system-p c) ;; The most correct way to do it would be to use:
;; The most correct way to do it would be to use: ;; (traverse-sub-actions o c :other-systems nil :keep-operation 'compile-op :keep-component 'cl-source-file)
;; (traverse-sub-actions o c :other-systems nil :keep-operation 'compile-op :keep-component 'cl-source-file) ;; but it's expensive and we don't care too much about file order or ASDF extensions.
;; but it's expensive and we don't care too much about file order or ASDF extensions. (loop :for sub :in (sub-components c :type 'cl-source-file)
(loop :for sub :in (sub-components c :type 'cl-source-file) :nconc (remove-if-not 'warnings-file-p (output-files o sub)))))
:nconc (remove-if-not 'warnings-file-p (output-files o sub))))))
(defmethod output-files ((o compile-op) (c system)) (defmethod output-files ((o compile-op) (c system))
(when (and *warnings-file-type* (not (builtin-system-p c))) (when (and *warnings-file-type* (not (builtin-system-p c)))
(if-let ((pathname (component-pathname c))) (if-let ((pathname (component-pathname c)))
......
...@@ -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.28.7") (asdf-version "2.28.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.28.7" "2.28.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