Skip to content

Commit

Permalink
1.0.33.11: thread-safe FIND-PACKAGE & DEFPACKAGE
Browse files Browse the repository at this point in the history
 * Must use WITH-PACKAGES around the GETHASH *PACKAGE-NAMES*.
  • Loading branch information
nikodemus committed Dec 17, 2009
1 parent 3b02862 commit e5942d2
Show file tree
Hide file tree
Showing 4 changed files with 11 additions and 1 deletion.
2 changes: 2 additions & 0 deletions NEWS
Expand Up @@ -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.
Expand Down
3 changes: 3 additions & 0 deletions contrib/sb-posix/constants.lisp
Expand Up @@ -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)
Expand All @@ -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)
Expand Down
5 changes: 5 additions & 0 deletions contrib/sb-posix/interface.lisp
Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Expand Up @@ -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"

0 comments on commit e5942d2

Please sign in to comment.