From f242a709095fc660b51aec8c2590cadc89f144ba Mon Sep 17 00:00:00 2001 From: colin Date: Thu, 3 Aug 2023 20:15:42 -0700 Subject: Manual --- grammars.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'grammars.lisp') 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) -- cgit v1.2.3