From b88fe485cef6ac08b621b193e69556d65704398c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 17 Sep 2015 22:24:34 -0700
Subject: 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.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

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
   };
 
-- 
cgit v1.2.3