From 2808f353235173820f39d9a33f06f23a64e3d0cf Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Fri, 15 Sep 2000 14:40:35 +0000 Subject: [PATCH] Change :data-gram protocol keyword to :datagram. Add :backlog keyword parameter to CREATE-INET-LISTENER. --- code/internet.lisp | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/code/internet.lisp b/code/internet.lisp index eb0f0ace5..d9db25763 100644 --- a/code/internet.lisp +++ b/code/internet.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.24 2000/08/07 13:55:17 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.25 2000/09/15 14:40:35 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -68,11 +68,14 @@ (defconstant msg-proxy 16) (defvar *internet-protocols* - (list (list :stream 6 sock-stream) - (list :data-gram 17 sock-dgram)) + '((:stream 6 #.sock-stream) + (:datagram 17 #.sock-dgram)) "AList of socket kinds and protocol values.") (defun internet-protocol (kind) + (when (eq kind :data-gram) ; Sep-2000. Remove someday. + (warn "Internet protocol :DATA-GRAM is depreciated. Using :DATAGRAM") + (setq kind :datagram)) (let ((entry (assoc kind *internet-protocols*))) (unless entry (error "Invalid kind (~S) for internet domain sockets." kind)) @@ -305,7 +308,11 @@ struct in_addr { (values nil unix:unix-errno) (values optval 0)))) -(defun create-inet-listener (port &optional (kind :stream) &key reuse-address) +(defun create-inet-listener (port &optional (kind :stream) + &key + reuse-address + (backlog 5) + ) (let ((socket (create-inet-socket kind))) (when reuse-address (multiple-value-bind (optval errno) @@ -324,7 +331,7 @@ struct in_addr { port (unix:get-unix-error-msg)))) (when (eq kind :stream) - (when (minusp (unix:unix-listen socket 5)) + (when (minusp (unix:unix-listen socket backlog)) (unix:unix-close socket) (error "Error listening to socket: ~A" (unix:get-unix-error-msg)))) socket)) -- GitLab