1 2 3 4 5 6 7 8
(load "package.lisp") (in-package :so3-cnc) (defun split-by-one-space (string) (loop for i = 0 then (1+ j) as j = (position #\Space string :start i) collect (subseq string i j) while j))