(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "28-Apr-2022 08:52:36" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>sources>LLCHAR.;13) "26-Apr-2022 22:23:34" "COMPILE-FILEd" in "FULL 26-Apr-2022 ..." dated "26-Apr-2022 22:23:40") (FILECREATED "28-Apr-2022 08:52:36" {DSK}kaplan>Local>medley3.5>my-medley>sources>LLCHAR.;13 104756 :CHANGES-TO (I.S.OPRS inpname) :PREVIOUS-DATE "23-Apr-2022 17:19:02" {DSK}kaplan>Local>medley3.5>my-medley>sources>LLCHAR.;12) (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 U-CASEP \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) (* ;; "Iterators expose control variables, $$OFFSET corresponds to current character (except inside user's repeatwhile or repeatuntil)" ) (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) (%#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) ¦@jØbj@ñ¥dnÿÿñ˜@l ¿AµjŒ“jAñ˜A b¿CµAlÿñÁH“@kØ„@lØââ ¹B ´‚±© h½BjÏ¿BjÏ¿Bh¿BH‘k€j¼»Ldjð“¿lCkð’lD‰o ºKdÊjð¦J ƒJÏ‡¿Bl@¿Bl@¿Bd˜¿B@h¿BdÊjð¦j ‚jÍ¿BjÏ@¿BjÏP¿BjÏ`¿BjÏp¿B]jÏ¿MI°c_¿ldh¿djÏ¿dkÏ0¿djÏP¿H‘k€jkð’lDlC¾dNÏ‡¿djÍ¿@_¿dlO¿dlO¿_djÏ¿OI¿b¿Ajð³%H²$@kÙj_¿_¿OOó¯IOÐAÍ¿OkÔ_°îB@kÙj_¿_¿OOó³ïIOAÇ¿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¿@dÊjð¥ É@dÊjð¥ È@l dlÿñ˜¿@l @dÊjð¥ ‚Ê‡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»@ÁÊ jðhð½@ÁÉÊ°N µ@ \dÊjð¥ ÉºLdÊjð¥ ‚Ê‡lDð½LdÊjð¥ È»Ll ¼jHñ•HLØkØ¸I¡LˆjIñ•ILØkØ¹Hjñ´0HIñhð´)ILñhð´"JKHØmÿØIHÙkØdlÿñ˜¿@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)) Ž@d•¿j@ñ˜@ b¿@dlÿñ²T¿`µlÿhdiHdÊjð® Šh¿°èÉ@Í¿HdÊjð¥ ÉjkiH¿l9ñš`@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*) ÊE¤W,b ¿AdBØgE`ðhð´EÊ jðhðô0DµK’W.l bl óšlADlÙØ¾l9…l0DkÙØ½KµE`ðhð´EÊjðhð¼HIð¢±ïJgð³JgðªJdgð²;¿O¡jO"ž@OHODC @OJgð£HkÙ€HOgðDC gð¬Jgð´‚±äO²{O®H_¿Ogð_¿Ol ñ²Ol Ø_¿OOñœOOñ–OkÔ_¿O²@OHOgðl C €j_@OOOl C OOOÙØOOñ‘k€jØ jC•@HÐÈ‚@HÂ_dl-ð².¿Ohð´‚±BJgð¬Jgð´‚±-g_¿J±#l+ð²-Ohð´‚±Jgð¬Jgð´‚±ýg_¿J±óOl.ð¢±žH_¿Jdgð˜¿g±Ôgð²$O ’±ÅK²l b¿h_"¿g±²g±ªJgð´‚±›K´‚±”O’±IkÙHkØ_&¿_$¿O&O$ó³C–@O&ÐÈƒ@O&Âl.ð¡hˆO&kÔ_&°âi´‚±Y@ABC±Ol0Oñ’±ªOdl9ñ’±¢¿JgðªJdgð²)¿OMó“i_"¿OµOl0ðªH_¿kkÔ_¿g±gð³JgðªJdgð²#¿OµOl0ðk_¿H_¿„kÔ_¿g±Çgð›H_¿g±´Jgð´‚±¥g±ŸOlzñ’±•LlaOñ§Ol Ù_¿N²FlAOñ³?OdNñ³:¿O³3Jgð¬Jgð´‚±Yi_ ¿OµH_¿k_¿g±CkÔ°óOlQð² Jgð´‚±)lb¿h_"¿g±OlEð³!L²bOlDð³OlFð®OlLð¨OdlSð²I¿O ³BJgð³Jgð¬Jgð´‚±ÐO£H_¿H_¿Ogð_¿h_¿g±°Ol/ð´‚±£L´‚±œJgð´‚±HkØIð’±‡IkÙHkØ_*¿_(¿O*O(ó³BC–@O*ÐÈƒ@O*Â_l0ýñ³#OMñ²N´TlAOñ³laOñ¥Ol ÙONñ‘hˆO*kÔ_*°½i´/O¢±ü@OHOgðDC @HkØIhDC hd²ýºHkØX±û§(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@ABCh(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@E’Aà€ABAÕED @ABCgðl 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)) …jQABð‘Hj¹l»ABð³FKjð³AE•@AÐÈ‚@AÂZl.ð³)lAJñªl Jl_ålAÙØƒJl0ÙºC•IDÚJÙ„IDÚJØ¹KkÙ»AkØb°ºHjð’I°$M¦DddÚ\Ú½HKdjð’¿MŒkð‘L‡Klð‘D€kÚIØ¸°‚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¿@ÁÉÊ¹dkÏ¿dkÏ0¿dkÏP¿@ÁÊ jð¡k€jkð’lDlC»dKÏ‡¿dkÍ¿I¸dlH¿dlH¿°Ã²k@Ó €hµ[`² WHdœ¿kHñ¦Hdl$ñ–¿H l Ad²B•Bdið˜¿W‡WA´Hl ðhðH$ @ (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) Alÿó“ic¿PkÔcNIL 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 c¿QkÔcPÊjð¦P ƒPÊ‡lDð²/PÊjð¦P ‚PÉPÊjð¦P ‚PÈQØmÿØÐAÍAAlÿñ³,PÊjð¦P ‚PÉPÊjð¦P ‚PÈQØmÿØAÇP PÊjð¦P ‚PÉPÊjð¦P ‚PÈQØmÿØÐAÍA(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*) Ù @dlð©dkð¥dlð²r`µ0l€ `µ@d²HI°%h¿°çh¿°ÒWhW´WHI Z kJH¿I¿¿jdkC W²_¿@ ¿O£h_¿g@ Ožk½gO ¿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@ð²<¿k@2IÁÉZÊ»IÁÊ jðhð¼HKñ“±ÙL•JHÐÈ‚JHÂ ¿HkØX°ä ²j@AHdÊjð¥ ÈºHdÊjð¥ É»JmÿØHl Ø¹HdÊjð¥ ‚Ê‡lDð¼JIñ³L•KJÐÈ‚KJÂ ¿JkØZ°ç°RWWA²;Bµ,`_`ð³)Og ½Og ¾‹dið‘¿M½g@AB@(261 \MAPPNAME 234 PROCESS.EVALV 221 PROCESS.EVALV 171 BKSYSCHARCODE 142 %%ARRAY-TYPE-NUMBER 127 \GETBASEFIXP 111 %%ARRAY-BASE 94 %%ARRAY-OFFSET 75 STRINGP 63 BKSYSCHARCODE) (253 BKSYSBUFA0001 247 READTABLEP 229 *PACKAGE* 216 *READTABLE* 206 \RUNNING.PROCESS 199 \TTY.PROCESS) () NCHARSA0001 :D8 (F 0 NCHARCNT) PkÔcNIL NIL () NCHARS :D8 (L (2 RDTBL 1 FLG 0 X) P 0 NCHARCNT F 9 *READTABLE*) Ð j@dd3@ð²¿A¨@ÁÉÊg@ABH ²ì@l A¢±”l@B•Bdið’¿WÊ‡jSIdÊjð¥ È¾IdÊjð¥ É_¿NmÿØIl Ø½IdÊjð¥ ‚Ê‡lDð_¿NMñ³(O–ONÐÈƒONÂ\l"ð¨Ll ð£LJð“KkØ»NkØ^°ØKØ€jØ(146 %%ARRAY-TYPE-NUMBER 131 \GETBASEFIXP 113 %%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) PkÙcjð´ gA (19 RETFROM) (13 NTHCHARCODE) () NTHCHARCODE :D8 (L (3 RDTBL 2 FLG 1 N 0 X) P 0 M) ÎAAB˜Hjð¢±œh@d ²D¿@dÊjð¥ É¹@l ¼@dÊjð¥ Èº@dÊjð¥ ‚Ê‡lDð°#d3@ð²¨@ÁÉ¹@ÁÉÊ¼kº@ÁÊ jðhð»jHñ•HLØkØ¸kHñ³„HLñ’±ÿ~K™IJHØkÙÐÈIJHØkÙÂjHñ²kH@BCØkØXñ’±ÿRg@BCh(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 @B´Blÿñ jAñ—AHØkØb¿kAñ£AHñ˜Al ¿@dÊjð¥ ‚Ê‡lDð@dÊjð¥ É@dÊjð¥ ÈAkÙØI–JKÐBÍƒJKBÇ@ b±ÿm(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 °8Bd•¿jBñ™Bl °$Blÿñ²@dÊjð¥ ‚Ê‡lDð§@i ¿@dÊjð¥ ‚Ê‡lDð@dÊjð¥ É@dÊjð¥ ÈAkÙØH–IJÐBÍƒIJBÇ@(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)) =@ABCHd²-dlÿñ• l9ñš`Hl ÙÐl0Hñ¤Hl0Ù`HÐ(25 CHARACTER 8 NTHCHARCODE) (56 \OneCharAtomBase 35 \OneCharAtomBase) () RPLSTRING :D8 (L (2 Y 1 N 0 X)) B @ µ@ B‚ Hl [Idd3@ð² ¿IÁÉ¼k¾IÁÉÊ½IÁÊ jðhð°N ¦I ¹IdÊjð¥ É¼IdÊjð¥ È¾Il ½IdÊjð¥ ‚Ê‡lDð_¿MAjó“AkÙ‚KAÔ_ÔKóŸOKó‘A€Bl ¿HO HdÊjð¥ ÉZOHdÊjð¥ ÈÔ_OšJOÐLNÐMÄ°SHdÊjð¥ ‚Ê‡lDð²1NMÔkÙNOOOó³JOÐLOÂÍ¿OkÔ_¿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) =@ABóHdd3@ð² ¿HÁÉ¼HÁÉÊ¾HÁÊ jðhð»k°Pd §¿H XÊjð¦H ‚HÉ¼Hl ¾HdÊjð¥ ‚Ê‡lDð»HdÊjð¥ È½jIñ•INØkØ¹J¡NˆjJñ•JNØkØºIjñ´‚±¢IJñ’±šJNñ’±“C ¢±óh_¿CjÏ¿CjÏ¿Ch¿CHd3@ð_¿K‘k€j_¿_¿Odjð“¿lCkð’lD‰o _¿OdÊjð§O „OÏ‡¿CJIÙkØ_¿_lO¿OlO¿O˜OOh¿CIMØmÿØ_¿_¿Ojð¦OkÏP¿OdÊjð§O ƒOÍ¿CjÏ@¿CjÏP¿CjÏ`¿CjÏp¿C_O‘k€jÏ¿OjÏ¿OL¿±”@ldh¿djÏ¿dkÏ0¿Hd3@ð_&¿IMØmÿØ_*jðhð_ ¿dO ‘k€jÏP¿K‘k€jkð’lDlC_"¿dO"Ï‡¿dO*Í¿JIÙkØ_(¿dlO(¿dlO(¿_,dO&‘k€jÏ¿O,jÏ¿O,L¿bCh(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 ÙÐl0Hñ¤Hl0Ù`HÐ(22 CHARACTER 5 GNCCODE) (53 \OneCharAtomBase 32 \OneCharAtomBase) () GNCCODE :D8 (L (0 X) P 6 \INTERRUPTABLE) Â@d ¢±²¿@l @dÊjð¥ ÈBHjð’±@dÊjð¥ ‚Ê‡lDð²@dÊjð¥ ÉIÐÈ°@dÊjð¥ ÉIÂ@IkØ»ºKjð¥JkÏP¿JdÊjð¦K ‚KÍ¿@HkÙ½\lM¿LlM¿L–LMh¿hk (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 ÙÐl0Hñ¤Hl0Ù`HÐ(22 CHARACTER 5 GLCCODE) (53 \OneCharAtomBase 32 \OneCharAtomBase) () GLCCODE :D8 (L (0 X) P 1 \INTERRUPTABLE) ž@d ¢±¿@l kÙHmÿð³v@dÊjð¥ ‚Ê‡lDð²)@dÊjð¥ ÉH@dÊjð¥ ÈØÐÈ°%@dÊjð¥ ÉH@dÊjð¥ ÈØÂ@kÏ`¿@lHhmÿ (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 ð´‚±“@dÊjð¥ É@dÊjð¥ È@dÊjð¥ ‚Ê‡lDðAdÊjð¥ ÉAdÊjð¥ ÈAdÊjð¥ ‚Ê‡lDðJjð²#Mjð²K³N³Hdjð‘imÿÔ¸IHÂLHÂð³îhHjð³ìK•IJÐÈ‚IJÂN•LMÐÈ‚LMÂð´ãJkÔºMkÔ½HmÿÔX°Ö(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 (2 CASEARRAY 1 Y 0 X)) Z @dd3@ð² ¿@ÁÉÊ¹@ÁÉºk»@ÁÊ jðhð°Jd ²Z¿@l ¹@dÊjð¥ Éº@dÊjð¥ È»@dÊjð¥ ‚Ê‡lDð¼Add3@ð²i¿IAÁÉÊð³Hh bd²÷l ¹@dÊjð¥ Éº@dÊjð¥ È»@dÊjð³§ °£AÁÉ½k¾AÁÊ jðhð°K ²vIAl ð´–AdÊjð¥ É½AdÊjð¥ È¾AdÊjð¥ ‚Ê‡lDð_¿Bµ `bÊjð³rBd`ð²b¿b°ZA b´‚±ÿ!IAl ð´‚±ÿAdÊjð¥ É½AdÊjð¥ È¾AdÊjð³ ±ÿ} ¿BÉXL£O²iIKN k_Oó³YL–JOÐÈƒJOÂ_¿O–MOÐÈƒMOÂ_¿Odlÿñ¨¿Olÿñ”OO‡HOÂHOÂð´‚±þ}OkÔ_¿OkÔ_¿OkÔ°¤iIKN k_Oó³òHJOÂÂHMOÂÂð´‚±þFOkÔ_¿OkÔ_¿OkÔ°Ô(433 \ILLEGAL.ARG 425 %%ARRAY-TYPE-NUMBER 407 %%ARRAY-OFFSET 390 %%ARRAY-BASE 370 \GETBASEFIXP 353 MKSTRING 338 UPPERCASEARRAY 290 %%ARRAY-TYPE-NUMBER 273 %%ARRAY-OFFSET 256 %%ARRAY-BASE 240 \GETBASEFIXP 229 STRINGP 202 %%ARRAY-TYPE-NUMBER 184 %%ARRAY-OFFSET 167 %%ARRAY-BASE 153 \GETBASEFIXP 141 MKSTRING 105 %%ARRAY-TYPE-NUMBER 88 %%ARRAY-OFFSET 71 %%ARRAY-BASE 57 \GETBASEFIXP 46 STRINGP) (343 UPPERCASEARRAY 329 UPPERCASEARRAY 315 ARRAYP 308 UPPERCASEARRAY) () STRINGP :D8 (L (0 OBJECT)) @d‘¿ƒ´ @Ê0jðhð´@NIL NIL () CHCON1 :D8 (L (0 X)) «@d ²m¿@l jðhð´]@dÊjð¥ ‚Ê‡lDð²&@dÊjð¥ É@dÊjð¥ ÈÐÈ@dÊjð¥ É@dÊjð¥ ÈÂd3@ð²*@ÁÉÊjðhð´@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@ð¢±Ë¿`µ'lÿhdi@ÁÊ jðhðHdÊjð® Šh¿°ÞÉk@jU LÁÉ_Ê_¿LÁÊ jðhð_¿KOñ³HO–OKÐÈƒOKÂ¾IJMlaNñ«Ndlzñ¦màØ_€NO™OOÐOÍ†OOOÇKkØ»MkÔ½°¶O®@d `ð©¿JjMIH¿ ¢±Ú@dÊjð¥ ‚Ê‡lDð@js IdÊjð¥ È_¿IdÊjð¥ É_¿OmÿØIl Ø¾IdÊjð¥ ‚Ê‡lDð_¿@l hdH]dÊjð¥ É¼ONñ³KO—OOÐÈ„OOÂ»HLJlaKñ©Kdlzñ¤màØ€K O™OOÐOÍ†OOOÇOkØ_¿JkÔº°³M@d² @´ @ (455 U-CASE 444 U-CASE 348 %%ARRAY-BASE 335 ALLOCSTRING 327 \GETBASEFIXP 309 %%ARRAY-TYPE-NUMBER 294 \GETBASEFIXP 275 %%ARRAY-BASE 256 %%ARRAY-OFFSET 231 %%ARRAY-TYPE-NUMBER 214 STRINGP 200 \MKATOM 183 CL:SYMBOL-PACKAGE 53 %%ARRAY-BASE 27 ALLOCSTRING) (207 \\PNAMESTRING.GLOBALRESOURCE 188 *INTERLISP-PACKAGE* 60 \\PNAMESTRING.GLOBALRESOURCE 15 \\PNAMESTRING.GLOBALRESOURCE) () L-CASE :D8 (L (1 FLG 0 X)) ñ@dd3@ð¢±Þ¿`µ'lÿhdi@ÁÊ jðhðHdÊjð® Šh¿°ÞÉk@jU LÁÉ_Ê_¿LÁÊ jðhð_¿KOñ³[O–OKÐÈƒOKÂ¾lANñ³NlZñ¬A•hb¿°!Nl °A²laNñ³Nlzñ«hb¿NmàØ^_¿I–JMÐNÍƒJMNÇ¿KkØ»MkÔ½°£O®@d `ð©¿JjMIH¿ ¢±ë@dÊjð¥ ‚Ê‡lDð@js IdÊjð¥ È_¿IdÊjð¥ É_¿OmÿØIl Ø¾IdÊjð¥ ‚Ê‡lDð_¿@l hdH]dÊjð¥ É¼ONñ³\O—OOÐÈ„OOÂ»lAKñ³KlZñ¬A•hb¿°Kl °A²laKñKlzñ¨hb¿KmàØ»H–LJÐKÍƒLJKÇ¿OkØ_¿JkÔº°¢M@d²A @´ @A (493 L-CASE 481 L-CASE 367 %%ARRAY-BASE 354 ALLOCSTRING 346 \GETBASEFIXP 328 %%ARRAY-TYPE-NUMBER 313 \GETBASEFIXP 294 %%ARRAY-BASE 275 %%ARRAY-OFFSET 250 %%ARRAY-TYPE-NUMBER 233 STRINGP 219 \MKATOM 202 CL:SYMBOL-PACKAGE 53 %%ARRAY-BASE 27 ALLOCSTRING) (226 \\PNAMESTRING.GLOBALRESOURCE 207 *INTERLISP-PACKAGE* 60 \\PNAMESTRING.GLOBALRESOURCE 15 \\PNAMESTRING.GLOBALRESOURCE) () U-CASEP :D8 (L (0 X)) Ö@dd3@ð²B¿k@BIÁÉ[Ê¼IÁÊ jðhð½HLñ’±—M•KHÐÈ‚KHÂºlaJñ¦Jlzñ¡hHkØX°Þ ²m@QHdÊjð¥ È»HdÊjð¥ É¼KmÿØHl ØºHdÊjð¥ ‚Ê‡lDð½KJñ³#M•LKÐÈ‚LKÂ¹laIñ¥Ilzñ´KkØ[°á@µi ´ù@hðµó@b±ÿ/(197 U-CASEP 143 %%ARRAY-TYPE-NUMBER 128 \GETBASEFIXP 112 %%ARRAY-BASE 95 %%ARRAY-OFFSET 76 STRINGP) NIL () \SMASHABLESTRING :D8 (L (1 FATP 0 STR)) J@Êjð³#@AµddÊjð§¿d ‚Ê‡lDð ° A²@dÊjð¥ ‚Ê‡lDð¥@ @(70 \FATTENSTRING 56 %%ARRAY-TYPE-NUMBER 38 \MAKEWRITABLESTRING 26 %%ARRAY-TYPE-NUMBER) NIL () \MAKEWRITABLESTRING :D8 (L (1 NEWFATP 0 STR)) '@ A²@dÊjð¥ ‚Ê‡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)) Ö CªBl b¿A@dÊjð¥ ÈÔb@dÊjð¥ ‚Ê‡lDð¢±ÊBdÊjð¥ ‚Ê‡lDð²:@dÊjð¥ ÉAÐBdÊjð¥ ÉBdÊjð¥ ÈÐCÄ±OC@dÊjð¥ ÉBAkEJdÊjð¥ È_¿JdÊjð¥ É_¿OmÿØJl Ø¾ONñ³%OOÂ½LHó³IKÐMÍ¿OkØ_¿KkÔ»LkÔ¼°Ù±ÖBdÊjð¥ ‚Ê‡lDð¢±†C@dÊjð¥ ÉBAkEJdÊjð¥ È_¿JdÊjð¥ É_¿OmÿØJl Ø¾ONñ³0OOÐÈ½LHó³#Mlÿñ•¿IKMÇ¿OkØ_¿KkÔ»LkÔ¼°Î°:BdÊjð¥ ÉBdÊjð¥ È@dÊjð¥ ÉAC @(466 \MOVEBYTES 455 %%ARRAY-BASE 439 %%ARRAY-OFFSET 423 %%ARRAY-BASE 384 SHOULDNT 353 \GETBASEFIXP 334 %%ARRAY-BASE 315 %%ARRAY-OFFSET 293 %%ARRAY-BASE 268 %%ARRAY-TYPE-NUMBER 208 \GETBASEFIXP 189 %%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@AHdÊjð¥ ÉHdÊjð¥ ÈC’Bà€B H(57 \MOVEBYTES 42 %%ARRAY-OFFSET 26 %%ARRAY-BASE 8 ALLOCSTRING) NIL () \PUTBASESTRING :D8 (L (3 FATP 2 SOURCE 1 BYTEOFFSET 0 BASE)) ±Bd ¢±ÿ¿C²G@ABdÊjð¥ ÉBdÊjð¥ ÈBl BdÊjð¥ ‚Ê‡lDð BdÊjð¥ ‚Ê‡lDð²kBABHdÊjð¥ È¼HdÊjð¥ É½LmÿØHl Ø»LKñ³'MLÐÈZlÿñ¤@IJÇŠoB ¿LkØ¼IkÔ¹°ØBl BdÊjð¥ ÉBdÊjð¥ È@ABl b Bd3@ð¢±C²#@ABÁÉkBÁÉÊBÁÊ jðhð BdÁÊ jð³G¿kBA3IÁÉ\Ê½HMñ³'LHÐÈ[lÿñ¤@JKÇŠoB ¿HkØ¸JkÔº°ØBÁÉÊÁÉk@ABÁÉÊb B@AB b¿b¿b¿±þS(419 MKSTRING 409 \MOVEBYTES 365 ERROR 305 \PUTBASESTRINGFAT 260 \MOVEBYTES 252 \GETBASEFIXP 239 %%ARRAY-OFFSET 223 %%ARRAY-BASE 209 \GETBASEFIXP 189 ERROR 156 \GETBASEFIXP 140 %%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 ( 359 "Fat string in \PUTBASESTRING" 183 "Fat string in \PUTBASESTRING") \PUTBASESTRINGFAT :D8 (L (5 FATP 4 LEN 3 SOFFSET 2 SBASE 1 DBYTEOFFSET 0 DBASE)) :EžBCà@ADà DDkÙjAIHó³ó@JjÇ¿@JkØBCIØÂÇ¿IkÔ¹JlÔº°â(14 \MOVEBYTES) NIL () GetBcplString :D8 (L (1 ATOMFLG 0 BASE)) +@jÂAHlÿñ¨@kH@kHYA–d 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) (PUTPROPS LLCHAR FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS LLCHAR COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1994 2018 2021)) NIL