Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
7d6d515a
Commit
7d6d515a
authored
Feb 18, 2013
by
Francois-Rene Rideau
Browse files
2.29.4: fix bad/obsolete exports found by stassats.
parent
1d0cec68
Changes
12
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
7d6d515a
...
...
@@ -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.
...
...
concatenate-source.lisp
View file @
7d6d515a
...
...
@@ -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
)
;;;
...
...
find-system.lisp
View file @
7d6d515a
...
...
@@ -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
#:sys
tem
-find-preloaded-system
#:register-preloaded-system
#:*preloaded-systems*
#:sys
def
-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
))
...
...
header.lisp
View file @
7d6d515a
;;; -*- 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>.
...
...
image.lisp
View file @
7d6d515a
...
...
@@ -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
)
...
...
interface.lisp
View file @
7d6d515a
...
...
@@ -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
...
...
operate.lisp
View file @
7d6d515a
...
...
@@ -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
))
source-registry.lisp
View file @
7d6d515a
...
...
@@ -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
...
...
stream.lisp
View file @
7d6d515a
...
...
@@ -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
...
...
upgrade.lisp
View file @
7d6d515a
...
...
@@ -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
)))
...
...
utility.lisp
View file @
7d6d515a
...
...
@@ -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
)))
version.lisp-expr
View file @
7d6d515a
"2.29.
3
"
"2.29.
4
"
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment