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

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

(format t "~a~%" (foo :a 1 :b 2 :c 3))