Changeset 15138 for trunk/source/level-1


Ignore:
Timestamp:
Dec 14, 2011, 8:58:49 PM (8 years ago)
Author:
gb
Message:

In MAKE-FILE-STREAM, test that the fd is seekable by ... trying
to seek on it (not by checking what #_stat says about it.)

File:
1 edited

Legend:

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

    r14683 r15138  
    815815                                              (:io #$O_RDWR)))))
    816816          (when (< fd 0)  (signal-file-error fd filename))
    817           (let* ((fd-kind (%unix-fd-kind fd)))
    818             (if (not (eq fd-kind :file))
     817          (let* ((pos (fd-lseek fd 0 #$SEEK_CUR)))
     818            (if (not (>= pos 0))
    819819              (make-fd-stream fd :direction direction
    820820                              :element-type element-type
Note: See TracChangeset for help on using the changeset viewer.