X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=3fe2823e8f67d853cc885b1cc6324c72a25b620c;hb=74568bb8cdadfcb6bf5429976b92f3afb748b0c2;hp=be102662ab9c1d034337a890a0047291d5b3b8e4;hpb=62c8c41796c1f2f385e7943b50234f41d43baa00;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index be10266..3fe2823 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -558,7 +558,7 @@
     ((floatp sexp) (float-to-string sexp))
     ((characterp sexp) (code "\"" (escape-string (string sexp)) "\""))
     (t
-     (or (cdr (assoc sexp *literal-table* :test #'equal))
+     (or (cdr (assoc sexp *literal-table* :test #'eql))
          (let ((dumped (typecase sexp
                          (symbol (dump-symbol sexp))
                          (string (dump-string sexp))