[Openmcl-devel] close on abort

[bryan o'connor]

hi David,

the problem seems to be that the filename associated with a
file-stream doesn't get set with a full pathname.  i've got a
fix here but the cvs repo is currently bleeding so i can't
fully test it and check it in.  there also seems to be some
cleanup issues where .tem files don't always get deleted.

a temporary fix would be to wrap your path namestring with
full-pathname.

(with-open-file (out (full-pathname "other/x") :direction :output
                                                :if-exists :supersede)
     (abort))


     ..bryan


> Hi,
>
> when a computation aborted with an open file in another directory,  
> such as in:
>
> (with-open-file (out "other/x" :direction :output :if- 
> exists :supersede)
>     (abort))
>
> and the file "other/x" already exists, an error is reported:
>
> > Error in process listener(1): Failed to rename /Users/dvd/ 
> Workplace/Davidashen/QST/other/3334893877.tem to /Users/dvd/ 
> Workplace/Davidashen/QST/other/other/x.tem: -2
> > While executing: RENAME-FILE
> > Type :POP to abort.
> Type :? for other options.
> 1 >
>
> Please note that the file it tries to rename to  has the wrong  
> name. I couldn't trace it easily to where this happens.
>
> David