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)))