From: Daniel B. <da...@us...> - 2003-06-07 22:46:15
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv27124/src/code Modified Files: unix.lisp Log Message: 0.8.0.47 sb-simple-streams pushes :little-endian/:big-endian on *features* for no apparent reason - and gets it wrong, too unix-lseek is fixed, so sb-simple-streams need not redefine it any more Fix stupid braino in unix-ioctl that broke the build Index: unix.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/unix.lisp,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- unix.lisp 7 Jun 2003 15:52:03 -0000 1.37 +++ unix.lisp 7 Jun 2003 22:46:10 -0000 1.38 @@ -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 |