From 061bb2423a86bc5dac82e607d7c056a16fb01f20 Mon Sep 17 00:00:00 2001 From: Gary King <gwking@franz.com> Date: Wed, 19 Aug 2009 09:17:09 -0400 Subject: [PATCH] CLISP wants documentation to come _after_ definition --- asdf.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 33302148..deadfc30 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) -- GitLab