Interlisp.medley/lispusers/COMPAREDIRECTORIES.LCOM

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

(FILECREATED "28-Apr-2026 23:41:24" ("compiled on " {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289) 
"28-Apr-2026 10:08:21" brecompiled exprs%: CDFILES.MATCH CDFILES.PATS in "FULL 28-Apr-2026 ..." dated 
"28-Apr-2026 10:08:31")
(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726 :EDIT-BY rmk 
:CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY) :PREVIOUS-DATE "28-Apr-2026 21:38:49" 
{MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
COMPAREDIRECTORIES :D8
(P 10 CDVALUE P 9 DEPTH2 P 8 DEPTH1 P 7 CDENTRIES P 6 INFOS2 P 5 INFOS1 P 4 DATE P 3 S I 9 SHORTDIRNAMES I 8 FIXDIRECTORYDATES I 7 ALLVERSIONS I 6 OUTPUTFILE I 5 USEDIRECTORYDATE I 4 EXCLUDEDFILES I 3 INCLUDEDFILES I 2 SELECT I 1 DIR2 I 0 DIR1 F 11 LASTCDVALUE) 9

Bµ
o±Óið—o±È@Bd’±µd¢±°h±«d
[gð©Kdgð˜¿g±‚gð©Kdgð—¿g°igð³Kgð©Kdgð—¿g°Hgð–g°:Kdgð—¿g°)gð–g°Kgð•gŠoK
¸IµHhZ<>H&¹µ‚±ÿTJba
@mÿ
gðŸi_¿@kmþb¿Amÿ
gðŸi_¿Akmþb¿@µi	µ@bAµi	µAbG²#oi
¿i	¿@	¿A	¿G
µ@G
µABLi
oi
@CDGOEgB

]ACDGOE
^@ALBhdddddhdddddhh_N£MµMN
B
g
_d	i
¿oi
¿i	OOO	OcF²¶dFhgB
(566 CDPRINT 561 MEMB 540 CD.UPDATEWIDTHS 528 TERPRI 521 PRIN1 509 PRIN1 503 LENGTH 495 SORT 485 CDENTRIES.SELECT 479 COMPAREDIRECTORIES.CANDIDATES 428 COMPAREDIRECTORIES.INFOS 413 COMPAREDIRECTORIES.INFOS 407 MEMB 388 PRIN1 377 CDPRINT.HEADER 354 FIX-DIRECTORY-DATES 347 FIX-DIRECTORY-DATES 340 TERPRI 333 PRIN1 313 DIRECTORYNAME 299 DIRECTORYNAME 287 SUBSTRING 267 NTHCHAR 256 SUBSTRING 236 NTHCHAR 225 DATE 196 ERROR)
(555 AUTHOR 490 CD.SORT 401 AUTHOR 272 * 241 * 184 ~= 177 ~= 169 *- 162 *- 155 -* 147 -* 138 AUTHOR 131 AUTHOR 124 = 116 = 107 SAMEDATE 98 SAME 91 < 83 < 74 BEFORE 66 > 58 > 49 AFTER)
( 515 " entries" 382 " ... " 327 "Fixing directory dates" 190 "UNRECOGNIZED SELECT PARAMETER" 18 (< > -* *- =)
 7 (< > -* *-))
COMPAREDIRECTORIES.INFOS :D8
(P 14 MN P 13 VAL P 12 I P 11 ITAIL P 8 STREAM P 7 LDATE P 6 TYPE P 5 FULLNAME P 1 STARTPOS I 6 INCLUDEAUTHOR I 5 USEDIRECTORYDATE I 4 DEPTH I 3 ALLVERSIONS I 2 EXCLUDEDFILES I 1 INCLUDEDFILES I 0 DIR) 
@	´8@ABCD
@	kØ‚	HµJi
AO_µ‚±³O	
]g
_		_
¾O
_¿MI
O	E¢O­Og
°OgO¿O		Og
F´Og
NO	hhO	¿¼Kµ
Lh[ºHX±ÿ@L&»°÷
_
_¿OO

ð²O_¿OO

O°ãOO_¿O±ÿ(209 CLOSEF? 192 EOLTYPE 184 GETFILEINFO 169 GETFILEINFO 157 GDATE 152 IDATE 144 SETFILEINFO 128 GETFILEINFO 111 FULLNAME 104 MATCHNAME 86 \MVLIST 81 COMPAREDIRECTORIES.INFOS.TYPE 74 OPENSTREAM 61 DREVERSE 40 SORT 24 NCHARS 18 CDFILES 5 DIRECTORYNAMEP)
(179 AUTHOR 164 LENGTH 137 CREATIONDATE 123 CREATIONDATE 69 INPUT)
()
COMPAREDIRECTORIES.CANDIDATES :D8
(P 8 I2 P 7 I1 P 6 I2TAIL P 5 I1TAIL P 0 PAIRS I 1 INFOS2 I 0 INFOS1) ù
@i
bAi
bP@A"M²gN²aM
_¿N
_¿Od
O
ð²
OOhH¸M½N¾°Ò
O

²O
OhhhH¸M]°³O
hhOhH¸N¾°<C2BE>MµN²/N°)d
Y
IhhhH¸µî°d
Z
hhJhH¸µîH1OµO
_
_¿O
°$d
¼O
°d
»OLhKhO_¿µëµÝO_°Ã(82 ALPHORDER 15 SORT 6 SORT)
NIL
()
CDENTRIES.SELECT :D8
(P 12 BINCOMP P 11 DATEREL P 10 IDATE2 P 9 IDATE1 P 8 INFO2 P 7 INFO1 P 6 MATCHNAME P 5 CDE P 1 COMPAREDATE I 1 SELECT I 0 CANDIDATES) 
—
@Ao
²HµJ
]
¾M
_¿M
_¿O²=O²9O
	_¿O
	_¿OOñ–g°OOñ•gŠg„g_¿O¢±éO¢±ÚI²LOdgð<>¿gI
°0gðœgI
°Ogð›gI
„¢±ÇO
O
iO
O

_ið²COdgðŸ¿O
gOO°gð²O
gOO

¿g_¿gA
´O´O
O
ðhð°O•g„gA
²&MO¿MOgð¢O€h¿M¼Kµ
Lh[ºHX±þ‚L&»°÷(356 MEMB 309 MEMB 289 SETFILEINFO 227 BINCOMP 194 SHOULDNT 188 MEMB 166 MEMB 146 MEMB 67 IDATE 55 IDATE 11 INTERSECTION)
(376 * 350 -* 344 *- 303 ~= 295 = 275 CREATIONDATE 264 < 252 CREATIONDATE 241 > 182 = 175 = 160 < 153 < 140 > 132 > 106 * 100 = 94 < 81 >)
( 6 (< > =))
COMPAREDIRECTORIES.INFOS.TYPE :D8
(P 1 DATE P 0 TYPE I 0 FILE) W
0@		Z
¸J
¹Hµ;@	Y–g°+@	µ#@g
o
•g„gXI$
(67 MEMB 57 FILENAMEFIELD 44 PRINTFILETYPE 29 TEDIT.FILEDATE 13 \MVLIST 8 LISPFILETYPE)
(79 OTHER 73 TEXT 52 EXTENSION 36 TEDIT)
( 62 (TXT TEXT SH MD C))
MATCHNAME :D8
(P 0 M I 1 STARTPOS I 0 NAME) B
ghg@A
		
Hmÿ
l.ð™HkmþH	(63 MKATOM 56 SUBATOM 43 NTHCHARCODE 32 UNSLASHIT 27 U-CASE 22 PACKFILENAME 17 SUBATOM)
(10 BODY 4 VERSION)
()
CD.INSURECDVALUE :D8
(P 2 E I 0 CDVALUE? F 3 LASTCDVALUE) Ä

@µ&i	¿oi
¿i	¿i	¿Sb

	’@°,@XIµ&h@IµJhhdddH	
Z
²%ghghghgJ


°¶IY°­
Z
²'ghghghgJ


°ŽIY°…(187 PACKFILENAME 137 PACKFILENAME 97 CD.UPDATEWIDTHS 79 DATE 46 STRINGP 34 TERPRI 27 TERPRI 20 PRIN1 8 TERPRI)
(175 BODY 169 VERSION 163 EXTENSION 157 NAME 127 BODY 121 VERSION 115 EXTENSION 109 NAME)
( 14 "Note:  Using LASTCDVALUE")
CD.UPDATEWIDTHS :D8
(I 0 CDVALUE) !

@	
@
H
¿@
H
@(5 CDPRINT.MAXWIDTHS)
NIL
()
CDFILES :D8
(P 24 CNT P 23 I P 22 THISDEPTH P 21 UNPACK P 20 SUBDIR P 19 EXT P 18 NAME P 17 FULLNAME P 13 STARTPOS P 11 P P 10 SD P 9 E P 8 N P 4 ENUMPAT P 3 HOST P 2 *UPPER-CASE-FILE-NAMES* P 1 EXCLUDES P 0 INCLUDES I 4 DEPTH I 3 ALLVERSIONS I 2 EXCLUDEDFILES I 1 INCLUDEDFILES I 0 DIR) \gBd£d‘hbAgð³A˜gA³gBd£d‘hb€BA
bAµg	Bd”	2@g
[@g
bD¬H!MµoNb¿HH

H

H

OµlOgð—o_¿gKgo@oOµogOgOgC²kg°i

_¿N”ONó’O¾M]±ÿ{
_¿Ogð«O
O_¿_¿Ogð«O
O_¿_¿OgðªOO
ð£h_¿O_±ÿLo
¼H¡h¸LgDohC•o„ol@	Ø’OµO
_"	_*g'_$¿O*g'_&¿O$³ O&²oO&
_$¿h_&¿O$£O&²}O*g'O
_(¿kdO(O.
dl>ð¥dl/ð²¿O0kÔ_0¿O.kÔ_.¿°Ý³÷O0_,¿H²O(O$O&O,H
²%O(O$O&O,I
³O"_ ¿OµO h__¿O_±ÿ:O &_¿°ò(566 CDFILES.MATCH 549 CDFILES.MATCH 495 NTHCHARCODE 478 SUBATOM 449 PACK* 407 UNPACKFILENAME 387 NCHARS 379 DIRECTORY 339 PACKFILENAME.STRING 201 CONCAT 109 FILENAMEFIELD.STRING 97 FILENAMEFIELD.STRING 83 CDFILES.PATS 75 CDFILES.PATS 60 LDIFFERENCE)
(470 DIRECTORY 425 EXTENSION 414 NAME 352 DEPTH 307 * 286 * 265 * 228 * 220 VERSION 213 EXTENSION 206 NAME 176 DIRECTORY 170 HOST 155 * 104 DIRECTORY 92 HOST 70 *.* 41 .* 32 .* 21 .* 4 *>.DS¬Store)
( 442 "." 374 "" 368 "*" 358 (COLLECT) 333 "" 196 "" 187 ">" 181 "<" 162 "")
CDFILES.MATCH :D8
(P 1 P I 4 PATTERNS I 3 THISDEPTH I 2 EXT I 1 NAME I 0 SUBDIR F 2 FILEDIRCASEARRAY) ¬
D
Hµh
¹AI
R³AI
gð³7I
	l.ð²zA	l.ð²oAI
l

­I
l
l*ð²QBI

ªI
gð²<CI
ñ³3@I

³"Id
²d
gð®
@khi
”IµiHX±ÿ](158 STRPOS 125 STRING.EQUAL 94 STRING.EQUAL 80 NTHCHARCODE 70 STRING.EQUAL 65 SUBATOM 50 CHCON1 39 CHCON1 20 STRING.EQUAL)
(143 * 103 * 29 *)
()
CDFILES.PATS :D8
(P 10 CNT P 9 I P 7 UNPACK P 6 DEPTH P 5 SD P 4 E P 3 N P 2 P I 0 PATTERNS F 14 *COMPILED-EXTENSIONS*) 
S

@²@gð¬@dŸ¿g@•o@<11>HµI£Hºh„H
ºH¸IJ	_g']gð”nÿÿ°0kd
MO
dl/ð¥dl>ð²¿OkÔ_¿OkÔ_¿°Þ³÷O¾Og'[µ	g°gð™nÿÿ¾g‹K	jð¡K€h»Og'\µgŠ	jð¡L€h¼Kgð’L²Lgð²HKdo
²;¿0
W°*d
_¿gOMNh_¿Oµ	Oh_‚O&_¿µ×O°&K“KL°LœgL
h…gdMNhh
¹±þÓ(333 \NCONC2 311 PACK* 234 MEMB 195 NCHARS 166 NCHARS 91 NTHCHARCODE 57 UNPACKFILENAME)
(318 * 305 %. 254 * 219 COM 208 COM 189 * 180 EXTENSION 159 * 148 ** 141 * 132 NAME 71 * 64 SUBDIRECTORY 20 * 8 *)
( 229 (* NIL) 28 ((* * NIL 1)))
CDPRINTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 10 E P 9 NCHARSDIR2 P 8 NCHARSDIR1 P 7 LENGTH2END P 6 COL2START P 5 COL2WIDTH P 4 COL1WIDTH P 3 ENDDATE1 P 2 DATE1POS P 1 COLUMNS P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 11 CDVALUE F 12 COLHEADINGS F 13 SI::*RESETFORMS* F 14 PRINTAUTHOR F 15 FILE) 
8
WWW<11>	I
I¹ºI
I¹»I
I¹¼I
I¹½I
I¹¾I
I¹_¿W


_¿W


_¿WgiX³6ogggWggXhWc¿nèH
Wd

²=H
¿lH
¿W	H
¿oH
¿H	¿H	¿W²3HWKLNM
¿W°d


HOWJKOOO
µå°oi
¿i	¿Hd”	(309 CLOSEF? 300 TERPRI 293 PRIN1 275 CDPRINT.LINE 246 CDPRINT.COLHEADERS 227 TERPRI 220 TERPRI 213 PRIN1 201 PRIN1 195 LENGTH 186 SPACES 177 CDPRINT.HEADER 164 LINELENGTH 145 OPENSTREAM 130 PACKFILENAME 100 GETSTREAM 13 CDPRINT.COLUMNS)
(140 NEW 135 OUTPUT 123 BODY 118 TXT 113 EXTENSION 94 OUTPUT)
( 287 "CDVALUE is empty" 207 " entries" 108 (PROGN (CLOSEF? OLDVALUE)))
CDPRINT :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PRINTAUTHOR I 2 COLHEADINGS I 1 FILE I 0 CDVALUE F 3 LISPXHIST) &
@	bS!g		¿$
(31 SI::RESETUNWIND 26 \MVLIST 21 CDPRINTA0001 5 CD.INSURECDVALUE)
(16 SI::RESETUNWIND)
()
CDPRINT.HEADERA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DIR1 F 1 DIR2) 4
Ph
P	Q	ØlFñ—l	¿oh
Qh
(49 PRIN1 42 PRIN1 30 TAB 18 NCHARS 12 NCHARS 6 PRIN1)
NIL
( 36 " vs. ")
CDPRINT.HEADER :D8
(P 0 SI::*RESETFORMS* I 4 STREAM I 3 DATE I 2 SELECT I 1 DIR2 I 0 DIR1) Ÿ
@d²&¿D£Ab¿@

b¿@

b¿@

b¿@

b´toD
gD	hhh
g		¿$
D	¿lhD¿oD
¿CD
B´oD
BD
(156 PRIN1 149 PRIN1 135 PRIN1 127 PRIN1 115 TAB 105 TERPRI 94 SI::RESETUNWIND 89 \MVLIST 84 CDPRINT.HEADERA0001 64 OUTPUT 53 PRIN1)
(79 SI::RESETUNWIND 58 OUTPUT)
( 143 " selecting " 121 "as of " 47 "Comparing ")
CDPRINT.LINE :D8
(P 1 INFO2 P 0 INFO1 I 7 LENGTH2END I 6 NCHARSDIR2 I 5 NCHARSDIR1 I 4 ENDDATE1 I 3 DATE1POS I 2 PRINTAUTHOR I 1 ENTRY I 0 STREAM) A
A

Adið—¿o°x¦o°pA
dgð—¿g° dgð–¿gŽgð’l„oA
dgð—¿g° dgð–¿gŽgð’l„o
@
¿o@
Hµ/Dj@¿o@
¿A
dgð¢±<00>¿o±¢
EkØho@
¿o@
¿B²&o@
¿H
@
¿o@
¿ClÙH
jhd@
¿o@
¿H
@
¿±ÿadgð—¿o°gð<>H•oŠo„@
¿o@
Iµ	@	
@
¿o@
¿I
FkØho@
¿o@
¿B²&o@
¿I
@
¿o@
¿GI
jhd@
¿o@
¿±ÿ}(521 PRIN1 509 FLUSHRIGHT 492 PRIN1 480 PRIN1 468 PRIN1 453 PRIN1 441 PRIN1 435 SUBSTRING 418 PRIN1 406 PRIN1 397 TERPRI 388 PRIN1 376 PRIN1 370 SHOULDNT 324 PRIN1 314 PRIN1 302 FLUSHRIGHT 283 PRIN1 271 PRIN1 259 PRIN1 244 PRIN1 232 PRIN1 226 SUBSTRING 186 PRIN1 174 TAB 163 PRIN1 151 PRIN1 145 CONCAT)
(349 * 334 > 197 < 130 CRLF 124 L 116 LF 108 C 100 CR 77 CRLF 71 L 63 LF 55 C 47 CR)
( 515 " " 486 ") " 462 "(" 447 " " 430 "" 412 "  " 382 "  " 364 "* " 358 " *" 342 " >" 308 "  " 277 ") "
 253 "(" 238 " " 221 "" 208 "< " 180 "  " 157 " " 140 "x" 87 "x" 33 "  " 25 "==")
CDPRINT.MAXWIDTHS :D8
(P 2 CD P 0 CDENTRIES I 0 CDVALUE) 
Ú
@

	’@€@
Hd¢±ª1Iµ‚± KµjH1Iµ‚±¯KµjH1Iµ‚±ÀKµjH1Iµ‚±ÒKµj@

	hH1Iµ‚±×KµjH1Iµ‚±èKµjH1Iµ‚±ûKµjH1Iµ‚±
Kµj@

	hh
Z

µo	¼K“LKó‘L»IY±ÿ?
Z

µo	¼K“LKó‘L»IY±ÿ.
Z

µo	¼K“LKó‘L»IY±ÿ
Z

µo	¼K“LKó‘L»IY±ÿ	
Z

µo	¼K“LKó‘L»IY±ÿ
Z

µo	¼K“LKó‘L»IY±þó
Z

µo	¼K“LKó‘L»IY±þß
Z

µo	¼K“LKó‘L»IY±þÊ(457 NCHARS 419 NCHARS 382 NCHARS 346 NCHARS 312 NCHARS 276 NCHARS 241 NCHARS 207 NCHARS 180 NCHARS 97 NCHARS 8 STRINGP)
NIL
( 452 "" 414 "" 377 "" 341 "" 307 "" 271 "" 236 "" 202 "")
CDPRINT.COLHEADERS :D8
(P 0 HEADING I 5 COL2WIDTH I 4 COL2START I 3 COL1WIDTH I 2 ENDDATE1 I 1 COLHEADINGS I 0 STREAM) q
A´A
Xµ;A
Xµ	@		Eñ˜HkE¸Dj@¿DEÔHjhi@
¿°Ð	Cñ˜HkC¸BCÕj@¿BHjhi@
¿°ž(108 FLUSHRIGHT 95 TAB 84 SUBSTRING 73 NCHARS 65 FLUSHRIGHT 50 TAB 41 SUBSTRING 30 NCHARS 24 TERPRI)
NIL
()
CDPRINT.COLUMNS :D8
(P 15 LENGTH2END P 14 COL2START P 13 MAXNAME2 P 12 MAXNAME1 P 11 ENDDATE1 P 10 DATE1POS P 9 INFO1 P 8 EQUIV P 7 DATEWIDTH P 6 MAXAUTHOR2 P 5 MAXAUTHOR1 P 4 MAXWIDTHS2 P 3 MAXWIDTHS1 P 2 DATERELWIDTH P 1 COL2WIDTH P 0 COL1WIDTH I 2 PRINTAUTHOR I 1 COLHEADINGS I 0 CDVALUE) å@	bl
dl@

@

jdll™@´‚±¹K
jñšK
K
Ù°A
	_ ¿lO ñ¢O <20>l_L
jñšL
L
Ù°A
	_"¿lO"ñ¢O"<22>l_B²kK
ØlؽkL
ØlؾOkØMØK
ØlØOØXOHOÙØ_OHØ_OlØOØkØNØL
ØYOHÔJÔ_dIØ_OOHIOOh(108 NCHARS 68 NCHARS 5 CD.INSURECDVALUE)
NIL
()
CDTEDIT :D8
(P 0 TSTREAM I 3 PRINTAUTHOR I 2 COLHEADINGS I 1 TITLE I 0 CDVALUE F 1 DEFAULTFONT) L


QH
@HBCH	HhdgigggAµoh(73 TEDIT 29 TERPRI 23 CDPRINT 14 DSPFONT 4 OPENTEXTSTREAM)
(53 TITLE 48 CDTEDIT 43 WINDOWTYPE 37 READONLY)
( 61 "Compare directories")
CDMAP :D8
(P 6 EQUIV P 5 INFO2 P 4 DATEREL P 3 INFO1 P 2 MATCHNAME P 1 CDE I 1 FN I 0 CDVALUE F 7 LASTCDVALUE) W
@µ'i	¿oi
¿i	¿i	¿WbaHµh
Y
ºI
»I
¼I
½I¾IkA¿HX°Ù(34 TERPRI 27 TERPRI 20 PRIN1 8 TERPRI)
NIL
( 14 "Note:  Using LASTCDVALUE")
CDENTRY :D8
(I 1 CDVALUE I 0 MATCHNAME F 0 LASTCDVALUE) 	
@AµPNIL
NIL
()
CDSUBSET :D8
(P 9 EQUIV P 8 INFO2 P 7 DATEREL P 6 INFO1 P 5 MATCHNAME P 4 CDE I 1 FN I 0 CDVALUE) ƒ
@	bd

@

@

@

@

@

@
@‘	HµI	
\
½L
¾L
_¿L
_¿L_¿LkA™L»JµKhZ¹HX°ÂK&º°ø(71 CD.UPDATEWIDTHS 5 CD.INSURECDVALUE)
NIL
()
CDMERGE :D8
(P 22 CDE P 18 CDV P 16 NC2 P 15 NC1 P 13 MERGEDENTRIES P 12 DIR2 P 11 DIR1 P 10 IDATE P 9 CDS P 4 TMP P 3 CDV P 0 CDSELECTS I 0 CDVALUES) 
”
@d²¿ 
@!Jµ
H<11>
Mµ+N
[

H
µK

hHX
YKI¿JZ°Í
_


_¿O


_¿O


	_¿O°>d

OK


_¿OK


_¿OK

	ñœK

	_¿µÂOO	kØO	kØ#OµaO"g
_¿OOO	O
hdddddhdddddhO	_¿OµOh_¾M]±þúO&_¿°ô
_$¿O"@O$°Id
_,d
•

O†

O 
O,
O,
O,
O,_&¿O(µ	O&h_*‚O&&_(¿µ·O*
_"¿O_±ÿ6(391 \NCONC2 334 MATCHNAME 267 CD.UPDATEWIDTHS 227 GDATE 213 SORT 190 NCHARS 181 NCHARS 163 IDATE 151 IDATE 136 CDMERGE.COMMON 122 CDMERGE.COMMON 99 IDATE 40 SASSOC)
(208 CD.SORT)
()
CDMERGE.COMMON :D8
(P 3 CY P 2 CX P 1 LASTDIRPOS P 0 I I 1 DIRY I 0 DIRX) ukd"@H
ºAH
»Jo
’l/ºKo
’l/»Jdl/ð˜¿Kl/ð‘H¹J²K²JKð³$J	K	ð³Hkð•o@kIHkÔ¸°“(108 SUBSTRING 87 L-CASECODE 81 L-CASECODE 46 MEMB 31 MEMB 19 NTHCHARCODE 11 NTHCHARCODE)
NIL
( 99 "" 41 (60 62 47) 26 (60 62 47))
CD.SORT :D8
(P 2 ORDER P 1 M2 P 0 M1 I 1 ENTRY2 I 0 ENTRY1) A@
A
ghgHghgI
Zdgð—¿HI
(62 ALPHORDER 45 ALPHORDER 40 PACKFILENAME 23 PACKFILENAME)
(52 EQUAL 34 BODY 28 EXTENSION 17 BODY 11 EXTENSION)
()
BINCOMPA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* P 4 EOLDIFF P 3 EOL2 P 2 EOL1 P 1 B2 P 0 B1 I 0 SI::*CLEANUP-FORMS* F 5 STREAM1 F 6 A0046 F 7 STREAM2 F 8 EOLDIFFOK) Š
Ugg¿PU XµLµi	hc¿$
W Yð³äW´éHdl
ð²¿Jgð’h°Ögºg»Il
°!l
ð´ÀJgð’h°µgºg»Il
ð¢h°¡L³•JKh¼°<C2BC>(34 \MVLIST 15 SETFILEINFO)
(116 CR 110 LF 100 CR 83 LF 77 CR 67 LF 10 NILL 5 ENDOFSTREAMOP)
()
BINCOMPA0001A0003 :D8
(F 0 STREAM2 F 1 A0046) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
BINCOMPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 A0046 P 0 STREAM2 I 0 SI::*CLEANUP-FORMS* F 2 FILE2 F 3 A0045) B
Rggi
g		HgI¿$
	hc¿$
(56 \MVLIST 46 CL:CLOSE 34 \MVLIST 29 BINCOMPA0001A0002 15 OPEN)
(40 :ABORT 24 BINCOMPA0001A0003 10 :INPUT 5 :DIRECTION)
()
BINCOMPA0004 :D8
(F 0 STREAM1 F 1 A0045) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
BINCOMPA0005A0006 :D8
(NAME SI::*UNWIND-PROTECT* P 2 EOLDIFF P 1 B2 P 0 B1 I 0 SI::*CLEANUP-FORMS* F 3 STREAM1 F 4 A0049 F 5 EOL2 F 6 STREAM2 F 7 EOL1) Z
Sgg¿0S XµJµi	hc¿$
V Yð³åHl
ð´èS l
ð´áIo
¢h°ÒJ³ÆWUhº°½(72 MEMB 34 \MVLIST 15 SETFILEINFO)
(10 NILL 5 ENDOFSTREAMOP)
( 67 (13 10))
BINCOMPA0005A0007 :D8
(F 0 STREAM2 F 1 A0049) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
BINCOMPA0005 :D8
(NAME SI::*UNWIND-PROTECT* P 1 A0049 P 0 STREAM2 I 0 SI::*CLEANUP-FORMS* F 2 FILE2 F 3 A0048) B
Rggi
g		HgI¿$
	hc¿$
(56 \MVLIST 46 CL:CLOSE 34 \MVLIST 29 BINCOMPA0005A0006 15 OPEN)
(40 :ABORT 24 BINCOMPA0005A0007 10 :INPUT 5 :DIRECTION)
()
BINCOMPA0008 :D8
(F 0 STREAM1 F 1 A0048) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
BINCOMP :D8
(P 3 A0048 P 2 STREAM1 P 1 A0045 P 0 STREAM1 I 4 EOL2 I 3 EOL1 I 2 EOLDIFFOK I 1 FILE2 I 0 FILE1) î@g
Ag
Ùjð²6@ggi
g		HgI¿$
B´‚±™C¨@	b¿D¨A	b¿CgðœDo
³!Dgð´dCo
´WA@b¿b´N@g
Ag
ñ´5@ggig		JgK¿$
(231 CL:CLOSE 219 \MVLIST 214 BINCOMPA0005 200 OPEN 181 GETFILEINFO 170 GETFILEINFO 148 MEMB 126 MEMB 104 EOLTYPE 93 EOLTYPE 73 CL:CLOSE 61 \MVLIST 56 BINCOMPA0001 42 OPEN 21 GETFILEINFO 10 GETFILEINFO)
(225 :ABORT 209 BINCOMPA0008 195 :INPUT 190 :DIRECTION 176 LENGTH 165 LENGTH 134 CRLF 113 CRLF 67 :ABORT 51 BINCOMPA0004 37 :INPUT 32 :DIRECTION 16 LENGTH 5 LENGTH)
( 143 (LF CR) 121 (LF CR))
EOLTYPEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 EOLTYPE P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 2 SI::*RESETFORMS* F 3 FILE F 4 SHOWCONTEXT) 
(
Sgi²RS¸ggHd	hgHogHg
hhhhdRc¿Hj
°gSg
XhhdRc¿Hgg
H µIdl
ð²^¿Hi
l
ð²+H ¿Io
²TIgH³Êhg¹°ÀIo
²TIgH³¤hg¹°šl
ð²•Io
²TIgH’±ÿxhg¹±ÿm(279 EOLTYPE.SHOW 264 MEMB 236 EOLTYPE.SHOW 221 MEMB 198 EOLTYPE.SHOW 183 MEMB 164 \PEEKBIN 141 SETFILEINFO 112 OPENSTREAM 94 SETFILEPTR 66 STREAMPROP 35 GETFILEPTR 14 GETSTREAM)
(290 LF 273 LF 245 CR 230 CR 207 CRLF 192 LF 136 NILL 131 ENDOFSTREAMOP 107 INPUT 101 CLOSEF? 61 ENDOFSTREAMOP 55 QUOTE 44 STREAMPROP 28 SETFILEPTR 23 PROGN 8 INPUT)
( 259 (CR CRLF) 216 (LF CRLF) 178 (LF CR) 50 (QUOTE ENDOFSTREAMOP))
EOLTYPE :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 SHOWCONTEXT I 0 FILE F 3 LISPXHIST) ;
Ad²dið•¿ldb<02>3 «oA
¿S!g		¿$
(52 SI::RESETUNWIND 47 \MVLIST 42 EOLTYPEA0001 27 ERROR)
(37 SI::RESETUNWIND)
( 21 "SHOWCONTEXT must be an integer")
EOLTYPE.SHOW :D8
(P 0 FILEPOS I 3 STREAM I 2 NEWTYPE I 1 OLDTYPE I 0 SHOWCONTEXT)  
@´‚±šC	
CiH@ÙHAi
¿oi
¿Bi
¿oi
¿Hi
¿i	CiHd@Øi	hdogð´*i	¿oi
¿i	¿i	CH
i(156 SETFILEPTR 149 TERPRI 142 TERPRI 135 PRIN1 123 TERPRI 109 ASKUSER 97 TERPRI 91 COPYBYTES 80 TERPRI 73 PRIN1 65 PRIN1 53 PRIN1 45 PRIN1 33 PRIN1 26 COPYBYTES 12 GETFILEPTR)
(114 Y)
( 129 "-------" 104 "Continue?  " 59 " " 39 "->")
FIND-UNCOMPILED-FILESA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 F F 3 SI::NLSETQ-VALUE) !i@
R	gRhcg(21 GETDEF 10 FILECOMS)
(30 :NORMAL 15 VARS)
()
FIND-UNCOMPILED-FILES :D8
(P 21 CF P 17 FCOMS P 16 *CONDITION-HANDLER-BINDINGS* P 15 SI::*NLSETQFLAG* P 14 *PROCEED-CASES* P 13 SI::NLSETQ-VALUE P 12 CF P 11 CEXT P 6 FILES P 5 SCREATION P 4 F I 2 COMPILEEXTS I 1 DFASLMARGIN I 0 FILES F 22 *COMPILED-EXTENSIONS* F 23 *PROCEED-CASES* F 24 *CONDITION-HANDLER-BINDINGS*) 
z@d¤	AHµIbdaHµ4I
¼ghgL\dI
¨»Jµ
KhZY¿HX°ÆK&Z°÷
\	]
¢±
M’±
BµW,QOµ?Oµ‚±ž
`W.ioW0O	gð´O

O"³Zh°g
_¿gOghgL
	_²!MOA’h°5O_¿OµOh__¿O_±ÿvO&_¿°òhoO"´i^²YLNdið“¿h°Egð˜oh°50N°)d

O*dM
h_$¿O&µ	O$h_(‚O$&_&¿µØO(»Jµ
KhZ¹HX±þ¨K&º°÷(324 COMPILE-SOURCE-DATE-DIFF 270 INFILECOMS? 219 SOURCE-FOR-COMPILED-P 206 INFILEP 201 PACKFILENAME 149 FIND-UNCOMPILED-FILESA0001 84 CREATED-AS 56 MEMB 48 PACKFILENAME 8 FILDIR)
(293 NOCOMMANDS 194 BODY 188 VERSION 181 EXTENSION 155 :NORMAL 127 SI::NLSETQ-PROCEED-CASE 42 BODY 36 VERSION)
( 300 "No commands" 263 (FUNCTIONS FNS) 136 (CL:ERROR . SI::NLSETQHANDLER))
FIND-UNSOURCED-FILESA0001 :D8
(I 1 CF2 I 0 CF1) @
g
A
g

(28 ALPHORDER 23 FILENAMEFIELD.STRING 11 FILENAMEFIELD.STRING)
(18 NAME 6 NAME)
()
FIND-UNSOURCED-FILES :D8
(P 16 CF P 11 SF P 10 CC P 5 CCREATED P 4 FOUND P 3 CEXT P 0 CCREATEDS I 2 COMPILEEXTS I 1 DFASLMARGIN I 0 FILES F 17 *COMPILED-EXTENSIONS*) 
 
BµW"AIµJXdQNµ‚±<00>Og
£I»h„I
»I¹J@µ'gKgogg
	AOµ
O
º°š
_ 	]²MO
³M_¿OµOh__¿O_°ÅO&_¿°ó
_¿ghghgO

	_²O	_OA³/O
Od´
OO
	hh_¿OµOh__¿N^±ÿO&_¿°ô(250 ROUND 245 COMPILE-SOURCE-DATE-DIFF 225 SOURCE-FOR-COMPILED-P 215 CREATED-AS 204 INFILEP 199 PACKFILENAME.STRING 135 MEMBER 122 CREATED-AS 111 \NCONC2 95 FILDIR 90 PACKFILENAME.STRING 40 SORT)
(190 BODY 184 VERSION 178 EXTENSION 84 * 79 BODY 69 VERSION 63 EXTENSION 35 FIND-UNSOURCED-FILESA0001)
( 74 "")
FIND-SOURCE-FILESA0001 :D8
(I 1 P2 I 0 P1) @
	A
	
(18 ALPHORDER 13 FILENAMEFIELD.STRING 6 FILENAMEFIELD.STRING)
NIL
()
FIND-SOURCE-FILES :D8
(P 18 SF P 17 SD P 12 CCREATED P 11 CNAME P 10 SFILES P 9 CF P 4 SD I 2 DFASLMARGIN I 1 SDIRS I 0 CFILES) óAµiAHµ#Ib@d¤	qMµ1Ng
£H¼h„H
¼H¸L	»Jµ	KhZ¹°ÁK&º°¼
_	_¢±ŒO	_²~AQOµO_³[°l
_"¿gOg
gO"	_$² O$OB²O$_ ¿OµO h__¿O_°§O &_¿°óOO_¿OµOh_¾M]±ÿ4O&_¿°ô(173 SOURCE-FOR-COMPILED-P 159 INFILEP 154 PACKFILENAME.STRING 142 FILENAMEFIELD.STRING 97 CREATED-AS 84 INFILEP 60 DIRECTORYNAME 41 SORT 22 FILDIR)
(147 BODY 137 NAME 130 NAME 36 FIND-SOURCE-FILESA0001)
()
FIND-COMPILED-FILESA0001 :D8
(I 1 P2 I 0 P1) @
	A
	
(18 ALPHORDER 13 FILENAMEFIELD.STRING 6 FILENAMEFIELD.STRING)
NIL
()
FIND-COMPILED-FILES :D8
(P 22 CF P 21 CD P 16 CEXT P 14 ROOT P 12 SCREATED P 11 SNAME P 10 CFILES P 9 SF P 4 CD I 2 DFASLMARGIN I 1 CDIRS I 0 SFILES F 23 *COMPILED-EXTENSIONS*) 
(
AµiAHµ#Ib@d¤	qMµ1Ng
£H¼h„H
¼H¸L	»Jµ	KhZ¹°ÁK&º°¼
_	_¢±ÁO	_¢±´O’±¬W.Og
"OµO_³{±Œ
_ ¿OAQO"µO$
_¿O_°Ô
_*¿gOgO gO*
	_,² OO,B²O,_(¿O&µO(h_&_$¿O"_"° O(&_&¿°óOO_¿OµOh_¾M]±þÿO&_¿°ô(226 SOURCE-FOR-COMPILED-P 212 INFILEP 207 PACKFILENAME.STRING 166 \NCONC2 125 FILENAMEFIELD.STRING 97 CREATED-AS 84 INFILEP 60 DIRECTORYNAME 41 SORT 22 FILDIR)
(199 BODY 192 EXTENSION 185 NAME 120 NAME 36 FIND-COMPILED-FILESA0001)
()
FIND-UNLOADED-FILES :D8
(P 4 F I 0 FILES) S
@d¤	AHµI
\d<03>
	\²*L	²"Lg
g
©L»JµKhZ¹HX°ÂK&º°ø(60 GETP 50 FILENAMEFIELD 37 FILEDATE 28 INFILEP 8 FILDIR)
(55 FILEDATES 45 NAME)
()
FIND-LOADED-FILES :D8
(P 9 F P 4 RN I 0 ROOTFILENAMES) t

@AHµId¢¼hƒ
¼H¸Ldg
¢¿°â`A	MµN»Jµ	KhZ¹°ÈK&º°Ã
_¿LOg
ðŸO_¿OµOh_¾M]°ÄO&_¿°õ(83 FILENAMEFIELD 31 GETP)
(78 NAME 40 LOADEDFILELST 26 FILEDATES)
()
FIND-MULTICOMPILED-FILES :D8
(P 10 S P 5 NAME P 4 EXT P 3 F P 0 SFILES I 1 SHOWINFO I 0 FILES F 14 *COMPILED-EXTENSIONS*) ê
 
@d¤	1JµHA
NµDO
[g
\W
²&Kg
]Hµ	MhHX
¹LI¦ILI¿JZ°´
_²xA²bO
O
	

O
	0
O	°5d

gLgO
	_¿Oµ	Oh_‚O&_¿µÌO‚O
_¿OµOh__¿N^±ÿ;O&_¿°ô(167 CREATED-AS 162 PACKFILENAME.STRING 136 SORT 125 CREATED-AS 114 FIND-LOADED-FILES 63 FILENAMEFIELD 50 MEMB 42 FILENAMEFIELD 11 FILDIR)
(154 BODY 148 EXTENSION 58 NAME 37 EXTENSION)
()
CREATED-ASA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* P 2 SFORM P 1 FORM P 0 RDTBL I 0 SI::*CLEANUP-FORMS* F 3 STREAM F 4 POS F 5 FILENAME F 6 FILEDATE F 7 SI::*RESETFORMS* F 8 SOURCEDATE F 9 SOURCENAME) 
&
o	!S	cS	SH
gð² ST
¿SH
Yg'	X†ST
¿gH
gð²0gggHhggHhWc¿S	l(ð´‚±‡SH
Yd
	o
´koI


²NS	l(ð²5SH
Z
	o
²S	c
I
cJ
cJ
cS	c
I
cI
c
I
c(272 FULLNAME 247 FULLNAME 239 MEMB 229 U-CASE 222 READ 210 SKIPSEPRCODES 202 STREQUAL 184 MEMB 174 U-CASE 166 READ 150 SKIPSEPRCODES 135 SETSYNTAX 90 GETSYNTAX 78 SETFILEPTR 69 FIND-READTABLE 56 READ 48 SETFILEPTR 33 RATOM 26 READCCODE 18 GETFILEPTR 9 FIND-READTABLE)
(129 OTHER 124 %: 113 PACKAGEDELIM 108 %: 103 SETSYNTAX 95 PACKAGEDELIM 84 %: 63 :READTABLE 38 DEFINE-FILE-INFO)
( 234 (FILECREATED IL%:FILECREATED) 191 "compiled on " 179 (FILECREATED IL%:FILECREATED) 4 "OLD-INTERLISP-FILE")
CREATED-ASA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 8 RESETSTATE P 7 SI::*RESETFORMS* P 6 LISPXHIST P 5 POS P 4 LINE P 3 SOURCENAME P 2 SOURCEDATE P 1 FILENAME P 0 FILEDATE I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 LISPXHIST F 11 A0051) 
	
`W	l(ð²"W!g		¿$
°|oW	\khdi
]²bLM
»oW	\khdi
]²@LM
		ºoW	\khdi
]²LM
		¸oI
˜Il
¹oK
˜Kl
»Iµ	W	Hd™		Kd<4B>J		h	hc¿$
(258 \MVLIST 247 GDATE 242 IDATE 233 GDATE 228 IDATE 220 FULLNAME 209 MKATOM 200 STRPOS 188 SUBATOM 179 STRPOS 167 GDATE 162 IDATE 157 SUBSTRING 147 STRPOS 136 CL:READ-LINE 123 GDATE 118 IDATE 113 SUBSTRING 103 STRPOS 92 CL:READ-LINE 79 SUBATOM 69 STRPOS 58 CL:READ-LINE 39 SI::RESETUNWIND 34 \MVLIST 29 CREATED-ASA0001A0002 9 SKIPSEPRCODES)
(24 SI::RESETUNWIND)
( 194 "IL:" 173 "IL:" 129 "FASL file created " 85 "Source file created " 51 "XCL Compiler output for source file ")
CREATED-ASA0003 :D8
(F 0 STREAM F 1 A0051) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
CREATED-AS :D8
(P 1 A0051 P 0 STREAM I 0 FILE) 5
@ggi
g		HgI¿$
(46 CL:CLOSE 34 \MVLIST 29 CREATED-ASA0001 15 OPEN)
(40 :ABORT 24 CREATED-ASA0003 10 :INPUT 5 :DIRECTION)
()
SOURCE-FOR-COMPILED-P :D8
(I 2 DFASLMARGIN I 1 COMPILED I 0 SOURCE) ¦
@¨@	b¿A¨A	b¿Bµ	o°.ið–o°$Bd³3 «oB
<00>jBó”jBÕB<C395>Bjhb@
A
ôµM@
A
ôµBgA
g

´*A@

Bd
ið©¿HB
óhð´B
iðµ
HB
ýóhð(130 COMPILE-SOURCE-DATE-DIFF 121 STRING.EQUAL 116 FILENAMEFIELD.STRING 62 ERROR 20 CREATED-AS 8 CREATED-AS)
(111 EXTENSION 104 DFASL)
( 56 "ILLEGAL DFASLMARGIN" 41 (T 0) 31 (20 0))
COMPILE-SOURCE-DATE-DIFF :D8
(I 1 SFILE I 0 CFILE F 0 ONESECOND) /
@d¤	
	Ad¤	
	Ùl<PÖë	(44 ROUND 33 IDATE 26 CREATED-AS 17 IDATE 8 CREATED-AS)
NIL
()
FIX-DIRECTORY-DATES :D8
(P 6 FCDATE P 5 DIDATE P 4 F I 1 MARGIN I 0 FILES F 7 ONESECOND) ³
Aµll<ÚWÚb@d¤	aHµI
\	’±€Li
µL	µL	^²eLg
]N	^Ùjð³MNMÙAñ²/ML		Ùjð³oLM	N	h
¿LgN¿L»Jµ
KhZ¹HX±ÿpK&º°÷(155 SETFILEINFO 142 HELP 133 GDATE 127 GDATE 110 IDATE 105 FILEDATE 85 IDATE 78 GETFILEINFO 64 TEDIT.FILEDATE 56 FILEDATE 48 FILEDATE 37 DIRECTORYNAMEP 21 FILDIR)
(149 ICREATIONDATE 73 ICREATIONDATE)
( 120 "DIRECTORY DATE EARLIER THAN FILECREATED DATE")
FIX-EQUIV-DATES :D8
(P 6 LATE P 5 EARLY P 4 CDE I 0 CDVALUE) …
@	aHµI
\²dLd
gð³V
dgðœ¿L
½L
^°gðšL
½L
^†¿N
gM
g
¿N
»Jµ
KhZY¿HX°ŽK&Z°÷(108 SETFILEINFO 103 GETFILEINFO 83 SHOULDNT 5 CD.INSURECDVALUE)
(98 ICREATIONDATE 91 ICREATIONDATE 65 < 45 > 33 =)
()
COPY-COMPARED-FILES :D8
(P 7 MATCHNAME P 6 TINFO P 5 SINFO P 4 CDE I 2 MATCHNAMES I 1 TARGET I 0 CDVALUE F 8 LASTVALUE) ¤
Ao
«oA
¿@³oi
¿i	¿Wb¿Bd£d‘hb@qHµI
\
½L
¾Akð“NM¾½L
_¿M
²7N
²3B™OB
²'M
ghgN

¿O»JµKhZ¹HX°§K&º°ø(140 COPYFILE 135 PACKFILENAME 113 MEMB 44 TERPRI 37 PRIN1 22 ERROR 10 MEMB)
(128 BODY 122 VERSION)
( 31 "Note:  Using LASTCDVALUE" 16 "INVALID TARGET" 5 (1 2))
COPY-MISSING-FILES :D8
(P 9 MATCHNAME P 8 TDIR P 7 TINFO P 6 SINFO P 5 CDE P 1 TDIR I 2 MATCHNAMES I 1 TARGET I 0 CDVALUE) £
Ao
«oA
¿@	bBd£d‘hb@Akð’@
‚@

‚	HµJ
]
_¿M
¾M
_¿Akð—ON_¿^€N
²8O
³3B™OB
²'N
gIgN

¿O¼KµLh[ºHX° L&»°ø(139 COPYFILE 134 PACKFILENAME 112 MEMB 29 CD.INSURECDVALUE 22 ERROR 10 MEMB)
(127 BODY 121 BODY)
( 16 "INVALID TARGET" 5 (1 2))
COMPILED-ON-SAME-SOURCEA0001 :D8
(P 1 CREATED2 P 0 CREATED1 I 0 CDE F 2 INFO1 F 3 INFO2) O
 
R
gð´>S
gð´0R
	X´$S
	Y´H
I
ôµ
H
I
ô(49 CREATED-AS 37 CREATED-AS)
(27 COMPILED 13 COMPILED)
()
COMPILED-ON-SAME-SOURCE :D8
(I 0 CDVALUE) 

@g
(10 CDSUBSET)
(5 COMPILED-ON-SAME-SOURCEA0001)
()
CDBROWSER :D8
(P 22 PAIR P 19 I P 15 PAIR P 9 MENUWIDTH P 8 ITEMWIDTH P 7 REGION P 6 BROWSER P 5 WINDOW P 4 STRINGS P 3 I I 5 MENUITEMS I 4 SEPARATEDIRECTIONS I 3 BROWSERPROPS I 2 COLHEADINGS I 1 TITLE I 0 CDVALUE F 23 DEFAULTFONT F 24 CDTABLEBROWSER.MENUITEMS F 25 WBorder) 1E²L0E°@d

Kd³(W0
µKo
•oŠoK
¸IµHhZ<>H&¹µÁJ<12>W0b
@BD‘
Ld¢±
Ð1OµUO _E1O$µjO(oW.
_¿dOñ¢¿O	_lOÔlW2ÖÔOÔlL	_¿lOñ²TO°R
_
W.
_"¿O •O"O ó”O"_ ¿O_°‰
_&d£d‘h
W.
_*¿O(•O*O(ó”O*_(¿O$_$±ÿmlE	_¿dOñ¢¿OØW.	Ö
_dAµoL	ohi]dgi0L°d

O,	¸IµHhZ<>H&¹µåJMgggggCg@h
h^`do¿dW.¿di¿dE¿dg¿dg ¿dg¿jdnÿdh_¿dO
¿Mggi
MghM	M	N(557 OPENW 551 GETPROMPTWINDOW 545 PUTWINDOWPROP 533 ATTACHMENU 436 TB.MAKE.BROWSER 424 CL:APPEND 364 CD.TABLEITEM 346 PUTWINDOWPROP 333 CREATEW 326 CONCAT 316 LENGTH 299 GETREGION 293 FONTHEIGHT 274 LENGTH 241 STRINGWIDTH 199 STRINGWIDTH 174 LENGTH 149 WIDTHIFWINDOW 133 STRINGWIDTH 88 CDBROWSER.STRINGS 56 ERROR 38 STREQUAL 25 SASSOC)
(539 UNDERCONSTRUCTION 526 TOP 521 RIGHT 492 DEFAULTMENUHELDFN 483 CLRPROMPT 474 CDTABLEBROWSER.WHENSELECTEDFN 442 |MENUTYPE#| 415 CDVALUE 409 USERDATA 404 CD.TABLEITEM.COPYFN 399 COPYFN 394 CD.TABLEITEM.PRINTFN 389 PRINTFN 340 UNDERCONSTRUCTION)
( 449 " CD commands " 321 " files" 310 "Compare directories       " 126 " CD commands " 50 "UNKNOWN CDBROWSER MENU ITEM"
 44 "" 33 "")
CDBROWSER.STRINGS :D8
(P 20 PAIR P 19 CDENTRY P 18 LATER P 13 LINE P 9 HEADINGHEIGHT P 8 HEADINGW P 7 OBJWINDOW P 6 BROWSER P 5 R2L P 4 L2R P 3 PAIRS P 2 COLHEADERS P 1 PREAMBLE P 0 SCRATCHSTREAM I 2 SEPARATEDIRECTIONS I 1 COLHEADINGS I 0 CDVALUE F 21 LASTCDVALUE) 
•
@µW*b´‚±
ƒgg
‘	@HAHg
@
H	_	jð³O_¿Oµ
Oh__¿°ÝO&_¿°ÕOYA–H	º@QOµO[B¢±

d±Ü
_&¿H	³éO&
dgð—¿g°Tdgð—¿g°Ddgð¨dgð²¿O&
–g°&g°dgð§dgð–¿O&
…¿_$¿H	l
O&O$h_"¿O µO"h_ _¿O_±ÿPO"&_ ¿°òd

O(
dgð—¿O(L\°gð•O(M]„µÑL²&M²#L	o	M	

»JµKhK(392 \NCONC2 387 \NCONC2 382 DREVERSE 376 COPY 366 DREVERSE 349 SHOULDNT 265 SUBSTRING 258 CL:READ-LINE 249 SHOULDNT 144 EOFP 110 CL:READ-LINE 66 NCHARS 59 CL:READ-LINE 50 OPENSTREAM 39 CDPRINT 28 OPENSTREAM)
(336 RIGHT 321 LEFT 234 C 226 R 218 RIGHT 211 LEFT 197 ? 189 * 181 RIGHT 173 < 165 LEFT 157 > 45 INPUT 23 OUTPUT 18 {NODIRCORE})
( 371 (("") ("")))
CD.TABLEITEM :D8
(I 0 DATA)  
`d@¿@
hð
HdI‘k€jÏ0¿NIL
(4 |TABLEITEMTYPE#|)
()
CD.TABLEITEM.PRINTFN :D8
(I 2 WINDOW I 1 ITEM I 0 BROWSER) AÉ
B
(14 PRIN3)
(5 TABLEITEM)
()
CD.TABLEITEM.COPYFN :D8
(P 3 FILE P 2 RIGHT P 1 LEFT P 0 CDENTRY I 1 ITEM I 0 CDBROWSER) ‰AÉ
AH

YH

ZI²\d²V`do¿do¿dg ¿dg¿jdnÿdh¼dL
¿	dgð’¿IŒgð´‚IµJ[d´d	K	(134 COPYINSERT 128 PUTCLIPBOARD 94 MENU)
(110 Right 100 Left 69 DEFAULTMENUHELDFN 60 CLRPROMPT 35 |MENUTYPE#| 5 TABLEITEM)
( 51 (Left Right) 42 "Which File?")
CDTABLEBROWSER.HEADING.REPAINTFN :D8
(I 1 REGION I 0 WINDOW) @	@g
@
(22 PRIN3 16 GETWINDOWUSERPROP 5 MOVETOUPPERLEFT)
(11 COLHEADINGSTRING)
()
CDTABLEBROWSER.WHENSELECTEDFN :D8
(I 2 KEY I 1 MENU I 0 ITEM) Hgg@hgAhgBhhgg@

gg
(69 ADD.PROCESS 53 PACK*)
(63 DON'T 58 BEFOREEXIT 46 CD- 41 NAME 27 QUOTE 18 QUOTE 9 QUOTE 4 CD.COMMANDSELECTEDFN)
()
CD.COMMANDSELECTEDFNA0001A0002 :D8
(P 8 TEMP P 7 LABEL2 P 6 LABEL1 P 5 LABELS P 3 TYPE P 2 FILE2 P 1 FILE1 P 0 CDENTRY I 1 TBITEM I 0 CDBROWSER F 9 USERDATA F 10 MENUITEM F 11 KEY F 12 FN) ¾	AÉ
AH

¹H

ºH

»Wg'µg¼IJWlL1M
µI¾M
µJ_¿h_¿oH


‘h¹oH


‘hºIg@É_µ-Jg@É_µi	AW@WlWº°í¹°Ô(170 CLEARW 117 STREQUAL 96 STREQUAL)
(154 TABLEBROWSER 148 ORIGINALFILES 132 TABLEBROWSER 126 ORIGINALFILES 48 NILL 40 LABELFN 5 TABLEITEM)
( 104 "" 85 "")
CD.COMMANDSELECTEDFNA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 6 MIDDLE P 5 FN P 4 CDVALUE P 3 USERDATA P 2 CDBROWSER P 1 PWINDOW P 0 WINDOW I 0 SI::*CLEANUP-FORMS* F 7 KEY F 8 MENU F 9 MENUITEM) Þ
W	g

H	

Hg

J	
Kg'!W
½Wgð¾I	I	Jg
jð²I	oi
N²CI	¿I	¿I	¿hgogð³gc¿oI
¿JggN´
oI
(219 PRIN3 205 TB.MAP.SELECTED.ITEMS 188 PRIN3 161 ASKUSER 144 FLASHWINDOW 137 CLEARW 130 GIVE.TTY.PROCESS 120 PRIN3 109 FLASHWINDOW 99 TB.NUMBER.OF.ITEMS 88 TTYDISPLAYSTREAM 82 GIVE.TTY.PROCESS 48 TB.USERDATA 39 GETWINDOWUSERPROP 25 GETPROMPTWINDOW 16 GETWINDOWUSERPROP 6 WFROMMENU)
(200 NILL 195 CD.COMMANDSELECTEDFNA0001A0002 174 LEFT 166 Y 151 N 94 SELECTED 74 MIDDLE 57 CDVALUE 34 TABLEBROWSER 11 MAINWINDOW)
( 213 " Done" 182 " ... " 156 "Apply to all selected items? " 114 "Please make a selection")
CD.COMMANDSELECTEDFN :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 KEY I 1 MENU I 0 MENUITEM F 3 LISPXHIST) -
@o
³S!g		¿$
h(36 SI::RESETUNWIND 31 \MVLIST 26 CD.COMMANDSELECTEDFNA0001 10 STREQUAL)
(21 SI::RESETUNWIND)
( 5 "")
CD-MENUFN :D8
(P 1 CHILDREN P 0 SOURCEWIDTH I 3 KEY I 2 CDBROWSER I 1 MENUITEM I 0 TBITEM F 2 WINDOW F 3 FILE2 F 4 FILE1 F 5 LABEL1 F 6 LABEL2 F 7 CD-LINELENGTH F 8 TEDIT.SOURCE.LINELENGTH F 9 DEFAULTFONT F 10 TYPE) £	A
µA
bdo
–R	¿WµWl W
Ú
Adgð²6¿T²S²TSUVWR	ÉB
±<i	¿oi
±'gð²rTµi	¿oi
±	˜T	±
øTd	‘H‚n¼n¼ggRoR	É
mÿØi
hoU
±
¯Adgð²s¿Sµi	¿oi
±
Œ	˜S	±
}Sd	‘H‚n¼n¼ggRoR	É
mÿØh
hoV
±
4gð¬Adg𢱈¿Tµ&SµTSUVlT	²=H°=	²êS	±ù	²×T	¿Sd¢±å	´‚±ÚS	±Ñn¼Ún¼ggRoR	É
mÿØh

±œgðžB@g±†Adgðž¿B@g°mgð²B@Cgi
°TAdgð²¿B@Cgh
°8gð²B@Cgi
°AgðŸB@Cgh
„YdR
IR
(672 MOVEWITH 665 CLOSEWITH 657 SHOULDNT 651 CDBROWSER-DELETE-FILE 626 CDBROWSER-DELETE-FILE 601 CDBROWSER-DELETE-FILE 573 CDBROWSER-DELETE-FILE 548 CDBROWSER-COPY 523 CDBROWSER-COPY 501 EXAMINEFILES 495 RELCREATEREGION 481 \INSUREWINDOW 448 SEE-PDF 436 PDFFILEP 424 SEE-PDF 416 PDFFILEP 408 SEE-PDF 400 PDFFILEP 390 LISPSOURCEFILEP 349 TEDIT-SEE 344 CONCAT 332 RELCREATEREGION 318 \INSUREWINDOW 286 LISPSOURCEFILEP 276 SEE-PDF 269 PDFFILEP 261 PRIN3 249 FLASHWINDOW 226 TEDIT-SEE 221 CONCAT 209 RELCREATEREGION 195 \INSUREWINDOW 163 LISPSOURCEFILEP 153 SEE-PDF 146 PDFFILEP 138 PRIN3 126 FLASHWINDOW 106 PRIN3 94 FLASHWINDOW 85 CD-COMPARE-FILES 76 \INSUREWINDOW 43 CHARWIDTH 27 CLOSEWITH.DOIT 20 MEMB)
(644 RIGHT 634 |Delete ALL ->| 619 RIGHT 608 Delete% -> 594 LEFT 582 |Delete ALL <-| 566 LEFT 555 Delete% <- 543 RIGHT 533 Copy% <- 518 LEFT 509 Copy% -> 468 TOP 463 LEFT 366 See% both 357 See 305 TOP 300 LEFT 236 See% right 182 TOP 177 RIGHT 114 See% left 54 Compare)
( 474 (0.5 -701) 338 "SEE window for " 311 (0.5) 255 "No file to print" 215 "SEE window for " 188 (0.5)
 132 "No file to print" 100 "Only one file" 15 (Compare See See% right See% both See% left))
CD-COMPARE-FILES :D8
(P 0 COMPARETEXT.ALLCHUNKS I 6 CDBROWSER I 5 PARENTREGION I 4 TYPE I 3 LABEL2 I 2 LABEL1 I 1 FILE2 I 0 FILE1) 
4
@	µ@	bA	µA	bDµ(@	bA	ð³i	¿oi
hDgð²@@AhBCE´1oE
Ö	lÈggEoE
lFØh

Ddgð²¿i	oi
gð³Dgð¨Dgð²-@AgEd²oE
lØ
BCh
i	oi
@ABCE´&nxn¼ggEoE
mÿØh

(305 EXAMINEFILES 299 RELCREATEREGION 256 PRIN3 245 FLASHWINDOW 238 COMPARETEXT 227 RELCREATEPOSITION 170 PRIN3 159 FLASHWINDOW 141 CSBROWSER 135 RELCREATEREGION 103 FIXR 69 PRIN3 57 FLASHWINDOW 48 COMPAREDIRECTORIES.INFOS.TYPE 40 COMPAREDIRECTORIES.INFOS.TYPE 29 INFILEP 21 STREAMP 13 INFILEP 5 STREAMP)
(279 TOP 274 LEFT 206 LINE 193 OTHER 185 TEDIT 176 TEXT 149 COMPILED 115 TOP 110 LEFT 77 SOURCE)
( 285 (0.5 -701) 250 "Unable to compare, showing both" 215 (0.5) 164 "Cannot compare compiled files" 121
 (0.125) 93 0.75 63 "Can't compare files of different types")
CDBROWSER-COPY :D8
(P 17 A0083 P 10 RESULT P 9 DATERELBAD P 8 SOURCEVER P 7 DESTFILE P 6 SOURCEFILE P 5 DESTINFO P 4 SOURCEINFO P 3 CDENTRY P 2 DESTDIR P 1 SOURCEDIR P 0 CDVALUE I 3 UNIXDEST I 2 SOURCE I 1 TBITEM I 0 CDBROWSER) 6@A
’±
åg@	Ñ
H

¹H

ºAÉ
[
¼K
½h_¿g_¿h_¿BgðŸML½¼JIº¹g_¿L
¾M
_¿i	¿N¬oi
hOK
ð²&i	¿i	¿hdogð’±
EBg
_µ‚±âi	¿OªNIJ_¿C¢±
O	²{@!g_ OÉ
µ(O
O hO"É_¿O"O¿O
_¿O_ O
µO_¿O hO_¿OdO¿
Og
gggNggghgO	

	°lghgN	g
ýñ¢±þþi	¿i	¿hdNo
gð¢±þÔhNghgO
_Ÿ@A
¿oOŒi	¿No
i
O(561 PRIN3 555 CONCAT 543 FLASHWINDOW 528 TB.DELETE.ITEM 518 COPYFILE 513 PACKFILENAME.STRING 482 ASKUSER 477 CONCAT 463 GIVE.TTY.PROCESS 456 FLASHWINDOW 444 FILENAMEFIELD 434 INFILEP 429 PACKFILENAME.STRING 410 PSEUDOFILENAME 405 PACKFILENAME 400 COPYFILE 395 PACKFILENAME 389 TRUEFILENAME 343 COPYFILE 304 SASSOC 249 SASSOC 222 INFILEP 207 CD-SWAPDIRS 195 CLEARW 181 FILENAMEFIELD 160 ASKUSER 147 FLASHWINDOW 140 GIVE.TTY.PROCESS 123 PRIN3 109 CLEARW 21 TB.USERDATA 6 TB.ITEM.DELETED?)
(506 BODY 500 VERSION 487 N 439 VERSION 423 BODY 417 VERSION 382 BODY 376 VERSION 371 UNIX 366 HOST 360 BODY 355 DSK 350 HOST 338 {NODIRCORE} 280 TABLEBROWSER 267 TABLEBROWSER 242 TABLEBROWSER 233 ORIGINALFILES 176 VERSION 165 N 92 > 77 RIGHT 64 < 41 TABLEITEM 15 CDVALUE)
( 550 " could not be copied" 534 "Copied to " 472 " is not the newest version.  Really copy? " 155 "Target is newer than source.  Really copy? "
 117 "No source file to copy")
CDBROWSER-DELETE-FILE :D8
(P 14 A0404 P 10 F P 2 OTHERFILE P 1 FILE P 0 CDENTRY I 5 DONTMARK I 4 SAVE I 3 ONLYONE I 2 SIDE I 1 TBITEM I 0 CDBROWSER) 
R@A
’±
GAÉ
QH

YH

ZBgð”dIºY€I´DIg
²%C³"gogI		€IA
NµE¦@A
O¥N_¿h†N
_¿N¾@!
g_Oɵ$O
OhOÉ»OK¿K
_¿I_OµO½OhM¼MdL¿
Ig
D²1OgoOg

gO
…I	¬oO
¿O_¿OµOh__¿±ÿ%O&_¿±ÿh(303 ERROR 290 DELFILE 283 RENAMEFILE 278 PACKFILENAME.STRING 266 CONCAT 261 FILENAMEFIELD.STRING 232 COPYFILE 115 TB.DELETE.ITEM 98 DREVERSE 93 FILDIR 88 PACKFILENAME.STRING 62 FILENAMEFIELD.STRING 6 TB.ITEM.DELETED?)
(271 BODY 256 DIRECTORY 244 DIRECTORY 227 {NODIRCORE} 184 TABLEBROWSER 173 TABLEBROWSER 152 TABLEBROWSER 143 ORIGINALFILES 82 BODY 72 VERSION 57 VERSION 41 RIGHT 16 TABLEITEM)
( 296 "Could not delete " 249 "deleted>" 77 "*")
CD-SWAPDIRS :D8
(I 3 KEEPVERSION I 2 TODIR I 1 FROMDIR I 0 FILE F 0 FILEDIRCASEARRAY) M
A@khdiP
²-B@A	kØ

bC<>ghg@@oA

(74 ERROR 69 CONCAT 56 PACKFILENAME.STRING 34 CONCAT 29 SUBSTRING 22 NCHARS 12 STRPOS)
(50 BODY 44 VERSION)
( 63 " doesn't begin with ")
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
(RPAQQ COMPAREDIRECTORIESCOMS ((* ;; "Compare the contents of two directories.") (FILES (SYSLOAD) 
PDFSTREAM) (FNS COMPAREDIRECTORIES COMPAREDIRECTORIES.INFOS COMPAREDIRECTORIES.CANDIDATES 
CDENTRIES.SELECT COMPAREDIRECTORIES.INFOS.TYPE MATCHNAME CD.INSURECDVALUE CD.UPDATEWIDTHS) (FNS 
CDFILES CDFILES.MATCH CDFILES.PATS) (FNS CDPRINT CDPRINT.HEADER CDPRINT.LINE CDPRINT.MAXWIDTHS 
CDPRINT.COLHEADERS CDPRINT.COLUMNS CDTEDIT) (FNS CDMAP CDENTRY CDSUBSET CDMERGE CDMERGE.COMMON CD.SORT
) (FNS BINCOMP EOLTYPE EOLTYPE.SHOW) (RECORDS CDMAXNCHARS CDVALUE CDENTRY CDINFO) (* ;; 
"look for compiled files older than the sources") (FNS FIND-UNCOMPILED-FILES FIND-UNSOURCED-FILES 
FIND-SOURCE-FILES FIND-COMPILED-FILES FIND-UNLOADED-FILES FIND-LOADED-FILES FIND-MULTICOMPILED-FILES) 
(FNS CREATED-AS SOURCE-FOR-COMPILED-P COMPILE-SOURCE-DATE-DIFF) (FNS FIX-DIRECTORY-DATES 
FIX-EQUIV-DATES COPY-COMPARED-FILES COPY-MISSING-FILES COMPILED-ON-SAME-SOURCE) (VARS (ONESECOND (
IDIFFERENCE (IDATE "1-Jan-2020 12:00:01") (IDATE "1-Jan-2020 12:00:00")))) (INITVARS (LASTCDVALUE NIL)
) (* ;; "Compare-directories browser") (COMS (FNS CDBROWSER CDBROWSER.STRINGS) (* ;; 
"TABLEBROWSER browser") (FILES (SYSLOAD) TABLEBROWSER) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (
LOADCOMP) TABLEBROWSER)) (FNS CD.TABLEITEM CD.TABLEITEM.PRINTFN CD.TABLEITEM.COPYFN 
CDTABLEBROWSER.HEADING.REPAINTFN) (FNS CDTABLEBROWSER.WHENSELECTEDFN CD.COMMANDSELECTEDFN CD-MENUFN 
CD-COMPARE-FILES CDBROWSER-COPY CDBROWSER-DELETE-FILE CD-SWAPDIRS) (INITVARS (CD-LINELENGTH NIL)) (
VARS CDTABLEBROWSER.MENUITEMS) (FILES (SYSLOAD) COMPARESOURCES COMPARETEXT) (P (MOVD? (QUOTE NILL) (
QUOTE TEDIT.FILEDATE))))))
(FILESLOAD (SYSLOAD) PDFSTREAM)
(RECORD CDMAXNCHARS (NCFULLNAME NCLENGTH NCAUTHOR NCTYPE NCDIR))
(RECORD CDVALUE ((CDDIR1 CDDIR2 CDCOMPAREDATE CDSELECT CDMAXNC1 CDMAXNC2) . CDENTRIES) (RECORD CDVALUE
 (CDPARAMETERS)) CDMAXNC1 _ (CREATE CDMAXNCHARS) CDMAXNC2 _ (CREATE CDMAXNCHARS))
(RECORD CDENTRY (MATCHNAME INFO1 DATEREL INFO2 . EQUIV))
(RECORD CDINFO (FULLNAME DATE LENGTH AUTHOR TYPE EOL))
(RPAQ ONESECOND (IDIFFERENCE (IDATE "1-Jan-2020 12:00:01") (IDATE "1-Jan-2020 12:00:00")))
(RPAQ? LASTCDVALUE NIL)
(FILESLOAD (SYSLOAD) TABLEBROWSER)
(RPAQ? CD-LINELENGTH NIL)
(RPAQQ CDTABLEBROWSER.MENUITEMS ((Compare CD-MENUFN) (Copy% -> CD-MENUFN) (Copy% <- CD-MENUFN) (
See% left CD-MENUFN) (See% right CD-MENUFN) (See% both CD-MENUFN) (See CD-MENUFN) (Delete% <- 
CD-MENUFN) (|Delete ALL <-| CD-MENUFN) (Delete% -> CD-MENUFN) (|Delete ALL ->| CD-MENUFN)))
(FILESLOAD (SYSLOAD) COMPARESOURCES COMPARETEXT)
(MOVD? (QUOTE NILL) (QUOTE TEDIT.FILEDATE))
NIL