Commit 7d6d515a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

2.29.4: fix bad/obsolete exports found by stassats.

parent 1d0cec68
......@@ -74,7 +74,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.29.3" ;; to be automatically updated by make bump-version
:version "2.29.4" ;; 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.
......
......@@ -15,9 +15,7 @@
#:monolithic-concatenate-source-op
#:monolithic-load-concatenated-source-op
#:monolithic-compile-concatenated-source-op
#:monolithic-load-compiled-concatenated-source-op
#:component-concatenated-source-file
#:concatenated-source-file))
#:monolithic-load-compiled-concatenated-source-op))
(in-package :asdf/concatenate-source)
;;;
......
......@@ -17,7 +17,7 @@
#:*central-registry* #:probe-asd #:sysdef-central-registry-search
#:find-system-if-being-defined #:*systems-being-defined*
#:contrib-sysdef-search #:sysdef-find-asdf ;; backward compatibility symbols, functions removed
#:system-find-preloaded-system #:register-preloaded-system #:*preloaded-systems*
#:sysdef-find-preloaded-system #:register-preloaded-system #:*preloaded-systems*
#:clear-defined-systems #:*defined-systems*
;; defined in source-registry, but specially mentioned here:
#:initialize-source-registry #:sysdef-source-registry-search))
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.29.3: Another System Definition Facility.
;;; This is ASDF 2.29.4: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -8,7 +8,7 @@
#:*image-dumped-p* #:raw-command-line-arguments #:*command-line-arguments*
#:command-line-arguments #:raw-command-line-arguments #:setup-command-line-arguments
#:*lisp-interaction*
#:fatal-conditions #:fatal-condition-p #:handle-fatal-condition
#:*fatal-conditions* #:fatal-condition-p #:handle-fatal-condition
#:call-with-fatal-condition-handler #:with-fatal-condition-handler
#:*image-restore-hook* #:*image-prelude* #:*image-entry-point*
#:*image-postlude* #:*image-dump-hook*
......@@ -16,7 +16,7 @@
#:shell-boolean-exit
#:register-image-restore-hook #:register-image-dump-hook
#:call-image-restore-hook #:call-image-dump-hook
#:initialize-asdf-utilities #:restore-image #:dump-image #:create-image
#:restore-image #:dump-image #:create-image
))
(in-package :asdf/image)
......
......@@ -52,7 +52,7 @@
#:component #:parent-component #:child-component #:system #:module
#:file-component #:source-file #:c-source-file #:java-source-file
#:cl-source-file #:cl-source-file.cl #:cl-source-file.lsp
#:static-file #:doc-file #:html-file :text-file
#:static-file #:doc-file #:html-file
#:source-file-type
#:component-children ; component accessors
......@@ -81,8 +81,8 @@
#:system-source-directory
#:system-relative-pathname
#:system-homepage
#:system-mailto
#:system-bug-tracker
#:system-developers-email
#:system-long-name
#:system-source-control
#:map-systems
......
......@@ -12,8 +12,7 @@
#:build-system
#:load-system #:load-systems #:compile-system #:test-system #:require-system
#:*load-system-operation* #:module-provide-asdf
#:component-loaded-p #:already-loaded-systems
#:upgrade-asdf #:cleanup-upgraded-asdf #:*post-upgrade-hook*))
#:component-loaded-p #:already-loaded-systems))
(in-package :asdf/operate)
(with-upgradability ()
......@@ -164,6 +163,6 @@ for how to load or compile stuff")
(clrhash *systems-being-defined*)
(dolist (s l) (find-system s nil)))))
(pushnew 'restart-upgraded-asdf *post-upgrade-restart-hook*))
(register-hook-function '*post-upgrade-restart-hook* 'restart-upgraded-asdf))
......@@ -10,7 +10,7 @@
#:invalid-source-registry
#:source-registry #:source-registry-initialized-p
#:initialize-source-registry #:clear-source-registry #:*source-registry*
#:disable-source-registry #:ensure-source-registry #:*source-registry-parameter*
#:ensure-source-registry #:*source-registry-parameter*
#:*default-source-registry-exclusions* #:*source-registry-exclusions*
#:*wild-asd* #:directory-asd-files #:register-asd-directory
#:collect-asds-in-directory #:collect-sub*directories-asd-files
......
......@@ -14,7 +14,6 @@
#:with-input-file #:call-with-input-file
#:finish-outputs #:format! #:safe-format!
#:copy-stream-to-stream #:concatenate-files
#:copy-stream-to-stream-line-by-line
#:slurp-stream-string #:slurp-stream-lines #:slurp-stream-line
#:slurp-stream-forms #:slurp-stream-form
#:read-file-string #:read-file-lines #:read-file-forms #:read-file-form #:safe-read-file-form
......
......@@ -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.29.3")
(asdf-version "2.29.4")
(existing-version (asdf-version)))
(setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version)))
......
......@@ -27,7 +27,6 @@
#:call-function #:call-functions #:register-hook-function
#:match-condition-p #:match-any-condition-p ;; conditions
#:call-with-muffled-conditions #:with-muffled-conditions
#:load-string #:load-stream
#:lexicographic< #:lexicographic<=
#:parse-version #:unparse-version #:version< #:version<= #:version-compatible-p)) ;; version
(in-package :asdf/utility)
......@@ -398,9 +397,6 @@ with later being determined by a lexicographical comparison of minor numbers."
;;; Condition control
(with-upgradability ()
(defvar *uninteresting-conditions* nil
"Uninteresting conditions, as per MATCH-CONDITION-P")
(defparameter +simple-condition-format-control-slot+
#+abcl 'system::format-control
#+allegro 'excl::format-control
......@@ -437,7 +433,7 @@ or a string describing the format-control of a simple-condition."
(muffle-warning c)))))
(funcall thunk)))
(defmacro with-muffled-uninteresting-conditions ((conditions) &body body)
`(call-with-muffled-uninteresting-conditions #'(lambda () ,@body) ,conditions)))
(defmacro with-muffled-conditions ((conditions) &body body)
`(call-with-muffled-conditions #'(lambda () ,@body) ,conditions)))
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