(defvar *foo* '#:foo)

(defun foo () *foo*)

(define-compiler-macro foo () `(load-time-value *foo*))

(defun test () (eq *foo* (foo)))