bldc/tests/test_match_13.lisp

(defun f (x y)
  (match (cons x y)
         ((1 . 2) 'a-symbol)))

(check (eq (f 1 2) 'a-symbol))