(defmacro subs (old new &rest to-subs)
  `(loop for i in ,@to-subs
      collect (if (equal i ',old)
                  (setf i ',new)
                  i )))
turns (print 'x) into (print 'y)
with
(subs 'x 'y '(print 'x))