* eval.c (eval_init): New intrinsics, time-string-local and

time-string-utc.

* lib.c (string_time): New static function.
(time_string_local, time_string_utc): New functions.

* lib.h (time_string_local, time_string_utc): Declared.

* txr.1: Documented.

* RELNOTES: Updated.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 81c7db88..7d1f1758 100644
--- a/eval.c
+++ b/eval.c
@@ -2467,6 +2467,8 @@ void eval_init(void)
 
   reg_fun(intern(lit("time"), user_package), func_n0(time_sec));
   reg_fun(intern(lit("time-usec"), user_package), func_n0(time_sec_usec));
+  reg_fun(intern(lit("time-string-local"), user_package), func_n2(time_string_local));
+  reg_fun(intern(lit("time-string-utc"), user_package), func_n2(time_string_utc));
 
   reg_fun(intern(lit("source-loc"), user_package), func_n1(source_loc));
   reg_fun(intern(lit("source-loc-str"), user_package), func_n1(source_loc_str));