[Openmcl-devel] close on abort

[David Tolpin]

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