From: yamaoka <yamaoka>
Date: Thu, 26 Sep 2002 12:30:10 +0000 (+0000)
Subject: Fix last change.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a625110dbe180a6e824b63c57dd28fd0cac7c67;p=elisp%2Fflim.git

Fix last change.
---

diff --git a/luna.el b/luna.el
index 9edff1c..24912dc 100644
--- a/luna.el
+++ b/luna.el
@@ -187,7 +187,8 @@ method.  If it is not string, it is treated as BODY.
 
 The optional 5th BODY is the body of the method."
   (let ((method-qualifier (pop definition))
-	args specializer class self clear-cache)
+	(clear-cache (luna-make-clear-method-cache-function name))
+	args specializer class self)
     (if (memq method-qualifier '(:before :after :around))
 	(setq args (pop definition))
       (setq args method-qualifier
@@ -197,8 +198,7 @@ The optional 5th BODY is the body of the method."
 	  self (car specializer)
 	  args (if self
 		   (cons self (cdr args))
-		 (cdr args))
-	  clear-cache (luna-make-clear-method-cache-function name))
+		 (cdr args)))
     (` (let ((func (function
 		    (lambda (, args)
 		      (,@ definition))))