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

diff --git a/luna.el b/luna.el
index 144674c..776698c 100644 (file)
--- 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)