#!/usr/local/bin/sbcl --script

(defun remove-if-not-evenp (&key a b c) (list a b c))