Rmk22 gitfns ignores other owners (#1713)

* GITFNS: prc ignores PRs from other owners

The menu just includes Interlisp PR's.  Fixing it to deal with other owners will take more work.

* JSON:  JSON-GET takes a list of attributes

A convenience for accessing objects embedded in objects

* GITFNS:  a minor cleanup

* Remove JSON-GET left over

* Put the git commands to install remotes in comments

So we don't have to rediscover them when we decide to fix prc to deal with this issue.

lispusers/JSON

@@ -1,15 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "30-Apr-2024 14:42:30" {WMEDLEY}<lispusers>JSON.;31
 9030   
+
(FILECREATED "13-May-2024 22:37:13" {WMEDLEY}<lispusers>JSON.;36
 9198   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS JSON-STRING JSON-GET JSON-VALUE JSON-ARRAY JSON-OBJECT JSON-AVPAIR JSON-NUMBER
-                       JSON-ATOM JSSKIP JSON-SKIP JSON-PARSE)
-                  (VARS JSONCOMS)
-                  (MACROS JSBIN JSPEEK JSBINC JSPEEKC)
+      :CHANGES-TO (FNS JSON-GET)
 
-      :PREVIOUS-DATE "30-Apr-2024 00:54:21" {WMEDLEY}<lispusers>JSON.;9)
+      :PREVIOUS-DATE "13-May-2024 19:23:02" {WMEDLEY}<lispusers>JSON.;33)
 
 
 (PRETTYCOMPRINT JSONCOMS)
@@ -180,11 +177,14 @@
          NIL])
 
 (JSON-GET

-  [LAMBDA (OBJECT ATTRIBUTE)
                                 (* ; "Edited 30-Apr-2024 14:26 by rmk")

+  [LAMBDA (OBJECT ATTRIBUTES)
                                (* ; "Edited 13-May-2024 22:35 by rmk")


+                                                             (* ; "Edited 30-Apr-2024 14:26 by rmk")

 
-    (* ;; "Returns the value of ATTRIBUTE in OBJECT")

+    (* ;; "Returns the value at the end of a chain of ATTRIBUTES in OBJECT")

 
-    (CADR (ASSOC ATTRIBUTE OBJECT])
+    (for
 A (OBJ _ OBJECT) inside
 ATTRIBUTES do
 (if
 (EQ 'OBJECT (CAR (LISTP OBJ)))
+                                                   then
 [SETQ OBJ (CADR (ASSOC A (CDR OBJ]
+                                                 else
 (RETURN NIL)) finally
 (RETURN OBJ])
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
@@ -201,7 +201,7 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (778 8671 (JSON-PARSE 788 . 1134) (JSON-VALUE 1136 . 1505) (JSON-SKIP 1507 . 1781) (
-JSON-STRING 1783 . 2581) (JSON-ARRAY 2583 . 3721) (JSON-OBJECT 3723 . 5180) (JSON-AVPAIR 5182 . 5624) 
-(JSON-NUMBER 5626 . 7140) (JSON-ATOM 7142 . 8449) (JSON-GET 8451 . 8669)))))
+  (FILEMAP (NIL (559 8839 (JSON-PARSE 569 . 915) (JSON-VALUE 917 . 1286) (JSON-SKIP 1288 . 1562) (
+JSON-STRING 1564 . 2362) (JSON-ARRAY 2364 . 3502) (JSON-OBJECT 3504 . 4961) (JSON-AVPAIR 4963 . 5405) 
+(JSON-NUMBER 5407 . 6921) (JSON-ATOM 6923 . 8230) (JSON-GET 8232 . 8837)))))
 STOP