Permalink
Browse files

properly output [foo,,,bar]

  • Loading branch information...
1 parent f9237b1 commit 617d1772d932a35bab9f07b2fa8dc2a7b9711649 @mishoo committed Jan 21, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/codegen.lisp
View
4 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) "{}"

0 comments on commit 617d177

Please sign in to comment.