From 5a625110dbe180a6e824b63c57dd28fd0cac7c67 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 26 Sep 2002 12:30:10 +0000 Subject: [PATCH] Fix last change. --- luna.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 1.7.10.4