X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=d96189e8ba3815162643424ea6f7d4fab4f7c846;hb=245101f127d61e28b9c864c720eb17973469a904;hp=382d03409825c62836c7afcefed3f13f40869a0f;hpb=e411bd41397e1df2423838a4f9c2fdaa27727e93;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 382d034..d96189e 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -209,12 +209,14 @@
   (declare (type unix-fd fd))
   (int-syscall ("isatty" int) fd))
 
-;;; Accept a file descriptor and move 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.
 (defun unix-lseek (fd offset whence)
+  "Unix-lseek accepts a file descriptor and moves the file pointer by 
+   OFFSET octets.  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 (integer 0 2) whence))
   (int-syscall ("lseek" int off-t int) fd offset whence))
@@ -401,7 +403,7 @@
 (defun unix-ioctl (fd cmd arg)
   (declare (type unix-fd fd)
 	   (type (signed-byte 32) cmd))
-  (void-syscall ("ioctl" int signed-int (* char)) fd cmd arg))
+  (void-syscall ("ioctl" int int (* char)) fd cmd arg))
 
 ;;;; sys/resource.h