Function: USE-FLAGSYSTEM

Source

(defun use-flagsystem (name)
  (setf *current-flag-system*
	(find-flag-system name)))