Skip to content
Snippets Groups Projects
Commit 061bb242 authored by Gary King's avatar Gary King
Browse files

CLISP wants documentation to come _after_ definition

parent 02b22ea4
No related branches found
No related tags found
No related merge requests found
...@@ -165,14 +165,6 @@ ...@@ -165,14 +165,6 @@
(defparameter +asdf-methods+ (defparameter +asdf-methods+
'(perform explain output-files operation-done-p)) '(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 () (define-method-combination standard-asdf-method-combination ()
((around-asdf (around)) ((around-asdf (around))
(around (:around)) (around (:around))
...@@ -200,6 +192,14 @@ be overridden by around methods added by a system developer.") ...@@ -200,6 +192,14 @@ be overridden by around methods added by a system developer.")
(,@(rest around-asdf) (make-method ,standard-form))) (,@(rest around-asdf) (make-method ,standard-form)))
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) (defgeneric perform (operation component)
(:method-combination standard-asdf-method-combination)) (:method-combination standard-asdf-method-combination))
(defgeneric operation-done-p (operation component) (defgeneric operation-done-p (operation component)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment