(let ((key-chord (make-key))
      (keys (cl-strings:split key-chord-string "-")))
  (loop	for key-character-string in (butlast keys)
	do (cond
             ((equal "C" key-character-string) (setf (key-control-modifier key-chord) t))
             ((equal "M" key-character-string) (setf (key-meta-modifier key-chord) t))
             ((equal "S" key-character-string) (setf (key-super-modifier key-chord) t))))
  (setf (key-character-code key-chord) (get-char-code (first (last keys))))
  (push key-chord key-sequence))