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

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

(format t "~a~% remove-if-not-evenp(list 1 2 3))