Advertisement
Guest User

Untitled

a guest
May 16th, 2019
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. (defmacro save-variable ((variable &optional new) &body body)
  2. (let ((name (gensym)))
  3. `(let ((,name (or ,new ,variable))) ,@body (setf ,variable ,name))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement