same as def-flag, but creates a constant
(defmacro def-flag* (flag-key const-name value &optional (fs *current-flag-system*)) "same as def-flag, but creates a constant" (setf (flag-value flag-key fs) value) (eval `(defconstant ,const-name ,value)))Source Context