TEST> (defclass foo ()
        ((bar :accessor bar :initarg :bar :initform 42)
         (baz :accessor baz :initarg :baz :initform :forty-two)))
#<STANDARD-CLASS FOO>

TEST> (defvar *my-foo* (make-instance 'foo :bar 24))
*MY-FOO*

TEST> (reinitialize-instance *my-foo*)
#<FOO {100DAC53C3}>

TEST> (bar *my-foo*)
24

TEST> (baz *my-foo*)
:FORTY-TWO