(defun transpose (x) (apply 'mapcar (cons 'list x))

Which on this input:
(transpose '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
Should product this output:
((1 4 7 10) (2 5 8 11) (3 6 9 12))