From 57148aec5180b2a924aad98502bceb7798543cd6 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 16 Jan 2008 23:19:20 +0100 Subject: [PATCH] LOCAL-HOST and LOCAL-PORT no longer get default values when creating active stream sockets. Signed-off-by: Stelian Ionescu --- sockets/make-socket.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/sockets/make-socket.lisp b/sockets/make-socket.lisp index fe7a180..88a1c20 100644 --- a/sockets/make-socket.lisp +++ b/sockets/make-socket.lisp @@ -76,7 +76,7 @@ remaining address list as the second return value." (defun %make-internet-stream-active-socket (args family ef) (destructuring-bind (&key keepalive nodelay (reuse-address t) - (local-host +default-host+) (local-port 0) + local-host local-port (remote-host +default-host+) (remote-port 0)) args (%%make-internet-stream-active-socket family ef keepalive nodelay reuse-address @@ -86,7 +86,7 @@ remaining address list as the second return value." (with-guard-again-non-list-args-and-destructuring-bind-errors form args (destructuring-bind (&key keepalive nodelay (reuse-address t) - (local-host +default-host+) (local-port 0) + local-host local-port (remote-host +default-host+) (remote-port 0)) (cdr args) `(%%make-internet-stream-active-socket ,family ,ef ,keepalive ,nodelay ,reuse-address @@ -188,7 +188,7 @@ remaining address list as the second return value." (defun %make-internet-datagram-socket (args family ef) (destructuring-bind (&key broadcast interface (reuse-address t) - (local-host +default-host+) (local-port 0) + local-host local-port (remote-host +default-host+) (remote-port 0)) args (%%make-internet-datagram-socket family ef broadcast interface reuse-address @@ -198,7 +198,7 @@ remaining address list as the second return value." (with-guard-again-non-list-args-and-destructuring-bind-errors form args (destructuring-bind (&key broadcast interface (reuse-address t) - (local-host +default-host+) (local-port 0) + local-host local-port (remote-host +default-host+) (remote-port 0)) (cdr args) `(%%make-internet-datagram-socket ,family ,ef ,broadcast ,interface ,reuse-address -- 2.11.4.GIT