fix data cleaning issue with trailing space after Z stanza
Haldean Brown
4 years ago
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))))))) |