diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-03-23 09:29:01 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-03-23 09:29:01 -0300 |
| commit | 8a97d64adef87a9f12824c5653bc5182b9a4f06d (patch) | |
| tree | 3e915aa575f1fa1b89b0a87fc17a89bcec53f50b /extra.lisp | |
| parent | 3df2ac55e233574a08b938f29f846069f3776e42 (diff) | |
| download | monparser-8a97d64adef87a9f12824c5653bc5182b9a4f06d.tar.gz monparser-8a97d64adef87a9f12824c5653bc5182b9a4f06d.zip | |
Diffstat (limited to 'extra.lisp')
| -rw-r--r-- | extra.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -16,7 +16,7 @@ (if x (cons x xs) x)) nothing))) -(defmacro literal (word) +(defun literal (word) (when (not (stringp word)) (error "Literal only accepts strings as input.")) (let ((binding-list '()) @@ -26,8 +26,8 @@ (let ((name (gensym))) (push name name-list) (push `(,name (unit ,c)) binding-list)))) - `(comp ,(reverse binding-list) - ,(cons 'list (reverse name-list))))) + (eval `(comp ,(reverse binding-list) + ,(cons 'list (reverse name-list)))))) (declaim (ftype (function (parser parser &optional parser) parser) within)) (defun within (left p &optional right) |