From: morioka <morioka>
Date: Fri, 14 May 1999 10:27:54 +0000 (+0000)
Subject: (luna-define-class): Must check each member of parents is slot.
X-Git-Tag: chao-1_13_0~59
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e816c5788cd92bf409dde6d58778462789ad38a6;p=elisp%2Fflim.git

(luna-define-class): Must check each member of parents is slot.
---

diff --git a/luna.el b/luna.el
index 144674c..776698c 100644
--- a/luna.el
+++ b/luna.el
@@ -49,11 +49,12 @@ If SLOTS is specified, TYPE will be defined to have them."
     (while rest
       (setq parent (pop rest))
       (mapatoms (lambda (sym)
-		  (setq name (symbol-name sym))
-		  (unless (intern-soft name oa)
-		    (put (intern name oa) 'luna-member-index i)
-		    (setq i (1+ i))
-		    ))
+		  (when (get sym 'luna-member-index)
+		    (setq name (symbol-name sym))
+		    (unless (intern-soft name oa)
+		      (put (intern name oa) 'luna-member-index i)
+		      (setq i (1+ i))
+		      )))
 		(luna-class-obarray parent))
       )
     (setq rest slots)