Plaster

common-lisp
(defclass my-class () ((foo :accessor foo :initarg :foo :record-history t) (bar :accessor bar :initarg :bar :record-history nil)) (:metaclass slot-history-recording-class))