Plaster

(define-class test-class () ((slot-foo :initform "foo") (slot-bar :initform "bar"))) (with-slots (slot-foo slot-bar) (make-instance 'test-class) (print slot-foo) (print slot-bar)) (with-slots (mopu:direct-slot-names 'test-class) (make-instance 'test-class) (print slot-foo) (print slot-bar))