X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffd-stream.lisp;h=583345fa5002dd111306630f4875d64402c147a1;hb=dccfa0f4e378a267744c03b1416accdf9d888987;hp=5d6e86747b85bc262f0a80e61c3ea271da702aa1;hpb=68b13d8fac5207d339de227871818203f4cab0ab;p=sbcl.git

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 5d6e867..583345f 100644
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -858,12 +858,6 @@
     (:charpos
      (fd-stream-char-pos fd-stream))
     (:file-length
-     ;; FIXME: This is broken on OpenBSD until the FFI, or at least
-     ;; UNIX-FSTAT, learns to extract 64-bit values. (As of sbcl-0.6.12.8,
-     ;; UNIX-FSTAT returns a 0 placeholder instead.)
-     #!+openbsd
-     (error "FIXME: internal error, FILE-LENGTH is broken on OpenBSD")
-     #!-openbsd
      (multiple-value-bind (okay dev ino mode nlink uid gid rdev size
 			   atime mtime ctime blksize blocks)
 	 (sb!unix:unix-fstat (fd-stream-fd fd-stream))
@@ -882,8 +876,7 @@
 	   (type (or index (member nil :start :end)) newpos))
   (if (null newpos)
       (sb!sys:without-interrupts
-	;; First, find the position of the UNIX file descriptor in the
-	;; file.
+	;; First, find the position of the UNIX file descriptor in the file.
 	(multiple-value-bind (posn errno)
 	    (sb!unix:unix-lseek (fd-stream-fd stream) 0 sb!unix:l_incr)
 	  (declare (type (or index null) posn))