1.0.33.11: thread-safe FIND-PACKAGE & DEFPACKAGE

 * Must use WITH-PACKAGES around the GETHASH *PACKAGE-NAMES*.

diff --git a/NEWS b/NEWS
index e73d12b..9f0485b 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"