From 4a4da2875171c4802af72defcb71d720e8fa8093 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 1 Jun 2005 11:42:43 +0000 Subject: [PATCH] 0.9.1.12: Merge "Add socket-not-connected-error to sb-bsd-sockets" (Tony Martinez sbcl-devel 2004-11-06) ... NOT-CONNECTED-ERROR seems to match the naming scheme better than SOCKET-NOT-CONNECTED-ERROR. --- contrib/sb-bsd-sockets/constants.lisp | 1 + contrib/sb-bsd-sockets/sockets.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp index ab29f66..7e331c6 100644 --- a/contrib/sb-bsd-sockets/constants.lisp +++ b/contrib/sb-bsd-sockets/constants.lisp @@ -75,6 +75,7 @@ (:integer EPROTONOSUPPORT "EPROTONOSUPPORT") (:integer ESOCKTNOSUPPORT "ESOCKTNOSUPPORT") (:integer ENETUNREACH "ENETUNREACH") + (:integer ENOTCONN "ENOTCONN") (:integer NETDB-INTERNAL "NETDB_INTERNAL" "See errno.") (:integer NETDB-SUCCESS "NETDB_SUCCESS" "No problem.") diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp index 0fb00e5..efbd0e4 100644 --- a/contrib/sb-bsd-sockets/sockets.lisp +++ b/contrib/sb-bsd-sockets/sockets.lisp @@ -325,7 +325,7 @@ SB-SYS:MAKE-FD-STREAM.")) (define-socket-condition sockint::EPROTONOSUPPORT protocol-not-supported-error) (define-socket-condition sockint::ESOCKTNOSUPPORT socket-type-not-supported-error) (define-socket-condition sockint::ENETUNREACH network-unreachable-error) - +(define-socket-condition sockint::ENOTCONN not-connected-error) (defun condition-for-errno (err) (or (cdr (assoc err *conditions-for-errno* :test #'eql)) 'socket-error)) diff --git a/version.lisp-expr b/version.lisp-expr index f79ef1c..a0705a3 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".) -"0.9.1.11" +"0.9.1.12" -- 1.7.10.4