properly output [foo,,,bar]

mishoo · Jan 21, 2011 · 617d177 · 617d177
1 parent f9237b1
commit 617d177
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/codegen.lisp b/src/codegen.lisp
@@ -229,7 +229,9 @@ characters in string S to STREAM."
                        (:array (a)
                                (if (not a) "[]"
                                    (add-spaces "[" (join (mapcar (lambda (expr)
-                                                                   (parenthesize expr :seq)) a) ", " ",") "]")))
+                                                                   (if expr
+                                                                       (parenthesize expr :seq)
+                                                                       "")) a) ", " ",") "]")))
 
                        (:object (props)
                                 (if (not props) "{}"