304 lines
22 KiB
Plaintext
304 lines
22 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "28-Mar-2026 08:50:21" ("compiled on " {WMEDLEY}<sources>LLCHAR.;16)
|
||
"17-Mar-2026 00:23:19" "COMPILE-FILEd" in "FULL 17-Mar-2026 ..." dated "17-Mar-2026 00:23:27")
|
||
(FILECREATED "28-Mar-2026 08:50:21" {WMEDLEY}<sources>LLCHAR.;16 104725 :EDIT-BY rmk :CHANGES-TO (VARS
|
||
LLCHARCOMS) :PREVIOUS-DATE "24-Aug-2025 11:50:57" {WMEDLEY}<sources>LLCHAR.;14)
|
||
(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) (\MAXTHINCHAR 255)
|
||
(\MAXFATCHAR 65535) (\MAXCHARSET 65535) (\MAXCHAR (LOGOR (LLSH \MAXCHARSET 8) \MAXTHINCHAR)) (
|
||
%#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Øb j@ñ¥dnÿÿñ˜@l
|
||
¿AµjŒ“jAñ˜A b¿CµAlÿñÁ H“@kØ„@lØââ ¹B ´‚± ©
|
||
h½BjÏ ¿BjÏ¿Bh ¿BH‘k€j¼»Ldjð“¿lC<6C>kð’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_¿l dh ¿djÏ ¿dkÏ0¿djÏP¿H‘k€jkð’lD<6C>lC¾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ð¥ <00>É @dÊjð¥ <00>È@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ð¥ <00>É ºLdÊj𥠂ʇlDð½LdÊjð¥ <00>È»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ÿhdi HdÊjð® Šh ¿°èÉ @Í ¿HdÊjð¥ <00>É jki H ¿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Øg E` ðhð´E Ê jðhðô0Dµ K’W.<2E>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 ð_¿O l ñ² Ol Ø_¿OOñœOOñ–OkÔ_¿O²@OHOg ðl
|
||
C
|
||
€j_ @OOOl
|
||
C
|
||
O OOÙØOOñ‘k€jØ
|
||
j C•@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’±<02>IkÙHkØ_&¿_$¿O&O$ó³ C–@O&ÐÈ ƒ@O&Âl.ð¡hˆO&kÔ_&°âi´‚±Y@ABC ±Ol0Oñ’± ªOdl9ñ’± ¢¿Jg ðªJdg ð²)¿OMó“i_"¿O µOl0ðªH_¿k<C2BF>kÔ_ ¿g ±g ð³Jg ðªJdg ð²#¿O µOl0ðk_ ¿H_¿„kÔ_ ¿g ±Çg ð›H_¿g ±´Jg ð´‚±¥g ±ŸOlzñ’±•L<E280A2>laOñ§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 ð´‚± <00>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)) o o @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)) 7 o o C@E’Aà€ABAÕE D
|
||
@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ð’lD<6C>lC»dKχ¿dkÍ¿I¸dlH ¿dlH ¿°Ã ²k@ Ó
|
||
€hµ[` ² W Hdœ¿kHñ¦Hdl$ñ–¿H <12>l
|
||
Ad²B•Bdið˜¿W ‡ <00>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Ôc NIL
|
||
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 kJ H ¿I ¿¿jdkC W² _¿@ ¿O£h_¿g @
|
||
Ožk½g O
|
||
¿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ð¥ <00>ȺHdÊjð¥ <00>É »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Ôc NIL
|
||
NIL
|
||
()
|
||
NCHARS :D8
|
||
(L (2 RDTBL 1 FLG 0 X) P 0 NCHARCNT F 9 *READTABLE*) Ð j @dd3@ð² ¿A¨@ÁÉ Ê g @AB H ²ì@l
|
||
A¢± ”l@B•Bdið’¿W ʇjSIdÊjð¥ <00>ȾIdÊjð¥ <00>É _¿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Ùc jð´
|
||
g A
|
||
(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ð¥ <00>É ¹@l
|
||
¼@dÊjð¥ <00>Ⱥ@dÊj𥠂ʇlDð°#d3@ð²¨@ÁÉ ¹@ÁÉ Ê ¼kº@ÁÊ jðhð»jHñ•HLØkظkHñ³„HLñ’±ÿ~K™IJHØkÙÐÈ IJHØkÙÂjHñ²kH@BC ØkØXñ’±ÿRg @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
|
||
@B´Blÿñ
|
||
jAñ—AHØkØb¿kAñ£AHñ˜Al
|
||
¿@dÊj𥠂ʇlDð@dÊjð¥ <00>É @dÊjð¥ <00>È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ð¥ <00>É @dÊjð¥ <00>È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)) = @ABC Hd²-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ð¥ <00>É ¼IdÊjð¥ <00>ȾIl
|
||
½IdÊj𥠂ʇlDð_¿MAjó“AkÙ‚KAÔ_ÔKóŸOKó‘A€Bl
|
||
¿HO
|
||
HdÊjð¥ <00>É ZOHdÊjð¥ <00>ÈÔ_OšJOÐLNÐMÄ°SHdÊj𥠂ʇlDð²1NMÔkÙNO OOó³ 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ð¥ <00>ȽjIñ•INØkعJ¡NˆjJñ•JNØkغIjñ´‚±¢IJñ’±šJNñ’±“C ¢± óh_ ¿CjÏ ¿CjÏ¿Ch ¿CHd3@ð_ ¿K‘k€j_¿_¿Odjð“¿lC<6C>kð’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Ï ¿O jÏ¿O L ¿± ”@l dh ¿djÏ ¿dkÏ0¿Hd3@ð_&¿IMØmÿØ_*jðhð_ ¿dO ‘k€jÏP¿K‘k€jkð’lD<6C>lC_"¿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ð¥ <00>ÈBHjð’± <00>@dÊj𥠂ʇlDð²@dÊjð¥ <00>É IÐÈ °@dÊjð¥ <00>É 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 ¢± <00>¿@l
|
||
kÙ Hmÿð³v@dÊj𥠂ʇlDð²)@dÊjð¥ <00>É H@dÊjð¥ <00>ÈØÐÈ °%@dÊjð¥ <00>É H@dÊjð¥ <00>ÈØÂ@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
|
||
ð´‚± “@dÊjð¥ <00>É @dÊjð¥ <00>È@dÊj𥠂ʇlDðAdÊjð¥ <00>É AdÊjð¥ <00>È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ð¥ <00>É º@dÊjð¥ <00>È»@dÊj𥠂ʇlDð¼Add3@ð²i¿IAÁÉ Ê ð³Hh b d²÷l
|
||
¹@dÊjð¥ <00>É º@dÊjð¥ <00>È»@dÊj𳧠°£AÁÉ ½k¾AÁÊ jðhð°K ²vIAl
|
||
ð´–AdÊjð¥ <00>É ½AdÊjð¥ <00>ȾAdÊj𥠂ʇlDð_¿Bµ ` b Êjð³rBd` ð²b¿ b°ZA b´‚±ÿ!IAl
|
||
ð´‚±ÿAdÊjð¥ <00>É ½AdÊjð¥ <00>ȾAdÊjð³<C3B0> ±ÿ} ¿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ð¥ <00>É @dÊjð¥ <00>ÈÐÈ @dÊjð¥ <00>É @dÊjð¥ <00>ÈÂ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 ` ð©¿JjMI H ¿ ¢± Ú@dÊj𥠂ʇlDð@js IdÊjð¥ <00>È_¿IdÊjð¥ <00>É _¿OmÿØIl
|
||
ؾIdÊj𥠂ʇlDð_¿@l
|
||
hdH ]dÊjð¥ <00>É ¼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 ` ð©¿JjMI H ¿ ¢± ë@dÊj𥠂ʇlDð@js IdÊjð¥ <00>È_¿IdÊjð¥ <00>É _¿OmÿØIl
|
||
ؾIdÊj𥠂ʇlDð_¿@l
|
||
hdH ]dÊjð¥ <00>É ¼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ð¥ <00>È»HdÊjð¥ <00>É ¼KmÿØHl
|
||
غHdÊj𥠂ʇlDð½KJñ³#M•LKÐÈ ‚LK¹laIñ¥Ilzñ´<C3B1>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ð¥ <00>ÈÔb@dÊj𥠂ʇlD𢱠ÊBdÊj𥠂ʇlDð²:@dÊjð¥ <00>É AÐBdÊjð¥ <00>É BdÊjð¥ <00>ÈÐCıOC@dÊjð¥ <00>É BAkEJdÊjð¥ <00>È_¿JdÊjð¥ <00>É _¿OmÿØJl
|
||
ؾONñ³%OO½LHó³IKÐMÍ ¿OkØ_¿KkÔ»LkÔ¼°Ù± ÖBdÊj𥠂ʇlD𢱠†C@dÊjð¥ <00>É BAkEJdÊjð¥ <00>È_¿JdÊjð¥ <00>É _¿OmÿØJl
|
||
ؾONñ³0OOÐÈ ½LHó³#Mlÿñ• ¿IKMÇ¿OkØ_¿KkÔ»LkÔ¼°Î°:BdÊjð¥ <00>É BdÊjð¥ <00>È@dÊjð¥ <00>É 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ð¥ <00>É HdÊjð¥ <00>È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ð¥ <00>É BdÊjð¥ <00>ÈBl
|
||
BdÊj𥠂ʇlDð
|
||
BdÊj𥠂ʇlDð²kBABHdÊjð¥ <00>ȼHdÊjð¥ <00>É ½LmÿØHl
|
||
Ø»LKñ³'MLÐÈ Zlÿñ¤@IJÇŠo B
|
||
¿LkؼIkÔ¹°ØBl
|
||
BdÊjð¥ <00>É BdÊjð¥ <00>È@ABl
|
||
b
|
||
Bd3@𢱠<00>C²#@ABÁÉ kBÁÉ Ê BÁÊ jðhð
|
||
BdÁÊ jð³G¿kBA3IÁÉ \Ê ½HMñ³'LHÐÈ [lÿñ¤@JKÇŠo B
|
||
¿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ÂA<>Hlÿñ¨@kH @kH YA–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)
|
||
NIL
|