From cff91cdbb92cd3cea52140f148180af735f0e3cc Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 28 Nov 2000 03:23:04 +0000 Subject: [PATCH] * luna.el (luna-class-find-functions): Quote colon keywords. (luna-send): Likewise. (luna-call-next-method): Likewise. --- ChangeLog | 3 +++ luna.el | 10 +++++----- 2 files changed, 8 insertions(+), 5 deletions(-) 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 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)) -- 1.7.10.4