From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 27 Oct 2013 19:39:19 +0000 (+0100)
Subject: NAMED-ADDRESS should inherit from ADDRESS
X-Git-Tag: v0.8.1~46
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/5310ba89f0147294e6527e076ec1ecbc1b882794

NAMED-ADDRESS should inherit from ADDRESS

Reported by Christopher Laux
---

diff --git a/src/sockets/address.lisp b/src/sockets/address.lisp
index dbba7af..90b4a57 100644
--- a/src/sockets/address.lisp
+++ b/src/sockets/address.lisp
@@ -11,7 +11,7 @@
   ()
   (:documentation "Base class for all socket address classes."))
 
-(defclass named-address ()
+(defclass named-address (address)
   ((name :initarg :name :reader address-name :type vector))
   (:documentation "Base class for socket address with a name."))