(FILECREATED "29-Jul-86 04:06:04" ("compiled on " {ERIS}LIBRARY>CMLARRAY.;94) "29-Jul-86 01:13:34" "COMPILE-FILEd" in "Xerox Lisp 29-Jul-86 ..." dated "29-Jul-86 01:25:07") (FILECREATED "29-Jul-86 04:04:40" {ERIS}LIBRARY>CMLARRAY.;94 131355 changes to: (FNS \GET-CANONICAL-CML-TYPE \REDUCE-INTEGER) (FUNCTIONS MAKE-ARRAY) previous date: "25-Jul-86 00:17:37" {ERIS}LIBRARY>CMLARRAY.;93) (RPAQQ CMLARRAYCOMS ((* * User entry points) (FUNCTIONS ADJUST-ARRAY MAKE-ARRAY VECTOR-PUSH-EXTEND) ( FNS ADJUSTABLE-ARRAY-P AREF ARRAY-DIMENSION ARRAY-DIMENSIONS ARRAY-DISPLACED-P ARRAY-ELEMENT-TYPE ARRAY-HAS-FILL-POINTER-P ARRAY-IN-BOUNDS-P ARRAY-RANK ARRAY-ROW-MAJOR-INDEX ARRAY-TOTAL-SIZE ASET BIT-AND BIT-ANDC1 BIT-ANDC2 BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-NOT BIT-ORC1 BIT-ORC2 BIT-VECTOR-P BIT-XOR CL:ARRAYP CL:STRINGP FILL-POINTER SCHAR CHAR SCHARSET SET-FILL-POINTER SIMPLE-ARRAY-P SIMPLE-BIT-VECTOR-P SIMPLE-STRING-P SIMPLE-VECTOR-P VECTOR VECTOR-POP VECTOR-PUSH VECTORP) (SETFS AREF BIT FILL-POINTER SBIT SCHAR SVREF CHAR) (* These need to be functions) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (FUNCTION AREF) (FUNCTION BIT)) (MOVD (FUNCTION AREF) (FUNCTION SBIT)) (MOVD (FUNCTION AREF) (FUNCTION SVREF)))) (* * Vars, etc.) (VARIABLES ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT ARRAY-DIMENSION-LIMIT *DEFAULT-PUSH-EXTENSION-SIZE* *PRINT-ARRAY*) (* * Internal stuff) (FNS SHRINK-VECTOR \ALTER-AS-DISPLACED-ARRAY \ALTER-AS-DISPLACED-TO-BASE-ARRAY \AREF0 \AREF1 \AREF2 \ARRAY-BASE \ARRAY-CONTENT-INITIALIZE \ARRAY-ELEMENT-INITIALIZE \ARRAY-OFFSET \ASET0 \ASET1 \ASET2 \COPY-ARRAY-TO-ARRAY \COPY-LIST-TO-ARRAY \DO-LOGICAL-OP \EQUAL-LIST-DIMENSIONS \FAT-STRING-ARRAY-P \FILL-NEW-ARRAY \FLATTEN-ARRAY \GET-ARRAY-OFFSET \MAKE-DISPLACED-ARRAY \MAKE-DISPLACED-TO-BASE-ARRAY \MAKE-GENERAL-ARRAY \MAKE-NON-SIMPLE-ARRAY \MAKE-ONED-ARRAY \MAKE-SIMPLE-ARRAY \MAKE-STRING-FAT \MAKE-TWOD-ARRAY \TOTAL-SIZE) (FUNCTIONS ASET-MACRO) (* Faster predicates not including IL:STRINGP's) (FNS \ARRAYP \SIMPLE-ARRAY-P \SIMPLE-STRING-P \SIMPLE-VECTOR-P \STRING-ARRAY-P \STRINGP \VECTORP) (* Low level predicates) (FNS \GENERAL-ARRAY-P \ONED-ARRAY-P \THIN-STRING-ARRAY-P \TWOD-ARRAY-P) (* Record def's) (INITRECORDS GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (* * Don't need this stuff at run time ) (DECLARE: DONTCOPY EVAL@COMPILE (RECORDS ARRAY-HEADER GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) ( FUNCTIONS \CHECK-INDICES \GENERAL-ARRAY-ADJUST-BASE \EXPAND-BIT-OP) (CONSTANTS \GENERAL-ARRAY \ONED-ARRAY \TWOD-ARRAY)) (* * Optimizers) (FNS \AREF-EXPANDER \ASET-EXPANDER) (MACROS AREF ASET BIT SBIT SCHAR SVREF \ARRAYP) (PROP DOPVAL \AREF1 \AREF2 \ASET1 \ASET2 \GENERAL-ARRAY-P \ONED-ARRAY-P \TWOD-ARRAY-P) (* * I/O) (FNS \DEFPRINT-ARRAY \DEFPRINT-BITVECTOR \DEFPRINT-VECTOR \DEFPRINT-STRING \PRINT-ARRAY-CONTENTS) (P (DEFPRINT (QUOTE ONED-ARRAY) (FUNCTION \DEFPRINT-VECTOR)) (DEFPRINT (QUOTE TWOD-ARRAY) (FUNCTION \DEFPRINT-ARRAY)) (DEFPRINT (QUOTE GENERAL-ARRAY) (FUNCTION \DEFPRINT-ARRAY))) ( * * Aux files) (COMS * LOWCMLARRAYCOMS) (* * Compiler options) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE CMLARRAY) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SHRINK-VECTOR VECTOR ASET ARRAY-ROW-MAJOR-INDEX ARRAY-IN-BOUNDS-P AREF))))) ADJUST-ARRAY D1 (L (0 -args-)) Â*ekañð`%laºi»Hl½¼MdLó¢±¿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¿Jd£d‘hZdh_F¿_Dµ‚±òi¨oJ ¿Id ª¿oI ¿I I J J )J±ìagð–MkØa±þÞMlÔ]±þÌ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Ô_@±þð_F3 ¢±ÿ jOFñ“h±ÿOD±þód_Hnÿýñ™oOH ¿µëOPnÿýñ™oOP ¿ORdl€ñœ¿oOR ¿ORON:¨oI ¿KŸNI ô¨oN „I ^¿O6²O<I ˜oI ¿O›O³3O³/O&³+O&›O³$O³ O³O6—O<”ORkðžO.•O¢O&•OšO—o ¿O²GO$³O$®O$©oO$ ¿I O$ ô©oO$ ¿O4OPØO$ ñ™oO$ ¿O6²$O¿O@dO>ó¢±é¿h_B¿h_D_F¿I_R_Pd3 ¢±ì_H¿jOHó’±ßIhY±agð–KkØa±þ÷KlÔ[±þæ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Ô_@±þýOPo§OPlð´,OP_N¿i_L¿ON_J¢OLOL´ OJkg_L¤h´ °OJ°ãgORo¿nÿýI _Dó¢±Èl€I _Fó¢±»¿O<µO6µOµO"hðh_V¿_T¿OšM³.O³*O"³&O"šM³ O³O³O6”OFkðO*•O¢O"”MšO—o ¿O²AO ³O ¬O §o ¿L O ô§o ¿O0ODØO ñ—o ¿O6µOT²>ODILOB°ndið²¿OD_6¿°æoI ±ÿ$3 ›jO6ñ¦O6ODñ²Ìo ¿°ÂO²ODILO O0O6O< °'O(²ODILO(O0O6O@gH0`°dYIhºKµJh\J&»µãLo (71Q \APPEND2) (17Q \ARRAY-TYPE-TABLE 10Q SELECTQ) ( 66Q ((SHOULDNT))) (SETF-MACRO-FUNCTION (QUOTE \TYPENUMBER-TO-GC-TYPE) (QUOTE expand-\TYPENUMBER-TO-GC-TYPE)) expand-\TYPENUMBER-TO-NEEDS-INIT-P D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) A@gH0`°!dYIhºKµJh\J&»µàLo (74Q \APPEND2) (17Q \ARRAY-TYPE-TABLE 10Q SELECTQ) ( 71Q ((SHOULDNT))) (SETF-MACRO-FUNCTION (QUOTE \TYPENUMBER-TO-NEEDS-INIT-P) (QUOTE expand-\TYPENUMBER-TO-NEEDS-INIT-P)) expand-\TYPENUMBER-TO-SIZE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q LOGAND) ( 15Q (17Q)) (SETF-MACRO-FUNCTION (QUOTE \TYPENUMBER-TO-SIZE) (QUOTE expand-\TYPENUMBER-TO-SIZE)) expand-\TYPENUMBER-TO-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q LRSH) ( 15Q (4)) (SETF-MACRO-FUNCTION (QUOTE \TYPENUMBER-TO-TYPE) (QUOTE expand-\TYPENUMBER-TO-TYPE)) (PUTPROPS CMLARRAY FILETYPE COMPILE-FILE) (PUTPROPS CMLARRAY COPYRIGHT ("Xerox Corporation" 1986)) STOP