(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 12:08:29" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLREADTABLE.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "25-Oct-91 16:19:12" {DSK}local>lde>lispcore>sources>CMLREADTABLE.;3 21290 changes to%: (VARS CMLREADTABLECOMS) (VARIABLES CL:*READ-EVAL*) (FUNCTIONS HASH-DOT) previous date%: "15-Aug-91 23:36:53" {DSK}local>lde>lispcore>sources>CMLREADTABLE.;2) (RPAQQ CMLREADTABLECOMS ((COMS (* ; "Common Lisp readtable interface functions ") (FUNCTIONS HASH-LEFT-PAD-INITIAL-CONTENTS CL:SET-SYNTAX-FROM-CHAR CL:GET-DISPATCH-MACRO-CHARACTER CL:GET-MACRO-CHARACTER CL:MAKE-DISPATCH-MACRO-CHARACTER CL:SET-DISPATCH-MACRO-CHARACTER CL:SET-MACRO-CHARACTER CL:READTABLE-CASE CL::SET-READTABLE-CASE) (SETFS CL:READTABLE-CASE) (FUNCTIONS DO-DISPATCH-MACRO FIND-MACRO-FUNCTION CL-MACRO-WRAPPED-P CL-UNWRAP-MACRO CL-WRAP-MACRO IL-MACRO-WRAPPED-P IL-UNWRAP-MACRO IL-WRAP-MACRO)) (COMS (* ; "hash macro sub functions") (FUNCTIONS 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-P HASH-PLUS HASH-QUOTE HASH-R HASH-S HASH-STAR HASH-VBAR HASH-X HASH-EQUAL HASH-NUMBER-SIGN HASH-STRUCTURE-SMASH HASH-STRUCTURE-LOOKUP) (* ; "Temporary") (VARIABLES *READ-SUPPRESS* CL:*READ-EVAL*)) (COMS (* ; "Common Lisp default readtables") (FNS CMLRDTBL INIT-CML-READTABLES SET-DEFAULT-HASHMACRO-SETTINGS CMLREADSEMI) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-CML-READTABLES)))) (PROP FILETYPE CMLREADTABLE)) ) HASH-LEFT-PAD-INITIAL-CONTENTS :D8 (L (1 IVAL-LIST 0 SIZE)) 6@A ÕHjó²AHgA o@ (51 CL:ERROR 39 \APPEND2 34 CL:MAKE-LIST 28 LAST 6 LENGTH) (22 :INITIAL-ELEMENT) ( 45 "Values list too long for #~D()") CL:SET-SYNTAX-FROM-CHAR :D8 (L (0 -args-) F 5 *READTABLE*) Deka1laºlHñ‘U‚la»lHñ•`‚la¼IÓJÓL Ki(64 SETSYNTAX 58 GETSYNTAX) (51 CHARACTER 44 CHARACTER 33 CMLRDTBL) () CL:GET-DISPATCH-MACRO-CHARACTER :D8 (L (0 -args-) F 4 *READTABLE* F 5 RTP) 7eka!laºlHñ‘T‚la»UœKªo »JIKÉ(37 FIND-READTABLE) (46 READTABLEP) ( 32 "LISP") CL:GET-MACRO-CHARACTER :D8 (L (0 -args-) F 6 *READTABLE*) ‡ekaAlHñ‘V„iºla»JœKªo »IÓK \´QLgð´GL´BLdgð§dgð’¿i¿h´(L]´"L\´Lhð´L Mgðhð$(120 FIND-MACRO-FUNCTION 49 GETSYNTAX 35 FIND-READTABLE) (126 ALWAYS 85 FIRST 77 ALWAYS 60 MACRO 42 CHARACTER) ( 30 "LISP") CL:MAKE-DISPATCH-MACRO-CHARACTER :D8 (L (0 -args-) F 4 *READTABLE*) `eka!lHñ‘h‚laºlHñ‘T‚la»IÓgJ•g„ggogIohhKi(92 SETSYNTAX) (70 DO-DISPATCH-MACRO 60 LAMBDA 55 ALWAYS 49 FIRST 42 MACRO 36 CHARACTER) ( 76 (STREAM READTABLE) 65 (STREAM READTABLE Z)) CL:SET-DISPATCH-MACRO-CHARACTER :D8 (L (0 -args-) F 10 *READTABLE*) – eka laºla»lHñ’W‚la¼J ›oJ ¿lJÓ½laMó©Mdlzó¤l Õ€MÑZILÉµIh¾LNLÉ¿N_¿JOµOJKOi_¿K_¿OO¿°ñ(46 CL:ERROR 34 CL:DIGIT-CHAR-P) (104 READTABLEP 97 READTABLEP 82 READTABLEP 55 CHARACTER) ( 40 "Digit ~S illegal as a sub-character for a dispatching macro") CL:SET-MACRO-CHARACTER :D8 (L (0 -args-) F 5 *READTABLE*) _eka1laºlHñ‘h‚la»lHñ‘U‚la¼IÓgK•g„gJd —¿J …I hLi(91 SETSYNTAX 81 CL-WRAP-MACRO 74 IL-UNWRAP-MACRO 66 IL-MACRO-WRAPPED-P) (59 ALWAYS 53 FIRST 46 MACRO 40 CHARACTER) () CL:READTABLE-CASE :D8 (L (0 CL:READTABLE)) ?@dÊ0jð³¿@Ê jð¥ggÊ jð¥ggNIL (60 :PRESERVE 54 :INVERT 43 READTABLEP 37 :UPCASE 31 :DOWNCASE 20 READTABLEP 6 READTABLEP) () CL::SET-READTABLE-CASE :D8 (L (1 CL::NEW-CASE 0 CL:READTABLE)) AHdgð²¿@jÏ0¿@jÏ ¿j°wgð²@kÏ0¿@jÏ ¿j°VHdgð²¿@kÏ0¿@kÏ ¿k°2gð´@jÏ0¿@kÏ ¿kgHoA(156 ECASE-FAIL) (145 CL::NEW-CASE 133 READTABLEP 122 READTABLEP 113 :INVERT 100 READTABLEP 89 READTABLEP 79 :DOWNCASE 64 READTABLEP 53 READTABLEP 44 :UPCASE 31 READTABLEP 20 READTABLEP 10 :PRESERVE) ( 151 (:PRESERVE :UPCASE :DOWNCASE :INVERT)) (CL::SET-SETF-INVERSE (QUOTE CL:READTABLE-CASE) (QUOTE CL::SET-READTABLE-CASE)) DO-DISPATCH-MACRO :D8 (L (2 RDTBL 1 STREAM 0 CHAR) P 0 *READTABLE* F 9 *READ-SUPPRESS*) Ÿ B@BÉrI«o@ AB [¼l0Lñ³Ll9ñ®Jµjl ÖKl0ÕÔº°ßlK]Òlð´Mlÿålÿðhð´lMÑÓ¾laNó©Ndlzó¤l Õ€NÑ_I_™AOJlOW™AHihoO@(156 CL:ERROR 141 READ-EXTENDED-TOKEN 35 READCCODE 27 CL:ERROR) (93 CHARACTER 7 READTABLEP) ( 148 "Undefined dispatch character ~S for dispatch macro character ~S" 21 "~S is not a dispatch macro character") FIND-MACRO-FUNCTION :D8 (L (0 FORM)) @d —¿@ ´@ (28 IL-WRAP-MACRO 20 CL:FUNCTIONP 14 CL-UNWRAP-MACRO 6 CL-MACRO-WRAPPED-P) NIL () CL-MACRO-WRAPPED-P :D8 (L (0 FORM)) @@´<@gð´2@´-@oÌ´"@´@hð´@´ @gðNIL (60 CL:FUNCALL 10 CL:LAMBDA) ( 26 (STREAM READTABLE Z)) CL-UNWRAP-MACRO :D8 (L (0 FORM)) @NIL NIL () CL-WRAP-MACRO :D8 (L (1 CHAR 0 FN)) )gogg@hgAhhNIL (28 STREAM 19 QUOTE 14 CL:FUNCALL 4 CL:LAMBDA) ( 9 (STREAM READTABLE Z)) IL-MACRO-WRAPPED-P :D8 (L (0 FORM)) I@´E@gð´;@´6@oô´+@b´#@hð´@b´@gð´@gðNIL (69 STREAM 57 CL:FUNCALL 10 CL:LAMBDA) ( 26 (STREAM CHAR)) IL-UNWRAP-MACRO :D8 (L (0 FORM)) @NIL NIL () IL-WRAP-MACRO :D8 (L (0 FORM)) %gogg@hohNIL (19 QUOTE 14 CL:FUNCALL 4 CL:LAMBDA) ( 28 (STREAM) 9 (STREAM CHAR)) HASH-LEFTPAREN :D8 (L (2 INDEX 1 CHAR 0 STREAM) F 6 *READ-SUPPRESS* F 7 \INBQUOTE) ¬o@iQV‘hW²5B²ooBH¿gggHhohB²NH Bó³8BgH ¹H j½¼LMó²I»MºHH¸KJ·¿MkÔ½°êIoB H gH(169 CL:MAKE-ARRAY 158 LENGTH 151 CL:ERROR 111 LENGTH 104 CL:MAKE-ARRAY 98 LAST 82 LENGTH 42 CL:CERROR 11 CL:READ-DELIMITED-LIST) (163 :INITIAL-CONTENTS 92 :INITIAL-ELEMENT 58 BQUOTE 53 COERCE 48 \,) ( 145 "Values list too long for #~D()" 67 ((QUOTE CL:VECTOR)) 35 "Explicit length not allowed in backquoted vectors:~%%#~D~S" 30 "Ignore the explicit length" 4 #\)) HASH-A :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 1 *READ-SUPPRESS*) $@ihiQ‘hBH gH(33 CL:MAKE-ARRAY 22 ESTIMATE-DIMENSIONALITY 8 CL:READ) (27 :INITIAL-CONTENTS) () HASH-B :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) P™@QihAB @l (26 READNUMBERINBASE 18 HASH-NO-PARAMETER-ERROR 9 READ-EXTENDED-TOKEN) NIL () HASH-BACKSLASH :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS*) ,P—@ hB›BžjBóªkBó–@ oB (41 CL:ERROR 29 CHARACTER.READ 7 CHARACTER.READ) NIL ( 35 "Illegal font specifier ~S for #\") HASH-C :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 3 *READ-SUPPRESS*) 0Sš@ihihAB @ihi!H¹HºIJ (45 COMPLEX 28 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) NIL () HASH-COLON :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READTABLE* F 1 *READ-SUPPRESS*) "Q™@PihAB @Pi (31 CL:MAKE-SYMBOL 26 READ-EXTENDED-TOKEN 18 HASH-NO-PARAMETER-ERROR 9 READ-EXTENDED-TOKEN) NIL () HASH-COMMA :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 1 *READ-SUPPRESS* F 2 CL:*READ-EVAL* F 3 *READTABLE* F 4 *CLTL2-PEDANTIC* F 5 COMPILER::*COMPILER-IS-READING*) kQš@ihihR«o@ T²oo@¿AB @ihiU›gH SÊ jð¦H H (104 EVAL 97 CL:EVAL 78 COMPILER::MAKE-EVAL-WHEN-LOAD 62 CL:READ 53 HASH-NO-PARAMETER-ERROR 45 CL:CERROR 25 ERROR 10 CL:READ) (85 READTABLEP 72 :FORM) ( 39 "#, encountered on ~S with *CLTL2-PEDANTIC* non-NIL" 34 "Read it anyway" 19 "#, encountered on ~S with *READ-EVAL* NIL") HASH-DOT :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 CL:*READ-EVAL* F 2 *READTABLE*) SPš@ihihAB Q³oo@¿RÊ jð®@ihi @ihi (80 EVAL 75 CL:READ 65 CL:EVAL 60 CL:READ 38 CL:CERROR 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) (45 READTABLEP) ( 32 "#. with *READ-EVAL* NIL on ~s" 27 "Read and eval anyway") HASH-DOUBLEQUOTE :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) "Pš@ihihAB @Qg(31 RSTRING 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) (26 SKIP) () HASH-ILLEGAL-HASH-CHAR :D8 (L (2 PARAM 1 CHAR 0 STREAM)) oA (10 CL:ERROR) NIL ( 4 "Illegal hash macro character ~S") HASH-LEFTANGLE :D8 (L (2 PARAM 1 CHAR 0 STREAM)) AB o@ihi (25 CL:ERROR 20 CL:READ 6 HASH-NO-PARAMETER-ERROR) NIL ( 11 "Unreadable object #<~A>") HASH-MINUS :D8 (L (2 PARAM 1 CHAR 0 STREAM) P 1 *READ-SUPPRESS* P 0 *PACKAGE* F 2 *READ-SUPPRESS*) LR²@ihi¿@ihi¿°0AB ¿`@ihi i@ihi$(69 CL:READ 55 CMLREAD.FEATURE.PARSER 49 CL:READ 31 HASH-NO-PARAMETER-ERROR 21 CL:READ 11 CL:READ) (37 *KEYWORD-PACKAGE*) () HASH-NO-PARAMETER-ERROR :D8 (L (1 PARAM 0 CHAR)) A´oA@(14 CL:ERROR) NIL ( 7 "Parameter ~D not allowed with hash macro ~S") HASH-O :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) P™@QihAB @l (26 READNUMBERINBASE 18 HASH-NO-PARAMETER-ERROR 9 READ-EXTENDED-TOKEN) NIL () HASH-P :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS*) $Pš@ihihAB @ihi (33 PATHNAME 28 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) NIL () HASH-PLUS :D8 (L (2 PARAM 1 CHAR 0 STREAM) P 1 *READ-SUPPRESS* P 0 *PACKAGE* F 2 *READ-SUPPRESS*) LR²@ihi¿@ihi¿°0AB ¿`@ihi i@ihi$(69 CL:READ 55 CMLREAD.FEATURE.PARSER 49 CL:READ 31 HASH-NO-PARAMETER-ERROR 21 CL:READ 11 CL:READ) (37 *KEYWORD-PACKAGE*) () HASH-QUOTE :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS*) 'Pš@ihihAB g@ihih(33 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) (24 CL:FUNCTION) () HASH-R :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) "P™@QihB—@B o (31 CL:ERROR 20 READNUMBERINBASE 9 READ-EXTENDED-TOKEN) NIL ( 26 "No base supplied for #R") HASH-S :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS*) $Pš@ihihAB @ihi (33 CREATE-STRUCTURE 28 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) NIL () HASH-STAR :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 7 *READ-SUPPRESS*) @d gð²/¿W²@hdi@hdiB›oB @ aH ¹W‘hIjð²B²+Bdjð¿oB B²IBóœoBHBµIgggBµj ºIj¾½MNó³2JIó²ëIjó²æHmÿ dl0ð’¿°Öl1ð’k°ÐoBH°ÂJ¼N»HNkÔ dl0ð“¿j°l1ð‘k‹oBHLK·¿NkÔ¾°›(252 CL:ERROR 225 NTHCHARCODE 210 CL:ERROR 183 NTHCHARCODE 154 CL:MAKE-ARRAY 124 CL:ERROR 104 CL:ERROR 73 NCHARS 64 READ-EXTENDED-TOKEN 58 FINISH-READING-BITMAP 51 CL:ERROR 37 CL:READ 28 CL:READ 6 PEEKC) (144 :INITIAL-ELEMENT 139 BIT 134 :ELEMENT-TYPE 11 %() ( 245 "Illegal bit vector element in #~A*~A" 203 "Illegal bit vector element in #~A*~A" 117 "Bit vector contents longer than specified length in #~A*~A" 98 "No contents specified for bit vector #~A*" 45 "Unexpected parameter ~S given in #* bitmap syntax.") HASH-VBAR :D8 (L (2 PARAM 1 CHAR 0 STREAM) P 0 *READ-SUPPRESS* F 1 *READ-SUPPRESS* F 2 *READTABLE*) Q§AB ¿i@R $(20 SKIP.HASH.COMMENT 8 HASH-NO-PARAMETER-ERROR) NIL () HASH-X :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) P™@QihAB @l (26 READNUMBERINBASE 18 HASH-NO-PARAMETER-ERROR 9 READ-EXTENDED-TOKEN) NIL () HASH-EQUAL :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 3 *CIRCLE-READ-LIST* F 4 *READ-SUPPRESS*) BT“$Bµo ¿BSšo ¿Bh!HScH¹@ihiºIdJ¿(56 CL:READ 33 CL:ERROR 18 CL:ERROR) NIL ( 28 "#~D= seen twice in same context" 13 "#= encountered") HASH-NUMBER-SIGN :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *CIRCLE-READ-LIST*) P‘hBQµoBd(20 CL:ERROR) NIL ( 13 "#~D# encountered before #~D=") HASH-STRUCTURE-SMASH :D8 (L (0 THING)) @ñHdÃ²9¿@d ™¿@Z¹JI… ¿@d œ¿@[¼KdL¿b°¾] ²oM ið²e@ ¾@d kóœ¿Ng@_¿Nj_¿_¿OOó¡hOO¶_d ²¿O_¿O_¿OOO·„ ¿OkÔ_¿°ÈHÃ´‚±ÿ{@ _d¢±ÿi_@ _d œ¿O@O„ ¿O°Ñ(250 HASH-STRUCTURE-SMASH 244 REPLACEFIELD 231 HASH-STRUCTURE-LOOKUP 223 FETCHFIELD 207 CL::STRUCTURE-POINTER-SLOTS 202 CL:TYPE-OF 174 HASH-STRUCTURE-SMASH 147 HASH-STRUCTURE-LOOKUP 115 CL:MAKE-ARRAY 99 CL:ARRAY-RANK 91 CL:ARRAY-TOTAL-SIZE 81 CL:ARRAY-ELEMENT-TYPE 73 CL:ARRAYP 47 HASH-STRUCTURE-LOOKUP 38 HASH-STRUCTURE-SMASH 21 HASH-STRUCTURE-LOOKUP) (190 CL::STRUCTURE-OBJECT 109 :DISPLACED-TO 10 LISTP) () HASH-STRUCTURE-LOOKUP :D8 (L (0 SLOTCONTENTS) F 0 *CIRCLE-READ-LIST*) @´ @P (10 MEMQ) NIL () (CL:PROCLAIM (QUOTE (CL:SPECIAL *READ-SUPPRESS*))) (OR (BOUNDP (QUOTE *READ-SUPPRESS*)) (CL:SETQ *READ-SUPPRESS* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*READ-EVAL*))) (OR (BOUNDP (QUOTE CL:*READ-EVAL*)) (CL:SETQ CL:*READ-EVAL* T)) CMLRDTBL :D8 (P 2 I P 0 TBL F 3 *PACKAGE*) g lÿjJIó¢±ÙokHl'oHl;oHl)gHl(gHHgiHghHgiHgiHghHgl\Hgl|SHgl:¿H l"gHl`oHl,oHHJgH¿JkÔZ±ÿ(251 SETSYNTAX 237 SETSYNTAX 224 SETSYNTAX 211 SETSYNTAX 198 SET-DEFAULT-HASHMACRO-SETTINGS 191 READTABLEPROP 176 READTABLEPROP 163 READTABLEPROP 150 READTABLEPROP 138 READTABLEPROP 126 READTABLEPROP 114 READTABLEPROP 102 READTABLEPROP 90 SETSYNTAX 77 SETSYNTAX 64 SETSYNTAX 51 SETSYNTAX 38 SETSEPR 9 COPYREADTABLE) (245 OTHER 205 STRINGDELIM 184 PACKAGECHAR 169 MULTIPLE-ESCAPECHAR 156 ESCAPECHAR 144 USESILPACKAGE 132 COMMONNUMSYNTAX 120 COMMONLISP 108 LOWER/FLIPCASE 96 CASEINSENSITIVE 84 LEFTPAREN 71 RIGHTPAREN 4 ORIG) ( 231 (MACRO ALWAYS READBQUOTECOMMA) 218 (MACRO ALWAYS READBQUOTE) 58 (MACRO ALWAYS CMLREADSEMI) 45 (MACRO ALWAYS READQUOTE) 31 (32 13 12 10 9)) INIT-CML-READTABLES :D8 (P 2 I P 0 FILETBL) µgoo `l ` lkJIó²AHgog lÿjJdIó²'oh`JgH¿JkÔZ°¬g`¿JkÔZ°Â(172 SETSYNTAX 150 SETSYNTAX 137 SETBRK 103 COPYREADTABLE 92 READTABLEPROP 61 COPYREADTABLE 46 MAKE-READER-ENVIRONMENT 34 CL:FIND-PACKAGE 24 READTABLEPROP 4 CMLRDTBL) (167 READ-LINE-RDTBL 162 OTHER 144 SEPRCHAR 132 READ-LINE-RDTBL 108 READ-LINE-RDTBL 98 ORIG 82 NAME 56 CMLRDTBL 51 *COMMON-LISP-READ-ENVIRONMENT* 39 CMLRDTBL 14 NAME 9 CMLRDTBL) ( 126 (13) 87 "XCL" 29 "USER" 19 "LISP") SET-DEFAULT-HASHMACRO-SETTINGS :D8 (I 0 RDTBL) æ@gl#oi@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@oog@odg@@(482 CL:SET-DISPATCH-MACRO-CHARACTER 465 CL:SET-DISPATCH-MACRO-CHARACTER 444 CL:SET-DISPATCH-MACRO-CHARACTER 423 CL:SET-DISPATCH-MACRO-CHARACTER 402 CL:SET-DISPATCH-MACRO-CHARACTER 381 CL:SET-DISPATCH-MACRO-CHARACTER 360 CL:SET-DISPATCH-MACRO-CHARACTER 339 CL:SET-DISPATCH-MACRO-CHARACTER 318 CL:SET-DISPATCH-MACRO-CHARACTER 297 CL:SET-DISPATCH-MACRO-CHARACTER 276 CL:SET-DISPATCH-MACRO-CHARACTER 255 CL:SET-DISPATCH-MACRO-CHARACTER 234 CL:SET-DISPATCH-MACRO-CHARACTER 213 CL:SET-DISPATCH-MACRO-CHARACTER 192 CL:SET-DISPATCH-MACRO-CHARACTER 171 CL:SET-DISPATCH-MACRO-CHARACTER 150 CL:SET-DISPATCH-MACRO-CHARACTER 129 CL:SET-DISPATCH-MACRO-CHARACTER 108 CL:SET-DISPATCH-MACRO-CHARACTER 87 CL:SET-DISPATCH-MACRO-CHARACTER 66 CL:SET-DISPATCH-MACRO-CHARACTER 45 CL:SET-DISPATCH-MACRO-CHARACTER 24 CL:MAKE-DISPATCH-MACRO-CHARACTER 12 READTABLEPROP) (476 HASH-NUMBER-SIGN 459 HASH-EQUAL 438 HASH-DOUBLEQUOTE 417 HASH-LEFTANGLE 396 HASH-VBAR 375 HASH-MINUS 354 HASH-PLUS 333 HASH-P 312 HASH-C 291 HASH-S 270 HASH-A 249 HASH-R 228 HASH-X 207 HASH-B 186 HASH-O 165 HASH-COLON 144 HASH-STAR 123 HASH-BACKSLASH 102 HASH-COMMA 81 HASH-DOT 60 HASH-QUOTE 39 HASH-LEFTPAREN 5 HASHMACROCHAR) ( 470 #\# 454 #\= 449 #\# 433 #\" 428 #\# 412 #\< 407 #\# 391 #\| 386 #\# 370 #\- 365 #\# 349 #\+ 344 #\# 328 #\P 323 #\# 307 #\C 302 #\# 286 #\S 281 #\# 265 #\A 260 #\# 244 #\R 239 #\# 223 #\X 218 #\# 202 #\B 197 #\# 181 #\O 176 #\# 160 #\: 155 #\# 139 #\* 134 #\# 118 #\\ 113 #\# 97 #\, 92 #\# 76 #\. 71 #\# 55 #\' 50 #\# 34 #\( 29 #\# 17 #\#) CMLREADSEMI :D8 (I 1 RDTBL I 0 STREAM) @ l ð²÷$(5 READCCODE) NIL () (INIT-CML-READTABLES) (PUTPROPS CMLREADTABLE FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLREADTABLE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991)) NIL