[Openmcl-devel] close on abort
bryan-lisp at lunch.org
Mon Sep 5 09:04:37 UTC 2005
> (with-open-file (out (full-pathname "other/x") :direction :output
> :if-exists :supersede)
actually, this doesn't work quite right if the file already
exists and you don't have a type (extension). the file-stream
code calls cl:rename-file which, per spec, uses merge-pathnames
to create the new-name. the extension ends up getting set on the
if file-streams always contain full pathnames (which at this late
hour seems perfectly reasonable to me), we can bypass cl:rename-file
and directly call ccl::unix-rename.
what do you think?
unfortunately your quick fix has now become:
(full-pathname (make-pathname :directory "other"
More information about the Openmcl-devel