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


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

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


(defun foo (&key a (b 20) (c 30 c-p)) (list a b c c-p))
(defun foo (&key a b c) (list a b c))