Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
(delete-file (open "/tmp/tmp-file" :direction :output :if-does-not-exist :create :if-exists :supersede)) signals an error because delete-file is unlinking the file twice, because CLOSE is called with the option :ABORT T. Don't do that, so that any reversion of the file isn't done, and we file is deleted.
rtoy authored(delete-file (open "/tmp/tmp-file" :direction :output :if-does-not-exist :create :if-exists :supersede)) signals an error because delete-file is unlinking the file twice, because CLOSE is called with the option :ABORT T. Don't do that, so that any reversion of the file isn't done, and we file is deleted.