New open-socket-pair function.

* lisplib.c (sock_set_entries): Add open-socket-pair to
autoload list.

* socket.c (sock_mark_connected, socketpair_wrap): New static
functions.
(sock_load_init): Register open-socket-pair intrinsic.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 80b79e45..1c1d4d29 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -292,6 +292,7 @@ static val sock_set_entries(val dlt, val fun)
     lit("ai-numericserv"),
     lit("str-inaddr"), lit("str-in6addr"),
     lit("str-inaddr-net"), lit("str-in6addr-net"),
+    lit("open-socket-pair"),
     nil
   };
   set_dlt_entries(dlt, name, fun);