(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 10:33:13" ("compiled on " {DSK}sources>CMLREADTABLE.;5) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "13-Mar-95 12:41:10" {DSK}sources>CMLREADTABLE.;4 27688 changes to%: (FNS CMLREADSEMI) previous date%: "16-May-90 14:24:30" {DSK}sources>CMLREADTABLE.;1) (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) (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-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*)) (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*) Ceka1laºlHñ‘U‚la»lHñ•`‚la¼IÓJÓL K(64 SETSYNTAX 58 GETSYNTAX) (51 CHARACTER 44 CHARACTER 33 CMLRDTBL) () CL:GET-DISPATCH-MACRO-CHARACTER :D8 (L (0 -args-) F 4 *READTABLE*) (eka!laºlHñ‘T‚la»JIKÉNIL (31 READTABLEP) () CL:GET-MACRO-CHARACTER :D8 (L (0 -args-) F 5 *READTABLE*) veka1lHñ‘U‚laºIÓJ [´QKgð´GK´BKdgð§dgð’¿i¿h´(K\´"K[´Khð´K Lgðhð$(103 FIND-MACRO-FUNCTION 32 GETSYNTAX) (109 ALWAYS 68 FIRST 60 ALWAYS 43 MACRO 25 CHARACTER) () 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) () 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ð´lMÑÓ¾laNó©Ndlzó¤l Õ€NÑ_I_™AOJlOW™AHihoO@(145 CL:ERROR 130 READ-EXTENDED-TOKEN 35 READCCODE 27 CL:ERROR) (82 CHARACTER 7 READTABLEP) ( 137 "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 COMPILER::*COMPILER-IS-READING* F 3 *READTABLE*) IQš@ihihAB @ihiR›gH SÊ jð¦H H (70 EVAL 63 CL:EVAL 44 COMPILER::MAKE-EVAL-WHEN-LOAD 28 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) (51 READTABLEP 38 :FORM) () HASH-DOT :D8 (L (2 PARAM 1 CHAR 0 STREAM) F 0 *READ-SUPPRESS* F 1 *READTABLE*) ?Pš@ihihAB QÊ jð®@ihi @ihi (60 EVAL 55 CL:READ 45 CL:EVAL 40 CL:READ 19 HASH-NO-PARAMETER-ERROR 10 CL:READ) (25 READTABLEP) () 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-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)) CMLRDTBL :D8 (P 2 I P 0 TBL F 3 *PACKAGE*) ùg lÿjJIó¢±ÍokHl'oHl;oHl)gHl(gHHgiHgiHgiHghHgl\Hgl|SHgl:¿H l"gHl`oHl,oHHJgH¿JkÔZ±ÿ(239 SETSYNTAX 225 SETSYNTAX 212 SETSYNTAX 199 SETSYNTAX 186 SET-DEFAULT-HASHMACRO-SETTINGS 179 READTABLEPROP 164 READTABLEPROP 151 READTABLEPROP 138 READTABLEPROP 126 READTABLEPROP 114 READTABLEPROP 102 READTABLEPROP 90 SETSYNTAX 77 SETSYNTAX 64 SETSYNTAX 51 SETSYNTAX 38 SETSEPR 9 COPYREADTABLE) (233 OTHER 193 STRINGDELIM 172 PACKAGECHAR 157 MULTIPLE-ESCAPECHAR 144 ESCAPECHAR 132 USESILPACKAGE 120 COMMONNUMSYNTAX 108 COMMONLISP 96 CASEINSENSITIVE 84 LEFTPAREN 71 RIGHTPAREN 4 ORIG) ( 219 (MACRO ALWAYS READBQUOTECOMMA) 206 (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@odg@@(461 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) (455 HASH-NUMBER-SIGN 438 HASH-EQUAL 417 HASH-DOUBLEQUOTE 396 HASH-LEFTANGLE 375 HASH-VBAR 354 HASH-MINUS 333 HASH-PLUS 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) ( 449 #\# 433 #\= 428 #\# 412 #\" 407 #\# 391 #\< 386 #\# 370 #\| 365 #\# 349 #\- 344 #\# 328 #\+ 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) @ dl ð¤dl ð’¿i¿h²ë$(5 READCCODE) NIL () (INIT-CML-READTABLES) (PUTPROPS CMLREADTABLE FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLREADTABLE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1995)) NIL