(eval-when (:compile-toplevel :execute)
  (defvar *foo* '#:foo))

(defun foo () *foo*)

(define-compiler-macro foo () `',*foo*)

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

(eval-when (:load-toplevel)
  (defvar *foo* '#.*foo*))