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

(defun foo (a b c) (list a b c))

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