MAKE-SOCKET-PAIR: don't duplicate newly-created descriptors
authorStelian Ionescu <sionescu@cddr.org>
Sat, 18 Aug 2012 16:38:26 +0000 (18 18:38 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Sat, 18 Aug 2012 16:38:26 +0000 (18 18:38 +0200)
src/sockets/make-socket.lisp

index cf38b16..3efa8d2 100644 (file)
@@ -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)