New function path-private-to-me.

* lisplib.c (path_test_set_entries: "path-private-to-me-p"
addred to name array.
* share/txr/stdlib/path-test.tl (path-private-to-me-p): New
function.

* txr.1: Documented path-private-to-me.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 0e70d7b4..dc90a377 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -151,7 +151,7 @@ static val path_test_set_entries(val dlt, val fun)
     lit("path-setgid-p"), lit("path-setuid-p"), lit("path-sticky-p"),
     lit("path-mine-p"), lit("path-my-group-p"), lit("path-executable-to-me-p"),
     lit("path-writable-to-me-p"), lit("path-newer"), lit("path-older"),
-    lit("path-same-object"),
+    lit("path-same-object"), lit("path-private-to-me-p"),
     nil
   };