#!/usr/local/bin/sbcl --script
(pprint (macroexpand-1 '(formatter "~{~D~^, ~}")))