Re: Strange behaviour of *standard-output* in sbcl

On Jul 30, 5:34 pm, Joshua Taylor <joshuaaa...@xxxxxxxxx> wrote:

This suggests that WITH-OPEN-FILE could be implemented as

(defmacro with-open-file2 ((var filename &rest options) &body body)
`(with-open-stream (,var (open ,filename ,@options))
,@body))

This is not interrupt safe: if an asynch unwind occurs after open, but
before the UNWIND-PROTECT from W-O-S has been entered, the file will
be left open. (Ok, there is no guarantee that WITH-OPEN-FILE is async
signal safe -- or indeed anything, but you can always hope.)

Cheers,

-- Nikodemus
.