<div>Here's a neat little ps macro for easy creation of array literals, including nested arrays:</div>
<div> </div>
<div><font face="courier new,monospace">(ps ([] 1 2 3))<br>=>  "[1, 2, 3];"<br></font></div>
<div><font face="courier new,monospace">(ps ([] 1 (2 3)))<br>=>  "[1, [2, 3]];"<br></font></div>
<div><font face="courier new,monospace">(ps ([] (1 2) ("a" "b")))<br>=>  "[[1, 2], ['a', 'b']];"</font><br></div>
<div>Daniel</div>
<div> </div>
<div><font face="courier new,monospace">(defpsmacro [] (&rest args)<br>  `(array ,@(mapcar (lambda (arg)<br>                      (if (and (consp arg) (not (equal '[] (car arg))))<br>                          (cons '[] arg)<br>
                          arg))<br>                     args)))</font></div>
<div> </div>
<div> </div>