projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #90 from abeaumont/master
[jscl.git]
/
src
/
compiler.lisp
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
((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))
(let ((dumped (typecase sexp
(symbol (dump-symbol sexp))
(string (dump-string sexp))