gistfile1.lisp

(eval-when (:compile-toplevel :load-toplevel :execute)
                                       (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
																				 (user-homedir-pathname))))
		(when (probe-file quicklisp-init)
			(load quicklisp-init))))

(ql:quickload '(:split-sequence :alexandria))
(use-package :alexandria)
;; Color Spade 黑桃 Heart 红心 Diamond 红钻 Club 黑莓

(defvar color '(S H D C))
(defvar order '(2 3 4 5 6 7 8 9 10 J Q K A))
(print (map-product #'cons color order))