Skip to content

Commit 39a7512

Browse files
rmkaplanrmkaplan
authored
Rmk66: 2 little glitches, plus GITFNS prc dealing better with forking (#887)
* VTCHAT: Changed name of CHARSET field to avoid ambiguity Even though field was never referenced * INSPECT: WHERE argument was passed incorrectly to datatype subfunction * GITFNS: Better recognition of funny cases (colon) etc Reconciled with Larry's previous commit * COMPAREDIRECTORIES: Bug fix in separate-panel display
1 parent 431d80f commit 39a7512

File tree

8 files changed

+145
-144
lines changed

8 files changed

+145
-144
lines changed

‎library/VTCHAT‎

Lines changed: 12 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "20-Feb-2022 11:10:55" {DSK}<home>larry>medley>library>VTCHAT.;2 21881
3+
(FILECREATED " 3-Aug-2022 11:30:53" 
4+
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;3 21940
45

5-
:CHANGES-TO (VARS VTCHATCOMS)
6+
:CHANGES-TO (RECORDS VT100SAVE)
67

7-
:PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}<home>larry>medley>library>VTCHAT.;1)
8+
:PREVIOUS-DATE "20-Feb-2022 11:10:55"
9+
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;2)
810

911

1012
(* ; "
@@ -151,7 +153,7 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
151153

152154
(DECLARE%: EVAL@COMPILE
153155

154-
(RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET))
156+
(RECORD VT100SAVE (CURSORPOS CHARATTR VTSCHARSET))
155157

156158
(DATATYPE VT100.STATE ((DINGED FLAG)
157159
(EATLF FLAG)
@@ -261,10 +263,10 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
261263
)
262264
(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022))
263265
(DECLARE%: DONTCOPY
264-
(FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) (
265-
VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270)
266-
(VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500
267-
) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) (
268-
VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) (
269-
VTCHAT.STATUS 15886 . 17251)))))
266+
(FILEMAP (NIL (1731 9797 (VTCHAT.STATE 1741 . 2251) (VTCHAT.HANDLECHARACTER 2253 . 4827) (
267+
VTCHAT.SEQUENCE 4829 . 6372) (VTCHAT.DOCOMMAND 6374 . 9795)) (9798 17309 (VTCHAT.ADDRESS 9808 . 10326)
268+
(VTCHAT.REVERSE.INDEX 10328 . 10897) (VTCHAT.ATTRIBUTES 10899 . 11285) (VTCHAT.DECLFONT 11287 . 11556
269+
) (VTCHAT.CLEARMODES 11558 . 12061) (VTCHAT.SAVE 12063 . 12802) (VTCHAT.RESTORE 12804 . 13511) (
270+
VTCHAT.SETMODE 13513 . 14585) (VTCHAT.SETMARGINS 14587 . 15178) (VTCHAT.REPORT 15180 . 15940) (
271+
VTCHAT.STATUS 15942 . 17307)))))
270272
STOP

‎library/VTCHAT.LCOM‎

80 Bytes
Binary file not shown.

‎lispusers/COMPAREDIRECTORIES‎

Lines changed: 29 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "25-Jul-2022 15:31:50" 
4-
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;248 128327
3+
(FILECREATED "11-Aug-2022 21:10:25" 
4+
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249 128449
55

66
:CHANGES-TO (FNS CDBROWSER.STRINGS)
77

8-
:PREVIOUS-DATE "20-Jul-2022 21:20:33"
9-
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;247)
8+
:PREVIOUS-DATE "25-Jul-2022 15:31:50"
9+
{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>COMPAREDIRECTORIES.;1)
1010

1111

1212
(* ; "
@@ -1707,7 +1707,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
17071707
BROWSER)])
17081708

17091709
(CDBROWSER.STRINGS
1710-
[LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 25-Jul-2022 15:31 by rmk")
1710+
[LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 11-Aug-2022 20:23 by rmk")
1711+
(* ; "Edited 25-Jul-2022 15:31 by rmk")
17111712
(* ; "Edited 20-Jul-2022 21:14 by rmk")
17121713
(* ; "Edited 22-Feb-2022 18:30 by rmk")
17131714
(* ; "Edited 14-Dec-2021 21:03 by rmk")
@@ -1758,8 +1759,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
17581759
(* ;; "Stick a blank object between")
17591760

17601761
(SETQ PAIRS (NCONC (DREVERSE L2R)
1761-
`(("")
1762-
(""))
1762+
[APPEND '(("")
1763+
(""]
17631764
(DREVERSE R2L)))))
17641765
(CL:WHEN COLHEADERS
17651766
(PUSH PAIRS (LIST COLHEADERS)))
@@ -2153,25 +2154,25 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
21532154
(PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998
21542155
2018 2020 2021))
21552156
(DECLARE%: DONTCOPY
2156-
(FILEMAP (NIL (2634 22191 (COMPAREDIRECTORIES 2644 . 7477) (COMPAREDIRECTORIES.INFOS 7479 . 10353) (
2157-
COMPAREDIRECTORIES.CANDIDATES 10355 . 13740) (CDENTRIES.SELECT 13742 . 18517) (
2158-
COMPAREDIRECTORIES.INFOS.TYPE 18519 . 19425) (MATCHNAME 19427 . 20107) (CD.INSURECDVALUE 20109 . 21723
2159-
) (CD.UPDATEWIDTHS 21725 . 22189)) (22192 31861 (CDFILES 22202 . 27955) (CDFILES.MATCH 27957 . 29582)
2160-
(CDFILES.PATS 29584 . 31859)) (31862 49683 (CDPRINT 31872 . 34389) (CDPRINT.HEADER 34391 . 35288) (
2161-
CDPRINT.LINE 35290 . 38522) (CDPRINT.MAXWIDTHS 38524 . 42639) (CDPRINT.COLHEADERS 42641 . 43926) (
2162-
CDPRINT.COLUMNS 43928 . 49048) (CDTEDIT 49050 . 49681)) (49684 58053 (CDMAP 49694 . 51126) (CDENTRY
2163-
51128 . 51437) (CDSUBSET 51439 . 52878) (CDMERGE 52880 . 56734) (CDMERGE.COMMON 56736 . 58051)) (58054
2164-
65592 (BINCOMP 58064 . 62353) (EOLTYPE 62355 . 64917) (EOLTYPE.SHOW 64919 . 65590)) (66120 78647 (
2165-
FIND-UNCOMPILED-FILES 66130 . 69773) (FIND-UNSOURCED-FILES 69775 . 72159) (FIND-SOURCE-FILES 72161 .
2166-
73899) (FIND-COMPILED-FILES 73901 . 75778) (FIND-UNLOADED-FILES 75780 . 76633) (FIND-LOADED-FILES
2167-
76635 . 77063) (FIND-MULTICOMPILED-FILES 77065 . 78645)) (78648 87079 (CREATED-AS 78658 . 83455) (
2168-
SOURCE-FOR-COMPILED-P 83457 . 86384) (COMPILE-SOURCE-DATE-DIFF 86386 . 87077)) (87080 97386 (
2169-
FIX-DIRECTORY-DATES 87090 . 90083) (FIX-EQUIV-DATES 90085 . 91610) (COPY-COMPARED-FILES 91612 . 93433)
2170-
(COPY-MISSING-FILES 93435 . 95592) (COMPILED-ON-SAME-SOURCE 95594 . 97384)) (97580 105189 (CDBROWSER
2171-
97590 . 101517) (CDBROWSER.STRINGS 101519 . 105187)) (105351 107087 (CD.TABLEITEM 105361 . 105581) (
2172-
CD.TABLEITEM.PRINTFN 105583 . 105782) (CD.TABLEITEM.COPYFN 105784 . 106842) (
2173-
CDTABLEBROWSER.HEADING.REPAINTFN 106844 . 107085)) (107088 127743 (CDTABLEBROWSER.WHENSELECTEDFN
2174-
107098 . 107566) (CD.COMMANDSELECTEDFN 107568 . 112669) (CD-MENUFN 112671 . 116982) (CD-COMPARE-FILES
2175-
116984 . 120336) (CDBROWSER-COPY 120338 . 124007) (CDBROWSER-DELETE-FILE 124009 . 127222) (CD-SWAPDIRS
2176-
127224 . 127741)))))
2157+
(FILEMAP (NIL (2632 22189 (COMPAREDIRECTORIES 2642 . 7475) (COMPAREDIRECTORIES.INFOS 7477 . 10351) (
2158+
COMPAREDIRECTORIES.CANDIDATES 10353 . 13738) (CDENTRIES.SELECT 13740 . 18515) (
2159+
COMPAREDIRECTORIES.INFOS.TYPE 18517 . 19423) (MATCHNAME 19425 . 20105) (CD.INSURECDVALUE 20107 . 21721
2160+
) (CD.UPDATEWIDTHS 21723 . 22187)) (22190 31859 (CDFILES 22200 . 27953) (CDFILES.MATCH 27955 . 29580)
2161+
(CDFILES.PATS 29582 . 31857)) (31860 49681 (CDPRINT 31870 . 34387) (CDPRINT.HEADER 34389 . 35286) (
2162+
CDPRINT.LINE 35288 . 38520) (CDPRINT.MAXWIDTHS 38522 . 42637) (CDPRINT.COLHEADERS 42639 . 43924) (
2163+
CDPRINT.COLUMNS 43926 . 49046) (CDTEDIT 49048 . 49679)) (49682 58051 (CDMAP 49692 . 51124) (CDENTRY
2164+
51126 . 51435) (CDSUBSET 51437 . 52876) (CDMERGE 52878 . 56732) (CDMERGE.COMMON 56734 . 58049)) (58052
2165+
65590 (BINCOMP 58062 . 62351) (EOLTYPE 62353 . 64915) (EOLTYPE.SHOW 64917 . 65588)) (66118 78645 (
2166+
FIND-UNCOMPILED-FILES 66128 . 69771) (FIND-UNSOURCED-FILES 69773 . 72157) (FIND-SOURCE-FILES 72159 .
2167+
73897) (FIND-COMPILED-FILES 73899 . 75776) (FIND-UNLOADED-FILES 75778 . 76631) (FIND-LOADED-FILES
2168+
76633 . 77061) (FIND-MULTICOMPILED-FILES 77063 . 78643)) (78646 87077 (CREATED-AS 78656 . 83453) (
2169+
SOURCE-FOR-COMPILED-P 83455 . 86382) (COMPILE-SOURCE-DATE-DIFF 86384 . 87075)) (87078 97384 (
2170+
FIX-DIRECTORY-DATES 87088 . 90081) (FIX-EQUIV-DATES 90083 . 91608) (COPY-COMPARED-FILES 91610 . 93431)
2171+
(COPY-MISSING-FILES 93433 . 95590) (COMPILED-ON-SAME-SOURCE 95592 . 97382)) (97578 105311 (CDBROWSER
2172+
97588 . 101515) (CDBROWSER.STRINGS 101517 . 105309)) (105473 107209 (CD.TABLEITEM 105483 . 105703) (
2173+
CD.TABLEITEM.PRINTFN 105705 . 105904) (CD.TABLEITEM.COPYFN 105906 . 106964) (
2174+
CDTABLEBROWSER.HEADING.REPAINTFN 106966 . 107207)) (107210 127865 (CDTABLEBROWSER.WHENSELECTEDFN
2175+
107220 . 107688) (CD.COMMANDSELECTEDFN 107690 . 112791) (CD-MENUFN 112793 . 117104) (CD-COMPARE-FILES
2176+
117106 . 120458) (CDBROWSER-COPY 120460 . 124129) (CDBROWSER-DELETE-FILE 124131 . 127344) (CD-SWAPDIRS
2177+
127346 . 127863)))))
21772178
STOP

‎lispusers/COMPAREDIRECTORIES.LCOM‎

-12 Bytes
Binary file not shown.

‎lispusers/GITFNS‎

Lines changed: 34 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,13 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED " 9-Aug-2022 09:35:32" {DSK}<home>larry>medley>lispusers>GITFNS.;5 115355
3+
(FILECREATED "11-Aug-2022 17:54:59" 
4+
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>GITFNS.;444 115395
45

5-
:CHANGES-TO (VARS GITFNSCOMS)
6-
(FNS GIT-MAKE-PROJECT GIT-INIT GIT-INIT-MEDLEY)
6+
:CHANGES-TO (FNS GIT-MAKE-PROJECT GIT-INIT)
7+
(VARS GITFNSCOMS)
78

8-
:PREVIOUS-DATE "25-Jul-2022 15:14:26" {DSK}<home>larry>medley>lispusers>GITFNS.;1)
9+
:PREVIOUS-DATE "25-Jul-2022 15:14:26"
10+
{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>GITFNS.;1)
911

1012

1113
(PRETTYCOMPRINT GITFNSCOMS)
@@ -161,7 +163,7 @@
161163

162164
(GIT-MAKE-PROJECT
163165
[LAMBDA (PROJECTNAME PROJECTPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)
164-
(* ; "Edited 8-Aug-2022 22:03 by lmm")
166+
(* ; "Edited 11-Aug-2022 17:54 by rmk")
165167
(* ; "Edited 13-Jul-2022 13:47 by rmk")
166168
(* ; "Edited 6-Jul-2022 19:34 by rmk")
167169
(* ; "Edited 17-May-2022 17:08 by rmk")
@@ -2158,31 +2160,31 @@
21582160

21592161
(PUTPROPS GITFNS FILETYPE :TCOMPL)
21602162
(DECLARE%: DONTCOPY
2161-
(FILEMAP (NIL (3965 19213 (GIT-CLONEP 3975 . 5238) (GIT-INIT 5240 . 5667) (GIT-MAKE-PROJECT 5669 .
2162-
14054) (GIT-GET-PROJECT 14056 . 15981) (GIT-PROJECT-PATH 15983 . 17027) (FIND-ANCESTOR-DIRECTORY 17029
2163-
. 17378) (GIT-FIND-CLONE 17380 . 18461) (GIT-MAINBRANCH 18463 . 18858) (GIT-MAINBRANCH? 18860 . 19211
2164-
)) (25594 28382 (ALLSUBDIRS 25604 . 26890) (MEDLEYSUBDIRS 26892 . 27585) (GITSUBDIRS 27587 . 28380)) (
2165-
28383 33173 (TOGIT 28393 . 29799) (FROMGIT 29801 . 30782) (GIT-DELETE-FILE 30784 . 31630) (
2166-
MYMEDLEY-DELETE-FILES 31632 . 33171)) (33174 35706 (MYMEDLEYSUBDIR 33184 . 33640) (GITSUBDIR 33642 .
2167-
34085) (STRIPDIR 34087 . 34458) (STRIPHOST 34460 . 34700) (STRIPNAME 34702 . 35455) (STRIPWHERE 35457
2168-
. 35704)) (35707 37609 (GFILE4MFILE 35717 . 36080) (MFILE4GFILE 36082 . 36651) (GIT-REPO-FILENAME
2169-
36653 . 37607)) (37658 47480 (GIT-COMMIT 37668 . 38494) (GIT-PUSH 38496 . 39140) (GIT-PULL 39142 .
2170-
39754) (GIT-APPROVAL 39756 . 40105) (GIT-GET-FILE 40107 . 42072) (GIT-FILE-EXISTS? 42074 . 42348) (
2171-
GIT-REMOTE-UPDATE 42350 . 43074) (GIT-REMOTE-ADD 43076 . 43383) (GIT-FILE-DATE 43385 . 44316) (
2172-
GIT-FILE-HISTORY 44318 . 46252) (GIT-PRINT-FILE-HISTORY 46254 . 47304) (GIT-FETCH 47306 . 47478)) (
2173-
47510 58242 (GIT-BRANCH-DIFF 47520 . 54304) (GIT-COMMIT-DIFFS 54306 . 54859) (GIT-BRANCH-RELATIONS
2174-
54861 . 58240)) (58287 69089 (GIT-BRANCH-NUM 58297 . 58870) (GIT-CHECKOUT 58872 . 59931) (
2175-
GIT-WHICH-BRANCH 59933 . 60231) (GIT-MAKE-BRANCH 60233 . 62446) (GIT-BRANCHES 62448 . 64421) (
2176-
GIT-BRANCH-EXISTS? 64423 . 65127) (GIT-PICK-BRANCH 65129 . 65457) (GIT-PRC-MENU 65459 . 67207) (
2177-
GIT-PULL-REQUESTS 67209 . 68475) (GIT-SHORT-BRANCH-NAME 68477 . 68768) (GIT-LONG-NAME 68770 . 69087))
2178-
(69119 72454 (GIT-MY-CURRENT-BRANCH 69129 . 69499) (GIT-MY-BRANCHP 69501 . 70006) (GIT-MY-NEXT-BRANCH
2179-
70008 . 70502) (GIT-MY-BRANCHES 70504 . 72452)) (72500 76452 (GIT-ADD-WORKTREE 72510 . 73994) (
2180-
GIT-REMOVE-WORKTREE 73996 . 74926) (GIT-LIST-WORKTREES 74928 . 75732) (WORKTREEDIR 75734 . 76450)) (
2181-
76500 106701 (GIT-GET-DIFFERENT-FILES 76510 . 82335) (GIT-BRANCHES-COMPARE-DIRECTORIES 82337 . 88318)
2182-
(GIT-WORKING-COMPARE-DIRECTORIES 88320 . 93146) (GIT-COMPARE-WORKTREE 93148 . 97126) (GITCDOBJBUTTONFN
2183-
97128 . 101618) (GIT-CD-LABELFN 101620 . 102702) (GIT-CD-MENUFN 102704 . 104911) (
2184-
GIT-WORKING-COMPARE-FILES 104913 . 105533) (GIT-BRANCHES-COMPARE-FILES 105535 . 106699)) (106771
2185-
115288 (CDGITDIR 106781 . 107341) (GIT-COMMAND 107343 . 108901) (GITORIGIN 108903 . 109600) (
2186-
GIT-INITIALS 109602 . 109906) (GIT-COMMAND-TO-FILE 109908 . 113397) (PROCESS-COMMAND 113399 . 114012)
2187-
(GIT-RESULT-TO-LINES 114014 . 114621) (STRIPLOCAL 114623 . 115286)))))
2163+
(FILEMAP (NIL (4005 19253 (GIT-CLONEP 4015 . 5278) (GIT-INIT 5280 . 5707) (GIT-MAKE-PROJECT 5709 .
2164+
14094) (GIT-GET-PROJECT 14096 . 16021) (GIT-PROJECT-PATH 16023 . 17067) (FIND-ANCESTOR-DIRECTORY 17069
2165+
. 17418) (GIT-FIND-CLONE 17420 . 18501) (GIT-MAINBRANCH 18503 . 18898) (GIT-MAINBRANCH? 18900 . 19251
2166+
)) (25634 28422 (ALLSUBDIRS 25644 . 26930) (MEDLEYSUBDIRS 26932 . 27625) (GITSUBDIRS 27627 . 28420)) (
2167+
28423 33213 (TOGIT 28433 . 29839) (FROMGIT 29841 . 30822) (GIT-DELETE-FILE 30824 . 31670) (
2168+
MYMEDLEY-DELETE-FILES 31672 . 33211)) (33214 35746 (MYMEDLEYSUBDIR 33224 . 33680) (GITSUBDIR 33682 .
2169+
34125) (STRIPDIR 34127 . 34498) (STRIPHOST 34500 . 34740) (STRIPNAME 34742 . 35495) (STRIPWHERE 35497
2170+
. 35744)) (35747 37649 (GFILE4MFILE 35757 . 36120) (MFILE4GFILE 36122 . 36691) (GIT-REPO-FILENAME
2171+
36693 . 37647)) (37698 47520 (GIT-COMMIT 37708 . 38534) (GIT-PUSH 38536 . 39180) (GIT-PULL 39182 .
2172+
39794) (GIT-APPROVAL 39796 . 40145) (GIT-GET-FILE 40147 . 42112) (GIT-FILE-EXISTS? 42114 . 42388) (
2173+
GIT-REMOTE-UPDATE 42390 . 43114) (GIT-REMOTE-ADD 43116 . 43423) (GIT-FILE-DATE 43425 . 44356) (
2174+
GIT-FILE-HISTORY 44358 . 46292) (GIT-PRINT-FILE-HISTORY 46294 . 47344) (GIT-FETCH 47346 . 47518)) (
2175+
47550 58282 (GIT-BRANCH-DIFF 47560 . 54344) (GIT-COMMIT-DIFFS 54346 . 54899) (GIT-BRANCH-RELATIONS
2176+
54901 . 58280)) (58327 69129 (GIT-BRANCH-NUM 58337 . 58910) (GIT-CHECKOUT 58912 . 59971) (
2177+
GIT-WHICH-BRANCH 59973 . 60271) (GIT-MAKE-BRANCH 60273 . 62486) (GIT-BRANCHES 62488 . 64461) (
2178+
GIT-BRANCH-EXISTS? 64463 . 65167) (GIT-PICK-BRANCH 65169 . 65497) (GIT-PRC-MENU 65499 . 67247) (
2179+
GIT-PULL-REQUESTS 67249 . 68515) (GIT-SHORT-BRANCH-NAME 68517 . 68808) (GIT-LONG-NAME 68810 . 69127))
2180+
(69159 72494 (GIT-MY-CURRENT-BRANCH 69169 . 69539) (GIT-MY-BRANCHP 69541 . 70046) (GIT-MY-NEXT-BRANCH
2181+
70048 . 70542) (GIT-MY-BRANCHES 70544 . 72492)) (72540 76492 (GIT-ADD-WORKTREE 72550 . 74034) (
2182+
GIT-REMOVE-WORKTREE 74036 . 74966) (GIT-LIST-WORKTREES 74968 . 75772) (WORKTREEDIR 75774 . 76490)) (
2183+
76540 106741 (GIT-GET-DIFFERENT-FILES 76550 . 82375) (GIT-BRANCHES-COMPARE-DIRECTORIES 82377 . 88358)
2184+
(GIT-WORKING-COMPARE-DIRECTORIES 88360 . 93186) (GIT-COMPARE-WORKTREE 93188 . 97166) (GITCDOBJBUTTONFN
2185+
97168 . 101658) (GIT-CD-LABELFN 101660 . 102742) (GIT-CD-MENUFN 102744 . 104951) (
2186+
GIT-WORKING-COMPARE-FILES 104953 . 105573) (GIT-BRANCHES-COMPARE-FILES 105575 . 106739)) (106811
2187+
115328 (CDGITDIR 106821 . 107381) (GIT-COMMAND 107383 . 108941) (GITORIGIN 108943 . 109640) (
2188+
GIT-INITIALS 109642 . 109946) (GIT-COMMAND-TO-FILE 109948 . 113437) (PROCESS-COMMAND 113439 . 114052)
2189+
(GIT-RESULT-TO-LINES 114054 . 114661) (STRIPLOCAL 114663 . 115326)))))
21882190
STOP

‎lispusers/GITFNS.LCOM‎

29 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)