Plaster

(defclass wibble () ((quux :accessor wibble-quux :initarg :quux :initform 10))) (defun do-something-with-wibble (wibble-instance) (with-accessors ((quux wibble-quux)) wibble-instance (incf quux 10)))