(let* ((slot-name (constant-form-value slot-name env))
(bind-object (unless (or (constantp new-value env) (atom new-value))
(let* ((object-var (gensym))
(let* ((slot-name (constant-form-value slot-name env))
(bind-object (unless (or (constantp new-value env) (atom new-value))
(let* ((object-var (gensym))