GITFNS: If test is cloned under git-test, makes a gitfns project by default

lispusers/GITFNS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Jun-2022 20:44:07" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;313
 100657 
+
(FILECREATED "20-Jun-2022 11:09:08" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;315
 100727 
 
-      :CHANGES-TO (FNS GIT-BRANCH-DIFF)
+      :CHANGES-TO (VARS GITFNSCOMS)
 
-      :PREVIOUS-DATE "29-May-2022 21:59:23" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;312)
+      :PREVIOUS-DATE " 4-Jun-2022 20:44:07" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;313)
 
 
 (PRETTYCOMPRINT GITFNSCOMS)
@@ -32,7 +32,8 @@
                                                  fontsold/ clos/ cltl2/)
                   '(greetfiles scripts sources library lispusers))
            (GIT-MAKE-PROJECT 'NOTECARDS T T '(online/))
-           (GIT-MAKE-PROJECT 'LOOPS T T))
+           (GIT-MAKE-PROJECT 'LOOPS T T)
+           (GIT-MAKE-PROJECT 'TEST T T))
         
         (* ;; "")

 
@@ -365,6 +366,8 @@
 
 (GIT-MAKE-PROJECT
 'LOOPS T T)
 
+(GIT-MAKE-PROJECT
 'TEST T T)
+
 
 
 (* ;; "")

@@ -1911,28 +1914,28 @@
 
 (PUTPROPS GITFNS
 FILETYPE
 :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3384 17231 (GIT-CLONEP 3394 . 4657) (GIT-MAKE-PROJECT 4659 . 12771) (GIT-GET-PROJECT 
-12773 . 14110) (GIT-PROJECT-PATH 14112 . 15156) (FIND-ANCESTOR-DIRECTORY 15158 . 15507) (
-GIT-FIND-CLONE 15509 . 16590) (GIT-MAINBRANCH 16592 . 16876) (GIT-MAINBRANCH? 16878 . 17229)) (23164 
-25952 (ALLSUBDIRS 23174 . 24460) (MEDLEYSUBDIRS 24462 . 25155) (GITSUBDIRS 25157 . 25950)) (25953 
-30743 (TOGIT 25963 . 27369) (FROMGIT 27371 . 28352) (GIT-DELETE-FILE 28354 . 29200) (
-MYMEDLEY-DELETE-FILES 29202 . 30741)) (30744 33276 (MYMEDLEYSUBDIR 30754 . 31210) (GITSUBDIR 31212 . 
-31655) (STRIPDIR 31657 . 32028) (STRIPHOST 32030 . 32270) (STRIPNAME 32272 . 33025) (STRIPWHERE 33027
- . 33274)) (33277 35179 (GFILE4MFILE 33287 . 33650) (MFILE4GFILE 33652 . 34221) (GIT-REPO-FILENAME 
-34223 . 35177)) (35228 43029 (GIT-COMMIT 35238 . 36064) (GIT-PUSH 36066 . 36710) (GIT-PULL 36712 . 
-37324) (GIT-APPROVAL 37326 . 37675) (GIT-GET-FILE 37677 . 40196) (GIT-FILE-EXISTS? 40198 . 41142) (
-GIT-REMOTE-UPDATE 41144 . 41868) (GIT-REMOTE-ADD 41870 . 42177) (GIT-FILE-DATE 42179 . 43027)) (43059 
-51650 (GIT-BRANCH-DIFF 43069 . 47821) (GIT-COMMIT-DIFFS 47823 . 48267) (GIT-BRANCH-RELATIONS 48269 . 
-51648)) (51695 60630 (GIT-BRANCH-NUM 51705 . 52278) (GIT-CHECKOUT 52280 . 52792) (GIT-WHICH-BRANCH 
-52794 . 53092) (GIT-MAKE-BRANCH 53094 . 54838) (GIT-BRANCHES 54840 . 56331) (GIT-BRANCH-EXISTS? 56333
- . 57037) (GIT-PICK-BRANCH 57039 . 57367) (GIT-PRC-MENU 57369 . 58997) (GIT-PULL-REQUESTS 58999 . 
-60016) (GIT-SHORT-BRANCH-NAME 60018 . 60309) (GIT-LONG-NAME 60311 . 60628)) (60660 63995 (
-GIT-MY-CURRENT-BRANCH 60670 . 61040) (GIT-MY-BRANCHP 61042 . 61547) (GIT-MY-NEXT-BRANCH 61549 . 62043)
- (GIT-MY-BRANCHES 62045 . 63993)) (64041 67993 (GIT-ADD-WORKTREE 64051 . 65535) (GIT-REMOVE-WORKTREE 
-65537 . 66467) (GIT-LIST-WORKTREES 66469 . 67273) (WORKTREEDIR 67275 . 67991)) (68041 97537 (
-GIT-GET-DIFFERENT-FILES 68051 . 73876) (GIT-BRANCHES-COMPARE-DIRECTORIES 73878 . 79720) (
-GIT-WORKING-COMPARE-DIRECTORIES 79722 . 84188) (GIT-COMPARE-WORKTREE 84190 . 88063) (GITCDOBJBUTTONFN 
-88065 . 92555) (GIT-CD-LABELFN 92557 . 93639) (GIT-CD-MENUFN 93641 . 95848) (GIT-WORKING-COMPARE-FILES
- 95850 . 96369) (GIT-BRANCHES-COMPARE-FILES 96371 . 97535)) (97607 100590 (CDGITDIR 97617 . 97995) (
-GIT-COMMAND 97997 . 99583) (GITORIGIN 99585 . 100282) (GIT-INITIALS 100284 . 100588)))))
+  (FILEMAP (NIL (3420 17267 (GIT-CLONEP 3430 . 4693) (GIT-MAKE-PROJECT 4695 . 12807) (GIT-GET-PROJECT 
+12809 . 14146) (GIT-PROJECT-PATH 14148 . 15192) (FIND-ANCESTOR-DIRECTORY 15194 . 15543) (
+GIT-FIND-CLONE 15545 . 16626) (GIT-MAINBRANCH 16628 . 16912) (GIT-MAINBRANCH? 16914 . 17265)) (23234 
+26022 (ALLSUBDIRS 23244 . 24530) (MEDLEYSUBDIRS 24532 . 25225) (GITSUBDIRS 25227 . 26020)) (26023 
+30813 (TOGIT 26033 . 27439) (FROMGIT 27441 . 28422) (GIT-DELETE-FILE 28424 . 29270) (
+MYMEDLEY-DELETE-FILES 29272 . 30811)) (30814 33346 (MYMEDLEYSUBDIR 30824 . 31280) (GITSUBDIR 31282 . 
+31725) (STRIPDIR 31727 . 32098) (STRIPHOST 32100 . 32340) (STRIPNAME 32342 . 33095) (STRIPWHERE 33097
+ . 33344)) (33347 35249 (GFILE4MFILE 33357 . 33720) (MFILE4GFILE 33722 . 34291) (GIT-REPO-FILENAME 
+34293 . 35247)) (35298 43099 (GIT-COMMIT 35308 . 36134) (GIT-PUSH 36136 . 36780) (GIT-PULL 36782 . 
+37394) (GIT-APPROVAL 37396 . 37745) (GIT-GET-FILE 37747 . 40266) (GIT-FILE-EXISTS? 40268 . 41212) (
+GIT-REMOTE-UPDATE 41214 . 41938) (GIT-REMOTE-ADD 41940 . 42247) (GIT-FILE-DATE 42249 . 43097)) (43129 
+51720 (GIT-BRANCH-DIFF 43139 . 47891) (GIT-COMMIT-DIFFS 47893 . 48337) (GIT-BRANCH-RELATIONS 48339 . 
+51718)) (51765 60700 (GIT-BRANCH-NUM 51775 . 52348) (GIT-CHECKOUT 52350 . 52862) (GIT-WHICH-BRANCH 
+52864 . 53162) (GIT-MAKE-BRANCH 53164 . 54908) (GIT-BRANCHES 54910 . 56401) (GIT-BRANCH-EXISTS? 56403
+ . 57107) (GIT-PICK-BRANCH 57109 . 57437) (GIT-PRC-MENU 57439 . 59067) (GIT-PULL-REQUESTS 59069 . 
+60086) (GIT-SHORT-BRANCH-NAME 60088 . 60379) (GIT-LONG-NAME 60381 . 60698)) (60730 64065 (
+GIT-MY-CURRENT-BRANCH 60740 . 61110) (GIT-MY-BRANCHP 61112 . 61617) (GIT-MY-NEXT-BRANCH 61619 . 62113)
+ (GIT-MY-BRANCHES 62115 . 64063)) (64111 68063 (GIT-ADD-WORKTREE 64121 . 65605) (GIT-REMOVE-WORKTREE 
+65607 . 66537) (GIT-LIST-WORKTREES 66539 . 67343) (WORKTREEDIR 67345 . 68061)) (68111 97607 (
+GIT-GET-DIFFERENT-FILES 68121 . 73946) (GIT-BRANCHES-COMPARE-DIRECTORIES 73948 . 79790) (
+GIT-WORKING-COMPARE-DIRECTORIES 79792 . 84258) (GIT-COMPARE-WORKTREE 84260 . 88133) (GITCDOBJBUTTONFN 
+88135 . 92625) (GIT-CD-LABELFN 92627 . 93709) (GIT-CD-MENUFN 93711 . 95918) (GIT-WORKING-COMPARE-FILES
+ 95920 . 96439) (GIT-BRANCHES-COMPARE-FILES 96441 . 97605)) (97677 100660 (CDGITDIR 97687 . 98065) (
+GIT-COMMAND 98067 . 99653) (GITORIGIN 99655 . 100352) (GIT-INITIALS 100354 . 100658)))))
 STOP