From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 5 May 2013 01:37:54 +0000 (+0200)
Subject: Add condition class SOCKET-ADDRESS-FAMILY-NOT-SUPPORTED-ERROR
X-Git-Tag: v0.8.1~64
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/862da711ded7f26a5f5b22918c221459cee8d9d7

Add condition class SOCKET-ADDRESS-FAMILY-NOT-SUPPORTED-ERROR
---

diff --git a/src/sockets/conditions.lisp b/src/sockets/conditions.lisp
index 9b225dd..7e35bc1 100644
--- a/src/sockets/conditions.lisp
+++ b/src/sockets/conditions.lisp
@@ -52,6 +52,7 @@
   (:documentation "Error signalled upon finding an unknown socket error."))
 
 (define-socket-error socket-address-in-use-error          :eaddrinuse)
+(define-socket-error socket-address-family-not-supported-error :eafnosupport)
 (define-socket-error socket-address-not-available-error   :eaddrnotavail)
 (define-socket-error socket-network-down-error            :enetdown)
 (define-socket-error socket-network-reset-error           :enetreset)
diff --git a/src/sockets/pkgdcl.lisp b/src/sockets/pkgdcl.lisp
index 7ea7e0f..995003d 100644
--- a/src/sockets/pkgdcl.lisp
+++ b/src/sockets/pkgdcl.lisp
@@ -16,6 +16,7 @@
    ;; Conditions
    #:socket-error
    #:socket-address-in-use-error
+   #:socket-address-family-not-supported-error
    #:socket-address-not-available-error
    #:socket-already-connected-error
    #:socket-connection-aborted-error