From 9e4490012943e28920fc036c6df0096b91c168e6 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 14 May 1999 10:34:57 +0000 Subject: [PATCH] (luna-define-class): Fixed. --- luna.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/luna.el b/luna.el index 776698c..e4a36e2 100644 --- a/luna.el +++ b/luna.el @@ -55,7 +55,7 @@ If SLOTS is specified, TYPE will be defined to have them." (put (intern name oa) 'luna-member-index i) (setq i (1+ i)) ))) - (luna-class-obarray parent)) + (luna-class-obarray (luna-find-class parent))) ) (setq rest slots) (while rest @@ -65,7 +65,7 @@ If SLOTS is specified, TYPE will be defined to have them." (setq i (1+ i)) )) `(luna-set-class ',type - (vector 'class ,oa ,parents ,i)) + (vector 'class ,oa ',parents ,i)) )) (defmacro luna-class-name (entity) -- 1.7.10.4