(FILECREATED "10-Jul-85 11:55:25" ("compiled on " {ERIS}SOURCES>LLCHAR.;20) " 4-Jul-85 14:48:59" recompiled changes: NCHARS STRING-EQUAL \FATTENSTRING GetBcplString SetBcplString in "" dated " 4-Jul-85 15:03:29") (FILECREATED "10-Jul-85 11:30:04" {ERIS}SOURCES>LLCHAR.;20 changes to: (VARS LLCHARCOMS) ( FNS NCHARS \FATTENSTRING GetBcplString SetBcplString STRING-EQUAL) previous date: " 7-Jul-85 13:28:35" {ERIS}SOURCES>LLCHAR.;19) ALLOCSTRING D1 (L (3 FATFLG 2 OLD 1 INITCHAR 0 N) P 12Q \INTERRUPTABLE) @jbj@dn@l AjjAA bCAl H@k؄@l BD Bd@IHkjdJCdjdhdj0dj djdkK,ld@IHkjdLCdjdkdMbAj"H!@kj_ONIOAOk_B@kj__OOIOAǿOk_(101Q \ALLOCBLOCK 45Q CHCON1 24Q \LISPERROR) (117Q STRINGP) () MKATOM D1 (L (0 X)) ;@d&@@@dl@l @Cjhi l@d3@ (70Q PACK* 50Q \MKATOM 33Q \LISPERROR) NIL () SUBATOM D1 (L (2 M 1 N 0 X)) ABB@dlk@ jh@ @ \LCjhiLLjHHLkظILjIILkعHj+HIh$ILhJKHkIHkdl@l M (215Q \MKATOM 211Q \LISPERROR 60Q MKSTRING) NIL () CHARACTER D1 (L (0 N)) d@dj@@ b@dl0`#lhdi H@Hjki Hhl9`@l l0@@l0`@(70Q \MKATOM 45Q ALLOCSTRING 15Q \ILLEGAL.ARG) (137Q \OneCharAtomBase 114Q \OneCharAtomBase 102Q \\PNAMESTRING.GLOBALRESOURCE 74Q \\PNAMESTRING.GLOBALRESOURCE 33Q \\PNAMESTRING.GLOBALRESOURCE) () MKNUMATOM D1 (L (3 FATP 2 LEN 1 BN 0 BASE)) ! AdBg HIJdgOgJdg$M@MNHLgJgll C jgJghO`NHLg_Ol Ml ؾOMNONkԾO@OHLgl C j_@MNOl C OONNOkj jC@H@H[dl-LhJgJggJ,l+LhJgJggJ Kdn!g"JgLgL``_glQJgHgKdlE-JgJgbOH_HLg_hgl.#H_Jdggg(gyl0KrKl9lJgJdgO Kl0Hkk_gGgJdgOKl0k_Hk_ggH_gJgghdHkX(266Q \FLOATINGSCALE 243Q \MKINTEGER 223Q \MKINTEGER 106Q \MKINTEGER) (1020Q INEXPONENT 1006Q INEXPONENT 1001Q INEXPONENT 770Q AFTERE 763Q INFRACTION 727Q AFTERINITIALDOT 720Q INFRACTION 713Q INITDIGIT 662Q INITDIGIT 653Q INIT 631Q INFRACTION 617Q INITDIGIT 611Q AFTERINITIALDOT 603Q INIT 562Q AFTERE 551Q - 525Q INFRACTION 517Q INITDIGIT 500Q AFTERQ 470Q INITDIGIT 455Q DONE 447Q MIN.INTEGER 443Q MAX.INTEGER 434Q + 425Q INIT 403Q + 375Q AFTERE 367Q INIT 344Q - 336Q AFTERE 330Q INIT 273Q FLOATP 213Q - 141Q - 122Q INEXPONENT 114Q INFRACTION 72Q AFTERQ 65Q - 44Q AFTERQ 35Q INITDIGIT 25Q DONE 6 INIT) () \MKINTEGER D1 (L (5 FATP 4 RADIX 3 NEG 2 END 1 START 0 BASE)) 3jABHE@A@Al0YmCHDIلHDIظAkbNIL NIL () MKSTRINGA0015 D1 (L (0 CODE) F 0 S F 1 J) BPCjhi@lPPQk@ǰPi PPQk@Qkc(47Q \SMASHABLESTRING) (57Q STRINGP 30Q STRINGP) () MKSTRING D1 (L (2 RDTBL 1 FLG 0 X) P 4 J P 3 S) A@dl@dlVl@HdI@HdIdkdk @ jkjHdICdjdkdldkdle`&l& `@dHI +hh``l `h`hHI Z kJ HI@AB kg@AB K(360Q \MAPCHARS 343Q ALLOCSTRING 340Q NCHARS 316Q RPLSTRING 311Q ALLOCSTRING 306Q NCHARS 302Q \CONVERTNUMBER 227Q \CONVERT.FLOATING.NUMBER 211Q CONCAT 201Q ALLOCSTRING) (352Q MKSTRINGA0015 327Q \\NUMSTR1.GLOBALRESOURCE 322Q \\NUMSTR.GLOBALRESOURCE 273Q \SIGNFLAG 264Q PRXFLG 256Q \PRINTRADIX 252Q PRXFLG 244Q \\NUMSTR.GLOBALRESOURCE 235Q \\NUMSTR1.GLOBALRESOURCE 204Q \\NUMSTR1.GLOBALRESOURCE 172Q \\NUMSTR.GLOBALRESOURCE) () BKSYSBUF D1 (L (2 RDTBL 1 FLG 0 X)) A@dl=j@2III jh\HkXKLJHJH Il;@AHkٺHJHعHCjhi\JkZILKJKJ g@AB @(216Q \MAPCHARS 201Q BKSYSCHARCODE 102Q BKSYSCHARCODE) (210Q BKSYSCHARCODE) () NCHARSA0001 D1 (F 0 N) PkcNIL NIL () NCHARS D1 (L (2 RDTBL 1 FLG 0 X) P 12Q N F 13Q \PRIMREADTABLE)  @dlA@j@BWi`BijU II_I jh_HkXO9ONHNH]ljJM_l@jhK Ol$jhhLkؼL@lWAP@@jRHkټHLHػHCjhiLk\KNMLMLZl"Jl%IkعIl@j g@AB O(403Q \MAPCHARS) (375Q NCHARSA0001 52Q READTABLEP 45Q \SYSREADTABLE) () NTHCHARCODEA0001 D1 (L (0 CODE) F 0 M) Pkcj g@ (17Q RETFROM) (13Q NTHCHARCODE) () NTHCHARCODE D1 (L (3 RDTBL 2 FLG 1 N 0 X) P 0 M) AABs@dl"@@@@Cjh%i"lF@@k@ jhjHHLkظkH;HL6KIJHkIJHkHjjHkH@BC kXg@BC h(227Q \MAPCHARS 210Q NCHARS) (221Q NTHCHARCODEA0001 36Q STRINGP 27Q STRINGP) () RPLCHARCODE D1 (L (2 CHAR 1 N 0 X)) c@dW@@BBl jAAHkbkAAHAl @Cjhi@@AkIJKBJKB@ AB+(135Q MKSTRING 63Q \LISPERROR 31Q \SMASHABLESTRING) NIL () \RPLCHARCODE D1 (L (2 CHAR 1 N 0 X)) }@d@ j@l ?Adj@Al *BdjBBl Bl@Cjhi@i @Cjhi@@AkHIJBIJB@(121Q \SMASHABLESTRING 71Q \LISPERROR 47Q \LISPERROR 22Q \LISPERROR) (143Q STRINGP 35Q STRINGP) () NTHCHAR D1 (L (3 RDTBL 2 FLG 1 N 0 X)) AQB@dl"@@@@Cjh%i"ll@@k@ jhjHHKkظkHHKhLIJHkIJHk]dl l9`Ml l0MMl0`M@ABC Xd$dll9`Hl l0HHl0`H(246Q NTHCHARCODE 201Q CHARACTER) (312Q \OneCharAtomBase 267Q \OneCharAtomBase 234Q \OneCharAtomBase 211Q \OneCharAtomBase 40Q STRINGP 31Q STRINGP) () RPLSTRING D1 (L (2 Y 1 N 0 X)) @@ B H[IdlkII jh I IIIICjhi_MAjAkقKA_KBl HO HZOH_OJOLNMİGHCjhi1NMkNO OOJOLOOk_Ok_LNJOM H(326Q \MOVEBYTES 164Q \SMASHABLESTRING 155Q \LISPERROR 73Q MKSTRING 10Q MKSTRING) (176Q STRINGP) () SUBSTRING D1 (L (3 OLDPTR 2 M 1 N 0 X) P 7 \INTERRUPTABLE) @ABCHdlHH jhk!H HHCjhiHHjIINkعJNjJJNkغIjIJJNzCldjCdjdkbHlCk CLCKkjC#CdHj CHCKkjCHkCJIkCIMkCkCh(61Q MKSTRING) NIL () GNC D1 (L (0 X) P 3 \INTERRUPTABLE) m0@d<@Xjh@Cjhi@@Y@@Y@Ik@Hkk)Zdl l9`Jl l0JJl0`J(115Q CHARACTER) (150Q \OneCharAtomBase 125Q \OneCharAtomBase) () GNCCODE D1 (L (0 X) P 2 \INTERRUPTABLE) G @d<@Xjh@Cjhi@@Y@@Y@Ik@Hkk)NIL NIL () GLC D1 (L (0 X)) g @d5@kXmh@Cjhi@H@@H@@Hm)Ydl l9`Il l0IIl0`I(107Q CHARACTER) (142Q \OneCharAtomBase 117Q \OneCharAtomBase) () GLCCODE D1 (L (0 X)) A@d5@kXmh@Cjhi@H@@H@@Hm)NIL NIL () STREQUAL D1 (L (1 Y 0 X)) j@A@HAh@@@CjhiAAACjhiHjiKIJIJNLMLMJkԺMkԽHmXNIL NIL () STRING-EQUAL D1 (L (1 Y 0 X)) H @dl@k@ jh.@@@@CjhiAdl$IAhAkA jhIAAAACjhi_`Cj`XLOiIKN k_OYLJOJO_OMOMO_OdlOlOOHOHO^Ok_Ok_Ok԰iIKN k_OHJOHMO'Ok_Ok_Ok԰(232Q UPPERCASEARRAY) (241Q UPPERCASEARRAY 235Q UPPERCASEARRAY 221Q ARRAYP 216Q UPPERCASEARRAY) () CHCON1 D1 (L (0 X)) j@dl2@jh$@Cjhi@@@@l*@jh@d j@k@k)NIL (63Q STRINGP 46Q STRINGP 14Q STRINGP) () U-CASE D1 (L (0 X)) L@dl`Klhdi Hj@jT K_K_K jh_JkZONGIjLi ?hOOJOJ½ILlaMMdlzl ^M OOOLkԼ@Hdl@Cjhi@js Ik_I_OIؾICjhi_@hdH ]Ok_NDOOOOO»HLJlaKKdlzl ـK OOOOOOOJkԺMl@ @@ @(506Q U-CASE 475Q U-CASE 342Q ALLOCSTRING 126Q \MKATOM 27Q ALLOCSTRING) (332Q STRINGP 232Q \\PNAMESTRING.GLOBALRESOURCE 134Q \\PNAMESTRING.GLOBALRESOURCE 15Q \\PNAMESTRING.GLOBALRESOURCE) () L-CASE D1 (L (1 FLG 0 X)) x @dl`Klhdi Hj@jT K_K_K jh_JkZON^IjLi VhOOJOJ½lAMMlZAhbMl ذAlaMMlzhbMl ]ILMLkԼ@Hdl@Cjhi@js Ik_I_OIؾICjhi_@hdH ]Ok_NVOOOOO»lAKKlZAhbKl ذAlaKKlzhbKl ٻHLJKLJKǿJkԺMl@A @@A @(562Q L-CASE 550Q L-CASE 371Q ALLOCSTRING 126Q \MKATOM 27Q ALLOCSTRING) (361Q STRINGP 261Q \\PNAMESTRING.GLOBALRESOURCE 134Q \\PNAMESTRING.GLOBALRESOURCE 15Q \\PNAMESTRING.GLOBALRESOURCE) () U-CASEP D1 (L (0 X)) @dlFj@BIII jhHkXLMKHKHºlaJJlzhidlD@QHkٻHKHغHCjhiKk[JMLKLK¹laIIlzhl@ @h@bW(235Q U-CASEP) NIL () \SMASHABLESTRING D1 (L (1 FATP 0 STR)) /@ j@A dCjhi A@Cjhi@ @(53Q \FATTENSTRING 30Q \MAKEWRITABLESTRING) NIL () \MAKEWRITABLESTRING D1 (L (1 NEWFATP 0 STR) P 7 \INTERRUPTABLE) z@@CjhiRHj[A&I&dl KjNM6JNHNNk^IAo IKk؄Kl\k ZHLĿ@j @J@AkjC@(132Q \ALLOCBLOCK 106Q SHOULDNT 41Q \ALLOCBLOCK) NIL ( 103Q "\MAKEWRITABLESTRING confused.") \SMASHSTRING D1 (L (3 NC 2 SOURCE 1 POS 0 DEST)) CBbA@b@CjhigBCjhi@ABBCıC@BAkEJk_J_OJؾOk_NOO½LHIKMKkԻLkԼmBCjhiRC@BAkEJk_J_OJؾOk_N'OOLHMlIKMǿKkԻLkԼBB@AC @(352Q \MOVEBYTES 311Q SHOULDNT) NIL () \FATTENSTRING D1 (L (0 STR) P 6 \INTERRUPTABLE) Bi@BI [ ZKkjMLJMIMMk]@J@j @kC@(17Q \ALLOCBLOCK 12Q \#BLOCKDATACELLS) NIL () \GETBASESTRING D1 (L (3 FATP 2 NCHARS 1 BYTEOFFSET 0 BASE)) "BhdC @AHHCBB H(36Q \MOVEBYTES 6 ALLOCSTRING) (22Q STRINGP) () \PUTBASESTRING D1 (L (3 FATP 2 SOURCE 1 BYTEOFFSET 0 BASE)) BdlSC"@ABBBBCjhi BCjhioB BB@ABb BlOC!@ABkBB jh Bd joB k@ABb B@AB bbbF(260Q MKSTRING 250Q \MOVEBYTES 222Q ERROR 176Q \PUTBASESTRINGFAT 126Q \MOVEBYTES 76Q ERROR 52Q \PUTBASESTRINGFAT) (116Q STRINGP 106Q STRINGP 32Q STRINGP 24Q STRINGP) ( 216Q "Fat string in \PUTBASESTRING" 72Q "Fat string in \PUTBASESTRING") \PUTBASESTRINGFAT D1 (L (5 FATP 4 LEN 3 SOFFSET 2 SBASE 1 DBYTEOFFSET 0 DBASE)) 8EBC@AD DDkjAIH@Jjǿ@JkBCIǿIkԹJlԺ(14Q \MOVEBYTES) NIL () GetBcplString D1 (L (1 ATOMFLG 0 BASE)) %@jAHl@kH @kH YAd I(40Q MKATOM 31Q \GETBASESTRING 22Q \MKATOM) NIL () SetBcplString D1 (L (1 STR 0 BASE)) !A Hl@l @jHǿ@kA @(35Q \PUTBASESTRING 21Q \LISPERROR 3 NCHARS) NIL () (PRETTYCOMPRINT LLCHARCOMS) (RPAQQ LLCHARCOMS ((FNS ALLOCSTRING MKATOM SUBATOM CHARACTER MKNUMATOM \MKINTEGER MKSTRING BKSYSBUF NCHARS NTHCHARCODE RPLCHARCODE \RPLCHARCODE NTHCHAR RPLSTRING SUBSTRING GNC GNCCODE GLC GLCCODE STREQUAL STRING-EQUAL CHCON1 U-CASE L-CASE U-CASEP \SMASHABLESTRING \MAKEWRITABLESTRING \SMASHSTRING \FATTENSTRING \UPDATE.SUBSTRINGS) (COMS (* Temporary) (P (MOVD? (QUOTE STRING-EQUAL) (QUOTE STRING.EQUAL) NIL T))) (FNS \GETBASESTRING \PUTBASESTRING \PUTBASESTRINGFAT GetBcplString SetBcplString) (DECLARE: DONTCOPY (COMS (* Kludge not currently in effect) (DECLARE: EVAL@COMPILE ( ADDVARS (DONTCOMPILEFNS \UPDATE.SUBSTRINGS)))) (EXPORT (RECORDS STRINGP) (GLOBALVARS \OneCharAtomBase) (RESOURCES \NUMSTR \NUMSTR1 \PNAMESTRING) (CONSTANTS (\FATPNAMESTRINGP T)) (MACROS \PNAMESTRINGPUTCHAR) (PROP DMACRO FCHARACTER) (I.S.OPRS inpname inatom instring) (* For use when the inner-loop test in the generic operators is too expensive) (I.S.OPRS infatatom inthinatom infatstring inthinstring) (MACROS \CHARCODEP \FATCHARCODEP \THINCHARCODEP) (* For benefit of Masterscope) (MACROS \GETBASEFAT \GETBASETHIN \PUTBASEFAT \PUTBASETHIN) (MACROS \PUTBASECHAR \GETBASECHAR) (MACROS \CHARSET \CHAR8CODE) (CONSTANTS (\ST.INDIRECT 3) (\CHARMASK 255) (\MAXCHAR 255) (\MAXTHINCHAR 255) ( \MAXFATCHAR 65535) (\MAXCHARSET 255) (NSCHARSETSHIFT 255) (#STRINGPWORDS 4)) (MACROS \NATOMCHARS \NSTRINGCHARS))) (INITRESOURCES \NUMSTR \NUMSTR1 \PNAMESTRING) (P (MOVD? (QUOTE CHARACTER) (QUOTE FCHARACTER) NIL T)) (COMS (FNS COPYSTRING) (* For MAKEINIT) (DECLARE: DONTCOPY (ADDVARS (INEWCOMS (FNS ALLOCSTRING COPYSTRING)) (EXPANDMACROFNS \PUTBASETHIN \PUTBASEFAT \CHARCODEP \GETBASECHAR \GETBASETHIN \GETBASEFAT \PUTBASECHAR) (DONTCOMPILEFNS COPYSTRING)))) (LOCALVARS . T))) (MOVD? (QUOTE STRING-EQUAL) (QUOTE STRING.EQUAL) NIL T) (/SETTOPVAL (QUOTE \\NUMSTR.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\NUMSTR1.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\PNAMESTRING.GLOBALRESOURCE)) (MOVD? (QUOTE CHARACTER) (QUOTE FCHARACTER) NIL T) (PUTPROPS LLCHAR COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL