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