(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "XCL" §BASE 10) (FILECREATED "18-Dec-86 18:27:28" ("compiled on " {QV}LISP>CMLARRAY-SUPPORT.\;2) "18-Dec-86 11:42:37" "COMPILE-FILEd" |in| "Xerox Lisp 18-Dec-86 ..." |dated| "18-Dec-86 12:17:20") (FILECREATED "18-Dec-86 18:24:57" {QV}LISP>CMLARRAY-SUPPORT.\;2 38296 |changes| |to:| (VARS CMLARRAY-SUPPORTCOMS) (FUNCTIONS %VECTORP %STRINGP %SIMPLE-STRING-P %SIMPLE-ARRAY-P %ARRAYP) |previous| |date:| "16-Dec-86 21:10:33" {QV}LISP>CMLARRAY-SUPPORT.\;1) (RPAQQ CMLARRAY-SUPPORTCOMS ((* |;;| "Record def's") (RECORDS ARRAY-HEADER GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (* |;;| "Cmlarray support macros and functions") (* \; "Fast predicates") (FUNCTIONS %ARRAYP %SIMPLE-ARRAY-P %SIMPLE-STRING-P %STRINGP %VECTORP) (FUNCTIONS %CHECK-CIRCLE-PRINT %CHECK-INDICES %CHECK-NOT-WRITEABLE %EXPAND-BIT-OP %GENERAL-ARRAY-ADJUST-BASE %GET-ARRAY-OFFSET %GET-BASE-ARRAY) (FUNCTIONS %BIT-TYPE-P %CHAR-TYPE-P %CML-TYPE-TO-TYPENUMBER-EXPANDER %FAT-CHAR-TYPE-P %FAT-STRING-CHAR-P %GET-TYPE-TABLE-ENTRY %LIT-SIZE-TO-SIZE %LIT-TYPE-TO-TYPE %LLARRAY-MAKE-ACCESSOR-EXPR %LLARRAY-MAKE-SETTOR-EXPR %LLARRAY-TYPED-GET %LLARRAY-TYPED-PUT %LLARRAY-TYPEP %MAKE-ARRAY-TYPE-TABLE %MAKE-CML-TYPE-TABLE %PACK-TYPENUMBER %SMALLFIXP-SMALLPOSP %SMALLPOSP-SMALLFIXP %THIN-CHAR-TYPE-P %THIN-STRING-CHAR-P %TYPE-SIZE-TO-TYPENUMBER %TYPENUMBER-TO-BITS-PER-ELEMENT %TYPENUMBER-TO-CML-TYPE %TYPENUMBER-TO-DEFAULT-VALUE %TYPENUMBER-TO-GC-TYPE %TYPENUMBER-TO-SIZE %TYPENUMBER-TO-TYPE \\GETBASESMALL-FIXP \\GETBASESTRING-CHAR \\GETBASETHINSTRING-CHAR \\PUTBASESMALL-FIXP \\PUTBASESTRING-CHAR \\PUTBASETHINSTRING-CHAR) (* |;;;| "Describes each entry of \\ARRAY-TYPE-TABLE") (STRUCTURES ARRAY-TABLE-ENTRY) (* |;;;| "These vars contain all the necessary info for typed arrays") (VARIABLES %LIT-ARRAY-SIZES %LIT-ARRAY-TABLE %LIT-ARRAY-TYPES) (* |;;;| "Tables that drives various macros") ( VARIABLES %ARRAY-TYPE-TABLE %CANONICAL-CML-TYPES) (* |;;;| "Constants for (SIGNED-BYTE 16)") ( VARIABLES MAX.SMALLFIXP MIN.SMALLFIXP) (* |;;;| "Constants for STRING-CHARS") (VARIABLES %CHAR-TYPE %BIT-TYPE %THIN-CHAR-TYPENUMBER %FAT-CHAR-TYPENUMBER %MAXTHINCHAR) (* |;;;| "Array data-type numbers") (VARIABLES %GENERAL-ARRAY %ONED-ARRAY %TWOD-ARRAY) (* |;;;| "Compiler options") (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE CMLARRAY-SUPPORT))) (BLOCKRECORD ARRAY-HEADER ((* |;;;| "Describes common slots of all array headers") (* \; "First 8 bits are unused") (BASE POINTER) (* \; "24 bits of pointer. Points at raw storage or, in the indirect case, at another array header") (* \; "8 bits of flags") (READ-ONLY-P FLAG) (* \; "Used for headers pointing at symbols pnames") (INDIRECT-P FLAG) (* \; "Points at an array header rather than a raw storage block") (BIT-P FLAG) (* \; "Is a bit array") (STRING-P FLAG) (* \; "Is a string (implies is a vector)") (* \; "If any of the following flags are set, the array in non-simple") (ADJUSTABLE-P FLAG) (DISPLACED-P FLAG) (FILL-POINTER-P FLAG) (EXTENDABLE-P FLAG) (TYPE-NUMBER BITS 8) (* \; "8 bits of type + size") ( OFFSET WORD) (* \; "For oned and general arrays") (FILL-POINTER WORD) (* \; "For oned and general arrays") (TOTAL-SIZE WORD)) (BLOCKRECORD ARRAY-HEADER ((NIL POINTER) (FLAGS BITS 8) (TYPE BITS 4) (SIZE BITS 4))) (ACCESSFNS (SIMPLE-P (EQ 0 (LOGAND (|fetch| (ARRAY-HEADER FLAGS) |of| DATUM) 15)))) (SYSTEM)) (DATATYPE GENERAL-ARRAY ((NIL BITS 8) (* \; "For alignment") (STORAGE POINTER) (* \; "24 bits of pointer") (READ-ONLY-P FLAG) (* \; "8 bits of flags") (INDIRECT-P FLAG) (BIT-P FLAG) ( STRING-P FLAG) (ADJUSTABLE-P FLAG) (DISPLACED-P FLAG) (FILL-POINTER-P FLAG) (EXTENDABLE-P FLAG) ( TYPE-NUMBER BITS 8) (* \; "8 bits of typenumber") (OFFSET WORD) (FILL-POINTER WORD) (TOTAL-SIZE WORD) (DIMS POINTER))) (DATATYPE ONED-ARRAY ((NIL BITS 8) (* \; "Don't use high 8 bits") (BASE POINTER) (* \; "The raw storage base") (READ-ONLY-P FLAG) (* \; "8 bits worth of flags") (NIL BITS 1) (* \; "Oned array's cann't be indirect") (BIT-P FLAG) (STRING-P FLAG) (NIL BITS 1) (* \; "Oned-array's cann't be adjustable") (DISPLACED-P FLAG) (FILL-POINTER-P FLAG) (EXTENDABLE-P FLAG) ( TYPE-NUMBER BITS 8) (* \; "4 bits of type and 4 bits of size") (OFFSET WORD) (* \; "For displaced arrays") (FILL-POINTER WORD) (* \; "For filled arrays") (TOTAL-SIZE WORD) (* \; "Total number of elements"))) (DATATYPE TWOD-ARRAY ((NIL BITS 8) (* "For alignmnet") (BASE POINTER) (* "Raw storage pointer") ( READ-ONLY-P FLAG) (* "8 bits of flags") (NIL BITS 1) (* "Twod arrays cann't be indirect") (BIT-P FLAG) (NIL BITS 4) (* "Twod arrays cann't be strings, nor can they be adjustable, displaced, or have fill pointers") ( EXTENDABLE-P FLAG) (TYPE-NUMBER BITS 8) (BOUND0 WORD) (* "Zero dimension bound") (BOUND1 WORD) (* "One dimension bound") (TOTAL-SIZE WORD))) (/DECLAREDATATYPE (QUOTE GENERAL-ARRAY) (QUOTE ((BITS 8) POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG (BITS 8) WORD WORD WORD POINTER)) (QUOTE ((GENERAL-ARRAY 0 (BITS . 7)) (GENERAL-ARRAY 0 POINTER) (GENERAL-ARRAY 2 (FLAGBITS . 0)) (GENERAL-ARRAY 2 (FLAGBITS . 16)) (GENERAL-ARRAY 2 (FLAGBITS . 32)) ( GENERAL-ARRAY 2 (FLAGBITS . 48)) (GENERAL-ARRAY 2 (FLAGBITS . 64)) (GENERAL-ARRAY 2 (FLAGBITS . 80)) ( GENERAL-ARRAY 2 (FLAGBITS . 96)) (GENERAL-ARRAY 2 (FLAGBITS . 112)) (GENERAL-ARRAY 2 (BITS . 135)) ( GENERAL-ARRAY 3 (BITS . 15)) (GENERAL-ARRAY 4 (BITS . 15)) (GENERAL-ARRAY 5 (BITS . 15)) ( GENERAL-ARRAY 6 POINTER))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE ONED-ARRAY) (QUOTE ((BITS 8) POINTER FLAG (BITS 1) FLAG FLAG (BITS 1) FLAG FLAG FLAG (BITS 8) WORD WORD WORD)) (QUOTE ((ONED-ARRAY 0 (BITS . 7)) (ONED-ARRAY 0 POINTER) ( ONED-ARRAY 2 (FLAGBITS . 0)) (ONED-ARRAY 2 (BITS . 16)) (ONED-ARRAY 2 (FLAGBITS . 32)) (ONED-ARRAY 2 ( FLAGBITS . 48)) (ONED-ARRAY 2 (BITS . 64)) (ONED-ARRAY 2 (FLAGBITS . 80)) (ONED-ARRAY 2 (FLAGBITS . 96 )) (ONED-ARRAY 2 (FLAGBITS . 112)) (ONED-ARRAY 2 (BITS . 135)) (ONED-ARRAY 3 (BITS . 15)) (ONED-ARRAY 4 (BITS . 15)) (ONED-ARRAY 5 (BITS . 15)))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE TWOD-ARRAY) (QUOTE ((BITS 8) POINTER FLAG (BITS 1) FLAG (BITS 4) FLAG (BITS 8 ) WORD WORD WORD)) (QUOTE ((TWOD-ARRAY 0 (BITS . 7)) (TWOD-ARRAY 0 POINTER) (TWOD-ARRAY 2 (FLAGBITS . 0)) (TWOD-ARRAY 2 (BITS . 16)) (TWOD-ARRAY 2 (FLAGBITS . 32)) (TWOD-ARRAY 2 (BITS . 51)) (TWOD-ARRAY 2 (FLAGBITS . 112)) (TWOD-ARRAY 2 (BITS . 135)) (TWOD-ARRAY 3 (BITS . 15)) (TWOD-ARRAY 4 (BITS . 15)) ( TWOD-ARRAY 5 (BITS . 15)))) (QUOTE 6)) |expand-%ARRAYP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) \@Hlð² ggHhgHhgHhh¹gIHhhggIhgIhgIhhh(45 GENSYM) (76 %GENERAL-ARRAY-P 69 %TWOD-ARRAY-P 62 %ONED-ARRAY-P 59 OR 49 LET 32 %GENERAL-ARRAY-P 25 %TWOD-ARRAY-P 18 %ONED-ARRAY-P 15 OR) () (SETF-MACRO-FUNCTION (QUOTE %ARRAYP) (QUOTE |expand-%ARRAYP|)) |expand-%SIMPLE-ARRAY-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ^@Hlð²!ggHhgogHhh¹gIHhhggIhgogIhhh(46 GENSYM) (77 |of| 70 |fetch| 63 %ARRAYP 60 AND 50 LET 32 |of| 25 |fetch| 18 %ARRAYP 15 AND) ( 74 (ARRAY-HEADER SIMPLE-P) 29 (ARRAY-HEADER SIMPLE-P)) (SETF-MACRO-FUNCTION (QUOTE %SIMPLE-ARRAY-P) (QUOTE |expand-%SIMPLE-ARRAY-P|)) |expand-%SIMPLE-STRING-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) €@Hlð²2ggHhgogHhgogHhh¹gIHhhggIhgogIhgogIhhh(63 GENSYM) (110 |of| 103 |fetch| 94 |of| 87 |fetch| 80 %ONED-ARRAY-P 77 AND 67 LET 48 |of| 41 |fetch| 32 |of| 25 |fetch| 18 %ONED-ARRAY-P 15 AND) ( 107 (ARRAY-HEADER STRING-P) 91 (ARRAY-HEADER SIMPLE-P) 45 (ARRAY-HEADER STRING-P) 29 (ARRAY-HEADER SIMPLE-P)) (SETF-MACRO-FUNCTION (QUOTE %SIMPLE-STRING-P) (QUOTE |expand-%SIMPLE-STRING-P|)) |expand-%STRINGP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) z@Hlð²/gggHhgHhhgogHhh¹gIHhhgggIhgIhhgogIhhh(60 GENSYM) (105 |of| 98 |fetch| 87 %GENERAL-ARRAY-P 80 %ONED-ARRAY-P 77 OR 74 AND 64 LET 46 |of| 39 |fetch| 28 %GENERAL-ARRAY-P 21 %ONED-ARRAY-P 18 OR 15 AND) ( 102 (ARRAY-HEADER STRING-P) 43 (ARRAY-HEADER STRING-P)) (SETF-MACRO-FUNCTION (QUOTE %STRINGP) (QUOTE |expand-%STRINGP|)) |expand-%VECTORP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) –@Hlð²=ggHhggHhgkggogHhhhhh¹gIHhhggIhggIhgkggogIhhhhhh(74 GENSYM) (122 |of| 115 |ffetch| 112 LENGTH 108 EQL 101 %GENERAL-ARRAY-P 98 AND 91 %ONED-ARRAY-P 88 OR 78 LET 49 |of| 42 |ffetch| 39 LENGTH 35 EQL 28 %GENERAL-ARRAY-P 25 AND 18 %ONED-ARRAY-P 15 OR) ( 119 (GENERAL-ARRAY DIMS) 46 (GENERAL-ARRAY DIMS)) (SETF-MACRO-FUNCTION (QUOTE %VECTORP) (QUOTE |expand-%VECTORP|)) |expand-%CHECK-CIRCLE-PRINT| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) —@AH¹HZ»J¼gogggogIhhhgggKogooggKhhgggKogoKhhhgoLhNIL (135 CL:WHEN 112 CL:WRITE-CHAR 102 .SPACECHECK. 99 FIRSTTIME 96 CL:WHEN 83 CIRCLELABEL 80 CL:WRITE-STRING 69 LET 59 .SPACECHECK. 56 CIRCLELABEL 53 CL:WHEN 38 PRINT-CIRCLE-LOOKUP 31 CL:MULTIPLE-VALUE-SETQ 28 *PRINT-CIRCLE-HASHTABLE* 25 AND 18 LET) ( 139 (OR (NOT CIRCLELABEL) FIRSTTIME) 116 #\Space 107 (1) 77 (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE*)) 73 (*PRINT-CIRCLE-HASHTABLE*) 64 ((VECTOR-LENGTH CIRCLELABEL)) 35 (CIRCLELABEL FIRSTTIME) 22 (CIRCLELABEL FIRSTTIME)) (SETF-MACRO-FUNCTION (QUOTE %CHECK-CIRCLE-PRINT) (QUOTE |expand-%CHECK-CIRCLE-PRINT|)) |expand-%CHECK-INDICES| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) w@AH¹HZ»J¼ggKooggLhogggLohggogggIohhohNIL (89 CL:ARRAY-DIMENSION 86 INDEX 83 >= 76 OR 73 CL:IF 59 ARG 56 INDEX 53 SETQ 40 I 37 > 22 I 19 CL:DO) ( 108 ((RETURN NIL)) 94 (DIM) 80 (< INDEX 0) 64 (I) 49 (T) 33 ((DIM 0 (CL:1+ DIM)) INDEX) 27 ((CL:1+ I))) (SETF-MACRO-FUNCTION (QUOTE %CHECK-INDICES) (QUOTE |expand-%CHECK-INDICES|)) |expand-%CHECK-NOT-WRITEABLE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) S@AH¹HZ»J¼ggogIhgIhhggKhgLhhgIhhhNIL (69 %MAKE-STRING-ARRAY-FAT 58 %FAT-STRING-CHAR-P 51 %THIN-CHAR-TYPE-P 48 AND 38 %MAKE-ARRAY-WRITEABLE 29 |of| 22 |fetch| 19 COND) ( 26 (ARRAY-HEADER READ-ONLY-P)) (SETF-MACRO-FUNCTION (QUOTE %CHECK-NOT-WRITEABLE) (QUOTE |expand-%CHECK-NOT-WRITEABLE|)) |expand-%EXPAND-BIT-OP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) g @H¹HZ»J\½L¾ggggKhhgoKhhgggMhhgoMhhgggKMhhoggNhgNggKhohhgNogNKhhgggNhgKNhhhohI_gð³#Ogð³Ogð³Ogð©Odgð²#¿ggKNhgoKNhh°Agð³ Ogð³Ogð®Ogð§Ogð´goKNh‹gOo I_dgð²¿goMNh±ægð²goMNh±ÏOdgð²¿goMNh±´gð²goMNh±Odgð²¿goMNh±‚gðŸgoMNh°lOdgð²¿goMNh°RgðŸgoMNh°=Odgð²¿goMNh°#gð´goMNh‹gOo Nh(602 ECASE-FAIL 347 ECASE-FAIL) (593 OP 578 %DO-LOGICAL-OP 572 ORC2 556 %DO-LOGICAL-OP 549 ORC1 530 %DO-LOGICAL-OP 525 ANDC2 509 %DO-LOGICAL-OP 502 ANDC1 483 %DO-LOGICAL-OP 478 NOR 461 %DO-LOGICAL-OP 454 NAND 434 %DO-LOGICAL-OP 428 EQV 411 %DO-LOGICAL-OP 404 XOR 384 %DO-LOGICAL-OP 378 IOR 361 %DO-LOGICAL-OP 354 AND 338 OP 323 %DO-LOGICAL-OP 317 ORC1 310 ANDC1 303 NOR 295 NAND 287 EQV 267 %DO-LOGICAL-OP 258 EQ 255 OR 248 ORC2 240 ANDC2 232 XOR 224 IOR 216 AND 187 EQUAL-DIMENSIONS-P 180 BIT-ARRAY-P 177 AND 174 NOT 162 SETQ 152 EQ 132 CL:ARRAY-DIMENSIONS 129 CL:MAKE-ARRAY 125 SETQ 118 NULL 115 COND 97 EQUAL-DIMENSIONS-P 94 NOT 91 CL:IF 75 CL:ERROR 65 BIT-ARRAY-P 62 NOT 59 CL:IF 43 CL:ERROR 33 BIT-ARRAY-P 30 NOT 27 CL:IF 24 PROGN) ( 599 (AND IOR XOR EQV NAND NOR ANDC1 ANDC2 ORC1 ORC2) 582 (QUOTE COR) 560 (QUOTE OR) 534 (QUOTE CAND) 513 (QUOTE AND) 487 (QUOTE CAND) 465 (QUOTE COR) 438 (QUOTE XOR) 415 (QUOTE XOR) 388 (QUOTE OR) 365 (QUOTE AND) 344 (AND IOR XOR ANDC2 ORC2 EQV NAND NOR ANDC1 ORC1) 327 (QUOTE NOT) 271 (QUOTE COPY) 204 ((CL:ERROR "Illegal result array")) 157 (T) 140 (:ELEMENT-TYPE (QUOTE BIT)) 110 ((CL:ERROR "Bit-arrays not of same dimensions")) 79 "BIT-ARRAY2 not a bit array: ~S" 47 "BIT-ARRAY1 not a bit array: ~S") (SETF-MACRO-FUNCTION (QUOTE %EXPAND-BIT-OP) (QUOTE |expand-%EXPAND-BIT-OP|)) |expand-%GENERAL-ARRAY-ADJUST-BASE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) }@!H¹HºggogIhgogIgIohgJgJohgggJgogIhhhohhNIL (93 |of| 86 |fetch| 82 < 79 NOT 76 CL:IF 62 + 58 SETQ 44 %GET-BASE-ARRAY 40 SETQ 33 LET 24 |of| 17 |ffetch| 14 CL:IF) ( 110 ((CL:ERROR "Row-major-index out of bounds (displaced to adjustable?)")) 90 (ARRAY-HEADER TOTAL-SIZE) 67 (%OFFSET) 49 (%OFFSET) 37 ((%OFFSET 0)) 21 (GENERAL-ARRAY INDIRECT-P)) (SETF-MACRO-FUNCTION (QUOTE %GENERAL-ARRAY-ADJUST-BASE) (QUOTE |expand-%GENERAL-ARRAY-ADJUST-BASE|)) |expand-%GET-ARRAY-OFFSET| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) C@gggHhgHhhgogHhhgHhohNIL (51 %TWOD-ARRAY-P 39 |of| 32 |fetch| 21 %GENERAL-ARRAY-P 14 %ONED-ARRAY-P 11 OR 8 COND) ( 59 (0) 36 (ARRAY-HEADER OFFSET)) (SETF-MACRO-FUNCTION (QUOTE %GET-ARRAY-OFFSET) (QUOTE |expand-%GET-ARRAY-OFFSET|)) |expand-%GET-BASE-ARRAY| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºggIohogJgJohhNIL (37 + 33 SETQ 17 %BASE-ARRAY 14 CL:DO) ( 42 ((%GET-ARRAY-OFFSET %BASE-ARRAY)) 30 ((NOT (|fetch| (ARRAY-HEADER INDIRECT-P) |of| %BASE-ARRAY)) %BASE-ARRAY) 22 ((|fetch| (ARRAY-HEADER BASE) |of| %BASE-ARRAY))) (SETF-MACRO-FUNCTION (QUOTE %GET-BASE-ARRAY) (QUOTE |expand-%GET-BASE-ARRAY|)) |expand-%BIT-TYPE-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 EQ) ( 13 (%BIT-TYPE)) (SETF-MACRO-FUNCTION (QUOTE %BIT-TYPE-P) (QUOTE |expand-%BIT-TYPE-P|)) |expand-%CHAR-TYPE-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (11 %TYPENUMBER-TO-TYPE 8 EQ) ( 19 (%CHAR-TYPE)) (SETF-MACRO-FUNCTION (QUOTE %CHAR-TYPE-P) (QUOTE |expand-%CHAR-TYPE-P|)) |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0001| :D4 (L (0 ENTRY)) @¤@hhNIL NIL () |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0002| :D4 (L (0 ENTRY)) @´@hNIL NIL () |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0003A0004| :D4 (L (0 ENTRY) F 0 TYPE) @´@Pð´@@hhNIL NIL () |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0003| :D4 (I 0 TYPE F 0 CML-TYPE F 1 %CANONICAL-CML-TYPES) @ggPhgQ h(17 CL:MAPCAN) (13 |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0003A0004| 6 CADR 3 CL:ECASE) () |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0005| :D4 (L (0 TYPE) F 0 %CANONICAL-CML-TYPES) @P (4 CL:ASSOC) NIL () |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDER| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) P 0 CML-TYPE F 3 %CANONICAL-CML-TYPES) g@!igS gS º¹ggHoiS ggHhggHhgJ gHgI hh(88 CL:MAPCAR 75 CL:MAPCAR 46 CL:ASSOC 26 CL:REMOVE-DUPLICATES 23 CL:MAPCAN 16 REMOVE 13 CL:MAPCAN) (84 |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0005| 80 CL:ECASE 71 |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0003| 64 CAR 61 CL:ECASE 54 LISTP 51 CL:IF 34 EQ 31 CL:IF 19 |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0002| 9 |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDERA0001|) ( 39 (T)) (SETF-MACRO-FUNCTION (QUOTE %CML-TYPE-TO-TYPENUMBER-EXPANDER) (QUOTE |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDER|)) |expand-%FAT-CHAR-TYPE-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 EQ) ( 13 (%FAT-CHAR-TYPENUMBER)) (SETF-MACRO-FUNCTION (QUOTE %FAT-CHAR-TYPE-P) (QUOTE |expand-%FAT-CHAR-TYPE-P|)) |expand-%FAT-STRING-CHAR-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (11 CL:CHAR-CODE 8 >) ( 19 (%MAXTHINCHAR)) (SETF-MACRO-FUNCTION (QUOTE %FAT-STRING-CHAR-P) (QUOTE |expand-%FAT-STRING-CHAR-P|)) %GET-TYPE-TABLE-ENTRY :D4 (L (0 TYPENUMBER) F 0 %ARRAY-TYPE-TABLE) @P (4 CL:ASSOC) NIL () %LIT-SIZE-TO-SIZE :D4 (L (0 LIT-SIZE) F 0 %LIT-ARRAY-SIZES) @P (4 CL:ASSOC) NIL () %LIT-TYPE-TO-TYPE :D4 (L (0 LIT-TYPE) F 0 %LIT-ARRAY-TYPES) @P (4 CL:ASSOC) NIL () %LLARRAY-MAKE-ACCESSOR-EXPR :D4 (L (2 OFFSET 1 BASE 0 TYPENUMBER)) 6@ QH¹kI ºH»lK ¿H¼lL ½JAM™gBMh€Bh(31 CL:NTH 22 CL:NTH 13 CL:NTH 3 %GET-TYPE-TABLE-ENTRY) (39 LLSH) () %LLARRAY-MAKE-SETTOR-EXPR :D4 (L (3 NEWVALUE 2 OFFSET 1 BASE 0 TYPENUMBER)) 9@ QH¹lI ºH»lK ¿H¼lL ½JAM™gBMh€BCh(32 CL:NTH 23 CL:NTH 14 CL:NTH 3 %GET-TYPE-TABLE-ENTRY) (40 LLSH) () |expand-%LLARRAY-TYPED-GETA0001| :D4 (L (0 TYPEENTRY) F 0 BASE F 1 OFFSET) @@PQ h(8 %LLARRAY-MAKE-ACCESSOR-EXPR) NIL () |expand-%LLARRAY-TYPED-GET| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) P 4 OFFSET P 1 BASE F 5 %ARRAY-TYPE-TABLE) @AH¹HZ»J¼gKgU (27 CL:MAPCAR) (23 |expand-%LLARRAY-TYPED-GETA0001| 19 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPED-GET) (QUOTE |expand-%LLARRAY-TYPED-GET|)) |expand-%LLARRAY-TYPED-PUTA0001| :D4 (L (0 TYPEENTRY) F 0 BASE F 1 OFFSET F 2 NEWVALUE) @@PQR h(9 %LLARRAY-MAKE-SETTOR-EXPR) NIL () |expand-%LLARRAY-TYPED-PUT| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) P 6 NEWVALUE P 5 OFFSET P 1 BASE F 7 %ARRAY-TYPE-TABLE) &@aH¹HZ»J\½L¾gKgW (33 CL:MAPCAR) (28 |expand-%LLARRAY-TYPED-PUTA0001| 24 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPED-PUT) (QUOTE |expand-%LLARRAY-TYPED-PUT|)) |expand-%LLARRAY-TYPEPA0001| :D4 (L (0 TYPEENTRY) F 1 VALUE) @@lH Qhh(13 CL:NTH) NIL () |expand-%LLARRAY-TYPEP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) P 2 VALUE F 3 %ARRAY-TYPE-TABLE) @!H¹HºgIgS (22 CL:MAPCAR) (18 |expand-%LLARRAY-TYPEPA0001| 14 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPEP) (QUOTE |expand-%LLARRAY-TYPEP|)) %MAKE-ARRAY-TYPE-TABLEA0001A0002 :D4 (L (0 SIZE-ENTRY) F 0 LIT-TYPE) P@ @h(5 %TYPE-SIZE-TO-TYPENUMBER) NIL () %MAKE-ARRAY-TYPE-TABLEA0001 :D4 (L (0 TYPE-ENTRY) P 0 LIT-TYPE) @g@ (13 CL:MAPCAR) (7 %MAKE-ARRAY-TYPE-TABLEA0001A0002) () %MAKE-ARRAY-TYPE-TABLE :D4 (L (2 SIZES 1 TYPES 0 LIT-TABLE)) g@ (6 CL:MAPCAN) (2 %MAKE-ARRAY-TYPE-TABLEA0001) () %MAKE-CML-TYPE-TABLEA0001 :D4 (L (0 TYPE-ENTRY)) @jH @h(10 CL:NTH) NIL () %MAKE-CML-TYPE-TABLE :D4 (L (0 ARRAY-TABLE)) g@ (6 CL:MAPCAR) (2 %MAKE-CML-TYPE-TABLEA0001) () |expand-%PACK-TYPENUMBER| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!H¹HºggIoJhNIL (17 LLSH 14 \\ADDBASE) ( 22 (4)) (SETF-MACRO-FUNCTION (QUOTE %PACK-TYPENUMBER) (QUOTE |expand-%PACK-TYPENUMBER|)) |expand-%SMALLFIXP-SMALLPOSP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHhNIL (8 \\LOLOC) () (SETF-MACRO-FUNCTION (QUOTE %SMALLFIXP-SMALLPOSP) (QUOTE |expand-%SMALLFIXP-SMALLPOSP|)) |expand-%SMALLPOSP-SMALLFIXP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@¹gIHhhggIoggIhIhh(8 GENSYM) (38 |\\SmallNegHi| 35 \\VAG2 25 > 22 CL:IF 12 LET) ( 30 (MAX.SMALLFIXP)) (SETF-MACRO-FUNCTION (QUOTE %SMALLPOSP-SMALLFIXP) (QUOTE |expand-%SMALLPOSP-SMALLFIXP|)) |expand-%THIN-CHAR-TYPE-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 EQ) ( 13 (%THIN-CHAR-TYPENUMBER)) (SETF-MACRO-FUNCTION (QUOTE %THIN-CHAR-TYPE-P) (QUOTE |expand-%THIN-CHAR-TYPE-P|)) |expand-%THIN-STRING-CHAR-P| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (11 CL:CHAR-CODE 8 <=) ( 19 (%MAXTHINCHAR)) (SETF-MACRO-FUNCTION (QUOTE %THIN-STRING-CHAR-P) (QUOTE |expand-%THIN-STRING-CHAR-P|)) %TYPE-SIZE-TO-TYPENUMBER :D4 (L (1 LIT-SIZE 0 LIT-TYPE) F 2 %LIT-ARRAY-TYPES F 3 %LIT-ARRAY-SIZES) @R AS HààààIÐ(11 CL:ASSOC 4 CL:ASSOC) NIL () |expand-%TYPENUMBER-TO-BITS-PER-ELEMENTA0001| :D4 (L (0 TYPEENTRY)) @@lH h(13 CL:NTH) NIL () |expand-%TYPENUMBER-TO-BITS-PER-ELEMENT| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 1 %ARRAY-TYPE-TABLE) @gHgQ (16 CL:MAPCAR) (12 |expand-%TYPENUMBER-TO-BITS-PER-ELEMENTA0001| 8 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-BITS-PER-ELEMENT) (QUOTE |expand-%TYPENUMBER-TO-BITS-PER-ELEMENT|)) |expand-%TYPENUMBER-TO-CML-TYPEA0001| :D4 (L (0 TYPEENTRY)) @g@jH hh(15 CL:NTH) (4 QUOTE) () |expand-%TYPENUMBER-TO-CML-TYPE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 1 %ARRAY-TYPE-TABLE) @gHgQ (16 CL:MAPCAR) (12 |expand-%TYPENUMBER-TO-CML-TYPEA0001| 8 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-CML-TYPE) (QUOTE |expand-%TYPENUMBER-TO-CML-TYPE|)) |expand-%TYPENUMBER-TO-DEFAULT-VALUEA0001| :D4 (L (0 TYPEENTRY)) @@lH h(13 CL:NTH) NIL () |expand-%TYPENUMBER-TO-DEFAULT-VALUE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 1 %ARRAY-TYPE-TABLE) @gHgQ (16 CL:MAPCAR) (12 |expand-%TYPENUMBER-TO-DEFAULT-VALUEA0001| 8 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-DEFAULT-VALUE) (QUOTE |expand-%TYPENUMBER-TO-DEFAULT-VALUE| )) |expand-%TYPENUMBER-TO-GC-TYPEA0001| :D4 (L (0 TYPEENTRY)) @@lH h(13 CL:NTH) NIL () |expand-%TYPENUMBER-TO-GC-TYPE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 1 %ARRAY-TYPE-TABLE) @gHgQ (16 CL:MAPCAR) (12 |expand-%TYPENUMBER-TO-GC-TYPEA0001| 8 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-GC-TYPE) (QUOTE |expand-%TYPENUMBER-TO-GC-TYPE|)) |expand-%TYPENUMBER-TO-SIZE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 LOGAND) ( 13 (15)) (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-SIZE) (QUOTE |expand-%TYPENUMBER-TO-SIZE|)) |expand-%TYPENUMBER-TO-TYPE| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (8 LRSH) ( 13 (4)) (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-TYPE) (QUOTE |expand-%TYPENUMBER-TO-TYPE|)) |expand-\\GETBASESMALL-FIXP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!H¹HºggIJhhNIL (17 \\GETBASE 14 %SMALLPOSP-SMALLFIXP) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASESMALL-FIXP) (QUOTE |expand-\\GETBASESMALL-FIXP|)) |expand-\\GETBASESTRING-CHAR| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!H¹HºggIJhhNIL (17 \\GETBASE 14 CL:CODE-CHAR) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASESTRING-CHAR) (QUOTE |expand-\\GETBASESTRING-CHAR|)) |expand-\\GETBASETHINSTRING-CHAR| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!H¹HºggIJhhNIL (17 \\GETBASEBYTE 14 CL:CODE-CHAR) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASETHINSTRING-CHAR) (QUOTE |expand-\\GETBASETHINSTRING-CHAR|)) |expand-\\PUTBASESMALL-FIXP| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) $@AH¹HZ»J¼gIKgLhhNIL (24 %SMALLFIXP-SMALLPOSP 19 \\PUTBASE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASESMALL-FIXP) (QUOTE |expand-\\PUTBASESMALL-FIXP|)) |expand-\\PUTBASESTRING-CHAR| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) $@AH¹HZ»J¼gIKgLhhNIL (24 CL:CHAR-CODE 19 \\PUTBASE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASESTRING-CHAR) (QUOTE |expand-\\PUTBASESTRING-CHAR|)) |expand-\\PUTBASETHINSTRING-CHAR| :D4 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) $@AH¹HZ»J¼gIKgLhhNIL (24 CL:CHAR-CODE 19 \\PUTBASEBYTE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASETHINSTRING-CHAR) (QUOTE |expand-\\PUTBASETHINSTRING-CHAR|)) (LET* ((A0816 (QUOTE ARRAY-TABLE-ENTRY)) (A0817 T) (A0818 (QUOTE (CL::PS ARRAY-TABLE-ENTRY NIL ( CML-TYPE ACCESSOR SETTOR BITS-PER-ELEMENT GC-TYPE DEFAULT-VALUE NEEDS-SHIFT-P TYPE-TEST) LIST NIL NIL ARRAY-TABLE-ENTRY- NIL NIL CL::DEFAULT-STRUCTURE-PRINTER NIL NIL 0 ((CML-TYPE NIL T NIL 0 ARRAY-TABLE-ENTRY-CML-TYPE) (ACCESSOR NIL T NIL 1 ARRAY-TABLE-ENTRY-ACCESSOR) (SETTOR NIL T NIL 2 ARRAY-TABLE-ENTRY-SETTOR) (BITS-PER-ELEMENT NIL T NIL 3 ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT) (GC-TYPE NIL T NIL 4 ARRAY-TABLE-ENTRY-GC-TYPE) (DEFAULT-VALUE NIL T NIL 5 ARRAY-TABLE-ENTRY-DEFAULT-VALUE) ( NEEDS-SHIFT-P NIL T NIL 6 ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) (TYPE-TEST NIL T NIL 7 ARRAY-TABLE-ENTRY-TYPE-TEST)) ((CML-TYPE NIL T NIL 0 ARRAY-TABLE-ENTRY-CML-TYPE) (ACCESSOR NIL T NIL 1 ARRAY-TABLE-ENTRY-ACCESSOR) (SETTOR NIL T NIL 2 ARRAY-TABLE-ENTRY-SETTOR) (BITS-PER-ELEMENT NIL T NIL 3 ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT) (GC-TYPE NIL T NIL 4 ARRAY-TABLE-ENTRY-GC-TYPE) (DEFAULT-VALUE NIL T NIL 5 ARRAY-TABLE-ENTRY-DEFAULT-VALUE) (NEEDS-SHIFT-P NIL T NIL 6 ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) (TYPE-TEST NIL T NIL 7 ARRAY-TABLE-ENTRY-TYPE-TEST)) NIL NIL NIL NIL T)))) (CL::SET-PARSED-STRUCTURE A0816 A0818)) ARRAY-TABLE-ENTRY-CML-TYPE :D4 (L (0 ARRAY-TABLE-ENTRY)) j@ (4 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-CML-TYPE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-CML-TYPE (CL:NTH 0 ARRAY-TABLE-ENTRY)))) (LET* ((A0820 (QUOTE ARRAY-TABLE-ENTRY-CML-TYPE)) (A0821 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0823 ( CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-CML-TYPE|) (GET A0820 A0821)))) (PUTPROP A0820 A0821 A0823)) ARRAY-TABLE-ENTRY-ACCESSOR :D4 (L (0 ARRAY-TABLE-ENTRY)) k@ (4 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-ACCESSOR| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-ACCESSOR (CL:NTH 1 ARRAY-TABLE-ENTRY)))) (LET* ((A0825 (QUOTE ARRAY-TABLE-ENTRY-ACCESSOR)) (A0826 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0828 ( CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-ACCESSOR|) (GET A0825 A0826)))) (PUTPROP A0825 A0826 A0828)) ARRAY-TABLE-ENTRY-SETTOR :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-SETTOR| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-SETTOR (CL:NTH 2 ARRAY-TABLE-ENTRY)))) (LET* ((A0830 (QUOTE ARRAY-TABLE-ENTRY-SETTOR)) (A0831 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0833 ( CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-SETTOR|) (GET A0830 A0831)))) (PUTPROP A0830 A0831 A0833 )) ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT (CL:NTH 3 ARRAY-TABLE-ENTRY)))) (LET* ((A0835 (QUOTE ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT)) (A0836 (QUOTE COMPILER:OPTIMIZER-LIST)) ( A0838 (CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT|) (GET A0835 A0836)))) (PUTPROP A0835 A0836 A0838)) ARRAY-TABLE-ENTRY-GC-TYPE :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-GC-TYPE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-GC-TYPE (CL:NTH 4 ARRAY-TABLE-ENTRY)))) (LET* ((A0840 (QUOTE ARRAY-TABLE-ENTRY-GC-TYPE)) (A0841 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0843 ( CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-GC-TYPE|) (GET A0840 A0841)))) (PUTPROP A0840 A0841 A0843)) ARRAY-TABLE-ENTRY-DEFAULT-VALUE :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-DEFAULT-VALUE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-DEFAULT-VALUE (CL:NTH 5 ARRAY-TABLE-ENTRY)))) (LET* ((A0845 (QUOTE ARRAY-TABLE-ENTRY-DEFAULT-VALUE)) (A0846 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0848 (CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-DEFAULT-VALUE|) (GET A0845 A0846)))) (PUTPROP A0845 A0846 A0848)) ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P (CL:NTH 6 ARRAY-TABLE-ENTRY)))) (LET* ((A0850 (QUOTE ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P)) (A0851 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0853 (CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P|) (GET A0850 A0851)))) (PUTPROP A0850 A0851 A0853)) ARRAY-TABLE-ENTRY-TYPE-TEST :D4 (L (0 ARRAY-TABLE-ENTRY)) l@ (5 CL:NTH) NIL () |definline-ARRAY-TABLE-ENTRY-TYPE-TEST| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY) (CL:BLOCK ARRAY-TABLE-ENTRY-TYPE-TEST (CL:NTH 7 ARRAY-TABLE-ENTRY)))) (LET* ((A0855 (QUOTE ARRAY-TABLE-ENTRY-TYPE-TEST)) (A0856 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0858 ( CL:ADJOIN (QUOTE |definline-ARRAY-TABLE-ENTRY-TYPE-TEST|) (GET A0855 A0856)))) (PUTPROP A0855 A0856 A0858)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-CML-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-CML-TYPE) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-CML-TYPE)) %%SETF-ARRAY-TABLE-ENTRY-CML-TYPE :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) j@A (5 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-CML-TYPE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-CML-TYPE (CL:SETF (CL:NTH 0 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0860 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-CML-TYPE)) (A0861 (QUOTE COMPILER:OPTIMIZER-LIST)) ( A0863 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-CML-TYPE|) (GET A0860 A0861)))) (PUTPROP A0860 A0861 A0863)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-ACCESSOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-ACCESSOR) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-ACCESSOR)) %%SETF-ARRAY-TABLE-ENTRY-ACCESSOR :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) k@A (5 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-ACCESSOR| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-ACCESSOR (CL:SETF (CL:NTH 1 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0865 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-ACCESSOR)) (A0866 (QUOTE COMPILER:OPTIMIZER-LIST)) ( A0868 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-ACCESSOR|) (GET A0865 A0866)))) (PUTPROP A0865 A0866 A0868)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-SETTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-SETTOR) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-SETTOR) ) %%SETF-ARRAY-TABLE-ENTRY-SETTOR :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-SETTOR| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-SETTOR (CL:SETF (CL:NTH 2 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0870 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-SETTOR)) (A0871 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0873 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-SETTOR|) (GET A0870 A0871)))) (PUTPROP A0870 A0871 A0873)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT)) %%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT (CL:SETF (CL:NTH 3 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0875 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT)) (A0876 (QUOTE COMPILER:OPTIMIZER-LIST )) (A0878 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT|) (GET A0875 A0876))) ) (PUTPROP A0875 A0876 A0878)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-GC-TYPE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-GC-TYPE) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-GC-TYPE)) %%SETF-ARRAY-TABLE-ENTRY-GC-TYPE :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-GC-TYPE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-GC-TYPE (CL:SETF (CL:NTH 4 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0880 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-GC-TYPE)) (A0881 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0883 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-GC-TYPE|) (GET A0880 A0881)))) (PUTPROP A0880 A0881 A0883)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-DEFAULT-VALUE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-DEFAULT-VALUE) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE)) %%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE (CL:SETF (CL:NTH 5 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0885 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE)) (A0886 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0888 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-DEFAULT-VALUE|) (GET A0885 A0886)))) ( PUTPROP A0885 A0886 A0888)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P)) %%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P (CL:SETF (CL:NTH 6 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0890 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P)) (A0891 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0893 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P|) (GET A0890 A0891)))) ( PUTPROP A0890 A0891 A0893)) (REMPROP (QUOTE ARRAY-TABLE-ENTRY-TYPE-TEST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROP (QUOTE ARRAY-TABLE-ENTRY-TYPE-TEST) (QUOTE SETF-INVERSE) (QUOTE %%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST)) %%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST :D4 (L (1 CL::VALUE 0 ARRAY-TABLE-ENTRY)) l@A (6 %SETNTH) NIL () |definline-%%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST| :D4 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (CL:LAMBDA (ARRAY-TABLE-ENTRY CL::VALUE) (CL:BLOCK %%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST (CL:SETF (CL:NTH 7 ARRAY-TABLE-ENTRY) CL::VALUE)))) (LET* ((A0895 (QUOTE %%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST)) (A0896 (QUOTE COMPILER:OPTIMIZER-LIST)) ( A0898 (CL:ADJOIN (QUOTE |definline-%%SETF-ARRAY-TABLE-ENTRY-TYPE-TEST|) (GET A0895 A0896)))) (PUTPROP A0895 A0896 A0898)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %LIT-ARRAY-SIZES))) (SETQ %LIT-ARRAY-SIZES (QUOTE ((1BIT 0) (8BIT 3) (16BIT 4) (32BIT 6)))) (LET* ((A0899 (QUOTE %LIT-ARRAY-SIZES)) (A0900 (QUOTE CL:VARIABLE)) (A0901 "Size codes")) ( SET-DOCUMENTATION A0899 A0900 A0901)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %LIT-ARRAY-TABLE))) (SETQ %LIT-ARRAY-TABLE (QUOTE ((CL:STRING-CHAR ((8BIT (CL:STRING-CHAR \\GETBASETHINSTRING-CHAR \\PUTBASETHINSTRING-CHAR 8 UNBOXEDBLOCK.GCT #\Null NIL (CL:LAMBDA (OBJECT) (%THIN-STRING-CHAR-P OBJECT )))) (16BIT (CL:STRING-CHAR \\GETBASESTRING-CHAR \\PUTBASESTRING-CHAR 16 UNBOXEDBLOCK.GCT #\Null NIL ( CL:LAMBDA (OBJECT) (CL:STRING-CHAR-P OBJECT)))))) (T ((32BIT (T \\GETBASEPTR \\RPLPTR 32 PTRBLOCK.GCT NIL 1 (CL:LAMBDA (OBJECT) T))))) (XPOINTER ((32BIT (XPOINTER \\GETBASEPTR \\PUTBASEPTR 32 UNBOXEDBLOCK.GCT NIL 1 (CL:LAMBDA (OBJECT) T))))) (CL:SINGLE-FLOAT ((32BIT (CL:SINGLE-FLOAT \\GETBASEFLOATP \\PUTBASEFLOATP 32 UNBOXEDBLOCK.GCT 0.0 1 (CL:LAMBDA (OBJECT) (FLOATP OBJECT)))))) ( CL:UNSIGNED-BYTE ((1BIT ((CL:UNSIGNED-BYTE 1) \\GETBASEBIT \\PUTBASEBIT 1 UNBOXEDBLOCK.GCT 0 NIL ( CL:LAMBDA (OBJECT) (AND (>= OBJECT 0) (<= OBJECT 1))))) (8BIT ((CL:UNSIGNED-BYTE 8) \\GETBASEBYTE \\PUTBASEBYTE 8 UNBOXEDBLOCK.GCT 0 NIL (CL:LAMBDA (OBJECT) (AND (>= OBJECT 0) (< OBJECT 256))))) ( 16BIT ((CL:UNSIGNED-BYTE 16) \\GETBASE \\PUTBASE 16 UNBOXEDBLOCK.GCT 0 NIL (CL:LAMBDA (OBJECT) ( SMALLPOSP OBJECT)))))) (CL:SIGNED-BYTE ((16BIT ((CL:SIGNED-BYTE 16) \\GETBASESMALL-FIXP \\PUTBASESMALL-FIXP 16 UNBOXEDBLOCK.GCT 0 NIL (CL:LAMBDA (OBJECT) (AND (>= OBJECT MIN.SMALLFIXP) (<= OBJECT MAX.SMALLFIXP))))) (32BIT ((CL:SIGNED-BYTE 32) \\GETBASEFIXP \\PUTBASEFIXP 32 UNBOXEDBLOCK.GCT 0 1 (CL:LAMBDA (OBJECT) (AND (>= OBJECT MIN.FIXP) (<= OBJECT MAX.FIXP)))))))))) (LET* ((A0902 (QUOTE %LIT-ARRAY-TABLE)) (A0903 (QUOTE CL:VARIABLE)) (A0904 "Fields described by record ARRAY-TYPE-TABLE-ENTRY")) (SET-DOCUMENTATION A0902 A0903 A0904)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %LIT-ARRAY-TYPES))) (SETQ %LIT-ARRAY-TYPES (QUOTE ((CL:UNSIGNED-BYTE 0) (CL:SIGNED-BYTE 1) (T 2) (CL:SINGLE-FLOAT 3) ( CL:STRING-CHAR 4) (XPOINTER 5)))) (LET* ((A0905 (QUOTE %LIT-ARRAY-TYPES)) (A0906 (QUOTE CL:VARIABLE)) (A0907 "Type codes")) ( SET-DOCUMENTATION A0905 A0906 A0907)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %ARRAY-TYPE-TABLE))) (SETQ %ARRAY-TYPE-TABLE (%MAKE-ARRAY-TYPE-TABLE %LIT-ARRAY-TABLE %LIT-ARRAY-TYPES %LIT-ARRAY-SIZES)) (LET* ((A0908 (QUOTE %ARRAY-TYPE-TABLE)) (A0909 (QUOTE CL:VARIABLE)) (A0910 "Drives various macros")) (SET-DOCUMENTATION A0908 A0909 A0910)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %CANONICAL-CML-TYPES))) (SETQ %CANONICAL-CML-TYPES (%MAKE-CML-TYPE-TABLE %ARRAY-TYPE-TABLE)) (SETQ MAX.SMALLFIXP (CL:1- (EXPT 2 15))) (PUTHASH (QUOTE MAX.SMALLFIXP) (QUOTE (CONSTANT MAX.SMALLFIXP)) COMPVARMACROHASH) (SETQ MIN.SMALLFIXP (- (EXPT 2 15))) (PUTHASH (QUOTE MIN.SMALLFIXP) (QUOTE (CONSTANT MIN.SMALLFIXP)) COMPVARMACROHASH) (SETQ %CHAR-TYPE (%LIT-TYPE-TO-TYPE (QUOTE CL:STRING-CHAR))) (PUTHASH (QUOTE %CHAR-TYPE) (QUOTE (CONSTANT %CHAR-TYPE)) COMPVARMACROHASH) (SETQ %BIT-TYPE (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:UNSIGNED-BYTE) (QUOTE 1BIT))) (PUTHASH (QUOTE %BIT-TYPE) (QUOTE (CONSTANT %BIT-TYPE)) COMPVARMACROHASH) (SETQ %THIN-CHAR-TYPENUMBER (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:STRING-CHAR) (QUOTE 8BIT))) (PUTHASH (QUOTE %THIN-CHAR-TYPENUMBER) (QUOTE (CONSTANT %THIN-CHAR-TYPENUMBER)) COMPVARMACROHASH) (SETQ %FAT-CHAR-TYPENUMBER (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:STRING-CHAR) (QUOTE 16BIT))) (PUTHASH (QUOTE %FAT-CHAR-TYPENUMBER) (QUOTE (CONSTANT %FAT-CHAR-TYPENUMBER)) COMPVARMACROHASH) (SETQ %MAXTHINCHAR (CL:1- (EXPT 2 8))) (PUTHASH (QUOTE %MAXTHINCHAR) (QUOTE (CONSTANT %MAXTHINCHAR)) COMPVARMACROHASH) (SETQ %GENERAL-ARRAY 16) (PUTHASH (QUOTE %GENERAL-ARRAY) (QUOTE (CONSTANT %GENERAL-ARRAY)) COMPVARMACROHASH) (LET* ((A0911 (QUOTE %GENERAL-ARRAY)) (A0912 (QUOTE CL:VARIABLE)) (A0913 "General-array-type-number")) (SET-DOCUMENTATION A0911 A0912 A0913)) (SETQ %ONED-ARRAY 14) (PUTHASH (QUOTE %ONED-ARRAY) (QUOTE (CONSTANT %ONED-ARRAY)) COMPVARMACROHASH) (LET* ((A0914 (QUOTE %ONED-ARRAY)) (A0915 (QUOTE CL:VARIABLE)) (A0916 "ONED-ARRAY type number")) ( SET-DOCUMENTATION A0914 A0915 A0916)) (SETQ %TWOD-ARRAY 15) (PUTHASH (QUOTE %TWOD-ARRAY) (QUOTE (CONSTANT %TWOD-ARRAY)) COMPVARMACROHASH) (LET* ((A0917 (QUOTE %TWOD-ARRAY)) (A0918 (QUOTE CL:VARIABLE)) (A0919 "TWOD-ARRAY type number")) ( SET-DOCUMENTATION A0917 A0918 A0919)) (PUTPROPS CMLARRAY-SUPPORT FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLARRAY-SUPPORT COPYRIGHT ("Xerox Corporation" 1986)) NIL