(defmacro define-variable-with-file-contents (name file)
  `(progn
     (eval-when (:compile-toplevel)
       (defparameter ,name (com.informatimago.common-lisp.cesarum.file:text-file-contents
                            name :if-does-not-exist nil)))
     (eval-when (:load-toplevel :execute)
       (defvar ,name))))