master: unix-fast-select: allow select on FD_SETSIZE - 1
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via db9ae74c6755f8aca827ebc61ae03ba6c364b5e5 (commit)
from b2dc86b47a1023856188d24c2c6e7cfe0eb12fac (commit)
- Log -----------------------------------------------------------------
commit db9ae74c6755f8aca827ebc61ae03ba6c364b5e5
Author: Stas Boukarev <[email protected]>
Date: Wed Apr 15 17:51:54 2026 +0300
unix-fast-select: allow select on FD_SETSIZE - 1
---
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 06fc530b0..10f9946ef 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -674,11 +674,11 @@ avoiding atexit(3) hooks, etc. Otherwise exit(2) is called."
;;;; sys/select.h
(defmacro with-fd-setsize ((n) &body body)
- `(let ((,n (if (< 0 ,n fd-setsize)
+ `(let ((,n (if (<= -1 ,n fd-setsize)
,n
(error "Cannot select(2) on ~D: above FD_SETSIZE limit."
(1- ,n)))))
- (declare (type (integer 0 #.fd-setsize) ,n))
+ (declare (type (integer 0 ,fd-setsize) ,n))
,@body))
;;; Perform the UNIX select(2) system call.
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL