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