(in-package :cl-user) (defmacro define-constant (name value) `(progn (set' ,name ,value) (define-symbol-macro ,name (identity (symbol-value ',name))) ',name))