* luna.el (luna-define-method): Don't clear method cache because old Emacs
authoryamaoka <yamaoka>
Fri, 15 Dec 2000 09:14:39 +0000 (09:14 +0000)
committeryamaoka <yamaoka>
Fri, 15 Dec 2000 09:14:39 +0000 (09:14 +0000)
 does not have `unintern'.

luna.el

diff --git a/luna.el b/luna.el
index 3481bad..bf2c76d 100644 (file)
--- a/luna.el
+++ b/luna.el
@@ -189,10 +189,7 @@ The optional 5th BODY is the body of the method."
                                 (cdr args)))
                      (,@ definition))))
             (sym (luna-class-find-or-make-member
-                  (luna-find-class '(, class)) '(, name)))
-            (cache (get '(, name) 'luna-method-cache)))
-        (if cache
-            (unintern '(, class) cache))
+                  (luna-find-class '(, class)) '(, name))))
         (fset sym func)
         (put sym 'luna-method-qualifier (, method-qualifier))))))