When turning a quoted list into a JS array, compile elements that are NIL as "null...

[clinton/parenscript.git] / src / special-forms.lisp

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index 8b6fe8a..033405a 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -26,9 +26,9 @@
 
 (defpsmacro quote (x)
   (typecase x
-    (cons (cons 'array (mapcar (lambda (x) `',x) x)))
+    (cons (cons 'array (mapcar (lambda (x) (when x `',x)) x)))
     (null '(array))
-    (symbol (symbol-to-js-string x))
+    (symbol (string-downcase x))
     (number x)
     (string x)))