(mac prf (str . args)
  `(let ,argsym (list ,@args)
     (pr ,@(parse-format str))))
)

From arc.arc ©