Interlisp.medley/sources/LLREAD.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED "28-Mar-2026 07:43:59" ("compiled on " {WMEDLEY}<sources>LLREAD.;123) 
"17-Mar-2026 00:23:19" recompiled explicitly%: CHARSET.DECODE CHARSET.ENCODE in "FULL 17-Mar-2026 ..."
 dated "17-Mar-2026 00:23:27")
(FILECREATED "20-Sep-2025 14:18:31" {WMEDLEY}<sources>LLREAD.;123 99281 :EDIT-BY rmk :CHANGES-TO (VARS
 LLREADCOMS) (FNS CHARSET.ENCODE) :PREVIOUS-DATE "24-Aug-2025 11:47:11" {WMEDLEY}<sources>LLREAD.;122)
LASTC :D8
(L (0 FILE)) M

@g
È5
HdnÿÿÙjð‘hdlÿñ•	l9ñš`Hl
ÙÐl0Hñ¤Hl0Ù`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
ÙÐl0Jñ¤Jl0Ù`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*) ŠA•Adið‘¿TbddÊjð¥`€Ug`µOlÿhdi»@g
HÉkKHÊ0jðhð´`Éhddi
	K¿h¿°¶(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*) 
A•Adið‘¿RB
@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
bA•Adið‘¿Sg@	J
´9jJñ³3@JÍ5Jdlÿñ•	l9ñš`Jl
ÙÐl0Jñ¤Jl0Ù`JÐh(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
bA•Adið‘¿Sg@	Jd
™¿jJñ£@JÍ5J(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
A•Adið‘¿VÉg3IHi
d²C¼½Llÿñ²MÉ€ŸLMÉ€
µj‚MLÂl`ðšL»H	¿°ÂK˜HKÍ5L(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
ÙÐl0Hñ¤Hl0Ù`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*) ™
gB•Bdið‘¿V@g
3AµJ	\³J			J
Z°àIɽLlÿñ²MÉ€ŸLMÉ€
µj‚MLÂJhddi
¿dlsð•gluð¢K´g(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*) še
kHñ‘V<E28098>ka1lHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la²_`µOlÿhdi¼Ig
UÉhLUÊ0jðhð´`Éhddd
	L¿h¿°¶IJhðK(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*) <00>e
kHñ‘V<E28098>ka1lHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la²_`µOlÿhdi¼Ig
UÉhLUÊ0jðhð´`Éhddd
	L¿h¿°¶IJhðKhi
(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*) §e
kaAlHñ’W‚laºlHñ‘h‚la»Id3 ¥ÓJg
¿¼K²c`µSlÿhdi½Jg
VÉL´mÿMVÊ0jðhð´`ÉhdLh
	M¿h¿°²JhdL(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-)) 'e
kañHl»ºKJó²Uh¼Hl¾½NdMó²]¿h_¿Hl_¿_¿OdOó²\¿l
_¿Hl_¿_¿OdOó²]¿h_¿I	³hoI
Kdagð¥lÔ[°›kØa°›agð•NkØa°›NlÔ^°<>agð–OkØa°œOlÔ_°Šagð–OkØa°šOlÔ_°‰`ÉIdÊjð¥	<00>ÉIl
IdÊjð¥	<00>ÈIdÊjð¥	‚ʇlDð…O_d
Ÿ¿kOñ§Odl$ñ—¿O	_¿O(L¡j‹jLó–L	€LÔ_0¿O(OµO&°O&ó¤jOó—O	<00>OÔ_2¿l0OÔmÿÔ_,¿Ol
ó´
lAOÔmõÔ_.¿O2dO0ó²U¿O"O*—O$O0ÐÈ„O$O0Â_ ¿_¿O lÿñ²!OÉ€²O OÉ€
µ	j„OO Âl`ð˜O0kÔ_0¿°©O2O0ó³aO–hO2$
o±
O$O0Â_4O,ó³Pl0O4ó©O8³+O0_8°'O6³\O8³XO4dl-ð–¿g‰l+ð²Eg_6¿O0kÔ_0dO2ýó²2¿O*²±O$O0ÐÈ°­O.²laO4ó¥O4l Õ<>O4O.ó©O8³ÍO0_8°ÉO0_:¿O8²zO³HO0O2ð³AO4lÿñ²!O"É€²O4O"É€
µ	j„O"O4Âl`ð¡h‹O0kÔ_0O2ð²i²0O$O8O:O6gðOO*
°O*—O$O0ÐÈ„O$O0Â_4°—O™hO0O(Õ$
O8¥o„oL£O²ILµjOµO&€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*) W
A•Adið‘¿Tg"`µ2lÿhdi»@g
HÉBµiKK¿h¿°Ó(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

A•Adið’¿Wb`µ8lÿhdi
AÊ0jðhð´`ÉHdÊjð®	Šh¿°ÍÉjAÉt@É
É<¹@kI³[@	^lÿñ²MÉ€ŸNMÉ€
µj‚MNÂ_¿B²OdlFð²Q¿@	¾i_³bO³^Ol åjð³J@	¿LhdOjHL¼OœOL&¿O	¼O²lLi$
°flGð²»Ohð_¿i_¿±ÿSJ˜Nlÿñ£JN¾Llÿð²'LhdOjHL¼O”OL&„Lh__¿j¼KLÐNÍ¿O¨Nlÿñ“i_¿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*) K@ÊCdÊjð¥	<00>Éjƒ
@	[dl
ð²@¿Bið²9l
lÿñ²AÉ€²l
AÉ€
µjƒAl
Âl åjð¨@	±
ºKlÿñ²AÉ€ŸKAÉ€
µj‚AKÂ\djð’±
!lF𢱪WÊjð’±
@	[dl
ð’±ÿdl
ð²,¿Hµ@Êdkð³adlð³[dgð³Rdgð³I¿l
°Gdl
ð²A¿Hµ@Êdjð³1dgð³(dlð³dlð¯dgð§dgðš¿@hdH‚¿l
»Bgð´}Kl
ð´wj°tBµLlqð´kK_±Ôið²Ll åjð³X@	±¼Bgð²@Ldlqð–¿K_±©l`ð´5O²Kl
ð¢±þ”Oið²&IJkÙÐKÍ¿j°Kl
ð´i_¿l [ˆ¿h_¿W³CJlÿð²"JhdOjCJºM“NJ&ƒJh]¾jºIJÐKÍ¿K_¿O¨Klÿñ“i_¿JkغBið¢±þ@É
É<_¿@dkO¢±þ¿O•@OÍ5¿W³#JhdOjCJZM™NJ&M	Jh(580 CONCATLIST 568 \SMASHSTRING 560 ALLOCSTRING 460 \SMASHSTRING 452 ALLOCSTRING 427 SHOULDNT 348 \BACKCCODE 292 \CHECKEOLC.CRLF 170 \INCCODE 126 GETHASH 94 \BACKCCODE.EOLC 74 GETHASH 29 \INCCODE.EOLC 16 %%ARRAY-BASE)
(521 FDEV 514 STREAM 357 SKIP 303 SKIP 280 ANY 272 CRLF 252 CR 219 ANY 210 LF 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) ‚

Q<>Rg*¿`µclÿhdi
Rg
SÉT´mÿHSÊ0jðhð´`ÉQVTW
	H¿
U•H	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*) FTÊjð¥`€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	B”Bkð´iCdÊjð¥	<00>Éò H˜@W>ð£i_¿j_¿h_____¿E²@	¬FO"OÂZl`ð²6A@	_¿_"¿Olÿñ²ãO"É€²OO"É€
µËj°ÈOGð’±qJdjð²R¿Ol.ð¢±ßA@	_&¿_$¿O&lÿñ²!O$É€²O&O$É€
µ	j„O$O&Âl åj𒱞L^±˜l åjð©Bk𢱌±¦JdlEð²¿k_¿`_¿i_±ºl9ådlð“¿i°Hl	ð¢±
=A@	_*¿_(¿O*lÿñ²!O(É€²O*O(É€
µ	j„O(O*Âl åjðhð¢±úW:Êjð’±êBk±lGð¢±
ýi_¿h_,¿@	_¿O,’h°8Olÿñ²AÉ€²OAÉ€
µjƒAOÂZdlGð’±lFð”i_,³¹W8³µOlÿð²OIOl
±þ<IOÐOÍ¿OkÔ_¿°ˆA@	_¿_0¿Olÿñ²!O0É€²OO0É€
µ	j„O0OÂZdjð’±
:l åjð¢±
¡JdlEðš¿W8¢±®±ÿJdlFð¢±ÿ¿W:Êjð’±
@	_¿i_¿±
ÉOdÊjð¥	<00>ÈOl
iµ‚±
Ol
±
sK”LM&°,H²"G¥Jl`ð³@O µ	OµnÿÿÍ5¿@	MW8¤Mh[¼Jl`ð’±ý:OGð¢±
<01>@OÍ5KOjð²"O³O_ ¿Okð²`O`ð³Vl_¿°0O³Fk_¿O_ ¿Oµ$IjOiµIjOi_¿j_¿i_°kIOl
¿h_°áO_ ¿i_¿DœOlÿñ¦DOÂ_¿W8³;Olÿð²OhdijCOO_¿j_¿IOÐOÍ¿OkÔ_¿O_ ¿O¢±þ9@É
É<_.¿@kO._¢±þO²!@O µ	OµnÿÿÍ5¿IOOOO
¿W8hð´Oµ$IjOiOOkðO
½@OÍ5¿O¢±þ†MIO_¿O’±þgO’±þaO’±þ[OdÊjð’±þ'	±þ!H³ÌW8’±û»Mh[\±û²@OÍ5¿Jdlrð²H¿@AjCD
½O6´
Biðµic<K“LM&ŠH‘MW8¤Mh[¼¢±ûsNžNšN¥Nd
Kltð²*@AiCD
½K–LM&\±ûEH’±ÿMW8’±û;Mh[\±û2Jlsð§Jdluð²U¿H‘hG²,oO_2Òlð´lO2ÑG_4Òlð´lO4ÑKNŸN›N¦Nd
¿Jluð–Bið¢ic<Klqð²(@AhC½K–LM&\±ú»H’±þÃW8’±ú±Mh[\±ú¨Jlpð­W:Êjð²*IOÍ¿Ijki`
½@OÍ5¿K¢±þ´LM&\±úmOW:É
Z
dgð²u¿C¿@J
	`µ"lÿhdib¿½O6´
Biðµic<Mµ
° h¿°ã
½K“LM&‹H’±þ<C2B1>W8¤Mh[¼¢±ùóNžNšN¥Nd
Kdgð²v¿C¿@JKd‘L`µ2lÿhdib¿½O6´
Biðµic<H²M²M²MdM
ð<>

h¿°ÓM
»M¼¢±ùvNžNšN¥Nd
Kgð²zC¿@J
`µlÿhdib¿]M¢±ù/H›±ù*h¿°êM®K´gMh½L¾W8’±ù	K“LM<19>M[¿M	\¢±øôL^gLh\±øâ±øÚ(1869 SHOULDNT 1841 LAST 1778 ALLOCSTRING 1761 \APPLYREADMACRO 1660 ALLOCSTRING 1643 \APPLYREADMACRO 1536 ALLOCSTRING 1519 \MVLIST 1514 \APPLYREADMACRO 1485 GETHASH 1450 \READ.SYMBOL 1381 \RSTRING2 1333 CL:ERROR 1243 \SUBREAD 1172 \SUBREAD 1124 %%ARRAY-BASE 1086 \SUBREADCONCAT 1063 \READ.SYMBOL 1033 \INVALID.SYMBOL 933 \SMASHSTRING 924 ALLOCSTRING 873 \LISPERROR 866 \SUBREADCONCAT 846 \GETBASESTRING 834 \FIND.PACKAGE.INTERNAL 735 \BACKCCODE 692 \LISPERROR 677 \PARSE.NUMBER 671 \GETBASEFIXP 659 %%ARRAY-OFFSET 633 \INCCODE.EOLC 559 GETHASH 519 \INCCODE.EOLC 491 \LISPERROR 484 \SUBREADCONCAT 437 GETHASH 396 \INCCODE.EOLC 334 GETHASH 294 \PEEKCCODE.EOLC 203 GETHASH 163 \PEEKCCODE.EOLC 126 GETHASH 86 \INCCODE.EOLC 65 SKIPSEPRCODES 20 %%ARRAY-BASE)
(1854 %. 1813 %. 1799 \\PNAMESTRING.GLOBALRESOURCE 1766 \\PNAMESTRING.GLOBALRESOURCE 1753 \\PNAMESTRING.GLOBALRESOURCE 1741 SPLICE 1704 \\PNAMESTRING.GLOBALRESOURCE 1648 \\PNAMESTRING.GLOBALRESOURCE 1630 \\PNAMESTRING.GLOBALRESOURCE 1617 INFIX 1564 \\PNAMESTRING.GLOBALRESOURCE 1524 \\PNAMESTRING.GLOBALRESOURCE 1506 \\PNAMESTRING.GLOBALRESOURCE 1493 MACRO 1478 READTABLEP 1444 *INTERLISP-PACKAGE* 1422 READTABLEP 983 FDEV 976 STREAM 797 *KEYWORD-PACKAGE* 618 READTABLEP 552 CHARTABLE 539 CHARTABLE 430 CHARTABLE 418 CHARTABLE 361 READTABLEP 327 CHARTABLE 314 CHARTABLE 259 *KEYWORD-PACKAGE* 196 CHARTABLE 183 CHARTABLE 119 CHARTABLE 106 CHARTABLE)
( 1298 "Unmatched ~A encountered while reading to a ~A")
\SUBREADCONCAT :D8
(L (2 J 1 PBASE 0 EXTRASEGMENTS)) #AjBib@µ	Ah
	(32 CONCATLIST 27 \NCONC2 19 REVERSE 8 \GETBASESTRING)
NIL
()
\ORIG-READ.SYMBOL :D8
(L (6 NONNUMERICP 5 EXTERNALP 4 PACKAGE 3 FATP 2 LEN 1 OFFSET 0 BASE)) 9DµFª@ABCµ
@ABCi
E•o„o@ABC(54 CONCAT 49 \GETBASESTRING 26 \MKATOM 13 \PARSE.NUMBER)
NIL
( 40 "::" 34 ":")
\ORIG-INVALID.SYMBOL :D8
(L (4 EXTRASEGMENTS 3 PACKAGE 2 NCOLONS 1 LEN 0 BASE)) ^ooCµoBdkð²%¿o°,`ð³çCd	“¿C°à	°Ùlð•o„oD@A(91 CL:CERROR 86 CONCAT 81 \SUBREADCONCAT 56 CL:PACKAGE-NAME 46 STRINGP)
(36 *KEYWORD-PACKAGE*)
( 73 "" 67 "::" 29 ":" 17 "" 9 "Invalid symbol syntax in %"~A%"" 4 "Treat the extra colon(s) as if they were escaped")
\APPLYREADMACRO :D8
(L (2 ANSCELL 1 MACDEF 0 STREAM) F 1 *READTABLE*) 

A
@QBlHNIL
NIL
()
INREADMACROPA0001 :D8
(L (1 POS 0 NM) F 0 \READDEPTH) 
@gð´PkØcNIL
(5 \SUBREAD)
()
INREADMACROP :D8
(P 0 \READDEPTH) 'mÿ
g	Y¡hgI
I	H(35 RELSTK 29 MAPDL 14 STKPOS)
(23 INREADMACROPA0001 9 \APPLYREADMACRO)
()
READQUOTE :D8
(L (0 FILE)) 
g@ihih(13 CL:READ)
(4 QUOTE)
()
READVBAR :D8
(L (1 RDTBL 0 STREAM)) X@	dl'ð<>@	@A
dl(ð©dl{ð¤dl^ð–@	dl#ðž¿@	@A
dl
ðªdl	ð¥dl ð²ê$
(65 READHASHMACRO 58 READCCODE 45 HREAD 23 READBQUOTE 16 READCCODE 5 PEEKCCODE)
NIL
()
READHASHMACRO :D8
(L (2 INDEX 1 RDTBL 0 STREAM)) Ö
AÊ jð¥g„g‘	@A
Yºl0Jñ³Jl9ñ³Bµjl
Ö@A
l0ÕÔb¿°ÖIl(ð²)@kH»BµK	gK	K
@A
dl'ð²¿g@A
hdl.ð›¿@kH	dl,ð²¿g@A
hdl\ð—¿@	dl*ð²w0@dA
o
³=¿O¼BµL	gLgg
ggL
A
l0Ù_¿Oµ
Oh__¿°˜O&_¿°<C2BF>dl:ðœ@A
	dlOð¤dloð™¿@l
dlBð¤dlbð™¿@l
dlXð¤dlxð™¿@l
dlRð¤dlrð˜¿@B
dlAð¥dlað²¿@kH½BM
gMdlSð¤dlsð›¿@kH	dlCð¥dlcð²¿@kH^
_¿N
_¿OO
dl+ð²@A
	§@A
¿$
dl-ð²@A
	—@A
¿$
dl|ðš@A
$
dl<ð²¿o
dl ð³dl	ð³dl
ð¯dlðªdl
ð¥dl)ð²¿oI	
l"ðœ@AgI	ÁÉg'µ
oI
_¿@AlO(712 ERROR 689 CHARACTER 682 RSTRING 665 ERROR 660 CHARCODE.UNDECODE 614 ERROR 609 READ 588 SKIP.HASH.COMMENT 571 CL:READ 563 CMLREAD.FEATURE.PARSER 558 READ 540 CL:READ 532 CMLREAD.FEATURE.PARSER 527 READ 513 COMPLEX 475 CREATE-STRUCTURE 453 CL:MAKE-ARRAY 442 ESTIMATE-DIMENSIONALITY 416 READNUMBERINBASE 397 READNUMBERINBASE 377 READNUMBERINBASE 357 READNUMBERINBASE 337 CL:MAKE-SYMBOL 332 READ-EXTENDED-TOKEN 291 READCCODE 284 FILL-VECTOR 278 CL:MAKE-ARRAY 262 CL:MAKE-ARRAY 240 LENGTH 224 MEMQ 214 PEEKCCODE 196 CHARACTER.READ 180 READ 160 EVAL 140 READ 121 READCCODE 113 FILL-VECTOR 107 CL:MAKE-ARRAY 101 CL:MAKE-ARRAY 90 LENGTH 60 READCCODE 32 PEEKCCODE)
(698 HASHREADMACRO 677 SKIP 447 :INITIAL-CONTENTS 273 BIT 268 :ELEMENT-TYPE 256 BIT 251 :ELEMENT-TYPE 245 :INITIAL-CONTENTS 173 LOADTIMECONSTANT 133 FUNCTION 95 :INITIAL-CONTENTS 22 READ 16 CL:READ 5 READTABLEP)
( 706 "Undefined hashmacro char" 654 "Illegal read syntax " 604 "#< construct is un-READ-able" 219 (48 49))
DEFMACRO-LAMBDA-LIST-KEYWORD-P :D8
(L (0 S)) A
@gð³7@gð³.@gð³%@gð³@gð³@gð¨@gð´iNIL
(58 &WHOLE 50 &BODY 41 &AUX 32 &ALLOW-OTHER-KEYS 23 &KEY 14 &REST 5 &OPTIONAL)
()
DIGITBASEP :D8
(L (1 RADIX 0 CODE)) Fl0@ó¬@l0AÔýó”@l0ÕAl
ó´,la@ó«@lzó¦@màÔb¿lA@ó³@lZó®l
@lAÕÔbA@ó´hNIL
NIL
()
READNUMBERINBASE :D8
(L (1 RADIX 0 STREAM) F 7 *READ-SUPPRESS*) |
@	kRW‘hHk
Zdl+ð³'dl-ð²<¿i]°Jl/ð”L¢KµoAH¼h[¿HIkÔY
ZµK²áLµM²"jKÕA
^²ÄKµjAÖNÔ°ÓK
»°ßK(117 %%/ 98 DIGITBASEP 76 NTHCHARCODE 61 CL:ERROR 21 NTHCHARCODE 5 READ-EXTENDED-TOKEN)
NIL
( 54 "Malformed base ~D rational ~S")
ESTIMATE-DIMENSIONALITY :D8
(L (1 CONTENTS 0 RANK)) @@µoh
djð‘hABk½MHó³I	¼KµLh[ºMkÔ½I
¹°åL&»°ôJ(37 LENGTH 13 ERROR)
NIL
( 7 "No rank found while reading array")
SKIP.HASH.COMMENT :D8
(L (1 RDTBL 0 STREAM)) I@A
dl#ð’¿°l|ð²î@A
dl|ð²"¿°òl#ð²Ù@A
dl|ð²ð¿@A
¿°Ál#ð²¼h(61 SKIP.HASH.COMMENT 47 READCCODE 26 READCCODE 6 READCCODE)
NIL
()
CMLREAD.FEATURE.PARSER :D8
(L (0 EXPR) F 1 *FEATURES*) ‡


@d²}
dgð¨dgð²¿@Žd
H
H
´/µïidgð¨dgð²¿@<40>d
H
H
¤µðhdgð§dgð›¿@
	hð¿o@
Q´i(126 ERROR 111 CMLREAD.FEATURE.PARSER 78 CMLREAD.FEATURE.PARSER 37 CMLREAD.FEATURE.PARSER)
(100 NOT 92 :NOT 60 OR 52 :OR 19 AND 11 :AND)
( 120 "Bad feature expression")
CHARACTER.READ :D8
(L (0 STREAM) F 5 *READTABLE* F 6 *READ-SUPPRESS*) <00>
@	A@i
Y²5UɺIlÿñ²JÉ€ŸIJÉ€
µj‚JIÂl åjð¬H[Òlð´3lKÑV—@	hkH
@	
	\Òlð´lLÑ(115 CHARCODE.DECODE 110 CONCAT 105 READ-EXTENDED-TOKEN 99 ALLOCSTRING 90 READ-EXTENDED-TOKEN 56 GETHASH 15 PEEKCCODE 5 READCCODE)
(49 CHARTABLE 39 CHARTABLE 24 READTABLEP)
()
CHARCODE.DECODE :D8
(L (1 NOERROR 0 C)) 
Æ	@µh²@
A
@A
@d	kð—¿@		‘@@dØ¿@Ói
µ¹@dd3@ð³¿@d	¯¿A³£o@
	dl^ð²¿@lmÿA
d¢±ÿxmŸål#ð²@lmÿA
d¢±ÿZl€Ø`AHµ‚±‹kº@J
d’±¢1M¢±à@MkØ
_	µ
OA
^¢±Án
N󢱸jNó’±±@kMkÙ_	µ`[µyh
µ
Oi
_¢±‚n
Oó²yjOó³sOáNä
Yd
@
¦¿HX±ÿb
3µ‚±þ¢I
b±þ•dl,ð®dl-ð©dl.ð¤dl|ð’¿i<C2BF>¿hšJµ‚±ÿCi±ÿ?JkÔ±ÿ,
\
O
šLµ‚±ÿ{i±ÿwK±ÿmA’±þMo@
(451 ERROR 418 STRING.EQUAL 338 STRING.EQUAL 302 HEXNUM? 278 OCTALNUM? 271 SUBSTRING 240 CHARCODE.DECODE 230 OCTALNUM? 223 SUBSTRING 201 NTHCHARCODE 167 CHARCODE.DECODE 161 SUBSTRING 137 CHARCODE.DECODE 131 SUBSTRING 114 CHCON1 108 ERROR 92 STRINGP 74 HEXNUM? 48 CHARCODEP 42 CHCON1 32 NCHARS 23 CHARCODE.DECODE 15 CHARCODE.DECODE)
(285 CHARACTERSETNAMES 181 CHARACTERNAMES 66 CHARACTER 58 CHARACTER)
( 445 "BAD CHARACTER SPECIFICATION" 102 "BAD CHARACTER SPECIFICATION")
CHARCODE.ENCODE :D8
(L (2 NONCHARIDENTITY 1 OCTALCHARS 0 CODE)) 
Ô@d²$¿0@°d
AB¸IµHhZ<>H&¹µéJÚ@Ób°Ë@d¢±
—	ªB‘@@	`
Hµ7h
µ‚±
q@ã@lÿå@låS`^µ?h
µH	[A²KI	°T
Y
	”@I
ˆ@I
	Ùjð•Iµ¯i°¬HX°£
_¿HO

–Oµ³i°°N°§`AOµQO
\ddo
–¿o\’±¸`AOµYO
µ‚±<00>l Jñ²{oJl@Ø	
°q
_¿IO
ð² O
	_¿O•OOó™O_¿O_¿O_±ÿ
_¿JO
ð² O
	_"¿O •O O"ó™O"_ ¿O_¿O_±ÿwJ		½l€Iñ«oM
€M¼Hjð³HµKoL	²îA³ëL(459 \FZEROP 453 CONCAT 428 CONCAT 411 CONCAT 406 CHARACTER 370 NCHARS 320 NCHARS 298 CONCAT 293 CHARACTER 238 STREQUAL 196 STRING.EQUAL 167 CHARCODE.DECODE 152 CHARCODEP 141 OCTALSTRING 131 OCTALSTRING 77 \ILLEGAL.ARG 66 CHARCODEP 20 CHARCODE.ENCODE)
(255 CHARACTERNAMES 213 CHARACTERNAMES 117 CHARACTERSETNAMES 83 CHARACTERNAMES 50 CHARACTER 43 CHARACTER)
( 447 "," 422 "#" 284 "^" 245 "^_" 233 "Tenexeol")
CHARCODEP :D8
(L (0 CHCODE)) 
@
´j@ó§@nÿÿó¡@hNIL
NIL
()
CHARSET.DECODE :D8
(L (1 NOERROR 0 C)) ”@d
œ¿j@ó¦@dlÿó¡@¡h@d	ª¿@dd3@ð²¿@	µ.@i
µ%@²"0@°d
i
¸IµHhZ<>H&¹µêJ`
Hµh
µïA³¤o@

¹@I

•Iµài°ÝHX°Ô(134 STRING.EQUAL 123 ERROR 73 CHARSET.DECODE 53 HEXNUM? 44 OCTALNUM? 27 STRINGP)
(96 CHARACTERSETNAMES)
( 117 "BAD CHARACTER-SET SPECIFICATION")
CHARSET.ENCODE :D8
(L (1 OCTAL 0 CSETCODE)) h@d²#¿0@°d
A
¸IµHhZ<>H&¹µêJ¡hj@ó¤@lÿó–@	A³`
Hµh
µ@	
¹@I
ð•Iµìi°éHX°à(82 OCTALSTRING 55 \ILLEGAL.ARG 19 CHARSET.ENCODE)
(64 CHARACTERSETNAMES)
()
HEXNUM? :D8
(L (1 PREFIXED? 0 STR)) œA²L@	dl0ð²¿@l
o°dlUð¤dluðœ¿@l
l+ð<>¿h´a@lhob´Okj@H
ZµIl0Jñ³dl9ñ³l0ÙºIààààJعHkÔ¸°ØlaJñ§Jlfñ¢lW<6C>lAJñ§JlFñ¢l7€hd³Ô(88 NTHCHARCODE 72 SUBSTRING 50 NTHCHARCODE 23 NTHCHARCODE 8 CHCON1)
NIL
( 67 "" 28 (120 88))
OCTALNUM? :D8
(L (0 STR)) .
kj@H
Z¡Il0Jñ³Jl7ñ¯IàààJl0ÙعHkÔ¸°Üh(11 NTHCHARCODE)
NIL
()
HEXSTRING :D8
(L (1 WIDTH 0 N)) y@3 ¨@	b¿Aµjj@
Idjð–¿HkóœH‹ââââ¹HkÔ¸°ëk
HdIñ¡¿Il0
!mÿº@djð‘Hlå¹HJl
Iñ“Il0…Il
ÕlAÔ¿@ââââb¿JmÿÔ°Ð(104 RPLCHARCODE 64 ALLOCSTRING 9 CHARCODE.DECODE)
NIL
()
(PRETTYCOMPRINT LLREADCOMS)
(RPAQQ LLREADCOMS ((COMS (* ; "Reader entrypoints") (FNS LASTC PEEKC PEEKCCODE RATOM READ READC 
READCCODE READP SETREADMACROFLG SKIPSEPRCODES SKIPSEPRS SKREAD)) (COMS (* ; 
"CommonLisp read entry points") (FNS CL:READ CL:READ-PRESERVING-WHITESPACE CL:READ-DELIMITED-LIST 
CL:PARSE-INTEGER) (GLOBALVARS CMLRDTBL)) (COMS (* ; "reading strings") (FNS RSTRING 
READ-EXTENDED-TOKEN \RSTRING2)) (COMS (* ; "Core of the reader") (FNS \TOP-LEVEL-READ \SUBREAD 
\SUBREADCONCAT \ORIG-READ.SYMBOL \ORIG-INVALID.SYMBOL \APPLYREADMACRO INREADMACROP) (DECLARE%: 
DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE \ORIG-READ.SYMBOL) (QUOTE \READ.SYMBOL)) (MOVD? (QUOTE 
\ORIG-INVALID.SYMBOL) (QUOTE \INVALID.SYMBOL))))) (COMS (* ; "Read macro for '") (FNS READQUOTE)) (
COMS (* ; "# macro") (FNS READVBAR READHASHMACRO DEFMACRO-LAMBDA-LIST-KEYWORD-P DIGITBASEP 
READNUMBERINBASE ESTIMATE-DIMENSIONALITY SKIP.HASH.COMMENT CMLREAD.FEATURE.PARSER) (* ; 
"Reading characters with #\") (FNS CHARACTER.READ)) (COMS (* ; "Character names") (FNS CHARCODE.DECODE
 CHARCODE.ENCODE CHARCODEP CHARSET.DECODE CHARSET.ENCODE) (FNS HEXNUM? OCTALNUM? HEXSTRING) (
GLOBALVARS CHARACTERNAMES CHARACTERSETNAMES) (ALISTS (CHARACTERNAMES Page Form FF Rubout Del Null 
Escape Esc Bell Tab Backspace Bs Newline CR EOL Return Tenexeol Space Sp Linefeed LF Zero One Two 
Three Four Five Six Seven Eight Nine INFINITY EMQUAD ENQUAD THINSPACE FIGURESPACE LEFT-DOUBLEQUOTE 
RIGHT-DOUBLEQUOTE EMDASH) (CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana 
Kanji))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES) (MACROS .CALL.SUBREAD. FIXDOT 
RBCONTEXT PROPRB \RDCONC) (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn) (GLOBALVARS 
*KEYWORD-PACKAGE* *INTERLISP-PACKAGE*)) (COMS (INITVARS (*REPLACE-NO-FONT-CODE* T) (
*DEFAULT-NOT-CONVERTED-FAT-CODE* 8739)) (GLOBALVARS *REPLACE-NO-FONT-CODE* 
*DEFAULT-NOT-CONVERTED-FAT-CODE*)) (INITVARS (*READ-NEWLINE-SUPPRESS*) (\RefillBufferFn (FUNCTION 
\READCREFILL))) (* ; 
"Top level val of \RefillBufferFn means act like READC--we must be doing a raw BIN (or PEEKBIN?)") (
LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) 
(LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ)))))
(MOVD? (QUOTE \ORIG-READ.SYMBOL) (QUOTE \READ.SYMBOL))
(MOVD? (QUOTE \ORIG-INVALID.SYMBOL) (QUOTE \INVALID.SYMBOL))
(ADDTOVAR CHARACTERNAMES (Page 12) (Form 12) (FF 12) (Rubout 127) (Del 127) (Null 0) (Escape 27) (Esc 
27) (Bell 7) (Tab 9) (Backspace 8) (Bs 8) (Newline 13) (CR 13) (EOL 13) (Return 13) (Tenexeol 31) (
Space 32) (Sp 32) (Linefeed 10) (LF 10) (Zero 48) (One 49) (Two 50) (Three 51) (Four 52) (Five 53) (
Six 54) (Seven 55) (Eight 56) (Nine 57) (INFINITY "41,147") (EMQUAD "357,55") (ENQUAD "357,54") (
THINSPACE "357,57") (FIGURESPACE "357,56") (LEFT-DOUBLEQUOTE "0,252") (RIGHT-DOUBLEQUOTE "0,272") (
EMDASH "357,045"))
(ADDTOVAR CHARACTERSETNAMES (Meta 1) (Function 2) (Greek 38) (Cyrillic 39) (Hira 36) (Hiragana 36) (
Kata 37) (Katakana 37) (Kanji 48))
(RPAQ? *REPLACE-NO-FONT-CODE* T)
(RPAQ? *DEFAULT-NOT-CONVERTED-FAT-CODE* 8739)
(RPAQ? *READ-NEWLINE-SUPPRESS*)
(RPAQ? \RefillBufferFn (FUNCTION \READCREFILL))
NIL