From e816c5788cd92bf409dde6d58778462789ad38a6 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 14 May 1999 10:27:54 +0000 Subject: [PATCH] (luna-define-class): Must check each member of parents is slot. --- luna.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) -- 1.7.10.4