From: Stelian Ionescu <sionescu@cddr.org>
Date: Sat, 18 Aug 2012 16:38:26 +0000 (+0200)
Subject: MAKE-SOCKET-PAIR: don't duplicate newly-created descriptors
X-Git-Tag: v0.8.0~41
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/4d1c573c4f429b0bda99ba420b5da86937aaaf08

MAKE-SOCKET-PAIR: don't duplicate newly-created descriptors
---

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)