Make open_socket static and register in socket.c.

* lisplib.c (sock_set_entries): Add auto-load entry
for open-socket.

* socket.c (open_socket): Change to static.
(sock_load_init): Register open-socket intrinsic
here rather than in stream.c.

* stream.c (stream_init): Remove registration of
open-socket intrinsic.

* stream.h (open_socket): Declaration removed.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 1c1d4d29..9848db54 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -292,7 +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"),
+    lit("open-socket"), lit("open-socket-pair"),
     nil
   };
   set_dlt_entries(dlt, name, fun);