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