Commit e9514f6e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

2.26.66: Attempt for define-package to preserve export.

parent 95f4085f
......@@ -88,7 +88,7 @@ clean:
mrproper: clean
rm -rf .pc/ build-stamp debian/patches/ debian/debhelper.log debian/cl-asdf/ # debian crap
test-upgrade:
test-upgrade: tmp/asdf.lisp
# 1.37 is the last release by Daniel Barlow
# 1.97 is the last release before Gary King takes over
# 1.369 is the last release by Gary King
......
......@@ -6,6 +6,9 @@
(:use :common-lisp :asdf/implementation :asdf/utility :asdf/pathname :asdf/os
:asdf/component :asdf/system :asdf/find-system :asdf/find-component :asdf/operation)
#+gcl<2.7 (:shadowing-import-from :asdf/implementation #:type-of)
(:fmakunbound
#:explain #:output-files #:perform #:perform-with-restarts
#:operation-done-p #:compute-action-stamp #:component-depends-on #:mark-operation-done)
(:export
#:action
#:explain #:operation-description
......
......@@ -14,7 +14,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.65" ;; to be automatically updated by bin/bump-revision
:version "2.26.66" ;; to be automatically updated by bin/bump-revision
:depends-on ()
:components
((:file "asdf")))
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/backward-interface
(:recycle :asdf/backward-interface :asdf)
(:fmakunbound #:component-load-dependencies)
(:use :common-lisp :asdf/implementation :asdf/utility :asdf/pathname :asdf/os
:asdf/component :asdf/system :asdf/operation :asdf/action
:asdf/lisp-build :asdf/operate :asdf/output-translations)
......
......@@ -2,6 +2,7 @@
;;;; ASDF-Bundle
(asdf/package:define-package :asdf/bundle
(:fmakunbound #:trivial-system-p)
(:recycle :asdf/bundle :asdf)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os :asdf/lisp-build
:asdf/component :asdf/system :asdf/find-system :asdf/find-component :asdf/operation
......
......@@ -3,7 +3,9 @@
(asdf/package:define-package :asdf/component
(:recycle :asdf/component :asdf)
(:fmakunbound #:component-relative-pathname #:source-file-type)
(:use :common-lisp :asdf/implementation :asdf/utility :asdf/pathname :asdf/upgrade)
(:intern #:documentation #:long-documentation)
(:export
#:component #:component-find-path
#:component-name #:component-pathname #:component-relative-pathname
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/configuration
(:recycle :asdf/configuration :asdf)
(:fmakunbound #:resolve-location)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os)
(:export
#:get-folder-path
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/find-component
(:recycle :asdf/find-component :asdf)
(:fmakunbound #:find-component)
(:use :common-lisp :asdf/utility :asdf/os
:asdf/component :asdf/system :asdf/find-system)
(:export
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.65: Another System Definition Facility.
;;; This is ASDF 2.26.66: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -2,8 +2,14 @@
;;;; Handle ASDF package upgrade, including implementation-dependent magic.
(asdf/package:define-package :asdf/interface
(:recycle :asdf/interface :asdf)
(:nicknames :asdf)
(:recycle :asdf/interface :asdf)
(:unintern
#:*asdf-revision* #:around #:asdf-method-combination
#:do-traverse #:do-dep #:do-one-dep #:visit-action #:component-visited-p
#:split #:make-collector
#:loaded-systems ; makes for annoying SLIME completion
#:output-files-for-system-and-operation) ; obsolete ASDF-BINARY-LOCATION function
(:use :common-lisp
:asdf/package :asdf/implementation :asdf/utility :asdf/pathname :asdf/os :asdf/upgrade
:asdf/component :asdf/system :asdf/find-system :asdf/find-component
......@@ -133,27 +139,3 @@
(with-upgrade (:when (fboundp 'make-sub-operation))
(defun* make-sub-operation (c o dep-c dep-o)
(declare (ignore c o dep-c dep-o)) (asdf-upgrade-error)))
#|
(pkgdcl
:asdf
:use (:common-lisp)
:fmakunbound
(#:perform #:explain #:output-files #:operation-done-p #:traverse-action #:traverse
#:compute-action-stamp #:component-load-dependencies #:action-valid-p
#:component-depends-on #:perform-plan #:mark-operation-done #:operation-forced
#:perform-with-restarts #:component-relative-pathname
#:system-source-file #:operate #:find-system #:find-component #:find-operation
#:apply-output-translations #:translate-pathname* #:resolve-location
#:system-relative-pathname #:source-file-type #:builtin-system-p
#:inherit-source-registry #:process-source-registry #:process-source-registry-directive
#:compile-file* #:source-file-type #:trivial-system-p)
:fmakunbound-setf (#:output-translations)
:unintern
(#:*asdf-revision* #:around #:asdf-method-combination #:split #:make-collector
#:do-dep #:do-one-dep #:do-traverse #:visit-action #:component-visited-p
#+(or ecl mkcl) #:output-files #+ecl #:trivial-system-p
#:loaded-systems ; makes for annoying SLIME completion
#:output-files-for-system-and-operation) ; obsolete ASDF-BINARY-LOCATION function
:export
|#
......@@ -4,6 +4,7 @@
(asdf/package:define-package :asdf/lisp-build
(:recycle :asdf/lisp-build :asdf)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os)
(:fmakunbound #:compile-file*)
(:export
#:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour*
#:*compile-file-function* #:compile-file* #:compile-file-pathname*
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/operate
(:recycle :asdf/operate :asdf)
(:fmakunbound #:operate)
(:use :common-lisp :asdf/implementation :asdf/utility :asdf/upgrade
:asdf/component :asdf/system :asdf/operation :asdf/action
:asdf/lisp-build :asdf/lisp-action #:asdf/plan
......
......@@ -4,6 +4,8 @@
(asdf/package:define-package :asdf/output-translations
(:recycle :asdf/output-translations :asdf)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os :asdf/configuration :asdf/action)
(:fmakunbound #:apply-output-translations)
(:fmakunbound-setf #:output-translations)
(:export
#:invalid-output-translation
#:output-translations #:output-translations-initialized-p
......
This diff is collapsed.
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/pathname
(:recycle :asdf/pathname :asdf)
(:fmakunbound #:translate-pathname*)
(:use :common-lisp :asdf/utility)
#+gcl<2.7 (:shadowing-import-from :system :*load-pathname*) ;; GCL 2.6 sucks
(:export
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/plan
(:recycle :asdf/plan :asdf)
(:fmakunbound #:traverse #:perform-plan #:traverse-action)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os
:asdf/component :asdf/system :asdf/find-system :asdf/find-component
:asdf/operation :asdf/action)
......
......@@ -4,6 +4,7 @@
(asdf/package:define-package :asdf/source-registry
(:recycle :asdf/source-registry :asdf)
(:fmakunbound #:inherit-source-registry #:process-source-registry #:process-source-registry-directive)
(:use :common-lisp :asdf/implementation :asdf/configuration :asdf/utility :asdf/pathname :asdf/os
:asdf/find-system)
(:export
......
......@@ -3,6 +3,7 @@
(asdf/package:define-package :asdf/system
(:recycle :asdf/system :asdf)
(:fmakunbound #:find-system #:system-source-file #:system-relative-pathname #:builtin-system-p)
(:use :common-lisp :asdf/utility :asdf/pathname :asdf/os :asdf/upgrade
:asdf/component)
(:export
......@@ -13,7 +14,7 @@
#:reset-system #:builtin-system-p
#:system-description #:system-long-description
#:system-author #:system-maintainer #:system-licence #:system-license
#:find-system #:probe-asd ;; forward-reference, defined in find-system
#:find-system #:probe-asd ;; forward-reference, methods defined in find-system
#:%set-system-source-file ;; For internal use only. DO NOT USE.
#:module-components ;; backward-compatibility. DO NOT USE.
#:system-defsystem-depends-on))
......
......@@ -11,7 +11,7 @@
(quit-on-error
(defsystem test-around-compile
:around-compile call-in-base-2
:depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that.
;; :depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that.
:components ((:file "test")))
(load-system 'test-around-compile :force t)
(assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2
......@@ -24,7 +24,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.65")
(asdf-version "2.26.66")
(existing-asdf (find-class 'component 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