Commit d9a39786b8c9f6e92f69b06f5cfa2fd956c83dd2 - plotter

fix data cleaning issue with trailing space after Z stanza Haldean Brown 4 years ago

1 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-2

svgcam.lisp less more

361	361	)))))
362	362
363	363	(defun load-path-args (stz)
364		(when (> (length stz) 0)
365		(let ((stz-clean (string-trim '(#\Space #\Newline #\Tab #\Linefeed #\Return #\,) stz)))
	364	(let ((stz-clean (string-trim '(#\Space #\Newline #\Tab #\Linefeed #\Return #\,) stz)))
	365	(when (> (length stz-clean) 0)
366	366	(multiple-value-bind (st end) (cl-ppcre:scan "[\\-]?[0-9](\\.[0-9]+\|[0-9])" stz-clean)
367	367	(cons (parse-float:parse-float (subseq stz-clean st end))
368	368	(load-path-args (subseq stz-clean end)))))))