diff --git a/asdf.lisp b/asdf.lisp index 333021482fecccefe1e61223d33cdc57e400f729..deadfc300f8d1325147282ed86aabe45f0cf8d46 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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)