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

2.26.150: cleanup the .asd file and some internal messages and comments.

Keep the obsolete slot properties for the sake of upgrade.
parent 0f685693
No related branches found
No related tags found
No related merge requests found
......@@ -206,7 +206,7 @@ release: TODO test-all test-on-other-machines-too debian-changelog debian-packag
# RELEASE checklist:
# make test-all
# ./bin/bump-version 2.27
# ./bin/bump-version 3.0
# edit debian/changelog
# make release-push archive-copy website debian-package
# dput mentors ../*.changes
......
......@@ -60,14 +60,12 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.149" ;; to be automatically updated by make bump-version
:version "2.26.150" ;; to be automatically updated by make bump-version
:depends-on ()
:components
((:module "build"
:components
(#-gcl2.6
(:file "asdf"
#-asdf3 :do-first #-asdf3 ((compile-op (load-source-op "asdf")))
))))
:in-order-to
(#+asdf3 (compile-op (monolithic-load-concatenated-source-op asdf/defsystem))))
#-asdf3 :do-first #+asdf3 :in-order-to ((compile-op (load-source-op "asdf")))))))
:in-order-to (#+asdf3 (prepare-source-op (monolithic-concatenate-source-op :asdf/defsystem))))
......@@ -55,7 +55,7 @@
(defun* %resolve-if-component-dep-fails (if-component-dep-fails component)
(asdf-message "The system definition for ~S uses deprecated ~
ASDF option :IF-COMPONENT-DEP-DAILS. ~
Starting with ASDF 2.27, please use :IF-FEATURE instead"
Starting with ASDF 3, please use :IF-FEATURE instead"
(coerce-name (component-system component)))
;; This only supports the pattern of use of the "feature" seen in the wild
(check-type component parent-component)
......
......@@ -4,14 +4,13 @@
(load (make-pathname :name "prelude" :type "lisp" :defaults *load-pathname*)
:verbose nil :print nil)
(defpackage :asdf-builder (:use :cl :asdf/driver :asdf :fare-utils :inferior-shell))
(defpackage :asdf-builder (:use :cl :asdf/driver :asdf/operate :asdf :fare-utils :inferior-shell))
(in-package :asdf-builder)
(asdf-debug)
(defun build-asdf ()
;; Make sure asdf.lisp is built.
(build-system :asdf/defsystem)
"Make sure asdf.lisp is built"
(load-system :asdf)
(values))
......
......@@ -99,6 +99,7 @@ another pathname in a degenerate way."))
(operation-times :initform (make-hash-table)
:accessor component-operation-times)
(around-compile :initarg :around-compile)
(properties) ;; Only for backward-compatibility during upgrades from ASDF2. DO NOT USE.
(%encoding :accessor %component-encoding :initform nil :initarg :encoding)
;; For backward-compatibility, this slot is part of component rather than child-component. ASDF4: don't.
(parent :initarg :parent :initform nil :reader component-parent)
......
......@@ -117,7 +117,7 @@
(typep (find-component parent name)
(class-for-type parent type))))
(error 'duplicate-names :name name))
(when do-first (error "DO-FIRST is not supported anymore as of ASDF 2.27"))
(when do-first (error "DO-FIRST is not supported anymore as of ASDF 3"))
(let* ((args `(:name ,(coerce-name name)
:pathname ,pathname
,@(when parent `(:parent ,parent))
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.26.149: Another System Definition Facility.
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.26.150: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -4,7 +4,7 @@
;; See https://bugs.launchpad.net/asdf/+bug/485687
;;
;; CAUTION: we must handle the first few packages specially for hot-upgrade.
;; asdf/package will be frozen as of 2.27
;; asdf/package will be frozen as of ASDF 3
;; to forever export the same exact symbols.
;; Any other symbol must be import-from'ed
;; and reexported in a different package
......
......@@ -35,7 +35,7 @@
;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.26.149")
(asdf-version "2.26.150")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))
......
"2.26.149"
"2.26.150"
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