Add RECEIVE-FROM for raw sockets
authorStelian Ionescu <sionescu@cddr.org>
Mon, 14 Oct 2013 15:10:46 +0000 (14 17:10 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 14 Oct 2013 15:10:46 +0000 (14 17:10 +0200)
Thanks to Christopher Laux

src/sockets/socket-methods.lisp

index 95cb3e6..8096c61 100644 (file)
     (let ((nbytes (%receive-from (fd-of socket) ss size buffer start end flags)))
       (values buffer nbytes))))
 
+(defmethod receive-from ((socket raw-socket) &key buffer start end flags)
+  (with-sockaddr-storage-and-socklen (ss size)
+    (let ((nbytes (%receive-from (fd-of socket) ss size buffer start end flags)))
+      (values buffer nbytes))))
+
 (defmethod receive-from ((socket datagram-socket) &key buffer start end flags)
   (with-sockaddr-storage-and-socklen (ss size)
     (let ((nbytes (%receive-from (fd-of socket) ss size buffer start end flags)))