Function: DEF-FLAG

Source

(defun def-flag (flag value &optional (fs *current-flag-system*))
  (setf (flag-value flag fs) value))