anchor.diff:      (dotimes (i num (nreverse cards))
         (push (pop (game-stock game)) cards))))
   
  -#|
  -(defmacro walk-players ((psym gsym game) &body body)
  -  (let ((pg (gensym))
  -        (g (gensym)))
  -    `(funcall
  -      (lambda (,gsym)
  -        (dolist (,pg (game-players ,gsym))
  -          (dolist (,psym ,pg)
  -            ,@body))
  -        ,gsym)
  -      ,game)))
  -|#
  -
  -(defun gen-new-game ()
  -  (let* ((game (make-game :teams
  -                          (create-teams '("ken" "jenn") '("pete" "steph")))))
  -
  -    (setf (game-player-seating game)
  +
  +(defun gen-new-game (num-decks &rest teams)
  +  (let* ((game (make-game :num-decks num-decks
  +                          :teams (apply #'create-teams teams))))
  +
  +    (setf (game-player-order game)
             ;; Create a single vector containing the individual players
             (apply #'vector
                    ;; Take a player from each individual list and assemble them
  
positive.code:                                    #'(lambda (team)
                                         (team-players team))
                                     (game-teams game))))))
      game))
  
  
  #|
  (defun initial-deal-to-players (game)
    (walk-players (p g game)
      (dolist (c (reverse (pop-n-cards game)))
        (push c (player-hand p)))
      (dolist (c (reverse (pop-n-cards game)))
        (push c (player-foot p)))))
  |#
  
      (defun game-donep (game)
        game
        )
  
  
negative.code: 
  (defun gen-deck (&optional (num-jokers 2))
    (append
     (loop :for i :below num-jokers :collecting (list 'joker :joker))
     (loop :for num :in '(2 3 4 5 6 7 8 9 10 J Q K A) :appending
        (loop :for suit :in '(:clubs :spades :diamonds :hearts) :collecting
           (list num suit)))))
  
  (defun rank (card)
    (car card))
  (defun suit (card)
    (cadr card))
  
  (defun shuffle-cards (deck)
    ;; This idiom is known as "decorate-sort-undecorate" in CL, in perl,
  