From 4d1c573c4f429b0bda99ba420b5da86937aaaf08 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 18 Aug 2012 18:38:26 +0200 Subject: [PATCH] MAKE-SOCKET-PAIR: don't duplicate newly-created descriptors --- 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 cf38b16..3efa8d2 100644 --- a/src/sockets/make-socket.lisp +++ b/src/sockets/make-socket.lisp @@ -350,7 +350,8 @@ The socket is automatically closed upon exit." (defmethod make-socket-pair (&key (type :stream) (protocol :default) (external-format :default) input-buffer-size output-buffer-size) (flet ((%make-socket-pair (fd) - (make-socket-from-fd fd :external-format external-format + (make-socket-from-fd fd :dup nil + :external-format external-format :input-buffer-size input-buffer-size :output-buffer-size output-buffer-size))) (multiple-value-bind (fd1 fd2) -- 2.11.4.GIT