Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Pascal J. Bourguignon
asdf
Commits
ac543b76
Commit
ac543b76
authored
Sep 19, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Update comments in backward-interface.lisp
parent
d9c775e3
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
0 deletions
+16
-0
backward-interface.lisp
backward-interface.lisp
+16
-0
No files found.
backward-interface.lisp
View file @
ac543b76
...
...
@@ -20,6 +20,10 @@
(
in-package
:asdf/backward-interface
)
(
with-upgradability
()
;; These conditions from ASDF 1 and 2 are used by many packages in Quicklisp;
;; but ASDF3 replaced them with somewhat different variants of uiop:compile-condition
;; that do not involve ASDF actions.
;; TODO: find the offenders and stop them.
(
define-condition
operation-error
(
error
)
;; Bad, backward-compatible name
;; Used by SBCL, cffi-tests, clsql-mysql, clsql-uffi, qt, elephant, uffi-tests, sb-grovel
((
component
:reader
error-component
:initarg
:component
)
...
...
@@ -36,8 +40,16 @@
(
component-sideway-dependencies
component
))
(
defgeneric
operation-forced
(
operation
))
;; Used by swank.asd for swank-loader.
;; swank.asd looks at where the operation was forced to actually reload swank.
;; But the only reason the action would be performed again is because it was forced;
;; so the check is redundant. More generally, if you have to do it when the operation was forced,
;; you should do it when not, and vice-versa, because it really shouldn't matter.
;; Thus, the backward-compatible thing to do is to always return T.
(
defmethod
operation-forced
((
o
operation
))
(
getf
(
operation-original-initargs
o
)
:force
))
;; These old interfaces from ASDF1 have never been very meaningful
;; but are still used in obscure places.
(
defgeneric
operation-on-warnings
(
operation
))
(
defgeneric
operation-on-failure
(
operation
))
(
defgeneric
(
setf
operation-on-warnings
)
(
x
operation
))
...
...
@@ -64,6 +76,9 @@ or even ASDF:SYSTEM-SOURCE-DIRECTORY or ASDF:SYSTEM-RELATIVE-PATHNAME
if that's whay you mean."
;;)
(
system-source-file
x
))
;; TRAVERSE is the function used to compute a plan in ASDF 1 and 2.
;; It was never officially exposed but some people still used it.
(
defgeneric*
(
traverse
)
(
operation
component
&key
&allow-other-keys
)
(
:documentation
"Generate and return a plan for performing OPERATION on COMPONENT.
...
...
@@ -79,6 +94,7 @@ processed in order by OPERATE."))
;;;; ASDF-Binary-Locations compatibility
;; This remains supported for legacy user, but not recommended for new users.
;; We suspect there are no more legacy users in 2016.
(
with-upgradability
()
(
defun
enable-asdf-binary-locations-compatibility
(
&key
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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