From 8f745edf63df796ff7a1df4ba31c2570e50de559 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 26 Apr 2013 23:29:51 +0100 Subject: [PATCH] Fix bug in symbol dumping --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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*) -- 1.7.10.4