X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sockets.lisp;h=c8c9b58df0aaa6463e0dbc7b075d2afd895aa51a;hb=3874ce39bb321aee986d4ebb103ff1ab56f1036d;hp=dc8965cc4e91374cf84f5f376ce478a8ee55183a;hpb=03712fbb06acbb103602bae10f41aeae7fa05127;p=kmrcl.git

diff --git a/sockets.lisp b/sockets.lisp
index dc8965c..c8c9b58 100644
--- a/sockets.lisp
+++ b/sockets.lisp
@@ -22,6 +22,7 @@
 (defun listen-to-inet-port (&key (port 0) (kind :stream) (reuse nil))
   "Create, bind and listen to an inet socket on *:PORT.
 setsockopt SO_REUSEADDR if :reuse is not nil"
+  (declare (ignore kind))
   (let ((socket (make-instance 'sb-bsd-sockets:inet-socket
                                :type :stream
                                :protocol :tcp)))