(FILECREATED "12-Sep-86 22:26:57" ("compiled on " {ERIS}LIBRARY>CMLREAD.;72) " 9-Sep-86 18:25:15" "COMPILE-FILEd" in "Xerox Lisp 9-Sep-86 ..." dated " 9-Sep-86 20:28:31") (FILECREATED "12-Sep-86 22:26:17" {ERIS}LIBRARY>CMLREAD.;72 42526 changes to: (VARS CMLREADCOMS) (FUNCTIONS HASH-STAR HASH-COLON) previous date: "12-Sep-86 14:45:20" {ERIS}LIBRARY>CMLREAD.;71) (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) (COMS (* READ-PRESERVING-WHITESPACE definitely needs more work. Other functions in this COMS may. *) (FNS READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT READ-FROM-STRING READ-BYTE WRITE-BYTE)) (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 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) ( *READ-DEFAULT-FLOAT-FORMAT* (QUOTE SINGLE-FLOAT))) (COMS (* "Attempt to build a CommonLisp readtable. Most features simulated for the basic reading, but macros need work" ) (FNS CMLRDTBL INIT-CML-READTABLES SET-DEFAULT-HASHMACRO-SETTINGS CMLREADSEMI) (DECLARE: DONTEVAL@LOAD DOCOPY (P (INIT-CML-READTABLES)))) (COMS (* "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup" ) (RECORDS READER-ENVIRONMENT) (FUNCTIONS WITH-READER-ENVIRONMENT) (ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) (PROP INFO WITH-READER-ENVIRONMENT) (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) (INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (FIND-PACKAGE "USER") REREADTABLE _ CMLRDTBL REBASE _ 10)))) (PROP FILETYPE CMLREAD) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WRITE-BYTE READ-BYTE READ-FROM-STRING CLEAR-INPUT READ-CHAR-NO-HANG LISTEN PEEK-CHAR UNREAD-CHAR READ-CHAR READ-LINE READ-PRESERVING-WHITESPACE 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 3 *READTABLE*) ?ekHñ‘SkalHñ‘h‚laºIµJ£IµYJµd I J(73Q RESETREADTABLE 63Q COPYREADTABLE 50Q CMLRDTBL 41Q CMLRDTBL) (67Q READTABLEP 53Q READTABLEP) () READ-PRESERVING-WHITESPACE D1 (L (0 -args-) F 6 *STANDARD-INPUT*) gekHñ‘VkaAlHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼IJKL½I g ²"I ²IdÊ2á—Ê2ánÿ„Ê2lÿð“I M(143Q \BACKFILEPTR 107Q \BACKFILEPTR 101Q SYNTAXP 73Q LASTC 66Q CL:READ) (76Q SEPRCHAR) () READ-DELIMITED-LIST D1 (P 1 INSTREAM P 0 ENDCODE I 2 RECURSIVE-P I 1 INPUT-STREAM I 0 CHAR) 9@d3 £ÓAg 0I Hð³I ¼Kµ Lh[º°ëL&»°æI J(65Q READCCODE 41Q READ 31Q SKIPSEPRCODES 17Q \GETSTREAM) (14Q INPUT 7 CHARACTER) () READ-LINE D1 (L (0 -args-) F 6 *STANDARD-INPUT* F 7 READ-LINE-RDTBL) [ekHñ‘VkaAlHñ‘i‚laºlHñ‘h‚la»IW ¼IÉÉ4½IdkM²¿Ld jð™¿J”I Ki Lh (130Q VALUES 123Q READCCODE 117Q VALUES 110Q \EOF.ACTION 76Q NCHARS 52Q RSTRING) NIL () READ-CHAR D1 (L (0 -args-) F 7 *STANDARD-INPUT*) TekHñ’WkaQlHñ‘i‚laºlHñ‘h‚la»Ig ¼JLÉÉ4½LdkM’KL ^´ jNóhð´lNÑ(101Q READCCODE 54Q \GETSTREAM) (51Q INPUT) () UNREAD-CHAR D1 (L (0 -args-) F 2 *STANDARD-INPUT*) ;elHñ‘R‚lag I ´IdÊ2á—Ê2ánÿ„Ê2lÿð´I h(67Q \BACKFILEPTR 32Q \BACKFILEPTR 23Q \GETSTREAM) (20Q INPUT) () PEEK-CHAR D1 (L (0 -args-) P 31Q \INTERRUPTABLE P 30Q \INTERRUPTABLE F 32Q *STANDARD-INPUT*) åekHñ‘hkañplHñ’W4‚laºlHñ‘i‚la»lHñ‘h‚la¼Jg ½Iµ‚±BMKhð_¿_O h_¿^d²jlÿð²7O ¿Od ^lÿð¡NOd jð“¿lÿ‚ _Ï2¿Oá_¿OO ^«h°0OÊ2á_¿Onÿð²O ¿NáOO äO ¿‡OÊ2áNäOÊ_¿_dl ð¢±‰¿Odjð•¿l ±lð²rO h_¿_lÿð²*Od _lÿð¢OOd jð“¿lÿ‚ _Ï2¿O ¿O„OÊ2ánÿð“O ¿Oi O žOÊ2lÿð•O ¿l ð“l °l °l °l ðšOkð’l „l OµL_´5jOóhð´-lOÑið²$M µ K²ßM _´jOóhð´lOÑIdl ð¢±1ÓKhð_"¿_ ¿MO" h_&¿_$d²flÿð²6M ¿Md _$lÿð¢O$ŒMd jð“¿lÿ‚ _&Ï2¿O&á_&¿MO" _$ªh°-MÊ2á_&¿O&nÿð²M ¿O$áMO" äM ¿‡MÊ2áO$äMÊ_.¿_,dl ð²~¿O.djð•¿l ±ƒlð²hM h_*¿_(lÿð²'Md _(lÿð¢O(ŒMd jð“¿lÿ‚ _*Ï2¿M ¿O*ƒMÊ2ánÿð’M ¿Mi M œMÊ2lÿð”M ¿l ð“l °l °l °l ðšO.kð’l „l O,dO ð‘I¢±þ–M ±þá (1342Q \ILLEGAL.ARG 1334Q READCCODE 1252Q \BACKFILEPTR 1235Q \BACKFILEPTR 1231Q \PEEKBIN 1173Q \NSIN.24BITENCODING.ERROR 1047Q \BACKFILEPTR 1042Q \PEEKBIN 1000Q \PEEKBIN 756Q \NSIN.24BITENCODING.ERROR 704Q \PEEKBIN 622Q \EOF.ACTION 611Q SKIPSEPRCODES 506Q \BACKFILEPTR 467Q \BACKFILEPTR 462Q \PEEKBIN 420Q \NSIN.24BITENCODING.ERROR 266Q \BACKFILEPTR 260Q \PEEKBIN 215Q \PEEKBIN 172Q \NSIN.24BITENCODING.ERROR 120Q \PEEKBIN 72Q \GETSTREAM) (664Q CHARACTER 67Q INPUT) () LISTEN D1 (L (0 -args-) F 1 *STANDARD-INPUT*) ekHñ‘Qkag (24Q READP 21Q \GETSTREAM) (16Q INPUT) () READ-CHAR-NO-HANG D1 (L (0 -args-) F 4 *STANDARD-INPUT*) 3ekHñ‘Tka!lHñ‘i‚laºlHñ‘h‚la»I ´IJK(60Q READ-CHAR 50Q LISTEN) NIL () CLEAR-INPUT D1 (L (0 -args-) F 1 *STANDARD-INPUT*) ekHñ‘Qkag (24Q CLEARBUF 21Q \GETSTREAM) (16Q INPUT) () READ-FROM-STRING D1 (L (0 -args-)) ÞekaÑlHñ‘h‚laºlHñ‘h‚la»Hl½¼MdLó²>¿h¾Hl_¿_¿OdOó²=¿h_¿Hl_¿_¿OdOó²=¿h_¿O²JIkO°Eagð•MkØa°¼MlÔ]°®agð–OkØa°¼OlÔ_°«agð–OkØa°¼OlÔ_°«I _¿N–ON ¿O—OJK†OJKOÉÉ0_¿OkO (333Q VALUES 311Q CL:READ 301Q READ-PRESERVING-WHITESPACE 266Q SETFILEPTR 253Q OPENSTRINGSTREAM 250Q MKSTRING 143Q SUBSTRING) (222Q :PRESERVE-WHITESPACE 174Q :END 151Q :START) () READ-BYTE D1 (L (0 -args-)) ;ekaAlHñ‘i‚laºlHñ‘h‚la»Ig ¼JLÉÉ4½LdkM’KL (45Q \GETSTREAM) (42Q INPUT) () WRITE-BYTE D1 (L (1 BINARY-OUTPUT-STREAM 0 INTEGER)) A@!@NIL NIL () (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)) 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*) rekaáHl»ºKdJó²f¿j¼Hl¾½NdMó²k¿I _¿Hl_¿_¿OdOó²e¿l _¿Hl_¿_¿OdOó²d¿h_¿°W6É_ IÉ_"IÈIÈ_$IÊCjð²Wh°Uagð•KkØa°”KlÔ[°†agð•NkØa°’NlÔ^°agð–OkØa°•OlÔ_°ƒagð–OkØa°•OlÔ_°„i_&L_(OO(ó²KO 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(ó²ZO 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( (1157Q VALUES 1151Q CL:ERROR 1115Q \MKINTEGER 1067Q %%= 1022Q GETHASH 467Q CL:ERROR 457Q VALUES 411Q GETHASH 46Q CL:LENGTH) (1132Q INIT 1104Q - 1055Q INITDIGIT 675Q INITDIGIT 670Q INITDIGIT 664Q INITDIGIT 651Q INIT 616Q + 611Q INIT 571Q - 563Q INIT 473Q INIT 267Q :JUNK-ALLOWED 241Q :RADIX 216Q :END 173Q :START) ( 1145Q "There Is junk in this integer string: ~S." 1140Q "There aren't any digits in this integer string: ~S." 464Q "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*) | B@BÉrI³o@ Jµjl ÖKl0ÕÔºAB [¼l0Lñ¥Ll9ñ²ãlK]´ jMóhð´lMÑÓ¾laNó©Ndlzó¤l Õ€NÑ_I_™AOJlOoO@(171Q CL:ERROR 47Q READCCODE 24Q CL:ERROR) (112Q CHARACTER) ( 163Q "Undefined dispatch character ~S for dispatch macro character ~S" 20Q "~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*) -ekaAlaºlHñ‘V‚la»IKÉ¼JL½L´Md NIL NIL () 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)) Io@iQBµH gHgH ¹H j½¼LMó²I»MºHH¸KJ·¿MkÔ½°êI(52Q LENGTH 45Q MAKE-ARRAY 41Q LAST 31Q MAKE-ARRAY 22Q LENGTH 10Q READ-DELIMITED-LIST) (35Q :INITIAL-ELEMENT 25Q :INITIAL-CONTENTS) ( 3 |\)) 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 @Pi (15Q MAKE-SYMBOL 12Q READ-EXTENDED-TOKEN 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-COMMA D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB g@ h(13Q 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 "Unreadable object #<~A>") HASH-MINUS D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB @ ”@ ¿(24Q VALUES 20Q CL:READ 13Q CMLREAD.FEATURE.PARSER 10Q 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)) AB @ ¤@ ¿(24Q VALUES 20Q CL:READ 13Q CMLREAD.FEATURE.PARSER 10Q CL:READ 4 HASH-NO-PARAMETER-ERROR) NIL () HASH-QUOTE D1 (L (2 PARAM 1 CHAR 0 STREAM)) AB g@ h(13Q CL:READ 4 HASH-NO-PARAMETER-ERROR) (7 FUNCTION) () HASH-R D1 (L (2 PARAM 1 CHAR 0 STREAM)) B•@B o (16Q CL:ERROR 6 READNUMBERINBASE) NIL ( 13Q "No base supplied for #R") 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)) @ aH Yjð²B²$Bdjðª¿oB BIBó™oBHBµIgggBœHmÿ dl0ð²'¿j ºIj¾½MNó²BJ¼N»HNkÔ dl0ð²¿j°#l1ð’k°ØoBH°Íl1ð‘kˆoBHLK·¿NkÔ¾°½J(222Q CL:ERROR 201Q CL:ERROR 147Q NTHCHARCODE 122Q MAKE-ARRAY 106Q NTHCHARCODE 60Q CL:ERROR 40Q CL:ERROR 12Q NCHARS 3 READ-EXTENDED-TOKEN) (76Q :INITIAL-ELEMENT 73Q BIT 70Q :ELEMENT-TYPE) ( 215Q "Illegal bit vector element in #~A*~A" 174Q "Illegal bit vector element in #~A*~A" 53Q "Bit vector contents longer than specified length in #~A*~A" 34Q "No contents specified for bit vector #~A*") 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 11Q *READTABLE*) Å ekaqlaºla»lHñ’W‚la¼Joð³GJoð³?Joð³7Joð³/Joð³'Joð³Joð³JoðJoð¦Joð˜oJ ¿lJÓ½laMó©Mdlzó¤l Õ€MÑZILÉµLIhLÉ¿LÉ¾JNµNJhN¿N_¿K_¿OOi(161Q CL:ERROR) (170Q CHARACTER) ( 155Q "Digit ~S illegal as a sub-character for a dispatching macro" 147Q |\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) (RPAQ? *READ-DEFAULT-FLOAT-FORMAT* (QUOTE SINGLE-FLOAT)) CMLRDTBL D1 (P 2 I P 0 TBL) ¬g lÿjJdIó¢±ˆokHl'oHl;oHl)gHl(gHHgiHgiHgiHghHgl\Hgl|H l"gHl`oHl,oHHgH¿JkÔZ±ÿh(242Q SETSYNTAX 231Q SETSYNTAX 217Q SETSYNTAX 205Q SETSYNTAX 174Q SET-DEFAULT-HASHMACRO-SETTINGS 170Q READTABLEPROP 157Q READTABLEPROP 146Q READTABLEPROP 136Q READTABLEPROP 126Q READTABLEPROP 116Q READTABLEPROP 106Q SETSYNTAX 75Q SETSYNTAX 64Q SETSYNTAX 52Q SETSYNTAX 40Q SETSEPR 5 COPYREADTABLE) (236Q OTHER 201Q STRINGDELIM 163Q MULTIPLE-ESCAPECHAR 152Q ESCAPECHAR 142Q USESILPACKAGE 132Q COMMONNUMSYNTAX 122Q COMMONLISP 112Q CASEINSENSITIVE 102Q LEFTPAREN 71Q RIGHTPAREN 2 ORIG) ( 225Q (MACRO ALWAYS READBQUOTECOMMA) 213Q (MACRO ALWAYS READBQUOTE) 60Q (MACRO ALWAYS CMLREADSEMI) 46Q (MACRO ALWAYS READQUOTE) 33Q (40Q 15Q 14Q 12Q 11Q)) INIT-CML-READTABLES D1 (P 2 I P 0 FILETBL F 3 CMLRDTBL F 4 READ-LINE-RDTBL F 5 *LISP-PACKAGE*) `cgoUSl S lkJdIó²'Hgog cohThdTgH¿JkÔZ°Ê(127Q SETSYNTAX 117Q SETSEPR 111Q SETBRK 76Q COPYREADTABLE 67Q READTABLEPROP 34Q COPYREADTABLE 25Q MAKE-READER-ENVIRONMENT 16Q READTABLEPROP 2 CMLRDTBL) (123Q SEPRCHAR 73Q ORIG 60Q NAME 30Q *COMMON-LISP-READ-ENVIRONMENT* 7 NAME) ( 104Q (15Q) 64Q "XCL" 13Q "LISP") SET-DEFAULT-HASHMACRO-SETTINGS D1 (I 0 RDTBL) 2@gl#oi@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@@(456Q SET-DISPATCH-MACRO-CHARACTER 437Q SET-DISPATCH-MACRO-CHARACTER 420Q SET-DISPATCH-MACRO-CHARACTER 401Q SET-DISPATCH-MACRO-CHARACTER 362Q SET-DISPATCH-MACRO-CHARACTER 343Q SET-DISPATCH-MACRO-CHARACTER 324Q SET-DISPATCH-MACRO-CHARACTER 305Q SET-DISPATCH-MACRO-CHARACTER 266Q SET-DISPATCH-MACRO-CHARACTER 247Q SET-DISPATCH-MACRO-CHARACTER 230Q SET-DISPATCH-MACRO-CHARACTER 211Q SET-DISPATCH-MACRO-CHARACTER 172Q SET-DISPATCH-MACRO-CHARACTER 153Q SET-DISPATCH-MACRO-CHARACTER 134Q SET-DISPATCH-MACRO-CHARACTER 115Q SET-DISPATCH-MACRO-CHARACTER 76Q SET-DISPATCH-MACRO-CHARACTER 57Q SET-DISPATCH-MACRO-CHARACTER 40Q SET-DISPATCH-MACRO-CHARACTER 21Q MAKE-DISPATCH-MACRO-CHARACTER 10Q READTABLEPROP) (452Q HASH-DOUBLEQUOTE 433Q HASH-LEFTANGLE 414Q HASH-VBAR 375Q HASH-MINUS 356Q HASH-PLUS 337Q HASH-C 320Q HASH-S 301Q HASH-A 262Q HASH-R 243Q HASH-X 224Q HASH-B 205Q HASH-O 166Q HASH-COLON 147Q HASH-STAR 130Q HASH-BACKSLASH 111Q HASH-COMMA 72Q HASH-DOT 53Q HASH-QUOTE 34Q HASH-LEFTPAREN 3 HASHMACROCHAR) ( 447Q |\" 443Q |\# 430Q |\< 424Q |\# 411Q |\| 405Q |\# 372Q |\- 366Q |\# 353Q |\+ 347Q |\# 334Q |\C 330Q |\# 315Q |\S 311Q |\# 276Q |\A 272Q |\# 257Q |\R 253Q |\# 240Q |\X 234Q |\# 221Q |\B 215Q |\# 202Q |\O 176Q |\# 163Q |\: 157Q |\# 144Q |\* 140Q |\# 125Q |\\ 121Q |\# 106Q |\, 102Q |\# 67Q |\. 63Q |\# 50Q |\' 44Q |\# 31Q |\( 25Q |\# 14Q |\#) CMLREADSEMI D1 (I 1 RDTBL I 0 STREAM) @ l ð²ù(13Q VALUES 3 READCCODE) NIL () (INIT-CML-READTABLES) (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)) 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*) (PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) (RPAQ? *COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (FIND-PACKAGE "USER") REREADTABLE _ CMLRDTBL REBASE _ 10)) (PUTPROPS CMLREAD FILETYPE COMPILE-FILE) (PUTPROPS CMLREAD COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP