From: ueno <ueno>
Date: Tue, 28 Nov 2000 03:23:04 +0000 (+0000)
Subject: * luna.el (luna-class-find-functions): Quote colon keywords.
X-Git-Tag: deisui-1_14_0-2000-12-14~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cff91cdbb92cd3cea52140f148180af735f0e3cc;p=elisp%2Fflim.git

* luna.el (luna-class-find-functions): Quote colon keywords.
(luna-send): Likewise.
(luna-call-next-method): Likewise.
---

diff --git a/ChangeLog b/ChangeLog
index f160af3..200d860 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
 
 	* luna.el: Don't require `static'.
 	(luna-define-class-function): Don't bind colon keywords.
+	(luna-class-find-functions): Quote colon keywords.
+	(luna-send): Likewise.
+	(luna-call-next-method): Likewise.
 
 2000-11-21   Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/luna.el b/luna.el
index 7a8cb53..8e755ee 100644
--- a/luna.el
+++ b/luna.el
@@ -162,13 +162,13 @@ BODY is the body of method."
 (defun luna-class-find-functions (class service)
   (let ((sym (luna-class-find-member class service)))
     (if (fboundp sym)
-	(cond ((eq (get sym 'luna-method-qualifier) :before)
+	(cond ((eq (get sym 'luna-method-qualifier) ':before)
 	       (cons (symbol-function sym)
 		     (luna-class-find-parents-functions class service)))
-	      ((eq (get sym 'luna-method-qualifier) :after)
+	      ((eq (get sym 'luna-method-qualifier) ':after)
 	       (nconc (luna-class-find-parents-functions class service)
 		      (list (symbol-function sym))))
-	      ((eq (get sym 'luna-method-qualifier) :around)
+	      ((eq (get sym 'luna-method-qualifier) ':around)
 	       (cons sym (luna-class-find-parents-functions class service)))
 	      (t
 	       (list (symbol-function sym))))
@@ -221,7 +221,7 @@ LUNA-CURRENT-METHOD-ARGUMENTS is arguments of the MESSAGE."
 			       luna-current-method-arguments))
 		  (if (symbolp luna-current-method)
 		      (not (eq (get luna-current-method
-				    'luna-method-qualifier) :around))
+				    'luna-method-qualifier) ':around))
 		    t))))
     luna-previous-return-value))
 
@@ -241,7 +241,7 @@ LUNA-CURRENT-METHOD-ARGUMENTS is arguments of the MESSAGE."
 			       luna-current-method-arguments))
 		  (if (symbolp luna-current-method)
 		      (not (eq (get luna-current-method
-				    'luna-method-qualifier) :around))
+				    'luna-method-qualifier) ':around))
 		    t))))
     luna-previous-return-value))