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

diff --git a/sockets.lisp b/sockets.lisp
index dc8965c..a75d77d 100644
--- a/sockets.lisp
+++ b/sockets.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: modlisp -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -6,8 +6,6 @@
 ;;;; Purpose:       Socket functions
 ;;;; Programmer:    Kevin M. Rosenberg with excerpts from portableaserve
 ;;;; Date Started:  Jun 2003
-;;;;
-;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
@@ -22,6 +20,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)))