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