On ECL, exclude function that is incompatible with ECL

[kmrcl.git] / sockets.lisp

diff --git a/sockets.lisp b/sockets.lisp
index dc8965cc4e91374cf84f5f376ce478a8ee55183a..c8c9b58df0aaa6463e0dbc7b075d2afd895aa51a 100644 (file)
--- 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)))