sockets: missing shut-rd, shut-wr, shut-rdwr.

* socket.c (sock_load_init): Register documented but
completely missing intrinsic variables shut-rd, shut-wr,
shut-rdwr.

* lisplib.c (sock_set_entries): Register autoload for shut-rd,
shut-wr, shut-rdwr.

* txr.1: In sock-shutdown description, fix shut-rw typo that
should be shut-wr.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index d1a2dd06..d97ad63d 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -344,6 +344,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("shut-rd"), lit("shut-wr"), lit("shut-rdwr"),
     lit("open-socket"), lit("open-socket-pair"),
     lit("sock-bind"), lit("sock-connect"), lit("sock-listen"),
     lit("sock-accept"), lit("sock-shutdown"), lit("open-socket"),