みんなやってたんだ

• http://cadr.g.hatena.ne.jp/lkozima/20090515/1242387770
• http://cadr.g.hatena.ne.jp/g000001/20090515/1242395351

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :series)
  (use-package :series))

(defun deal (players deck)
  (mapcar (lambda (x)
            (collect 'string x))
          (multiple-value-list
              (chunk players players (scan deck)))))

ごめんなさい。 series:chunk が使いたかっただけです。