Macro With-New-File

( with-new-file (stream pathname &key (reset-io t) (print-right-margin *file-print-right-margin*)) &body < body > )