From: Robert Dodier
Subject: Re: need help with macro or function similar to with-open-file
Date: Wed, 02 Nov 2005 16:48:47 +0000
Message-ID: <1130950127.394474.278660@g47g2000cwa.googlegroups.com>

William Bland wrote:

> (defmacro with-open-file-appropriately ((out fname) &body body)
>   `(with-open-file (,out ,fname
>                     :direction :output
>                     :if-exists (if *append-output* :append :supersede))
>      ,@body))

That works for me. Thanks for your help, I really appreciate it.

Robert Dodier