Plaster

CL-USER> (defclass foo () ((bar :initarg :bar)) (:default-initargs :bar 42)) #<STANDARD-CLASS COMMON-LISP-USER::FOO> CL-USER> (allocate-instance (find-class 'foo)) #<FOO {100B457733}> CL-USER> (initialize-instance *) #<FOO {100B457733}> CL-USER> (describe *) #<FOO {100B457733}> [standard-object] Slots with :INSTANCE allocation: BAR = #<unbound slot> ; No value