definitions (by improving slotdef-for-slot-with-class)
result))
(defun slotdef-for-slot-with-class (slot class)
result))
(defun slotdef-for-slot-with-class (slot class)
- (find-if #'(lambda (d) (eql slot (slot-definition-name d)))
- (class-slots class)))
+ (typecase slot
+ (standard-slot-definition slot)
+ (symbol
+ (find-if #'(lambda (d) (eql slot (slot-definition-name d)))
+ (class-slots class)))))
#+ignore
(eval-when (:compile-toplevel :load-toplevel :execute)
#+ignore
(eval-when (:compile-toplevel :load-toplevel :execute)