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
061bb242
Commit
061bb242
authored
Aug 19, 2009
by
Gary King
Browse files
CLISP wants documentation to come _after_ definition
parent
02b22ea4
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
061bb242
...
...
@@ -165,14 +165,6 @@
(
defparameter
+asdf-methods+
'
(
perform
explain
output-files
operation-done-p
))
(
setf
(
documentation
'standard-asdf-method-combination
'method-combination
)
"This method combination is based on the standard method combination,
but defines a new method-qualifier, `asdf:around`. `asdf:around`
methods will be run *around* any `:around` methods, so that the core
protocol may employ around methods and those around methods will not
be overridden by around methods added by a system developer."
)
(
define-method-combination
standard-asdf-method-combination
()
((
around-asdf
(
around
))
(
around
(
:around
))
...
...
@@ -200,6 +192,14 @@ be overridden by around methods added by a system developer.")
(
,@
(
rest
around-asdf
)
(
make-method
,
standard-form
)))
standard-form
))))
(
setf
(
documentation
'standard-asdf-method-combination
'method-combination
)
"This method combination is based on the standard method combination,
but defines a new method-qualifier, `asdf:around`. `asdf:around`
methods will be run *around* any `:around` methods, so that the core
protocol may employ around methods and those around methods will not
be overridden by around methods added by a system developer."
)
(
defgeneric
perform
(
operation
component
)
(
:method-combination
standard-asdf-method-combination
))
(
defgeneric
operation-done-p
(
operation
component
)
...
...
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