(load "package.lisp")
(load "stringutil.lisp")
(in-package :so3-cnc)
(ql:quickload :parse-float)
(ql:quickload :split-sequence)
(defun parse-paths-line (l)
(let* ((coords-strs (split-sequence:split-sequence #\Space l))
(coords (mapcar (lambda (s)
(mapcar #'parse-float:parse-float (split-sequence:split-sequence #\Comma s)))
coords-strs)))
coords
))