NAMED-ADDRESS should inherit from ADDRESS
authorStelian Ionescu <sionescu@cddr.org>
Sun, 27 Oct 2013 19:39:19 +0000 (20:39 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Sun, 27 Oct 2013 19:39:19 +0000 (20:39 +0100)
Reported by Christopher Laux

src/sockets/address.lisp

index dbba7af..90b4a57 100644 (file)
@@ -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."))