From 4b7ed8debc39ac575664137d4508f6141c1b611d Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 14 May 1999 11:21:11 +0000 Subject: [PATCH] (luna-define-class): Regard order of parents' slots. --- luna.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/luna.el b/luna.el index 7b348de..abc3c69 100644 --- a/luna.el +++ b/luna.el @@ -50,14 +50,16 @@ If SLOTS is specified, TYPE will be defined to have them." (let ((oa (make-vector 31 0)) (rest parents) parent name - (i 2)) + (i 2) + b j) (while rest - (setq parent (pop rest)) + (setq parent (pop rest) + b (- i 2)) (mapatoms (lambda (sym) - (when (get sym 'luna-member-index) + (when (setq j (get sym 'luna-member-index)) (setq name (symbol-name sym)) (unless (intern-soft name oa) - (put (intern name oa) 'luna-member-index i) + (put (intern name oa) 'luna-member-index (+ j b)) (setq i (1+ i)) ))) (luna-class-obarray (luna-find-class parent))) -- 1.7.10.4