X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=blobdiff_plain;f=luna.el;h=d264c7dd5f413e3f871dc8ba20cf040f75653707;hp=0199aedbec6942ec4fc152bd11f9be4a7c960513;hb=1ab7ff6dca07ad3b338b29565e40b9de5aab046f;hpb=ac7d86b021d89862409f593631d555be5afff3ee

diff --git a/luna.el b/luna.el
index 0199aed..d264c7d 100644
--- 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))))