(defmacro save-variable ((variable &optional new) &body body)
  (let ((name (gensym)))
    `(let ((,name (or ,new ,variable))) ,@body (setf ,variable ,name))))