diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-09 02:51:29 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-09 02:51:29 -0300 |
| commit | dcff69e9d6334c57faa5a690c449f12969a6526f (patch) | |
| tree | bf095ebd698cc92f5d87c4839feed96ba9839778 | |
| parent | 2556460ea3fb9d52db1f24b287b35dc7b0f62cab (diff) | |
| download | monparser-dcff69e9d6334c57faa5a690c449f12969a6526f.tar.gz monparser-dcff69e9d6334c57faa5a690c449f12969a6526f.zip | |
Revert "Remove separated-list"
This reverts commit 2556460ea3fb9d52db1f24b287b35dc7b0f62cab.
| -rw-r--r-- | extra.lisp | 8 | ||||
| -rw-r--r-- | package.lisp | 3 |
2 files changed, 10 insertions, 1 deletions
@@ -42,3 +42,11 @@ (defparameter whitespace (optional (many (unit whitespace?)))) + +(defun separated-list (p separator) + (comp ((v p) + (sep (optional separator)) + (vn (if sep + (separated-list p separator) + nothing))) + (cons v vn))) diff --git a/package.lisp b/package.lisp index 7067dfb..2b64c6f 100644 --- a/package.lisp +++ b/package.lisp @@ -16,4 +16,5 @@ #:many #:repeat #:whitespace? - #:whitespace)) + #:whitespace + #:separated-list)) |