(FILECREATED "12-Sep-86 22:25:46" ("compiled on " {ERIS}SOURCES>COMMON.;53) " 9-Sep-86 18:25:15" recompiled changes: READQUOTE READNUMBERINBASE SKIP.HASH.COMMENT READBQUOTE READBQUOTECOMMA in "Xerox Lisp 9-Sep-86 ..." dated " 9-Sep-86 20:28:31") (FILECREATED "12-Sep-86 22:25:09" {ERIS}SOURCES>COMMON.;53 24083 changes to: (FNS READNUMBERINBASE READQUOTE SKIP.HASH.COMMENT READBQUOTE READBQUOTECOMMA) previous date: "27-Aug-86 23:17:40" {ERIS}SOURCES>COMMON.;52) READQUOTE D1 (I 0 FILE) g@ h(6 READ) (2 QUOTE) () READVBAR D1 (I 1 RDTBL I 0 STREAM) L@ dl'ð™@ @A dl(ð©dl{ð¤dl^ð”@ dl#ðš¿@ @A dl ðªdl ð¥dl ð²ì(111Q VALUES 65Q READHASHMACRO 60Q READCCODE 45Q HREAD 21Q READBQUOTE 14Q READCCODE 3 PEEKCCODE) NIL () READHASHMACRO D1 (P 13Q DEN P 12Q NUM P 11Q A0073 P 5 CONTENTS P 2 READVAL P 1 NEXTCHAR P 0 READFN I 2 INDEX I 1 RDTBL I 0 STREAM) X AÊ jð£g‚gA@A Y»l0Kñ³Kl9ñ³Bµjl Ö@A l0ÕÔb¿°ÚIl(ð²!@kHBµM gM  M @A dl'ðœ¿g@A hdl.ð™¿@kH dl,ðœ¿g@A hdl\ð•¿@ dl*ð²\0@A o ²"@A l0Ù_¿Oµ Oh_¾°ÜO&_¿°ÔNBµM gMgg gg M dl:ð•@A dlOð¤dloð—¿@l dlBð¤dlbð—¿@l dlXð¤dlxð—¿@l dlRð¤dlrð–¿@B dlAð¥dlað²¿@kHBM gM dlSð¤dlsð™¿@kH dlCð¥dlcð² ¿@kH! O_¿O_¿OO dl+ð²@A ¥@A ¿dl-ð²@A •@A ¿dl|ð˜@A dl<ð”¿dl ð³dl ð³dl ð®dl ð©dl ð¤dl)ðœ¿oI l"ð˜@Ag I ÁÉg'µ oI ¼@AlL(1115Q ERROR 1073Q CHARACTER 1066Q RSTRING 1051Q ERROR 1046Q CHARCODE.UNDECODE 774Q READ< 762Q VALUES 757Q SKIP.HASH.COMMENT 744Q VALUES 740Q CL:READ 732Q CMLREAD.FEATURE.PARSER 727Q READ 713Q VALUES 707Q CL:READ 701Q CMLREAD.FEATURE.PARSER 676Q READ 662Q COMPLEX 611Q CREATE-STRUCTURE 565Q MAKE-ARRAY 556Q ESTIMATE-DIMENSIONALITY 524Q READNUMBERINBASE 503Q READNUMBERINBASE 461Q READNUMBERINBASE 437Q READNUMBERINBASE 415Q RSTRING 402Q FILL.VECTOR 376Q MAKE-ARRAY 364Q MAKE-ARRAY 346Q LENGTH 277Q READCCODE 270Q MEMQ 261Q PEEKCCODE 242Q CHARACTER.READ 224Q READ 205Q EVAL 163Q READ 145Q READCCODE 137Q FILL.VECTOR 133Q MAKE-ARRAY 127Q MAKE-ARRAY 120Q LENGTH 62Q READCCODE 30Q PEEKCCODE) (1102Q HASHREADMACRO 1063Q SKIP 561Q :INITIAL-CONTENTS 373Q BIT 370Q :ELEMENT-TYPE 360Q BIT 355Q :ELEMENT-TYPE 351Q :INITIAL-CONTENTS 217Q LOADTIMECONSTANT 156Q FUNCTION 123Q :INITIAL-CONTENTS 20Q READ 14Q CL:READ 3 READTABLEP) ( 1111Q "Undefined hashmacro char" 1042Q "Illegal read syntax " 265Q (60Q 61Q)) DEFMACRO-LAMBDA-LIST-KEYWORD-P D1 (I 0 S) @o (7 MEMBER) NIL ( 4 (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE)) DIGITBASEP D1 (L (1 RADIX 0 CODE)) Fl0@ó¬@Al0Ôýó”@l0ÕAl ó´,la@ó«@lzó¦@màÔb¿lA@ó³@lZó®@lAÕl ÔbA@ó´hNIL NIL () READNUMBERINBASE D1 (P 6 BASE P 5 SIGN P 4 NUMERATOR P 3 VAL P 2 CH P 1 I P 0 BODY I 1 RADIX I 0 STREAM) i@ kRHk Zdl+ð³#dl-ð²6¿i]°Jl/ð”L¢Kµ oH ¼h[¿HIkÔY ZµK²çLµM²jKÕA ^²ÌKµjAÖNÔ°×K »°ãK(142Q %%/ 121Q DIGITBASEP 75Q NTHCHARCODE 60Q CL:ERROR 14Q NTHCHARCODE 3 READ-EXTENDED-TOKEN) NIL ( 54Q "Malformed ratio ~S") ESTIMATE-DIMENSIONALITY D1 (P 1 D I 1 CONTENTS I 0 RANK) :@µ o jð‘h@ABk½MHó³I ¼KµLh[ºMkÔ½I¹°çL&»°ôJ(37Q LENGTH 11Q ERROR) NIL ( 6 "No rank found while reading array") SKIP.HASH.COMMENT D1 (I 1 RDTBL I 0 STREAM) A@A dl#ð’¿°l|ð²ð@A dl|𲿰ôl#ð²Ý@A dl|ð²ò¿@A ¿°Él#ð²Äh(65Q SKIP.HASH.COMMENT 51Q READCCODE 26Q READCCODE 4 READCCODE) NIL () CMLREAD.FEATURE.PARSER D1 (P 0 A0069 I 0 EXPR F 3 *FEATURES*) X@d²N!Hdgð²¿@ˆdYI ´µõigðŸ@‡dZJ ¤µöhHdgð™¿@ hðgð´ @S´i(105Q CMLREAD.FEATURE.PARSER 60Q CMLREAD.FEATURE.PARSER 32Q CMLREAD.FEATURE.PARSER) (113Q ERROR 74Q NOT 45Q OR 15Q AND) () CREATE-STRUCTURE D1 (P 3 TAIL I 0 STRUCTURE-FORM) ?g@ 0@°dK KhX–IµHZY¿µãJ  YH°î(70Q LAST 64Q APPLY 31Q MAKE-KEYWORD 12Q PACK* 7 U-CASE) (2 MAKE-) () READBQUOTE D1 (P 0 \INBQUOTE I 0 FILE) ig@ h(12Q READ) (6 BQUOTE) () READBQUOTECOMMA D1 (P 0 CH I 0 FILE F 1 *READTABLE* F 2 \INBQUOTE) \QÊ jð’R²-@ dl@ð™¿@ ¿gl.ð˜@ ¿g‚g@ h@ Hg §Hg “gg@ (131Q PACK* 126Q READ 112Q SYNTAXP 102Q SYNTAXP 70Q PEEKCCODE 60Q READ 44Q READCCODE 27Q READCCODE 15Q SKIPSEPRCODES) (122Q , 116Q , 107Q SEPR 77Q BREAK 54Q \, 50Q \,. 33Q \,@) () \BQUOTE.EXPAND D1 (P 0 FN I 1 LEVEL I 0 EXPR) jAñ˜o@ Adjð²)¿@d¢±ædgðškb¿b¿°Õj @j kð²{@d²aHdgð”¿@gð˜o@ Hdgð™¿o@ gð–@l Hµ@k dgð¥dgð‘¿…gð²ç@ ²@dið¬3µ g@h@@d²1dgð«dgð¥dgð˜¿@AkÙ gð—@AkØ @A ²Ê@dið³Å3µÁg@h(351Q \BQUOTE.STANDARD 343Q \BQUOTE.STANDARD 326Q \BQUOTE.STANDARD 240Q \BQUOTE.SPLICE 206Q \BQUOTE.STANDARD 174Q \BQUOTE.STANDARD 160Q ERROR 137Q ERROR 67Q \BQUOTE.EXPAND 61Q \BQUOTE.EXPAND 13Q ERROR) (371Q QUOTE 332Q BQUOTE 314Q \., 306Q \,@ 300Q \, 257Q QUOTE 231Q \,. 222Q \,@ 214Q \., 164Q BQUOTE 145Q \,. 125Q \,@ 113Q \, 37Q BQUOTE) ( 154Q ",. in illegal context" 133Q ",@ in illegal context" 7 "Too many commas") BQ.CONS D1 (L (1 XD 0 XA)) <Adgð¥dgð™¿g@Agð˜g@AA™g@Ahg@hNIL (65Q LIST 53Q CONS 40Q LIST 33Q LIST 22Q LIST* 14Q LIST* 6 CONS) () BQ.PROGN D1 (L (0 L)) @d–¿g@NIL (7 PROGN) () \BQUOTE.SPLICE D1 (P 5 ANSWER P 4 FN P 3 D P 2 A2 P 1 A1 P 0 A I 0 SEX) H`@XdYHZ@[dk [doô¡d¡JIgð“g‚g¼Kµ LJKhLð²õLJK(24Q \BQUOTE.EXPAND) (55Q NCONC 51Q APPEND 44Q \,@) ( 32Q (QUOTE NIL)) \BQUOTE.STANDARD D1 (P 3 DV P 2 AV P 1 BCDR P 0 BCAR I 1 LEVEL I 0 EXPR) /@A @A "H Z²I [›gJKhHI (54Q BQ.CONS 31Q CONSTANTEXPRESSIONP 22Q CONSTANTEXPRESSIONP 13Q \BQUOTE.EXPAND 5 \BQUOTE.EXPAND) (36Q QUOTE) () \UNCOMMA D1 (I 0 X) s@d dgð³dgð³dgð¬dgð¦dgð²-¿@ @dgð”¿g‹gð“g‚gHhH¿@ @ Hd@ð˜¿I@ð‘@HI(134Q \UNCOMMA 127Q \UNCOMMA 54Q \UNCOMMA) (110Q \,@ 104Q \,. 77Q %,. 73Q \, 65Q %, 43Q %,! 35Q ., 27Q %,@ 20Q %,. 11Q %,) () \BQUOTE.BREAKRESET D1 (L (0 FLG) F 0 \INBQUOTE) P@c¿NIL NIL () QUOTE.WRAPPER D1 (P 0 SYN I 1 FILE I 0 E) g H´H gð´o(20Q LAST 5 GETSYNTAX) (24Q READQUOTE 2 ') ( 33Q "'") BQUOTE.WRAPPER D1 (I 1 FILE I 0 E) >gg  ´/@dgð”odgð”odgð”ogð´o(14Q MEMB 10Q GETSYNTAX) (64Q \,@ 52Q \,. 37Q \, 24Q BQUOTE 5 ` 2 READBQUOTE) ( 73Q ",@" 60Q ",." 45Q "," 32Q "`") FUNCTION.WRAPPER D1 (L (1 FILE 0 E) F 0 *READTABLE*) PÊl#ð´oNIL (3 READTABLEP) ( 17Q "#'") (PRETTYCOMPRINT COMMONCOMS) (RPAQQ COMMONCOMS ((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 CREATE-STRUCTURE)) (COMS (* BQUOTE) (FNS READBQUOTE READBQUOTECOMMA \BQUOTE.EXPAND BQ.CONS BQ.PROGN \BQUOTE.SPLICE \BQUOTE.STANDARD \UNCOMMA \BQUOTE.BREAKRESET) (MACROS BQUOTE) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (\INBQUOTE)) (ADDVARS ( BREAKRESETFORMS (\BQUOTE.BREAKRESET))))) (COMS (* "Pretty printing of quote and friends") (FNS QUOTE.WRAPPER BQUOTE.WRAPPER FUNCTION.WRAPPER) (PROP PRETTYWRAPPER BQUOTE CL:FUNCTION QUOTE \, \,. \,@ )) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CREATE-STRUCTURE))))) (PUTPROPS BQUOTE MACRO (FORM (\BQUOTE.EXPAND (\UNCOMMA (CAR FORM)) 1))) (RPAQQ \INBQUOTE NIL) (ADDTOVAR BREAKRESETFORMS (\BQUOTE.BREAKRESET)) (PUTPROPS BQUOTE PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS CL:FUNCTION PRETTYWRAPPER FUNCTION.WRAPPER) (PUTPROPS QUOTE PRETTYWRAPPER QUOTE.WRAPPER) (PUTPROPS \, PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS \,. PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS \,@ PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS COMMON COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL