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

CLISP wants documentation to come _after_ definition

parent 02b22ea4
Loading
Loading
Loading
Loading
+8 −8
Original line number Diff line number Diff line
@@ -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)