From 08056be894cbce7690abe9a2d6da09a28ab0e1c9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 02:13:16 +0100 Subject: [PATCH] Compare strings with string= rather than equal --- src/read.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4