Changeset 16646


Ignore:
Timestamp:
Dec 2, 2015, 8:02:41 PM (6 years ago)
Author:
rme
Message:

In %realpath, signal a file-error if the call to #_realpath fails
with an error other than ENOENT.

Closes ticket:1331.

File:
1 edited

Legend:

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

    r16314 r16646  
    706706      (let* ((result (#_realpath name resultbuf)))
    707707        (declare (dynamic-extent result))
    708         (unless (%null-ptr-p result)
     708        (if (%null-ptr-p result)
     709          (let ((errno (%get-errno)))
     710            (unless (= errno (- #$ENOENT))
     711              (signal-file-error errno namestring)))
    709712          (get-foreign-namestring result))))))
    710713
Note: See TracChangeset for help on using the changeset viewer.