From: morioka <morioka>
Date: Fri, 14 May 1999 10:34:57 +0000 (+0000)
Subject: (luna-define-class): Fixed.
X-Git-Tag: chao-1_13_0~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e4490012943e28920fc036c6df0096b91c168e6;p=elisp%2Fflim.git

(luna-define-class): Fixed.
---

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)