From 56cc6af2565071291caeb5df63f0000de3fe6cec Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Tue, 28 Jan 2025 22:57:18 -0800 Subject: [PATCH 1/4] fix prc command --- lispusers/GITFNS | 75 ++++++++++++++++++++---------------------- lispusers/GITFNS.LCOM | Bin 51866 -> 51188 bytes 2 files changed, 36 insertions(+), 39 deletions(-) diff --git a/lispusers/GITFNS b/lispusers/GITFNS index c884fcfc8..68cd5fa0f 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,16 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Jun-2024 23:02:26" {DSK}matt>Interlisp>medley>lispusers>GITFNS.;6 133403 +(FILECREATED "28-Jan-2025 22:54:00" {WMEDLEY}GITFNS.;532 133071 - :EDIT-BY "mth" + :EDIT-BY rmk - :CHANGES-TO (FNS PRC-COMMAND GIT-BRANCH-RELATIONS GIT-BRANCHES GIT-BRANCH-MENU - GIT-PULL-REQUESTS GIT-PRC-BRANCHES CDGITDIR GIT-COMMAND GITORIGIN - GIT-RESULT-TO-LINES STRIPLOCAL GIT-WHICH-BRANCH GIT-GET-DIFFERENT-FILES - GIT-REMOTE-UPDATE GIT-CHECKOUT GIT-MAKE-BRANCH GIT-MY-BRANCHP - GIT-BRANCHES-COMPARE-DIRECTORIES GIT-WORKING-COMPARE-DIRECTORIES) + :CHANGES-TO (FNS PRC-COMMAND) - :PREVIOUS-DATE "10-Jun-2024 18:43:43" {DSK}matt>Interlisp>medley>lispusers>GITFNS.;5) + :PREVIOUS-DATE "12-Jun-2024 23:02:26" {WMEDLEY}GITFNS.;531) (PRETTYCOMPRINT GITFNSCOMS) @@ -539,7 +535,8 @@ (DEFINEQ (PRC-COMMAND - [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 13-May-2024 18:49 by rmk") + [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 28-Jan-2025 22:52 by rmk") + (* ; "Edited 13-May-2024 18:49 by rmk") (* ; "Edited 2-May-2024 11:44 by rmk") (* ; "Edited 1-Apr-2024 20:24 by rmk") (* ; "Edited 28-Jul-2023 09:03 by rmk") @@ -609,7 +606,7 @@ (RPLACD [OR OLDMENUWINDOW (CAR (push GIT-PRC-MENUS (CONS PROJECT] MENUWINDOW) MENUWINDOW - else (GIT-PR-COMPARE (fetch PRNAME of (CAR PRS)) + else (GIT-PR-COMPARE (CADR (CAR (GIT-PRC-BRANCHES T PROJECT PRS))) PROJECT)) else (CONCAT "No open " (OR REMOTEBRANCH "") " pull requests"]) @@ -2426,33 +2423,33 @@ (PUTPROPS GITFNS FILETYPE :TCOMPL) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4636 21215 (GIT-CLONEP 4646 . 5974) (GIT-INIT 5976 . 6606) (GIT-MAKE-PROJECT 6608 . -14273) (GIT-GET-PROJECT 14275 . 16200) (GIT-PUT-PROJECT-FIELD 16202 . 17843) (GIT-PROJECT-PATH 17845 - . 18889) (FIND-ANCESTOR-DIRECTORY 18891 . 19240) (GIT-FIND-CLONE 19242 . 20323) (GIT-MAINBRANCH 20325 - . 20720) (GIT-MAINBRANCH? 20722 . 21213)) (26678 31300 (PRC-COMMAND 26688 . 31298)) (31356 34144 ( -ALLSUBDIRS 31366 . 32652) (MEDLEYSUBDIRS 32654 . 33347) (GITSUBDIRS 33349 . 34142)) (34145 38935 ( -TOGIT 34155 . 35561) (FROMGIT 35563 . 36544) (GIT-DELETE-FILE 36546 . 37392) (MYMEDLEY-DELETE-FILES -37394 . 38933)) (38936 41939 (MYMEDLEYSUBDIR 38946 . 39402) (GITSUBDIR 39404 . 39847) (STRIPDIR 39849 - . 40220) (STRIPHOST 40222 . 40462) (STRIPNAME 40464 . 41217) (STRIPWHERE 41219 . 41937)) (41940 43842 - (GFILE4MFILE 41950 . 42313) (MFILE4GFILE 42315 . 42884) (GIT-REPO-FILENAME 42886 . 43840)) (43891 -54253 (GIT-COMMIT 43901 . 44727) (GIT-PUSH 44729 . 45489) (GIT-PULL 45491 . 46243) (GIT-APPROVAL 46245 - . 46594) (GIT-GET-FILE 46596 . 48618) (GIT-FILE-EXISTS? 48620 . 48894) (GIT-REMOTE-UPDATE 48896 . -49731) (GIT-REMOTE-ADD 49733 . 50040) (GIT-FILE-DATE 50042 . 51089) (GIT-FILE-HISTORY 51091 . 53025) ( -GIT-PRINT-FILE-HISTORY 53027 . 54077) (GIT-FETCH 54079 . 54251)) (54283 65403 (GIT-BRANCH-DIFF 54293 - . 61040) (GIT-COMMIT-DIFFS 61042 . 61715) (GIT-BRANCH-RELATIONS 61717 . 65401)) (65448 84460 ( -GIT-BRANCH-NUM 65458 . 66031) (GIT-CHECKOUT 66033 . 67319) (GIT-WHICH-BRANCH 67321 . 67728) ( -GIT-MAKE-BRANCH 67730 . 70309) (GIT-BRANCHES 70311 . 72906) (GIT-BRANCH-EXISTS? 72908 . 73779) ( -GIT-PICK-BRANCH 73781 . 74271) (GIT-BRANCH-MENU 74273 . 75154) (GIT-BRANCH-WHENSELECTEDFN 75156 . -77321) (GIT-PULL-REQUESTS 77323 . 80841) (GIT-SHORT-BRANCH-NAME 80843 . 81134) (GIT-LONG-NAME 81136 . -81453) (GIT-PRC-BRANCHES 81455 . 84458)) (84490 87938 (GIT-MY-CURRENT-BRANCH 84500 . 84870) ( -GIT-MY-BRANCHP 84872 . 85490) (GIT-MY-NEXT-BRANCH 85492 . 85986) (GIT-MY-BRANCHES 85988 . 87936)) ( -87984 92059 (GIT-ADD-WORKTREE 87994 . 89601) (GIT-REMOVE-WORKTREE 89603 . 90533) (GIT-LIST-WORKTREES -90535 . 91339) (WORKTREEDIR 91341 . 92057)) (92107 125241 (GIT-GET-DIFFERENT-FILES 92117 . 98541) ( -GIT-BRANCHES-COMPARE-DIRECTORIES 98543 . 105774) (GIT-WORKING-COMPARE-DIRECTORIES 105776 . 111224) ( -GIT-COMPARE-WORKTREE 111226 . 115204) (GITCDOBJBUTTONFN 115206 . 119696) (GIT-CD-LABELFN 119698 . -120780) (GIT-CD-MENUFN 120782 . 123222) (GIT-WORKING-COMPARE-FILES 123224 . 123844) ( -GIT-BRANCHES-COMPARE-FILES 123846 . 125010) (GIT-PR-COMPARE 125012 . 125239)) (125311 133336 (CDGITDIR - 125321 . 126008) (GIT-COMMAND 126010 . 127568) (GITORIGIN 127570 . 128267) (GIT-INITIALS 128269 . -128573) (GIT-COMMAND-TO-FILE 128575 . 132060) (GIT-RESULT-TO-LINES 132062 . 132669) (STRIPLOCAL 132671 - . 133334))))) + (FILEMAP (NIL (4181 20760 (GIT-CLONEP 4191 . 5519) (GIT-INIT 5521 . 6151) (GIT-MAKE-PROJECT 6153 . +13818) (GIT-GET-PROJECT 13820 . 15745) (GIT-PUT-PROJECT-FIELD 15747 . 17388) (GIT-PROJECT-PATH 17390 + . 18434) (FIND-ANCESTOR-DIRECTORY 18436 . 18785) (GIT-FIND-CLONE 18787 . 19868) (GIT-MAINBRANCH 19870 + . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 30968 (PRC-COMMAND 26233 . 30966)) (31024 33812 ( +ALLSUBDIRS 31034 . 32320) (MEDLEYSUBDIRS 32322 . 33015) (GITSUBDIRS 33017 . 33810)) (33813 38603 ( +TOGIT 33823 . 35229) (FROMGIT 35231 . 36212) (GIT-DELETE-FILE 36214 . 37060) (MYMEDLEY-DELETE-FILES +37062 . 38601)) (38604 41607 (MYMEDLEYSUBDIR 38614 . 39070) (GITSUBDIR 39072 . 39515) (STRIPDIR 39517 + . 39888) (STRIPHOST 39890 . 40130) (STRIPNAME 40132 . 40885) (STRIPWHERE 40887 . 41605)) (41608 43510 + (GFILE4MFILE 41618 . 41981) (MFILE4GFILE 41983 . 42552) (GIT-REPO-FILENAME 42554 . 43508)) (43559 +53921 (GIT-COMMIT 43569 . 44395) (GIT-PUSH 44397 . 45157) (GIT-PULL 45159 . 45911) (GIT-APPROVAL 45913 + . 46262) (GIT-GET-FILE 46264 . 48286) (GIT-FILE-EXISTS? 48288 . 48562) (GIT-REMOTE-UPDATE 48564 . +49399) (GIT-REMOTE-ADD 49401 . 49708) (GIT-FILE-DATE 49710 . 50757) (GIT-FILE-HISTORY 50759 . 52693) ( +GIT-PRINT-FILE-HISTORY 52695 . 53745) (GIT-FETCH 53747 . 53919)) (53951 65071 (GIT-BRANCH-DIFF 53961 + . 60708) (GIT-COMMIT-DIFFS 60710 . 61383) (GIT-BRANCH-RELATIONS 61385 . 65069)) (65116 84128 ( +GIT-BRANCH-NUM 65126 . 65699) (GIT-CHECKOUT 65701 . 66987) (GIT-WHICH-BRANCH 66989 . 67396) ( +GIT-MAKE-BRANCH 67398 . 69977) (GIT-BRANCHES 69979 . 72574) (GIT-BRANCH-EXISTS? 72576 . 73447) ( +GIT-PICK-BRANCH 73449 . 73939) (GIT-BRANCH-MENU 73941 . 74822) (GIT-BRANCH-WHENSELECTEDFN 74824 . +76989) (GIT-PULL-REQUESTS 76991 . 80509) (GIT-SHORT-BRANCH-NAME 80511 . 80802) (GIT-LONG-NAME 80804 . +81121) (GIT-PRC-BRANCHES 81123 . 84126)) (84158 87606 (GIT-MY-CURRENT-BRANCH 84168 . 84538) ( +GIT-MY-BRANCHP 84540 . 85158) (GIT-MY-NEXT-BRANCH 85160 . 85654) (GIT-MY-BRANCHES 85656 . 87604)) ( +87652 91727 (GIT-ADD-WORKTREE 87662 . 89269) (GIT-REMOVE-WORKTREE 89271 . 90201) (GIT-LIST-WORKTREES +90203 . 91007) (WORKTREEDIR 91009 . 91725)) (91775 124909 (GIT-GET-DIFFERENT-FILES 91785 . 98209) ( +GIT-BRANCHES-COMPARE-DIRECTORIES 98211 . 105442) (GIT-WORKING-COMPARE-DIRECTORIES 105444 . 110892) ( +GIT-COMPARE-WORKTREE 110894 . 114872) (GITCDOBJBUTTONFN 114874 . 119364) (GIT-CD-LABELFN 119366 . +120448) (GIT-CD-MENUFN 120450 . 122890) (GIT-WORKING-COMPARE-FILES 122892 . 123512) ( +GIT-BRANCHES-COMPARE-FILES 123514 . 124678) (GIT-PR-COMPARE 124680 . 124907)) (124979 133004 (CDGITDIR + 124989 . 125676) (GIT-COMMAND 125678 . 127236) (GITORIGIN 127238 . 127935) (GIT-INITIALS 127937 . +128241) (GIT-COMMAND-TO-FILE 128243 . 131728) (GIT-RESULT-TO-LINES 131730 . 132337) (STRIPLOCAL 132339 + . 133002))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index ec50e7a6765d92658f5104c23c7d2c1a0ff15827..d56e78af3f19876d47ccd0bbd66471f76e18763a 100644 GIT binary patch delta 826 zcmah{zi-n(6ecMHl%WzsB^0%NI;kib9DF|`+OcXpL`|EJA5tYi zSrH3J77Gg!0|OJNGg1fs2KN3BNUU6%hIXjnhP!v)-F@%9@4gT3mwvrnde@#3OMA9| ztP!0UK!|NHTgM2B=%9Zz==RbM^p63-i*}290pEM|q}Lq{CZlvX+G_Z+E|T(NgOU;~ zBVt|=;fl?wHq{Xf)4xRN$zV9zv>}RJ%?(>EM|jYkD)#zz5Ww~4<#HK8XMe1+-^j~Q zX}MVU1MbG$k=z4xLl-Lff2syd>6UI{u({_;t+oflqeHOWrXw0W(PRk4W!2&Jf=ggW zG2ijS?L_lb>a3rCu>MbN@adb|pI38tGFquZ#3QA}#if5WdPRxN>>=JUdTI>k7$rE4(2Fc?n_JJ{` zO7;Z?M#&<=l|`g4PN|}nP7SD~*7;Lv&aV|PP{V*k#!;96rB@-w+1XlQN+685XalJj z;09sBRcM%VFap9V&hP|dIcQMYjLp+xN2Rr zH*Zb5#OOj0tf~#}a?y}Yz^0iUtiQ}-D?4A`eTs>4>R{6ADc3!pq@(c&fuWm#kdmBf{g_QQTa9dYr^(vQ?z+2aT12rli>>6V`2a;F zcR?&HUc3}Mc<`i@XfJK=9zFP%2p+sR$tG>Vg3!~vd2fDi-uu1Z%&)iO@86B@mbx6z z-0RdBp5-y{g3R(VFCmDd&3d)5UGd9MuK|MS3(Z}5b$hE`^|RHDb~~%r+J3XL-D+g3 ze!1d5&-U$3%Wt-_Io(?}-Q;2_L4m2$>|90`1sRJ7n*K@lJDXb@wI_aSUWTacsEleA z3W})#O~N>&V0nZo+M42#foI84Of^pfhT`d#=?1&Kg-A3w?o9@NdRG{`Xc#njzerrq z9RT_%Ll6lah4tay4r&a!-CwR;W3`Y7`jOl zx}KxkhNUV7Y*Ut&>Gg27<76_4puEwhES|@Ngc8yCvThL7Azj*{2I!n=q!3($eBcBD zvjRkAqERlF)&W)9TL@$|ub4UF(k>uQ=L8|^u~XXrA^E5`l_(Ii7?SWGl7r^K&EV@n zY$7~e%IkDsVM@yQR9_wE3|7q(b;T-r1NIBb3K>Ge{mINm6kRBZq#B^VGw&j8#gyyBb%>|F1#uz@0!Lo^20zQ=n)v#PbO)(QXZQ!v41#7kM z#6s|R`dU5%CEe7ll0$OzMFG!BplI4)+&s$;x)};$;Nxg*!)7^Jo9RL6T From a2e39e2fc857427881ce8549661d977659c08533 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 29 Jan 2025 00:03:29 -0800 Subject: [PATCH 2/4] A little cleaner --- lispusers/GITFNS | 58 +++++++++++++++++++++--------------------- lispusers/GITFNS.LCOM | Bin 51188 -> 51181 bytes 2 files changed, 29 insertions(+), 29 deletions(-) diff --git a/lispusers/GITFNS b/lispusers/GITFNS index 68cd5fa0f..b5795d2f8 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jan-2025 22:54:00" {WMEDLEY}GITFNS.;532 133071 +(FILECREATED "29-Jan-2025 00:03:01" {WMEDLEY}GITFNS.;533 133073 :EDIT-BY rmk @@ -535,7 +535,7 @@ (DEFINEQ (PRC-COMMAND - [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 28-Jan-2025 22:52 by rmk") + [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 00:02 by rmk") (* ; "Edited 13-May-2024 18:49 by rmk") (* ; "Edited 2-May-2024 11:44 by rmk") (* ; "Edited 1-Apr-2024 20:24 by rmk") @@ -606,7 +606,7 @@ (RPLACD [OR OLDMENUWINDOW (CAR (push GIT-PRC-MENUS (CONS PROJECT] MENUWINDOW) MENUWINDOW - else (GIT-PR-COMPARE (CADR (CAR (GIT-PRC-BRANCHES T PROJECT PRS))) + else (GIT-PR-COMPARE (GITORIGIN (fetch PRNAME of (CAR PRS))) PROJECT)) else (CONCAT "No open " (OR REMOTEBRANCH "") " pull requests"]) @@ -2426,30 +2426,30 @@ (FILEMAP (NIL (4181 20760 (GIT-CLONEP 4191 . 5519) (GIT-INIT 5521 . 6151) (GIT-MAKE-PROJECT 6153 . 13818) (GIT-GET-PROJECT 13820 . 15745) (GIT-PUT-PROJECT-FIELD 15747 . 17388) (GIT-PROJECT-PATH 17390 . 18434) (FIND-ANCESTOR-DIRECTORY 18436 . 18785) (GIT-FIND-CLONE 18787 . 19868) (GIT-MAINBRANCH 19870 - . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 30968 (PRC-COMMAND 26233 . 30966)) (31024 33812 ( -ALLSUBDIRS 31034 . 32320) (MEDLEYSUBDIRS 32322 . 33015) (GITSUBDIRS 33017 . 33810)) (33813 38603 ( -TOGIT 33823 . 35229) (FROMGIT 35231 . 36212) (GIT-DELETE-FILE 36214 . 37060) (MYMEDLEY-DELETE-FILES -37062 . 38601)) (38604 41607 (MYMEDLEYSUBDIR 38614 . 39070) (GITSUBDIR 39072 . 39515) (STRIPDIR 39517 - . 39888) (STRIPHOST 39890 . 40130) (STRIPNAME 40132 . 40885) (STRIPWHERE 40887 . 41605)) (41608 43510 - (GFILE4MFILE 41618 . 41981) (MFILE4GFILE 41983 . 42552) (GIT-REPO-FILENAME 42554 . 43508)) (43559 -53921 (GIT-COMMIT 43569 . 44395) (GIT-PUSH 44397 . 45157) (GIT-PULL 45159 . 45911) (GIT-APPROVAL 45913 - . 46262) (GIT-GET-FILE 46264 . 48286) (GIT-FILE-EXISTS? 48288 . 48562) (GIT-REMOTE-UPDATE 48564 . -49399) (GIT-REMOTE-ADD 49401 . 49708) (GIT-FILE-DATE 49710 . 50757) (GIT-FILE-HISTORY 50759 . 52693) ( -GIT-PRINT-FILE-HISTORY 52695 . 53745) (GIT-FETCH 53747 . 53919)) (53951 65071 (GIT-BRANCH-DIFF 53961 - . 60708) (GIT-COMMIT-DIFFS 60710 . 61383) (GIT-BRANCH-RELATIONS 61385 . 65069)) (65116 84128 ( -GIT-BRANCH-NUM 65126 . 65699) (GIT-CHECKOUT 65701 . 66987) (GIT-WHICH-BRANCH 66989 . 67396) ( -GIT-MAKE-BRANCH 67398 . 69977) (GIT-BRANCHES 69979 . 72574) (GIT-BRANCH-EXISTS? 72576 . 73447) ( -GIT-PICK-BRANCH 73449 . 73939) (GIT-BRANCH-MENU 73941 . 74822) (GIT-BRANCH-WHENSELECTEDFN 74824 . -76989) (GIT-PULL-REQUESTS 76991 . 80509) (GIT-SHORT-BRANCH-NAME 80511 . 80802) (GIT-LONG-NAME 80804 . -81121) (GIT-PRC-BRANCHES 81123 . 84126)) (84158 87606 (GIT-MY-CURRENT-BRANCH 84168 . 84538) ( -GIT-MY-BRANCHP 84540 . 85158) (GIT-MY-NEXT-BRANCH 85160 . 85654) (GIT-MY-BRANCHES 85656 . 87604)) ( -87652 91727 (GIT-ADD-WORKTREE 87662 . 89269) (GIT-REMOVE-WORKTREE 89271 . 90201) (GIT-LIST-WORKTREES -90203 . 91007) (WORKTREEDIR 91009 . 91725)) (91775 124909 (GIT-GET-DIFFERENT-FILES 91785 . 98209) ( -GIT-BRANCHES-COMPARE-DIRECTORIES 98211 . 105442) (GIT-WORKING-COMPARE-DIRECTORIES 105444 . 110892) ( -GIT-COMPARE-WORKTREE 110894 . 114872) (GITCDOBJBUTTONFN 114874 . 119364) (GIT-CD-LABELFN 119366 . -120448) (GIT-CD-MENUFN 120450 . 122890) (GIT-WORKING-COMPARE-FILES 122892 . 123512) ( -GIT-BRANCHES-COMPARE-FILES 123514 . 124678) (GIT-PR-COMPARE 124680 . 124907)) (124979 133004 (CDGITDIR - 124989 . 125676) (GIT-COMMAND 125678 . 127236) (GITORIGIN 127238 . 127935) (GIT-INITIALS 127937 . -128241) (GIT-COMMAND-TO-FILE 128243 . 131728) (GIT-RESULT-TO-LINES 131730 . 132337) (STRIPLOCAL 132339 - . 133002))))) + . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 30970 (PRC-COMMAND 26233 . 30968)) (31026 33814 ( +ALLSUBDIRS 31036 . 32322) (MEDLEYSUBDIRS 32324 . 33017) (GITSUBDIRS 33019 . 33812)) (33815 38605 ( +TOGIT 33825 . 35231) (FROMGIT 35233 . 36214) (GIT-DELETE-FILE 36216 . 37062) (MYMEDLEY-DELETE-FILES +37064 . 38603)) (38606 41609 (MYMEDLEYSUBDIR 38616 . 39072) (GITSUBDIR 39074 . 39517) (STRIPDIR 39519 + . 39890) (STRIPHOST 39892 . 40132) (STRIPNAME 40134 . 40887) (STRIPWHERE 40889 . 41607)) (41610 43512 + (GFILE4MFILE 41620 . 41983) (MFILE4GFILE 41985 . 42554) (GIT-REPO-FILENAME 42556 . 43510)) (43561 +53923 (GIT-COMMIT 43571 . 44397) (GIT-PUSH 44399 . 45159) (GIT-PULL 45161 . 45913) (GIT-APPROVAL 45915 + . 46264) (GIT-GET-FILE 46266 . 48288) (GIT-FILE-EXISTS? 48290 . 48564) (GIT-REMOTE-UPDATE 48566 . +49401) (GIT-REMOTE-ADD 49403 . 49710) (GIT-FILE-DATE 49712 . 50759) (GIT-FILE-HISTORY 50761 . 52695) ( +GIT-PRINT-FILE-HISTORY 52697 . 53747) (GIT-FETCH 53749 . 53921)) (53953 65073 (GIT-BRANCH-DIFF 53963 + . 60710) (GIT-COMMIT-DIFFS 60712 . 61385) (GIT-BRANCH-RELATIONS 61387 . 65071)) (65118 84130 ( +GIT-BRANCH-NUM 65128 . 65701) (GIT-CHECKOUT 65703 . 66989) (GIT-WHICH-BRANCH 66991 . 67398) ( +GIT-MAKE-BRANCH 67400 . 69979) (GIT-BRANCHES 69981 . 72576) (GIT-BRANCH-EXISTS? 72578 . 73449) ( +GIT-PICK-BRANCH 73451 . 73941) (GIT-BRANCH-MENU 73943 . 74824) (GIT-BRANCH-WHENSELECTEDFN 74826 . +76991) (GIT-PULL-REQUESTS 76993 . 80511) (GIT-SHORT-BRANCH-NAME 80513 . 80804) (GIT-LONG-NAME 80806 . +81123) (GIT-PRC-BRANCHES 81125 . 84128)) (84160 87608 (GIT-MY-CURRENT-BRANCH 84170 . 84540) ( +GIT-MY-BRANCHP 84542 . 85160) (GIT-MY-NEXT-BRANCH 85162 . 85656) (GIT-MY-BRANCHES 85658 . 87606)) ( +87654 91729 (GIT-ADD-WORKTREE 87664 . 89271) (GIT-REMOVE-WORKTREE 89273 . 90203) (GIT-LIST-WORKTREES +90205 . 91009) (WORKTREEDIR 91011 . 91727)) (91777 124911 (GIT-GET-DIFFERENT-FILES 91787 . 98211) ( +GIT-BRANCHES-COMPARE-DIRECTORIES 98213 . 105444) (GIT-WORKING-COMPARE-DIRECTORIES 105446 . 110894) ( +GIT-COMPARE-WORKTREE 110896 . 114874) (GITCDOBJBUTTONFN 114876 . 119366) (GIT-CD-LABELFN 119368 . +120450) (GIT-CD-MENUFN 120452 . 122892) (GIT-WORKING-COMPARE-FILES 122894 . 123514) ( +GIT-BRANCHES-COMPARE-FILES 123516 . 124680) (GIT-PR-COMPARE 124682 . 124909)) (124981 133006 (CDGITDIR + 124991 . 125678) (GIT-COMMAND 125680 . 127238) (GITORIGIN 127240 . 127937) (GIT-INITIALS 127939 . +128243) (GIT-COMMAND-TO-FILE 128245 . 131730) (GIT-RESULT-TO-LINES 131732 . 132339) (STRIPLOCAL 132341 + . 133004))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index d56e78af3f19876d47ccd0bbd66471f76e18763a..148028257c7bd7be1709425a157f35266b082957 100644 GIT binary patch delta 440 zcmZ9HKT9J~6vds`XyvLaqVdmR3ejTly?5W_Wnwi+hGZmpGfYMk3qc`*Sr%E;QV_AT zQJL1t(n?8VlilyI#eNGrVcUJK1i{;!ALrZ)=e}N#zFd#qbiR1b=Khf*m~g>ZiP7yL zS#*1MG5t9xF`h9CV+2mb6!kmS^X%kRW2)1=f3kG9n=_(*^_S-yYvQL~89e^Aaye^! z#7wq3@1HBw!Zb?4TBspiLK-A-5<T1+Zf?6192v&q&tu_O_WthFa(9>8)yekdH%D*RY!2ql7oM|nqc?wiz1!&x zpFXkS)ST+W%jj5OkQgs7Vy{<3Iv%PL!ly8*$cqF*2-vDA1ZN9Gg9RdsF7I%ds0SX} z`Z&tvLdJa`r77~P1n2)CrHIqxZnsQEd8$0CNc6x{Z?~cpOfqD-(qpi|x3a8M7W(p$ z%)vx}QTFbh6cmL@<3dG7*%OILGHstGF-~+p8y9NuK#%}YzdurX3$znHn7%jMjECM| zk|WM^92rn+B2{`|hM-bb*RPIhG^|A9^f?dVwp|EH-~ufdT$1W% Date: Wed, 29 Jan 2025 18:24:50 -0800 Subject: [PATCH 3/4] Match also on the pull-request number --- lispusers/GITFNS | 61 ++++++++++++++++++++++-------------------- lispusers/GITFNS.LCOM | Bin 51181 -> 51227 bytes 2 files changed, 32 insertions(+), 29 deletions(-) diff --git a/lispusers/GITFNS b/lispusers/GITFNS index b5795d2f8..ad5d99366 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Jan-2025 00:03:01" {WMEDLEY}GITFNS.;533 133073 +(FILECREATED "29-Jan-2025 18:23:58" {WMEDLEY}GITFNS.;534 133289 :EDIT-BY rmk @@ -535,7 +535,7 @@ (DEFINEQ (PRC-COMMAND - [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 00:02 by rmk") + [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 18:21 by rmk") (* ; "Edited 13-May-2024 18:49 by rmk") (* ; "Edited 2-May-2024 11:44 by rmk") (* ; "Edited 1-Apr-2024 20:24 by rmk") @@ -572,10 +572,13 @@ (SETQ PRS (for PR FOUND in PRS when (if (STRING-EQUAL "Interlisp" (fetch PRLOGIN of PR)) - then (OR (NULL REMOTEBRANCH) + then (HELP) + (OR (NULL REMOTEBRANCH) (STRPOS REMOTEBRANCH (fetch PRDESCRIPTION of PR) NIL NIL NIL NIL FILEDIRCASEARRAY) (STRPOS REMOTEBRANCH (fetch PRNAME of PR) + NIL NIL NIL NIL FILEDIRCASEARRAY) + (STRPOS REMOTEBRANCH (fetch PRNUMBER of PR) NIL NIL NIL NIL FILEDIRCASEARRAY)) else (CL:UNLESS FOUND (SETQ FOUND T) @@ -2426,30 +2429,30 @@ (FILEMAP (NIL (4181 20760 (GIT-CLONEP 4191 . 5519) (GIT-INIT 5521 . 6151) (GIT-MAKE-PROJECT 6153 . 13818) (GIT-GET-PROJECT 13820 . 15745) (GIT-PUT-PROJECT-FIELD 15747 . 17388) (GIT-PROJECT-PATH 17390 . 18434) (FIND-ANCESTOR-DIRECTORY 18436 . 18785) (GIT-FIND-CLONE 18787 . 19868) (GIT-MAINBRANCH 19870 - . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 30970 (PRC-COMMAND 26233 . 30968)) (31026 33814 ( -ALLSUBDIRS 31036 . 32322) (MEDLEYSUBDIRS 32324 . 33017) (GITSUBDIRS 33019 . 33812)) (33815 38605 ( -TOGIT 33825 . 35231) (FROMGIT 35233 . 36214) (GIT-DELETE-FILE 36216 . 37062) (MYMEDLEY-DELETE-FILES -37064 . 38603)) (38606 41609 (MYMEDLEYSUBDIR 38616 . 39072) (GITSUBDIR 39074 . 39517) (STRIPDIR 39519 - . 39890) (STRIPHOST 39892 . 40132) (STRIPNAME 40134 . 40887) (STRIPWHERE 40889 . 41607)) (41610 43512 - (GFILE4MFILE 41620 . 41983) (MFILE4GFILE 41985 . 42554) (GIT-REPO-FILENAME 42556 . 43510)) (43561 -53923 (GIT-COMMIT 43571 . 44397) (GIT-PUSH 44399 . 45159) (GIT-PULL 45161 . 45913) (GIT-APPROVAL 45915 - . 46264) (GIT-GET-FILE 46266 . 48288) (GIT-FILE-EXISTS? 48290 . 48564) (GIT-REMOTE-UPDATE 48566 . -49401) (GIT-REMOTE-ADD 49403 . 49710) (GIT-FILE-DATE 49712 . 50759) (GIT-FILE-HISTORY 50761 . 52695) ( -GIT-PRINT-FILE-HISTORY 52697 . 53747) (GIT-FETCH 53749 . 53921)) (53953 65073 (GIT-BRANCH-DIFF 53963 - . 60710) (GIT-COMMIT-DIFFS 60712 . 61385) (GIT-BRANCH-RELATIONS 61387 . 65071)) (65118 84130 ( -GIT-BRANCH-NUM 65128 . 65701) (GIT-CHECKOUT 65703 . 66989) (GIT-WHICH-BRANCH 66991 . 67398) ( -GIT-MAKE-BRANCH 67400 . 69979) (GIT-BRANCHES 69981 . 72576) (GIT-BRANCH-EXISTS? 72578 . 73449) ( -GIT-PICK-BRANCH 73451 . 73941) (GIT-BRANCH-MENU 73943 . 74824) (GIT-BRANCH-WHENSELECTEDFN 74826 . -76991) (GIT-PULL-REQUESTS 76993 . 80511) (GIT-SHORT-BRANCH-NAME 80513 . 80804) (GIT-LONG-NAME 80806 . -81123) (GIT-PRC-BRANCHES 81125 . 84128)) (84160 87608 (GIT-MY-CURRENT-BRANCH 84170 . 84540) ( -GIT-MY-BRANCHP 84542 . 85160) (GIT-MY-NEXT-BRANCH 85162 . 85656) (GIT-MY-BRANCHES 85658 . 87606)) ( -87654 91729 (GIT-ADD-WORKTREE 87664 . 89271) (GIT-REMOVE-WORKTREE 89273 . 90203) (GIT-LIST-WORKTREES -90205 . 91009) (WORKTREEDIR 91011 . 91727)) (91777 124911 (GIT-GET-DIFFERENT-FILES 91787 . 98211) ( -GIT-BRANCHES-COMPARE-DIRECTORIES 98213 . 105444) (GIT-WORKING-COMPARE-DIRECTORIES 105446 . 110894) ( -GIT-COMPARE-WORKTREE 110896 . 114874) (GITCDOBJBUTTONFN 114876 . 119366) (GIT-CD-LABELFN 119368 . -120450) (GIT-CD-MENUFN 120452 . 122892) (GIT-WORKING-COMPARE-FILES 122894 . 123514) ( -GIT-BRANCHES-COMPARE-FILES 123516 . 124680) (GIT-PR-COMPARE 124682 . 124909)) (124981 133006 (CDGITDIR - 124991 . 125678) (GIT-COMMAND 125680 . 127238) (GITORIGIN 127240 . 127937) (GIT-INITIALS 127939 . -128243) (GIT-COMMAND-TO-FILE 128245 . 131730) (GIT-RESULT-TO-LINES 131732 . 132339) (STRIPLOCAL 132341 - . 133004))))) + . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 31186 (PRC-COMMAND 26233 . 31184)) (31242 34030 ( +ALLSUBDIRS 31252 . 32538) (MEDLEYSUBDIRS 32540 . 33233) (GITSUBDIRS 33235 . 34028)) (34031 38821 ( +TOGIT 34041 . 35447) (FROMGIT 35449 . 36430) (GIT-DELETE-FILE 36432 . 37278) (MYMEDLEY-DELETE-FILES +37280 . 38819)) (38822 41825 (MYMEDLEYSUBDIR 38832 . 39288) (GITSUBDIR 39290 . 39733) (STRIPDIR 39735 + . 40106) (STRIPHOST 40108 . 40348) (STRIPNAME 40350 . 41103) (STRIPWHERE 41105 . 41823)) (41826 43728 + (GFILE4MFILE 41836 . 42199) (MFILE4GFILE 42201 . 42770) (GIT-REPO-FILENAME 42772 . 43726)) (43777 +54139 (GIT-COMMIT 43787 . 44613) (GIT-PUSH 44615 . 45375) (GIT-PULL 45377 . 46129) (GIT-APPROVAL 46131 + . 46480) (GIT-GET-FILE 46482 . 48504) (GIT-FILE-EXISTS? 48506 . 48780) (GIT-REMOTE-UPDATE 48782 . +49617) (GIT-REMOTE-ADD 49619 . 49926) (GIT-FILE-DATE 49928 . 50975) (GIT-FILE-HISTORY 50977 . 52911) ( +GIT-PRINT-FILE-HISTORY 52913 . 53963) (GIT-FETCH 53965 . 54137)) (54169 65289 (GIT-BRANCH-DIFF 54179 + . 60926) (GIT-COMMIT-DIFFS 60928 . 61601) (GIT-BRANCH-RELATIONS 61603 . 65287)) (65334 84346 ( +GIT-BRANCH-NUM 65344 . 65917) (GIT-CHECKOUT 65919 . 67205) (GIT-WHICH-BRANCH 67207 . 67614) ( +GIT-MAKE-BRANCH 67616 . 70195) (GIT-BRANCHES 70197 . 72792) (GIT-BRANCH-EXISTS? 72794 . 73665) ( +GIT-PICK-BRANCH 73667 . 74157) (GIT-BRANCH-MENU 74159 . 75040) (GIT-BRANCH-WHENSELECTEDFN 75042 . +77207) (GIT-PULL-REQUESTS 77209 . 80727) (GIT-SHORT-BRANCH-NAME 80729 . 81020) (GIT-LONG-NAME 81022 . +81339) (GIT-PRC-BRANCHES 81341 . 84344)) (84376 87824 (GIT-MY-CURRENT-BRANCH 84386 . 84756) ( +GIT-MY-BRANCHP 84758 . 85376) (GIT-MY-NEXT-BRANCH 85378 . 85872) (GIT-MY-BRANCHES 85874 . 87822)) ( +87870 91945 (GIT-ADD-WORKTREE 87880 . 89487) (GIT-REMOVE-WORKTREE 89489 . 90419) (GIT-LIST-WORKTREES +90421 . 91225) (WORKTREEDIR 91227 . 91943)) (91993 125127 (GIT-GET-DIFFERENT-FILES 92003 . 98427) ( +GIT-BRANCHES-COMPARE-DIRECTORIES 98429 . 105660) (GIT-WORKING-COMPARE-DIRECTORIES 105662 . 111110) ( +GIT-COMPARE-WORKTREE 111112 . 115090) (GITCDOBJBUTTONFN 115092 . 119582) (GIT-CD-LABELFN 119584 . +120666) (GIT-CD-MENUFN 120668 . 123108) (GIT-WORKING-COMPARE-FILES 123110 . 123730) ( +GIT-BRANCHES-COMPARE-FILES 123732 . 124896) (GIT-PR-COMPARE 124898 . 125125)) (125197 133222 (CDGITDIR + 125207 . 125894) (GIT-COMMAND 125896 . 127454) (GITORIGIN 127456 . 128153) (GIT-INITIALS 128155 . +128459) (GIT-COMMAND-TO-FILE 128461 . 131946) (GIT-RESULT-TO-LINES 131948 . 132555) (STRIPLOCAL 132557 + . 133220))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index 148028257c7bd7be1709425a157f35266b082957..77953d3b034426cedd63d04a26c54401e24820f7 100644 GIT binary patch delta 378 zcmY+8u}Z^G6oz}-!7S<`*s850>d=uZnTQP!X`9Hq@95`S1g~xGWe4-h$Vp7F&CTBVmlc&2($V6w*1Pmfm zI_WVht}>nsim%#fyPcoT*kOXwST?nsn)m8-mV2%SOL?Z+_R-4X!dySha<_B&-=-tw zlF!l&dr5*d{aO&*z;|mgEW<&=i_2kDc7ubk7S)xaxe6k$;rS3d4&r(gMxH_wDt!aO z)-w_!Bl>Gi195E+!ch5ps%L8?37f4r3WFBNwveHEDMM37v%Vju%j;Kcmn1m)qiz=$ pox!Lxyc}{^MBpk+3*7Ia*YBLGC1Km(+bVxfu*E@+Og}dG+c%^`Uj6_8 delta 332 zcmX|*KTE?<6vg}6!7K`bV5=gBH|bD$>3#9F1+g`hlEEar26Q(8#bW;Qguy8l9@BBnG@NUY8Ha# z38 Date: Wed, 29 Jan 2025 19:21:05 -0800 Subject: [PATCH 4/4] Oops, remove HELP --- lispusers/GITFNS | 69 +++++++++++++++++++++--------------------- lispusers/GITFNS.LCOM | Bin 51227 -> 51214 bytes 2 files changed, 34 insertions(+), 35 deletions(-) diff --git a/lispusers/GITFNS b/lispusers/GITFNS index ad5d99366..f382972f2 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Jan-2025 18:23:58" {WMEDLEY}GITFNS.;534 133289 +(FILECREATED "29-Jan-2025 19:20:27" {WMEDLEY}GITFNS.;535 133255 :EDIT-BY rmk @@ -535,7 +535,7 @@ (DEFINEQ (PRC-COMMAND - [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 18:21 by rmk") + [LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 19:19 by rmk") (* ; "Edited 13-May-2024 18:49 by rmk") (* ; "Edited 2-May-2024 11:44 by rmk") (* ; "Edited 1-Apr-2024 20:24 by rmk") @@ -572,13 +572,12 @@ (SETQ PRS (for PR FOUND in PRS when (if (STRING-EQUAL "Interlisp" (fetch PRLOGIN of PR)) - then (HELP) - (OR (NULL REMOTEBRANCH) - (STRPOS REMOTEBRANCH (fetch PRDESCRIPTION of PR) - NIL NIL NIL NIL FILEDIRCASEARRAY) - (STRPOS REMOTEBRANCH (fetch PRNAME of PR) - NIL NIL NIL NIL FILEDIRCASEARRAY) - (STRPOS REMOTEBRANCH (fetch PRNUMBER of PR) + then (OR (NULL REMOTEBRANCH) + (STRPOS REMOTEBRANCH (CONCAT "#" (fetch PRNUMBER of PR) + " " + (fetch PRNAME of PR) + " " + (fetch PRDESCRIPTION of PR)) NIL NIL NIL NIL FILEDIRCASEARRAY)) else (CL:UNLESS FOUND (SETQ FOUND T) @@ -2429,30 +2428,30 @@ (FILEMAP (NIL (4181 20760 (GIT-CLONEP 4191 . 5519) (GIT-INIT 5521 . 6151) (GIT-MAKE-PROJECT 6153 . 13818) (GIT-GET-PROJECT 13820 . 15745) (GIT-PUT-PROJECT-FIELD 15747 . 17388) (GIT-PROJECT-PATH 17390 . 18434) (FIND-ANCESTOR-DIRECTORY 18436 . 18785) (GIT-FIND-CLONE 18787 . 19868) (GIT-MAINBRANCH 19870 - . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 31186 (PRC-COMMAND 26233 . 31184)) (31242 34030 ( -ALLSUBDIRS 31252 . 32538) (MEDLEYSUBDIRS 32540 . 33233) (GITSUBDIRS 33235 . 34028)) (34031 38821 ( -TOGIT 34041 . 35447) (FROMGIT 35449 . 36430) (GIT-DELETE-FILE 36432 . 37278) (MYMEDLEY-DELETE-FILES -37280 . 38819)) (38822 41825 (MYMEDLEYSUBDIR 38832 . 39288) (GITSUBDIR 39290 . 39733) (STRIPDIR 39735 - . 40106) (STRIPHOST 40108 . 40348) (STRIPNAME 40350 . 41103) (STRIPWHERE 41105 . 41823)) (41826 43728 - (GFILE4MFILE 41836 . 42199) (MFILE4GFILE 42201 . 42770) (GIT-REPO-FILENAME 42772 . 43726)) (43777 -54139 (GIT-COMMIT 43787 . 44613) (GIT-PUSH 44615 . 45375) (GIT-PULL 45377 . 46129) (GIT-APPROVAL 46131 - . 46480) (GIT-GET-FILE 46482 . 48504) (GIT-FILE-EXISTS? 48506 . 48780) (GIT-REMOTE-UPDATE 48782 . -49617) (GIT-REMOTE-ADD 49619 . 49926) (GIT-FILE-DATE 49928 . 50975) (GIT-FILE-HISTORY 50977 . 52911) ( -GIT-PRINT-FILE-HISTORY 52913 . 53963) (GIT-FETCH 53965 . 54137)) (54169 65289 (GIT-BRANCH-DIFF 54179 - . 60926) (GIT-COMMIT-DIFFS 60928 . 61601) (GIT-BRANCH-RELATIONS 61603 . 65287)) (65334 84346 ( -GIT-BRANCH-NUM 65344 . 65917) (GIT-CHECKOUT 65919 . 67205) (GIT-WHICH-BRANCH 67207 . 67614) ( -GIT-MAKE-BRANCH 67616 . 70195) (GIT-BRANCHES 70197 . 72792) (GIT-BRANCH-EXISTS? 72794 . 73665) ( -GIT-PICK-BRANCH 73667 . 74157) (GIT-BRANCH-MENU 74159 . 75040) (GIT-BRANCH-WHENSELECTEDFN 75042 . -77207) (GIT-PULL-REQUESTS 77209 . 80727) (GIT-SHORT-BRANCH-NAME 80729 . 81020) (GIT-LONG-NAME 81022 . -81339) (GIT-PRC-BRANCHES 81341 . 84344)) (84376 87824 (GIT-MY-CURRENT-BRANCH 84386 . 84756) ( -GIT-MY-BRANCHP 84758 . 85376) (GIT-MY-NEXT-BRANCH 85378 . 85872) (GIT-MY-BRANCHES 85874 . 87822)) ( -87870 91945 (GIT-ADD-WORKTREE 87880 . 89487) (GIT-REMOVE-WORKTREE 89489 . 90419) (GIT-LIST-WORKTREES -90421 . 91225) (WORKTREEDIR 91227 . 91943)) (91993 125127 (GIT-GET-DIFFERENT-FILES 92003 . 98427) ( -GIT-BRANCHES-COMPARE-DIRECTORIES 98429 . 105660) (GIT-WORKING-COMPARE-DIRECTORIES 105662 . 111110) ( -GIT-COMPARE-WORKTREE 111112 . 115090) (GITCDOBJBUTTONFN 115092 . 119582) (GIT-CD-LABELFN 119584 . -120666) (GIT-CD-MENUFN 120668 . 123108) (GIT-WORKING-COMPARE-FILES 123110 . 123730) ( -GIT-BRANCHES-COMPARE-FILES 123732 . 124896) (GIT-PR-COMPARE 124898 . 125125)) (125197 133222 (CDGITDIR - 125207 . 125894) (GIT-COMMAND 125896 . 127454) (GITORIGIN 127456 . 128153) (GIT-INITIALS 128155 . -128459) (GIT-COMMAND-TO-FILE 128461 . 131946) (GIT-RESULT-TO-LINES 131948 . 132555) (STRIPLOCAL 132557 - . 133220))))) + . 20265) (GIT-MAINBRANCH? 20267 . 20758)) (26223 31152 (PRC-COMMAND 26233 . 31150)) (31208 33996 ( +ALLSUBDIRS 31218 . 32504) (MEDLEYSUBDIRS 32506 . 33199) (GITSUBDIRS 33201 . 33994)) (33997 38787 ( +TOGIT 34007 . 35413) (FROMGIT 35415 . 36396) (GIT-DELETE-FILE 36398 . 37244) (MYMEDLEY-DELETE-FILES +37246 . 38785)) (38788 41791 (MYMEDLEYSUBDIR 38798 . 39254) (GITSUBDIR 39256 . 39699) (STRIPDIR 39701 + . 40072) (STRIPHOST 40074 . 40314) (STRIPNAME 40316 . 41069) (STRIPWHERE 41071 . 41789)) (41792 43694 + (GFILE4MFILE 41802 . 42165) (MFILE4GFILE 42167 . 42736) (GIT-REPO-FILENAME 42738 . 43692)) (43743 +54105 (GIT-COMMIT 43753 . 44579) (GIT-PUSH 44581 . 45341) (GIT-PULL 45343 . 46095) (GIT-APPROVAL 46097 + . 46446) (GIT-GET-FILE 46448 . 48470) (GIT-FILE-EXISTS? 48472 . 48746) (GIT-REMOTE-UPDATE 48748 . +49583) (GIT-REMOTE-ADD 49585 . 49892) (GIT-FILE-DATE 49894 . 50941) (GIT-FILE-HISTORY 50943 . 52877) ( +GIT-PRINT-FILE-HISTORY 52879 . 53929) (GIT-FETCH 53931 . 54103)) (54135 65255 (GIT-BRANCH-DIFF 54145 + . 60892) (GIT-COMMIT-DIFFS 60894 . 61567) (GIT-BRANCH-RELATIONS 61569 . 65253)) (65300 84312 ( +GIT-BRANCH-NUM 65310 . 65883) (GIT-CHECKOUT 65885 . 67171) (GIT-WHICH-BRANCH 67173 . 67580) ( +GIT-MAKE-BRANCH 67582 . 70161) (GIT-BRANCHES 70163 . 72758) (GIT-BRANCH-EXISTS? 72760 . 73631) ( +GIT-PICK-BRANCH 73633 . 74123) (GIT-BRANCH-MENU 74125 . 75006) (GIT-BRANCH-WHENSELECTEDFN 75008 . +77173) (GIT-PULL-REQUESTS 77175 . 80693) (GIT-SHORT-BRANCH-NAME 80695 . 80986) (GIT-LONG-NAME 80988 . +81305) (GIT-PRC-BRANCHES 81307 . 84310)) (84342 87790 (GIT-MY-CURRENT-BRANCH 84352 . 84722) ( +GIT-MY-BRANCHP 84724 . 85342) (GIT-MY-NEXT-BRANCH 85344 . 85838) (GIT-MY-BRANCHES 85840 . 87788)) ( +87836 91911 (GIT-ADD-WORKTREE 87846 . 89453) (GIT-REMOVE-WORKTREE 89455 . 90385) (GIT-LIST-WORKTREES +90387 . 91191) (WORKTREEDIR 91193 . 91909)) (91959 125093 (GIT-GET-DIFFERENT-FILES 91969 . 98393) ( +GIT-BRANCHES-COMPARE-DIRECTORIES 98395 . 105626) (GIT-WORKING-COMPARE-DIRECTORIES 105628 . 111076) ( +GIT-COMPARE-WORKTREE 111078 . 115056) (GITCDOBJBUTTONFN 115058 . 119548) (GIT-CD-LABELFN 119550 . +120632) (GIT-CD-MENUFN 120634 . 123074) (GIT-WORKING-COMPARE-FILES 123076 . 123696) ( +GIT-BRANCHES-COMPARE-FILES 123698 . 124862) (GIT-PR-COMPARE 124864 . 125091)) (125163 133188 (CDGITDIR + 125173 . 125860) (GIT-COMMAND 125862 . 127420) (GITORIGIN 127422 . 128119) (GIT-INITIALS 128121 . +128425) (GIT-COMMAND-TO-FILE 128427 . 131912) (GIT-RESULT-TO-LINES 131914 . 132521) (STRIPLOCAL 132523 + . 133186))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index 77953d3b034426cedd63d04a26c54401e24820f7..2a1280b206f622a904be20b04f87768552bd2c6f 100644 GIT binary patch delta 404 zcmX|+O-lk{5XXHK%u9h3roF(h5!7L0_jy@eBXZj|*{I!R-LMa^LZPH)9y&yypjdgj z<;i2vL8NaLbPKxmSgv#V{b&9&%*<<)dX7?2xS*G@QpUwWQ$cJne2R0fAjmLK3Bim_ zF41RhxoQXUv2|ixoCUJyyQh{J@L{@uvb>w$M=Sh2-^|p*FgY5d3Wq|pSFDW2iI++{ zA;MikGbWRBg%;CO?@A)=R#z4?ffl?AHT#S`EcNGeOaRfvc{2wKyxQ%EUWNU%%xiuh+&hD5T ztUsVbtbzoceyatyjc&iuyX#57R1G8nr38}GhIXfMBbq4HLE07k8-X1ONJ-^C8}cfl TRQMt%Gm2lOEorj7`Th0_GT~zF delta 437 zcmY+9ze>YU6vlhopl z=gxv4J)NPW2#R5)nM?8ds7`08m#Vv(MtmBatgU3{_;HrHo5TM!9&@(LMPJ2h^cr>6 zrCWl*bRCoWpvuPL43CMXd+1SSafIi{Wp=}Mfb1IJTg+oNw+e7|WFVT9I6@MK|E7uz zKHUexUrbh|B!+bi+ijnDZX2+sLSp$ziB%+MS}iXwY}}v<)