19 Apr
2008
19 Apr
'08
2:01 a.m.
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)))