Commit 061bb242 authored by Gary King's avatar Gary King

CLISP wants documentation to come _after_ definition

parent 02b22ea4
......@@ -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)
......
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