diff options
Diffstat (limited to 'grammars.lisp')
| -rw-r--r-- | grammars.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammars.lisp b/grammars.lisp index 38f1c2f..533b7ce 100644 --- a/grammars.lisp +++ b/grammars.lisp @@ -110,7 +110,7 @@ any pattern fails the whole parse fails." (defun literals->patterns (literals) (loop :for l :in literals :collect (list := l))) -(defun literals-equal? (a b) (eq a b)) +(defun literals-equal? (a b) (equalp a b)) (defun parse-literal (literal) (if (literals-equal? (next-token) literal) |