From 81b53621675a138e89225a68ae58e1abdfaa3a4d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 16 Jan 2013 12:31:06 +0000 Subject: [PATCH] Revert symbol dumping --- ecmalisp.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 562f1f8..d01860c 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -966,7 +966,8 @@ ((symbolp sexp) (or (cdr (assoc sexp *literal-symbols*)) (let ((v (genlit)) - (s (concat "{name: \"" (escape-string (symbol-name sexp)) "\"}"))) + (s #+common-lisp (concat "{name: \"" (escape-string (symbol-name sexp)) "\"}") + #+ecmalisp (ls-compile `(intern ,(symbol-name sexp))))) (push (cons sexp v) *literal-symbols*) (toplevel-compilation (concat "var " v " = " s)) v))) -- 1.7.10.4