minor cleanup

bench/bench.lisp

@@ -44,14 +44,9 @@
      :for pos :on list :by (partial-apply 'nthcdr n)
      :collect (subseq pos 0 n)))
 
-(defun identity-args (&rest args)
-  args)
-
-(defun zip (&rest args)
-  (apply #'mapcar 'identity-args args))
-
 (defun riffle (groups deck)
-  (apply #'zip (groups-of (/ (length deck) groups) deck)))
+  (apply #'mapcar #'list
+         (groups-of (/ (length deck) groups) deck)))
 
 ;;;; wall time
 

src/cognate/util.lisp

@@ -31,7 +31,7 @@
 (in-package #:lparallel.cognate)
 
 (defun zip/vector (seqs)
-  (apply #'map 'vector (lambda (&rest args) args) seqs))
+  (apply #'map 'vector #'list seqs))
 
 (defun find-min-length (seqs)
   (reduce #'min seqs :key #'length))