Compare strings with string= rather than equal

diff --git a/src/read.lisp b/src/read.lisp
index 3c15f9d..0c1f440 100644 (file)
--- 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))