From 386d7143b677979e02392bb8750aea1da00fb687 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 13 Apr 2020 23:43:18 -0700 Subject: 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. --- socket.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'socket.c') diff --git a/socket.c b/socket.c index 7b695573..546e5d7e 100644 --- a/socket.c +++ b/socket.c @@ -1114,6 +1114,9 @@ void sock_load_init(void) reg_varl(intern(lit("ai-addrconfig"), user_package), num_fast(AI_ADDRCONFIG)); reg_varl(intern(lit("ai-numericserv"), user_package), num_fast(AI_NUMERICSERV)); #endif + reg_varl(intern(lit("shut-rd"), user_package), num_fast(SHUT_RD)); + reg_varl(intern(lit("shut-wr"), user_package), num_fast(SHUT_WR)); + reg_varl(intern(lit("shut-rdwr"), user_package), num_fast(SHUT_RDWR)); reg_fun(intern(lit("sock-bind"), user_package), func_n2(sock_bind)); reg_fun(intern(lit("sock-connect"), user_package), func_n3o(sock_connect, 2)); -- cgit v1.2.3