X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=d01860c1e7ec68221a67ee1f4aa16fc39d31c15d;hb=81b53621675a138e89225a68ae58e1abdfaa3a4d;hp=562f1f80aa5c829dbf2405022022295c87dde221;hpb=25fa7dc525c432ea68bdae231748b279a2ab65ef;p=jscl.git

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)))