diff options
| -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) |