X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Funix.lisp;h=f75d7c52cdf8e65fee00318238639ee58ab87254;hb=0677c33068646b6ec33d5f622771673f3de38504;hp=ff15c898fbecd0f5a396b97597d1356fabaec015;hpb=ac85367426b222612311c5cf7b061ff89c64d825;p=sbcl.git

diff --git a/contrib/sb-simple-streams/unix.lisp b/contrib/sb-simple-streams/unix.lisp
index ff15c89..f75d7c5 100644
--- a/contrib/sb-simple-streams/unix.lisp
+++ b/contrib/sb-simple-streams/unix.lisp
@@ -13,24 +13,6 @@
 (in-package "SB-UNIX")
 
 
-;;; TODO (Rudi 2003-05-12): Check whether this bug exists in sbcl, fix
-;;; it if yes, and take care not to break platforms where the offset
-;;; is not a 32-bit signed integer.
-
-;; Fix bug that claims offset is unsigned, so seeking backwards works!
-(defun unix-lseek (fd offset whence)
-  "Unix-lseek accepts a file descriptor and moves the file pointer ahead
-   a certain offset for that file.  Whence can be any of the following:
-
-   l_set        Set the file pointer.
-   l_incr       Increment the file pointer.
-   l_xtnd       Extend the file size.
-  "
-  (declare (type unix-fd fd)
-           (type (signed-byte 32) offset)
-           (type (integer 0 2) whence))
-  (int-syscall ("lseek" int off-t int) fd offset whence))
-
 (export '(prot-read prot-write prot-exec prot-none
           map-shared map-private map-fixed
           unix-mmap unix-munmap