Macro: ALLF

Source

(defmacro allf (val &rest args)
  (with-gensyms (gval)
    `(let ((,gval ,val))
      (setf ,@(mapcan (lambda (a) `(,a ,gval))
		      args)))))