Plaster

(defun names (structure) (if (atom structure) (list structure) (reduce #'append (mapcar #'names structure)))) (defmacro destructuring-setf (structure tree) `(multiple-value-setq ,names (destructuring-bind ,structure ,tree (values ,@names))))