From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 5 May 2013 01:27:16 +0000 (+0200)
Subject: Add Netlink support to MAKE-SOCKET-FROM-FD
X-Git-Tag: v0.8.1~65
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/5a2821dd2cdc95659f84dfcf00c47db387d6042c

Add Netlink support to MAKE-SOCKET-FROM-FD
---

diff --git a/src/sockets/make-socket.lisp b/src/sockets/make-socket.lisp
index 8ffde62..695c058 100644
--- a/src/sockets/make-socket.lisp
+++ b/src/sockets/make-socket.lisp
@@ -349,7 +349,8 @@ The socket is automatically closed upon exit."
              (eswitch ((foreign-slot-value ss 'sockaddr-storage 'family) :test #'=)
                (af-inet  :ipv4)
                (af-inet6 :ipv6)
-               (af-local :local))))
+               (af-local :local)
+               (af-netlink :netlink))))
          (%get-type (fd)
            (eswitch ((get-socket-option-int fd sol-socket so-type) :test #'=)
              (sock-stream :stream)