(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "14-Jun-2021 23:17:16" ("compiled on " |{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;1|) "14-Jun-2021 22:45:51" "COMPILE-FILEd" |in| "FULL 14-Jun-2021 ..." |dated| "14-Jun-2021 22:46:04") (FILECREATED " 6-Jan-93 12:21:21" |{DSK}lde>lispcore>sources>CMLARRAY.;2| 113462 |previous| |date:| " 4-Jan-93 17:46:26" |{DSK}lde>lispcore>sources>CMLARRAY.;1|) (RPAQQ CMLARRAYCOMS ((* |;;| "If you change the record declarations on CMLARRAY-SUPPORT, You need to re-make this file so the INITRECORDS get filled in right." ) (* |;;| "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 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 XCL:ROW-MAJOR-AREF CL::ROW-MAJOR-ASET) (SETFS XCL: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ð³÷Hdl&ð‘ilVð•gHdl6ð•gjð•oHdlð•olð•oHdlð•olð´ooHoo@ (156 CL:ERROR 144 ECASE-FAIL 24 %ARRAY-TYPE-NUMBER) (73 CL:SINGLE-FLOAT 61 XPOINTER 38 CL:STRING-CHAR) ( 150 "Not an array: ~S" 139 (67 68 38 86 54 0 3 4 20 22) 133 (%ARRAY-TYPE-NUMBER ARRAY) 127 (CL:SIGNED-BYTE 32) 116 (CL:SIGNED-BYTE 16) 104 (CL:UNSIGNED-BYTE 16) 94 (CL:UNSIGNED-BYTE 8) 82 (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 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)) (ADDTOVAR SYSTEMRECLST (DATATYPE GENERAL-ARRAY ((NIL BITS 4) (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 FIXP) (TOTAL-SIZE FIXP) ( DIMS POINTER))) (DATATYPE ONED-ARRAY ((NIL BITS 4) (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 FIXP) (TOTAL-SIZE FIXP))) (DATATYPE TWOD-ARRAY ((NIL BITS 4) (BASE POINTER) (READ-ONLY-P FLAG) (NIL BITS 1) (BIT-P FLAG) (NIL BITS 4) (EXTENDABLE-P FLAG) ( TYPE-NUMBER BITS 8) (BOUND0 FIXP) (BOUND1 FIXP) (TOTAL-SIZE FIXP)))) (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*) >@d‘¿Ž²@É kð—@A W§@A Wµ‚±ìWÊHÒlð´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(314 %PRINT-ARRAY-CONTENTS 308 CL:ARRAY-DIMENSIONS 301 %FLATTEN-ARRAY 293 \\ELIDE.PRINT.ELEMENT 279 \\PRINDATUM 272 CL:AREF 260 CL:WRITE-CHAR 248 CL:WRITE-STRING 240 CL:WRITE-CHAR 232 FRESHLINE 210 VECTOR-LENGTH 199 CL:PRINC-TO-STRING 187 CL:WRITE-CHAR 175 FRESHLINE 147 CL:WRITE-STRING 136 FRESHLINE 117 VECTOR-LENGTH 97 \\MVLIST 92 PRINT-CIRCLE-LOOKUP 79 CL:ARRAY-RANK 39 %DEFPRINT-GENERIC-ARRAY 28 %DEFPRINT-VECTOR 18 LENGTH) (219 STREAM 162 STREAM 123 STREAM 55 READTABLEP) ( 254 #.#\A 181 #\Space) %DEFPRINT-BITVECTOR :D8 (L (1 STREAM 0 CL:BIT-VECTOR) P 12 *PRINT-CIRCLE-HASHTABLE* F 13 \\THISFILELINELENGTH F 14 *PRINT-LENGTH* F 15 *READTABLE* F 16 *PRINT-CIRCLE-HASHTABLE*) b WÊHÒlð´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¼WkÕ°ÍjÔAÈØWñ–A ¿HA ¿MµoA ¿j_Kó²L•A iA ¿°ÜA@O¶l0Ô ¿OkÔ°Õ(345 \\OUTCHAR 329 CL:WRITE-STRING 321 \\ELIDE.PRINT.TAIL 305 CL:WRITE-CHAR 290 CL:WRITE-CHAR 282 FRESHLINE 247 VECTOR-LENGTH 221 CL:PRINC-TO-STRING 156 CL:WRITE-CHAR 144 FRESHLINE 115 CL:WRITE-STRING 103 FRESHLINE 84 VECTOR-LENGTH 58 \\MVLIST 53 PRINT-CIRCLE-LOOKUP 30 VECTOR-LENGTH) (269 STREAM 131 STREAM 90 STREAM 6 READTABLEP) ( 299 #.#\* 150 #\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*) ;VÊHÒlð´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(311 CL:WRITE-CHAR 299 \\PRINTADDR 291 CL:WRITE-CHAR 279 CL:WRITE-CHAR 267 CL:WRITE-CHAR 255 CL:WRITE-STRING 249 CL:PRINC-TO-STRING 244 CL:ARRAY-DIMENSIONS 237 CL:WRITE-CHAR 225 CL:WRITE-STRING 219 CL:PRINC-TO-STRING 214 CL:ARRAY-ELEMENT-TYPE 207 CL:WRITE-CHAR 195 CL:WRITE-STRING 189 CL:PRINC-TO-STRING 178 CL:WRITE-CHAR 166 CL:WRITE-CHAR 158 FRESHLINE 127 CL:WRITE-CHAR 115 FRESHLINE 89 CL:WRITE-STRING 78 FRESHLINE 60 VECTOR-LENGTH 41 \\MVLIST 36 PRINT-CIRCLE-LOOKUP) (184 CL:ARRAY 146 STREAM 103 STREAM 66 STREAM 5 READTABLEP) ( 305 #.#\> 285 #.#\Space 273 #.#\@ 261 #.#\Space 231 #.#\Space 201 #.#\Space 172 #.#\< 121 #\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ð´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Ô°¦(433 \\PRINDATUM 421 CL:WRITE-CHAR 392 VECTOR-LENGTH 384 CL:WRITE-STRING 376 CL:WRITE-CHAR 364 \\ELIDE.PRINT.TAIL 337 CL:WRITE-CHAR 322 CL:WRITE-CHAR 314 FRESHLINE 283 CL:PRINC-TO-STRING 214 CL:WRITE-CHAR 202 FRESHLINE 173 CL:WRITE-STRING 161 FRESHLINE 142 VECTOR-LENGTH 116 \\MVLIST 111 PRINT-CIRCLE-LOOKUP 88 VECTOR-LENGTH 55 \\ELIDE.PRINT.ELEMENT 44 %DEFPRINT-BITVECTOR 35 CL:BIT-VECTOR-P 24 %DEFPRINT-GENERIC-ARRAY 13 %DEFPRINT-STRING 5 CL:STRINGP) (301 STREAM 189 STREAM 148 STREAM 64 READTABLEP) ( 415 #.#\Space 370 #.#\) 331 #.#\( 208 #\Space) %DEFPRINT-STRING :D8 (L (1 STREAM 0 STRING) P 8 *PRINT-CIRCLE-HASHTABLE* F 9 \\THISFILELINELENGTH F 10 *PRINT-ESCAPE* F 11 *READTABLE* F 12 *PRINT-CIRCLE-HASHTABLE*) WÊ‡WÊ jðhð@ SW²@ [¾K_¿N²ZW²N AÈØWñ–A ¿NA O²'W²kAÈØWñ–A ¿oA ¿N“O²lW²I’lƒlJÔAÈØWñ–A ¿W˜Al" ¿j\Jð³.@L¶Ó½W²Ml"ð£MHð—AH ¿AM ¿LkÔ°ÑW—Al" i(253 \\OUTCHAR 236 \\OUTCHAR 228 \\OUTCHAR 191 \\OUTCHAR 179 FRESHLINE 140 CL:WRITE-CHAR 128 FRESHLINE 99 CL:WRITE-STRING 88 FRESHLINE 69 VECTOR-LENGTH 47 \\MVLIST 42 PRINT-CIRCLE-LOOKUP 29 VECTOR-LENGTH) (206 CHARACTER 166 STREAM 115 STREAM 75 STREAM 16 READTABLEP 6 READTABLEP) ( 134 #\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ð³÷Ldgð’lVgð´l6gLo(210 ECASE-FAIL 150 ECASE-FAIL 133 ECASE-FAIL 88 ECASE-FAIL 5 %GET-CANONICAL-CML-TYPE) (199 CANONICAL-TYPE 188 CL:SINGLE-FLOAT 178 XPOINTER 168 CL:STRING-CHAR 158 CL:STRING-CHAR 94 CL:SIGNED-BYTE 42 CL:UNSIGNED-BYTE 17 CL:STRING-CHAR) ( 205 (CL:STRING-CHAR CL:STRING-CHAR 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ð‘@gð³Ø@dgð•ggð•o@dgð•ggð•o@ H²”@H b±ÿ,(208 TYPE-EXPAND 195 TYPE-EXPANDER 86 TYPE-EXPAND 77 TYPE-EXPANDER 69 %REDUCE-INTEGER 54 %REDUCE-MOD 40 %GET-ENCLOSING-SIGNED-BYTE 24 %GET-ENCLOSING-UNSIGNED-BYTE) (181 BIT 175 CL:STRING-CHAR 168 CL:CHARACTER 153 CL:FIXNUM 147 CL:SINGLE-FLOAT 140 FLOAT 130 POINTER 121 CL:STRING-CHAR 113 CL:SINGLE-FLOAT 104 XPOINTER 61 INTEGER 46 CL:MOD 31 CL:SIGNED-BYTE 15 CL:UNSIGNED-BYTE) ( 188 (CL:UNSIGNED-BYTE 1) 160 (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ð´‚±¨lIÑlDð²@BÐÈZÒlð´‚±Ž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(207 ECASE-FAIL 190 \\GETBASEFIXP) (196 TYPENUMBER) ( 202 (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 1992 1993)) NIL