Changeset 14353


Ignore:
Timestamp:
Oct 12, 2010, 1:50:12 AM (9 years ago)
Author:
rme
Message:

In DELETE-FILE, don't call %REALPATH.

This has (at least) two effects on the function. It now:

  • deletes a symbolic link instead of its target
  • signals an error on an attempt to delete a non-existent file
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r14254 r14353  
    13531353(defun delete-file (path)
    13541354  "Delete the specified FILE."
    1355   (let* ((namestring (native-translated-namestring path)))
    1356     (when (%realpath namestring)
    1357       (let* ((err (%delete-file namestring)))
    1358         (or (eql 0 err) (signal-file-error err path))))))
     1355  (let* ((namestring (native-translated-namestring path))
     1356         (err (%delete-file namestring)))
     1357    (or (eql 0 err) (signal-file-error err path))))
    13591358
    13601359(defvar *known-backends* ())
Note: See TracChangeset for help on using the changeset viewer.