(defun split-string (string &key (start 0) (end (length string)))
(let ((position (position #\sp string :start start :end end)))
(defun split-string (string &key (start 0) (end (length string)))
(let ((position (position #\sp string :start start :end end)))