Common Lisp: преобразование между списками и массивами

Как элегантно преобразовать произвольно вложенные списки в массивы?

напр.

((1 2 3) (4 5 6))

становится

#2A((1 2 3) (4 5 6))

и наоборот