Function: ogonek-zip-lists

ogonek-zip-lists is a byte-compiled function defined in ogonek.el.gz.

Signature

(ogonek-zip-lists XS YS)

Documentation

Build a list of pairs from lists XS and YS of the same length.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ogonek.el.gz
;; ----  An auxiliary function for zipping two lists of equal length ----

(defun ogonek-zip-lists (xs ys)
  "Build a list of pairs from lists XS and YS of the same length."
  (let ((pairs nil))
    (while xs
      (setq pairs (cons (cons (car xs) (car ys)) pairs))
      (setq xs (cdr xs))
      (setq ys (cdr ys)))
    ;; `pairs' are the function's result
    pairs))