From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 5 May 2013 01:22:26 +0000 (+0200)
Subject: Introduce class named-address for protocol addresses with an explicit endpoint
X-Git-Tag: v0.8.1~69
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/4c5c9354a12a6b2ad75f144e2811b3fa31fbdcf2

Introduce class named-address for protocol addresses with an explicit endpoint
---

diff --git a/src/sockets/address.lisp b/src/sockets/address.lisp
index a45796b..9852543 100644
--- a/src/sockets/address.lisp
+++ b/src/sockets/address.lisp
@@ -8,10 +8,14 @@
 ;;;; Class Definitions
 
 (defclass address ()
-  ((name :initarg :name :reader address-name :type vector))
+  ()
   (:documentation "Base class for all socket address classes."))
 
-(defclass inet-address (address) ()
+(defclass named-address ()
+  ((name :initarg :name :reader address-name :type vector))
+  (:documentation "Base class for socket address with a name."))
+
+(defclass inet-address (named-address) ()
   (:documentation "Base class for IPv4 and IPv6 addresses."))
 
 (defclass ipv4-address (inet-address) ()
@@ -24,7 +28,7 @@ ADDRESS-NAME reader."))
 can be accessed as vector of type IPV6-ARRAY through the
 ADDRESS-NAME reader."))
 
-(defclass local-address (address)
+(defclass local-address (named-address)
   ((abstract :initform nil :initarg :abstract
              :reader abstract-address-p :type boolean))
   (:documentation "UNIX socket address."))
diff --git a/src/sockets/pkgdcl.lisp b/src/sockets/pkgdcl.lisp
index a796daf..c1a91d9 100644
--- a/src/sockets/pkgdcl.lisp
+++ b/src/sockets/pkgdcl.lisp
@@ -58,6 +58,7 @@
    ;; Address Classes
    #:address
    #:inet-address
+   #:named-address
    #:ipv4-address
    #:ipv6-address
    #:local-address