+(defun ndelimited-string-to-list (sequence &optional (separator #\space))
+ "Split a string by a delimitor"
+ (loop
+ with start = 0
+ for end = (position separator sequence :start start)
+ collect (nsubseq sequence start end)
+ until (null end)
+ do
+ (setf start (1+ end))))
+