IP address to string functions.

* lisplib.c (sock_set_entries): Add str-inaddr and str-in6addr
to list of autoload identifiers.

* share/txr/stdlib/socket.tl (str-inaddr, str-in6addr): New
functions.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 0040dc2b..d0cf7a2a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -290,6 +290,7 @@ static val sock_set_entries(val dlt, val fun)
     lit("ai-passive"), lit("ai-canonname"), lit("ai-numerichost"),
     lit("ai-v4mapped"), lit("ai-all"), lit("ai-addrconfig"),
     lit("ai-numericserv"),
+    lit("str-inaddr"), lit("str-in6addr"),
     nil
   };
   set_dlt_entries(dlt, name, fun);