(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "29-Oct-93 09:49:04" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLARRAY-SUPPORT.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 10:31:44" "{Pele:mv:envos}Sources>CLTL2>CMLARRAY-SUPPORT.;2" 32489 |previous| |date:| "12-Oct-93 16:33:46" "{Pele:mv:envos}Sources>CLTL2>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") (NIL BITS 4) (* \; "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 FIXP) (* \; "For oned and general arrays") (TOTAL-SIZE FIXP)) (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 4) (* \; "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 FIXP) (* \; "As of 2.1, these 2 fields are fixp's.") (TOTAL-SIZE FIXP) (DIMS POINTER))) (DATATYPE ONED-ARRAY ((NIL BITS 4) (* \; "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 FIXP) (* \; "For filled arrays") (TOTAL-SIZE FIXP) (* \; "Total number of elements"))) (DATATYPE TWOD-ARRAY ((NIL BITS 4) (* \; "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 FIXP) (* \; "Zero dimension bound") (BOUND1 FIXP) (* \; "One dimension bound") (TOTAL-SIZE FIXP))) (/DECLAREDATATYPE (QUOTE GENERAL-ARRAY) (QUOTE ((BITS 4) POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG (BITS 8) WORD FIXP FIXP POINTER)) (QUOTE ((GENERAL-ARRAY 0 (BITS . 3)) (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 FIXP) (GENERAL-ARRAY 6 FIXP) (GENERAL-ARRAY 8 POINTER))) (QUOTE 10)) (/DECLAREDATATYPE (QUOTE ONED-ARRAY) (QUOTE ((BITS 4) POINTER FLAG (BITS 1) FLAG FLAG (BITS 1) FLAG FLAG FLAG (BITS 8) WORD FIXP FIXP)) (QUOTE ((ONED-ARRAY 0 (BITS . 3)) (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 FIXP) (ONED-ARRAY 6 FIXP))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE TWOD-ARRAY) (QUOTE ((BITS 4) POINTER FLAG (BITS 1) FLAG (BITS 4) FLAG (BITS 8 ) FIXP FIXP FIXP)) (QUOTE ((TWOD-ARRAY 0 (BITS . 3)) (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 FIXP) (TWOD-ARRAY 5 FIXP) (TWOD-ARRAY 7 FIXP))) (QUOTE 10)) |expand-%ARRAYP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) p@Hd3@ð²(ggHhgHhgHhh¹gIHhhggIhgIhgIhhh(55 GENSYM) (96 %GENERAL-ARRAY-P 87 %TWOD-ARRAY-P 78 %ONED-ARRAY-P 73 OR 61 LET 40 %GENERAL-ARRAY-P 31 %TWOD-ARRAY-P 22 %ONED-ARRAY-P 17 OR) () (SETF-MACRO-FUNCTION (QUOTE %ARRAYP) (QUOTE |expand-%ARRAYP|)) |expand-%SIMPLE-ARRAY-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) t@Hd3@ð²*ggHhgogHhh¹gIHhhggIhgogIhhh(57 GENSYM) (99 |of| 89 |fetch| 80 %ARRAYP 75 AND 63 LET 41 |of| 31 |fetch| 22 %ARRAYP 17 AND) ( 94 (ARRAY-HEADER SIMPLE-P) 36 (ARRAY-HEADER SIMPLE-P)) (SETF-MACRO-FUNCTION (QUOTE %SIMPLE-ARRAY-P) (QUOTE |expand-%SIMPLE-ARRAY-P|)) |expand-%SIMPLE-STRING-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @Hd3@ð²@ggHhgogHhgogHhh¹gIHhhggIhgogIhgogIhhh(79 GENSYM) (142 |of| 132 |fetch| 121 |of| 111 |fetch| 102 %ONED-ARRAY-P 97 AND 85 LET 62 |of| 52 |fetch| 41 |of| 31 |fetch| 22 %ONED-ARRAY-P 17 AND) ( 137 (ARRAY-HEADER STRING-P) 116 (ARRAY-HEADER SIMPLE-P) 57 (ARRAY-HEADER STRING-P) 36 (ARRAY-HEADER SIMPLE-P)) (SETF-MACRO-FUNCTION (QUOTE %SIMPLE-STRING-P) (QUOTE |expand-%SIMPLE-STRING-P|)) |expand-%STRINGP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ˜@Hd3@ð²= 98 OR 93 CL:IF 76 ARG 71 INDEX 66 SETQ 50 I 45 > 26 I 21 CL:DO) ( 139 ((RETURN NIL)) 124 (DIM) 103 (< INDEX 0) 82 (I) 60 (T) 39 ((DIM 0 (CL:1+ DIM)) INDEX) 32 ((CL:1+ I))) (SETF-MACRO-FUNCTION (QUOTE %CHECK-INDICES) (QUOTE |expand-%CHECK-INDICES|)) |expand-%CHECK-NOT-WRITEABLE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) d@AH¹HZ»J¼ggogIhgIhhggKhgLhhgIhhhNIL (86 %MAKE-STRING-ARRAY-FAT 73 %FAT-STRING-CHAR-P 64 %THIN-CHAR-TYPE-P 59 AND 47 %MAKE-ARRAY-WRITEABLE 36 |of| 26 |fetch| 21 COND) ( 31 (ARRAY-HEADER READ-ONLY-P)) (SETF-MACRO-FUNCTION (QUOTE %CHECK-NOT-WRITEABLE) (QUOTE |expand-%CHECK-NOT-WRITEABLE|)) |expand-%EXPAND-BIT-OP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) û @H¹HZ»J\½L¾ggggKhhgoKhhgggMhhgoMhhgggKMhhoggNhgNggKhohhgNogNKhhgggNhgKNhhhohI_gð³+Ogð³!Ogð³Ogð«Odgð²*¿ggKNhgoKNhh°Ugð³)Ogð³Ogð³Ogð©Ogð´goKNh°gOoI_dgð²¿goMNh±gð²goMNh±Odgð²¿goMNh±àgð²goMNh±ÄOdgð²¿goMNh±¤gð²goMNh±ˆOdgð²¿goMNh°hgð²goMNh°MOdgð²¿goMNh°.gð´goMNh°gOoNh(750 ECASE-FAIL 436 ECASE-FAIL) (738 OP 719 %DO-LOGICAL-OP 711 ORC2 692 %DO-LOGICAL-OP 683 ORC1 661 %DO-LOGICAL-OP 653 ANDC2 634 %DO-LOGICAL-OP 625 ANDC1 602 %DO-LOGICAL-OP 594 NOR 574 %DO-LOGICAL-OP 565 NAND 542 %DO-LOGICAL-OP 534 EQV 514 %DO-LOGICAL-OP 505 XOR 482 %DO-LOGICAL-OP 474 IOR 454 %DO-LOGICAL-OP 445 AND 424 OP 405 %DO-LOGICAL-OP 397 ORC1 388 ANDC1 378 NOR 368 NAND 358 EQV 335 %DO-LOGICAL-OP 324 EQ 319 OR 310 ORC2 300 ANDC2 290 XOR 280 IOR 270 AND 238 EQUAL-DIMENSIONS-P 229 BIT-ARRAY-P 224 AND 219 NOT 205 SETQ 192 EQ 169 CL:ARRAY-DIMENSIONS 164 CL:MAKE-ARRAY 158 SETQ 149 NULL 144 COND 123 EQUAL-DIMENSIONS-P 118 NOT 113 CL:IF 94 CL:ERROR 82 BIT-ARRAY-P 77 NOT 72 CL:IF 53 CL:ERROR 41 BIT-ARRAY-P 36 NOT 31 CL:IF 26 PROGN) ( 745 (AND IOR XOR EQV NAND NOR ANDC1 ANDC2 ORC1 ORC2) 724 (QUOTE COR) 697 (QUOTE OR) 666 (QUOTE CAND) 639 (QUOTE AND) 607 (QUOTE CAND) 579 (QUOTE COR) 547 (QUOTE XOR) 519 (QUOTE XOR) 487 (QUOTE OR) 459 (QUOTE AND) 431 (AND IOR XOR ANDC2 ORC2 EQV NAND NOR ANDC1 ORC1) 410 (QUOTE NOT) 340 (QUOTE COPY) 256 ((CL:ERROR "Illegal result array")) 198 (T) 178 (:ELEMENT-TYPE (QUOTE BIT)) 137 ((CL:ERROR "Bit-arrays not of same dimensions")) 99 "BIT-ARRAY2 not a bit array: ~S" 58 "BIT-ARRAY1 not a bit array: ~S") (SETF-MACRO-FUNCTION (QUOTE %EXPAND-BIT-OP) (QUOTE |expand-%EXPAND-BIT-OP|)) |expand-%GENERAL-ARRAY-ADJUST-BASE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!H¹HºggogIhgogIgIohgJgJohgggJgogIhhhohhNIL (124 |of| 114 |fetch| 108 < 103 NOT 98 CL:IF 81 + 75 SETQ 58 %GET-BASE-ARRAY 52 SETQ 42 LET 31 |of| 21 |ffetch| 16 CL:IF) ( 142 ((CL:ERROR "Row-major-index out of bounds (displaced to adjustable?)")) 119 (ARRAY-HEADER TOTAL-SIZE) 87 (%OFFSET) 64 (%OFFSET) 47 ((%OFFSET 0)) 26 (GENERAL-ARRAY INDIRECT-P)) (SETF-MACRO-FUNCTION (QUOTE %GENERAL-ARRAY-ADJUST-BASE) (QUOTE |expand-%GENERAL-ARRAY-ADJUST-BASE|)) |expand-%GET-ARRAY-OFFSET| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) S@gggHhgHhhgogHhhgHhohNIL (66 %TWOD-ARRAY-P 52 |of| 42 |fetch| 29 %GENERAL-ARRAY-P 20 %ONED-ARRAY-P 15 OR 10 COND) ( 75 (0) 47 (ARRAY-HEADER OFFSET)) (SETF-MACRO-FUNCTION (QUOTE %GET-ARRAY-OFFSET) (QUOTE |expand-%GET-ARRAY-OFFSET|)) |expand-%GET-BASE-ARRAY| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) C@!H¹HºggIohogJgJohhNIL (47 + 41 SETQ 21 %BASE-ARRAY 16 CL:DO) ( 53 ((%GET-ARRAY-OFFSET %BASE-ARRAY)) 36 ((NOT (|fetch| (ARRAY-HEADER INDIRECT-P) |of| %BASE-ARRAY)) %BASE-ARRAY) 27 ((|fetch| (ARRAY-HEADER BASE) |of| %BASE-ARRAY))) (SETF-MACRO-FUNCTION (QUOTE %GET-BASE-ARRAY) (QUOTE |expand-%GET-BASE-ARRAY|)) |expand-%BIT-TYPE-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 EQ) ( 16 (%BIT-TYPE)) (SETF-MACRO-FUNCTION (QUOTE %BIT-TYPE-P) (QUOTE |expand-%BIT-TYPE-P|)) |expand-%CHAR-TYPE-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (15 %TYPENUMBER-TO-TYPE 10 EQ) ( 24 (%CHAR-TYPE)) (SETF-MACRO-FUNCTION (QUOTE %CHAR-TYPE-P) (QUOTE |expand-%CHAR-TYPE-P|)) |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDER| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 27 %CANONICAL-CML-TYPES) º@ñ°iW6\µ‚±žK W6_¿h__¾Oµ‚±¬O _¿_¿ggHoiW6ggHhggHhO_ ¿h___¿O µ‚±†OgHO_4¿h_2_0¿O4µ‚±ùO2hh]¤Mh€h¹JµI[¿IµL±ÿF º°õI°ì_´Oh¾OµN_¿Nµ O_±ÿ2 _¿°ðN°ç_,ggHhW6_(¿h_&_$_"¿O(µO&h_¿O²QOO&_¿°P_*´O*O,ð´O*O*hh_"¿O$µO"_&¿O"µ O(_(°² _$¿°ñO"°æOh__¿O _ ±þêW6_.¿O2˜O0O.&_0¿ˆO.h_0_2¿O4_4±þã(377 LAST 251 LAST 205 LAST 50 CL:REMOVE-DUPLICATES 24 REMOVE) (273 CADR 268 CL:ECASE 138 CL:ECASE 104 CAR 99 CL:ECASE 90 LISTP 85 CL:IF 66 EQ 61 CL:IF) ( 72 (T)) (SETF-MACRO-FUNCTION (QUOTE %CML-TYPE-TO-TYPENUMBER-EXPANDER) (QUOTE |expand-%CML-TYPE-TO-TYPENUMBER-EXPANDER|)) |expand-%FAT-CHAR-TYPE-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 EQ) ( 16 (%FAT-CHAR-TYPENUMBER)) (SETF-MACRO-FUNCTION (QUOTE %FAT-CHAR-TYPE-P) (QUOTE |expand-%FAT-CHAR-TYPE-P|)) |expand-%FAT-STRING-CHAR-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (15 CL:CHAR-CODE 10 >) ( 24 (%MAXTHINCHAR)) (SETF-MACRO-FUNCTION (QUOTE %FAT-STRING-CHAR-P) (QUOTE |expand-%FAT-STRING-CHAR-P|)) %GET-TYPE-TABLE-ENTRY :D8 (L (0 TYPENUMBER) F 0 %ARRAY-TYPE-TABLE) @PNIL NIL () %LIT-SIZE-TO-SIZE :D8 (L (0 LIT-SIZE) F 0 %LIT-ARRAY-SIZES) @PNIL NIL () %LIT-TYPE-TO-TYPE :D8 (L (0 LIT-TYPE) F 0 %LIT-ARRAY-TYPES) @PNIL NIL () %LLARRAY-MAKE-ACCESSOR-EXPR :D8 (L (2 OFFSET 1 BASE 0 TYPENUMBER)) -@ !H¹HºIAJ›gBJh€Bh(5 %GET-TYPE-TABLE-ENTRY) (30 LLSH) () %LLARRAY-MAKE-SETTOR-EXPR :D8 (L (3 NEWVALUE 2 OFFSET 1 BASE 0 TYPENUMBER)) 0@ !H¹HºIAJ›gBJh€BCh(5 %GET-TYPE-TABLE-ENTRY) (31 LLSH) () |expand-%LLARRAY-TYPED-GET| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 10 %ARRAY-TYPE-TABLE) I @‘ H¹HZ»J¼gKW_µO_OILh½O”NM&¾†Mh^_¿O°Ó(47 %LLARRAY-MAKE-ACCESSOR-EXPR) (21 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPED-GET) (QUOTE |expand-%LLARRAY-TYPED-GET|)) |expand-%LLARRAY-TYPED-PUT| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 12 %ARRAY-TYPE-TABLE) W@±H¹HZ»J\½L¾gKW_µO_OIMNh_¿O˜OO&_¿ˆOh__¿O°Ê(53 %LLARRAY-MAKE-SETTOR-EXPR) (26 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPED-PUT) (QUOTE |expand-%LLARRAY-TYPED-PUT|)) |expand-%LLARRAY-TYPEP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 8 %ARRAY-TYPE-TABLE) D@qH¹HºgIW^µM_OJhh»M”LK&¼„Kh\½N°ÓNIL (16 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %LLARRAY-TYPEP) (QUOTE |expand-%LLARRAY-TYPEP|)) %MAKE-ARRAY-TYPE-TABLE :D8 (L (2 SIZES 1 TYPES 0 LIT-TABLE)) f@¡ H¡IH__¿O_¿h^]¼OµN»JµKY¿KµHX°× º°õK°ì_¿OO Oh¼N”ML&½„Lh]¾O_°º(73 %TYPE-SIZE-TO-TYPENUMBER 52 LAST) NIL () %MAKE-CML-TYPE-TABLE :D8 (L (0 ARRAY-TABLE)) &@AH¡IH\Lh»I”JK&º„KhZ¹HX°âNIL NIL () |expand-%PACK-TYPENUMBER| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) %@!H¹HºggIoJhNIL (21 LLSH 16 \\ADDBASE) ( 27 (4)) (SETF-MACRO-FUNCTION (QUOTE %PACK-TYPENUMBER) (QUOTE |expand-%PACK-TYPENUMBER|)) |expand-%SMALLFIXP-SMALLPOSP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHhNIL (10 \\LOLOC) () (SETF-MACRO-FUNCTION (QUOTE %SMALLFIXP-SMALLPOSP) (QUOTE |expand-%SMALLFIXP-SMALLPOSP|)) |expand-%SMALLPOSP-SMALLFIXP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) E@¹gIHhhggIoggIhIhh(10 GENSYM) (51 |\\SmallNegHi| 46 \\VAG2 33 > 28 CL:IF 16 LET) ( 39 (MAX.SMALLFIXP)) (SETF-MACRO-FUNCTION (QUOTE %SMALLPOSP-SMALLFIXP) (QUOTE |expand-%SMALLPOSP-SMALLFIXP|)) |expand-%THIN-CHAR-TYPE-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 EQ) ( 16 (%THIN-CHAR-TYPENUMBER)) (SETF-MACRO-FUNCTION (QUOTE %THIN-CHAR-TYPE-P) (QUOTE |expand-%THIN-CHAR-TYPE-P|)) |expand-%THIN-STRING-CHAR-P| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhoNIL (15 CL:CHAR-CODE 10 <=) ( 24 (%MAXTHINCHAR)) (SETF-MACRO-FUNCTION (QUOTE %THIN-STRING-CHAR-P) (QUOTE |expand-%THIN-STRING-CHAR-P|)) %TYPE-SIZE-TO-TYPENUMBER :D8 (L (1 LIT-SIZE 0 LIT-TYPE) F 2 %LIT-ARRAY-TYPES F 3 %LIT-ARRAY-SIZES) @RASHààààIÐNIL NIL () |expand-%TYPENUMBER-TO-BITS-PER-ELEMENT| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 6 %ARRAY-TYPE-TABLE) 3@QgHV\µK]Mh¹K”JI&º„IhZ»L°ÝNIL (10 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-BITS-PER-ELEMENT) (QUOTE |expand-%TYPENUMBER-TO-BITS-PER-ELEMENT|)) |expand-%TYPENUMBER-TO-CML-TYPE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 6 %ARRAY-TYPE-TABLE) 8@QgHV\µK]gMhh¹K”JI&º„IhZ»L°ØNIL (27 QUOTE 10 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-CML-TYPE) (QUOTE |expand-%TYPENUMBER-TO-CML-TYPE|)) |expand-%TYPENUMBER-TO-DEFAULT-VALUE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 6 %ARRAY-TYPE-TABLE) 5@QgHV\µK]Mh¹K”JI&º„IhZ»L°ÛNIL (10 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-DEFAULT-VALUE) (QUOTE |expand-%TYPENUMBER-TO-DEFAULT-VALUE| )) |expand-%TYPENUMBER-TO-GC-TYPE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) F 6 %ARRAY-TYPE-TABLE) 4@QgHV\µK]Mh¹K”JI&º„IhZ»L°ÜNIL (10 CL:ECASE) () (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-GC-TYPE) (QUOTE |expand-%TYPENUMBER-TO-GC-TYPE|)) |expand-%TYPENUMBER-TO-SIZE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 LOGAND) ( 16 (15)) (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-SIZE) (QUOTE |expand-%TYPENUMBER-TO-SIZE|)) |expand-%TYPENUMBER-TO-TYPE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 LRSH) ( 16 (4)) (SETF-MACRO-FUNCTION (QUOTE %TYPENUMBER-TO-TYPE) (QUOTE |expand-%TYPENUMBER-TO-TYPE|)) |expand-\\GETBASESMALL-FIXP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 \\GETBASE 16 %SMALLPOSP-SMALLFIXP) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASESMALL-FIXP) (QUOTE |expand-\\GETBASESMALL-FIXP|)) |expand-\\GETBASESTRING-CHAR| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 \\GETBASE 16 CL:CODE-CHAR) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASESTRING-CHAR) (QUOTE |expand-\\GETBASESTRING-CHAR|)) |expand-\\GETBASETHINSTRING-CHAR| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 \\GETBASEBYTE 16 CL:CODE-CHAR) () (SETF-MACRO-FUNCTION (QUOTE \\GETBASETHINSTRING-CHAR) (QUOTE |expand-\\GETBASETHINSTRING-CHAR|)) |expand-\\PUTBASESMALL-FIXP| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) (@AH¹HZ»J¼gIKgLhhNIL (28 %SMALLFIXP-SMALLPOSP 21 \\PUTBASE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASESMALL-FIXP) (QUOTE |expand-\\PUTBASESMALL-FIXP|)) |expand-\\PUTBASESTRING-CHAR| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) (@AH¹HZ»J¼gIKgLhhNIL (28 CL:CHAR-CODE 21 \\PUTBASE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASESTRING-CHAR) (QUOTE |expand-\\PUTBASESTRING-CHAR|)) |expand-\\PUTBASETHINSTRING-CHAR| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) (@AH¹HZ»J¼gIKgLhhNIL (28 CL:CHAR-CODE 21 \\PUTBASEBYTE) () (SETF-MACRO-FUNCTION (QUOTE \\PUTBASETHINSTRING-CHAR) (QUOTE |expand-\\PUTBASETHINSTRING-CHAR|)) (CL::SET-PARSED-STRUCTURE (QUOTE ARRAY-TABLE-ENTRY) T (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 NIL ((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 (:ACCESSOR :PREDICATE) NIL NIL NIL))) ARRAY-TABLE-ENTRY-CML-TYPE :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-ACCESSOR :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-SETTOR :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-GC-TYPE :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-DEFAULT-VALUE :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () ARRAY-TABLE-ENTRY-TYPE-TEST :D8 (L (0 ARRAY-TABLE-ENTRY)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ARRAY-TABLE-ENTRY)) (CL:PROCLAIM (QUOTE (CL:SPECIAL %LIT-ARRAY-SIZES))) (SETQ %LIT-ARRAY-SIZES (QUOTE ((1BIT 0) (8BIT 3) (16BIT 4) (32BIT 6)))) (SET-DOCUMENTATION (QUOTE %LIT-ARRAY-SIZES) (QUOTE CL:VARIABLE) "Size codes") (CL:PROCLAIM (QUOTE (CL:SPECIAL %LIT-ARRAY-TABLE))) (SETQ %LIT-ARRAY-TABLE (QUOTE ((CL:BASE-CHARACTER ((8BIT (CL:BASE-CHARACTER \\GETBASETHINSTRING-CHAR \\PUTBASETHINSTRING-CHAR 8 UNBOXEDBLOCK.GCT #\Null NIL (CL:LAMBDA (OBJECT) (%THIN-STRING-CHAR-P OBJECT )))))) (CL:EXTENDED-CHARACTER ((16BIT (CL:EXTENDED-CHARACTER \\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)))))))))) (SET-DOCUMENTATION (QUOTE %LIT-ARRAY-TABLE) (QUOTE CL:VARIABLE) "Fields described by record ARRAY-TYPE-TABLE-ENTRY") (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:BASE-CHARACTER 4) (CL:EXTENDED-CHARACTER 4) (XPOINTER 5)))) (SET-DOCUMENTATION (QUOTE %LIT-ARRAY-TYPES) (QUOTE CL:VARIABLE) "Type codes") (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)) (SET-DOCUMENTATION (QUOTE %ARRAY-TYPE-TABLE) (QUOTE CL:VARIABLE) "Drives various macros") (CL:PROCLAIM (QUOTE (CL:SPECIAL %CANONICAL-CML-TYPES))) (SETQ %CANONICAL-CML-TYPES (%MAKE-CML-TYPE-TABLE %ARRAY-TYPE-TABLE)) (XCL::SET-CONSTANTP (QUOTE MAX.SMALLFIXP) NIL) (SETQ MAX.SMALLFIXP (CL:1- (EXPT 2 15))) (CL:PROCLAIM (QUOTE (SI::CONSTANT MAX.SMALLFIXP))) (XCL::SET-CONSTANTP (QUOTE MIN.SMALLFIXP) NIL) (SETQ MIN.SMALLFIXP (- (EXPT 2 15))) (CL:PROCLAIM (QUOTE (SI::CONSTANT MIN.SMALLFIXP))) (XCL::SET-CONSTANTP (QUOTE %CHAR-TYPE) NIL) (SETQ %CHAR-TYPE (%LIT-TYPE-TO-TYPE (QUOTE CL:BASE-CHARACTER))) (CL:PROCLAIM (QUOTE (SI::CONSTANT %CHAR-TYPE))) (XCL::SET-CONSTANTP (QUOTE %BIT-TYPE) NIL) (SETQ %BIT-TYPE (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:UNSIGNED-BYTE) (QUOTE 1BIT))) (CL:PROCLAIM (QUOTE (SI::CONSTANT %BIT-TYPE))) (XCL::SET-CONSTANTP (QUOTE %THIN-CHAR-TYPENUMBER) NIL) (SETQ %THIN-CHAR-TYPENUMBER (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:BASE-CHARACTER) (QUOTE 8BIT))) (CL:PROCLAIM (QUOTE (SI::CONSTANT %THIN-CHAR-TYPENUMBER))) (XCL::SET-CONSTANTP (QUOTE %FAT-CHAR-TYPENUMBER) NIL) (SETQ %FAT-CHAR-TYPENUMBER (%TYPE-SIZE-TO-TYPENUMBER (QUOTE CL:BASE-CHARACTER) (QUOTE 16BIT))) (CL:PROCLAIM (QUOTE (SI::CONSTANT %FAT-CHAR-TYPENUMBER))) (XCL::SET-CONSTANTP (QUOTE %MAXTHINCHAR) NIL) (SETQ %MAXTHINCHAR (CL:1- (EXPT 2 8))) (CL:PROCLAIM (QUOTE (SI::CONSTANT %MAXTHINCHAR))) (XCL::SET-CONSTANTP (QUOTE %GENERAL-ARRAY) NIL) (SETQ %GENERAL-ARRAY 16) (CL:PROCLAIM (QUOTE (SI::CONSTANT %GENERAL-ARRAY))) (SET-DOCUMENTATION (QUOTE %GENERAL-ARRAY) (QUOTE CL:VARIABLE) "General-array-type-number") (XCL::SET-CONSTANTP (QUOTE %ONED-ARRAY) NIL) (SETQ %ONED-ARRAY 14) (CL:PROCLAIM (QUOTE (SI::CONSTANT %ONED-ARRAY))) (SET-DOCUMENTATION (QUOTE %ONED-ARRAY) (QUOTE CL:VARIABLE) "ONED-ARRAY type number") (XCL::SET-CONSTANTP (QUOTE %TWOD-ARRAY) NIL) (SETQ %TWOD-ARRAY 15) (CL:PROCLAIM (QUOTE (SI::CONSTANT %TWOD-ARRAY))) (SET-DOCUMENTATION (QUOTE %TWOD-ARRAY) (QUOTE CL:VARIABLE) "TWOD-ARRAY type number") (PUTPROPS CMLARRAY-SUPPORT FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLARRAY-SUPPORT COPYRIGHT ("Venue & Xerox Corporation" 1986 1990 1991 1992 1993)) NIL