(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Nov-93 17:13:29" ("compiled on " {DSK}<king>export>lispcore>sources>CLTL2>IOCHAR.;1) 
"19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42")
(FILECREATED " 3-Sep-91 10:15:51" {DSK}<new>sources>lispcore>sources>IOCHAR.;3 55124 changes to%: (FNS
 MAKEBITTABLE) previous date%: " 4-Apr-91 22:29:21" {DSK}<new>sources>lispcore>sources>IOCHAR.;2)
(RPAQQ IOCHARCOMS ((COMS (FNS CHCON UNPACK DCHCON DUNPACK) (FNS UALPHORDER ALPHORDER CONCAT 
CONCATCODES PACKC PACK PACK* \PACK.ITEM STRPOS) (FUNCTIONS XCL:PACK XCL:PACK*) (GLOBALVARS \SIGNFLAG 
\PRINTRADIX) (DECLARE%: DONTCOPY (MACROS \CATRANSLATE))) (COMS (FNS STRPOSL MAKEBITTABLE) (DECLARE%: 
DONTCOPY (RESOURCES \STRPOSLARRAY)) (INITRESOURCES \STRPOSLARRAY)) (COMS (FNS CASEARRAY UPPERCASEARRAY
 LOWERCASEARRAY FLIPCASEARRAY) (P (MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY)) (MOVD? (QUOTE ELT) (QUOTE 
GETCASEARRAY))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (\TRANSPARENT (CASEARRAY)) (UPPERCASEARRAY (
UPPERCASEARRAY)) (LOWERCASEARRAY (LOWERCASEARRAY)) (FLIPCASEARRAY (FLIPCASEARRAY)))) (DECLARE%: 
EVAL@COMPILE (PROP GLOBALVAR UPPERCASEARRAY LOWERCASEARRAY FLIPCASEARRAY) DONTCOPY (GLOBALVARS 
\TRANSPARENT))) (COMS (FNS FILEPOS FFILEPOS \SETUP.FFILEPOS) (DECLARE%: EVAL@COMPILE DONTCOPY (
RESOURCES \FFDELTA1 \FFDELTA2 \FFPATCHAR) (CONSTANTS (\MAX.PATTERN.SIZE 128) (\MIN.PATTERN.SIZE 3) (
FILEPOS.SEGMENT.SIZE 32768) (\MIN.SEARCH.LENGTH 100))) (INITRESOURCES \FFDELTA1 \FFDELTA2 \FFPATCHAR))
 (COMS (* ;; "DATE Functions") (FNS DATE DATEFORMAT GDATE IDATE \IDATESCANTOKEN \IDATE-PARSE-MONTH 
\OUTDATE \OUTDATE-STRING \RPLRIGHT \UNPACKDATE \PACKDATE \DTSCAN \ISDST? \CHECKDSTCHANGE) (OPTIMIZERS 
DATEFORMAT) (* ;; 
"Because DST begins the FIRST weekend in April now, \BeginDST changed from 120 to 98 as of 4/3/87 (JDS)  Note: this only affects standalone users--those with time servers automatically get correct local info (bvm)"
) (INITVARS (\TimeZoneComp 8) (\BeginDST 98) (\EndDST 304) (\DayLightSavings T)) (ADDVARS (TIME.ZONES 
(8 "PST" "PDT") (7 "MST" "MDT") (6 "CST" "CDT") (5 "EST" "EDT") (0 "GMT" "BST") (0 "UT") (-1 "MET" 
"MET DST") (-2 "EET" "EET DST"))) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \TimeZoneComp \BeginDST
 \EndDST \DayLightSavings TIME.ZONES) (CONSTANTS (\4YearsDays (ADD1 (ITIMES 365 4)))))) (LOCALVARS . T
) (PROP FILETYPE IOCHAR) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA
 DATEFORMAT) (NLAML) (LAMA PACK* CONCAT)))))
CHCONA0001 :D8
(L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) ���Pµ
Ahc�cdA&c�¿�NIL
NIL
()
CHCON :D8
(L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) �Â��`Ažg����@AB����K@dd3@ð² ¿@ÁÉ�¸k¹@ÁÊ jðhð½@ÁÉ�Ê�°H	����²Æ@dÊjð¥	����É�¸@dÊjð¥	����‚ʇlDð½@dÊjð¥	����È¹@l
����ºIJØmÿØI2
ONó³/M–HOÐÈ�ƒHOÂ_¿OµOh__¿OkÔ_°ÙO&_¿°òO�(127 \GETBASEFIXP 115 %%ARRAY-OFFSET 94 %%ARRAY-TYPE-NUMBER 77 %%ARRAY-BASE 62 STRINGP 17 \MAPPNAME)
(9 CHCONA0001)
()
UNPACKA0002 :D8
(L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) �A��Adlÿñ–	����°!l9ñ™`����Al
ُl0Añ¤Al0Ù†`����AÐbPµ
dhc�cdA&c�¿�(10 CHARACTER)
(41 \OneCharAtomBase 21 \OneCharAtomBase)
()
UNPACK :D8
(L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) �ï��pAžg����@AB����K@dd3@ð² ¿@ÁÉ�¸k¹@ÁÊ jðhð½@ÁÉ�Ê�°H	����²Æ@dÊjð¥	����É�¸@dÊjð¥	����È¹@dÊjð¥	����‚ʇlDð½@l
����ºIJØmÿØI2OOó³[M–HOÐÈ�ƒHOÂ^dlÿñ–	����°!l9ñ™`����Nl
ُl0Nñ¤Nl0Ù†`����NÐ_¿OµOh__¿OkÔ_°¬O&_¿°òO�(169 CHARACTER 127 \GETBASEFIXP 111 %%ARRAY-TYPE-NUMBER 94 %%ARRAY-OFFSET 77 %%ARRAY-BASE 62 STRINGP 17 \MAPPNAME)
(200 \OneCharAtomBase 180 \OneCharAtomBase 9 UNPACKA0002)
()
DCHCONA0001 :D8
(L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) ���Pµ
Pdhh¿c�A�NIL
NIL
()
DCHCON :D8
(L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) �ã	��AµhhAHY@B’±�§@dd3@ð²"¿@ÁÉ�½k¾@ÁÊ jðhð_¿@ÁÉ�Ê�°J	����²w@dÊjð¥	����É�½@dÊjð¥	����È¾@dÊjð¥	����‚ʇlDð_¿@l
����_¿NOØmÿØN»ºKJó³2Iµ
Idhh¿YO•MKÐÈ�‚MK¿KkÔ[°Üg����@BC����¿IHð‘hH¼HIIh¿H	����LL�(221 FLAST 196 \MAPPNAME 131 \GETBASEFIXP 113 %%ARRAY-TYPE-NUMBER 96 %%ARRAY-OFFSET 79 %%ARRAY-BASE 64 STRINGP)
(188 DCHCONA0001)
()
DUNPACKA0002 :D8
(L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) �>��Pµ
Pdhh¿c�Adlÿñ–	����°!l9ñ™`����Al
ُl0Añ¤Al0Ù†`����AÐ�(25 CHARACTER)
(56 \OneCharAtomBase 36 \OneCharAtomBase)
()
DUNPACK :D8
(L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) 
��AµhhQHY@	B’±�Û@dd3@ð²$¿@ÁÉ�¾k_¿@ÁÊ jðhð_¿@ÁÉ�Ê�°N	����¢±�¨@dÊjð¥	����É�¾@dÊjð¥	����È_¿@dÊjð¥	����‚ʇlDð_¿@l
����_¿OOØmÿØO¼»LKó³^Iµ
Idhh¿YO•NLÐÈ�‚NLÂZdlÿñ–	����°!l9ñ™`����Jl
ُl0Jñ¤Jl0Ù†`����JпLkÔ\°°g����@BC����¿IHð‘hH½HIIh¿H	����MM�(273 FLAST 248 \MAPPNAME 194 CHARACTER 137 \GETBASEFIXP 119 %%ARRAY-TYPE-NUMBER 100 %%ARRAY-OFFSET 83 %%ARRAY-BASE 66 STRINGP)
(240 DUNPACKA0002 225 \OneCharAtomBase 205 \OneCharAtomBase)
()
UALPHORDER :D8
(L (1 B 0 ARG1)) ����@A`���������(11 ALPHORDER)
(6 UPPERCASEARRAY)
()
ALPHORDER :D8
(L (2 CASEARRAY 1 B 0 A)) ×��À@dd3@ð² ¿@ÁÉ�¹k»@ÁÉ�Ê�º@ÁÊ jðhð°Jd	����²k¿@dÊjð¥	����É�¹@dÊjð¥	����È»@l
����º@dÊjð¥	����‚ʇlDð¼Add3@ð²L¿AÁÉ�½k_¿AÁÉ�Ê�¾AÁÊ jðhð°v3²A3h𵂱%@AóhðA3¬Ad3@ð¦A	����‘hi	����¢±�ŽAdÊjð¥	����É�½AdÊjð¥	����È_¿Al
����¾AdÊjð¥	����‚ʇlDð_¿Bµ`��������b����É�XjB����ÊkðB����_ʇOÈõJOñ³JNð²vg����A3hðNOñ´‚±ÿ\HOOL˜IOKØÐÈ�…IOKØÂO$dO ñ¥¿OO$Â_HOOO™MOOØÐÈ�†MOOØÂO,dO(ñ¥¿O&O,Â_ð¬OOñ´g����OkÔ_¿±ÿt�(262 %%ARRAY-TYPE-NUMBER 248 \GETBASEFIXP 234 %%ARRAY-OFFSET 217 %%ARRAY-BASE 200 STRINGP 190 STRINGP 105 %%ARRAY-TYPE-NUMBER 91 \GETBASEFIXP 79 %%ARRAY-OFFSET 62 %%ARRAY-BASE 46 STRINGP)
(458 LESSP 342 EQUAL 313 ARRAYP 302 ARRAYP 292 ARRAYP 285 ARRAYP 280 \TRANSPARENT)
()
CONCAT :D8
(L (0 N)) �£��e�Hjk3Ijð³jIa]d	����²¿N³LMdÊjð³<	����°8d3@ðžN³4MÁÊ jðhð°'IM	����]
����¿N³MdÊjð¥	����‚ʇlDð¾JM	����غIkÙY°–JhdN����¼IHð³IkعLKIa����¿KIa	����Ø»°ãL�(155 NCHARS 146 RPLSTRING 127 ALLOCSTRING 110 NCHARS 95 %%ARRAY-TYPE-NUMBER 78 \SETARG0 72 MKSTRING 43 %%ARRAY-TYPE-NUMBER 23 STRINGP)
NIL
()
CONCATCODES :D8
(L (0 CHARCODES)) �.��@	����	�����@kIµH»HJK����¿I¹JkÔº°è�(34 RPLCHARCODE 10 ALLOCSTRING 5 LENGTH)
NIL
()
PACKC :D8
(L (0 X)) �i��`����µlÿhdi�����@jHdÊjð®	����Šh����¿°æÉ�IµKjJi����H����¿¼Jlÿñ˜hl
����¿KJÐLÍ�¿JkÔºIY°Í�(86 \LISPERROR 62 \MKATOM 34 %%ARRAY-BASE 16 ALLOCSTRING)
(69 \\PNAMESTRING.GLOBALRESOURCE 41 \\PNAMESTRING.GLOBALRESOURCE 4 \\PNAMESTRING.GLOBALRESOURCE)
()
PACK :D8
(L (0 X) P 1 PACK.INDEX P 0 \PNAMESTRING) �‘��@™@¦@	����¿`����µ"lÿhdi����!k¹@µ.HÊjð¯H	����‹h����¿°ãHÉ�jIkÙi����H����¿Z	����¨Jdd3@ð²$¿HIdJ	����ÔYlÿkØñ˜hl
����¿J����„	����¿@b�°•�(135 \PACK.ITEM 129 RPLSTRING 122 \LISPERROR 106 NCHARS 87 STRINGP 72 \MKATOM 49 %%ARRAY-BASE 28 ALLOCSTRING 10 \ILLEGAL.ARG)
(78 \\PNAMESTRING.GLOBALRESOURCE 56 \\PNAMESTRING.GLOBALRESOURCE 16 \\PNAMESTRING.GLOBALRESOURCE)
()
PACK* :D8
(L (0 U) P 6 PACK.INDEX P 1 \PNAMESTRING F 9 *PACKAGE*) 0	�e�`����µ*lÿhdi����AkdOdHñ²0¿IÊjð¯I	����‹h����¿°ÛIÉ�jNkÙi����I����¿a_¿W’±�’Odd3@ð¢±�‰¿OÁÉ�½OÁÉ�Ê�¼OÁÊ jðhð»MkLK����µ&INdO	����Ô^lÿkØñ˜hl
����¿O����°sl
����ºINdO	����JÙÔ^lÿkØñ˜hl
����¿OkJØ
��������°<O	����©Odd3@ð²&¿INdO	����Ô^lÿkØñ˜hl
����¿O����„	����¿OkØ_±þó�(292 \PACK.ITEM 286 RPLSTRING 278 \LISPERROR 262 NCHARS 241 STRINGP 232 RPLSTRING 227 SUBSTRING 216 \LISPERROR 198 NCHARS 187 \GETBASEFIXP 177 RPLSTRING 169 \LISPERROR 153 NCHARS 141 NAMESTRING-CONVERSION-CLAUSE 72 \MKATOM 49 %%ARRAY-BASE 20 ALLOCSTRING)
(79 \\PNAMESTRING.GLOBALRESOURCE 56 \\PNAMESTRING.GLOBALRESOURCE 8 \\PNAMESTRING.GLOBALRESOURCE)
()
\PACK.ITEMA0001 :D8
(L (1 CODE 0 DUMMY) F 0 PACK.INDEX F 1 \PNAMESTRING) �.��Plÿñ˜hl
����¿QÊjð¦Q	����‚QÉ�PkÙÐAÍ�¿PkÔc��(26 %%ARRAY-BASE 12 \LISPERROR)
NIL
()
\PACK.ITEM :D8
(L (0 ITEM)) �
���g����@
�����(10 \MAPPNAME)
(4 \PACK.ITEMA0001)
()
STRPOS :D8
(L (7 BACKWARDSFLG 6 CASEARRAY 5 TAIL 4 ANCHOR 3 SKIP 2 START 1 STRING 0 PAT)) Õ'��À@dd3@ð² ¿@ÁÉ�¹kº@ÁÉ�Ê�¸@ÁÊ jðhð°Qd	����¨¿@	����b�Êjð¦@	����‚@É�¹@dÊjð¥	����Èº@l
����¸@dÊjð¥	����‚ʇlDð_¿Add3@ð² ¿AÁÉ�¼k½AÁÉ�Ê�»AÁÊ jðhð°P	����¨A	����b¿AdÊjð¥	����É�¼AdÊjð¥	����È½Al
����»AdÊjð¥	����‚ʇlDð_¿KHÙkØ^jñ´1B³G‘N€kb¿Hjñ³!E´BjBñžBKkØÔb¿kBñ²çhBNñ²àhC˜C	����b¿Fµ`����b°%²F����Êjð³F����Êkð¦F	����¿MmÿÔ]JmÿÔZF����l
����F����É�F����ÊkðF����_ʇOÈõMBØG‘kmÿØMD‘B…G‘k€NØJlØJHØOjð«o����F
����¿OOOO—IJkØÐÈ�„IJkØÂO.dO*ñ¥¿O(O.Â_¿G›O mÿÔ_ O"ýñˆO kÔ_ O"ñ’±ÿOCð³,OOOOO–LO ÐÈ�ƒLO ÂO6dO2ñ¥¿O0O6Âð²¶O&O$O kØO:O8ó³iCOOOO–IO:ÐÈ�ƒIO:Â"ODdO@ñ¥¿O>ODÂ_ð³.OOOOO–LO<ÐÈ�ƒLO<Â&OLdOHñ¥¿OFOLÂð¢h°O:kÔ_:¿O<kÔ_<¿°”i¢±ÿ8E”O H؁O MÙ�(465 ERROR 381 \GETBASEFIXP 357 \ILLEGAL.ARG 307 CHCON1 231 %%ARRAY-TYPE-NUMBER 217 \GETBASEFIXP 205 %%ARRAY-OFFSET 188 %%ARRAY-BASE 172 MKSTRING 165 STRINGP 112 %%ARRAY-TYPE-NUMBER 98 \GETBASEFIXP 86 %%ARRAY-OFFSET 68 %%ARRAY-BASE 54 MKSTRING 46 STRINGP)
(406 ARRAYP 395 ARRAYP 387 ARRAYP 374 ARRAYP 345 ARRAYP 332 ARRAYP 318 \TRANSPARENT)
( 459 "CASEARRAY can't be a sub-array: ")
XCL:PACK :D8
(L (0 -args-) F 3 *PACKAGE*) �"�e�kalHñ‘S‚laºI	����J
�����(31 CL:INTERN 25 CONCATLIST)
NIL
()
XCL:PACK* :D8
(L (0 -args-)) �1��e�Hk2JIóœK	����	����Ja½Lµ
Mh\»JkÔZ°áM&¼°÷�(24 CL:INTERN 19 CONCATLIST)
NIL
()
STRPOSL :D8
(L (4 BACKWARDSFLG 3 NEG 2 START 1 STRING 0 A)) M	��`����µF`����!`@Ã����ª@hH����b�¿Add3@ð²)¿AÁÉ�»AÁÉ�Ê�½k¼AÁÊ jðhð°Yh����¿°»	����¨A	����b¿AdÊjð¥	����É�»Al
����½AdÊjð¥	����È¼AdÊjð¥	����‚ʇlDð_¿B³D‘M€kb¿LmÿÔ¼C²!j°jBñŸBMkØÔb¿kBñ²æh°vBMñ²Þh°nkb¿LBؾLD•NkÔ¾k…NmÿÔ¾MØ_¿D™NmÿÔ^Oýñ†NkÔ^Oñ’h°<C@O•KNÐÈ�‚KNº¹Jlÿñ²I����É€ŸJI����É€
����µj‚IJÂð²´NLÙH����¿�(309 GETHASH 154 %%ARRAY-TYPE-NUMBER 137 %%ARRAY-OFFSET 123 \GETBASEFIXP 111 %%ARRAY-BASE 95 MKSTRING 88 STRINGP 33 MAKEBITTABLE)
(329 \\STRPOSLARRAY.GLOBALRESOURCE 302 CHARTABLE 292 CHARTABLE 80 \\STRPOSLARRAY.GLOBALRESOURCE 24 CHARTABLE 11 |CHARTABLETYPE#| 4 \\STRPOSLARRAY.GLOBALRESOURCE)
()
MAKEBITTABLE :D8
(L (2 A 1 NEG 0 L)) �´��BÃ����²$Bjlÿ����¿B����É€²B����É€	����‡`����b¿@°(d!BHd¤	����º¹Jlÿñ¤IJkLJIJk����µÙA²QlÿjIHó³FBIdlÿñ²B����É€ŸIB����É€
����µj‚BIÂkæKlÿñ¤JKLLJJKL����IkÔY°ºB�(169 \SETFATSYNCODE 139 GETHASH 89 \SETFATSYNCODE 69 CHCON1 40 CLRHASH 16 \ZEROBYTES)
(132 CHARTABLE 122 CHARTABLE 46 |CHARTABLETYPE#| 33 CHARTABLE 23 CHARTABLE 5 CHARTABLE)
()
(/SETTOPVAL (QUOTE \\STRPOSLARRAY.GLOBALRESOURCE) NIL)
CASEARRAY :D8
(L (0 OLDAR)) �7��@µ-n�g����jd����!lÿjº¹JIó³HJd����¿JkÔZ°ï	����H�(50 COPYARRAY 38 SETA 17 ARRAY)
(10 BYTE)
()
UPPERCASEARRAY :D8
NIL �5���`����µ����!lzlaº¹JIó–H����HJdl Ù����¿JkÔZ°æ�(44 SETCASEARRAY 13 CASEARRAY)
(32 UPPERCASEARRAY 4 UPPERCASEARRAY)
()
LOWERCASEARRAY :D8
(F 3 LOWERCASEARRAY) �.��Sµ����!lZlAº¹JIó“HcHJdl Ø����¿JkÔZ°é�(37 SETCASEARRAY 9 CASEARRAY)
NIL
()
FLIPCASEARRAY :D8
(F 5 FLIPCASEARRAY) �K��Uµ"����AlZlAº¹JIóžlzla¼»LKó²Hc
HJdl Ø����¿JkÔZ°ÞHLdl Ù����¿LkÔ\°Ö�(66 SETCASEARRAY 48 SETCASEARRAY 9 CASEARRAY)
NIL
()
(MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY))
(MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY))
(RPAQ \TRANSPARENT (CASEARRAY))
(RPAQ UPPERCASEARRAY (UPPERCASEARRAY))
(RPAQ LOWERCASEARRAY (LOWERCASEARRAY))
(RPAQ FLIPCASEARRAY (FLIPCASEARRAY))
(PUTPROPS UPPERCASEARRAY GLOBALVAR T)
FILEPOS :D8
(L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 STR)) ‡��Dd”	����Fµ:`��������É�Ag����
����ó@@dd3@ð²3¿@ÁÉ�½k¾@ÁÉ�Ê�°Yd²¿Fd����Êjð“¿F°¸	����°±	����¨@	����b�¿@dÊjð¥	����É�½@dÊjð¥	����È¾@l
����_¿Bµ)J����É
����ÉN_"¿JkO"__¿C³AJ	����°nd3 •¿jBñ˜Bl
����¿J����É
����ÉN_ ¿JkO _¿JB
����¿B°½jCñ³CJ	����OÙ_$¿dO$ñ²"¿O$°OjCÙñ–J	����‰J	����CØkØOÙkØ_Oñ¢±�¥O_¿Ojð’±�ÿIMNÂÂ\Hð²OkÙ_¿J ¿NkÔ¾OkÔ_¿°ÙONØ_¿Od˜¿j__¿°;ãâââââââ_¿Onÿå_¿Oãâââââââ_¿Onÿå_¿OOð’O‚n€�_¿OOð²*OOð³j_¿OkÔ_Oð²åO_jð²ÝJO
����hLIJ Âð§OkÔ_°ÆN_¿OkØ_Oð³AIMOÂÂ[IJ Âð³éKHð³äJd����É
����ÉN_&¿JkO&ONÙÙ
����¿OkÔ_±ÿyE³#Jd����É
����ÉN_(¿JkO(OÙ
����¿J����É
����ÉN_*¿JkO*�(620 \SETFILEPTR 575 \SETFILEPTR 490 \SETFILEPTR 302 \GETEOFPTR 295 \GETEOFPTR 265 \GETEOFPTR 249 \SETFILEPTR 215 \LISPERROR 196 \GETEOFPTR 153 \GETBASEFIXP 141 %%ARRAY-OFFSET 124 %%ARRAY-BASE 108 MKSTRING 101 STRINGP 94 CASEARRAY 33 \GETSTREAM 7 CHCON1)
(634 FDEV 627 STREAM 602 FDEV 595 STREAM 555 FDEV 548 STREAM 229 FDEV 222 STREAM 172 FDEV 165 STREAM 79 ARRAYP 28 INPUT 20 ARRAYP 15 \TRANSPARENT)
()
FFILEPOS :D8
(L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 PATTERN)) ��Aµ����	����Ñ
D’±ôH����É
����Ê�0jð’±Þ@dd3@ð²¿@ÁÉ�¹kº@ÁÉ�Ê�°;	����¨@	����b�¿@dÊjð¥	����É�¹@dÊjð¥	����Èº@l
����[l€ñ’±‚lKñ’±zH����É
����ÉN_¿HkO¼BµLKkÙؽH	����_¿C³°+d3 •¿jBñ˜Bl
����¿B°ÚjCñ–OCØkØ€CKØdOñ’¿O^Mñ¡hldNMÙñ’±HM
����¿`����µ‚±�ºlÿkØg����
����`����µ‚±�—l€g����
����`����µzl€g����
����FµP`��������É�O����É�O����É�O ����É�KkÙEIJKO(O$O&O"
����¿Nd²H¿j__¿°qd²2¿Fd����Êjð²#¿F°¡h����¿°h����¿±ÿqh����¿±ÿP	����±ÿ}ãâââââââ_¿Nnÿå_¿Mãâââââââ_¿Mnÿå½OOð’O‚n€�¾O(O*Â_0¿NMñ³EOdOð²&¿HL
����¿hO����¿O����¿O ����¿kÔ_¿Mn€�Ù½OOð²¿O^°»O"H Â_,O0ð³MO$O,Â_2Ô½O2kð³žHO2kÙ
����°‘O*kÙ_.¿jO.ñ³SHmþ
����¿O"H Â_,O(O.Âð³7MO$O,ÂO&O.Â_¿dOñ¢¿O_2O*O.ÙÙÔ½O2kð’±ÿFHO2kÙ
����±ÿ8O.°¦HE“Kkفmÿ
����¿H����É
����ÉN_¿HkO±ÿ#@HBCDEF
�����(786 FILEPOS 746 \INCFILEPTR 725 \INCFILEPTR 659 \INCFILEPTR 636 \INCFILEPTR 547 \SETFILEPTR 465 CASEARRAY 391 \SETUP.FFILEPOS 323 ARRAY 304 ARRAY 281 ARRAY 255 \SETFILEPTR 206 \LISPERROR 181 \GETEOFPTR 126 \GETBASEFIXP 114 %%ARRAY-OFFSET 97 %%ARRAY-BASE 81 MKSTRING 74 STRINGP 12 \GETSTREAM 7 INPUT)
(760 FDEV 753 STREAM 573 \\FFPATCHAR.GLOBALRESOURCE 565 \\FFDELTA2.GLOBALRESOURCE 557 \\FFDELTA1.GLOBALRESOURCE 456 \\FFDELTA1.GLOBALRESOURCE 446 \\FFDELTA2.GLOBALRESOURCE 437 \\FFPATCHAR.GLOBALRESOURCE 420 ARRAYP 366 ARRAYP 357 ARRAYP 348 ARRAYP 339 ARRAYP 334 \TRANSPARENT 318 BYTE 309 \\FFPATCHAR.GLOBALRESOURCE 299 BYTE 286 \\FFDELTA2.GLOBALRESOURCE 276 BYTE 261 \\FFDELTA1.GLOBALRESOURCE 155 FDEV 148 STREAM 33 FDEV 26 STREAM)
()
\SETUP.FFILEPOS :D8
(L (6 CASE 5 DELTA2 4 DELTA1 3 PATCHAR 2 PATLEN 1 PATOFFSET 0 PATBASE)) �Ï��BáBØBkÙRlj¼»LKó²Ij¾½NMó²!jIkÙkI
OOó²*hDLÐHÍ�¿LkÔ\°ÖCNF@ANØÂÂZÇ¿DJINÙÇ¿NkÔ^°ÆEOBOñžCIOÙÂCOkØÂð²*Ok°OCOÂCOÂð¢h°OmÿÔ_¿OmÿÔ_¿°i³$OkÙ_¿jOkØIOOOó³åOO󲿰ÜIOÙIOÙØ_Ç¿OmÿÔ_¿±ÿ[�NIL
NIL
()
(/SETTOPVAL (QUOTE \\FFDELTA1.GLOBALRESOURCE) NIL)
(/SETTOPVAL (QUOTE \\FFDELTA2.GLOBALRESOURCE) NIL)
(/SETTOPVAL (QUOTE \\FFPATCHAR.GLOBALRESOURCE) NIL)
DATE :D8
(L (0 FORMAT)) �
�������@
�����(10 \OUTDATE 4 \UNPACKDATE)
NIL
()
DATEFORMAT :D8
(L (0 FORMAT)) �	��g����@�NIL
(4 DATEFORMAT)
()
GDATE :D8
(L (2 STRPTR 1 FORMAT 0 DATE)) ����@	����AB�����(12 \OUTDATE 5 \UNPACKDATE)
NIL
()
IDATE :D8
(L (1 DEFAULTTIME 0 STR) P 1 *POS* P 0 *STR*) ñ��@µ����	����kò0����_´‚±¢HI
����dl/ð©dl-ð¤dl ð’¿°dl,ð›¿O²IkÔ¹°Ël.ð—O“IkÔ¹����_´‚±_HI
����dl/ð®dl-ð©dl ð¤dl,𑿇l.ð—O“IkÔ¹����\3 ´‚±(ldLó²3LnlÔ¼O3 µ"O[3 ´‚±ºOZd3 ²#¿kJó¥Jló²$h»O°ênlLó¦Lnõó²Êh	����Z´‚±ÖkKó³3KJl	ð³Jlð«Jlð¦Jdlð”¿l°lðœLlåjð’l„lló•hIkÔ¹HI
����_l ð³ðHI
����dl,ð²¿IkÔ¹����]3 ³$h³ôAd¢±l<Ü_¿Al<Ûbl<ܾAl<Û½±ÓHI
����_l:ð²AIkÔ¹����^3 ´‚±.HI
����_dl:ð²,¿IkÔ¹����_3 ´‚±HI
����_‹MldܾMldÛ½O¢±vOl ðHIkÔY
����_°ðOlAð³OlPð®Olað¨Odlpð²v¿HIkØ
����dlMð¤dlmð’¿i¿h²YHIlÔ
����dl ð¦dl-ð¡d¢¿i¿h²<l
Mó´‚±�€Mlð‘j½OlPð¥Olpð”MlÔ½HIlÔY
����_dl ð—¿HIk°îOl-ð²+HIkØ
����l_å_¿lAOñ³OlZñ¬HIkÔY
����_Ol+ð¨Odl-ð²L¿IkÔ¹����3 µhld
����	����__¿O_jð’O‹OOl<
����Ô_¿Ol+ð²RjOÕ°I²JOl_å_ ¿lAO ñ³;O lZñ³4I_&¿HIkÔY
����_µMHO&IkÙ����_¿`����!O(µxh_¿lMó´&l<Nó´ O–l<Oó´LJkÙKMNOµjO
����l_å_"¿lAO"ñ¦O"lZñ²–Ol ð²½HIkØ
����_²Ol_å_$¿lAO$ñ³O$lZñ’±ÿyIkÔ¹±ÿd_*¿OO*
����•O*±ÿxO*_,²OO,
����—O*kÙ±ÿ]O(_(±ÿQ�(990 CL::SIMPLE-STRING-EQUAL 965 CL::SIMPLE-STRING-EQUAL 915 NTHCHARCODE 879 \PACKDATE 816 SUBSTRING 801 NTHCHARCODE 746 CL::%%/ 717 \MVLIST 712 CL:TRUNCATE 699 \IDATESCANTOKEN 672 NTHCHARCODE 643 NTHCHARCODE 614 NTHCHARCODE 550 NTHCHARCODE 523 NTHCHARCODE 482 NTHCHARCODE 447 NTHCHARCODE 430 \IDATESCANTOKEN 412 NTHCHARCODE 396 \IDATESCANTOKEN 380 NTHCHARCODE 334 \IDATESCANTOKEN 318 NTHCHARCODE 304 NTHCHARCODE 230 \IDATE-PARSE-MONTH 146 \IDATESCANTOKEN 107 NTHCHARCODE 92 \IDATESCANTOKEN 40 NTHCHARCODE 25 \IDATESCANTOKEN 13 MKSTRING 7 DAYTIME)
(824 TIME.ZONES)
()
\IDATESCANTOKEN :D8
(F 9 *POS* F 10 *STR*) �Ó	��`WW
����Yd¢±�Šdl ð™¿WkÔc¿°äºl0Jñ³8Jl9ñ³2Il0ÕXWWkÔc
����YµH»l0Kñ³ùKl9ñ³óIl0ÕHl
ÖÔ¸°×Il_å¼lALñhð´0LlZñhð´(laIñ©Idlzñ¤l_å€I0WWkÔc
����YµNl_å½lAMñ³ôMlZñ³îlaIñ©Idlzñ¤l_å€I_¿OµOh_¾°¾O&_¿°¶�(146 NTHCHARCODE 63 NTHCHARCODE 11 NTHCHARCODE)
NIL
()
\IDATE-PARSE-MONTH :D8
(L (0 MONTH)) Û��@HYdlJð¢±�‰¿HXddlAð²B¿HdlNð´7dX²/HlUð´+HX²#HlAð´HX²HlRð´HX™HlYð´H¡khlUð´üHXddlNð²¿HdšdlEð´åd³àllLð´ÙHdšdlYð´Îd³ÉllFð²aHdlEð´¹dXlBð´°HX²GHlRð´¤HX²;HlUð´˜HX²/HlAð´ŒHX²#HlRð´‚±ÿ}HX²HlYð´‚±ÿmH’±ÿflIdlMð²X¿HdlAð´‚±ÿOdXddlRð²,¿Hd²#dlCð´‚±ÿ3dX²HlHð´‚±ÿ#H’±ÿllYð´‚±ÿHd’±ÿ	llAð¢±�”HXddlPð²9¿HdlRð´‚±þçdX²#HlIð´‚±þ×HX²HlLð´‚±þÇH’±þÀllUð´‚±þµHdlGð´‚±þ¨dX²3HlUð´‚±þ˜HX²#HlSð´‚±þˆHX²HlTð´‚±þxH’±þqlIdlSð¢±�‡¿HdlEð´‚±þXdXlPð´‚±þKHX²cHlTð´‚±þ;HX²SHlEð´‚±þ+HX²CHlMð´‚±þHX²3HlBð´‚±þHX²#HlEð´‚±ýûHX²HlRð´‚±ýëH’±ýäl	lOð²eHdlCð´‚±ýÐdXlTð´‚±ýÃHX²CHlOð´‚±ý³HX²3HlBð´‚±ý£HX²#HlEð´‚±ý“HX²HlRð´‚±ýƒH’±ý|l
IdlNð²v¿HdlOð´‚±ýedXlVð´‚±ýXHX²SHlEð´‚±ýHHX²CHlMð´‚±ý8HX²3HlBð´‚±ý(HX²#HlEð´‚±ýHX²HlRð´‚±ýH’±ýllDð´‚±üöHdlEð´‚±üédXlCð´‚±üÜHX²SHlEð´‚±üÌHX²CHlMð´‚±ü¼HX²3HlBð´‚±ü¬HX²#HlEð´‚±üœHX²HlRð´‚±üŒH’±ü…l�NIL
NIL
()
\OUTDATE :D8
(L (2 STRING 1 FORMAT 0 UD)) æ)��@ñ@H¹HZ»J\½L^_¿N__¿O__¿O__¿O_¿l-lò$@(Aµ±,dg����ð’±l
����¿±d_dg����ð—¿i_2¿±�øg����ð–i_4¿±�êOdg����ð—¿i_D¿±�Øg����ð–i_J¿±�ÊOdg����ð—¿i_F¿±�¸g����ð–i_H¿±�ªOdg����ð˜¿l/_(¿±�—g����ð—l _(¿±�ˆOdg����ð–¿i_6¿°vg����ð²5`����d3 —`����°`����g����g��������µ`����_8¿°;Odg����ð–¿i_B¿°*g����ð•i_L¿°Odg����ð•¿i_N¿Šg����ð“i_P¿µ‚±þòO2“j±�–OHšl _(¿h_D¿k€jOD²l
KkÔ[ó•O6’k°l°Ko����
����»OF–K	����l_<ÔO6¢OH–l
Mó‘kl_>ÔOJ§IdnÏó“¿l…ldܹl_:ÔOL²#Oo����
����_L¿lON‘d†OL	����_@Ô€jÔlÔO4’j°tO2’llOB‘jlÔOP²5Odlóžló—OmôÔ_¿lp‰jð”l_¿la_P¿l
Oó–O6“k_*ƒl€jÔO8µj°#3“l°O“O8O8µ`����_8	����kØÔÔ_,dl 
����_.O2’±�úOH²IdkK����¿O<_0¿O.O0kÔ_0O(����¿O.O0l
Mó‘klÔ_0Mk����¿O.O0kÔ_0l,����°MO.O>_0Mk����¿O.O0kÔ_0O(����¿OD²O.O0O<Ô_0KO<����°O.O0KOFhð����¿O0O<Ô_0¿O.O0kÔ_0O(����¿O.O0O:Ô_0Il����¿O4¦O0kÔ_0¿OL²6O,O@ÕkÙ_ ¿O.O l(����¿O.O OLON����¿O.O,l)����‚j_0¿O4’±�ˆO.O0O*Ô_0OOP‘kl����¿O.O0kØl:����¿O.O0lÔ_0Ol����¿OB³#O.O0kØl:����¿O.O0lÔ_0Ol����¿OP²!O.O0kØOP����¿O.O0lÔ_0lm����¿O8µB¢±�ÀO.kmÿB����3¢±�œO–O8kÙ_8¿O.O0lÔO8jó©jO8Õ_8¿l+l-����¿O8d3 ²(¿O.O0lÔO8l����¿O.O0lÔo��������¿°–	����	����_&_$¿O&_"¿O.O0lÔO$l����¿O.O0lÔO"l<Ö	����l����¿±ÿSO.O0lÔO8����¿±ÿAO.�(1245 RPLSTRING 1227 \RPLRIGHT 1220 ROUND 1202 \RPLRIGHT 1173 \MVLIST 1168 CL:TRUNCATE 1160 RPLSTRING 1142 \RPLRIGHT 1117 RPLCHARCODE 1071 SUBSTRING 1050 RPLCHARCODE 1033 RPLCHARCODE 1015 \RPLRIGHT 996 RPLCHARCODE 978 \RPLRIGHT 959 RPLCHARCODE 945 \RPLRIGHT 911 RPLCHARCODE 899 \OUTDATE-STRING 885 RPLCHARCODE 849 \RPLRIGHT 831 RPLCHARCODE 807 \OUTDATE-STRING 791 \RPLRIGHT 769 RPLCHARCODE 753 \RPLRIGHT 738 RPLCHARCODE 722 \RPLRIGHT 698 RPLCHARCODE 677 RPLSTRING 657 ALLOCSTRING 643 NCHARS 517 NCHARS 500 CL:NTH 437 NCHARS 427 CL:NTH 293 CL:ASSOC 95 \LISPERROR)
(636 \TimeZoneComp 358 CIVILIAN.TIME 345 DAY.SHORT 329 DAY.OF.WEEK 315 NO.SECONDS 302 \TimeZoneComp 288 = 283 :TEST 278 TIME.ZONES 270 TIME.ZONES 261 \TimeZoneComp 253 TIME.ZONE 239 NO.LEADING.SPACES 221 SPACES 205 SLASHES 188 MONTH.LEADING 173 MONTH.LONG 156 YEAR.LONG 141 NUMBER.OF.MONTH 124 NO.TIME 109 NO.DATE 83 DATEFORMAT)
( 1155 "00" 495 ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") 422 ("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"))
\OUTDATE-STRING :D8
(L (3 SHORTP 2 STRING 1 N 0 S)) �2��C²%lkIHó‘h@AIÔBI
��������¿IkÔY°æ@AkØB�����(47 RPLSTRING 30 RPLCHARCODE 25 NTHCHARCODE)
NIL
()
\RPLRIGHT :D8
(L (3 MINDIGITS 2 N 1 AT 0 S)) �1���@Al0Bl
ÜØ����Ckñ¥l
Bñ³AkÙBl
ÛCkÙb¿b¿b¿¿°Ôh�(13 RPLCHARCODE)
NIL
()
\UNPACKDATE :D8
(L (0 D)) Q��@µ����b�`����@o����æâlÛò@lÔl<
����»Il<Ü_¿`����_ 3 ³O 	����	����__ ¿O_¿Il<ÛnˆøÔO ÕYlܼOµIlÛ_¿O²WOOÔ_°PmÄÖ	����_¿OOÔl<
����	����__¿O_¿Ojð³¿LOÔl
����	����__¿O¼°¢OnµÜdo����
����Ô½OnµÛ_¿MnnܾOlÔlÜ_¿H²$NLO����_²LkØ\lóœOkØ_¿j¼h¸°¯No����
����ºniOlÚÔMnnÛÔJNJÕkØLOKOOh�(293 \DTSCAN 257 \ISDST? 216 \DTSCAN 186 \MVLIST 181 CL:FLOOR 151 \MVLIST 146 CL:FLOOR 131 ROUND 70 \MVLIST 65 CL:FLOOR 39 IMOD 7 DAYTIME)
(52 \TimeZoneComp 14 \DayLightSavings)
( 288 ((335 . 11) (305 . 10) (274 . 9) (244 . 8) (213 . 7) (182 . 6) (152 . 5) (121 . 4) (91 . 3) (60 . 2) (31 . 1) (0 . 0))
 211 ((789 . 3) (424 . 2) (59 . 1) (0 . 0)) 20 -2147483648)
\PACKDATE :D8
(L (6 TIMEZONE 5 SEC 4 MIN 3 HR 2 DAY 1 MONTH 0 YR)) �� @´A´B´C´D´E¡hAdjð“¿j°ikð“l°bAdlð”¿l;°Wlð“lZ°OAdlð”¿lx°Dlð“l—°<Adlð”¿lµ°1lð“lÔ°)Adlð”¿ló°l	ð”n°Adl
ð”¿n0‡lð´nNBkÙÔXnm@nmÕb�ÖÔ@lÛÔYAkó²HkÔ¸@lÜlð˜@mÿð£IkÔ¹mÿIó’±ÿXjClIÖÔFµ$`����²HCIkÔlÜ����—`����kÙ„`����Ôbó’±ÿ$ElDl<CÖÔÖào����æÔ�(220 \ISDST?)
(234 \TimeZoneComp 226 \TimeZoneComp 205 \DayLightSavings)
( 258 -2147483648)
\DTSCAN :D8
(L (1 L 0 X)) ����A@ñ•Ab°÷A�NIL
NIL
()
\ISDST? :D8
(L (2 WDAY 1 HOUR 0 YDAY)) �$���@kÔb�AB`��������´@AB`��������hð�(31 \CHECKDSTCHANGE 16 \CHECKDSTCHANGE)
(26 \EndDST 11 \BeginDST)
()
\CHECKDSTCHANGE :D8
(L (3 DSTDAY 2 WDAY 1 HOUR 0 YDAY)) �#���@dCñ‘iClÙýñ‘hBlð“Akñ@BÙClÙñ�NIL
NIL
()
optimize-DATEFORMAT :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) �#��@g����HYd²dið¬3µg����Ih�NIL
(28 QUOTE 9 DATEFORMAT)
()
(PUTPROP (QUOTE DATEFORMAT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-DATEFORMAT) (
GET (QUOTE DATEFORMAT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(RPAQ? \TimeZoneComp 8)
(RPAQ? \BeginDST 98)
(RPAQ? \EndDST 304)
(RPAQ? \DayLightSavings T)
(ADDTOVAR TIME.ZONES (8 "PST" "PDT") (7 "MST" "MDT") (6 "CST" "CDT") (5 "EST" "EDT") (0 "GMT" "BST") (
0 "UT") (-1 "MET" "MET DST") (-2 "EET" "EET DST"))
(PUTPROPS IOCHAR FILETYPE CL:COMPILE-FILE)
(PUTPROPS IOCHAR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
1991))
NIL