Вот этот кусок кода работает:
#lang racket
(define (parity x l)
  (define (check-parity y)
    (not (xor (= (remainder x 2) 0)
             (= (remainder y 2) 0))))
  (cond ((null? l) '())
        ((check-parity (car l))
         (cons (car l) (parity x (cdr l))))
        (else (parity x (cdr l)))))

(parity 1 (list 2 3 4 5 6 7 8 9))

А вот этот выдает ебанутую ошибку:

#lang racket
(define (parity x . l)
  (define (check-parity y)
    (not (xor (= (remainder x 2) 0)
             (= (remainder y 2) 0))))
  (cond ((null? l) '())
        ((check-parity (car l))
         (cons (car l) (parity x (cdr l))))
        (else (parity x (cdr l)))))

(parity 1 2 3 4 5 6 7 8 9)
Текст ошибки:
remainder: contract violation
  expected: integer?
  given: '(3 4 5 6 7 8 9)
  argument position: 1st
  other arguments...: