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

(getf (list :a 1 :b 2 :c 3) :a)