A simple package implementing a DSL for generating format strings.
 

 ```lisp

 
 (make-format-string '(:str)) #| ==> "~a" |#
 (make-format-string '((:map () :str))) #| ==> "~{~a~}" |#
 
 (define-message hello (name)
   "Hello " :str)
 (define-message print-comma-separated (values)
   (:map () :str))
 
 ```