Common Lisp version, works with an arbitrary number of lists and automatically trims the result to the length of the shortest list. (defun zip (&rest lists

Common Lisp version, works with an arbitrary number of lists and automatically trims the result to the length of the shortest list. (defun zip (&rest lists) (apply #'mapcar #'list lists)) Example: CL-USER> (zip '(1 2 3) '(4 5 6 7 8) '(a b c d)) ((1 4 A) (2 5 B) (3 6 C))