git.haldean.org plotter / master stringutil.lisp
master

Tree @master (Download .tar.gz)

stringutil.lisp @masterraw · history · blame

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))