From b99e4440ffbfb3759deabf226826842c810e0637 Mon Sep 17 00:00:00 2001 From: Mqrius Date: Sat, 13 Jan 2018 16:30:48 +0000 Subject: [PATCH] Change ioctl request type to unsigned long --- src/code/unix.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/unix.lisp b/src/code/unix.lisp index c7caaa1b8..71d34b3fb 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -534,8 +534,8 @@ avoiding atexit(3) hooks, etc. Otherwise exit(2) is called." #!-win32 (defun unix-ioctl (fd cmd arg) (declare (type unix-fd fd) - (type (signed-byte 32) cmd)) - (void-syscall ("ioctl" int int (* char)) fd cmd arg)) + (type (unsigned-byte 32) cmd)) + (void-syscall ("ioctl" int unsigned-long (* char)) fd cmd arg)) ;;;; sys/resource.h