(with-test (:name (compute-slots funcallable-standard-class :order))
(let ((class (find-class 'funcallable-rearranged-class)))
(finalize-inheritance class)
(with-test (:name (compute-slots funcallable-standard-class :order))
(let ((class (find-class 'funcallable-rearranged-class)))
(finalize-inheritance class)