From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/parser/parser-expr-impl.lisp: Compare paren tags with `eql'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/54fa70952116ba0eb0f95b31376c925ae3c6dad2

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.
---

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 @@ (defmethod push-operator
 	  (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)))