From e5942d2d557b7e2c3ab1d462708b6e5704d67b04 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 17 Dec 2009 12:13:56 +0000 Subject: [PATCH] 1.0.33.11: thread-safe FIND-PACKAGE & DEFPACKAGE * Must use WITH-PACKAGES around the GETHASH *PACKAGE-NAMES*. --- NEWS | 2 ++ contrib/sb-posix/constants.lisp | 3 +++ contrib/sb-posix/interface.lisp | 5 +++++ version.lisp-expr | 2 +- 4 files changed, 11 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index e73d12b..9f0485b 100644 --- a/NEWS +++ b/NEWS @@ -4,6 +4,8 @@ changes relative to sbcl-1.0.33: builtin types. * enhancement: Errors during compile-time-too processing (i.e. EVAL-WHEN) are now caught and reported just like errors during macroexpansion. + * enhancement: SB-POSIX now provides access to tcdrain(), tcflow(), + tcflush(), tcgetsid(), and tcsendbreak(). (thanks to Jerry James) * fixes and improvements related to Unicode and external formats: ** bug fix: error handling and restart usage in the ucs-2 external format has been improved. diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp index 0e2e283..2dba2d6 100644 --- a/contrib/sb-posix/constants.lisp +++ b/contrib/sb-posix/constants.lisp @@ -426,6 +426,7 @@ (:integer vstop "VSTOP" nil t) (:integer vsusp "VSUSP" nil t) (:integer vtime "VTIME" nil t) + (:integer vdisable "_POSIX_VDISABLE" nil t) (:integer brkint "BRKINT" nil t) (:integer icrnl "ICRNL" nil t) @@ -445,7 +446,9 @@ #+xsi (:integer onlcr "ONLCR" nil t) (:integer ocrnl "OCRNL" nil t) + (:integer onocr "ONOCR" nil t) (:integer onlret "ONLRET" nil t) + (:integer ofdel "OFDEL" nil t) (:integer ofill "OFILL" nil t) (:integer nldly "NLDLY" nil t) (:integer nl0 "NL0" nil t) diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp index d40fd7d..b680ce2 100644 --- a/contrib/sb-posix/interface.lisp +++ b/contrib/sb-posix/interface.lisp @@ -621,6 +621,11 @@ (syscall-error)) (setf termios (alien-to-termios a-termios termios)))) termios) + (define-call "tcdrain" int minusp (fd file-descriptor)) + (define-call "tcflow" int minusp (fd file-descriptor) (action int)) + (define-call "tcflush" int minusp (fd file-descriptor) (queue-selector int)) + (define-call "tcgetsid" pid-t minusp (fd file-descriptor)) + (define-call "tcsendbreak" int minusp (fd file-descriptor) (duration int)) (export 'cfsetispeed :sb-posix) (declaim (inline cfsetispeed)) (defun cfsetispeed (speed &optional termios) diff --git a/version.lisp-expr b/version.lisp-expr index 8fb7f06..d0bdef7 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.33.17" +"1.0.33.18" -- 1.7.10.4