(remove-keyword-arg all-keys :direct-superclasses)))
(call-next-method)))
(register-metaclass class (nth (1+ (position :direct-slots all-keys))
- all-keys)))
+ all-keys))
+ class)
(defun get-keywords (keys list)
(defun slotdef-for-slot-with-class (slot class)
(typecase slot
(standard-slot-definition slot)
- (symbol
- (find-if #'(lambda (d) (eql slot (slot-definition-name d)))
- (class-slots class)))))
+ (symbol (find-slot-by-name class slot))))
#+ignore
(eval-when (:compile-toplevel :load-toplevel :execute)