zip-examples.nydp

(examples-for zip
  ("joins two lists"
   (zip '(a b c) '(1 2 3))
   ((a 1) (b 2) (c 3)))

  ("joins more lists"
   (zip '(a b) '(1 2) '(p q) '(41 42 43) '(x y zip))
   ((a 1 p 41 x) (b 2 q 42 y)))

  ("resulting list is as long as first list"
   (zip '(a b) '(1 2 3 4 5 6) nil)
   ((a 1 nil) (b 2 nil)))

  ("resulting list is nil if first list is nil"
   (zip nil '(1 2 3 4 5) '(p q r))
   nil))