X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=9572a22d46bda053ad9709d2015d9cc64180c548;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=23c1c8df8245a343b48a7eab51c3a25196ffa573;hpb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 23c1c8d..9572a22 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -136,7 +136,7 @@ corresponds to NAME, or NIL if there is none."
 ;;; is not extreme enough, since it doesn't need to be blindingly
 ;;; fast: we can just implement those functions in C as a wrapper
 ;;; layer.
-(define-alien-type fd-mask unsigned-long)
+(define-alien-type fd-mask unsigned)
 
 (define-alien-type nil
   (struct fd-set