Loading asdf.lisp +8 −8 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading @@ -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) Loading Loading
asdf.lisp +8 −8 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading @@ -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) Loading