(FILECREATED " 5-Aug-86 14:59:16" ("compiled on " {ERIS}LIBRARY>CMLREAD.;55) " 1-Aug-86 05:25:55" "COMPILE-FILEd" in "Xerox Lisp 1-Aug-86 ..." dated " 1-Aug-86 05:41:14") (FILECREATED " 5-Aug-86 14:53:43" {ERIS}LIBRARY>CMLREAD.;55 35748 changes to: (FNS CMLRDTBL) (FUNCTIONS MAKE-DISPATCH-MACRO-CHARACTER SET-MACRO-CHARACTER CMLREADQUOTE DO-DISPATCH-MACRO GET-DISPATCH-MACRO-CHARACTER HASH-LEFTPAREN SET-DISPATCH-MACRO-CHARACTER) (VARS CMLREADCOMS) previous date: " 5-Aug-86 14:15:22" {ERIS}LIBRARY>CMLREAD.;53) (RPAQQ CMLREADCOMS ((* "This is a collection of hacks designed to make our reader handle some subset of Common Lisp syntax. It doesn't really work right" ) (COMS (FNS CL:READ COPY-READTABLE READ-DELIMITED-LIST) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? ( QUOTE NILL) (QUOTE CMLTRANSLATE)))) (* "must turn off packed version of CLISP infix") (VARS ( CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- * :)))) (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) ( DWIMINMACROSFLG))) (FUNCTIONS CMLREADBQUOTE CMLREADBQUOTECOMMA CMLREADQUOTE PARSE-INTEGER) (* "Common Lisp readtable interface functions and supplied hash macro functions") (FUNCTIONS SET-SYNTAX-FROM-CHAR DO-DISPATCH-MACRO FIND-MACRO-FUNCTION GET-DISPATCH-MACRO-CHARACTER GET-MACRO-CHARACTER HASH-LEFTPAREN HASH-A HASH-B HASH-BACKSLASH HASH-C HASH-COLON HASH-COMMA HASH-DOT HASH-DOUBLEQUOTE HASH-ILLEGAL-HASH-CHAR HASH-LEFTANGLE HASH-MINUS HASH-NO-PARAMETER-ERROR HASH-O HASH-PLUS HASH-QUOTE HASH-R HASH-S HASH-STAR HASH-VBAR HASH-X MAKE-DISPATCH-MACRO-CHARACTER SET-DISPATCH-MACRO-CHARACTER SET-MACRO-CHARACTER) (INITVARS (*STANDARD-INPUT* NIL)) (COMS (* "Attempt to build a CommonLisp readtable. Most features simulated for the basic reading, but macros need work" ) (FNS CMLRDTBL CMLREADSEMI) (VARS (CMLRDTBL (CMLRDTBL)))) (COMS (* "Crude means to aid reading and printing things in same reader environment") (RECORDS READER-ENVIRONMENT) (FNS MAKE-READER-ENVIRONMENT EQUAL-READER-ENVIRONMENT) (FUNCTIONS WITH-READER-ENVIRONMENT) (ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) ( INITVARS (*OLD-INTERLISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REREADTABLE _ FILERDTBL REBASE _ 10))) (PROP INFO WITH-READER-ENVIRONMENT)) (PROP FILETYPE CMLREAD) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA COPY-READTABLE CL:READ))))) CL:READ D1 (L (3 RECURSIVE-P 2 EOF-VALUE 1 EOF-ERROR-P 0 INPUT-STREAM)) @ (6 CMLTRANSLATE 3 READ) NIL () COPY-READTABLE D1 (L (0 -args-) F 10Q *READTABLE* F 11Q CMLRDTBL) xepkHñ’Wƒi¹kaºh»lHñ‘h„i»la¼I²J•Jdið–¿W†i W½K²L•Ldið—¿W°i ``¾dN¿M _MÉ O(161Q COPY 143Q RESETREADTABLE 120Q \GTREADTABLE1 66Q \GTREADTABLE1) (154Q READTABLEP 150Q READTABLEP 130Q CHARTABLETYPE# 124Q READTABLEPTYPE# 112Q READTABLEP 61Q READTABLEP) () READ-DELIMITED-LIST D1 (P 1 INSTREAM P 0 ENDCODE I 2 RECURSIVE-P I 1 INPUT-STREAM I 0 CHAR) 5@ÓAg 0I Hð³I ¼Kµ Lh[º°ëL&»°æI J(61Q READCCODE 35Q READ 25Q SKIPSEPRCODES 13Q \GETSTREAM) (10Q INPUT 3 CHARACTER) () (MOVD? (QUOTE NILL) (QUOTE CMLTRANSLATE)) (RPAQ CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- * :)))) (RPAQ CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) (RPAQQ DWIMINMACROSFLG NIL) CMLREADBQUOTE D1 (L (1 CHAR 0 STREAM) F 0 *READTABLE*) @P (4 READBQUOTE) NIL () CMLREADBQUOTECOMMA D1 (L (1 CHAR 0 STREAM) F 0 *READTABLE*) @P (4 READBQUOTECOMMA) NIL () CMLREADQUOTE D1 (L (1 CHAR 0 STREAM) F 0 *READTABLE*) @P (4 READQUOTE) NIL () PARSE-INTEGER D1 (L (0 -args-) F 33Q *READTABLE*) ‹ekaáHl»ºKdJó²o¿j¼Hl¾½NdMó²u¿I _¿Hl_¿_¿OdOó²p¿l _¿Hl_¿_¿OdOó²p¿h_¿°W6É_ IÉ_"IÈIÈ_$IÊCjð²[h°Yagð•KkØa°‹KlÔ[±ÿ}agð•NkØa°ˆNlÔ^±ÿwagð–OkØa°ŠOlÔ_±ÿxagð–OkØa°‰OlÔ_±ÿxi_&L_(OO(ó²QO O&šO"O$O(ÔÐÈ‡O"O$O(ÔÂ_*¿_¿O*lÿñ²OÉ€O*OÉ€ µ j„OO*Âl`ð˜O(kÔ_(¿°¬O(Oó²O–hO o ¿g_,Ol/Ô_.OO(ó²xO&šO"O$O(ÔÐÈ‡O"O$O(ÔÂ_*dl-ð²¿O0³)O,gð²!g°l+ð²O0³O,gð™g_0¿O,µOl0O*ñ³$O*O.ñ³O,dgð™¿O(_2¿g‰gð–g€hµ#O4¤O(_4¿OO(ó²`O O&²O"O$O(ÔÐÈ°_,¿O(kÔ_(¿±ÿXO"O$O(ÔÂ_*¿_¿O*lÿñ²OÉ€O*OÉ€ µ j„OO*Âl`ð˜O(kÔ_(¿°O,gð²!O(O ²O"O2O4O0gðOO& °O’h°O,gð”oƒoI dO( (1210Q VALUES 1202Q CL:ERROR 1146Q \MKINTEGER 1120Q %%= 1053Q GETHASH 512Q CL:ERROR 502Q VALUES 434Q GETHASH 46Q CL:LENGTH) (1163Q INIT 1135Q - 1106Q INITDIGIT 1046Q CHARTABLE 1034Q CHARTABLE 720Q INITDIGIT 713Q INITDIGIT 707Q INITDIGIT 674Q INIT 641Q + 634Q INIT 614Q - 606Q INIT 516Q INIT 427Q CHARTABLE 415Q CHARTABLE 303Q :JUNK-ALLOWED 254Q :RADIX 230Q :END 204Q :START 161Q STRINGP 153Q STRINGP 136Q READTABLEP) ( 1176Q "There Is junk in this integer string: ~S." 1171Q "There aren't any digits in this integer string: ~S." 507Q "No non-whitespace characters in number.") SET-SYNTAX-FROM-CHAR D1 (L (0 -args-) F 5 *READTABLE* F 6 CMLRDTBL) 7eka1laºlHñ‘U‚la»lHñ‘V‚la¼IÓJÓL K(64Q SETSYNTAX 60Q GETSYNTAX) (53Q CHARACTER 46Q CHARACTER) () DO-DISPATCH-MACRO D1 (L (2 RDTBL 1 STREAM 0 CHAR) P 0 *READTABLE*) ‘BaAB ºl0Jñ³Jl9ñ³Iµjl ÖAB l0ÕÔ¹°ÝAB [nÿÿóhð´lKÑ ¼@BÉ½LM¾M¨o@ Loð²Al(nÿÿóhð´ll(ÑIlNAB N—ALIlNoL@(216Q CL:ERROR 173Q READCCODE 127Q CL:ERROR 75Q CHAR-UPCASE 55Q PEEKCCODE 41Q READCCODE 10Q PEEKCCODE) (103Q READTABLEP) ( 211Q "Undefined dispatch character ~S for dispatch macro character ~S" 135Q |\( 123Q "~S is not a dispatch macro character") FIND-MACRO-FUNCTIONA0001 D1 (L (0 X)) @d˜dgð‘NIL (10Q QUOTE) () FIND-MACRO-FUNCTION D1 (L (0 FORM)) =@´9@gð´1@´,@o ´ @´@´@gð´@(32Q CL:EQUAL) (61Q FUNCALL 10Q CL:LAMBDA) ( 27Q (STREAM READTABLE)) GET-DISPATCH-MACRO-CHARACTER D1 (L (0 -args-) F 6 *READTABLE*) 0ekaAlaºlHñ‘V‚la»IKÉ¼JL½L´Md NIL (34Q READTABLEP) () GET-MACRO-CHARACTER D1 (L (0 -args-) F 4 *READTABLE*) Veka!lHñ‘T‚laºIÓJ [´5Kgð´-K´(Kdgð¨gð´K´Khð´ K (123Q FIND-MACRO-FUNCTION 34Q GETSYNTAX) (73Q ALWAYS 64Q FIRST 45Q MACRO 27Q CHARACTER) () HASH-LEFTPAREN D1 (L (2 INDEX 1 CHAR 0 STREAM)) D@ QBµH gHgH ¹H j½¼LMó²I»MºHH¸KJ·¿MkÔ½°êI(45Q LENGTH 40Q MAKE-ARRAY 34Q LAST 24Q MAKE-ARRAY 15Q LENGTH 3 READ) (30Q :INITIAL-ELEMENT 20Q :INITIAL-CONTENTS) () HASH-A D1 (L (2 PARAM 1 CHAR 0 STREAM)) @ BH gH(22Q MAKE-ARRAY 13Q ESTIMATE-DIMENSIONALITY 3 READ) (16Q :INITIAL-CONTENTS) () HASH-B D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @l (12Q READNUMBERINBASE 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-BACKSLASH D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @ (10Q CHARACTER.READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-C D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @ !H¹HºIJ (27Q COMPLEX 10Q READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-COLON D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB @P (14Q MAKE-SYMBOL 11Q RSTRING 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-COMMA D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB g@P h(14Q READ 4 HASH-NO-PARAMETER-ERROR) (7 LOADTIMECONSTANT) () HASH-DOT D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @ (13Q EVAL 10Q READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-DOUBLEQUOTE D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB @Pg(14Q RSTRING 4 HASH-NO-PARAMETER-ERROR) (11Q SKIP) () HASH-ILLEGAL-HASH-CHAR D1 (L (2 PARAM 1 CHAR 0 STREAM)) oA (7 CL:ERROR) NIL ( 3 "Illegal hash macro character ~S") HASH-LEFTANGLE D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB o@ (17Q CL:ERROR 14Q CL:READ 4 HASH-NO-PARAMETER-ERROR) NIL ( 10Q "Unreadble object #<~A>") HASH-MINUS D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB @P •@P ¿(26Q VALUES 22Q CL:READ 14Q CMLREAD.FEATURE.PARSER 11Q CL:READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-NO-PARAMETER-ERROR D1 (L (1 PARAM 0 CHAR)) A´oA@(13Q CL:ERROR) NIL ( 6 "Parameter ~D not allowed with hash macro ~S") HASH-O D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @l (12Q READNUMBERINBASE 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-PLUS D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB @P ¥@P ¿(26Q VALUES 22Q CL:READ 14Q CMLREAD.FEATURE.PARSER 11Q CL:READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-QUOTE D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB g@P h(14Q READ 4 HASH-NO-PARAMETER-ERROR) (7 FUNCTION) () HASH-R D1 (L (2 PARAM 1 CHAR 0 STREAM)) @B (4 READNUMBERINBASE) NIL () HASH-S D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @ (13Q CREATE-STRUCTURE 10Q READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-STAR D1 (L (2 PARAM 1 CHAR 0 STREAM) F 6 *READTABLE*) ‚0@V ogg ²@V l0ÙºIµ JhY¸°ØJ&¹°ÓHQBµH gHgg gggH ¹H j½¼LMó²I»MºHH¸KJ·¿MkÔ½°êI(143Q LENGTH 136Q MAKE-ARRAY 131Q LAST 113Q MAKE-ARRAY 75Q LENGTH 36Q READCCODE 27Q CL:MEMBER 24Q SYMBOL-FUNCTION 7 PEEKCCODE) (125Q :INITIAL-ELEMENT 122Q BIT 117Q :ELEMENT-TYPE 107Q BIT 104Q :ELEMENT-TYPE 100Q :INITIAL-CONTENTS 21Q EQ 16Q :TEST) ( 13Q (60Q 61Q)) HASH-VBAR D1 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE*) AB @P (14Q VALUES 11Q SKIP.HASH.COMMENT 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-X D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @l (12Q READNUMBERINBASE 4 HASH-NO-PARAMETER-ERROR) NIL () MAKE-DISPATCH-MACRO-CHARACTER D1 (L (0 -args-) F 4 *READTABLE*) Peka!lHñ‘h‚laºlHñ‘T‚la»IÓgJ“g‚ggogIohhKi(114Q SETSYNTAX) (71Q DO-DISPATCH-MACRO 62Q LAMBDA 57Q ALWAYS 53Q FIRST 46Q MACRO 42Q CHARACTER) ( 76Q (STREAM READTABLE) 66Q (STREAM READTABLE Z)) SET-DISPATCH-MACRO-CHARACTER D1 (L (0 -args-) F 10Q *READTABLE*) »ekaalaºla»lHñ’W‚la¼Joð³IJoð³AJoð³9Joð³1Joð³)Joð³!Joð³Joð¯Joð¨Jdoðš¿oJ ¿J ZILÉµLIhLÉ¿LÉ½JMµMJhM¿M_¿K¾ONi(170Q CHAR-UPCASE 163Q CL:ERROR) (230Q READTABLEP 216Q READTABLEP 207Q READTABLEP 176Q READTABLEP) ( 157Q "Digit ~S illegal as a sub-character for a dispatching macro" 150Q |\9 140Q |\8 131Q |\7 121Q |\6 111Q |\5 101Q |\4 71Q |\3 61Q |\2 51Q |\1 41Q |\0) SET-MACRO-CHARACTER D1 (L (0 -args-) F 5 *READTABLE*) \eka1laºlHñ‘h‚la»lHñ‘U‚la¼IÓgK“g‚ggoggJhgIhhhL(131Q SETSYNTAX) (107Q STREAM 100Q QUOTE 75Q FUNCALL 66Q LAMBDA 63Q ALWAYS 57Q CL:FIRST 52Q MACRO 46Q CHARACTER) ( 72Q (STREAM READTABLE Z)) (RPAQ? *STANDARD-INPUT* NIL) CMLRDTBL D1 (P 2 I P 0 TBL) …g lÿjJdIó¢±aokHoghHoghHl)gHl(gHHgiHgiHgiHgl\Hgl|Hgl#oiHoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hoog Hl"gHoghHoghHl%gHHgH¿JkÔZ±ý(1173Q SETSYNTAX 1162Q SETSYNTAX 1151Q SET-MACRO-CHARACTER 1135Q SET-MACRO-CHARACTER 1121Q SETSYNTAX 1110Q SET-DISPATCH-MACRO-CHARACTER 1104Q SYMBOL-FUNCTION 1066Q SET-DISPATCH-MACRO-CHARACTER 1062Q SYMBOL-FUNCTION 1044Q SET-DISPATCH-MACRO-CHARACTER 1040Q SYMBOL-FUNCTION 1022Q SET-DISPATCH-MACRO-CHARACTER 1016Q SYMBOL-FUNCTION 1000Q SET-DISPATCH-MACRO-CHARACTER 774Q SYMBOL-FUNCTION 756Q SET-DISPATCH-MACRO-CHARACTER 752Q SYMBOL-FUNCTION 734Q SET-DISPATCH-MACRO-CHARACTER 730Q SYMBOL-FUNCTION 712Q SET-DISPATCH-MACRO-CHARACTER 706Q SYMBOL-FUNCTION 670Q SET-DISPATCH-MACRO-CHARACTER 664Q SYMBOL-FUNCTION 646Q SET-DISPATCH-MACRO-CHARACTER 642Q SYMBOL-FUNCTION 624Q SET-DISPATCH-MACRO-CHARACTER 620Q SYMBOL-FUNCTION 602Q SET-DISPATCH-MACRO-CHARACTER 576Q SYMBOL-FUNCTION 560Q SET-DISPATCH-MACRO-CHARACTER 554Q SYMBOL-FUNCTION 536Q SET-DISPATCH-MACRO-CHARACTER 532Q SYMBOL-FUNCTION 514Q SET-DISPATCH-MACRO-CHARACTER 510Q SYMBOL-FUNCTION 472Q SET-DISPATCH-MACRO-CHARACTER 466Q SYMBOL-FUNCTION 450Q SET-DISPATCH-MACRO-CHARACTER 444Q SYMBOL-FUNCTION 426Q SET-DISPATCH-MACRO-CHARACTER 422Q SYMBOL-FUNCTION 404Q SET-DISPATCH-MACRO-CHARACTER 400Q SYMBOL-FUNCTION 362Q SET-DISPATCH-MACRO-CHARACTER 356Q SYMBOL-FUNCTION 340Q SET-DISPATCH-MACRO-CHARACTER 334Q SYMBOL-FUNCTION 316Q SET-DISPATCH-MACRO-CHARACTER 312Q SYMBOL-FUNCTION 274Q SET-DISPATCH-MACRO-CHARACTER 270Q SYMBOL-FUNCTION 252Q SET-DISPATCH-MACRO-CHARACTER 246Q SYMBOL-FUNCTION 230Q SET-DISPATCH-MACRO-CHARACTER 224Q SYMBOL-FUNCTION 206Q MAKE-DISPATCH-MACRO-CHARACTER 175Q READTABLEPROP 164Q READTABLEPROP 153Q READTABLEPROP 142Q READTABLEPROP 132Q READTABLEPROP 122Q READTABLEPROP 112Q SETSYNTAX 101Q SETSYNTAX 70Q SET-MACRO-CHARACTER 54Q SET-MACRO-CHARACTER 40Q SETSEPR 5 COPYREADTABLE) (1167Q OTHER 1156Q OTHER 1144Q CMLREADBQUOTECOMMA 1130Q CMLREADBQUOTE 1115Q STRINGDELIM 1101Q HASH-ILLEGAL-HASH-CHAR 1057Q HASH-ILLEGAL-HASH-CHAR 1035Q HASH-ILLEGAL-HASH-CHAR 1013Q HASH-ILLEGAL-HASH-CHAR 771Q HASH-ILLEGAL-HASH-CHAR 747Q HASH-ILLEGAL-HASH-CHAR 725Q HASH-DOUBLEQUOTE 703Q HASH-LEFTANGLE 661Q HASH-VBAR 637Q HASH-MINUS 615Q HASH-PLUS 573Q HASH-C 551Q HASH-S 527Q HASH-A 505Q HASH-R 463Q HASH-X 441Q HASH-B 417Q HASH-O 375Q HASH-COLON 353Q HASH-STAR 331Q HASH-BACKSLASH 307Q HASH-COMMA 265Q HASH-DOT 243Q HASH-QUOTE 221Q HASH-LEFTPAREN 170Q HASHMACROCHAR 157Q MULTIPLE-ESCAPECHAR 146Q ESCAPECHAR 136Q COMMONNUMSYNTAX 126Q COMMONLISP 116Q CASEINSENSITIVE 106Q LEFTPAREN 75Q RIGHTPAREN 63Q CMLREADSEMI 47Q CMLREADQUOTE 2 ORIG) ( 1141Q |\, 1125Q |\` 1076Q |\% 1072Q |\# 1054Q |\Newline 1050Q |\# 1032Q |\Page 1026Q |\# 1010Q |\Newline 1004Q |\# 766Q |\Tab 762Q |\# 744Q |\Space 740Q |\# 722Q |\" 716Q |\# 700Q |\< 674Q |\# 656Q |\| 652Q |\# 634Q |\- 630Q |\# 612Q |\+ 606Q |\# 570Q |\C 564Q |\# 546Q |\S 542Q |\# 524Q |\A 520Q |\# 502Q |\R 476Q |\# 460Q |\X 454Q |\# 436Q |\B 432Q |\# 414Q |\O 410Q |\# 372Q |\: 366Q |\# 350Q |\* 344Q |\# 326Q |\\ 322Q |\# 304Q |\, 300Q |\# 262Q |\. 256Q |\# 240Q |\' 234Q |\# 216Q |\( 212Q |\# 201Q |\# 60Q |\; 44Q |\' 33Q (40Q 15Q 14Q 12Q 11Q)) CMLREADSEMI D1 (I 1 RDTBL I 0 STREAM) @ l ð²ù(13Q VALUES 3 READCCODE) NIL () (RPAQ CMLRDTBL (CMLRDTBL)) (DATATYPE READER-ENVIRONMENT (REPACKAGE REREADTABLE REBASE RESPEC)) (/DECLAREDATATYPE (QUOTE READER-ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 POINTER) (READER-ENVIRONMENT 4 POINTER) ( READER-ENVIRONMENT 6 POINTER))) (QUOTE 8)) MAKE-READER-ENVIRONMENT D1 (P 2 R I 2 BASE I 1 READTABLE I 0 PACKAGE F 3 *PACKAGE* F 4 *READTABLE* F 5 *READ-BASE*) T`@µISHdI¿Aµ6THdI¿Bµ UHdI¿Jdœ¿kJñ¦Jdl$ñ”¿J °Ý°Ê°·(105Q \INVALID.RADIX) (120Q PACKAGE 113Q READTABLEP 2 READER-ENVIRONMENTTYPE#) () EQUAL-READER-ENVIRONMENT D1 (I 1 ENV2 I 0 ENV1) -@ÉAÉð´@ÉAÉð´@ÉAÉðNIL (47Q READER-ENVIRONMENT 41Q READER-ENVIRONMENT 30Q READER-ENVIRONMENT 22Q READER-ENVIRONMENT 11Q READER-ENVIRONMENT 3 READER-ENVIRONMENT) () expand-WITH-READER-ENVIRONMENT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) /@!H¹HºgogoJhgIohNIL (42Q \DTEST 24Q LET 15Q CL:LAMBDA) ( 47Q ((QUOTE READER-ENVIRONMENT)) 30Q ((*PACKAGE* (ffetch (READER-ENVIRONMENT REPACKAGE) of E)) (*READTABLE* (ffetch (READER-ENVIRONMENT REREADTABLE) of E)) (*READ-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)) (*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E))) 21Q (E)) (SETF-MACRO-FUNCTION (QUOTE WITH-READER-ENVIRONMENT) (QUOTE expand-WITH-READER-ENVIRONMENT)) (ADDTOVAR SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*) (RPAQ? *OLD-INTERLISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REREADTABLE _ FILERDTBL REBASE _ 10 )) (PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) (PUTPROPS CMLREAD FILETYPE COMPILE-FILE) (PUTPROPS CMLREAD COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP