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