Some card playing code…

gistfile1.lisp

(defun rank (card)
  (car card))
  
(defun suit (card)
  (cadr card))

(setf my-hand '((3 hearts)
                (5 clubs)
                (2 diamonds)
                (4 diamonds)
                (ace spades)))

(defun count-suit (suit hand)
  (length (remove-if-not #'(lambda (card) (equal suit (suit card))) hand)))

(setf colors '((clubs black)
               (diamonds red)
               (hearts red)
               (spades black)))

(defun color-of (card)
  (cadr (assoc (suit card) colors)))

(defun first-red (hand)
  (find-if #'(lambda (card) (equal (color-of card) 'red)) hand))

(defun black-cards (hand)
  (remove-if-not #'(lambda (card) (equal (color-of card) 'black)) hand))

(defun what-rank (suit hand)
  (mapcar #'rank (remove-if-not #'(lambda (card) (equal (suit card) suit)) hand)))

(setf all-ranks '(2 3 4 5 6 7 8 9 10 jack queen king ace))

(defun higher-rank-p (card-1 card-2)
  (member (rank card-1) (member (rank card-2) all-ranks)))