When turning a quoted list into a JS array, compile elements that are NIL as "null...
authorDaniel Gackle <danielgackle@gmail.com>
Sat, 11 Apr 2009 22:51:29 +0000 (15:51 -0700)
committerDaniel Gackle <danielgackle@gmail.com>
Sat, 11 Apr 2009 22:51:29 +0000 (15:51 -0700)
src/special-forms.lisp

index 478e892..033405a 100644 (file)
@@ -26,7 +26,7 @@
 
 (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 (string-downcase x))
     (number x)