(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 17:53:43" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLCHAR.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 16:04:12" "{Pele:mv:envos}Sources>CLTL2>LLCHAR.;2" 112937 previous date%: "30-Jul-91 15:22:33" "{Pele:mv:envos}Sources>CLTL2>LLCHAR.;1") (RPAQQ LLCHARCOMS ((FNS ALLOCSTRING MKATOM SUBATOM CHARACTER \PARSE.NUMBER \INVALID.DOTTED.SYMBOL \INVALID.INTEGER \MKINTEGER MKSTRING \PRINDATUM.TO.STRING BKSYSBUF NCHARS NTHCHARCODE RPLCHARCODE \RPLCHARCODE NTHCHAR RPLSTRING SUBSTRING GNC GNCCODE GLC GLCCODE STREQUAL STRING.EQUAL STRINGP CHCON1 U-CASE L-CASE FLIP-CASE U-CASEP L-CASEP U-CASE-STRINGS \SMASHABLESTRING \MAKEWRITABLESTRING \SMASHSTRING \FATTENSTRING) (COMS (* ; "Temporary until low level system is changed to call STRING.EQUAL again") (P (MOVD? (QUOTE STRING.EQUAL) (QUOTE STRING-EQUAL) NIL T) (MOVD? (QUOTE STRING.EQUAL) (QUOTE CL::SIMPLE-STRING-EQUAL) NIL T))) (FNS \GETBASESTRING \PUTBASESTRING \PUTBASESTRINGFAT GetBcplString SetBcplString) (DECLARE%: DONTCOPY (EXPORT (RECORDS STRINGP) (GLOBALVARS \OneCharAtomBase) (RESOURCES \NUMSTR \NUMSTR1 \PNAMESTRING) (CONSTANTS (\FATPNAMESTRINGP T)) (MACROS \PNAMESTRINGPUTCHAR) (OPTIMIZERS 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 (\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 %%COPY-ONED-ARRAY %%COPY-STRING-TO-ARRAY) (* ; "For MAKEINIT") (DECLARE%: DONTCOPY (ADDVARS (INEWCOMS (FNS ALLOCSTRING %%COPY-ONED-ARRAY %%COPY-STRING-TO-ARRAY)) (* "So %%COPY-ONED-ARRAY will compile properly") (INEWCOMS (FILES (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)) (EXPANDMACROFNS \PUTBASETHIN \PUTBASEFAT \CHARCODEP \GETBASECHAR \GETBASETHIN \GETBASEFAT \PUTBASECHAR) (DONTCOMPILEFNS %%COPY-ONED-ARRAY %%COPY-STRING-TO-ARRAY)))) (DECLARE%: DONTCOPY EVAL@COMPILE (LOCALVARS . T)) (* ;; "Arrange for the proper compiler") (PROP FILETYPE LLCHAR))) ALLOCSTRING :D8 (L (3 FATFLG 2 OLD 1 INITCHAR 0 N) P 13 \INTERRUPTABLE) @jbj@dn@l AjjAA bCAl H@k؄@l B  hBjBjBhBHkjLdjlCklDo KdjJ JBl@ Bl@ BdB@hBdjj jBj@BjPBj`BjpB]jMIc_ldhdjdk0djPHkjklDlCdNdj@_dlO dlO _djOIbAj%H$@kj__OOIOAOk_B@kj__OOIOAǿOk_(329 \PUTBASEFIXP 318 \PUTBASEFIXP 207 %%SET-ARRAY-OFFSET 179 \PUTBASEFIXP 169 \PUTBASEFIXP 154 %%SET-ARRAY-TYPE-NUMBER 139 SHOULDNT 78 STRINGP 71 \ALLOCBLOCK 41 CHCON1 22 \LISPERROR) NIL ( 134 "Unknown typ value") MKATOM :D8 (L (0 X)) m@d S@dj @dj @l dl@l @dj lD d3@@d3@ (106 PACK* 88 \MKATOM 76 %%ARRAY-TYPE-NUMBER 63 \LISPERROR 49 \GETBASEFIXP 38 %%ARRAY-OFFSET 22 %%ARRAY-BASE 6 STRINGP) NIL () SUBATOM :D8 (L (2 M 1 N 0 X)) ABB@dd3@ @k@ jh@N @ \dj Ldj lDLdj Ll jHHLkظILjIILkعHj0HIh)ILh"JKHmIHkdl@l M (194 \MKATOM 188 \LISPERROR 118 \GETBASEFIXP 106 %%ARRAY-OFFSET 85 %%ARRAY-TYPE-NUMBER 68 %%ARRAY-BASE 55 MKSTRING 47 STRINGP) NIL () CHARACTER :D8 (L (0 N)) @dj@@ b@dlT`lhdi Hdj h@Hdj jki Hl9`@l l0@@l0`@(99 \MKATOM 88 %%ARRAY-BASE 59 %%ARRAY-BASE 43 ALLOCSTRING 15 \ILLEGAL.ARG) (137 \OneCharAtomBase 116 \OneCharAtomBase 105 \\PNAMESTRING.GLOBALRESOURCE 66 \\PNAMESTRING.GLOBALRESOURCE 31 \\PNAMESTRING.GLOBALRESOURCE) () \PARSE.NUMBER :D8 (L (5 RDTBL 4 RADIX 3 FATP 2 LEN 1 BN 0 BASE) F 22 *READTABLE* F 23 *READ-BASE*) EW,b AdBgE`hE jh0D KW.l bl lADl ؾl9l0DkؽKE`hEjhHIJgJgJdg;OjO"@OHODC @OJgHkـHOgDC gJgO{OH_Og_Ol Ol _OOOOOk_O@OHOgl C j_@OOOl C OOOOOkj jC@H@H_dl-.OhBJgJg-g_J#l+-OhJgJgg_JOl.H_Jdggg$O Kl bh_"ggJgKOIkHk_&_$O&O$C@O&@O&l.hO&k_&iY@ABC Ol0OOdl9JgJdg)OMi_"OOl0H_kk_ggJgJdg#OOl0k_H_k_ggH_gJggOlzLlaOOl _NFlAO?OdN:O3JgJgYi_ OH_k_gCk԰OlQ Jg)lbh_"gOlE!LbOlDOlFOlLOdlSIO BJgJgJgOH_H_Og_h_gOl/LJgHkIIkHk_*_(O*O(BC@O*@O*_l0#OMNTlAOlaOOl فONhO*k_*i/O@OHOgDC @HkIhDC  hdHkX(1211 CL::%%/ 1206 \MKINTEGER 1192 \MKINTEGER 622 \INVALID.DOTTED.SYMBOL 342 \FLOATINGSCALE 319 \MKINTEGER 299 \MKINTEGER 197 \MKINTEGER 164 \INVALID.INTEGER) (1183 - 1064 INITDIGIT 1037 AFTERE 1024 - 999 AFTERMIDDLEDOT 991 INFRACTION 982 INITDIGIT 931 AFTERQ 910 INITDIGIT 890 INITDIGIT 862 INITDIGIT 854 INIT 798 INEXPONENT 786 INEXPONENT 777 INEXPONENT 766 AFTERE 758 INFRACTION 725 AFTERMIDDLEDOT 716 AFTERINITIALDOT 707 INFRACTION 699 INITDIGIT 660 INITDIGIT 651 INIT 540 AFTERINITIALDOT 531 INFRACTION 523 AFTERMIDDLEDOT 497 INITDIGIT 489 AFTERINITIALDOT 481 INIT 454 + 442 AFTERE 434 INIT 406 - 394 AFTERE 386 INIT 349 FLOATP 289 - 236 - 211 INEXPONENT 203 INFRACTION 188 - 174 INITDIGIT 138 AFTERMIDDLEDOT 129 AFTERQ 120 INITDIGIT 99 READTABLEP 88 \ORIGREADTABLE 32 READTABLEP 21 \ORIGREADTABLE 15 INIT) () \INVALID.DOTTED.SYMBOL :D8 (L (3 FATP 2 LEN 1 START 0 BASE)) oo@ABC h(23 CL:CERROR 18 \GETBASESTRING) NIL ( 9 "Invalid symbol consisting entirely of dots ~S" 4 "Treat the dots as if they were escaped") \INVALID.INTEGER :D8 (L (5 FATP 4 RADIX 3 SIGN 2 END 1 START 0 BASE)) 7ooC@EAABAE D @ABCgl E (52 \MKINTEGER 33 CL:CERROR 26 \GETBASESTRING) (42 -) ( 9 "Invalid integer %"~@[~A~]~A%" in read base ~D" 4 "Treat the number as if in decimal radix") \MKINTEGER :D8 (L (5 FATP 4 RADIX 3 NEG 2 END 1 START 0 BASE)) jQABHjlABFKjAE@A@AZl.)lAJl Jl_lA؃Jl0ٺCIDJلIDJعKkٻAkbHjI$MDdd\ڽHKdjMkLKlDkIظNIL NIL () MKSTRING :D8 (L (2 RDTBL 1 FLG 0 X) P 9 *PRINT-LEVEL* P 8 *PRINT-LENGTH* P 7 *PRINT-BASE* P 6 *PRINT-RADIX* P 5 *READTABLE* P 4 *PRINT-ESCAPE* F 10 *READTABLE* F 11 *PRINT-BASE*) A@d @dd3@h@l@dJ@dkdk0dkP@ jkjklDlCdKdkIdlH dlH k@ h[` WHdkHHdl$H l AdBBdiWWAHl hH$ @ (239 \PRINDATUM.TO.STRING 185 \INVALID.RADIX 146 ALLOCSTRING 122 \PUTBASEFIXP 112 \PUTBASEFIXP 11 STRINGP) (217 READTABLEP 211 READTABLEP 155 PRXFLG 140 CHARACTER 131 CHARACTER) () \PRINDATUM.TO.STRINGA0001 :D8 (L (1 CODE 0 DUMMY) F 0 STRINGLEN F 1 FATSTRINGP) AlicPkcNIL NIL () \PRINDATUM.TO.STRINGA0002 :D8 (L (1 VAL 0 KEY) F 0 *PRINT-CIRCLE-HASHTABLE*) A3@Pg (16 CL::PUTHASH) (11 T2) () \PRINDATUM.TO.STRINGA0003 :D8 (L (1 CODE 0 DUMMY) F 0 STRINGPTR F 1 STRINDEX) QdPl Po cQkcPjP PlD/PjP PPjP PQmAAAl,PjP PPjP PQmAP PjP PPjP PQmAA(183 %%ARRAY-OFFSET 166 %%ARRAY-BASE 153 \FATTENSTRING 135 %%ARRAY-OFFSET 118 %%ARRAY-BASE 84 %%ARRAY-OFFSET 67 %%ARRAY-BASE 44 %%ARRAY-TYPE-NUMBER 23 CONCAT 9 \GETBASEFIXP) NIL ( 18 " ") \PRINDATUM.TO.STRING :D8 (L (0 X) P 9 THERE-ARE-CIRCLES P 8 *PRINT-CIRCLE-HASHTABLE* P 7 STRINGPTR P 6 FATSTRINGP P 5 *PRINT-CIRCLE-NUMBER* P 4 STRINDEX P 3 STRINGLEN F 10 *PRINT-BASE* F 11 *PRINT-RADIX* F 12 *READTABLE* F 13 *PRINT-CIRCLE*) @dldkdlr`0l `@dHI %hhWhWWHI Z kJ HIjdkC W_@ Oh_g@ OkgO KhdN _g@ O(212 \MAPPNAME.INTERNAL 199 ALLOCSTRING 189 CL:MAPHASH 172 \MAPPNAME.INTERNAL 153 PRINT-CIRCLE-SCAN 144 CL:MAKE-HASH-TABLE 113 RPLSTRING 106 ALLOCSTRING 101 NCHARS 95 \CONVERTNUMBER 58 \CONVERT.FLOATING.NUMBER 42 CONCAT 30 ALLOCSTRING) (206 \PRINDATUM.TO.STRINGA0003 182 \PRINDATUM.TO.STRINGA0002 166 \PRINDATUM.TO.STRINGA0001 126 \\NUMSTR1.GLOBALRESOURCE 119 \\NUMSTR.GLOBALRESOURCE 75 \\NUMSTR.GLOBALRESOURCE 66 \\NUMSTR1.GLOBALRESOURCE 35 \\NUMSTR1.GLOBALRESOURCE 21 \\NUMSTR.GLOBALRESOURCE) () BKSYSBUFA0001 :D8 (L (1 CODE 0 DUMMY)) A (5 BKSYSCHARCODE) NIL () BKSYSBUF :D8 (L (2 RDTBL 1 FLG 0 X) P 6 *PACKAGE* P 5 *READTABLE* F 8 *READTABLE* F 9 *PACKAGE*) A@dd3@;j@2IZI jh\HkXKLJHJH h@AHdj kٺHdj JHl عHdj lD\JkZILKJKJ RWWA;B,`_`)Og Og diMg@AB @(258 \MAPPNAME 231 PROCESS.EVALV 218 PROCESS.EVALV 173 BKSYSCHARCODE 140 %%ARRAY-TYPE-NUMBER 125 \GETBASEFIXP 112 %%ARRAY-BASE 93 %%ARRAY-OFFSET 74 STRINGP 67 BKSYSCHARCODE) (250 BKSYSBUFA0001 244 READTABLEP 226 *PACKAGE* 213 *READTABLE* 203 \RUNNING.PROCESS 196 \TTY.PROCESS) () NCHARSA0001 :D8 (F 0 NCHARCNT) PkcNIL NIL () NCHARS :D8 (L (2 RDTBL 1 FLG 0 X) P 0 NCHARCNT F 9 *READTABLE*) j@dd3@A@g@AB H @l Al@BBdiWjSIdj kپIdj _NIl ؽIdj lD_Nk^M%OONON\l"Ll LJKkػK؀j(145 %%ARRAY-TYPE-NUMBER 130 \GETBASEFIXP 115 %%ARRAY-BASE 96 %%ARRAY-OFFSET 53 \GETBASEFIXP 43 STRINGP 36 \MAPPNAME) (76 READTABLEP 28 NCHARSA0001) () NTHCHARCODEA0001 :D8 (L (1 CODE 0 DUMMY) F 0 M) Pkcj gA (19 RETFROM) (13 NTHCHARCODE) () NTHCHARCODE :D8 (L (3 RDTBL 2 FLG 1 N 0 X) P 0 M) AABHjh@d D@dj @l @dj @dj lD#d3@@@k@ jhjHHLkظkHHL~KIJHkIJHkjHkH@BC kXRg@BC h(202 \MAPPNAME 180 NCHARS 80 %%ARRAY-TYPE-NUMBER 63 %%ARRAY-OFFSET 49 \GETBASEFIXP 37 %%ARRAY-BASE 21 STRINGP) (194 NTHCHARCODEA0001) () RPLCHARCODE :D8 (L (2 CHAR 1 N 0 X)) @d @l @BBl jAAHkbkAAHAl @dj lD@dj @dj AkIJKBJKB@ bm(145 MKSTRING 115 %%ARRAY-OFFSET 99 %%ARRAY-BASE 79 %%ARRAY-TYPE-NUMBER 65 \LISPERROR 37 \SMASHABLESTRING 19 \GETBASEFIXP 6 STRINGP) NIL () \RPLCHARCODE :D8 (L (2 CHAR 1 N 0 X)) @d @j@l QAdj@l Al 8BdjBBl $Bl@dj lD@i @dj lD@dj @dj AkHIJBIJB@(154 %%ARRAY-OFFSET 138 %%ARRAY-BASE 118 %%ARRAY-TYPE-NUMBER 104 \SMASHABLESTRING 89 %%ARRAY-TYPE-NUMBER 68 \LISPERROR 48 \LISPERROR 38 \GETBASEFIXP 23 \LISPERROR 6 STRINGP) NIL () NTHCHAR :D8 (L (3 RDTBL 2 FLG 1 N 0 X)) =@ABC Hd-dl l9`Hl l0HHl0`H(25 CHARACTER 8 NTHCHARCODE) (56 \OneCharAtomBase 35 \OneCharAtomBase) () RPLSTRING :D8 (L (2 Y 1 N 0 X)) B @ @ B Hl [Idd3@ IkII jhN I Idj Idj Il Idj lD_MAjAkقKA_KOKABl HO Hdj ZOHdj _OJOLNMİSHdj lD1NMkNO OOJOLOOk_Ok_LNJOM H(318 \MOVEBYTES 250 %%ARRAY-TYPE-NUMBER 217 %%ARRAY-OFFSET 198 %%ARRAY-BASE 185 \SMASHABLESTRING 176 \LISPERROR 133 %%ARRAY-TYPE-NUMBER 119 \GETBASEFIXP 107 %%ARRAY-OFFSET 90 %%ARRAY-BASE 76 MKSTRING 69 STRINGP 25 \GETBASEFIXP 13 MKSTRING 5 STRINGP) NIL () SUBSTRING :D8 (L (3 OLDPTR 2 M 1 N 0 X) P 18 \INTERRUPTABLE) =@ABHdd3@ HHH jhkPd H XjH HHl Hdj lDHdj jIINkعJNjJJNkغIjIJJNC h_CjCjChCHd3@_Kkj__OdjlCklDo _OdjO OCJIk__lO OlO OOOhCIMm__OjOkPOdjO OCj@CjPCj`CjpC_OkjOjOL@ldhdjdk0Hd3@_&IMm_*jh_ dO kjPKkjklDlC_"dO"dO*JIk_(dlO( dlO( _,dO&kjO,jO,LbCh(537 \PUTBASEFIXP 526 \PUTBASEFIXP 363 %%SET-ARRAY-OFFSET 307 \PUTBASEFIXP 295 \PUTBASEFIXP 268 %%SET-ARRAY-TYPE-NUMBER 249 SHOULDNT 178 STRINGP 118 %%ARRAY-OFFSET 97 %%ARRAY-TYPE-NUMBER 83 \GETBASEFIXP 70 %%ARRAY-BASE 57 MKSTRING 49 STRINGP) NIL ( 244 "Unknown typ value") GNC :D8 (L (0 X)) :@ Hd-dl l9`Hl l0HHl0`H(22 CHARACTER 5 GNCCODE) (53 \OneCharAtomBase 32 \OneCharAtomBase) () GNCCODE :D8 (L (0 X) P 6 \INTERRUPTABLE) @d @l @dj BHj@dj lD@dj I@dj I@IkػKjJkPJdjK K@Hkٽ\lM LlM LLMhhk (191 NTHCHARCODE 169 \PUTBASEFIXP 159 \PUTBASEFIXP 140 %%SET-ARRAY-OFFSET 102 %%ARRAY-BASE 80 %%ARRAY-BASE 58 %%ARRAY-TYPE-NUMBER 32 %%ARRAY-OFFSET 19 \GETBASEFIXP 6 STRINGP) NIL () GLC :D8 (L (0 X)) :@ Hd-dl l9`Hl l0HHl0`H(22 CHARACTER 5 GLCCODE) (53 \OneCharAtomBase 32 \OneCharAtomBase) () GLCCODE :D8 (L (0 X) P 1 \INTERRUPTABLE) @d @l kHmv@dj lD)@dj H@dj %@dj H@dj @k`@lH hm (155 NTHCHARCODE 144 \PUTBASEFIXP 121 %%ARRAY-OFFSET 104 %%ARRAY-BASE 82 %%ARRAY-OFFSET 65 %%ARRAY-BASE 43 %%ARRAY-TYPE-NUMBER 19 \GETBASEFIXP 6 STRINGP) NIL () STREQUAL :D8 (L (1 Y 0 X)) @ A @l HAl @dj @dj @dj lDAdj Adj Adj lDJj#MjKNHdjimԸIHLHhHjKIJIJNLMLMJkԺMkԽHmX(147 %%ARRAY-TYPE-NUMBER 131 %%ARRAY-OFFSET 115 %%ARRAY-BASE 95 %%ARRAY-TYPE-NUMBER 79 %%ARRAY-OFFSET 63 %%ARRAY-BASE 43 \GETBASEFIXP 31 \GETBASEFIXP 17 STRINGP 5 STRINGP) NIL () STRING.EQUAL :D8 (L (1 Y 0 X))  @dd3@ @@k@ jhH W@l @dj @dj @dj lDAdd3@$IAhAkA jhK IAl Adj Adj Adj lD_`j`XLOiIKN k_OYLJOJO_OMOMO_OdlOlOOHOHO(Ok_Ok_Ok԰iIKN k_OHJOHMOOk_Ok_Ok԰(250 UPPERCASEARRAY 219 %%ARRAY-TYPE-NUMBER 202 %%ARRAY-OFFSET 185 %%ARRAY-BASE 169 \GETBASEFIXP 158 STRINGP 103 %%ARRAY-TYPE-NUMBER 86 %%ARRAY-OFFSET 69 %%ARRAY-BASE 55 \GETBASEFIXP 45 STRINGP) (261 UPPERCASEARRAY 255 UPPERCASEARRAY 239 ARRAYP 234 UPPERCASEARRAY) () STRINGP :D8 (L (0 OBJECT)) @d @0jh@NIL NIL () CHCON1 :D8 (L (0 X)) @d m@l jh]@dj lD&@dj @dj @dj @dj d3@*@jh@d j@k@k (168 NTHCHARCODE 110 %%ARRAY-OFFSET 94 %%ARRAY-BASE 74 %%ARRAY-OFFSET 58 %%ARRAY-BASE 36 %%ARRAY-TYPE-NUMBER 17 \GETBASEFIXP 6 STRINGP) NIL () U-CASE :D8 (L (0 X)) @dd3@`lhdi Hdj hj@jT K__K jh_JkZO7OOJOJ½ILlaMMdlzm^M OOOLkԼN@d `IjLi H @dj lD@js Idj k_Idj _OIl ؾIdj lD_@l hdH ]dj Ok_NDOOOOO»HLJlaKKdlzm؀K OOOOOOOJkԺM@d @ @ (426 U-CASE 415 U-CASE 322 %%ARRAY-BASE 309 ALLOCSTRING 301 \GETBASEFIXP 283 %%ARRAY-TYPE-NUMBER 268 \GETBASEFIXP 252 %%ARRAY-BASE 231 %%ARRAY-OFFSET 206 %%ARRAY-TYPE-NUMBER 189 STRINGP 175 \MKATOM 158 CL:SYMBOL-PACKAGE 43 %%ARRAY-BASE 27 ALLOCSTRING) (182 \\PNAMESTRING.GLOBALRESOURCE 163 *INTERLISP-PACKAGE* 50 \\PNAMESTRING.GLOBALRESOURCE 15 \\PNAMESTRING.GLOBALRESOURCE) () L-CASE :D8 (L (1 FLG 0 X))  @dd3@ȿ`lhdi Hdj hj@jT K__K jh_JkZOMOOJOJ½lAMMlZAhbMl AlaMMlzhbMm]ILMLkԼN@d `IjLi H @dj lD@js Idj k_Idj _OIl ؾIdj lD_@l hdH ]dj Ok_NUOOOOO»lAKKlZAhbKl AlaKKlzhbKmػHLJKLJKǿJkԺM@dA @ @A (467 L-CASE 455 L-CASE 344 %%ARRAY-BASE 331 ALLOCSTRING 323 \GETBASEFIXP 305 %%ARRAY-TYPE-NUMBER 290 \GETBASEFIXP 274 %%ARRAY-BASE 253 %%ARRAY-OFFSET 228 %%ARRAY-TYPE-NUMBER 211 STRINGP 197 \MKATOM 180 CL:SYMBOL-PACKAGE 43 %%ARRAY-BASE 27 ALLOCSTRING) (204 \\PNAMESTRING.GLOBALRESOURCE 185 *INTERLISP-PACKAGE* 50 \\PNAMESTRING.GLOBALRESOURCE 15 \\PNAMESTRING.GLOBALRESOURCE) () FLIP-CASE :D8 (L (0 X)) @dd3@ÿ`lhdi Hdj hj@jT K__K jh_JkZOHOOJOJ½ILlaMMlzMm^lAMMdlZm^M OOOLkԼN@d `IjLi H @dj lD@js Idj k_Idj _OIl ؾIdj lD_@l hdH ]dj Ok_NSOOOOO»HLJlaKKlzKm؏lAKKdlZmـK OOOOOOOJkԺM@d @ @ (458 FLIP-CASE 447 FLIP-CASE 339 %%ARRAY-BASE 326 ALLOCSTRING 318 \GETBASEFIXP 300 %%ARRAY-TYPE-NUMBER 285 \GETBASEFIXP 269 %%ARRAY-BASE 248 %%ARRAY-OFFSET 223 %%ARRAY-TYPE-NUMBER 206 STRINGP 192 \MKATOM 175 CL:SYMBOL-PACKAGE 43 %%ARRAY-BASE 27 ALLOCSTRING) (199 \\PNAMESTRING.GLOBALRESOURCE 180 *INTERLISP-PACKAGE* 50 \\PNAMESTRING.GLOBALRESOURCE 15 \\PNAMESTRING.GLOBALRESOURCE) () U-CASEP :D8 (L (0 X)) @dd3@Aj@BI[I jhHkXLMKHKHºlaJJlzh l@QHdj kٻHdj KHl غHdj lDKk[J MLKLK¹laIIlzh@i @h@b1(195 U-CASEP 141 %%ARRAY-TYPE-NUMBER 126 \GETBASEFIXP 113 %%ARRAY-BASE 94 %%ARRAY-OFFSET 75 STRINGP) NIL () L-CASEP :D8 (L (0 X)) @dd3@Aj@BI[I jhHkXLMKHKHºlAJJlZh l@QHdj kٻHdj KHl غHdj lDKk[J MLKLK¹lAIIlZh@i @h@b1(195 L-CASEP 141 %%ARRAY-TYPE-NUMBER 126 \GETBASEFIXP 113 %%ARRAY-BASE 94 %%ARRAY-OFFSET 75 STRINGP) NIL () U-CASE-STRINGS :D8 (L (0 X)) @d @ d ֿ@dj lD@js Idj k_Idj _OIl ؾIdj lD_@l hdH ]dj Ok_NDOOOOO»HLJlaKKdlzm؀K OOOOOOOJkԺM(158 %%ARRAY-BASE 145 ALLOCSTRING 137 \GETBASEFIXP 119 %%ARRAY-TYPE-NUMBER 104 \GETBASEFIXP 88 %%ARRAY-BASE 67 %%ARRAY-OFFSET 42 %%ARRAY-TYPE-NUMBER 24 STRINGP 16 U-CASE-STRINGS 9 U-CASE-STRINGS) NIL () \SMASHABLESTRING :D8 (L (1 FATP 0 STR)) J@j#@Addjd lD A@dj lD@ @(70 \FATTENSTRING 56 %%ARRAY-TYPE-NUMBER 38 \MAKEWRITABLESTRING 26 %%ARRAY-TYPE-NUMBER) NIL () \MAKEWRITABLESTRING :D8 (L (1 NEWFATP 0 STR)) '@ A@dj lD@ @(35 %%MAKE-STRING-ARRAY-FAT 21 %%ARRAY-TYPE-NUMBER 5 %%MAKE-ARRAY-WRITEABLE) NIL () \SMASHSTRING :D8 (L (3 NC 2 SOURCE 1 POS 0 DEST))  CBl bA@dj b@dj lDBdj lD:@dj ABdj Bdj CıGC@dj BAkEJdj k_Jdj _OJl ؾOk_NOO½LHIKMKkԻLkԼBdj lDC@dj BAkEJdj k_Jdj _OJl ؾOk_N)OOLHMlIKMǿKkԻLkԼ:Bdj Bdj @dj AC @(458 \MOVEBYTES 447 %%ARRAY-BASE 431 %%ARRAY-OFFSET 415 %%ARRAY-BASE 383 SHOULDNT 348 \GETBASEFIXP 332 %%ARRAY-BASE 311 %%ARRAY-OFFSET 289 %%ARRAY-BASE 264 %%ARRAY-TYPE-NUMBER 207 \GETBASEFIXP 191 %%ARRAY-BASE 170 %%ARRAY-OFFSET 148 %%ARRAY-BASE 125 %%ARRAY-OFFSET 109 %%ARRAY-BASE 91 %%ARRAY-BASE 69 %%ARRAY-TYPE-NUMBER 45 %%ARRAY-TYPE-NUMBER 26 %%ARRAY-OFFSET 9 \GETBASEFIXP) NIL () \FATTENSTRING :D8 (L (0 STR)) @ (5 %%MAKE-STRING-ARRAY-FAT) NIL () (MOVD? (QUOTE STRING.EQUAL) (QUOTE STRING-EQUAL) NIL T) (MOVD? (QUOTE STRING.EQUAL) (QUOTE CL::SIMPLE-STRING-EQUAL) NIL T) \GETBASESTRING :D8 (L (3 FATP 2 NCHARS 1 BYTEOFFSET 0 BASE)) =BhdC @AHdj Hdj CBB H(57 \MOVEBYTES 42 %%ARRAY-OFFSET 26 %%ARRAY-BASE 8 ALLOCSTRING) NIL () \PUTBASESTRING :D8 (L (3 FATP 2 SOURCE 1 BYTEOFFSET 0 BASE)) Bd CG@ABdj Bdj Bl Bdj lD Bdj lDiBABHdj kټHdj LHl ػLk\K#MLZl@IJNJoB IkԹBl Bdj Bdj @ABl b Bd3@C#@ABkBB jh Bd jFjBA3I\HkXM#LH[l@JKNJoB JkԺBk@ABb B@AB bbbV(416 MKSTRING 406 \MOVEBYTES 366 ERROR 303 \PUTBASESTRINGFAT 258 \MOVEBYTES 250 \GETBASEFIXP 237 %%ARRAY-OFFSET 221 %%ARRAY-BASE 207 \GETBASEFIXP 191 ERROR 155 \GETBASEFIXP 142 %%ARRAY-BASE 123 %%ARRAY-OFFSET 96 %%ARRAY-TYPE-NUMBER 82 \PUTBASESTRINGFAT 69 %%ARRAY-TYPE-NUMBER 56 \GETBASEFIXP 45 %%ARRAY-OFFSET 29 %%ARRAY-BASE 6 STRINGP) NIL ( 360 "Fat string in \PUTBASESTRING" 185 "Fat string in \PUTBASESTRING") \PUTBASESTRINGFAT :D8 (L (5 FATP 4 LEN 3 SOFFSET 2 SBASE 1 DBYTEOFFSET 0 DBASE)) :EBC@AD DDkjAIH@Jjǿ@JkBCIǿIkԹJlԺ(14 \MOVEBYTES) NIL () GetBcplString :D8 (L (1 ATOMFLG 0 BASE)) +@jAHl@kH @kH YAd I(38 MKATOM 29 \GETBASESTRING 20 \MKATOM) NIL () SetBcplString :D8 (L (1 STR 0 BASE)) 'A Hl@l @jHǿ@kA @(35 \PUTBASESTRING 21 \LISPERROR 5 NCHARS) NIL () (/SETTOPVAL (QUOTE \\NUMSTR.GLOBALRESOURCE) NIL) (/SETTOPVAL (QUOTE \\NUMSTR1.GLOBALRESOURCE) NIL) (/SETTOPVAL (QUOTE \\PNAMESTRING.GLOBALRESOURCE) NIL) (MOVD? (QUOTE CHARACTER) (QUOTE FCHARACTER) NIL T) %%COPY-ONED-ARRAY :D8 (L (0 LOCAL-ARRAY)) @l @@@Jjo K_dlCjblDj[Odl&kPlVjIOdl6j>jj8Odlj-lj&OdljljgOo ko HJK_dlCljlDlbOdl&l VlVl NOdl6l Bjk