1.0.42.40: replace hardcoded FD-SETSIZE with a groveled one

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index e7cd25e..408f522 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -133,9 +133,6 @@ corresponds to NAME, or NIL if there is none."
 ;;; layer.
 (define-alien-type fd-mask unsigned-long)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant fd-setsize 1024))
-
 (define-alien-type nil
   (struct fd-set
           (fds-bits (array fd-mask #.(/ fd-setsize