(FILECREATED " 6-Aug-86 01:32:29" ("compiled on " {ERIS}LIBRARY>CMLREAD.;58) " 1-Aug-86 05:25:55" "COMPILE-FILEd" in "Xerox Lisp 1-Aug-86 ..." dated " 1-Aug-86 05:41:14") (FILECREATED " 6-Aug-86 01:29:54" {ERIS}LIBRARY>CMLREAD.;58 36928 changes to: (VARS CMLREADCOMS) (FUNCTIONS IL-UNWRAP-MACRO CL-UNWRAP-MACRO IL-MACRO-WRAPPED-P CL-WRAP-MACRO IL-WRAP-MACRO CL-MACRO-WRAPPED-P GET-MACRO-CHARACTER FIND-MACRO-FUNCTION SET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER CMLREADQUOTE DO-DISPATCH-MACRO GET-DISPATCH-MACRO-CHARACTER HASH-LEFTPAREN SET-DISPATCH-MACRO-CHARACTER) (FNS CMLRDTBL) previous date: " 6-Aug-86 00:19:34" {ERIS}LISP>CMLREAD.;5) (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 CL-MACRO-WRAPPED-P CL-UNWRAP-MACRO CL-WRAP-MACRO CMLREADBQUOTE CMLREADBQUOTECOMMA CMLREADQUOTE IL-MACRO-WRAPPED-P IL-UNWRAP-MACRO IL-WRAP-MACRO 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) CL-MACRO-WRAPPED-P D1 (L (0 FORM)) =@´9@gð´1@´,@o ´ @´@hð´@´@gð(32Q CL:EQUAL) (71Q FUNCALL 10Q CL:LAMBDA) ( 27Q (STREAM READTABLE Z)) CL-UNWRAP-MACRO D1 (L (0 FORM)) @NIL NIL () CL-WRAP-MACRO D1 (L (1 CHAR 0 CL:FUNCTION)) gogg@hgAhhNIL (23Q STREAM 14Q QUOTE 11Q FUNCALL 2 CL:LAMBDA) ( 6 (STREAM READTABLE Z)) 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 () IL-MACRO-WRAPPED-P D1 (L (0 FORM)) H@´D@gð´<@´7@oô´-@´'@hð´@´@gð´ @gðNIL (104Q STREAM 67Q FUNCALL 10Q CL:LAMBDA) ( 27Q (STREAM CHAR)) IL-UNWRAP-MACRO D1 (L (0 FORM)) @NIL NIL () IL-WRAP-MACRO D1 (L (0 FORM)) gogg@hohNIL (14Q QUOTE 11Q FUNCALL 2 CL:LAMBDA) ( 24Q (STREAM) 6 (STREAM CHAR)) 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-FUNCTION D1 (L (0 FORM)) @d •¿@ ´@ (24Q IL-WRAP-MACRO 16Q FUNCTIONP 12Q CL-UNWRAP-MACRO 4 CL-MACRO-WRAPPED-P) NIL () 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*) beka!lHñ‘T‚laºIÓJ [´AKgð´9K´4Kdgð¨gð´#K´Khð´K Kgðhð (137Q VALUES 123Q FIND-MACRO-FUNCTION 34Q GETSYNTAX) (131Q ALWAYS 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*) Meka1laºlHñ‘h‚la»lHñ‘U‚la¼IÓgK“g‚gJd •¿J ‚ hL(112Q SETSYNTAX 102Q CL-WRAP-MACRO 76Q IL-UNWRAP-MACRO 70Q IL-MACRO-WRAPPED-P) (63Q ALWAYS 57Q FIRST 52Q MACRO 46Q CHARACTER) () (RPAQ? *STANDARD-INPUT* NIL) CMLRDTBL D1 (P 2 I P 0 TBL) }g lÿjJdIó¢±YokHl'oHl;oHl)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"gHl`oHl,oHl%gHHgH¿JkÔZ±ý—(1163Q SETSYNTAX 1152Q SETSYNTAX 1141Q SETSYNTAX 1127Q SETSYNTAX 1115Q SETSYNTAX 1104Q SET-DISPATCH-MACRO-CHARACTER 1100Q SYMBOL-FUNCTION 1062Q SET-DISPATCH-MACRO-CHARACTER 1056Q SYMBOL-FUNCTION 1040Q SET-DISPATCH-MACRO-CHARACTER 1034Q SYMBOL-FUNCTION 1016Q SET-DISPATCH-MACRO-CHARACTER 1012Q SYMBOL-FUNCTION 774Q SET-DISPATCH-MACRO-CHARACTER 770Q SYMBOL-FUNCTION 752Q SET-DISPATCH-MACRO-CHARACTER 746Q SYMBOL-FUNCTION 730Q SET-DISPATCH-MACRO-CHARACTER 724Q SYMBOL-FUNCTION 706Q SET-DISPATCH-MACRO-CHARACTER 702Q SYMBOL-FUNCTION 664Q SET-DISPATCH-MACRO-CHARACTER 660Q SYMBOL-FUNCTION 642Q SET-DISPATCH-MACRO-CHARACTER 636Q SYMBOL-FUNCTION 620Q SET-DISPATCH-MACRO-CHARACTER 614Q SYMBOL-FUNCTION 576Q SET-DISPATCH-MACRO-CHARACTER 572Q SYMBOL-FUNCTION 554Q SET-DISPATCH-MACRO-CHARACTER 550Q SYMBOL-FUNCTION 532Q SET-DISPATCH-MACRO-CHARACTER 526Q SYMBOL-FUNCTION 510Q SET-DISPATCH-MACRO-CHARACTER 504Q SYMBOL-FUNCTION 466Q SET-DISPATCH-MACRO-CHARACTER 462Q SYMBOL-FUNCTION 444Q SET-DISPATCH-MACRO-CHARACTER 440Q SYMBOL-FUNCTION 422Q SET-DISPATCH-MACRO-CHARACTER 416Q SYMBOL-FUNCTION 400Q SET-DISPATCH-MACRO-CHARACTER 374Q SYMBOL-FUNCTION 356Q SET-DISPATCH-MACRO-CHARACTER 352Q SYMBOL-FUNCTION 334Q SET-DISPATCH-MACRO-CHARACTER 330Q SYMBOL-FUNCTION 312Q SET-DISPATCH-MACRO-CHARACTER 306Q SYMBOL-FUNCTION 270Q SET-DISPATCH-MACRO-CHARACTER 264Q SYMBOL-FUNCTION 246Q SET-DISPATCH-MACRO-CHARACTER 242Q SYMBOL-FUNCTION 224Q SET-DISPATCH-MACRO-CHARACTER 220Q SYMBOL-FUNCTION 202Q MAKE-DISPATCH-MACRO-CHARACTER 171Q READTABLEPROP 160Q READTABLEPROP 147Q READTABLEPROP 136Q READTABLEPROP 126Q READTABLEPROP 116Q READTABLEPROP 106Q SETSYNTAX 75Q SETSYNTAX 64Q SETSYNTAX 52Q SETSYNTAX 40Q SETSEPR 5 COPYREADTABLE) (1157Q OTHER 1146Q OTHER 1111Q STRINGDELIM 1075Q HASH-ILLEGAL-HASH-CHAR 1053Q HASH-ILLEGAL-HASH-CHAR 1031Q HASH-ILLEGAL-HASH-CHAR 1007Q HASH-ILLEGAL-HASH-CHAR 765Q HASH-ILLEGAL-HASH-CHAR 743Q HASH-ILLEGAL-HASH-CHAR 721Q HASH-DOUBLEQUOTE 677Q HASH-LEFTANGLE 655Q HASH-VBAR 633Q HASH-MINUS 611Q HASH-PLUS 567Q HASH-C 545Q HASH-S 523Q HASH-A 501Q HASH-R 457Q HASH-X 435Q HASH-B 413Q HASH-O 371Q HASH-COLON 347Q HASH-STAR 325Q HASH-BACKSLASH 303Q HASH-COMMA 261Q HASH-DOT 237Q HASH-QUOTE 215Q HASH-LEFTPAREN 164Q HASHMACROCHAR 153Q MULTIPLE-ESCAPECHAR 142Q ESCAPECHAR 132Q COMMONNUMSYNTAX 122Q COMMONLISP 112Q CASEINSENSITIVE 102Q LEFTPAREN 71Q RIGHTPAREN 2 ORIG) ( 1135Q (MACRO ALWAYS READBQUOTECOMMA) 1123Q (MACRO ALWAYS READBQUOTE) 1072Q |\% 1066Q |\# 1050Q |\Newline 1044Q |\# 1026Q |\Page 1022Q |\# 1004Q |\Newline 1000Q |\# 762Q |\Tab 756Q |\# 740Q |\Space 734Q |\# 716Q |\" 712Q |\# 674Q |\< 670Q |\# 652Q |\| 646Q |\# 630Q |\- 624Q |\# 606Q |\+ 602Q |\# 564Q |\C 560Q |\# 542Q |\S 536Q |\# 520Q |\A 514Q |\# 476Q |\R 472Q |\# 454Q |\X 450Q |\# 432Q |\B 426Q |\# 410Q |\O 404Q |\# 366Q |\: 362Q |\# 344Q |\* 340Q |\# 322Q |\\ 316Q |\# 300Q |\, 274Q |\# 256Q |\. 252Q |\# 234Q |\' 230Q |\# 212Q |\( 206Q |\# 175Q |\# 60Q (MACRO ALWAYS CMLREADSEMI) 46Q (MACRO ALWAYS READQUOTE) 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