From a227a52c4878c296db76e16e7a86eee746401f2c Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Thu, 14 May 2026 13:57:03 -0400 Subject: [PATCH] fix: use raw O_RDWR=2 constant (sb-unix:o-rdwr doesn't exist) --- src/backend/modern.lisp | 2 +- src/backend/simple.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/backend/modern.lisp b/src/backend/modern.lisp index 37ad334..e63e360 100644 --- a/src/backend/modern.lisp +++ b/src/backend/modern.lisp @@ -176,7 +176,7 @@ as a fallback when a keyword is not in *named-colors*.") ;; Direct ioctl on /dev/tty — opens the real controlling terminal, ;; bypassing any fd weirdness from SBCL's subprocess or stream setup. (ignore-errors - (let ((tty-fd (sb-unix:unix-open "/dev/tty" sb-unix:o-rdwr 0))) + (let ((tty-fd (sb-unix:unix-open "/dev/tty" 2 0))) ; O_RDWR = 2 (when tty-fd (unwind-protect (let* ((winsize (sb-alien:make-alien sb-alien:unsigned-short 4))) diff --git a/src/backend/simple.lisp b/src/backend/simple.lisp index ab8c501..98f3e13 100644 --- a/src/backend/simple.lisp +++ b/src/backend/simple.lisp @@ -36,7 +36,7 @@ (sb-alien:free-alien winsize)))) ;; Direct ioctl on /dev/tty — opens the real controlling terminal. (ignore-errors - (let ((tty-fd (sb-unix:unix-open "/dev/tty" sb-unix:o-rdwr 0))) + (let ((tty-fd (sb-unix:unix-open "/dev/tty" 2 0))) ; O_RDWR = 2 (when tty-fd (unwind-protect (let* ((winsize (sb-alien:make-alien sb-alien:unsigned-short 4)))