1
0
mirror of synced 2026-03-14 22:38:23 +00:00
Files
Interlisp.medley/lispusers/GITFNS.LCOM

880 lines
50 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED " 2-Mar-2026 14:00:13" ("compiled on " {WMEDLEY}<lispusers>GITFNS.;576)
"26-Feb-2026 12:11:15" recompiled exprs%: GIT-MY-NEXT-BRANCH in "FULL 26-Feb-2026 ..." dated
"26-Feb-2026 12:11:24")
(FILECREATED " 2-Mar-2026 14:00:13" {WMEDLEY}<lispusers>GITFNS.;576 133513 :EDIT-BY rmk :CHANGES-TO (
FNS GIT-MY-NEXT-BRANCH) :PREVIOUS-DATE "26-Feb-2026 00:39:22" {WMEDLEY}<lispusers>GITFNS.;575)
GIT-CLONEPA0001 :D8
(I 0 A) @o
(15 DIRECTORYNAMEP 10 CONCAT)
NIL
( 5 ".git/")
GIT-CLONEP :D8
(P 0 D I 2 CHECKANCESTORS I 1 NOERROR I 0 HOST/DIR) I@²7@ Ho
³B´
Hg
X´HµAho@
(70 ERROR 48 FIND-ANCESTOR-DIRECTORY 32 DIRECTORYNAMEP 27 CONCAT 13 SLASHIT 8 TRUEFILENAME)
(43 GIT-CLONEPA0001)
( 64 "NOT A GIT CLONE" 22 "/.git/")
GIT-INIT :D8
(P 0 X I 0 EVENT F 1 GIT-PROJECTS F 2 GIT-DEFAULT-PROJECTS) 9@d²gð¨@gð´%hcdgHd£dh
µæh(48 APPLY)
(35 GIT-MAKE-PROJECT 16 AFTERSYSOUT 8 AFTERMAKESYS)
()
GIT-MAKE-PROJECTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 L I 0 SI::*CLEANUP-FORMS* F 4 STREAM F 5 A0223) K@T ©Th
H hc
¿$ jð³ÙoK
³ÌKºIµ JhY¸°ÀJ&¹°»(54 STRPOS 39 NCHARS 26 \MVLIST 16 CL:READ-LINE 8 EOFP)
NIL
( 48 "#")
GIT-MAKE-PROJECTA0002 :D8
(F 0 STREAM F 1 A0223) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-MAKE-PROJECT :D8
(P 9 A0223 P 8 STREAM P 7 E P 2 WP P 1 PROJECT P 0 GITIGNORE I 4 DEFAULTSUBDIRS I 3 EXCLUSIONS I 2 WORKINGPATH I 1 CLONEPATH I 0 PROJECTNAME F 10 GIT-PROJECTS F 11 FILEDIRCASEARRAY) Ç
Ado
¢±¾¿@ i
µ‚±Ê@o
i
µ‚±®@ hdi i
µ‚±”o@
hdi i
µs`o@ o i
µLAœo@
°8oi
¿@i
¿i °!id µoAo@ bd´‚±È0gogA ‚±œCA‚±ÊLHo
gg bBið¦Bµ‚±ÅgggAkoAmþhddWi
 oAddkhdiW
µ
µ@ o °igg i g OgO ¿$¸±ÿ1¥K_¿h†K_¿K»O ¾Mµ
Nh]¼±ÿN&½±ÿ i
Zd—d °&B´#o‚±…oo@ bg@o@A
o B´"oo@
B
o CDd£dhAhdY@Wµ @hWcI
@o
±ÿy(706 CONCAT 694 /RPLACD 652 PACK* 642 PSEUDOHOST 636 CONCAT 617 PACK* 607 PSEUDOHOST 587 ERROR 582 CONCAT 549 UNSLASHIT 540 DIRECTORYNAME 534 TRUEFILENAME 511 MKSTRING 479 CL:CLOSE 465 \MVLIST 460 GIT-MAKE-PROJECTA0001 446 OPEN 429 PACKFILENAME.STRING 424 CONCAT 414 L-CASE 406 SUBSTRING 397 STRPOS 377 SUBSTRING 372 STRPOS 322 CL:REMOVE-DUPLICATES 307 \APPEND2 302 \APPEND2 271 INFILEP 266 PACKFILENAME.STRING 233 ERROR 228 CONCAT 209 GIT-CLONEP 200 TERPRI 193 PRIN1 185 PRIN1 172 CONCAT 157 GIT-CLONEP 151 DIRECTORYNAME 146 CONCAT 136 L-CASE 118 GIT-CLONEP 112 MEDLEYDIR 104 CONCAT 99 L-CASE 82 GIT-CLONEP 76 MEDLEYDIR 68 L-CASE 56 GIT-CLONEP 50 UNIX-GETENV 45 PACK* 28 GIT-CLONEP 22 UNIX-GETENV 11 MEMB)
(594 GIT-PROJECT 472 :ABORT 455 GIT-MAKE-PROJECTA0002 441 :UTF-8 436 :EXTERNAL-FORMAT 350 BODY 345 DSK 340 HOST 317 STRING.EQUAL 312 :TEST 260 BODY 250 NAME 125 MEDLEYDIR)
( 701 " " 647 "}" 630 "W" 625 "{" 612 "}" 600 "{" 576 "for " 571 "" 559 "Can't find the working directory "
419 ">" 382 "working-" 357 "/" 297 ("deleted/" "*.sysout") 255 ".gitignore" 222 " for " 216 "Can't find the clone directory "
179 "Note: Can't find a clone directory for " 166 "Can't find a clone directory for " 141 "/" 130 "../git-"
93 "../" 40 "DIR" 6 (NIL T))
GIT-GET-PROJECT :D8
(I 2 NOERROR I 1 FIELD I 0 PROJECT F 0 GIT-DEFAULT-PROJECT F 1 GIT-PROJECTS) Æ@dgð³ µPQµBhŠo@
b´‚±•Adgð”¿@gð•@Adgð•¿@gð–@Adgð˜¿@gð˜@Agð²2@µ&@gi@ µgh@ @(191 GIT-BRANCH-EXISTS? 177 GIT-BRANCH-EXISTS? 39 ERROR 16 U-CASE)
(184 origin/master 170 origin/main 143 MAINBRANCH 126 CLONEPATH 110 DEFAULTSUBDIRS 94 EXCLUSIONS 81 GITHOST 66 WHOST 54 PROJECTNAME 8 GIT-PROJECT)
( 33 "NOT A GIT-PROJECT")
GIT-PUT-PROJECT-FIELD :D8
(I 2 NEWVALUE I 1 FIELD I 0 PROJECT) @ bAdgð¿dBdgð˜¿@Bgð–@BAdgð™¿@Bgð™@BAdgð›¿@Bgð›@B@(5 GIT-GET-PROJECT)
(116 MAINBRANCH 97 CLONEPATH 78 DEFAULTSUBDIRS 61 EXCLUSIONS 45 GITHOST 29 WHOST 14 PROJECTNAME)
()
GIT-PROJECT-PATH :D8
(P 1 MY-POS P 0 MYSUBDIR I 1 PROJECTPATH I 0 PROJECTNAME F 2 FILEDIRCASEARRAY) xA bdmÿ
o
­Ao
b¿o@o HAkhddR
Y´,AkI o@AmÿIØH Ø
i
(117 SLASHIT 111 CONCAT 106 SUBSTRING 100 NCHARS 83 SUBSTRING 72 STRPOS 56 CONCAT 37 CONCAT 25 MEMB 15 NTHCHARCODE 5 TRUEFILENAME)
NIL
( 88 "git-" 51 "/" 45 "/my-" 32 "/" 20 (62 47))
FIND-ANCESTOR-DIRECTORY :D8
(P 1 POS P 0 A I 1 PREDFN I 0 STARTDIR F 2 FILEDIRCASEARRAY) -@oHmþhddRi
Y¡hHkI XkA²ÜH(34 SUBSTRING 22 STRPOS)
NIL
( 8 "/")
GIT-FIND-CLONEA0001 :D8
(P 1 D P 0 GEN I 0 A) -@hdk H Yd i
²ðgI
¿°â(40 RETFROM 27 GIT-CLONEP 17 \GENERATENEXTFILE 8 \GENERATEFILES)
(34 FIND-ANCESTOR-DIRECTORY)
()
GIT-FIND-CLONE :D8
(I 1 PROJECTPATH I 0 PROJECTNAME) 4Aid µ*@A
id µAg
µ
oA
(49 ERROR 36 FIND-ANCESTOR-DIRECTORY 23 GIT-CLONEP 16 GIT-PROJECT-PATH 7 GIT-CLONEP)
(31 GIT-FIND-CLONEA0001)
( 43 "NOT A GIT CLONE")
GIT-MAINBRANCH :D8
(P 0 MB I 2 NOERROR I 1 LOCAL I 0 PROJECT) &@gB oH
H(33 CONCAT 28 STRIPWHERE 11 GIT-GET-PROJECT)
(5 MAINBRANCH)
( 22 "local/")
GIT-MAINBRANCH? :D8
(I 2 NOERROR I 1 PROJECT I 0 BRANCH) ,Ahi i
@
µBho@
(41 ERROR 24 STRING.EQUAL 19 STRIPWHERE 13 STRIPWHERE 7 GIT-MAINBRANCH)
NIL
( 35 "Can't modify main branch")
PRC-COMMAND :D8
(P 8 FOUND P 7 PR P 2 OLDMENUWINDOW P 1 MENUWINDOW P 0 PRS I 2 PROJECT I 1 DRAFTS I 0 REMOTEBRANCH F 9 GIT-PRC-MENUS F 10 GIT-DEFAULT-PROJECT F 11 FILEDIRCASEARRAY)  0@hi ²@b¿hb¿° b°Ahi —Ab¿hb¿B¤Wb¿@ dgð§dgð¿hb¿g°dgð§dgð¿hb¿gb¿B AgðhðB
XdQKµ‚±ŠLXd¢±Wdd¢±@¿ABH H o
hdi YdogjmþI Ùh
BWZ —J ¿I BhWcII_¿oO
²7@¢±”@oOoOoO
hdddW
°bO³i_¿oi
¿i ¿lhi ¿Oi
¿oi
¿Oi
¿oi
¿i ¿hšO¾Mµ
Nh]¼K[±þµN&½°÷ B
ooo (526 CONCAT 502 GIT-PR-COMPARE 496 GITORIGIN 462 TERPRI 455 PRIN1 443 PRIN1 427 PRIN1 415 PRIN1 404 TAB 394 TERPRI 387 PRIN1 366 STRPOS 354 CONCAT 313 CL::SIMPLE-STRING-EQUAL 274 OPENW 267 CLOSEW 259 OPENWP 248 MOVEW 243 RELCREATEPOSITION 229 WINDOWREGION 208 ADDMENU 200 GIT-BRANCH-MENU 195 CONCAT 185 LENGTH 179 GIT-PRC-BRANCHES 142 GIT-PULL-REQUESTS 127 GIT-FETCH 64 U-CASE 42 GIT-GET-PROJECT 30 GIT-GET-PROJECT 13 GIT-GET-PROJECT)
(220 TTY 133 NODRAFTS 118 NODRAFTS 106 NODRAFTS 98 NODRAFT 90 DRAFTS 78 DRAFTS 70 DRAFT)
( 521 " pull requests" 516 "" 508 "No open " 449 ")" 421 " (" 381 "Ignored because not owned by Interlisp: "
344 " " 334 " " 326 "#" 299 "Interlisp" 215 (TTY 0) 190 " pull requests")
ALLSUBDIRS :D8
(P 10 SKIP P 8 D P 7 F P 5 VAL P 4 H P 1 VAL P 0 HOSTS I 0 PROJECT F 11 FILEDIRCASEARRAY) î @d£dh@œ@dH¢HX¿H1Jµ
M ¼KgLgg k
!Nµh
»JZ°Å_ ²]Og
_ l.ð³E@
Oo
_¿Oµ-h³$Okmþ _M
¤OM½N^°ˆ_OkhihW
OµÂi°¿O_°´(221 STRPOS 193 MEMBER 185 UNSLASHIT 180 L-CASE 175 SUBSTRING 153 CONCAT 127 CHCON1 120 FILENAMEFIELD 106 DIRECTORYNAMEP 92 \NCONC2 78 FILDIR 72 PACKFILENAME 47 SORT)
(115 DIRECTORY 67 * 62 BODY 56 HOST)
( 148 "/")
MEDLEYSUBDIRS :D8
(P 3 D I 1 ALLSUBDIRS I 0 PROJECT) B0Aµ8@ °0dg@gK i
¸HhZ<>H&¹µÑJ(45 UNSLASHIT 39 PACKFILENAME 11 ALLSUBDIRS)
(33 DIRECTORY 23 HOST)
()
GITSUBDIRS :D8
(P 3 D I 1 ALLSUBDIRS I 0 PROJECT) A0Aµ7@ °/dg@gK i
¸HhZ<>H&¹µÒJ(44 SLASHIT 38 PACKFILENAME 11 ALLSUBDIRS)
(32 DIRECTORY 23 HOST)
()
TOGIT :D8
(P 7 DEST P 6 GF P 5 MF P 0 MEDLEYSUBDIRS I 1 PROJECT I 0 MFILES F 8 FILEDIRCASEARRAY) ÉA bd A
A @bJd¢½hƒ½I¹MhH µ
oM
]ghgM W ³!i ¿Mo
i
¿¿MA
¾MN
_oNŒi ¿Mo
i
¿O¼Kµ
Lh[º±ÿ_L&»±ÿY(178 PRIN3 172 CONCAT 160 FLASHWINDOW 144 COPYFILE 136 GFILE4MFILE 128 ERROR! 122 PRIN3 116 CONCAT 104 FLASHWINDOW 96 STRING.EQUAL 89 INFILEP 84 PACKFILENAME 66 ERROR 53 FINDFILE 25 MEDLEYSUBDIRS 19 GIT-MAINBRANCH? 13 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT)
(78 BODY 72 VERSION)
( 167 " cannot be copied" 152 "Copied to " 111 " is not the latest version!" 60 "FILE NOT FOUND")
FROMGIT :D8
(P 7 DEST P 6 MF P 5 GF P 0 GITSUBDIRS I 1 PROJECT I 0 GFILES) A bd @bJd¢½hƒ½I¹MhH µ
oM
] ¾MN
_²oO
¿O°i ¿Mo
i
¿O¼Kµ Lh[º°”L&»°<C2BB>(113 PRIN3 107 CONCAT 95 FLASHWINDOW 84 CONCAT 68 COPYFILE 60 MFILE4GFILE 54 ERROR 41 FINDFILE 13 GITSUBDIRS 5 GIT-GET-PROJECT)
NIL
( 102 " cannot be copied" 77 "Copied to " 48 "FILE NOT FOUND")
MYMEDLEYSUBDIR :D8
(I 2 PROJECT I 1 STAR I 0 SUBDIR) .gBg@ A•o„o
(43 UNSLASHIT 38 PACK* 20 PACKFILENAME)
(14 DIRECTORY 4 HOST)
( 33 "" 27 "*")
GITSUBDIR :D8
(I 2 PROJECT I 1 STAR I 0 SUBDIR) -gBg@ A•o„o
(42 SLASHIT 37 PACK* 19 PACKFILENAME)
(13 DIRECTORY 4 HOST)
( 32 "" 26 "*")
STRIPDIR :D8
(I 1 DIRECTORY I 0 FILE F 0 FILEDIRCASEARRAY) A@khihP
ž@A
@(27 SUBSTRING 20 NCHARS 12 STRPOS)
NIL
()
STRIPHOST :D8
(P 0 POS I 0 NAME) o@
H™@HkØ
@(24 SUBSTRING 10 STRPOS)
NIL
( 4 "}")
STRIPNAME :D8
(P 1 LASTDIRPOS P 0 I I 0 FILE) 3k@H
dl>ð©dl<ð¤dl/ð“¿HYެI˜@kI @HkÔ¸°Ô(40 SUBSTRING 10 NTHCHARCODE)
NIL
()
STRIPWHERE :D8
(P 0 POS I 1 ORIGINTOO I 0 BRANCH) Eo@
H²3@kHkÙ A•o„o
™@HkØ
@(64 SUBSTRING 54 MEMB 36 L-CASE 31 MKATOM 26 SUBSTRING 10 STRPOS)
NIL
( 49 (local) 43 (local origin) 4 "/")
GFILE4MFILE :D8
(I 1 PROJECT I 0 MFILE) <ggggAghg@
 i
(57 SLASHIT 51 PACKFILENAME 46 TRUEFILENAME 41 PACKFILENAME)
(34 BODY 28 VERSION 19 HOST 14 BODY 9 UNIX 4 HOST)
()
MFILE4GFILE :D8
(I 1 PROJECT I 0 GFILE) #gAghg@
 (32 UNSLASHIT 27 PACKFILENAME)
(20 BODY 14 VERSION 4 HOST)
()
GIT-REPO-FILENAME :D8
(I 1 PROJECT I 0 GFILE) gAg
@g
ð–@ Ž@A
i
bd l/ðš@l
b€@mÿ
l.ð™@kmþ @(98 SUBSTRING 85 NTHCHARCODE 74 SUBSTRING 62 CHCON1 54 SLASHIT 48 STRIPDIR 43 TRUEFILENAME 32 STRIPHOST 24 FILENAMEFIELD 13 FILENAMEFIELD)
(19 HOST 8 HOST)
()
GIT-COMMIT :D8
(P 6 GF P 5 F P 0 GFILES I 3 PROJECT I 2 MESSAGE I 1 TITLE I 0 FILES) iC C
šo ¿o C C
@QJ£I½h„I½I¹MC
^¼Kµ Lh[º°ÙL&»°Ô(86 INFILEP 81 GFILE4MFILE 50 GIT-MAINBRANCH? 44 GIT-WHICH-BRANCH 38 HELP 27 ERROR 16 STRING.EQUAL 11 GIT-WHICH-BRANCH 5 GIT-MAINBRANCH)
NIL
( 33 "UNIMPLEMENTED" 22 "Cannot commit to the main branch")
GIT-PUSH :D8
(I 1 PROJECT I 0 BRANCH) +
A bA
o@o hdA (40 GIT-COMMAND 32 CONCAT 16 GIT-MAINBRANCH? 8 GIT-WHICH-BRANCH)
NIL
( 27 "%"" 21 "git push %"")
GIT-PULL :D8
(I 1 PROJECT I 0 BRANCH) *A boA o hdA (39 GIT-COMMAND 31 CONCAT 21 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT)
NIL
( 26 "%"" 12 "git pull %"")
GIT-APPROVAL :D8
(I 1 PROJECT I 0 BRANCH) @iA A i
(19 GIT-ADD-WORKTREE 13 GIT-MAINBRANCH 7 GIT-ADD-WORKTREE)
NIL
()
GIT-GET-FILEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 A0225) Pi
hc¿$(11 \MVLIST 6 COPYCHARS)
NIL
()
GIT-GET-FILEA0002 :D8
(F 0 ESTREAM F 1 A0225) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-GET-FILE :D8
(P 5 A0225 P 4 ESTREAM P 2 DATE P 1 TYPE P 0 RESULTFILE I 4 PROJECT I 3 NOERROR I 2 LOCALFILE I 1 GITFILE I 0 BRANCH) Öo@khi
š@l
b¿o@oAo
Di 1Hd²Nggg
ig LgM ¿$H ¿HX²5H [¹KZªA@DC ZœHgJ ¿HB
ChoA
(211 ERROR 195 RENAMEFILE 187 SETFILEINFO 173 GIT-FILE-DATE 156 \MVLIST 151 LISPFILETYPE 139 DELFILE 126 CL:CLOSE 114 \MVLIST 109 GIT-GET-FILEA0001 95 OPEN 89 SYSTEM-EXTERNALFORMAT 59 GIT-COMMAND-TO-FILE 52 CONCAT 26 SUBSTRING 17 STRPOS)
(181 CREATIONDATE 120 :ABORT 104 GIT-GET-FILEA0002 84 :EXTERNAL-FORMAT 79 :INPUT 74 :DIRECTION)
( 205 "GIT FILE NOT FOUND" 46 "%"" 40 ":" 34 "git show %"" 7 "local/")
GIT-FILE-EXISTS? :D8
(I 2 PROJECT I 1 BRANCH I 0 GFILE) @ABi ´i(8 GIT-FILE-DATE)
NIL
()
GIT-REMOTE-UPDATE :D8
(I 1 PROJECT I 0 DOIT F 0 LAST-REMOTE-UPDATE-IDATE) Sg žPÙoñ´6oi
¿Ai
i
¿i ohA c¿(77 IDATE 72 GIT-COMMAND 60 TERPRI 53 PRIN1 47 GIT-WHICH-BRANCH 39 PRIN1 18 IDATE 12 BOUNDP)
(7 LAST-REMOTE-UPDATE-IDATE)
( 65 "git remote update origin" 33 "Updating from remote, local branch is " 25 86400000)
GIT-REMOTE-ADD :D8
(I 1 URL I 0 NAME) o@oA (21 GIT-COMMAND 16 CONCAT)
NIL
( 10 " " 4 "git remote add ")
GIT-FILE-DATE :D8
(P 0 DATE I 3 NOERROR I 2 PROJECT I 1 BRANCH I 0 GFILE) IooAo „o@B
hiB Cªo@
H(69 ERROR 49 GIT-COMMAND 41 CONCAT 36 GIT-REPO-FILENAME 23 CONCAT)
NIL
( 63 "GIT FILE NOT FOUND" 29 "" 18 "%" -- " 12 "%"" 4 "git log -1 --pretty=%"format:%%cD%" ")
GIT-FILE-HISTORY :D8
(P 9 I P 8 I P 7 POS P 6 COMMENTS P 5 COMMIT P 4 L P 1 VAL P 0 LINES I 2 PRINT I 1 PROJECT I 0 FILE) (
o@A
ihA !H AKµBI ¿@A
I\ Zjð±ËJ™J ’±½oLkhk
²/N²MgNh
½h¾gLl
hMI¹h°}L l ð²3LlLO
l ð³Oµimÿ µiN¾°KOkÔ_¿°×LkoLk kÙ_ LlOØ LO
l ð³Oµimÿ hM½K[±ÿOkÔ_¿°Ó(273 SUBSTRING 255 NTHCHARCODE 238 SUBATOM 229 STRPOS 198 SUBSTRING 180 NTHCHARCODE 161 CHCON1 144 SUBSTRING 128 \NCONC2 108 STRPOS 89 \FZEROP 72 NCHARS 62 GIT-REPO-FILENAME 54 GIT-PRINT-FILE-HISTORY 38 REVERSE 29 GIT-COMMAND 24 GIT-GET-PROJECT 16 CONCAT 11 GIT-REPO-FILENAME)
(136 commit 119 Comments)
( 222 ": " 98 "commit " 4 "git log --date=rfc -- ")
GIT-PRINT-FILE-HISTORY :D8
(P 8 CC P 7 POS P 5 X P 4 A P 2 AU P 1 C I 1 AUTHORS I 0 COMMITS)  @i
¿i @!Hµh¹gIºAœAKd³=¢±ßlhi ¿Ii
¿oi
¿Ii
¿i ¿I±ž£K¼h„K¼K»LJkhdd`
²¤Lµ¥i°¢dl
hi ¿Mi
¿oi
¿Mdgð²9i Nµ°1_ið—i °Oji ¿Oi
¿N^°Öi
¿i µˆi ¿HX±ÿ(271 TERPRI 260 TERPRI 253 PRIN1 239 PRIN1 230 TAB 219 TERPRI 197 POSITION 178 PRIN1 166 PRIN1 157 TAB 135 STRPOS 101 TERPRI 94 PRIN1 83 PRIN1 71 PRIN1 61 TAB 14 TERPRI 7 PRIN1)
(187 Comments 129 UPPERCASEARRAY 32 Author)
( 172 ": " 77 ": ")
GIT-FETCH :D8
(I 0 PROJECT) oih@ (12 GIT-COMMAND)
NIL
( 4 "git fetch")
GIT-BRANCH-DIFF :D8
(P 12 FN P 11 L P 6 L P 5 RESULTFILE P 4 ELINES P 3 RLINES P 2 ERRORFILE P 1 LIMIT P 0 POS I 2 PROJECT I 1 BRANCH2 I 0 BRANCH1) c
@¨B b¿A¨B b¿hB
`o@oAoAo
B
½h\»Md²Zi
¼J ¿M]i
»M ¿L¢±ÑoLk ¢±¥LoLkhdi
oL
3 Y²vlhi ¿oi
¿oi
¿I´ hgoIkÔYo gð²oI
hdB ¿±ÿo@Ah
¿°dNi
¿i µêKQ Oµ Oi
_¿oOkl
’±åO dlAð²6¿Ol
l ð²gOl
_h±£oO
±”dlDð²6¿Ol
l ð²gOl
_h±ioO
±ZdlMð²8¿oO
gOHkØ
_h±-oO
±dlCð²]¿Ol
l ð²FoOl X²5gOHkØ
_Oll 3 µoO
h±Åo±¶dlRð²h¿Ol
l ð²RoOl X²AgOlHkÙ _OHkØ
Oll 3 µoO
h°Wo°Ilwð²?oOk ¬oO
¿hdOo
gð¥<00>hoO
_¿OµOh__¿O_±ýðO&_¿°ò(833 HELP 818 ERROR! 806 ASKUSER 801 CONCAT 786 HELP 773 STRPOS 741 HELP 725 SUBATOM 714 SUBSTRING 702 SUBSTRING 682 STRPOS 663 NTHCHARCODE 632 HELP 616 SUBATOM 603 SUBSTRING 585 STRPOS 566 NTHCHARCODE 547 ERROR 527 SUBSTRING 509 STRPOS 487 ERROR 467 SUBSTRING 448 NTHCHARCODE 429 ERROR 409 SUBSTRING 390 NTHCHARCODE 374 CHCON1 363 STREQUAL 358 SUBSTRING 338 SORT 315 TERPRI 308 PRIN1 290 ERROR 271 GIT-COMMAND 263 CONCAT 244 ASKUSER 239 CONCAT 210 PRIN1 198 PRIN1 186 TAB 172 SUBATOM 165 STRPOS 152 STRPOS 127 STRPOS 108 DELFILE 101 GIT-RESULT-TO-LINES 91 DELFILE 84 GIT-RESULT-TO-LINES 66 GIT-COMMAND-TO-FILE 60 CONCAT 28 GIT-REMOTE-UPDATE 18 GIT-MAINBRANCH 7 GIT-MAINBRANCH)
(811 Y 690 RENAMED 593 ADDED 517 MODIFIED 458 DELETED 400 ADDED 249 Y 220 N)
( 826 "Unrecognized git-diff code " 796 " Ignore remaining files? " 779 "UNRECOGNZED GIT LINE" 765 "warning: "
753 "RENAME NOT RECOGNIZED" 734 "R without a number" 673 " " 644 "COPY NOT RECOGNIZED" 625 "C without a number"
576 " " 540 "CHANGED NOT RECOGNIZED" 502 " " 480 "DELETED NOT RECOGNIZED" 422 "ADDED NOT RECOGNIZED" 348
".git/" 280 "Incomplete branch differences" 257 "git config --global diff.renameLimit " 234 " and try again? "
225 " Should I increase the global limit to " 204 "diff.renameLimit must be increased" 192 "** For accurate branch differences, "
157 " and retry " 139 " at least " 119 "warning: inexact rename detection was skipped due to too many files."
54 "%" --name-status" 48 "%") %"" 42 "%" %"" 36 "git diff -C --find-copies-harder $(git merge-base %"")
GIT-COMMIT-DIFFS :D8
(I 2 PROJECT I 1 BUTNOTBRANCH2 I 0 BRANCH1) !o@oAo
hdB (30 GIT-COMMAND 22 CONCAT)
NIL
( 16 "%"" 10 "%" %"^" 4 "git log --format=%"%%h%" %"")
GIT-BRANCH-RELATIONSA0001 :D8
(I 1 B2 I 0 B1 F 0 SUPERSETS) A@P
µ@AP
(21 MEMB 9 MEMB)
NIL
()
GIT-BRANCH-RELATIONS :D8
(P 28 E P 27 S P 26 SS P 22 S P 21 SS P 17 S P 16 D2 P 14 EQUALS P 13 SUPERSETS P 12 MORE2 P 11 MORE1 P 10 D1 P 9 DTAIL P 7 B P 0 MAIN I 3 PROJECT I 2 STRIPWHERE I 1 BRANCH2 I 0 BRANCHES) ÿC bd 1BH ¸@@°+d_¿B™O _<0E>OdHC ¼MµLh^<5E>L&½µÖNaO_µB¢±J0O±é_¿OOµO°Û_ ¿OO ô²OOµ
OhO_YO I°^OO 
_¿O O
_¿O² O³<O Oµ
O hO_ZOO²OOµ
OhO_[O K¿O_±ÿkd0O"°$dO* _$¿O&µ O$h_(O$&_&¿µÝO(¼MµLh^<5E>L&½µ½N_¿0O°Dd0O,°$dO4 _.¿O0µ O.h_2O.&_0¿µÝO2¼MµLh^<5E>L&½µ½N_¿O°dO6dg
µéO°0dO8HO8
²HdO8
‡O8 µÑOOh(495 SORT 485 DREMOVE 480 SORT 468 MEMB 442 SORT 369 STRIPWHERE 288 STRIPWHERE 187 MEMBER 172 MEMBER 58 GIT-COMMIT-DIFFS 45 STRIPWHERE 24 STRIPWHERE 13 GIT-MAINBRANCH 5 GIT-GET-PROJECT)
(437 GIT-BRANCH-RELATIONSA0001)
()
GIT-MODIFIED :D8
(P 5 POS P 4 X I 0 PROJECT) To QHµI¼oLhddi
µoLhddi
]ŸLM
»Jµ KhZ¹HX°ÂK&º°ø(63 SUBSTRING 54 STRPOS 36 STRPOS 9 GIT-COMMAND)
NIL
( 43 "?? " 25 " M " 4 "git status --porcelain")
GIT-BRANCH-NUM :D8
(P 1 NPOS P 0 SPOS I 1 INITS I 0 BRANCH) Pb¿o@khdi
µkA@Hhdi`
Y´@Io@I µjkÙ 3(75 SUBATOM 65 STRPOS 48 STRPOS 25 STRPOS 6 GIT-INITIALS)
(42 UPPERCASEARRAY)
( 58 "-" 14 "/")
GIT-CHECKOUT :D8
(P 0 CURRENTBRANCH I 1 PROJECT I 0 BRANCH) u@¨A b¿Ai
HoH
Xd@o@
µjkØ
³-o@o hiA ¿o hiA @(113 GIT-COMMAND 105 CONCAT 94 GIT-COMMAND 86 CONCAT 68 STRING.EQUAL 63 SUBSTRING 53 STRPOS 39 SUBSTRING 32 STRPOS 17 GIT-WHICH-BRANCH 7 GIT-MAINBRANCH)
NIL
( 100 "git pull" 81 "%"" 75 "git checkout %"" 47 "/" 26 "/")
GIT-WHICH-BRANCH :D8
(I 1 ALL I 0 PROJECT) ooAh@ 
(28 MKATOM 23 CONCAT 17 GIT-COMMAND)
NIL
( 9 "git rev-parse --abbrev-ref HEAD" 4 "local/")
GIT-MAKE-BRANCH :D8
(P 6 RESULT P 5 UNDER P 4 C P 0 I I 2 PROJECT I 1 TITLESTRING I 0 NAME) @¨B b¿A²-kAAH
‚±I b¿@oA b¿Bi
hgo@oMo
 gð¢±<00>o@o hdB ^do@o
²-NoM l ðl-€L»JµKhZ¹HkÔ¸±ÿNK&º°öNo@o
@o
oN
oi
¿i h(269 TERPRI 262 PRIN1 250 HELP 238 ERROR 226 STREQUAL 221 CONCAT 173 CONCAT 158 STREQUAL 153 CONCAT 134 GIT-COMMAND 126 CONCAT 100 ASKUSER 95 CONCAT 63 GIT-WHICH-BRANCH 53 CONCAT 38 CONCATCODES 24 NTHCHARCODE 7 GIT-MY-NEXT-BRANCH)
(105 Y 72 N)
( 256 "New branch not created" 244 "Unexpected git result" 233 "already exists" 216 "' already exists."
210 "fatal: A branch named '" 167 " under " 148 "'" 142 "Switched to a new branch '" 121 "%"" 115 "git checkout -b %""
89 ". Is that OK? " 83 " will be created under " 77 "Branch " 47 "--")
GIT-BRANCHES :D8
(P 12 B P 8 MAINBRANCH P 6 BRANCHES P 5 REMOTE P 4 LOCAL P 3 B I 2 EXCLUDEMERGED I 1 PROJECT I 0 WHERE) v
A b@ o
´D0oihA °-dKloK
µjkÙ ¸HhZ<>H&¹µÔJ@ o
´D0oihA °-dKloK
µjkÙ ¸HhZ<>H&¹µÔJLM
^dJµ8h²oi
¿i ¿B¢±NAg
B Oµ!O^°x»oK
•Kµ¼i°¹JZ°°_¿oOoOo
 oOo ô²O_¿OµOh__¿O_°ŒO&_¿°óN (371 SORT 329 GIT-COMMAND 324 CONCAT 307 GIT-COMMAND 302 CONCAT 261 STRPOS 234 GIT-MAINBRANCH 216 TERPRI 209 PRIN1 185 UNION 156 SUBATOM 146 STRPOS 125 GIT-COMMAND 107 MEMB 97 U-CASE 72 SUBATOM 62 STRPOS 41 GIT-COMMAND 23 MEMB 13 U-CASE 5 GIT-GET-PROJECT)
(229 LOCAL)
( 319 "%"" 312 "git rev-parse %"" 296 "%"" 289 "%" %"" 282 "git merge-base %"" 255 "HEAD detached" 203
"Execute %"git gc%" to eliminate a branch with a detached HEAD" 140 " -> " 117 "git branch -r" 102 (NIL ALL REMOTE T)
56 " -> " 33 "git branch" 18 (NIL ALL LOCAL))
GIT-BRANCH-EXISTS? :D8
(P 0 WHERE I 3 EXCLUDEMERGED I 2 PROJECT I 1 NOERROR I 0 BRANCH) no@khi
g°/o@khi
´@o@k
b¿g@ HBC
µA«o@
h(105 ERROR 89 MEMB 84 GIT-BRANCHES 76 MKATOM 59 SUBSTRING 52 STRPOS 37 STRPOS 14 STRPOS)
(67 LOCAL 20 REMOTE)
( 99 "Unknown branch" 45 "/" 27 "local/" 4 "origin/")
GIT-PICK-BRANCH :D8
(I 1 TITLE I 0 BRANCHES) @Aµd o
(29 MENU 24 GIT-BRANCH-MENU 19 CONCAT 9 LENGTH)
NIL
( 14 " branches")
GIT-BRANCH-MENU :D8
(I 2 PIN? I 1 TITLE I 0 BRANCHES F 2 DEFAULTFONT) z@d£dhb´nB<6E>@o
b¿`@ o
HdI¿d@¿dR¿dg¿dg ¿dg¿jdnÿdhHdI
¿(52 CONCAT 42 LENGTH 24 \APPEND2)
(96 DEFAULTMENUHELDFN 87 CLRPROMPT 78 GIT-BRANCH-WHENSELECTEDFN 32 |MENUTYPE#|)
( 47 " branches" 19 ((" Pin menu" (QUOTE PinMenu))))
GIT-BRANCH-WHENSELECTEDFN :D8
(P 0 PR I 2 BUTTON I 1 MENU I 0 ITEM) P@ Bgð²oH
g@gHhhgg (77 ADD.PROCESS 35 ShellOpen 30 CONCAT 5 LAST)
(72 prc 67 NAME 49 QUOTE 41 GIT-PR-COMPARE 15 MIDDLE)
( 23 "https://github.com/Interlisp/medley/pull/")
GIT-PULL-REQUESTS :D8
(P 8 PR P 7 DRAFT P 6 JSOBJ P 0 JPARSE I 1 PROJECT I 0 INCLUDEDRAFTS) j o jðªo ¿oihA  Hdgð”¿H°gðHŠoH
aJµK^g
gð_¿@¥O’±êNg
Ng
¹Ng
IOg°4Ng
dgð—¿g°gð•o„gANg
No
h_¿oO
²Koi
¿Ng
i
¿oi
¿Oi
¿oi
¿i ŠO½LµMh\[¿JZ±þôM&\°ö(336 TERPRI 329 PRIN1 317 PRIN1 305 PRIN1 293 PRIN1 287 JSON-GET 275 PRIN1 262 STRPOS 236 JSON-GET 225 JSON-GET 179 MKATOM 174 JSON-GET 152 JSON-GET 140 JSON-GET 129 JSON-GET 101 JSON-GET 80 ERROR 42 JSON-PARSE 36 GIT-COMMAND 22 ERROR 9 PROCESS-COMMAND)
(282 number 220 url 213 A 200 REVIEW_REQUIRED 193 C 185 CHANGES_REQUESTED 169 reviewDecision 161 D 147 title 135 headRefName 124 number 106 true 96 isDraft 65 OBJECT 53 ARRAY)
( 323 "%"" 299 " " 269 "Ignoring PR for forked repo %%%" #" 252 ":" 231 (headRepositoryOwner login) 207
" " 74 "UNRECOGNIZED PRC LIST FROM GIT" 28 "gh pr list --json number,headRefName,title,isDraft,reviewDecision,url,headRepository,headRepositoryOwner"
17 "gh must be installed in order to enumerate pull requests:" 4 "command -v gh")
GIT-SHORT-BRANCH-NAME :D8
(I 0 BRANCH) @ko@k µjkÙ (23 SUBSTRING 13 STRPOS)
NIL
( 6 "--")
GIT-LONG-NAME :D8
(P 1 B I 3 EXCLUDEMERGED I 2 PROJECT I 1 WHERE I 0 BRANCH) &ABC Hµh¹@I
”IµiHX°é(25 STRPOS 7 GIT-BRANCHES)
NIL
()
GIT-PRC-BRANCHES :D8
(P 15 STATUS P 14 PRNAME P 13 LABEL P 12 REL P 11 PR P 7 EQUALS P 6 SUPERSETS P 4 RELATIONS P 3 PR I 2 PRS I 1 PROJECT I 0 DRAFT) ?BªiA
b´J0dK ¸HhZ<>H&¹µãJhiA BLLƒMµ Oi
__¿oOoON
_ŸOoO °!OO
_žOoO <00>O _¿O_¿@dgð¿OgðhðŽgð™Ogð³SoOoO O oOoOoO
hOh_¿OµOh__¿M]±ÿO&_¿°ô(278 CONCAT 248 GITORIGIN 241 CONCAT 172 CONCAT 164 CONCAT 145 SASSOC 134 CONCAT 115 SASSOC 84 SORT 59 GIT-BRANCH-RELATIONS 32 GITORIGIN 8 GIT-PULL-REQUESTS)
(219 D 210 NODRAFTS 201 D 191 DRAFTS)
( 268 " " 260 " #" 253 " " 234 " " 227 " " 157 " = " 127 " > " 107 " " 99 "#")
GIT-MY-CURRENT-BRANCH :D8
(P 2 B I 1 INITS I 0 PROJECT) 7b¿@hA AHµIZA
µj¼K“LKó“L»J¹HX°â(34 GIT-BRANCH-NUM 17 GIT-MY-BRANCHES 6 GIT-INITIALS)
NIL
()
GIT-MY-BRANCHP :D8
(I 1 PROJECT I 0 BRANCH) Ai
bµ Ai
(25 GIT-BRANCH-NUM 20 GIT-WHICH-BRANCH 9 GIT-WHICH-BRANCH)
NIL
()
GIT-MY-NEXT-BRANCHA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PROJECTLIST F 1 STRM F 2 PROJECT F 3 PROJECTENTRY F 4 NEXTNUM F 5 A1023) uQ jð¦Q €hc¿Rg
Pcµ'Rg
R R
µjhcPc¿SkØc¿ST¿Qj
¿PQ
¿T hc
¿$(107 \MVLIST 100 PRINT 92 SETFILEPTR 59 GIT-MY-BRANCHP 53 GIT-MY-CURRENT-BRANCH 47 GIT-GET-PROJECT 30 GIT-GET-PROJECT 14 READ 5 GETEOFPTR)
(42 PROJECTNAME 25 PROJECTNAME)
()
GIT-MY-NEXT-BRANCHA0002 :D8
(F 0 STRM F 1 A1023) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-MY-NEXT-BRANCH :D8
(P 4 A1023 P 3 STRM P 2 NEXTNUM P 1 PROJECTENTRY P 0 PROJECTLIST I 0 PROJECT) ]0ogggggg
ig KgL ¿$
(90 PACK* 79 CL:CLOSE 67 \MVLIST 62 GIT-MY-NEXT-BRANCHA0001 48 OPEN 4 GIT-INITIALS)
(73 :ABORT 57 GIT-MY-NEXT-BRANCHA0002 42 :OVERWRITE 37 :IF-EXISTS 32 :CREATE 27 :IF-DOES-NOT-EXIST 22 :IO 17 :DIRECTION)
( 12 "{LI}GIT-MY-CURRENT-BRANCH-NUMS;1")
GIT-MY-BRANCHESA0001 :D8
(I 1 Y I 0 X) @A@AýñiA©@A
h(26 ALPHORDER)
NIL
()
GIT-MY-BRANCHES :D8
(P 5 IPOS P 4 B I 2 INITS I 1 EXCLUDEMERGED I 0 PROJECT)
b¿g@A QHµIg
1 NµIO¼BLkhdd`
]²&Mkð­LMkÙ
l/ð²LdB
»Jµ KhZ¹HX°«K&º°ø_¿OµOh__¿N^°¡O&_¿°õ(97 GIT-BRANCH-NUM 84 NTHCHARCODE 68 STRPOS 39 SORT 21 GIT-BRANCHES 6 GIT-INITIALS)
(62 UPPERCASEARRAY 34 GIT-MY-BRANCHESA0001 14 LOCAL)
()
GIT-ADD-WORKTREE :D8
(P 1 LOCALBRANCH P 0 LINES I 2 PROJECT I 1 REMOTEONLY I 0 BRANCH) »@Ahð
bdiB ³@iB «@o
¿@B
@o
¿ o@
kð²$@l
¹oIB
o@o°o@ o@o
hdB XoHkhi
ªo@
@(183 ERROR 171 STRPOS 154 GIT-COMMAND 146 CONCAT 129 WORKTREEDIR 105 WORKTREEDIR 92 SUBSTRING 80 STRPOS 65 ERROR 53 CL::SIMPLE-STRING-EQUAL 48 GIT-WHICH-BRANCH 40 ERROR 28 GIT-BRANCH-EXISTS? 18 GIT-BRANCH-EXISTS? 8 GITORIGIN)
NIL
( 177 "Could not create worktree for " 160 "Preparing worktree" 140 "%"" 134 " %"" 123 "git worktree add "
116 "%"" 110 " %"" 98 "git worktree add --guess-remote " 74 "origin/" 60 "is the current branch" 35 "is not a git branch")
GIT-REMOVE-WORKTREE :D8
(P 1 LINES P 0 DIR I 1 PROJECT I 0 BRANCH) E@hA @A
oH
hdA YoIkhi
šo@
@(65 ERROR 53 STRPOS 36 GIT-COMMAND 28 CONCAT 14 WORKTREEDIR 7 GIT-BRANCH-EXISTS?)
NIL
( 59 "Could not remove worktree for " 42 "fatal: " 22 "git worktree remove ")
GIT-LIST-WORKTREES :D8
(P 5 POS P 4 L) jo QHµ
I ¼oLhddi
]²3oL
²&LM
\koL
»Jµ KhZ¹HX°¬K&º°ø(85 SUBATOM 78 STRPOS 65 SUBSTRING 56 STRPOS 42 STRPOS 23 SORT 9 GIT-COMMAND)
NIL
( 72 " " 50 "(detached HEAD)" 31 "/worktrees/" 4 "git worktree list")
WORKTREEDIR :D8
(I 1 PROJECT I 0 BRANCH) Ao@•o„o (26 CONCAT)
NIL
( 21 "" 15 "/" 8 "../worktrees/")
GIT-GET-DIFFERENT-FILES :D8
(P 8 F2 P 7 F1 P 6 GFILE P 5 D P 4 PRNAME P 3 FROMGITDIR P 2 FROMGIT P 1 MAPPINGS P 0 DIFFS I 4 PROJECT I 3 DIR2 I 2 DIR1 I 1 BRANCH2 I 0 BRANCH1 F 9 FROMGITN) Æ D b@hD bAhD b@AD AH´‚±™oWkÔco Zo@hi ²oAhi ˜Al
€A\JoDoLoo

B­Jo
b¿C­Jo
b¿H±dMdgð²0¿M½@MBM
iD
’±ÔAMCM
iD
±¿dgð²0¿M½AMCM
iD
’±<00>@MBM
iD
±ˆdgð²,¿M½@MBM
iD
¿AMCM
iD
°Tdgð¨dgð²7¿M!@NBN
iD
_¿ANCN
iD
Œ¿oM
¿µ±þÿBCIh(434 HELP 420 GIT-GET-FILE 412 CONCAT 396 GIT-GET-FILE 388 CONCAT 350 GIT-GET-FILE 342 CONCAT 332 GIT-GET-FILE 324 CONCAT 298 GIT-GET-FILE 290 CONCAT 277 GIT-GET-FILE 269 CONCAT 243 GIT-GET-FILE 235 CONCAT 222 GIT-GET-FILE 214 CONCAT 177 CONCAT 161 CONCAT 148 PSEUDOHOST 143 CONCAT 132 DATE 104 SUBSTRING 95 STRPOS 80 STRPOS 66 PACK* 35 GIT-BRANCH-DIFF 25 GIT-BRANCH-EXISTS? 15 GIT-BRANCH-EXISTS? 5 GIT-GET-PROJECT)
(366 COPIED 358 RENAMED 307 MODIFIED 252 DELETED 197 ADDED)
( 428 "UNKNOWN GIT-DIFF TAG" 172 "<pr>" 156 "<master>" 137 ">" 127 "--" 121 "-PR--" 113 "{DSK}<tmp>" 87
"origin/" 72 "origin/" 61 "}" 50 "{FROMGIT")
GIT-BRANCHES-COMPARE-DIRECTORIESA0001 :D8
(P 2 MAP P 1 M I 0 CDE F 3 INFO2 F 4 INFO1 F 5 MAPPINGS F 6 FILEDIRCASEARRAY) ¿S³%UHµh°YTV •Iµði°íHX°ähJgJ
¿Tµ>SµJ´~@JJgð²Ao°?ghgS i
¿°ÉghgT i
¿°ªoooooh@J(142 SLASHIT 136 PACKFILENAME.STRING 114 SLASHIT 108 PACKFILENAME.STRING 54 HELP 25 STRING.EQUAL)
(129 BODY 123 VERSION 101 BODY 95 VERSION 80 R 48 MAP)
( 171 "" 166 "" 161 "" 156 "" 151 " ==" 88 " <-")
GIT-BRANCHES-COMPARE-DIRECTORIES :D8
(P 5 MAPPINGS P 4 NENTRIES P 3 DIRS P 2 CDVALUE P 1 SHORT2 P 0 SHORT1 I 3 PROJECT I 2 LOCAL I 1 BRANCH2 I 0 BRANCH1 F 6 BOLDFONT F 7 DEFAULTFONT F 8 LAST-BRANCH-CDVALUE F 9 GIT-CDBROWSER-SEPARATE-DIRECTIONS) ´C b‚±‰di
bd A Boi
¿Ci
i
¿oi
¿i lhi ¿Vi
¿Hi
¿Wi
¿oi
¿Vi
¿Ii
¿Wi
¿i oi
@AhdC
[d]K¢±ìi KKooCg
hdddKg
Kg
h
Zdg
i J¢±ˆJcdCi
oHoIoJ o
HIhog@gAgChWo
J ddkðžg<00>B
±þ{ghoo(410 GITORIGIN 393 LENGTH 386 CDBROWSER 337 CONCAT 326 LENGTH 302 L-CASE 283 TERPRI 277 CDMAP 265 COMPAREDIRECTORIES 256 FILENAMEFIELD 243 FILENAMEFIELD 227 GIT-GET-PROJECT 201 TERPRI 184 GIT-GET-DIFFERENT-FILES 173 PRIN1 162 TERPRI 155 CHANGEFONT 146 PRIN1 138 CHANGEFONT 130 PRIN1 118 CHANGEFONT 109 PRIN1 101 CHANGEFONT 93 TAB 84 TERPRI 77 PRIN1 65 PRIN1 59 L-CASE 49 PRIN1 35 GIT-SHORT-BRANCH-NAME 29 GIT-SHORT-BRANCH-NAME 21 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT)
(418 differences 403 difference 366 PROJECT 359 BRANCH2 352 BRANCH1 272 GIT-BRANCHES-COMPARE-DIRECTORIESA0001 251 DIRECTORY 238 DIRECTORY 222 EXCLUSIONS)
( 433 (0 differences) 427 (0 differences) 380 (Compare See) 347 (LABELFN . GIT-CD-LABELFN) 331 " files"
319 " " 313 " vs " 307 " " 216 (*.* *>*.* .* *>.*) 211 (> < ~= -* *-) 167 "Fetching differences"
124 " and " 71 " subdirectories of" 43 "Comparing all ")
GIT-WORKING-COMPARE-DIRECTORIES :D8
(P 26 SUBDIR P 25 TITLE P 24 CDVAL P 21 SUBDIR P 20 CDE P 19 DPOS P 18 E P 10 CDVAL P 9 TITLE P 8 SUBDIR P 3 BRANCH2 P 2 NENTRIES P 1 WPROJ P 0 SUBDIRSTRING I 5 PROJECT I 4 UPDATE I 3 FIXDIRECTORYDATES I 2 EXCLUDEDFILES I 1 SELECT I 0 SUBDIRS F 30 GIT-MERGE-COMPARES F 31 FILEDIRCASEARRAY F 32 LAST-WMEDLEY-CDVALUES F 33 GIT-CDBROWSER-SEPARATE-DIRECTIONS) QE b
D—hE
¿Ed­Eo
¿@d•d¢b³Eµgb€@ bddgðž¿E b¿ooEi
jEi
@d
oi
¿Hi
¿lhi ¿oi
¿Ii
¿oi
¿Ki
¿i ¿o ¿LµMd¢±F¿W<¢±>M ½0
"¥L_¿h†L_¿L¼i ¿OiE OiE ooEg
QOµOhddC
_±_$¿OO$g
khidW>
_&O$O&kØ
<00>O$_"¿O µO"h_ _¿O_°§O"&_ ¿°ódO(d²O(i
¿O(ŸO(di
¿µËO_¿Nµ Oh^]±þòO&^±þëdO*o
_¿Oµ Oh_O&_¿µØO b¿M@2O,µ_0¿O.µMc@¿i ¿Jdkð¢±õg±ò¦O._4¿hˆO._4¿O._.¿IoKoO4oO0 o
_2¿O0O2IKgIgKgO4ogEhWBggogoKEi ¥o€h
¿O4o
0O0°d_6¿O8µ O6h_:O6&_8¿µçO:¿¿JO0 ÔºO,_,±þñgh(828 LENGTH 780 CONCAT 767 CDBROWSER 748 GIT-MAINBRANCH? 663 CONCAT 652 LENGTH 587 TERPRI 554 CONCATLIST 521 CONCAT 473 SLASHIT 450 UNSLASHIT 391 SUBSTRING 377 STRPOS 365 FILENAMEFIELD 342 COMPAREDIRECTORIES 321 GIT-GET-PROJECT 297 GITSUBDIR 288 MYMEDLEYSUBDIR 278 TERPRI 248 CDMERGE 224 BKSYSBUF 213 TERPRI 206 PRIN1 198 PRIN1 186 PRIN1 178 PRIN1 166 TAB 156 PRIN1 148 PRIN1 133 GIT-WHICH-BRANCH 125 CONCAT 120 L-CASE 95 ALLSUBDIRS 77 L-CASE 41 ERROR 16 GIT-REMOTE-UPDATE 5 GIT-GET-PROJECT)
(843 differences 735 Copy% <- 725 See 720 Compare 705 PROJECT 692 SUBDIR 685 BRANCH2 678 BRANCH1 601 difference 360 DIRECTORY 316 EXCLUSIONS 86 all 68 ALL)
( 775 "/" 754 ("" (Copy% -> GIT-CD-MENUFN NIL T) (Delete% -> GIT-CD-MENUFN)) 740 (|Delete ALL <-| GIT-CD-MENUFN)
730 "" 700 (LABELFN . GIT-CD-LABELFN) 657 " files" 644 " " 637 " " 631 " vs. " 516 " "
310 (*.* *>*.* .* *>.*) 305 (> < ~= -* *-) 219 " " 192 " and Git " 172 " of " 142 "Comparing " 111 "Working "
103 "ALL subdirectories" 36 " does not have both git and working directories")
GIT-COMPARE-WORKTREE :D8
(P 15 MFILE P 14 BFILE P 13 FILE P 12 FILETAIL P 10 F P 9 MFILE P 8 BFILE P 7 FILE P 5 OTHERFILES P 4 COMPILEDFILES P 3 SOURCEFILES P 2 DELETEDFILES P 1 ADDEDFILES P 0 MAINBRANCH I 2 PROJECT I 1 DONTUPDATE I 0 BRANCH F 16 *COMPILED-EXTENSIONS*) 3@iB ¿B iB ¿B Q@iB ¿HiB ¿i ¿oi
¿Bg
i
¿Bi
¿oi
¿@i
¿oi
¿Hi
¿i @HB 1 Nµ+I¢±Êi ¿oi
¿i ¿I ±¤_¿@B
O
_¿HB
O
_¿O²DO²7O ¦OM½°6Og
W
OL¼°OK»<>O•OI¹„OJºN^±ÿVd
lhi ¿Oi
¿i µßJ²Gi ¿oi
¿i ¿I °"d
lhi ¿Oi
¿i µßK²-i ¿oi
¿i ¿K AO_µL¢±²i ¿oi
¿L±˜_¿lhi ¿Oi
¿i ¿O_¿@B
O
_¿HB
O
_¿OO
¿i ¿M¥Od˜¿¿O±ÿld
lhi ¿Oi
¿i µßM´%i ¿oi
M AO_µh_¿lhi ¿Oi
¿O_¿@B
O
_¿HB
O
_¿OOg ¿i ¿Od˜¿¿O°‹(811 WAITFORINPUT 799 TTY.PROCESS 792 COMPARETEXT 775 INFILEP 770 CONCAT 763 WORKTREEDIR 753 INFILEP 748 CONCAT 741 WORKTREEDIR 727 PRIN1 718 TAB 693 SORT 687 PRIN1 675 TERPRI 661 TERPRI 654 PRIN1 645 TAB 624 WAITFORINPUT 610 TTY.PROCESS 603 COMPARESOURCES-TEDIT 591 INFILEP 586 CONCAT 579 WORKTREEDIR 569 INFILEP 564 CONCAT 557 WORKTREEDIR 543 TERPRI 536 PRIN1 527 TAB 509 PRIN1 497 TERPRI 475 SORT 468 TERPRI 461 PRIN1 449 TERPRI 435 TERPRI 428 PRIN1 419 TAB 403 SORT 396 TERPRI 389 PRIN1 377 TERPRI 363 TERPRI 356 PRIN1 347 TAB 299 MEMB 292 U-CASE 287 FILENAMEFIELD 267 LISPSOURCEFILEP 249 INFILEP 244 CONCAT 237 WORKTREEDIR 227 INFILEP 222 CONCAT 215 WORKTREEDIR 201 SORT 194 TERPRI 187 PRIN1 175 TERPRI 156 GIT-BRANCH-DIFF 148 TERPRI 141 PRIN1 133 PRIN1 121 PRIN1 113 PRIN1 101 PRIN1 91 PRIN1 85 GIT-GET-PROJECT 73 PRIN1 61 TERPRI 54 GIT-ADD-WORKTREE 45 GIT-ADD-WORKTREE 31 GIT-MAINBRANCH 24 GIT-ADD-WORKTREE 17 GIT-MAINBRANCH 10 GIT-ADD-WORKTREE)
(787 LINE 282 EXTENSION 80 PROJECTNAME)
( 681 "Other changed files, using TEDIT-SEE" 503 "Medley compiled files, no comparisons:" 455 "Changed Medley source files:"
383 "Deleted files: " 181 "Added files: " 127 " and " 107 " origin/" 67 "Comparing ")
GITCDOBJBUTTONFN :D8
(P 7 INFO2 P 6 INFO1 P 5 TYPE P 4 COMPAREITEMS P 3 COPYITEM P 2 FONT P 1 BRANCH1 P 0 CDENTRY I 1 WINDOW I 0 OBJ)  @g
Ag
gl
ƒ
H´‚±Ç@g
´‚±´`´‚±§H^H_¿`lål𢱔N¢±ÓO¢±ËN]Oð´‚±ËMdgð²"¿oohoohh± gð“h±Mgð²o oh°xN o
²%oMd²dið¬3µ gMhoh°:oMo Md´&dið³ 3µgMh<1A>N£O´oohh¼K¦L´‚±•`Ag
oH _¿dO¿KL
_¿dO¿dJ¿dJ$¿dg ¿dg¿jdnÿdh_¿dO
¿ dg𢱬¿NA
´‚±@gi A @A
¿`låkð¢±ÿGAg
±ÿ8@g
dgð²¿oo o°#gð´oo ohh[±þÜdgð²¿OA
´`@gi hdgð²¿i NO
dgð²¿i NOg gð´
Od•  ¿°î(764 TEDIT-SEE 757 TEDIT-SEE 735 COMPARETEXT 720 TTY.PROCESS 703 CSBROWSER 693 TTY.PROCESS 675 IMAGEOBJPROP 661 FROMGIT 628 CONCAT 618 GIT-WHICH-BRANCH 593 CONCAT 583 GIT-WHICH-BRANCH 560 IMAGEOBJPROP 545 GETWINDOWUSERPROP 519 GETMOUSESTATE 513 CDOBJ.DISPLAYFN 506 REDISPLAYW 500 IMAGEOBJPROP 482 TOGIT 462 MENU 400 \APPEND2 384 CONCAT 372 GETWINDOWUSERPROP 301 CONCAT 248 MEMB 238 U-CASE 233 FILENAMEFIELD 217 CONCAT 97 GETMOUSESTATE 60 IMAGEOBJPROP 39 FONTCREATE 27 GETWINDOWUSERPROP 15 IMAGEOBJPROP 4 HELP)
(741 TEDIT 730 PARA 710 COMPARETEXT 683 COMPARESOURCES 669 COPIED 648 FROMGIT 605 RIGHT 569 LEFT 555 OBJECTDATUM 540 READONLY 525 LASTMOUSEBUTTONS 494 COPIED 468 TOGIT 434 DEFAULTMENUHELDFN 425 CLRPROMPT 367 SUBDIR 360 |MENUTYPE#| 319 QUOTE 272 QUOTE 204 TEXT 192 COMPILED 152 SOURCE 103 LASTMOUSEBUTTONS 73 LASTKEYBOARD 55 OBJECTDATUM 32 TERMINAL 22 BRANCH1 10 OBJECTDATUM)
( 633 (QUOTE FROMGIT) 623 "?" 613 "Copy FROM git " 598 (QUOTE TOGIT) 588 "?" 578 "Copy TO git " 377 "/"
340 (QUOTE TEDIT) 335 "Show file?" 296 " files?" 290 "See " 281 (QUOTE COMPARETEXT) 255 "Compare text files?"
243 (TEXT TXT) 222 (QUOTE TEXT) 212 "Compare text files?" 179 (QUOTE EXAMINE) 174 "Examine sources?" 166
(QUOTE COMPARESOURCES) 161 "Compare sources?")
GIT-CD-LABELFN :D8
(P 3 LABEL2 P 2 LABEL1 P 1 B P 0 NC I 2 USERDATA I 1 FILE2 I 0 FILE1 F 4 CDVALUE) }@TX²(@HkØ
i
ºBg'YœIoJ ºTAHkØ
i
»Bg'Yµ@KµAhoK »°è(120 CONCAT 86 SLASHIT 80 SUBSTRING 54 CONCAT 32 SLASHIT 26 SUBSTRING)
(93 BRANCH2 39 BRANCH1)
( 114 "/" 48 "/")
GIT-CD-MENUFN :D8
(I 3 KEY I 2 CDBROWSER I 1 MENUITEM I 0 TBITEM) )AµAgð²B@gA (38 SHOULDNT 32 CDBROWSER-COPY)
(22 LEFT 12 Copy% ->)
()
GIT-WORKING-COMPARE-FILES :D8
(P 1 FILE2 P 0 FILE1 I 1 PROJECT I 0 FILE) PgAg
g@ i
gAg
g@ i
HIHI (77 CD-COMPARE-FILES 65 SLASHIT 59 PACKFILENAME 48 GIT-GET-PROJECT 32 UNSLASHIT 26 PACKFILENAME 15 GIT-GET-PROJECT)
(53 BODY 43 GITHOST 37 HOST 20 BODY 10 WHOST 4 HOST)
()
GIT-BRANCHES-COMPARE-FILES :D8
(P 1 FILE2 P 0 FILE1 I 4 LOCAL I 3 PROJECT I 2 BRANCH2 I 1 BRANCH1 I 0 FILE) ÍC bA d“dið˜¿C °+dgð¯dgð§dgðž¿ACi <00>¿AbB d“dið™¿CD
°+dgð¯dgð§dgðž¿BCi <00>¿BbA@hdC
B@hdC
HIA o@ B o@ (202 CD-COMPARE-FILES 197 CONCAT 186 GIT-SHORT-BRANCH-NAME 180 CONCAT 169 GIT-SHORT-BRANCH-NAME 158 GIT-GET-FILE 147 GIT-GET-FILE 131 GIT-PICK-BRANCH 126 GIT-BRANCHES 91 GIT-MAINBRANCH 77 U-CASE 66 GIT-PICK-BRANCH 61 GIT-BRANCHES 26 GIT-MY-CURRENT-BRANCH 13 U-CASE 5 GIT-GET-PROJECT)
(115 ORIGIN 107 REMOTE 99 LOCAL 50 ORIGIN 42 REMOTE 34 LOCAL)
( 191 " " 174 " ")
GIT-PR-COMPARE :D8
(I 1 PROJECT I 0 RB) A @hA (13 GIT-BRANCHES-COMPARE-DIRECTORIES 5 GIT-MAINBRANCH)
NIL
()
CDGITDIR :D8
(I 0 PROJECT) !o@ hi o (30 CONCAT 20 SLASHIT 13 TRUEFILENAME)
NIL
( 25 " && " 4 "cd ")
GIT-COMMANDA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 A0227) Pi
hc¿$(11 \MVLIST 6 COPYCHARS)
NIL
()
GIT-COMMANDA0002 :D8
(F 0 ESTREAM F 1 A0227) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-COMMAND :D8
(P 4 A0227 P 3 ESTREAM P 2 LINES P 1 RESULTFILE P 0 LPOS I 3 PROJECT I 2 NOERROR I 1 ALL I 0 CMD) ÚC bo@
kð³o@
­o@
b¿o@
X²(@kHkÙ @Ho Ø
b¿°Î@CB Id²Nggg
ig KgL ¿$I ¿IY´IA
ZI J(214 DELFILE 207 GIT-RESULT-TO-LINES 194 DELFILE 181 CL:CLOSE 169 \MVLIST 164 GIT-COMMANDA0001 150 OPEN 144 SYSTEM-EXTERNALFORMAT 114 GIT-COMMAND-TO-FILE 100 CONCAT 95 SUBSTRING 89 NCHARS 77 SUBSTRING 64 STRPOS 47 CONCAT 33 STRPOS 18 STRPOS 5 GIT-GET-PROJECT)
(175 :ABORT 159 GIT-COMMANDA0002 139 :EXTERNAL-FORMAT 134 :INPUT 129 :DIRECTION)
( 84 "local/" 58 "local/" 41 "git " 27 "gh" 12 "git")
GITORIGIN :D8
(I 1 LOCAL I 0 BRANCH) <@ªo ¿o@
«o@
@A•o„o@
(57 CONCAT 35 STRPOS 23 STRPOS 11 HELP)
NIL
( 51 "origin/" 45 "local/" 29 "local/" 17 "origin/" 6 "BRANCH MUST BE SPECIFIED")
GIT-INITIALS :D8
(F 0 INITIALS) %Pmÿ
l:ð™Pkmþ €Pµ o (34 ERROR 20 SUBSTRING 7 NTHCHARCODE)
NIL
( 29 "INITIALS is not set")
GIT-COMMAND-TO-FILEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 CMD F 2 COMPLETIONCODE F 3 A0228) SoPjk µoPjk µoPjk jð³oPQ ´kc hc¿$(73 \MVLIST 63 FILEPOS 58 NCHARS 42 FILEPOS 27 FILEPOS 12 FILEPOS)
NIL
( 51 "' is not a git command." 34 "unknown command %"" 19 "gh: Command not found" 4 "fatal: ")
GIT-COMMAND-TO-FILEA0002 :D8
(F 0 ESTREAM F 1 A0228) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-COMMAND-TO-FILE :D8
(P 7 A0228 P 6 ESTREAM P 5 COMPLETIONCODE P 4 ERRORFILE P 3 RESULTFILE P 2 RAND P 1 DATE P 0 PROJECTNAME I 2 NOERROR I 1 PROJECT I 0 CMD) mA b@ bAg
oHoIoJo
oHoIoJo
A @oK oL
 ]L K L ²jLg
Ùjð˜L ¿h¼K ²jKg
ÙjðšL˜K ¿h»Mdjð”¿LµMjð²TK²OL²IKLhggg
ig NgO ¿$°°Kµ#LK L B¯o@
h(361 ERROR 356 CONCAT 343 DELFILE 337 DELFILE 319 CL:CLOSE 306 \MVLIST 301 GIT-COMMAND-TO-FILEA0001 287 OPEN 281 SYSTEM-EXTERNALFORMAT 232 DELFILE 220 GETFILEINFO 206 INFILEP 197 DELFILE 187 GETFILEINFO 173 INFILEP 167 CLOSEF? 161 CLOSEF? 154 PROCESS-COMMAND 149 CONCAT 143 STRIPHOST 132 STRIPHOST 120 CDGITDIR 111 CONCAT 79 CONCAT 47 RAND 39 IDATE 31 L-CASE 26 GIT-GET-PROJECT 13 STRIPLOCAL 5 GIT-GET-PROJECT)
(312 :ABORT 296 GIT-COMMAND-TO-FILEA0002 276 :EXTERNAL-FORMAT 271 :INPUT 266 :DIRECTION 215 LENGTH 182 LENGTH 21 PROJECTNAME)
( 350 "Command failed: " 137 " 2> " 126 " > " 105 "-error" 99 "-" 93 "-" 87 "{UNIX}/tmp/" 73 "-result"
67 "-" 61 "-" 55 "{UNIX}/tmp/")
GIT-RESULT-TO-LINESA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 LINE I 0 SI::*CLEANUP-FORMS* F 4 STREAM F 5 A0229 F 6 ALL) C@T žH hc
¿$Th
»V­oKk ³ÔKºIµ JhY¸°ÈJ&¹°Ã(46 STRPOS 31 CL:READ-LINE 16 \MVLIST 8 EOFP)
NIL
( 39 ".git")
GIT-RESULT-TO-LINESA0002 :D8
(F 0 STREAM F 1 A0229) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
GIT-RESULT-TO-LINES :D8
(P 1 A0229 P 0 STREAM I 1 ALL I 0 FILE) H@ggggh
ig HgI ¿$(65 CL:CLOSE 53 \MVLIST 48 GIT-RESULT-TO-LINESA0001 34 OPEN 20 SYSTEM-EXTERNALFORMAT)
(59 :ABORT 43 GIT-RESULT-TO-LINESA0002 25 ANY 15 :EXTERNAL-FORMAT 10 :INPUT 5 :DIRECTION)
()
STRIPLOCAL :D8
(P 0 POS I 0 STRING) :o@
X¡@@kHkÙ @HlØmÿ µo
b¿°Ì(51 CONCAT 39 SUBSTRING 27 SUBSTRING 13 STRPOS)
NIL
( 46 "" 7 "local/")
(PRETTYCOMPRINT GITFNSCOMS)
(RPAQQ GITFNSCOMS ((* ;; "Set up") (FILES (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES
COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS REGIONMANAGER) (* ;; "") (* ;; "GIT projects") (COMS (FNS
GIT-CLONEP GIT-INIT GIT-MAKE-PROJECT GIT-GET-PROJECT GIT-PUT-PROJECT-FIELD GIT-PROJECT-PATH
FIND-ANCESTOR-DIRECTORY GIT-FIND-CLONE GIT-MAINBRANCH GIT-MAINBRANCH?) (DECLARE%: EVAL@COMPILE
DONTCOPY (RECORDS GIT-PROJECT PULLREQUEST)) (INITVARS (GIT-DEFAULT-PROJECT (QUOTE MEDLEY)) (
GIT-DEFAULT-PROJECTS (QUOTE ((MEDLEY NIL NIL (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/
fontsold/ clos/ cltl2/) (greetfiles scripts sources library lispusers internal doctools rooms)) (
NOTECARDS) (LOOPS) (TEST) (MAIKO)))) (GIT-PROJECTS NIL) (GIT-PRC-MENUS NIL))) (P (GIT-INIT)) (ADDVARS
(AROUNDEXITFNS GIT-INIT)) (* ;; "") (* ;; "Lisp exec commands") (INITVARS (GIT-MERGE-COMPARES T) (
GIT-CDBROWSER-SEPARATE-DIRECTIONS T)) (COMMANDS gwc bbc prc cob b? cdg cdw) (FNS PRC-COMMAND) (* ;; ""
) (* ;; "File correspondents") (FNS ALLSUBDIRS MEDLEYSUBDIRS GITSUBDIRS) (FNS TOGIT FROMGIT) (FNS
MYMEDLEYSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE) (FNS GFILE4MFILE MFILE4GFILE
GIT-REPO-FILENAME) (* ;; "") (* ;; "Git commands") (FNS GIT-COMMIT GIT-PUSH GIT-PULL GIT-APPROVAL
GIT-GET-FILE GIT-FILE-EXISTS? GIT-REMOTE-UPDATE GIT-REMOTE-ADD GIT-FILE-DATE GIT-FILE-HISTORY
GIT-PRINT-FILE-HISTORY GIT-FETCH) (* ;; "Differences") (FNS GIT-BRANCH-DIFF GIT-COMMIT-DIFFS
GIT-BRANCH-RELATIONS GIT-MODIFIED) (* ;; "") (* ;; "Branches") (FNS GIT-BRANCH-NUM GIT-CHECKOUT
GIT-WHICH-BRANCH GIT-MAKE-BRANCH GIT-BRANCHES GIT-BRANCH-EXISTS? GIT-PICK-BRANCH GIT-BRANCH-MENU
GIT-BRANCH-WHENSELECTEDFN GIT-PULL-REQUESTS GIT-SHORT-BRANCH-NAME GIT-LONG-NAME GIT-PRC-BRANCHES) (*
;; "My branches") (FNS GIT-MY-CURRENT-BRANCH GIT-MY-BRANCHP GIT-MY-NEXT-BRANCH GIT-MY-BRANCHES) (* ;;
"") (* ;; "Worktrees") (FNS GIT-ADD-WORKTREE GIT-REMOVE-WORKTREE GIT-LIST-WORKTREES WORKTREEDIR) (* ;;
"") (* ;; "Comparisons") (FNS GIT-GET-DIFFERENT-FILES GIT-BRANCHES-COMPARE-DIRECTORIES
GIT-WORKING-COMPARE-DIRECTORIES GIT-COMPARE-WORKTREE GITCDOBJBUTTONFN GIT-CD-LABELFN GIT-CD-MENUFN
GIT-WORKING-COMPARE-FILES GIT-BRANCHES-COMPARE-FILES GIT-PR-COMPARE) (INITVARS (FROMGITN 0)) (* ;; "")
(* ;; "Utilities") (FNS CDGITDIR GIT-COMMAND GITORIGIN GIT-INITIALS GIT-COMMAND-TO-FILE
GIT-RESULT-TO-LINES STRIPLOCAL) (PROPS (GITFNS FILETYPE))))
(FILESLOAD (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON
UNIXUTILS REGIONMANAGER)
(RPAQ? GIT-DEFAULT-PROJECT (QUOTE MEDLEY))
(RPAQ? GIT-DEFAULT-PROJECTS (QUOTE ((MEDLEY NIL NIL (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/
tmp/ fontsold/ clos/ cltl2/) (greetfiles scripts sources library lispusers internal doctools rooms)) (
NOTECARDS) (LOOPS) (TEST) (MAIKO))))
(RPAQ? GIT-PROJECTS NIL)
(RPAQ? GIT-PRC-MENUS NIL)
(GIT-INIT)
(ADDTOVAR AROUNDEXITFNS GIT-INIT)
(RPAQ? GIT-MERGE-COMPARES T)
(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T)
(DEFCOMMAND gwc (SUBDIR . OTHERS) (* ;;
"Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project"
) (LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS))) PROJECT) (SETQ SUBDIRS (FOR STAIL ON SUBDIRS
COLLECT (IF (GIT-GET-PROJECT (CAR STAIL) NIL T) THEN (SETQ PROJECT (CAR STAIL)) (GO $$OUT)) (CAR STAIL
))) (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT)))
(DEFCOMMAND bbc (BRANCH1 BRANCH2 LOCAL PROJECT) (* ;;
"Compares 2 git branches. Defaults to local/ if LOCAL, otherwise defaults to origin/. BRANCH2 defaults to the main branch (origin/ or local/ depending on LOCAL)"
) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) (GIT-FETCH PROJECT) (SETQ BRANCH1 (SELECTQ (U-CASE BRANCH1)
((NIL T) (GIT-MY-CURRENT-BRANCH PROJECT)) ((LOCAL REMOTE ORIGIN) (GIT-PICK-BRANCH (GIT-BRANCHES
BRANCH1 PROJECT T))) (OR (GIT-LONG-NAME BRANCH1 NIL PROJECT) BRANCH1))) (SETQ BRANCH2 (SELECTQ (U-CASE
BRANCH2) ((NIL T) (GIT-MAINBRANCH PROJECT LOCAL)) ((LOCAL REMOTE ORIGIN) (GIT-PICK-BRANCH (
GIT-BRANCHES BRANCH2 PROJECT T))) (OR (GIT-LONG-NAME BRANCH2 NIL PROJECT) BRANCH2))) (
GIT-BRANCHES-COMPARE-DIRECTORIES BRANCH1 (OR BRANCH2 (GIT-MAINBRANCH PROJECT LOCAL)) LOCAL PROJECT))
(DEFCOMMAND prc (REMOTEBRANCH DRAFTS PROJECT) (* ;;
"Compares REMOTEBRANCH against the main orign branch, for pull-request assessment") (PRC-COMMAND
REMOTEBRANCH DRAFTS PROJECT))
(DEFCOMMAND cob (BRANCH NEXTTITLESTRING PROJECT) (* ;;
"Switches to BRANCH. T means my current branch, NEW/NEXT means my next branch (under wherever we are now), and NEXTTITLESTRING if given will be attached to the branch-name. Default is to bring up a menu of locally available branches."
) (CL:UNLESS (STRINGP NEXTTITLESTRING) (SETQ PROJECT NEXTTITLESTRING)) (CL:UNLESS PROJECT (CL:WHEN (
GIT-GET-PROJECT BRANCH NIL T) (SETQ PROJECT BRANCH) (SETQ BRANCH NIL))) (SETQ PROJECT (GIT-GET-PROJECT
PROJECT)) (GIT-FETCH PROJECT) (SELECTQ (U-CASE BRANCH) (T (GIT-CHECKOUT (GIT-MY-CURRENT-BRANCH
PROJECT) PROJECT)) ((NEW NEXT) (GIT-MAKE-BRANCH NIL NEXTTITLESTRING PROJECT)) (CL:WHEN (SETQ BRANCH (
IF BRANCH THEN (GIT-LONG-NAME BRANCH NIL PROJECT) ELSE (GIT-PICK-BRANCH (GIT-BRANCHES (QUOTE LOCAL)
PROJECT T) (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT (QUOTE PROJECTNAME)) T) " branches")))) (
GIT-CHECKOUT BRANCH PROJECT))))
(DEFCOMMAND b? (PROJECT) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) (GIT-FETCH PROJECT) (CONCAT (L-CASE
(GIT-GET-PROJECT PROJECT (QUOTE PROJECTNAME)) T) " " (GIT-WHICH-BRANCH PROJECT)))
(DEFCOMMAND cdg (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) (SETQ SUBDIR PROJECT) (
SETQ PROJECT GIT-DEFAULT-PROJECT)) (CL:WHEN (AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) (CHARCODE (> /))))
(SETQ SUBDIR (CONCAT SUBDIR "/"))) (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT (QUOTE GITHOST))
(OR SUBDIR ""))) T))
(DEFCOMMAND cdw (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) (SETQ SUBDIR PROJECT) (
SETQ PROJECT GIT-DEFAULT-PROJECT)) (CL:WHEN (AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) (CHARCODE (> /))))
(SETQ SUBDIR (CONCAT SUBDIR "/"))) (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT (QUOTE WHOST)) (
OR SUBDIR ""))) T))
(RPAQ? FROMGITN 0)
(PUTPROPS GITFNS FILETYPE :TCOMPL)
NIL