#!/usr/local/bin/sbcl --script (setf a 123) (format t "~a" (list 'a))