kernel--zip

(defun kernel--zip (a b)
  (if (or a b)
      (cons (cons (car a)
                  (car b))
            (kernel--zip (cdr a)
                         (cdr b)))
    nil))

(kernel--zip '(1 2 3) '(4))