* luna.el (luna-define-method): Fix the bug that method cache is not cleard.

[elisp/flim.git] / luna.el

diff --git a/luna.el b/luna.el
index 0199aed..d264c7d 100644 (file)
--- a/luna.el
+++ b/luna.el
@@ -165,7 +165,7 @@ The optional 5th BODY is the body of the method."
                 (luna-find-class ',class) ',name))
           (cache (get ',name 'luna-method-cache)))
        (if cache
-          (unintern ',class cache))
+          (unintern (symbol-name ',class) cache))
        (fset sym func)
        (put sym 'luna-method-qualifier ,method-qualifier))))