|
|
@@ -12,7 +12,7 @@
|
|
|
(let ((min (if star-pos def-min
|
|
|
(when dash-pos (parse-integer text :end dash-pos))))
|
|
|
(max (if star-pos def-max
|
|
|
- (when dash-pos (parse-integer text :start (1+ dash-pos) :end slash-pos))))
|
|
|
+ (when dash-pos (ignore-errors (parse-integer text :start (1+ dash-pos) :end slash-pos)))))
|
|
|
(step (or (when slash-pos (parse-integer text :start (1+ slash-pos))) 1)))
|
|
|
(list nil min max step))
|
|
|
(list (sort (mapcar #'parse-integer (split-sequence:split-sequence #\, text)) #'<))))))
|
