summaryrefslogtreecommitdiff
path: root/extra.lisp
diff options
context:
space:
mode:
authorJuan Manuel Tomás <jtomas1815@gmail.com>2025-06-09 02:51:29 -0300
committerJuan Manuel Tomás <jtomas1815@gmail.com>2025-06-09 02:51:29 -0300
commitdcff69e9d6334c57faa5a690c449f12969a6526f (patch)
treebf095ebd698cc92f5d87c4839feed96ba9839778 /extra.lisp
parent2556460ea3fb9d52db1f24b287b35dc7b0f62cab (diff)
downloadmonparser-dcff69e9d6334c57faa5a690c449f12969a6526f.tar.gz
monparser-dcff69e9d6334c57faa5a690c449f12969a6526f.zip
Revert "Remove separated-list"
This reverts commit 2556460ea3fb9d52db1f24b287b35dc7b0f62cab.
Diffstat (limited to 'extra.lisp')
-rw-r--r--extra.lisp8
1 files changed, 8 insertions, 0 deletions
diff --git a/extra.lisp b/extra.lisp
index 6453751..b738da7 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -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)))