New function: path-dir-empty.

* lisplib.c (path_test_set_entries): Autoload entry for
path-dir-empty.

* share/txr/stdlib/path-test.tl (path-dir-empty): New
function.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 30b2152a..78d6c024 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -190,6 +190,7 @@ static val path_test_set_entries(val dlt, val fun)
     lit("path-newer"), lit("path-older"),
     lit("path-same-object"), lit("path-private-to-me-p"),
     lit("path-strictly-private-to-me-p"),
+    lit("path-dir-empty"),
     nil
   };