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