Add Netlink support to MAKE-SOCKET-FROM-FD
authorStelian Ionescu <sionescu@cddr.org>
Sun, 5 May 2013 01:27:16 +0000 (5 03:27 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Sun, 5 May 2013 01:27:16 +0000 (5 03:27 +0200)
src/sockets/make-socket.lisp

index 8ffde62..695c058 100644 (file)
@@ -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)