From 22d1c6dcf32fdfd5b19664c7cb8f6e988721314c Mon Sep 17 00:00:00 2001
From: cshapiro <cshapiro>
Date: Tue, 6 Nov 2007 06:04:56 +0000
Subject: [PATCH] The return value of the ioctl function is meaningful.  Make
 unix-ioctl return this value instead of T if the call succeeds.

---
 code/unix-glibc2.lisp | 4 ++--
 code/unix.lisp        | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/unix-glibc2.lisp b/code/unix-glibc2.lisp
index 41408c4d5..bc99ac208 100644
--- a/code/unix-glibc2.lisp
+++ b/code/unix-glibc2.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.38 2007/07/31 10:08:47 cshapiro Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.39 2007/11/06 06:04:56 cshapiro Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2468,7 +2468,7 @@ length LEN and type TYPE."
    information."
   (declare (type unix-fd fd)
 	   (type (unsigned-byte 32) cmd))
-  (void-syscall ("ioctl" int unsigned-int (* char)) fd cmd arg))
+  (int-syscall ("ioctl" int unsigned-int (* char)) fd cmd arg))
 
 
 ;;; sys/fsuid.h
diff --git a/code/unix.lisp b/code/unix.lisp
index a624d787b..09f9f416c 100644
--- a/code/unix.lisp
+++ b/code/unix.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.113 2007/07/31 10:08:47 cshapiro Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.114 2007/11/06 06:04:56 cshapiro Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1902,7 +1902,7 @@
    information."
   (declare (type unix-fd fd)
 	   (type (unsigned-byte 32) cmd))
-  (void-syscall ("ioctl" int unsigned-int (* char)) fd cmd arg))
+  (int-syscall ("ioctl" int unsigned-int (* char)) fd cmd arg))
 
 #+(or svr4 hpux bsd linux)
 (progn
-- 
GitLab