(defmacro define-macro (name variable)
  `(defmacro ,name ()
     `(symbol-value ',',variable)))

(macroexpand-1 '(define-macro foo-value *foo*))

;; =>
;; (DEFMACRO FOO-VALUE () `(SYMBOL-VALUE ','*FOO*))