(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "30-Jul-2023 17:42:27" ("compiled on " {WMEDLEY}LLREAD.;105) "29-Jul-2023 21:47:38" brecompiled exprs%: \SUBREAD in "FULL 29-Jul-2023 ..." dated "29-Jul-2023 21:47:46") (FILECREATED "30-Jul-2023 17:42:27" {WMEDLEY}LLREAD.;105 90277 :EDIT-BY rmk :CHANGES-TO (FNS \SUBREAD) :PREVIOUS-DATE "17-Jun-2023 13:12:06" {WMEDLEY}LLREAD.;104) LASTC :D8 (L (0 FILE)) M@g 5Hdnjhdl l9`Hl l0HHl0`H(41 CHARACTER 10 \GETSTREAM) (72 \OneCharAtomBase 51 \OneCharAtomBase 15 STREAM 5 INPUT) () PEEKC :D8 (L (1 FLG 0 FILE) P 0 \RefillBufferFn) Gg@g I Zdl l9`Jl l0JJl0`J(35 CHARACTER 24 PEEKCCODE 15 \GETSTREAM) (66 \OneCharAtomBase 45 \OneCharAtomBase 10 INPUT 4 \PEEKREFILL) () PEEKCCODE :D8 (L (1 NOERROR 0 FILE) P 0 \RefillBufferFn) g@g A (24 \PEEKCCODE.EOLC 18 \GETSTREAM) (13 INPUT 4 \PEEKREFILL) () RATOM :D8 (L (1 RDTBL 0 FILE) P 2 \RefillBufferFn P 1 *PACKAGE* P 0 *READTABLE* F 4 *READTABLE* F 5 *PACKAGE*) AAdiTbddj`Ug`Olhdi @g HkKH0jh`hddi Kh(119 \SUBREAD 72 \GETSTREAM 60 ALLOCSTRING) (133 \\PNAMESTRING.GLOBALRESOURCE 125 \\PNAMESTRING.GLOBALRESOURCE 107 ARRAYP 102 UPPERCASEARRAY 88 READTABLEP 78 READTABLEP 67 INPUT 48 \\PNAMESTRING.GLOBALRESOURCE 40 \RATOM/RSTRING-REFILL 33 *INTERLISP-PACKAGE* 22 READTABLEP 13 READTABLEP) () READ :D8 (L (2 FLG 1 RDTBL 0 FILE) P 1 *READ-NEWLINE-SUPPRESS* P 0 *READTABLE* F 2 *READTABLE*) AAdiRB@hddi (28 \TOP-LEVEL-READ) (13 READTABLEP) () READC :D8 (L (1 RDTBL 0 FILE) P 1 \RefillBufferFn P 0 *READTABLE* F 3 *READTABLE*) g@g bAAdiSg@ J9jJ3@J5Jdl l9`Jl l0JJl0`Jh(65 CHARACTER 37 \INCCODE.EOLC 10 \GETSTREAM) (96 \OneCharAtomBase 75 \OneCharAtomBase 31 \READCREFILL 26 READTABLEP 5 INPUT) () READCCODE :D8 (L (1 RDTBL 0 STREAM) P 0 *READTABLE* F 3 *READTABLE*) :@g bAAdiSg@ JdjJ@J5J(37 \INCCODE.EOLC 10 \GETSTREAM) (31 \READCREFILL 26 READTABLEP 5 INPUT) () READP :D8 (L (1 FLG 0 FILE)) .@g !H Y:I:HAlJHA (43 \GENERIC.READP 10 \GETSTREAM) (26 FDEV 5 INPUT) () SETREADMACROFLG :D8 (L (0 FLG)) hNIL NIL () SKIPSEPRCODES :D8 (L (1 RDTBL 0 FILE) P 2 \RefillBufferFn F 6 *READTABLE*) v@g AAdiVg3IHi dCLlMɀLMɀ jMLl`LH KHK5L(100 \INCCODE 81 GETHASH 47 \PEEKCCODE.EOLC 10 \GETSTREAM) (111 STREAM 74 CHARTABLE 64 CHARTABLE 36 \PEEKREFILL 29 READTABLEP 24 READTABLEP 5 INPUT) () SKIPSEPRS :D8 (L (1 RDTBL 0 FILE)) ;@A Xd-dl l9`Hl l0HHl0`H(23 CHARACTER 9 SKIPSEPRCODES) (54 \OneCharAtomBase 33 \OneCharAtomBase) () SKREAD :D8 (L (2 RDTBL 1 REREADSTRING 0 FILE) P 3 \RBFLG P 1 *READTABLE* P 0 *READ-SUPPRESS* F 6 *READTABLE*) gBBdiV@g 3AJ \J  J ZILlMɀLMɀ jMLJhddi dlsgluKg(126 \TOP-LEVEL-READ 108 GETHASH 67 CL:MAKE-CONCATENATED-STREAM 61 CL:MAKE-STRING-INPUT-STREAM 56 MKSTRING 50 \EOF.ACTION 41 SKIPSEPRCODES 29 \GETSTREAM) (150 %] 137 %) 101 CHARTABLE 91 CHARTABLE 76 READTABLEP 24 INPUT 18 READTABLEP 4 SKREAD) () CL:READ :D8 (L (0 -args-) F 5 *READTABLE* F 6 *STANDARD-INPUT*) ekHVka1lHilalHhlalHhla_`Olhdi Ig UhLU0jh`hddd LhIJhK (151 \TOP-LEVEL-READ 124 \SUBREAD 77 \GETSTREAM 65 ALLOCSTRING) (138 \\PNAMESTRING.GLOBALRESOURCE 130 \\PNAMESTRING.GLOBALRESOURCE 112 ARRAYP 107 UPPERCASEARRAY 93 READTABLEP 83 READTABLEP 72 INPUT 53 \\PNAMESTRING.GLOBALRESOURCE) () CL:READ-PRESERVING-WHITESPACE :D8 (L (0 -args-) F 5 *READTABLE* F 6 *STANDARD-INPUT*) ekHVka1lHilalHhlalHhla_`Olhdi Ig UhLU0jh`hddd LhIJhKhi (154 \TOP-LEVEL-READ 124 \SUBREAD 77 \GETSTREAM 65 ALLOCSTRING) (138 \\PNAMESTRING.GLOBALRESOURCE 130 \\PNAMESTRING.GLOBALRESOURCE 112 ARRAYP 107 UPPERCASEARRAY 93 READTABLEP 83 READTABLEP 72 INPUT 53 \\PNAMESTRING.GLOBALRESOURCE) () CL:READ-DELIMITED-LIST :D8 (L (0 -args-) F 6 *READTABLE* F 7 *STANDARD-INPUT*) ekaAlHWlalHhlaId3 Jg Kc`Slhdi Jg VLmMV0jh`hdLh MhJhdL (164 \TOP-LEVEL-READ 138 \SUBREAD 87 \GETSTREAM 75 ALLOCSTRING 53 \GETSTREAM) (152 \\PNAMESTRING.GLOBALRESOURCE 144 \\PNAMESTRING.GLOBALRESOURCE 126 ARRAYP 121 UPPERCASEARRAY 107 READTABLEP 93 READTABLEP 82 INPUT 63 \\PNAMESTRING.GLOBALRESOURCE 48 INPUT 41 CHARACTER) () CL:PARSE-INTEGER :D8 (L (0 -args-)) 'ekaHlKJUhHlNdM]h_Hl__OdO\l _Hl__OdO]h_I hoI Kdagl[kaagNkaNl^agOkaOl_agOkaOl_`Idj Il Idj Idj lDO_dkOOdl$O _O(LjjLL L_0O(OO&O&jOO O_2l0Om_,Ol lAOm_.O2dO0UO"O*O$O0O$O0_ _O l!OɀO Oɀ jOO l`O0k_0O2O0aOhO2$oO$O0_4O,Pl0O4O8+O0_8'O6\O8XO4dl-gl+Eg_6O0k_0dO22O*O$O0O.laO4O4l ՁO4O.O8O0_8O0_:O8zOHO0O2AO4l!O"ɀO4O"ɀ jO"O4l`hO0k_0O2i0O$O8O:O6gOO* O*O$O0O$O0_4OhO0O($O8ooLOILjOO& I h(803 CL:ERROR 796 CL:SUBSEQ 725 \MKINTEGER 672 GETHASH 449 GETHASH 346 \ILLEGAL.ARG 314 \ILLEGAL.ARG 295 \INVALID.RADIX 256 %%ARRAY-TYPE-NUMBER 240 %%ARRAY-OFFSET 227 \GETBASEFIXP 216 %%ARRAY-BASE 100 ERROR 87 CL:STRINGP) (714 - 665 CHARTABLE 652 CHARTABLE 556 + 545 - 442 CHARTABLE 429 CHARTABLE 201 READTABLEP 196 CMLRDTBL 173 :JUNK-ALLOWED 149 :RADIX 128 :END 109 :START) ( 774 "There is junk in this integer string: ~S." 768 "There aren't any digits in this integer string: ~S." 493 "No non-whitespace characters in integer string: ~S" 94 "This is not a string : ~S") RSTRING :D8 (L (2 RSFLG 1 RDTBL 0 FILE) P 2 *READ-SUPPRESS* P 1 \RefillBufferFn P 0 *READTABLE* F 4 *READTABLE*) WAAdiTg"`2lhdi @g HBiK Kh(68 \RSTRING2 50 \GETSTREAM 38 ALLOCSTRING) (82 \\PNAMESTRING.GLOBALRESOURCE 74 \\PNAMESTRING.GLOBALRESOURCE 56 READTABLEP 45 INPUT 26 \\PNAMESTRING.GLOBALRESOURCE 18 \RATOM/RSTRING-REFILL 13 READTABLEP) () READ-EXTENDED-TOKEN :D8 (L (2 ESCAPE-ALLOWED-P 1 RDTBL 0 STRM) F 13 *READTABLE*) p AAdiWb`8lhdi A0jh`Hdj hjAt @ <@kI[@ ^lMɀNMɀ jMN_BOdlFQ@ i_bO^Ol jJ@ LhdO jHL OOL&O OlLi$flGOh_i_SJNlJN¾Ll'LhdO jHL OOL&Lh__jKLNONli_LkؼLH(311 \SMASHSTRING 303 ALLOCSTRING 245 CONCATLIST 229 \SMASHSTRING 221 ALLOCSTRING 210 \BACKCCODE 185 \INCCODE.EOLC 157 GETHASH 128 \INCCODE 76 %%ARRAY-BASE 33 ALLOCSTRING) (364 \\PNAMESTRING.GLOBALRESOURCE 150 CHARTABLE 140 CHARTABLE 113 FDEV 106 STREAM 95 READTABLEP 83 \\PNAMESTRING.GLOBALRESOURCE 61 ARRAYP 56 UPPERCASEARRAY 42 READTABLEP 21 \\PNAMESTRING.GLOBALRESOURCE 14 READTABLEP) () \RSTRING2 :D8 (L (3 PNSTR 2 RSFLG 1 SA 0 STRM) F 11 *READ-SUPPRESS* F 12 *READTABLE*) . @ Cdj j @ [dl @Bi9l lAɀl Aɀ jAl l j@ KlAɀKAɀ jAK\djlFWj@ [l HgQKdl H@ dkdll 5l 0l *H@ djl dldl@hd l KBg}Kl wjtBLlqkK_iLl jX@ Bg@LdlqK_l`5OKl Oi&IJkKjKl i_l h_WCJl"JhdO jCJ MNJ&Jh]jIJKK_OKli_JkغBi;@ <_@dkO O@O5W#JhdO jCJ ZMNJ&M Jh(551 CONCATLIST 539 \SMASHSTRING 531 ALLOCSTRING 431 \SMASHSTRING 423 ALLOCSTRING 398 SHOULDNT 319 \BACKCCODE 261 \CHECKEOLC.CRLF 170 \INCCODE 126 GETHASH 94 \BACKCCODE.EOLC 74 GETHASH 29 \INCCODE.EOLC 16 %%ARRAY-BASE) (492 FDEV 485 STREAM 328 SKIP 274 SKIP 184 NOEOLC 155 READTABLEP 119 CHARTABLE 109 CHARTABLE 67 CHARTABLE 55 CHARTABLE) () \TOP-LEVEL-READA0001A0002 :D8 (L (0 STREAM) F 0 EOF-VALUE) gP (10 RETFROM) (4 \TOP-LEVEL-READ) () \TOP-LEVEL-READA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 EOF-SUPPRESS F 2 STREAM F 3 *READTABLE* F 4 CHAR F 5 *CIRCLE-READ-LIST* F 6 EOF-VALUE F 7 PRESERVE-WHITESPACE) QRg*`clhdi Rg STmHS0jh`QVTW HUH Hh(117 HASH-STRUCTURE-SMASH 98 \SUBREAD 46 \GETSTREAM 32 ALLOCSTRING) (125 \\PNAMESTRING.GLOBALRESOURCE 104 \\PNAMESTRING.GLOBALRESOURCE 85 ARRAYP 80 UPPERCASEARRAY 66 READTABLEP 52 READTABLEP 41 INPUT 20 \\PNAMESTRING.GLOBALRESOURCE 12 \TOP-LEVEL-READA0001A0002 7 STREAM) () \TOP-LEVEL-READA0003 :D8 (F 0 OLD-EOS-OP F 1 STREAM) QP*PNIL (5 STREAM) () \TOP-LEVEL-READ :D8 (P 3 *CIRCLE-READ-LIST* P 2 OLD-EOS-OP P 1 \RefillBufferFn P 0 *PACKAGE* I 4 PRESERVE-WHITESPACE I 3 CHAR I 2 EOF-VALUE I 1 EOF-SUPPRESS I 0 STREAM F 4 *READTABLE* F 5 *PACKAGE*) FTj`Ug@*g @J*$(54 \MVLIST 49 \TOP-LEVEL-READA0001) (60 STREAM 44 \TOP-LEVEL-READA0003 34 STREAM 28 \READREFILL 21 *INTERLISP-PACKAGE* 10 READTABLEP 5 READTABLEP) () \SUBREAD :D8 (L (8 PRESERVE-WHITESPACE 7 CHAR 6 EOF-VALUE 5 EOF-SUPPRESS 4 CASEBASE 3 PNSTR 2 READTYPE 1 SA 0 STRM) P 27 \RBFLG F 28 *READ-SUPPRESS* F 29 *READTABLE* F 30 \RBFLG F 31 \LINEBUF.OFD) R BBkiCdj H@W>i_j_h_____E@ FO"OZl`6A@ __"OlO"ɀOO"ɀ jOGqJdjROl.A@ _&_$O&l!O$ɀO&O$ɀ jO$O&l jL^l jBkJdlEk_`_i_l9dliHl =A@ _*_(O*l!O(ɀO*O(ɀ jO(O*l jhW:jBklGi_h_,@ _O,h8OlAɀOAɀ jAOZdlGlFi_,W8OlOIO l