Changeset 15138

Timestamp:

Dec 14, 2011, 12:58:49 PM (13 years ago)

Author:

Gary Byers

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:

• trunk/source/level-1/l1-sysio.lisp (modified) (1 diff)

trunk/source/level-1/l1-sysio.lisp

@@ -815 +815 @@
                                               (:io #$O_RDWR)))))
           (when (< fd 0)  (signal-file-error fd filename))
-          (let* ((fd-kind (%unix-fd-kind fd)))
-            (if (not (eq fd-kind :file))
+          (let* ((pos (fd-lseek fd 0 #$SEEK_CUR)))
+            (if (not (>= pos 0))
               (make-fd-stream fd :direction direction
                               :element-type element-type