master: SunOS doesn't have termios.c_ispeed
stassats via Sbcl-commits <[email protected]> Mon, 04 May 2026 18:07:16 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 36864b8314f0ad56c67b8631856df5468e042078 (commit)
from acd0f7e95afd60d0c3241cf8b7c7a02677b30514 (commit)
- Log -----------------------------------------------------------------
commit 36864b8314f0ad56c67b8631856df5468e042078
Author: Stas Boukarev <[email protected]>
Date: Mon May 4 21:06:51 2026 +0300
SunOS doesn't have termios.c_ispeed
Reported by Andreas Wacknitz
---
contrib/sb-posix/constants.lisp | 2 ++
contrib/sb-posix/defpackage.lisp | 3 ++-
contrib/sb-posix/interface.lisp | 2 ++
3 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 26a16d36a..e96bdfe9c 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -434,7 +434,9 @@
(tcflag-t cflag "tcflag_t" "c_cflag")
(tcflag-t lflag "tcflag_t" "c_lflag")
((array cc-t) cc "cc_t" "c_cc")
+ #-sunos
(speed-t ispeed "speed_t" "c_ispeed")
+ #-sunos
(speed-t ospeed "speed_t" "c_ospeed")))
;; utime(), utimes()
diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp
index ee082b912..d882e5c44 100644
--- a/contrib/sb-posix/defpackage.lisp
+++ b/contrib/sb-posix/defpackage.lisp
@@ -21,7 +21,8 @@
#:stat-rdev
#:termios-iflag #:termios-oflag #:termios-cflag
#:termios-lflag #:termios-cc
- #:termios-ispeed #:termios-ospeed
+ #-sunos #:termios-ispeed
+ #-sunos #:termios-ospeed
#:timeval-sec #:timeval-usec
#:flock-type #:flock-whence #:flock-start #:flock-len
#:flock-pid
diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index 416c8ece8..af3e182e9 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -823,8 +823,10 @@ not supported."
:documentation "Local modes.")
(cc :initarg :cc :accessor termios-cc :array-length nccs
:documentation "Control characters.")
+ #-sunos
(ispeed :initarg :ispeed :accessor termios-ispeed
:documentation "Input speed.")
+ #-sunos
(ospeed :initarg :ospeed :accessor termios-ospeed
:documentation "Output speed."))
(:documentation
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL