(FILECREATED "12-Oct-86 15:34:44" ("compiled on " {ERIS}SOURCES>IOCHAR.;21) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "" dated " 1-Oct-86 21:24:44") (FILECREATED "12-Oct-86 15:34:10" {ERIS}SOURCES>IOCHAR.;21 95973 changes to: (FUNCTIONS XCL:PACK XCL:PACK*) (FNS FFILEPOS FILEPOS) (VARS IOCHARCOMS) previous date: "25-Sep-86 11:46:10" {ERIS}SOURCES>IOCHAR.;17) (RPAQQ IOCHARCOMS ((COMS (FNS CHCON UNPACK DCHCON DUNPACK) (FNS UALPHORDER ALPHORDER PACKC CONCAT 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) (P (MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY)) (MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY))) (DECLARE: DONTEVAL@LOAD DOCOPY ( VARS (\TRANSPARENT (CASEARRAY)) (UPPERCASEARRAY (UPPERCASEARRAY)))) (DECLARE: EVAL@COMPILE (PROP GLOBALVAR UPPERCASEARRAY) DONTCOPY (GLOBALVARS \TRANSPARENT))) (COMS (FNS SKREAD SKBRACKET SKREADC) ( BLOCKS (SKREAD SKREAD SKBRACKET SKREADC))) (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) (FNS DATE DATEFORMAT GDATE IDATE \IDATESCANTOKEN \OUTDATE \RPLRIGHT \UNPACKDATE \PACKDATE \DTSCAN \ISDST? \CHECKDSTCHANGE) (OPTIMIZERS DATEFORMAT) (INITVARS ( \TimeZoneComp 8) (\BeginDST 120) (\EndDST 304) (\DayLightSavings T)) (ADDVARS (TIME.ZONES (8 . P) (7 . M) (6 . C) (5 . E) (0 . GMT))) (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 D1 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) P AhccdA&cNIL NIL () CHCON D1 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) `A@dl @k@ jh@lX@@Cjhi@@IJkI2 ON/MHOHO_OOh__Ok_O&_Og@AB K(221Q \MAPPNAME) (213Q CHCONA0001) () UNPACKA0002 D1 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) @Adl "l9`Al ٰl0AhiAl0ل`AbP dhccdA&c(10Q CHARACTER) (50Q \OneCharAtomBase 21Q \OneCharAtomBase) () UNPACK D1 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) pA@dl @k@ jh@l@@@Cjhi@IJkI2 OOZMHOHO^dl "l9`Nl ٰl0NhiNl0ل`N_OOh__Ok_O&_Og@AB K(277Q \MAPPNAME 161Q CHARACTER) (271Q UNPACKA0002 221Q \OneCharAtomBase 172Q \OneCharAtomBase) () DCHCONA0001 D1 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) P PdhhcANIL NIL () DCHCON D1 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) AhhAHY@Bl@dl!@k@ jh_@l@@@@_NOkNKJ.I IdhhYOMKMKKk[g@BC IHhHHIIhH LL(233Q FLAST 204Q \MAPPNAME) (176Q DCHCONA0001) () DUNPACKA0002 D1 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) =P PdhhcAdl "l9`Al ٰl0AhiAl0ل`A(27Q CHARACTER) (67Q \OneCharAtomBase 40Q \OneCharAtomBase) () DUNPACK D1 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) AhhQHY@ B@dl$@k_@ jh_@!l|@@_@Cjhi_@_OOkOLKYI IdhhYONLNLZdl "l9`Jl ٰl0JhiJl0ل`JLk\g@BC IHhHHIIhH MM(334Q FLAST 305Q \MAPPNAME 222Q CHARACTER) (277Q DUNPACKA0002 262Q \OneCharAtomBase 233Q \OneCharAtomBase) () UALPHORDER D1 (L (1 B 0 ARG1)) @A` (7 ALPHORDER) (4 UPPERCASEARRAY) () ALPHORDER D1 (L (2 CASEARRAY 1 B 0 A)) o @dlk@@ jh?@@@@CjhiAdlJk_AA jhH@3A3hi@AdiA3AlAhHAA_AACjhi_B`bXjBCkB JOhA3hiJNxgNOhiHOOLIOKIOKO"OhiOO"O"_HOOOMOOMOOO*O&hiO$O*O*_OOgOk_jNIL (542Q LESSP 354Q EQUAL 317Q ARRAYP 306Q ARRAYP 276Q ARRAYP 271Q ARRAYP 266Q \TRANSPARENT) () PACKC D1 (L (0 X)) P`'lhdi @jHIKjJi HhJlhl KJLJkԺIY(75Q \LISPERROR 42Q \MKATOM 14Q ALLOCSTRING) (55Q \\PNAMESTRING.GLOBALRESOURCE 47Q \\PNAMESTRING.GLOBALRESOURCE 2 \\PNAMESTRING.GLOBALRESOURCE) () CONCAT D1 (L (0 N)) eHjk3IjPIa]dN8MCj.h,lN%M jhIM ] NMCjhiJM غIkYJhdN IHIkعLKIa KIa ػL(173Q NCHARS 164Q RPLSTRING 143Q ALLOCSTRING 124Q NCHARS 101Q \SETARG0 75Q MKSTRING) NIL () PACK D1 (L (0 X) P 1 N P 0 \PNAMESTRING) n@@@ `&lhdi !k@HjIki HhZJdlHIdJ Ynhl J @b(144Q \PACK.ITEM 140Q RPLSTRING 133Q \LISPERROR 116Q NCHARS 54Q \MKATOM 26Q ALLOCSTRING 10Q \ILLEGAL.ARG) (66Q \\PNAMESTRING.GLOBALRESOURCE 60Q \\PNAMESTRING.GLOBALRESOURCE 42Q STRINGP 14Q \\PNAMESTRING.GLOBALRESOURCE) () PACK* D1 (L (0 U) P 2 N P 1 \PNAMESTRING) oe`.lhdi kdKdHIjJki Iha\LdlIJdL Znhl L Kk[(146Q \PACK.ITEM 142Q RPLSTRING 135Q \LISPERROR 120Q NCHARS 55Q \MKATOM 20Q ALLOCSTRING) (70Q \\PNAMESTRING.GLOBALRESOURCE 62Q \\PNAMESTRING.GLOBALRESOURCE 43Q STRINGP 6 \\PNAMESTRING.GLOBALRESOURCE) () \PACK.ITEMA0001 D1 (L (1 CODE 0 DUMMY) F 0 N F 1 \PNAMESTRING) Plhl QPkAPkc(12Q \LISPERROR) NIL () \PACK.ITEM D1 (L (0 ITEM)) g@ (6 \MAPPNAME) (2 \PACK.ITEMA0001) () STRPOS D1 (L (7 BACKWARDSFLG 6 CASEARRAY 5 TAIL 4 ANCHOR 3 SKIP 2 START 1 STRING 0 PAT)) {& @dlk@@ jh(@ b@@@@Cjhi_AdlkAA jh(A bAAAACjhi_KHk^jhi.BGNkbHjhjBBKkbkBhBNhiBCC bF `b "FCjFCkhiF Mm]JmZFFFCkFMBGkmMDBGkNJlJHOjoF OOOOIJkIJkO,O(hiO&O,O,_GOm_O Ok_O *OC1OOOOOLOLOO4O0hiO.O4O4O$O"OkO8O6sCOOOOIO8IO8!OBO>hiO`!`@@hH bAdl%AkA jh/hA bAAAACjhi_BDMkbLmԼC!jjBBMkbkBhpBMhhkbLBؾLDNkԾkNmԾM_DNm^ONk^Oh6C@OKNKNºJlIɀJIɀ jIJNLH(373Q GETHASH 116Q MKSTRING 31Q MAKEBITTABLE) (415Q \\STRPOSLARRAY.GLOBALRESOURCE 366Q CHARTABLE 356Q CHARTABLE 140Q STRINGP 131Q STRINGP 104Q \\STRPOSLARRAY.GLOBALRESOURCE 22Q CHARTABLE 7 CHARTABLETYPE# 2 \\STRPOSLARRAY.GLOBALRESOURCE) () MAKEBITTABLE D1 (L (2 A 1 NEG 0 L)) BBjl BɀBɀ `b@.d!BHdlH JlhiIJkDžIJk AMljIHBBIdlBɀIBɀ jBIkKlhiJKLDžJKL IkYB(237Q \SETFATSYNCODE 177Q GETHASH 123Q \SETFATSYNCODE 75Q CHCON1 36Q CLRHASH 14Q \ZEROBYTES) (172Q CHARTABLE 162Q CHARTABLE 42Q CHARTABLETYPE# 31Q CHARTABLE 21Q CHARTABLE 3 CHARTABLE) () (/SETTOPVAL (QUOTE \\STRPOSLARRAY.GLOBALRESOURCE)) CASEARRAY D1 (L (0 OLDAR)) .@ngjd !ljJIH HJd JkZ(45Q SETA 36Q COPYARRAY 15Q ARRAY) (10Q BYTE) () UPPERCASEARRAY D1 NIL -`&!lzlaJIHJdl JkZH(37Q SETCASEARRAY 11Q CASEARRAY) (52Q UPPERCASEARRAY 2 UPPERCASEARRAY) () (MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY)) (MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY)) (RPAQ \TRANSPARENT (CASEARRAY)) (RPAQ UPPERCASEARRAY (UPPERCASEARRAY)) (PUTPROPS UPPERCASEARRAY GLOBALVAR T) SKREAD D1 (L (2 RDTBL 0 FILE) P 1 RRPTR I 1 REREADSTRING F 4 \LINEBUF.OFD) F@g Ak"HTo@ B` bIHB ZdltHB lugJdlrLk[IHB dltHB dludlrKk԰dlsKk[jhlqIHB lqlsgJdl`lprJdlqIHB lqhj4IHB jIMH HHd22n2l1H +(JHHBAlJbIIHB jhHd !Hd22n2lHd HB h(502Q READ 473Q \BACKFILEPTR 435Q \BACKFILEPTR 422Q SKREADC 354Q \BACKFILEPTR 317Q \BACKFILEPTR 304Q SKREADC 263Q SKREADC 213Q SKREADC 135Q SKBRACKET 122Q SKREADC 70Q SKBRACKET 54Q SKREADC 43Q \GTREADTABLE 31Q ERROR 6 \GETSTREAM) (367Q STREAM 231Q %) 100Q %] 40Q FILERDTBL 3 INPUT) ( 25Q "SKREAD NOT LEGAL FROM TTY") SKBRACKET D1 (L (1 RDTBL 0 STRM) F 1 RRPTR) 9kQ@A dltHkԸdluHkXjhlqQ@A lq(60Q SKREADC 11Q SKREADC) NIL () SKREADC D1 (L (2 RDTBL 1 STRM 0 USERRPTRFLG) F 16Q RRPTR F 17Q REREADSTRING) | @WWdkc YhcA ^lAd ^lNBIlJɀIJɀ jJIXdlFBjWWdkc thcA [l#Ad [lKAd jl \2A LA2\nKA KdLKAdl Mdj𒿰lAi l A l Mkjlj IB YllIg HAd jl _2A OA2_nNA NdONA__dl +Odjl 0lAi l A l l l l Okl l OYB_IlOɀIOɀ jOIXddlFBjA _l)Ad _lOAd jl _2A _OA2_nOA OdOOA_dl Odj𒿰lAi l A l OkjljIB Yl Ig H(1167Q GETPROP 1150Q GETHASH 1105Q \PEEKBIN 771Q \NSIN.24BITENCODING.ERROR 667Q GETHASH 560Q \PEEKBIN 445Q \NSIN.24BITENCODING.ERROR 425Q GETPROP 402Q GETHASH 340Q \PEEKBIN 240Q \NSIN.24BITENCODING.ERROR 173Q NTHCHARCODE 120Q GETHASH 22Q NTHCHARCODE) (1164Q SKREAD 1143Q READTABLEP 716Q READTABLEP 662Q CHARTABLE 651Q CHARTABLE 631Q READTABLEP 422Q SKREAD 375Q READTABLEP 145Q READTABLEP 113Q CHARTABLE 103Q CHARTABLE 66Q READTABLEP) () FILEPOS D1 (L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 STR)) CDd F0`Ag @@dl,k@6dFdCjF @ b@@@_B#J0_"JkO"__C=J j3 jBhihiBl J0_ JkO _JB BjChiCJ O_$dO$O$OjCJ J CkOk_OhiO_OjIMN\HOk_J NkԾOk_ON_Odj__;_On_O_On_OOOn_OO(OOj_Ok_OO_jJO hLIJ Ok_N_Ok_O:IMO[IJ KHJd0_&JkO&ON Ok_EhiJd0_(JkO(O J0_*JkO*(1054Q \SETFILEPTR 1002Q \SETFILEPTR 663Q \SETFILEPTR 365Q \GETEOFPTR 360Q \GETEOFPTR 324Q \GETEOFPTR 302Q \SETFILEPTR 246Q \LISPERROR 217Q \GETEOFPTR 126Q MKSTRING 115Q CASEARRAY 27Q \GETSTREAM 5 CHCON1) (1066Q FDEV 1061Q STREAM 1034Q FDEV 1027Q STREAM 760Q FDEV 753Q STREAM 260Q FDEV 253Q STREAM 171Q FDEV 164Q STREAM 150Q STRINGP 141Q STRINGP 100Q ARRAYP 24Q INPUT 16Q ARRAYP 13Q \TRANSPARENT) () FFILEPOS D1 (L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 PATTERN)) A DH0jhi@dlk@@ b@@@[lJlKBH0_HkOBLKkؽH _C/3 jBhihiBl BjCOCk؀CKdOO^MhihldNMHM `ng `|lg `hlg FD`OO O"KkEIJKO*O&O(O$ Nd@H _l:8HkԸ]3 "@H _dl:'HkԸ^3 @H _LldܽLldۼO~OlAOlPOlaOdlpB@Hk dlMdlmOOlPOlpl L=Ll \7Ldl m\+l %hl Ol-_`_'h_LljMl;dN\KIkJLMNjO _OOOk O,Ol i!Ol dgOkٰgOOl;h(1230Q NTHCHAR 1215Q NTHCHAR 1200Q NTHCHAR 1154Q \PACKDATE 1075Q \IDATESCANTOKEN 763Q NTHCHARCODE 677Q NTHCHARCODE 661Q \IDATESCANTOKEN 641Q NTHCHARCODE 623Q \IDATESCANTOKEN 605Q NTHCHARCODE 567Q \IDATESCANTOKEN 133Q \IDATESCANTOKEN 76Q NTHCHARCODE 61Q \IDATESCANTOKEN 31Q NTHCHARCODE 14Q \IDATESCANTOKEN 4 DAYTIME) (1251Q S 1234Q D 1103Q TIME.ZONES 436Q DEC 425Q NOV 412Q OCT 400Q SEP 365Q AUG 353Q JUL 340Q JUN 326Q MAY 313Q APR 301Q MAR 266Q FEB 255Q JAN) () \IDATESCANTOKEN D1 (F 11Q POS F 12Q STR)  `WW Ydl WkcIl0JhiIJl9hi?Il0XWWkc Yhi&Il0KhiKl9hihiHl Il0ظHIl_lALhiLlZhilaIhiIlzhiIl_I0WWkc YhiNIl_lAMhiMlZhihi2laIhiIlzhiIl_I_O Oh_O&_N (405Q PACKC 254Q NTHCHARCODE 100Q NTHCHARCODE 11Q NTHCHARCODE) NIL () \OUTDATE D1 (L (2 STRING 1 FORMAT 0 UD)) @l-@AhiAdgl d_(dgi_gi_yO(dgi_ jgi_"_O(dgl/Qgl GO(dgi_8g``_&O(dgi_gi_$O(gi_&gOj@Zni_"lO"lJldܺl_l @\Okl@kؽO Ol Mkl_lO$1oHk _$O&O$kl _$lO$ _&l؀jlOj(OllOjlOj _dklk[dl ^OhiNOl Lkl_Lk NOk_I O NOO_MO NOkoM  Ol_NOk_I NOO_Jl OOk_O$&NKO&kl( NKO&O$ NKl) j_OhiNOlHl NOll: NOl_Hl OhiNOkl: NOl_Hl O-NOlO OkNOlHoo BNkmB N(1273Q SUBSTRING 1260Q RPLSTRING 1221Q RPLSTRING 1201Q \RPLRIGHT 1157Q RPLCHARCODE 1134Q \RPLRIGHT 1113Q RPLCHARCODE 1077Q \RPLRIGHT 1043Q RPLCHARCODE 1033Q RPLSTRING 1020Q RPLCHARCODE 765Q \RPLRIGHT 746Q RPLCHARCODE 722Q RPLSTRING 716Q NTH 677Q \RPLRIGHT 655Q RPLCHARCODE 641Q \RPLRIGHT 602Q ALLOCSTRING 554Q NCHARS 501Q NCHARS 466Q SUBSTRING 447Q NTH 45Q \LISPERROR) (267Q DAY.SHORT 253Q DAY.OF.WEEK 237Q NO.SECONDS 222Q TIME.ZONES 217Q \TimeZoneComp 212Q TIME.ZONE 176Q NO.LEADING.SPACES 161Q SPACES 146Q SLASHES 130Q YEAR.LONG 114Q NUMBER.OF.MONTH 76Q NO.TIME 61Q NO.DATE 33Q DATEFORMAT) ( 1255Q "ST" 1250Q "DT" 712Q ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 434Q ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday")) \RPLRIGHT D1 (L (3 MINDIGITS 2 N 1 AT 0 S)) 2@ABl l0 Ckl BhiAkBl Ckbbb(13Q RPLCHARCODE) NIL () \UNPACKDATE D1 (L (0 D)) @b`@ool @ll< Il<_Il