Commit 3e3581d2 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

2.31.6: disable deferred warnings check by default, until a smooth upgrade solution is found.

parent db1eba60
......@@ -74,7 +74,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.31.5" ;; to be automatically updated by make bump-version
:version "2.31.6" ;; 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.
......
This diff is collapsed.
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.31.5: Another System Definition Facility.
;;; This is ASDF 2.31.6: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -134,7 +134,7 @@
#:apply-output-translations
#:compile-file*
#:compile-file-pathname*
#:*warnings-file-type*
#:*warnings-file-type* #:enable-deferred-warnings-check #:disable-deferred-warnings-check
#:enable-asdf-binary-locations-compatibility
#:*default-source-registries*
#:*source-registry-parameter*
......
......@@ -22,6 +22,7 @@
#:reify-deferred-warnings #:reify-undefined-warning #:unreify-deferred-warnings
#:reset-deferred-warnings #:save-deferred-warnings #:check-deferred-warnings
#:with-saved-deferred-warnings #:warnings-file-p #:warnings-file-type #:*warnings-file-type*
#:enable-deferred-warnings-check #:disable-deferred-warnings-check
#:current-lisp-file-pathname #:load-pathname
#:lispize-pathname #:compile-file-type #:call-around-hook
#:compile-file* #:compile-file-pathname*
......@@ -446,9 +447,15 @@ possibly in a different process."
((:clozure :ccl) "ccl-warnings")
((:scl) "scl-warnings")))
(defvar *warnings-file-type* (warnings-file-type)
(defvar *warnings-file-type* nil
"Type for warnings files")
(defun enable-deferred-warnings-check ()
(setf *warnings-file-type* (warnings-file-type)))
(defun disable-deferred-warnings-check ()
(setf *warnings-file-type* nil))
(defun warnings-file-p (file &optional implementation-type)
(if-let (type (if implementation-type
(warnings-file-type implementation-type)
......
......@@ -2,7 +2,7 @@
;;;; Operations
(asdf/package:define-package :asdf/operation
(:recycle :asdf/operation :asdf)
(:recycle :asdf/operation :asdf/action :asdf) ;; asdf/action for FEATURE pre 2.31.5.
(:use :asdf/common-lisp :asdf/driver :asdf/upgrade)
(:export
#:operation
......
......@@ -2,6 +2,8 @@
(in-package :asdf-test)
(enable-deferred-warnings-check)
(def-test-system :unintern-foo
:components ((:file "unintern-foo")))
(def-test-system :use-foo-only
......
......@@ -2,19 +2,15 @@
;;; make sure we get a missing-component error
(in-package :asdf-test)
(progn
(trace operate)
(handler-case
(asdf:oos 'asdf:load-op 'system-does-not-exist)
(asdf:missing-component-of-version (c)
(declare (ignore c))
(error "Should not have gotten 'missing-component-of-version, dang"))
(asdf:missing-component (c)
(format t "got missing-component as expected: - ~%~A~%" c))
(:no-error (c)
(declare (ignore c))
(error "should have failed, oops"))))
(handler-case
(asdf:oos 'asdf:load-op 'system-does-not-exist)
(asdf:missing-component-of-version (c)
(declare (ignore c))
(error "Should not have gotten 'missing-component-of-version, dang"))
(asdf:missing-component (c)
(format t "got missing-component as expected: - ~%~A~%" c))
(:no-error (c)
(declare (ignore c))
(error "should have failed, oops")))
......@@ -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.31.5")
(asdf-version "2.31.6")
(existing-version (asdf-version)))
(setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment