[SBCL] CL-USER> (defparameter *foo* 1)
*FOO*

[SBCL] CL-USER> (defun foo () `#(,*foo*))
FOO

[SBCL] CL-USER> (defun bar () #(#.*foo*))
BAR

[SBCL] CL-USER> (setf *foo* 2)
2

[SBCL] CL-USER> (foo)
#(2)

[SBCL] CL-USER> (bar)
#(1)