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

2.26.76: export bork, shuffle some bits, fix some tests and asds

parent b85a57df
......@@ -51,9 +51,21 @@ archive-copy: archive build/asdf.lisp
${MAKE} push
git checkout master
driver_lisp := header.lisp package.lisp compatibility.lisp utility.lisp upgrade.lisp pathname.lisp stream.lisp os.lisp image.lisp run-program.lisp lisp-build.lisp
asdf_lisp := component.lisp system.lisp find-system.lisp find-component.lisp operation.lisp action.lisp lisp-action.lisp plan.lisp operate.lisp configuration.lisp output-translations.lisp source-registry.lisp backward-internals.lisp defsystem.lisp bundle.lisp concatenate-source.lisp backward-interface.lisp interface.lisp footer.lisp
build/asdf.lisp: $(wildcard *.lisp)
mkdir -p build
cat header.lisp package.lisp compatibility.lisp utility.lisp upgrade.lisp pathname.lisp stream.lisp os.lisp image.lisp run-program.lisp component.lisp system.lisp find-system.lisp find-component.lisp lisp-build.lisp operation.lisp action.lisp lisp-action.lisp plan.lisp operate.lisp configuration.lisp output-translations.lisp source-registry.lisp backward-internals.lisp defsystem.lisp bundle.lisp concatenate-source.lisp backward-interface.lisp interface.lisp footer.lisp > $@
cat $(driver_lisp) $(asdf_lisp) > $@
wc:
wc $(driver_lisp) $(asdf_lisp) | sort -n
wc-driver:
wc $(driver_lisp)
wc-asdf:
wc $(asdf_lisp)
push:
git status
......@@ -211,7 +223,7 @@ release: TODO test-all test-on-other-machines-too debian-changelog debian-packag
test-all test-all-lisps test-all-noupgrade \
debian-package release \
replace-sbcl-asdf replace-ccl-asdf \
fix-local-git-tags fix-remote-git-tags
fix-local-git-tags fix-remote-git-tags wc wc-driver wc-asdf
# RELEASE checklist:
# make test-all
......
......@@ -15,4 +15,4 @@ that you can't portably construct a complete program without using them."
(:file "os" :depends-on ("pathname" "stream"))
(:file "image" :depends-on ("os"))
(:file "run-program" :depends-on ("os"))
(:file "lisp-build" :depends-on ("pathname"))))
(:file "lisp-build" :depends-on ("image"))))
......@@ -15,7 +15,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.75" ;; to be automatically updated by bin/bump-revision
:version "2.26.76" ;; to be automatically updated by bin/bump-revision
:depends-on ()
:components ((:module "build" :components ((:file "asdf")))))
......
......@@ -55,7 +55,11 @@
(< system::*gcl-minor-version* 7)))
(shadow 'type-of :asdf/compatibility)
(pushnew 'ignorable pcl::*variable-declarations-without-argument*)
(pushnew :gcl<2.7 *features*)))
(pushnew :gcl<2.7 *features*))
(unless (member :ansi-cl *features*)
(error "ASDF only supports GCL in ANSI mode. Aborting.~%"))
(setf compiler::*compiler-default-type* (pathname "")
compiler::*lsp-ext* ""))
#+mkcl
(eval-when (:load-toplevel :compile-toplevel :execute)
......
......@@ -8,8 +8,9 @@
:class :concatenated-source-system
;; :include-dependencies t
:translate-output-p nil
:concatenated-source-file "tmp/generated-asdf.lisp"
:concatenated-source-file "build/asdf.lisp"
:serial t
:depends-on (:asdf-driver)
:components
((:file "upgrade")
(:file "component")
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.75: Another System Definition Facility.
;;; This is ASDF 2.26.76: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
This diff is collapsed.
......@@ -4,8 +4,8 @@
(quit-on-error
(let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
(fasl2 (asdf:compile-file-pathname* (truename "file2.lisp")))
(ns1 (native-namestring fasl1))
(ns2 (native-namestring fasl2)))
(ns1 (asdf::native-namestring fasl1))
(ns2 (asdf::native-namestring fasl2)))
(asdf:run-shell-command "rm -f ~A ~A" ns1 ns2)
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(DBG "should load file1 but not file2")
......
......@@ -31,7 +31,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.75")
(asdf-version "2.26.76")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*)
(already-there (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