Quoted symbols should be emitted as literal strings, not converted first to JS symbol...

diff --git a/src/printer.lisp b/src/printer.lisp
index 778cd6b..39dcc09 100644 (file)
--- a/src/printer.lisp
+++ b/src/printer.lisp
@@ -43,7 +43,7 @@ arguments, defines a printer for that form using the given body."
 
 (defmethod ps-print ((s symbol))
   (assert (keywordp s))
-  (ps-print (js-translate-symbol s)))
+  (ps-print (string-downcase s)))
 
 (defmethod ps-print ((compiled-form cons))
   (ps-print% (car compiled-form) (cdr compiled-form)))

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index 8b6fe8a..478e892 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -28,7 +28,7 @@
   (typecase x
     (cons (cons 'array (mapcar (lambda (x) `',x) x)))
     (null '(array))
-    (symbol (symbol-to-js-string x))
+    (symbol (string-downcase x))
     (number x)
     (string x)))