Brace expansion: Difference between revisions
Content added Content deleted
(Add Common Lisp implementation) |
m (Delete redundant AND) |
||
Line 550: | Line 550: | ||
(push c result) |
(push c result) |
||
(setf escapep t)) |
(setf escapep t)) |
||
( |
((char= c #\{) |
||
(multiple-value-bind (alternation next-index) |
(multiple-value-bind (alternation next-index) |
||
(parse-alternation string index) |
(parse-alternation string index) |