From: David Vázquez <davazp@gmail.com>
Date: Fri, 26 Apr 2013 22:29:51 +0000 (+0100)
Subject: Fix bug in symbol dumping
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8f745edf63df796ff7a1df4ba31c2570e50de559;p=jscl.git

Fix bug in symbol dumping
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 36510f9..a6c451b 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -567,11 +567,11 @@
     ((stringp sexp) (code "\"" (escape-string sexp) "\""))
     (t
      (or (cdr (assoc sexp *literal-table*))
-	 (let ((dumped (typecase sexp
+         (let ((dumped (typecase sexp
                          (symbol (dump-symbol sexp))
                          (cons (dump-cons sexp))
                          (array (dump-array sexp)))))
-           (if recursive
+           (if (and recursive (not (symbolp sexp)))
                dumped
                (let ((jsvar (genlit)))
                  (push (cons sexp jsvar) *literal-table*)