Function: (SETF FIND-FLAG-SYSTEM)

Source

(defun (setf find-flag-system) (system name)
  (setf (gethash name *flag-systems*) system))