(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "29-Oct-93 09:39:07" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLARRAY.;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:11:11" "{Pele:mv:envos}Sources>CLTL2>CMLARRAY.;2" 114839 |previous| |date:| "12-Oct-93 16:35:09" "{Pele:mv:envos}Sources>CLTL2>CMLARRAY.;1") (RPAQQ CMLARRAYCOMS ((* |;;| "Contains table driven macros") (DECLARE\: DONTCOPY EVAL@COMPILE (EXPORT (FILES (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT))) (* |;;| "User entry points") (FUNCTIONS CL:ADJUST-ARRAY CL:ADJUSTABLE-ARRAY-P CL:ARRAY-DIMENSION CL:ARRAY-DIMENSIONS CL:ARRAY-ELEMENT-TYPE CL:ARRAY-HAS-FILL-POINTER-P ARRAY-NEEDS-INDIRECTION-P CL:ARRAY-RANK CL:ARRAY-TOTAL-SIZE BIT CL:BIT-AND CL:BIT-ANDC1 CL:BIT-ANDC2 BIT-ARRAY-P CL:BIT-EQV CL:BIT-IOR CL:BIT-NAND CL:BIT-NOR CL:BIT-NOT CL:BIT-ORC1 CL:BIT-ORC2 CL:BIT-VECTOR-P CL:BIT-XOR CL:CHAR CL:ARRAYP CL:STRINGP COPY-ARRAY COPY-VECTOR DISPLACED-ARRAY-P EQUAL-DIMENSIONS-P EXTENDABLE-ARRAY-P FILL-ARRAY CL:FILL-POINTER FILL-VECTOR CL:MAKE-ARRAY MAKE-VECTOR READ-ONLY-ARRAY-P CL:SBIT CL:SCHAR SET-FILL-POINTER SIMPLE-ARRAY-P CL:SIMPLE-BIT-VECTOR-P CL:SIMPLE-STRING-P CL:SIMPLE-VECTOR-P STRING-ARRAY-P CL:SVREF CL::UPGRADED-ARRAY-ELEMENT-TYPE VECTOR-LENGTH CL:VECTOR-POP CL:VECTOR-PUSH CL:VECTOR-PUSH-EXTEND CL:VECTORP) (FNS CL:AREF CL:ARRAY-IN-BOUNDS-P CL:ARRAY-ROW-MAJOR-INDEX ASET CL:VECTOR) (* |;;| "New CLtL array functions") (COMS (FNS CL::ROW-MAJOR-AREF CL::ROW-MAJOR-ASET) (SETFS CL::ROW-MAJOR-AREF )) (* |;;| "Setfs") (SETFS CL:AREF BIT CL:CHAR CL:FILL-POINTER CL:SBIT CL:SCHAR CL:SVREF) (* |;;| "Optimizers") (FUNCTIONS %AREF-EXPANDER %ASET-EXPANDER) (OPTIMIZERS CL:AREF ASET BIT CL:CHAR CL:SBIT CL:SCHAR CL:SVREF) (* |;;| "Vars etc") (* \; "*PRINT-ARRAY* is defined in APRINT") (VARIABLES CL:ARRAY-RANK-LIMIT CL:ARRAY-TOTAL-SIZE-LIMIT CL:ARRAY-DIMENSION-LIMIT *DEFAULT-PUSH-EXTENSION-SIZE*) (* |;;| "Run-time support") (FNS %ALTER-AS-DISPLACED-ARRAY %ALTER-AS-DISPLACED-TO-BASE-ARRAY %AREF0 %AREF1 %AREF2 %ARRAY-BASE %ARRAY-CONTENT-INITIALIZE %ARRAY-ELEMENT-INITIALIZE %ARRAY-OFFSET %ARRAY-TYPE-NUMBER %ASET0 %ASET1 %ASET2 %CHECK-SEQUENCE-DIMENSIONS %COPY-TO-NEW-ARRAY %DO-LOGICAL-OP %EXTEND-ARRAY %FAST-COPY-BASE %FAT-STRING-ARRAY-P %FILL-ARRAY-FROM-SEQUENCE %FLATTEN-ARRAY %MAKE-ARRAY-WRITEABLE %MAKE-DISPLACED-ARRAY %MAKE-GENERAL-ARRAY %MAKE-ONED-ARRAY %MAKE-STRING-ARRAY-FAT %MAKE-TWOD-ARRAY %TOTAL-SIZE SHRINK-VECTOR) (* \; "For Interlisp string hack") (FNS %SET-ARRAY-OFFSET %SET-ARRAY-TYPE-NUMBER) (* \; "Low level predicates") (FNS %ONED-ARRAY-P %TWOD-ARRAY-P %GENERAL-ARRAY-P %THIN-STRING-ARRAY-P) (OPTIMIZERS %ONED-ARRAY-P %TWOD-ARRAY-P %GENERAL-ARRAY-P) (* \; "Real record def's on cmlarray-support") (INITRECORDS GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (SYSRECORDS GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (PROP DOPVAL %AREF1 %AREF2 %ASET1 %ASET2 ) (* |;;| "I/O") (FNS %DEFPRINT-ARRAY %DEFPRINT-BITVECTOR %DEFPRINT-GENERIC-ARRAY %DEFPRINT-VECTOR %DEFPRINT-STRING %PRINT-ARRAY-CONTENTS) (P (DEFPRINT (QUOTE ONED-ARRAY) (QUOTE %DEFPRINT-VECTOR)) ( DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %DEFPRINT-ARRAY)) (DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %DEFPRINT-ARRAY))) (* |;;| "Needed at run time. low level functions for accessing, setting, and allocating raw storage. also includes cml type to typenumber converters" ) (FNS %ARRAY-READ %ARRAY-WRITE %CML-TYPE-TO-TYPENUMBER %GET-CANONICAL-CML-TYPE %GET-ENCLOSING-SIGNED-BYTE %GET-ENCLOSING-UNSIGNED-BYTE %MAKE-ARRAY-STORAGE %REDUCE-INTEGER %REDUCE-MOD %SLOW-ARRAY-READ %SLOW-ARRAY-WRITE) (OPTIMIZERS %ARRAY-READ %ARRAY-WRITE) (* |;;| "Compiler options") (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE CMLARRAY) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:VECTOR ASET CL:ARRAY-ROW-MAJOR-INDEX CL:ARRAY-IN-BOUNDS-P CL:AREF))))) CL:ADJUST-ARRAY :D8 (L (0 |-args-|)) J*ekañð`%laºi»Hl½¼MLó¢±úh[¾i_¿Hl_¿_¿OdOó¢±÷¿h__¿i_¿Hl_¿_¿OdOó¢±ó¿h__¿i_¿Hl_"¿_ ¿O"dO ó¢±ï¿h__$¿i_&¿Hl_*¿_(¿O*dO(ó¢±ë¿h_&_,¿i_.¿Hl_2¿_0¿O2dO0ó¢±ç¿h_.¿j_4¿i_6¿Hl_:¿_8¿O:dO8ó¢±á¿h_6_<¿Hl_@¿_>¿O@dO>ó¢±á¿h_B¿I «oI ¿Jd´‚±Þd´‚±Ó±ÒMdagð¦lÔ]±þõkØa±þ÷agð—OkØa±ÿOlÔ_±þíagð—OkØa±ÿOlÔ_±þñagð—O"kØa±ÿO"lÔ_"±þõagð—O*kØa±ÿO*lÔ_*±þùagð—O2kØa±ÿO2lÔ_2±þýagð—O:kØa±ÿO:lÔ_:±ÿagð—O@kØa±ÿO@lÔ_@±ÿZh_F¿_Dd²_F¿jOFó©nÿþOFó’±€i›oJ ¿I J J I hð)l€OPó¬oOP ¿nÿþONó¬oON ¿OPI ð«oJ ¿K²NOLô³oN ˆOD±ÿhOL^¿O6²O<³I šo ¿O›O³5O³1O&³-O&›O³&O³"O³O6™O<–I žO.•O¢O&•OOšo ¿O²NO$d²¿OLO$ ô³!o°-³ëO$³åoO$ °O4ONÔO$ óšo ¿O<µ!I ²:I _H¿ONdOHó’¿OH_<°"ið•ON_<°jO<ó¥O@d›¿@l h²@l @l h@“@Éo@ (59 CL:ERROR 36 \\GETBASEFIXP 28 \\GETBASEFIXP 13 \\GETBASEFIXP) NIL ( 53 "Not an array: ~S") CL:ARRAY-ELEMENT-TYPE :D8 (L (0 ARRAY)) ¤@d‘¿‹d‘¿…¢±‡@ HdlCð•glDð•gHdl&ð‘ilVð•gHdl6ð•gjð•oHdlð•olð•oHdlð•olð´ooHoo@ (161 CL:ERROR 149 ECASE-FAIL 24 %ARRAY-TYPE-NUMBER) (78 CL:SINGLE-FLOAT 66 XPOINTER 48 CL:EXTENDED-CHARACTER 38 CL:BASE-CHARACTER) ( 155 "Not an array: ~S" 144 (67 68 38 86 54 0 3 4 20 22) 138 (%ARRAY-TYPE-NUMBER ARRAY) 132 (CL:SIGNED-BYTE 32) 121 (CL:SIGNED-BYTE 16) 109 (CL:UNSIGNED-BYTE 16) 99 (CL:UNSIGNED-BYTE 8) 87 (CL:UNSIGNED-BYTE 1)) CL:ARRAY-HAS-FILL-POINTER-P :D8 (L (0 ARRAY)) &@d‘¿ˆd‘¿‚˜@Ê`jðhðo@ (35 CL:ERROR) NIL ( 29 "Not an array: ~S") ARRAY-NEEDS-INDIRECTION-P :D8 (L (0 ARRAY)) &@d‘¿ƒd‘h˜@Êjðhðo@ (35 CL:ERROR) NIL ( 29 "Not an array: ~S") CL:ARRAY-RANK :D8 (L (0 ARRAY)) '@d‘k’l@˜@É o@ (36 CL:ERROR 24 LENGTH) NIL ( 30 "Not an array: ~S") CL:ARRAY-TOTAL-SIZE :D8 (L (0 ARRAY)) &@d‘¿ˆd‘¿‚˜@l o@ (35 CL:ERROR 23 \\GETBASEFIXP) NIL ( 29 "Not an array: ~S") BIT :D8 (L (0 |-args-|)) ekaAHl2 ONó²/OZ¿I[ ²DK oÌ²6g k½¼IJ°HOa_¿OµOh__¿OkÔ_°¶O&_¿°òoI °©dýnMkØ]ñ¨hl4 ¿µêML(134 \\LISPERROR 111 ASSERT-FAIL 58 CL:SYMBOL-FUNCTION 40 CL:ARRAY-ELEMENT-TYPE 32 CL:ARRAYP) (53 CL:AREF) ( 105 "Not a bit-array: ~S" 45 (CL:UNSIGNED-BYTE 1)) CL:BIT-AND :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ™@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°%ið”@b°B ™@dB ¬¿o ¿@Bð¬g@B¿gABB(149 %DO-LOGICAL-OP 136 %DO-LOGICAL-OP 119 CL:ERROR 107 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (142 AND 129 COPY 75 BIT 70 :ELEMENT-TYPE) ( 114 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-ANDC1 :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ’@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°#ið”@b°B —@B ªo ¿g@BgABB(142 %DO-LOGICAL-OP 130 %DO-LOGICAL-OP 117 CL:ERROR 106 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (135 AND 123 NOT 75 BIT 70 :ELEMENT-TYPE) ( 112 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-ANDC2 :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ™@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°%ið”@b°B ™@dB ¬¿o ¿@Bð¬g@B¿gABB(149 %DO-LOGICAL-OP 136 %DO-LOGICAL-OP 119 CL:ERROR 107 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (142 CAND 129 COPY 75 BIT 70 :ELEMENT-TYPE) ( 114 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") BIT-ARRAY-P :D8 (L (0 ARRAY)) @d‘¿‰d‘¿ƒ´ @Ê jðhðNIL NIL () CL:BIT-EQV :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ’@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°#ið”@b°B —@B ªo ¿g@BgABB(142 %DO-LOGICAL-OP 130 %DO-LOGICAL-OP 117 CL:ERROR 106 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (135 XOR 123 NOT 75 BIT 70 :ELEMENT-TYPE) ( 112 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-IOR :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ™@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°%ið”@b°B ™@dB ¬¿o ¿@Bð¬g@B¿gABB(149 %DO-LOGICAL-OP 136 %DO-LOGICAL-OP 119 CL:ERROR 107 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (142 OR 129 COPY 75 BIT 70 :ELEMENT-TYPE) ( 114 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-NAND :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ’@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°#ið”@b°B —@B ªo ¿g@BgABB(142 %DO-LOGICAL-OP 130 %DO-LOGICAL-OP 117 CL:ERROR 106 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (135 COR 123 NOT 75 BIT 70 :ELEMENT-TYPE) ( 112 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-NOR :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ’@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°#ið”@b°B —@B ªo ¿g@BgABB(142 %DO-LOGICAL-OP 130 %DO-LOGICAL-OP 117 CL:ERROR 106 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (135 CAND 123 NOT 75 BIT 70 :ELEMENT-TYPE) ( 112 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-NOT :D8 (L (1 RESULT-BIT-ARRAY 0 BIT-ARRAY)) _@ ªo ¿Aµ@ ggb°#ið”@b°A —@A ªo ¿g@AA(91 %DO-LOGICAL-OP 78 CL:ERROR 67 EQUAL-DIMENSIONS-P 59 BIT-ARRAY-P 41 CL:MAKE-ARRAY 26 CL:ARRAY-DIMENSIONS 16 CL:ERROR 5 BIT-ARRAY-P) (84 NOT 36 BIT 31 :ELEMENT-TYPE) ( 73 "Illegal result array" 11 "BIT-ARRAY not a bit array") CL:BIT-ORC1 :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ’@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°#ið”@b°B —@B ªo ¿g@BgABB(142 %DO-LOGICAL-OP 130 %DO-LOGICAL-OP 117 CL:ERROR 106 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (135 OR 123 NOT 75 BIT 70 :ELEMENT-TYPE) ( 112 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-ORC2 :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ™@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°%ið”@b°B ™@dB ¬¿o ¿@Bð¬g@B¿gABB(149 %DO-LOGICAL-OP 136 %DO-LOGICAL-OP 119 CL:ERROR 107 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (142 COR 129 COPY 75 BIT 70 :ELEMENT-TYPE) ( 114 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:BIT-VECTOR-P :D8 (L (0 VECTOR)) !@d‘¿´@É kð´ @Ê jðhð(18 LENGTH) NIL () CL:BIT-XOR :D8 (L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) ™@ «o@ ¿A «oA ¿@A ªo ¿Bµ@ ggb°%ið”@b°B ™@dB ¬¿o ¿@Bð¬g@B¿gABB(149 %DO-LOGICAL-OP 136 %DO-LOGICAL-OP 119 CL:ERROR 107 EQUAL-DIMENSIONS-P 98 BIT-ARRAY-P 80 CL:MAKE-ARRAY 65 CL:ARRAY-DIMENSIONS 55 CL:ERROR 44 EQUAL-DIMENSIONS-P 36 CL:ERROR 24 BIT-ARRAY-P 17 CL:ERROR 5 BIT-ARRAY-P) (142 XOR 129 COPY 75 BIT 70 :ELEMENT-TYPE) ( 114 "Illegal result array" 50 "Bit-arrays not of same dimensions" 30 "BIT-ARRAY2 not a bit array: ~S" 11 "BIT-ARRAY1 not a bit array: ~S") CL:CHAR :D8 (L (1 INDEX 0 STRING)) @d ®¿o@ ¿°ëA¶(19 ASSERT-FAIL 6 CL:STRINGP) NIL ( 13 "Not a string: ~S") CL:ARRAYP :D8 (L (0 ARRAY)) @¨@d£´iNIL NIL () CL:STRINGP :D8 (L (0 STRING)) @d‘¿ƒ´ @Ê0jðhðNIL NIL () COPY-ARRAY :D8 (L (1 TO-ARRAY 0 FROM-ARRAY)) ¶@d³d«o@ ¿A³(@ g@ g@ b°@A ªo ¿AÊjð¦A ¿@ A HlDð²IlCðA ¿A ¹@ @ HA A I@l A(178 %FAST-COPY-BASE 172 \\GETBASEFIXP 163 %ARRAY-OFFSET 157 %ARRAY-BASE 150 %ARRAY-OFFSET 144 %ARRAY-BASE 137 %ARRAY-TYPE-NUMBER 130 %MAKE-STRING-ARRAY-FAT 110 %ARRAY-TYPE-NUMBER 104 %ARRAY-TYPE-NUMBER 97 %MAKE-ARRAY-WRITEABLE 83 CL:ERROR 72 EQUAL-DIMENSIONS-P 61 CL:MAKE-ARRAY 55 %FAT-STRING-ARRAY-P 44 CL:ARRAY-ELEMENT-TYPE 33 CL:ARRAY-DIMENSIONS 23 CL:ERROR) (49 :FATP 38 :ELEMENT-TYPE) ( 78 "Dimensionality mismatch" 17 "Not an array: ~S") COPY-VECTOR :D8 (L (0 |-args-|)) ekañlaºHl¼»LKó¢±j½Hl_¿¾OdNó¢±¿h_¿Hl_¿_¿OdOó¢±¿j_¿Hl_¿_¿OdOó¢±¿h_¿I J _ ¿_¿O¤O_¿O¤O _¿jMOOªo ¿jOOO ªo ¿JÊjð¦J ¿OMÕOOÕI J O&lDð²O(lCðŸJ ¿J _(¿I MI ÔO&J OJ ÔO(O$dO"ó’¿O" JLdagð¦lÔ\±þÞkØa±þßagð—OkØa±þâOlÔ_±þÏagð—OkØa±þàOlÔ_±þÌagð—OkØa±þÞOlÔ_±þÊ(292 %FAST-COPY-BASE 273 %ARRAY-OFFSET 265 %ARRAY-BASE 256 %ARRAY-OFFSET 249 %ARRAY-BASE 240 %ARRAY-TYPE-NUMBER 233 %MAKE-STRING-ARRAY-FAT 211 %ARRAY-TYPE-NUMBER 205 %ARRAY-TYPE-NUMBER 189 %MAKE-ARRAY-WRITEABLE 175 CL:ERROR 164 <= 151 CL:ERROR 140 <= 107 VECTOR-LENGTH 101 VECTOR-LENGTH) (375 :END2 349 :START2 323 :END1 302 :START1) ( 170 "Bad subsequence for TO-VECTOR" 146 "Bad subsequence for FROM-VECTOR") DISPLACED-ARRAY-P :D8 (L (0 ARRAY)) &@d‘¿ˆd‘¿‚˜@ÊPjðhðo@ (35 CL:ERROR) NIL ( 29 "Not an array: ~S") EQUAL-DIMENSIONS-P :D8 (L (1 ARRAY-2 0 ARRAY-1)) @d²L¿Ad²¿@l Al ð‘hA´‚±ñAÉ kð´‚±á@l Al ð²iAd³Ë²+@l Al ð´‚±ª@l Al ðA´‚±AÉH lð´}@l Hð´p@l Hð@´^@ÉAd²¿H kð´G@l Al ð²'H lð´&HAl ð´HAl ðA´HAÉô(271 \\GETBASEFIXP 257 \\GETBASEFIXP 242 LENGTH 230 \\GETBASEFIXP 222 \\GETBASEFIXP 210 LENGTH 181 \\GETBASEFIXP 168 \\GETBASEFIXP 155 LENGTH 132 \\GETBASEFIXP 124 \\GETBASEFIXP 109 \\GETBASEFIXP 101 \\GETBASEFIXP 77 \\GETBASEFIXP 69 \\GETBASEFIXP 53 LENGTH 29 \\GETBASEFIXP 21 \\GETBASEFIXP) NIL () EXTENDABLE-ARRAY-P :D8 (L (0 ARRAY)) /@d‘¿ˆd‘¿‚˜@Êpjðhð@ ‘ho@ (44 CL:ERROR 30 STRINGP) NIL ( 38 "Not an array ~S") FILL-ARRAY :D8 (L (1 VALUE 0 ARRAY)) i @d³d«o@ ¿@l @ ‚ @Êjð¦@ ¿Hjó¢±*IdlCð²¿AÓlÿóž@ ¿@ Y€I_dlCðŸ¿AÓlÿóhð±³lDð˜A±¦Odl&ð”¿i±šlVð“i±’Odl6ð–¿A±„jðAºjJó³zJkóhð°rOdlðž¿A»jKó³dnKó°\lðœA\²SjLñhð°KOdlð²¿A½oMó³8Mnÿóhð°.lð´A¾oNó³Noóhð°gOo«oA ¿@ @ _¿_¿AOIOû¿OOIOOkÔIHkÕ @(357 %FAST-COPY-BASE 321 %ARRAY-OFFSET 315 %ARRAY-BASE 308 CL:ERROR 296 ECASE-FAIL 94 %ARRAY-TYPE-NUMBER 87 %MAKE-STRING-ARRAY-FAT 54 %MAKE-ARRAY-WRITEABLE 38 %ARRAY-TYPE-NUMBER 32 \\GETBASEFIXP 23 CL:ERROR) (284 TYPE-NUMBER 130 CHARACTER 111 CHARACTER 76 CHARACTER) ( 302 "Value of incorrect type for this array: ~S" 291 (67 68 38 86 54 0 3 4 20 22) 274 2147483647 264 -2147483648 239 -32768 17 "Not an array: ~S") CL:FILL-POINTER :D8 (L (0 VECTOR)) F@d¤d²¿@dÊ`jð§l ¯@²@É kðšo o@ (67 CL:ERROR 55 CL:ERROR 42 LENGTH 25 \\GETBASEFIXP) NIL ( 61 "Not a vector: ~S" 50 "vector has no fill pointer") FILL-VECTOR :D8 (L (0 |-args-|)) ekañ0laºHl¼»LKó²j½Hl_¿¾OdNó²$¿h_¿Id²1°JLdagð¥lÔ\°ÑkØa°Ñagð–OkØa°ÓOlÔ_°ÃœIdÉ kð¿oI ¿Il _¿O¤O_¿MOó§OdOóŸ¿oO ¿OMÕI _¿_¿IÊjð¦I ¿Ojó¢±JOdlCð² ¿JÓlÿóŸI ¿I _O_"dlCðŸ¿JÓlÿóhð±ÊlDð˜J±½O"dl&ð”¿i±±lVð“i±©O"dl6ð–¿J±›jð²J_¿jOó’±ŒOkóhð±‚O"dlð²¿J_¿jOó³onOó°flðžJ_²\jOñhð°SO"dlð²¿J_¿oOó³=Onÿóhð°2lð´J_ ¿oO ó³ O oóhð°gO"o«oJ ¿I MI Ô_&¿_$¿JO$OO&û¿O$O&OO$O&kÔOOkÕ I(537 %FAST-COPY-BASE 496 %ARRAY-OFFSET 489 %ARRAY-BASE 482 CL:ERROR 470 ECASE-FAIL 243 %ARRAY-TYPE-NUMBER 236 %MAKE-STRING-ARRAY-FAT 201 %MAKE-ARRAY-WRITEABLE 182 %ARRAY-TYPE-NUMBER 171 CL:ERROR 135 \\GETBASEFIXP 126 CL:ERROR 111 LENGTH) (458 TYPE-NUMBER 281 CHARACTER 262 CHARACTER 225 CHARACTER 81 :END 62 :START) ( 476 "Value of incorrect type for this array: ~S" 465 (67 68 38 86 54 0 3 4 20 22) 448 2147483647 436 -2147483648 407 -32768 164 "Invalid subsequence" 120 "Not a vector: ~S") CL:MAKE-ARRAY :D8 (L (0 |-args-|)) Q-ekañð )Hl»ºKJó¢±"i¼i½Hl_¿¾OdNó¢±%¿h]_¿i_¿Hl_¿_¿OdOó¢±"¿h__¿i_¿Hl_¿_¿OdOó¢±¿h__ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±¿h_"_(¿i_*¿Hl_.¿_,¿O.dO,ó¢±¿h_*¿j_0¿Hl_4¿_2¿O4dO2ó¢±¿h_6¿Hl_:¿_8¿O:dO8ó¢±¿h_<¿Hl_@¿_>¿O@dO>ó¢±¿h_B¿Hl_F¿_D¿OFdODó¢±¿h_H¿Hl_L¿_J¿OLdOJó¢±¿h_N¿Id´‚±,d´‚±!± Kdagð¦lÔ[±þÍkØa±þÎagð—OkØa±þÔOlÔ_±þÀagð—OkØa±þØOlÔ_±þÂagð—OkØa±þÜOlÔ_±þÆagð—O&kØa±þàO&lÔ_&±þÊagð—O.kØa±þæO.lÔ_.±þÎagð—O4kØa±þäO4lÔ_4±þÐagð—O:kØa±þâO:lÔ_:±þÎagð—O@kØa±þàO@lÔ_@±þÌagð—OFkØa±þÞOFlÔ_F±þÊagð—OLkØa±þÜOLlÔ_L±þÈYh_R¿_Pd²_R¿jORó©nÿþORó’±¹i›oI ¿I I ,l€OTó¬oOT ¿nÿþOVó¬oOV ¿OšM³@O³@d jð˜¿@A HA žHA@ jo (59 CL:ERROR 48 %FILL-ARRAY-FROM-SEQUENCE 42 %FLATTEN-ARRAY 33 %CHECK-SEQUENCE-DIMENSIONS 23 CL:ARRAY-DIMENSIONS 17 %ARRAY-ELEMENT-INITIALIZE 6 CL:ARRAY-RANK) NIL ( 54 "Dimensionality mismatch for Initial-contents") %ARRAY-ELEMENT-INITIALIZE :D8 (L (1 INITIAL-ELEMENT 0 ARRAY)) ˆA@ HdlCð—¿o°ddlDð—¿o°Wl&ð’h°PHdlVð“¿h°Fl6ð–o°;Hdjð“¿j°2lð’j°+Hdlð“¿j°!lð’j°Hlð´joHoð§@A h(131 FILL-ARRAY 121 ECASE-FAIL 6 %ARRAY-TYPE-NUMBER) NIL ( 116 (67 68 38 86 54 0 3 4 20 22) 110 (%ARRAY-TYPE-NUMBER ARRAY) 62 0.0 34 #\Null 21 #\Null) %ARRAY-OFFSET :D8 (L (0 ARRAY)) O@d”¿@È‘j@²0@È@dÊjð‘HÉb¿H@d‘¿‚“@È…@´jÔ¸°Úo@ (76 CL:ERROR) NIL ( 70 "Not an array: ~S") %ARRAY-TYPE-NUMBER :D8 (L (0 ARRAY)) .@d£d•¿@Ê‡ž@Êjð³ò@Éb°ôo@ (43 CL:ERROR) NIL ( 37 "Not an array: ~S") %ASET0 :D8 (L (1 ARRAY 0 NEWVALUE)) »A jð¢±¦jA2IdÊjð³+¿j»IZÊjð²3J¹HKÔXIl ýóªo ¿IÊ‡¼AÊjð³&A °7KJd‘¿‚“JÈ…J´jÔ»JÉ°LlCð²@dÓlÿóœ¿A “±ÿr@IÉLId‘¿‚“IÈ…I´jHÔûo (184 CL:ERROR 139 %MAKE-STRING-ARRAY-FAT 84 %MAKE-ARRAY-WRITEABLE 64 CL:ERROR 51 \\GETBASEFIXP 5 CL:ARRAY-RANK) (127 CHARACTER) ( 179 "Rank mismatch" 59 "Row-major-index out of bounds (displaced to adjustable?)") %ASET1 :D8 (L (2 INDEX 1 ARRAY 0 NEWVALUE)) ÖA kðªo jBóBdAl ýó¬¿oB A2IdÊjð³+¿j»IZÊjð²3J¹HKÔXIl ýóªo ¿IÊ‡¼AÊjð³&A °7KJd‘¿‚“JÈ…J´jÔ»JÉ°LlCð²@dÓlÿó¿A ”@AB·@IÉLId‘¿‚“IÈ…I´jHÔû(176 %MAKE-STRING-ARRAY-FAT 121 %MAKE-ARRAY-WRITEABLE 101 CL:ERROR 88 \\GETBASEFIXP 48 CL:ERROR 33 \\GETBASEFIXP 18 CL:ERROR 5 CL:ARRAY-RANK) (164 CHARACTER) ( 96 "Row-major-index out of bounds (displaced to adjustable?)" 42 "Index out of bounds: ~s" 13 "Rank mismatch") %ASET2 :D8 (L (3 J 2 I 1 ARRAY 0 NEWVALUE)) A lð¢±öpAd²¿Al ¸Al ˆÉ¸AÉ¹Bmÿó“HBó¦oBŽCmÿó“ICó«oC ¿CIBÖÔA»ºKdÊjð³+¿j½K\Êjð²3L»JMÔZKl ýóªo ¿KÊ‡¾AÊjð³&A °7MLd‘¿‚“LÈ…L´jÔ½LÉ°NlCð²@dÓlÿóž¿A •@ABCï@KÉNKd‘¿‚“KÈ…K´jJÔûo (265 CL:ERROR 218 %MAKE-STRING-ARRAY-FAT 163 %MAKE-ARRAY-WRITEABLE 143 CL:ERROR 130 \\GETBASEFIXP 86 CL:ERROR 39 \\GETBASEFIXP 30 \\GETBASEFIXP 5 CL:ARRAY-RANK) (206 CHARACTER) ( 260 "Rank mismatch" 138 "Row-major-index out of bounds (displaced to adjustable?)" 80 "Index out of bounds ~s" 64 "Index out of bounds ~s") %CHECK-SEQUENCE-DIMENSIONS :D8 (L (1 SEQUENCE 0 DIM-LST)) 5@A ð´$@hðµ@jHIó¡i@AI ¡hIkÔ¹°å(42 %CHECK-SEQUENCE-DIMENSIONS 37 CL:ELT 7 CL:LENGTH) NIL () %COPY-TO-NEW-ARRAY :D8 (L (5 NEW-OFFSET 4 NEW-ARRAY 3 NEW-DIMS 2 OLD-OFFSET 1 OLD-ARRAY 0 OLD-DIMS)) r@CIdHó‘¿H!@²-Hjº¹IJó¡h@A@BJÔÖCDCEJÔÖ ¿JkÔº°ÛA A BÔA D D EÔD H (111 %FAST-COPY-BASE 104 %ARRAY-TYPE-NUMBER 96 %ARRAY-OFFSET 90 %ARRAY-BASE 84 %ARRAY-TYPE-NUMBER 76 %ARRAY-OFFSET 70 %ARRAY-BASE 57 %COPY-TO-NEW-ARRAY) NIL () %DO-LOGICAL-OP :D8 (L (2 DEST 1 SOURCE 0 OP) P 8 \\INTERRUPTABLE) $ A A A B B oHd³`dkÍ ¿dkÏ ¿i¿H&MHÒÍ¿MHÓÍMIÍMKÒÍ¿MKÓÍMLÍMJnÿÿåÍMJnÿÿåÍMJÍ@dgð”¿j^°\gð”k¾j°P@dgð•¿j¾k°Agð“k^°6@dgð–¿j¾l°&gð•k¾l°@dgð’¿j‡gð–k¾l_¿MNÏ @MOÏ QMjvB(29 %ARRAY-OFFSET 23 %ARRAY-BASE 17 CL:ARRAY-TOTAL-SIZE 11 %ARRAY-OFFSET 5 %ARRAY-BASE) (265 CXOR 255 XOR 240 COR 226 OR 213 CAND 200 AND 186 NOT 174 COPY 164 PILOTBBT 151 PILOTBBT 138 PILOTBBT 129 PILOTBBT 119 PILOTBBT 108 PILOTBBT 99 PILOTBBT 89 PILOTBBT 78 PILOTBBT 47 |PILOTBBTTYPE#|) ( 34 #.(CONS NIL NIL)) %EXTEND-ARRAY :D8 (L (3 FILL-POINTER 2 DIMENSIONS 1 NEW-ARRAY 0 EXTENDABLE-ARRAY) P 3 \\INTERRUPTABLE) AÊ‡B AÉ@J¿@jÏ¿@HÏ‡¿@lI¿@d²¿@lB¿@lB°3jÏP¿@C‘k€jÏ`¿@jÍ¿@lCµI¿@d›¿@jÏ¿@B@(108 \\PUTBASEFIXP 74 \\PUTBASEFIXP 62 \\PUTBASEFIXP 44 \\PUTBASEFIXP 9 %TOTAL-SIZE) NIL () %FAST-COPY-BASE :D8 (L (6 CNT 5 TO-TYPENUMBER 4 TO-OFFSET 3 TO-BASE 2 FROM-TYPENUMBER 1 FROM-OFFSET 0 FROM-BASE) P 3 \\INTERRUPTABLE) —BEð²oEHdlCð“¿j°\dlDð“¿j°Sl&ð’k°LHdlVð“¿j°Bl6ð’j°;Hdjð“¿j°2lð’j°+Hdlð“¿j°!lð’j°Hlð´jgHokð²&AdFÔDHIð’±@BHú CEJû¿HkÔJkÔºX°çEHdlCð”¿l°dlDð“l°\Hdl&ð”¿l °QlVð“l °IHdl6ð”¿l °>jð’k°8Hdlð”¿l°-lð“l°%Hdlð”¿l°lð´l gHooHd³ `YdkÏ ¿IjÏ @¿IjÏ Q¿i¿HI@ÒÍ¿I@ÓÍ¿IHAÖÍ¿ICÒÍ¿ICÓÍ¿IHDÖÍ¿IHnÿÿåÍ¿IHnÿÿåÍ¿IHÍ¿IFÍ ¿Ijvh(262 ECASE-FAIL 108 ECASE-FAIL) (360 PILOTBBT 349 PILOTBBT 331 PILOTBBT 320 PILOTBBT 281 |PILOTBBTTYPE#| 251 TO-TYPENUMBER 97 TO-TYPENUMBER) ( 268 #.(CONS NIL NIL) 257 (67 68 38 86 54 0 3 4 20 22) 103 (67 68 38 86 54 0 3 4 20 22)) %FAT-STRING-ARRAY-P :D8 (L (0 ARRAY)) @ lDð(5 %ARRAY-TYPE-NUMBER) NIL () %FILL-ARRAY-FROM-SEQUENCE :D8 (L (3 OFFSET 2 FLATTENED-ARRAY 1 SEQUENCE 0 DIMS)) O@²+@jHIó¡h@AI B@CIÔÖ¿IkÔ¹°ßjC@HJð³×AH BI·¿HkÔIkÔ¹X°é(63 CL:ELT 37 %FILL-ARRAY-FROM-SEQUENCE 24 CL:ELT) NIL () %FLATTEN-ARRAY :D8 (L (0 ARRAY)) *@d kð‘@ g@ g@ (39 CL:MAKE-ARRAY 27 CL:ARRAY-ELEMENT-TYPE 16 CL:ARRAY-TOTAL-SIZE 6 CL:ARRAY-RANK) (32 :DISPLACED-TO 21 :ELEMENT-TYPE) () %MAKE-ARRAY-WRITEABLE :D8 (L (0 ARRAY) P 6 \\INTERRUPTABLE) £@d³d«o@ ¿@Q@Êjð¬HÊjð¥HÉX°öHÊjð³SHl »Hd‘¿‚“HÈ…H´jºHÊ‡¼KJÔL ¹HÉJLIJLK ¿HI¿HjÏ¿jdðhð@]dÊjð‘@jÏ¿MÉ°î(116 %FAST-COPY-BASE 100 %MAKE-ARRAY-STORAGE 64 \\GETBASEFIXP 23 CL:ERROR) NIL ( 17 "Not an array: ~S") %MAKE-DISPLACED-ARRAY :D8 (L (8 EXTENDABLE 7 ADJUSTABLE 6 READ-ONLY-P 5 FILL-POINTER 4 DISPLACED-INDEX-OFFSET 3 DISPLACED-TO 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTALSIZE)) ¡ CÊ‡CÊjðhðDµjHlCð³CdÊpjð²dÊ@jðœ¿ICdÊjð–¿C»i°'CÉ»JCd‘¿‚“CÈ…C´jÔºCÊjð¡i€h¬G©A kó²@ABEHââââlðFµIGGKJ @BEHlDðFµIGKJ (158 %MAKE-ONED-ARRAY 136 %MAKE-GENERAL-ARRAY 104 LENGTH) NIL () %MAKE-GENERAL-ARRAY :D8 (L (9 DISPLACED-INDEX-OFFSET 8 DISPLACED-TO 7 EXTENDABLE-P 6 ADJUSTABLE-P 5 READ-ONLY-P 4 FATP 3 FILL-POINTER 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTAL-SIZE)) Ó BD qlGµ @H ¹dI¿dE‘k€jÏ¿Gd‘¿ˆ¥G´iºdJ‘k€jÏ¿Hjð»dK‘k€jÏ ¿Hââââlð´ A kð¼dL‘k€jÏ0¿dF‘k€jÏ@¿dG‘k€jÏP¿dC‘k€jÏ`¿GµF½dM‘k€jÏp¿dHÏ‡¿Gµj¾dNÍ¿Cµ@_¿dlO¿dl@¿dA¿(202 \\PUTBASEFIXP 192 \\PUTBASEFIXP 98 LENGTH 23 %MAKE-ARRAY-STORAGE 6 %CML-TYPE-TO-TYPENUMBER) NIL () %MAKE-ONED-ARRAY :D8 (L (7 DISPLACED-INDEX-OFFSET 6 DISPLACED-TO 5 EXTENDABLE-P 4 READ-ONLY-P 3 FATP 2 FILL-POINTER 1 ELEMENT-TYPE 0 TOTAL-SIZE)) ’AC QlFµ @H ¹dI¿dD‘k€jÏ¿HjðºdJ‘k€jÏ ¿Hââââlð»dK‘k€jÏ0¿dF‘k€jÏP¿dB‘k€jÏ`¿dE‘k€jÏp¿dHÏ‡¿Gµj¼dLÍ¿Bµ@½dlM¿dl@¿(142 \\PUTBASEFIXP 132 \\PUTBASEFIXP 22 %MAKE-ARRAY-STORAGE 6 %CML-TYPE-TO-TYPENUMBER) NIL () %MAKE-STRING-ARRAY-FAT :D8 (L (0 ARRAY) P 6 \\INTERRUPTABLE) œ@d³d«o@ ¿@Q@Êjð¬HÊjð¥HÉX°öHdÊ‡lCð¿oH ¿H¥Hd”¿HÈ„´jZHl JÔ[dlD YJHÉ½\Kð³MlCLú IlDLû¿LkÔ°ëHI¿HlDÏ‡@(109 %MAKE-ARRAY-STORAGE 98 \\GETBASEFIXP 69 CL:ERROR 23 CL:ERROR) NIL ( 63 "Not a thin string-char array: ~S" 17 "Not an array") %MAKE-TWOD-ARRAY :D8 (L (5 EXTENDABLE-P 4 READ-ONLY-P 3 FATP 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTAL-SIZE)) gAABC #l@J »dK¿dD‘k€jÏ¿Jjð¼dL‘k€jÏ ¿dE‘k€jÏp¿dJÏ‡¿dlH¿dlI¿dl@¿(99 \\PUTBASEFIXP 89 \\PUTBASEFIXP 79 \\PUTBASEFIXP 24 %MAKE-ARRAY-STORAGE 11 %CML-TYPE-TO-TYPENUMBER) NIL () %TOTAL-SIZE :D8 (L (0 DIMS)) @kH¡IHIÖ¹HX°õNIL NIL () SHRINK-VECTOR :D8 (L (1 NEW-SIZE 0 VECTOR)) V@d‘¿²@@É kð²4jAóªA@l óœo@A¿@kÏ`¿kjðhð@lA@o@ (83 CL:ERROR 70 \\PUTBASEFIXP 49 CL:ERROR 35 \\GETBASEFIXP 18 LENGTH) NIL ( 77 "Not a vector: ~S" 42 "Trying to shrink array ~s to bad size ~s") %SET-ARRAY-OFFSET :D8 (L (1 NEWVALUE 0 ARRAY)) a@d–¿@AÍ°T›o °E@²5@A@j¹HdÊjð—¿IÕÍ°(É¸IHd‘¿‚“HÈ…H´jÔ°Öo@ A(93 CL:ERROR 24 CL:ERROR) NIL ( 87 "Not an array: ~S" 19 "Twod-arrays have no offset") %SET-ARRAY-TYPE-NUMBER :D8 (L (1 NEWVALUE 0 ARRAY)) <@d£d—¿@AÏ‡°*²@HdÊjð—¿HAÏ‡ÉX°îo@ A(56 CL:ERROR) NIL ( 50 "Not an array ~S") %ONED-ARRAY-P :D8 (L (0 ARRAY)) @lðNIL NIL () %TWOD-ARRAY-P :D8 (L (0 ARRAY)) @lðNIL NIL () %GENERAL-ARRAY-P :D8 (L (0 ARRAY)) @lðNIL NIL () %THIN-STRING-ARRAY-P :D8 (L (0 ARRAY)) @ lCð(5 %ARRAY-TYPE-NUMBER) NIL () |optimize-%ONED-ARRAY-P| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (10 AND) ( 24 (T) 15 (OPCODES TYPEP 14)) (PUTPROP (QUOTE %ONED-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-%ONED-ARRAY-P|) (GET (QUOTE %ONED-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-%TWOD-ARRAY-P| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (10 AND) ( 24 (T) 15 (OPCODES TYPEP 15)) (PUTPROP (QUOTE %TWOD-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-%TWOD-ARRAY-P|) (GET (QUOTE %TWOD-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-%GENERAL-ARRAY-P| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @goHhoNIL (10 AND) ( 24 (T) 15 (OPCODES TYPEP 16)) (PUTPROP (QUOTE %GENERAL-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-%GENERAL-ARRAY-P|) (GET (QUOTE %GENERAL-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) (/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)) (ADDTOVAR SYSTEMRECLST (DATATYPE GENERAL-ARRAY ((NIL BITS 8) (STORAGE POINTER) (READ-ONLY-P FLAG) ( 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) (OFFSET WORD) (FILL-POINTER WORD) (TOTAL-SIZE WORD) ( DIMS POINTER))) (DATATYPE ONED-ARRAY ((NIL BITS 8) (BASE POINTER) (READ-ONLY-P FLAG) (NIL BITS 1) ( BIT-P FLAG) (STRING-P FLAG) (NIL BITS 1) (DISPLACED-P FLAG) (FILL-POINTER-P FLAG) (EXTENDABLE-P FLAG) (TYPE-NUMBER BITS 8) (OFFSET WORD) (FILL-POINTER WORD) (TOTAL-SIZE WORD))) (DATATYPE TWOD-ARRAY ((NIL BITS 8) (BASE POINTER) (READ-ONLY-P FLAG) (NIL BITS 1) (BIT-P FLAG) (NIL BITS 4) (EXTENDABLE-P FLAG) ( TYPE-NUMBER BITS 8) (BOUND0 WORD) (BOUND1 WORD) (TOTAL-SIZE WORD)))) (PUTPROPS %AREF1 DOPVAL (2 AREF1)) (PUTPROPS %AREF2 DOPVAL (3 AREF2)) (PUTPROPS %ASET1 DOPVAL (3 ASET1)) (PUTPROPS %ASET2 DOPVAL (4 ASET2)) %DEFPRINT-ARRAY :D8 (L (1 STREAM 0 ARRAY) P 6 *PRINT-CIRCLE-HASHTABLE* F 7 \\THISFILELINELENGTH F 8 *PRINT-ARRAY* F 9 *PRINT-LEVEL* F 10 *READTABLE* F 11 *PRINT-CIRCLE-HASHTABLE*) I@d‘¿Ž²@É kð—@A W§@A Wµ‚±÷WÊHÒlð´Hlÿålÿðhð´lHÑ@ BW²@ [¼K½L²XW²L AÈØWñ–A ¿LA M²'W²kAÈØWñ–A ¿oA ¿L’M²{I ºW²J lÔAÈØWñ–A ¿HA ¿JA ¿oA ¿Ijð²@ Aj°#jó’±ÿ A i@ j@ Ai(325 %PRINT-ARRAY-CONTENTS 319 CL:ARRAY-DIMENSIONS 312 %FLATTEN-ARRAY 304 \\ELIDE.PRINT.ELEMENT 290 \\PRINDATUM 283 CL:AREF 271 CL:WRITE-CHAR 259 CL:WRITE-STRING 251 CL:WRITE-CHAR 243 FRESHLINE 221 VECTOR-LENGTH 210 CL:PRINC-TO-STRING 198 CL:WRITE-CHAR 186 FRESHLINE 158 CL:WRITE-STRING 147 FRESHLINE 128 VECTOR-LENGTH 108 \\MVLIST 103 PRINT-CIRCLE-LOOKUP 90 CL:ARRAY-RANK 39 %DEFPRINT-GENERIC-ARRAY 28 %DEFPRINT-VECTOR 18 LENGTH) (230 STREAM 173 STREAM 134 STREAM 55 READTABLEP) ( 265 #.#\A 192 #\Space) %DEFPRINT-BITVECTOR :D8 (L (1 STREAM 0 CL:BIT-VECTOR) P 15 *PRINT-CIRCLE-HASHTABLE* F 16 \\THISFILELINELENGTH F 17 *PRINT-LENGTH* F 18 *READTABLE* F 19 *PRINT-CIRCLE-HASHTABLE*) €W$ÊHÒlð´Hlÿålÿðhð´lHÑ@ ÒIkÕZh__¿W&²@ ^_¿N_¿O²_W ²O AÈØW ñ–A ¿OA O²'W ²kAÈØW ñ–A ¿oA ¿O•O¢±žIjð³"JkÕ@J¶_¿_¿jOó®@O¶O:–OZkÕ°ëW"µ,J»IkÕJð¦I ½W ²;lMµ jÔKÔL²l° °ñJó³Ôi¼W"kÕ°ÍjÔAÈØW ñ–A ¿HA ¿MµoA ¿j_Kó²L•A iA ¿°ÜA@O¶l0Ô_¿_É(_¿OOlO¿OkÔ°Â(340 CL:WRITE-STRING 332 \\ELIDE.PRINT.TAIL 316 CL:WRITE-CHAR 301 CL:WRITE-CHAR 293 FRESHLINE 258 VECTOR-LENGTH 232 CL:PRINC-TO-STRING 167 CL:WRITE-CHAR 155 FRESHLINE 126 CL:WRITE-STRING 114 FRESHLINE 95 VECTOR-LENGTH 69 \\MVLIST 64 PRINT-CIRCLE-LOOKUP 41 VECTOR-LENGTH) (361 STREAM 280 STREAM 142 STREAM 101 STREAM 6 READTABLEP) ( 310 #.#\* 161 #\Space) %DEFPRINT-GENERIC-ARRAY :D8 (L (1 STREAM 0 ARRAY) P 4 *PRINT-CIRCLE-HASHTABLE* F 5 \\THISFILELINELENGTH F 6 *READTABLE* F 7 *PRINT-CIRCLE-HASHTABLE*) FVÊHÒlð´Hlÿålÿðhð´lHÑ1W²@ YºI»J²VU²J AÈØUñ–A ¿JA K²%U²kAÈØUñ–A ¿oA ¿J”K¢±³U²lAÈØUñ–A ¿HA ¿oA ¿g A ¿oA ¿@ A ¿oA ¿@ A ¿oA ¿oA ¿oA ¿@A ¿oA i(322 CL:WRITE-CHAR 310 \\PRINTADDR 302 CL:WRITE-CHAR 290 CL:WRITE-CHAR 278 CL:WRITE-CHAR 266 CL:WRITE-STRING 260 CL:PRINC-TO-STRING 255 CL:ARRAY-DIMENSIONS 248 CL:WRITE-CHAR 236 CL:WRITE-STRING 230 CL:PRINC-TO-STRING 225 CL:ARRAY-ELEMENT-TYPE 218 CL:WRITE-CHAR 206 CL:WRITE-STRING 200 CL:PRINC-TO-STRING 189 CL:WRITE-CHAR 177 CL:WRITE-CHAR 169 FRESHLINE 138 CL:WRITE-CHAR 126 FRESHLINE 100 CL:WRITE-STRING 89 FRESHLINE 71 VECTOR-LENGTH 52 \\MVLIST 47 PRINT-CIRCLE-LOOKUP) (195 CL:ARRAY 157 STREAM 114 STREAM 77 STREAM 5 READTABLEP) ( 316 #.#\> 296 #.#\Space 284 #.#\@ 272 #.#\Space 242 #.#\Space 212 #.#\Space 183 #.#\< 132 #\Space) %DEFPRINT-VECTOR :D8 (L (1 STREAM 0 VECTOR) P 13 *PRINT-LEVEL* P 12 *PRINT-CIRCLE-HASHTABLE* F 14 \\THISFILELINELENGTH F 15 *PRINT-LEVEL* F 16 *PRINT-LENGTH* F 17 *PRINT-ARRAY* F 18 *READTABLE* F 19 *PRINT-CIRCLE-HASHTABLE*) Å@ —@A W"§@A Wµ@ ²@A jó³îA iW$ÊHÒlð´Hlÿålÿðhð´lHÑ@ ¢IkÕZh__¿W&²@ ^_¿N_¿O²_W²O AÈØWñ–A ¿OA O²'W²kAÈØWñ–A ¿oA ¿O•O¢±›Ijð³"JkÕ@J¶_¿_¿jOó®@O¶O:–OZkÕ°ëW µ‚±€J»IkÕJð¦I ½W²MµbjlÔAÈØWñ–A ¿HA ¿Mµ6oA ¿Wd‘kÕ j_dKó²6L–A ¿oA iA ¿°Å °œJó³i¼W kÕ±ÿzjó›oA ¿@O¶Aj¿OkÔ°¦(444 \\PRINDATUM 432 CL:WRITE-CHAR 403 VECTOR-LENGTH 395 CL:WRITE-STRING 387 CL:WRITE-CHAR 375 \\ELIDE.PRINT.TAIL 348 CL:WRITE-CHAR 333 CL:WRITE-CHAR 325 FRESHLINE 294 CL:PRINC-TO-STRING 225 CL:WRITE-CHAR 213 FRESHLINE 184 CL:WRITE-STRING 172 FRESHLINE 153 VECTOR-LENGTH 127 \\MVLIST 122 PRINT-CIRCLE-LOOKUP 99 VECTOR-LENGTH 55 \\ELIDE.PRINT.ELEMENT 44 %DEFPRINT-BITVECTOR 35 CL:BIT-VECTOR-P 24 %DEFPRINT-GENERIC-ARRAY 13 %DEFPRINT-STRING 5 CL:STRINGP) (312 STREAM 200 STREAM 159 STREAM 64 READTABLEP) ( 426 #.#\Space 381 #.#\) 342 #.#\( 219 #\Space) %DEFPRINT-STRING :D8 (L (1 STREAM 0 STRING) P 12 *PRINT-CIRCLE-HASHTABLE* F 13 \\THISFILELINELENGTH F 14 *PRINT-ESCAPE* F 15 *READTABLE* F 16 *PRINT-CIRCLE-HASHTABLE*) 6 WÊ‡WÊ jðhð@ “W ²@ [_¿K_¿O²_W²O AÈØWñ–A ¿OA O²'W²kAÈØWñ–A ¿oA ¿O•O¢±šW²I’lƒlJÔAÈØWñ–A ¿W²AÉ(¼Al"lL¿j_Jð³E@O¶Ó_¿W²Ol"ð¤OHðŸAÉ(½AHlM¿AÉ(¾AOlN¿OkÔ°¹W²AÉ(_¿Al"lOi(187 FRESHLINE 145 CL:WRITE-CHAR 133 FRESHLINE 104 CL:WRITE-STRING 92 FRESHLINE 73 VECTOR-LENGTH 47 \\MVLIST 42 PRINT-CIRCLE-LOOKUP 29 VECTOR-LENGTH) (293 STREAM 266 STREAM 250 STREAM 225 CHARACTER 198 STREAM 174 STREAM 120 STREAM 79 STREAM 16 READTABLEP 6 READTABLEP) ( 139 #\Space) %PRINT-ARRAY-CONTENTS :D8 (L (3 STREAM 2 DIMENSIONS 1 OFFSET 0 FLAT-ARRAY) P 7 *PRINT-LEVEL* F 8 *PRINT-LENGTH* F 9 *PRINT-LEVEL*) ËBaW›HdWó–¿iºW€HkÕ¹oC B³.AdIÔ¼[dLó’¿°^Aó›oC ¿@K¶Cj¿KkÔ°ÛWdkð²'¿j]dIó’¿°.Aó›oC ¿C ¿MkÔ°ß´WkÕj^dIó²J–C ¿oC jó›oC ¿@BANÔÖBC¿NkÔ°Á(195 %PRINT-ARRAY-CONTENTS 178 CL:WRITE-CHAR 163 CL:WRITE-CHAR 151 \\ELIDE.PRINT.TAIL 120 \\ELIDE.PRINT.ELEMENT 113 CL:WRITE-CHAR 76 \\PRINDATUM 65 CL:WRITE-CHAR 34 CL:WRITE-CHAR) NIL ( 172 #.#\Space 157 #.#\) 107 #.#\Space 59 #.#\Space 28 #.#\() (DEFPRINT (QUOTE ONED-ARRAY) (QUOTE %DEFPRINT-VECTOR)) (DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %DEFPRINT-ARRAY)) (DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %DEFPRINT-ARRAY)) %ARRAY-READ :D8 (L (2 INDEX 1 TYPE-NUMBER 0 BASE)) @AB(7 %SLOW-ARRAY-READ) NIL () %ARRAY-WRITE :D8 (L (3 INDEX 2 TYPE-NUMBER 1 BASE 0 NEWVALUE)) @ABC(8 %SLOW-ARRAY-WRITE) NIL () %CML-TYPE-TO-TYPENUMBER :D8 (L (1 FATP 0 ELEMENT-TYPE)) ×@ AA›Hdgð“lDHið’l&Hd²wYdgð².¿HZdkð‘jlð’lJlð´loJogð´'H[dlð’ll ð´loKooIo\dgð’lCgð’±ÿiLdgð’lVgð´l6gLo(212 ECASE-FAIL 150 ECASE-FAIL 133 ECASE-FAIL 88 ECASE-FAIL 5 %GET-CANONICAL-CML-TYPE) (201 CANONICAL-TYPE 190 CL:SINGLE-FLOAT 180 XPOINTER 168 CL:EXTENDED-CHARACTER 158 CL:BASE-CHARACTER 94 CL:SIGNED-BYTE 42 CL:UNSIGNED-BYTE 17 CL:BASE-CHARACTER) ( 207 (CL:BASE-CHARACTER CL:EXTENDED-CHARACTER XPOINTER CL:SINGLE-FLOAT) 145 (CL:UNSIGNED-BYTE CL:SIGNED-BYTE) 139 (CAR CANONICAL-TYPE) 128 (16 32) 122 (CADR CANONICAL-TYPE) 83 (1 8 16) 77 (CADR CANONICAL-TYPE)) %GET-CANONICAL-CML-TYPE :D8 (L (0 ELEMENT-TYPE)) ô@d²[Hdgð—¿@ dgð—¿@ gð–@ Hgð–@ @ Y›@I b°¦iið³%@dgð³dgð³dgð¨dgð‘@gð³Ï@dgð•ggð•o@gð³@gð¨@dgð•ggð•o@ H¢±ÿy@H b±ÿ(236 TYPE-EXPAND 221 TYPE-EXPANDER 86 TYPE-EXPAND 77 TYPE-EXPANDER 69 %REDUCE-INTEGER 54 %REDUCE-MOD 40 %GET-ENCLOSING-SIGNED-BYTE 24 %GET-ENCLOSING-UNSIGNED-BYTE) (207 BIT 201 CL:BASE-CHARACTER 194 CL:STANDARD-CHAR 185 CL:CHARACTER 176 CL:STRING-CHAR 162 CL:FIXNUM 156 CL:SINGLE-FLOAT 149 FLOAT 139 POINTER 130 CL:EXTENDED-CHARACTER 122 CL:BASE-CHARACTER 113 CL:SINGLE-FLOAT 104 XPOINTER 61 INTEGER 46 CL:MOD 31 CL:SIGNED-BYTE 15 CL:UNSIGNED-BYTE) ( 214 (CL:UNSIGNED-BYTE 1) 169 (CL:SIGNED-BYTE 32)) %GET-ENCLOSING-SIGNED-BYTE :D8 (L (0 ELEMENT-TYPE)) @3 µidló¥ol ó³ðoNIL NIL ( 29 (CL:SIGNED-BYTE 32) 18 (CL:SIGNED-BYTE 16)) %GET-ENCLOSING-UNSIGNED-BYTE :D8 (L (0 ELEMENT-TYPE)) .@H3 µidkó¥oló¥oHló³æoNIL NIL ( 43 (CL:UNSIGNED-BYTE 16) 31 (CL:UNSIGNED-BYTE 8) 21 (CL:UNSIGNED-BYTE 1)) %MAKE-ARRAY-STORAGE :D8 (L (3 ALIGNMENT 2 INIT-ON-PAGE 1 TYPENUMBER 0 NELTS)) óAHdlCð”¿l°ddlDð”¿l°Zl&ð“l °RHdlVð”¿l °Gl6ð“l °?Hdjð“¿k°6lð“l°.Hdlð”¿l°#lð“l°Hlð´l gHoAHdlCð“¿j°\lDð’j°UHdl&ð“¿k°KlVð’j°DHdl6ð“¿j°:jð’j°4Hdlð“¿j°*lð’j°#Hdlð“¿j°lð´jgHo@HÖlØâââââIBC(240 \\ALLOCBLOCK 217 ECASE-FAIL 112 ECASE-FAIL) (206 TYPENUMBER 101 TYPENUMBER) ( 212 (67 68 38 86 54 0 3 4 20 22) 107 (67 68 38 86 54 0 3 4 20 22)) %REDUCE-INTEGER :D8 (L (0 ELEMENT-TYPE)) y@@"H”HkÔ¸IµH3 ²7I3 ²2jHó³/lIó›okÕ¹°ânIó•ooIó•oijHÕZIó‘J€I»n€Kó•oKoó³àoNIL NIL ( 118 (CL:SIGNED-BYTE 32) 110 2147483647 103 (CL:SIGNED-BYTE 16) 78 (CL:UNSIGNED-BYTE 16) 70 65536 64 (CL:UNSIGNED-BYTE 8) 46 (CL:UNSIGNED-BYTE 1)) %REDUCE-MOD :D8 (L (0 ELEMENT-TYPE)) 3@H3 µidló¥onó¥oHoó³áoNIL NIL ( 48 (CL:UNSIGNED-BYTE 16) 40 65536 33 (CL:UNSIGNED-BYTE 8) 22 (CL:UNSIGNED-BYTE 1)) %SLOW-ARRAY-READ :D8 (L (2 ROW-MAJOR-INDEX 1 TYPENUMBER 0 BASE)) ðAaHdlCð²%¿@BÂYÒlð´‚±ÆIlÿålÿðhð´‚±·lIÑlDð²&@BÐÈZÒlð´‚±Jlÿålÿðhð´‚±ŽlJÑHdl&ð—¿@BàÐÉlVð³öHdl6ðž¿@BàÐdÈýÈÑíjð²BâââlBlåÙ»kKç½¼M@LÂåjð‘jkHdlð”¿@BÂlð•@BÐÈHdlð²¿@BÐÈ^dnÿó²¿lNÑlð´@Bà gHo(237 ECASE-FAIL 220 \\GETBASEFIXP) (226 TYPENUMBER) ( 232 (67 68 38 86 54 0 3 4 20 22)) %SLOW-ARRAY-WRITE :D8 (L (3 ROW-MAJOR-INDEX 2 TYPENUMBER 1 BASE 0 NEWVALUE)) ¹BQHdlCðŸ¿@Ólÿóhð±¶dlDð™¿@±§l&ð“i±ŸHdlVð”¿i±”l6ð•@±ŠHdjð²¿@¹jIóhð´yIkóhð°rlðŸ@ºjJóhð´enJó°^Hdlð¿@[´QjKñhð°Jlð²@¼oLóhð´8Lnÿóhð°/Hlð´@½oMóhð´MoóhðgHo®o@ ¿±ÛBHdlCð¿AC@ÓÇ±ÃlDðžACÐ@ÓÍ±°Hdl&ðš¿ACàÐ@±ŸlVð™ACàÐ@Î±‘Hdl6ð›¿ACàÐ@íÎ°~jð²2CâââlClåÙ¹kIçAJÂ¼KLåjð•@jðhð‚@jð–AJKLæÇ¿°JHdlð–¿AC@Ç°=lð—ACÐ@Í°1Hdlð™¿ACÐ@ÓÍ°!lð´ACà@gHo@(437 ECASE-FAIL 420 \\PUTBASEFIXP 217 CL:ERROR 204 ECASE-FAIL) (426 TYPENUMBER 258 CHARACTER 240 CHARACTER 193 TYPENUMBER 37 CHARACTER 16 CHARACTER) ( 432 (67 68 38 86 54 0 3 4 20 22) 211 "Illegal value: ~S" 199 (67 68 38 86 54 0 3 4 20 22) 184 2147483647 172 -2147483648 144 -32768) |optimize-%ARRAY-READ| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AH¹HZ»J¼oIKLhNIL NIL ( 21 (OPCODES MISC3 9)) (PUTPROP (QUOTE %ARRAY-READ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-%ARRAY-READ|) (GET (QUOTE %ARRAY-READ) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-%ARRAY-WRITE| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) '@aH¹HZ»J\½L¾oIKMNhNIL NIL ( 26 (OPCODES MISC4 7)) (PUTPROP (QUOTE %ARRAY-WRITE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-%ARRAY-WRITE|) (GET (QUOTE %ARRAY-WRITE) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS CMLARRAY FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLARRAY COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992 1993)) NIL