From 54fa70952116ba0eb0f95b31376c925ae3c6dad2 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/parser/parser-expr-impl.lisp: Compare paren tags with `eql'. They're often characters, which can't reliably be compared with `eq'. Not sure what I was thinking, really. --- src/parser/parser-expr-impl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parser/parser-expr-impl.lisp b/src/parser/parser-expr-impl.lisp index 5ae4035..41c154f 100644 --- a/src/parser/parser-expr-impl.lisp +++ b/src/parser/parser-expr-impl.lisp @@ -151,7 +151,7 @@ (let ((head (car opstack))) (cond ((not (typep head 'open-parenthesis)) (apply-operator head state)) - ((not (eq (slot-value head 'tag) tag)) + ((not (eql (slot-value head 'tag) tag)) (fail)) (t (return))) -- 2.11.0