(defmacro example (v &body body)
  (let ((sym (intern "FOO")))
    `(let ((,sym ,v))
       ,@body)))
#|
CL-USER> (example 1 foo)
1
CL-USER> (defpackage :bar (:use :cl))
#<PACKAGE "BAR">
CL-USER> (in-package :bar)
#<PACKAGE "BAR">
BAR> (cl-user::example 1 foo)
1
|#