Function: UPDATE-FLAG-SYSTEM

Source

(defun update-flag-system (fs new-parent)
  (setf (flag-system-parent fs) new-parent)
  fs)