Relax compiler literal caching

Equal is too general. Diferrent literals are considered the same and
if you modify destructively one of them, then other were modified too.

diff --git a/src/compiler.lisp b/src/compiler.lisp
index be10266..3fe2823 100644 (file)
--- 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))