(assert (equal (mapcar #'slot-definition-allocation
(class-slots (find-class 'class-to-add-instance-slot)))
;; FIXME: is the order really guaranteed?
(assert (equal (mapcar #'slot-definition-allocation
(class-slots (find-class 'class-to-add-instance-slot)))
;; FIXME: is the order really guaranteed?
(assert (equal (mapcar #'slot-definition-allocation
(class-slots (find-class 'class-to-add-class-slot)))
'(:class :class)))
(assert (equal (mapcar #'slot-definition-allocation
(class-slots (find-class 'class-to-add-class-slot)))
'(:class :class)))
;;; (addendum to test for #331: conditions suffered the same problem)
(define-condition condition-bug-331-super () ())
(define-condition condition-bug-331-sub (condition-bug-331-super) ())
;;; (addendum to test for #331: conditions suffered the same problem)
(define-condition condition-bug-331-super () ())
(define-condition condition-bug-331-sub (condition-bug-331-super) ())
(find-class 'condition-bug-331-super))))
(assert (= 1 (length subs)))
(assert (eq (car subs) (find-class 'condition-bug-331-sub))))
(find-class 'condition-bug-331-super))))
(assert (= 1 (length subs)))
(assert (eq (car subs) (find-class 'condition-bug-331-sub))))
(list (find-class 'condition-bug-331a))))))
;;; detection of multiple class options in defclass, reported by Bruno Haible
(list (find-class 'condition-bug-331a))))))
;;; detection of multiple class options in defclass, reported by Bruno Haible