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