From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 01:13:16 +0000 (+0100)
Subject: Compare strings with string= rather than equal
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=08056be894cbce7690abe9a2d6da09a28ab0e1c9;p=jscl.git

Compare strings with string= rather than equal
---

diff --git a/src/read.lisp b/src/read.lisp
index 3c15f9d..0c1f440 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -332,7 +332,7 @@
          (incf index))
        (setq name (subseq string index))))
     ;; Canonalize symbol name and package
-    (setq name (if (equal package "JS")
+    (setq name (if (string= package "JS")
                    (setq name (unescape-token name))
                    (setq name (string-upcase-noescaped name))))
     (setq package (find-package package))