Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    70cf5703
    Helmut Eller notes on cmucl-imp on 2004-04-24 that · 70cf5703
    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.
    70cf5703
    History
    Helmut Eller notes on cmucl-imp on 2004-04-24 that
    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.