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

(defun remove-if-not-evenp (n1 n2 n3) (remove-if-not #'evenp '(n1 n2 n3)))

(format t "~a"(remove-if-not #'evenp '(1 2 3 4 5 6 7 8 9 10)))
(remove-if-not #'evenp '(1 2 3 4 5 6 7 8 9 10))

(remove-if-not-evenp(1 2 3))