Interlisp.medley/lispusers/GITFNS.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

(FILECREATED "16-Mar-2026 12:05:56" ("compiled on " {WMEDLEY}<lispusers>GITFNS.;578) 
"12-Mar-2026 00:11:01" recompiled exprs%: GIT-BRANCH-WHENSELECTEDFN in "FULL 12-Mar-2026 ..." dated 
"12-Mar-2026 00:11:10")
(FILECREATED "16-Mar-2026 12:05:55" {WMEDLEY}<lispusers>GITFNS.;578 134065 :EDIT-BY rmk :CHANGES-TO (
FNS GIT-BRANCH-WHENSELECTEDFN PRC-COMMAND) :PREVIOUS-DATE " 2-Mar-2026 14:00:13" 
{WMEDLEY}<lispusers>GITFNS.;576)
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µA‘ho@
(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ð´%hcR°d

gHd£d‘h
µæ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	Xµ‚±œCAKµ‚±ÊLHo

ggbBið¦Bµ‚±ÅgggAkoAmþhddWi
oAddkhdiW
µmþ
µ@	o°iggi	g		OgO¿$
¸±ÿ1¥K_¿h†K
_¿K»O	¾Mµ
Nh]¼±ÿN&½±ÿ	i
Zd—d	°&B´#oBµ‚±…oo@	bg@o@A
oB´"oo@
B
oCDd£d‘hAhdY@Wµ@hWc
I
@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) Æ@d
gð³	µPQµB‘hŠ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ð–¿dB
dgð˜¿@B
gð–@B
Adgð™¿@B
gð™@B
Adgð›¿@B
gð›@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) x
A	bdmÿ
o
­Ao
b¿o@o
HAkhddR
Y´,AkIo@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¡hHkIXkA²Ü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
A²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) ,Ahii
@	
µB‘ho@
(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) 	0Bµ@hi²@b¿hb¿°	b°Ahi—Ab¿hb¿B¤Wb¿@	dgð§dgð›¿hb¿g°dgð§dgð›¿hb¿gb¿B	AgðhðB
XdQKµ‚±–LXd¢±
cdd¢±
L¿ABHH	oBg
BhdiYdogjmþI	
Ùh

BWZ	—J	¿I	JµBhWc
II
_¿oO

²7@¢±”@oO
oO
oO

hdddW
°bO³i_¿oi
¿i	¿lhi¿O
i
¿oi
¿O
i
¿oi
¿i	¿hšO¾Mµ
Nh]¼K[±þ©N&½°÷

	B
o@µoo(538 CONCAT 514 GIT-PR-COMPARE 508 GITORIGIN 474 TERPRI 467 PRIN1 455 PRIN1 439 PRIN1 427 PRIN1 416 TAB 406 TERPRI 399 PRIN1 378 STRPOS 366 CONCAT 325 CL::SIMPLE-STRING-EQUAL 286 OPENW 279 CLOSEW 271 OPENWP 260 MOVEW 255 RELCREATEPOSITION 241 WINDOWREGION 220 ADDMENU 212 GIT-BRANCH-MENU 206 CONCAT 201 GIT-GET-PROJECT 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)
(232 TTY 196 PROJECTNAME 133 NODRAFTS 118 NODRAFTS 106 NODRAFTS 98 NODRAFT 90 DRAFTS 78 DRAFTS 70 DRAFT)
( 533 " pull requests" 528 "" 520 "No open " 461 ")" 433 "  (" 393 "Ignored because not owned by Interlisp: "
 356 " " 346 " " 338 "#" 311 "Interlisp" 227 (TTY 0) 190 " pull requests in ")
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£d‘h
@
œ@
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@	°0d

g@
gKi
¸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@	°/d

g@
gKi
¸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	@bIµJd¢½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	@bIµJd¢½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) .gB
g@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) -gB
g@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	kØ
@(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) 3
k
@H
dl>ð©dl<ð¤dl/ð“¿HYŽ¬I˜@kI@HkÔ¸°Ô(40 SUBSTRING 10 NTHCHARCODE)
NIL
()
STRIPWHERE :D8
(P 0 POS I 1 ORIGINTOO I 0 BRANCH) E
o@

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) <ggggA
ghg@
	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) #gA
ghg@
	(32 UNSLASHIT 27 PACKFILENAME)
(20 BODY 14 VERSION 4 HOST)
()
GIT-REPO-FILENAME :D8
(I 1 PROJECT I 0 GFILE) gA
g
@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
@QIµJ£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@ohdA(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	bo@µA	ohdA(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) @iAA	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
Di1Hd²N
ggg
ig		LgM¿$
H
	¿H
X²5H		[
¹K
ZªA@DCZœHgJ¿HB
C‘hoA
(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) S
@³g	žPÙoñ´6oi
¿Ai
i
¿i	ohAc¿(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) I
oA²oAo„o@B
hiB

Hµ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µB–I	¿@A
I
\	Zjð’±ËJ™J	’±½oLkhk
²/N²MgNh
½h¾gLl
hMI¹h°}L	l ð²3Ll
LO
l ð³OµimÿµiN¾°KOkÔ_¿°×LkoLkkÙ_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¿I

i
¿oi
¿I

i
¿i	¿I±ž£K¼h„K
¼K»LJkhdd`
²¤Lµ¥i°¢d

l
hi¿M
i
¿oi
¿Md
gð²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¢±ÑoL
k¢±¥L
oL
khdi
oL

kÙ3 Y²vlhi¿oi
¿oi
¿I´ hgoIkÔYogð²oI
hdB¿±ÿo@Ah
¿°L°d

Ni
¿i	µêKQOµOi

_¿oOkl
’±
åO	dlAð²6¿Ol
l	ð²gOl
_h±
£oO
±
”dlDð²6¿Ol
l	ð²gOl
_h±
ioO
±
ZdlMð²8¿oO
X²gOHkØ
_h±
-oO
±
dlCð²]¿Ol
l	ð²FoOlX²5gOHkØ
_Oll3 µoO
h±Åo±¶dlRð²h¿Ol
l	ð²RoOlX²AgOlHkÙ_OHkØ
Oll3 µoO
h°Wo°Ilwð²?oOk¬oO
¿hdOo
gð¥<00>h‹oO
_¿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
hð(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	1B–H	¸@@°+d
_¿B™O	_<0E>OdHC¼MµLh^<5E>L&½µÖNaO_µB¢±
J0O±é
_¿OOµO°Û
_ ¿OO ô²O
Oµ
O
hO_
YO 
I°^O
O 
_¿O 
O
_¿O² O³<O 
Oµ
O 
hO_
ZO
J°O²O
Oµ
O
hO_
[O 
K¿O_±ÿkd

0O"°$d

O*	_$¿O&µ	O$h_(‚O$&_&¿µÝO(¼MµLh^<5E>L&½µ½N_¿0O°Dd

0O,°$d

O4	_.¿O0µ	O.h_2‚O.&_0¿µÝO2¼MµLh^<5E>L&½µ½N_¿O°d

O6dg
µéO°0d

O8HO8
²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) T
o	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) PA§b¿o@khdi
µk
A@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
kØ
Xd@o@
µjkØ

³-o@ohiA¿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¿@oAb¿Bi
hgo@oMo
gð¢±<00>o@ohdB^d
o@o
²-N
oMl ð’l-€L»JµKhZ¹HkÔ¸±ÿNK&º°öN
o@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°-d

KloK
µjkÙ¸IµHhZ<>H&¹µÔJ@	o
´D0oihA°-d

KloK
µjkÙ¸Iµ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) n
o@khi
–g°/o@khi
´@o@kkØ
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£d‘hb´nB<6E>@o
b¿`Aµ@	o

HdI¿d@¿dR¿dg¿dg ¿dg¿jdnÿdh
HdI
¿(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) j
@	

Bgð².oH
g
	oH
	g@
gH
hhgg(103 ADD.PROCESS 61 ShellOpen 56 CONCAT 44 L-CASE 39 GIT-GET-PROJECT 5 LAST)
(98 prc 93 NAME 75 QUOTE 67 GIT-PR-COMPARE 34 PROJECTNAME 15 MIDDLE)
( 49 "/pull/" 23 "https://github.com/Interlisp/")
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
	
H
dgð”¿H°gð‘HŠoH
aJµK
^g
gð_¿@¥O’±êNg
Ng
¹Ng
IO–g°4Ng
	dgð—¿g°gð•o„gANg
No
h_¿oO

²Koi
¿Ng
i
¿oi
¿O
i
¿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´J0B°d

K
	¸IµHhZ<>H&¹µãJhiA
BL
L
ƒMµOi

_
_¿oO
oON

_ŸOoO°!OO

_žOoO<00>O_¿O
_¿@dgð›¿OgðhðŽgð™Ogð³SoOoOO	oOoO
oO

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) 7A§b¿@hAAHµI
ZA
µ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) u
Q	jð¦Q	€hc¿Rg
Pcµ'Rg
R	R
µjhcPc¿S
kØ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§b¿g@AQHµ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XoH
khi
ª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YoI
khi
š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
kÙ»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) A
o@•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@hDbAhDb@ADAH´‚±
™oWkÔcoZo@hi²oAhi˜Al
€A\JoD
oLoo

B­Jo
b¿C­Jo
b¿H±
d

M
dgð²0¿M
½@MBM
iD
’±ÔAMCM
iD
±¿dgð²0¿M
½AMCM
iD
’±<00>@MBM
iD
±ˆdgð²,¿M
½@MBM
iD
¿AMCM
iD
°Tdgð¨dgð²7¿M!@N
BN

iD
_¿AN
CN

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³%U
Hµh°
Y
T
V•Iµði°íHX°äh
J›gJ
¿Tµ>SµJ´~@J
J
gð²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
¿C
i
i
¿oi
¿i	lhi¿Vi
¿Hi
¿Wi
¿oi
¿Vi
¿Ii
¿Wi
¿i	oi
@AhdC
[d
]K¢±ìi	K
K
ooCg
hdddK
g
K
g
h
Zdg
i	J¢±ˆJcdC
i
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
•
­E
o
¿@d•d¢
b³E
µgb€@	bddgðž¿E	b¿o
oE
i

jEi
@d
oi
¿Hi
¿lhi¿oi
¿Ii
¿oi
¿Ki
¿i	¿o	¿LµMd¢±
F¿W<¢±
>M	½0
@±
"¥L_¿h†L
_¿L¼i	¿OiEOiEAµooEg
QOµOhddC
	_±„
_$¿OO$g
khidW>
_&›O$O&kØ
<00>O$_"¿O µO"h_ _¿O_°§O"&_ ¿°ód

O(d
²
O(

i
¿O(
ŸO(
d
i
¿µËO_¿NµOh^]±þòO&^±þëd

O*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
A³@iB¿B	iB¿B	QA³@iB¿HiB¿i	¿oi
¿Bg
i
¿B
i
¿oi
¿@i
¿oi
¿Hi
¿i	@HB1	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

´‚±´`jð´‚±§H
^H
_¿`lålð¢±
”N¢±ÓO¢±ËN
]O
ð´‚±ËMdgð²"¿oohoohh± gð“h±–Mgð²o	oh°xN
		o
²%oMd²dið¬3µgMhoh°:oMoMd´&dið³ 3µgMh<1A>N£O´oohh¼K¦L´‚±
•`Ag
oH
_¿dO¿KL
_¿dO¿dJ¿dJ$¿dg ¿dg¿jdnÿdh_¿dO
¿	dg𢱬¿N
A
´‚±
@giA	@A
¿`låkð¢±ÿGAg
’±ÿ8@g

dgð²¿ooo°#gð´ooohh[±þÜdgð²¿O
A
´`@gihdgð²¿i	N
O

dgð²¿i	N
O
ggð´Nµ
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) }
@T


X²(@HkØ
i
ºBg'YœIoJºT


X²AHkØ
i
»Bg'YµJµ@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
µA
gð²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@
	hio(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@
kð­o@
b¿o@
X²(@kHkÙ@Ho	Ø

b¿°Î@CBId²N
ggg
ig		KgL¿$
I
	¿I
Y´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) S
oPjkµ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
i
g		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