Add recommended targets to debian/rules

[kmrcl.git] / sockets.lisp

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