(let ((r (make-instance 'funcallable-rearranged-class))
(r2 (make-instance 'funcallable-rearranged-class :a 3 :b 4)))
(assert (eql (slot-value r 'a) 1))
(assert (eql (slot-value r 'b) 2))
(assert (eql (slot-value r2 'a) 3))
(assert (eql (slot-value r2 'b) 4))))
(let ((r (make-instance 'funcallable-rearranged-class))
(r2 (make-instance 'funcallable-rearranged-class :a 3 :b 4)))
(assert (eql (slot-value r 'a) 1))
(assert (eql (slot-value r 'b) 2))
(assert (eql (slot-value r2 'a) 3))
(assert (eql (slot-value r2 'b) 4))))