From 48337afe627d0e17aa8e8b6d1e1bce110b07aae9 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 18 Aug 2012 18:37:15 +0200 Subject: [PATCH] Add keyarg DUP to MAKE-SOCKET-FROM-FD --- src/sockets/make-socket.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/sockets/make-socket.lisp b/src/sockets/make-socket.lisp index fdbc459..cf38b16 100644 --- a/src/sockets/make-socket.lisp +++ b/src/sockets/make-socket.lisp @@ -320,7 +320,7 @@ The socket is automatically closed upon exit." ;;; FIXME: must come up with a way to find out ;;; whether a socket is active or passive -(defmethod make-socket-from-fd ((fd integer) &key (connect :active) (external-format :default) +(defmethod make-socket-from-fd ((fd integer) &key (dup t) (connect :active) (external-format :default) input-buffer-size output-buffer-size) (flet ((%get-address-family (fd) (with-sockaddr-storage-and-socklen (ss size) @@ -339,6 +339,7 @@ The socket is automatically closed upon exit." :default :connect connect :fd fd + :dup dup :external-format external-format :input-buffer-size input-buffer-size :output-buffer-size output-buffer-size))) -- 2.11.4.GIT