(FILECREATED " 5-Aug-86 21:03:48" ("compiled on " {ERIS}LIBRARY>CMLARRAY.;96) " 4-Aug-86 17:43:14" "COMPILE-FILEd" in "Xerox Lisp 4-Aug-86 ..." dated " 4-Aug-86 22:17:52") (FILECREATED " 5-Aug-86 21:00:29" {ERIS}LIBRARY>CMLARRAY.;96 130515 changes to: (FNS \DEFPRINT-BITVECTOR \DEFPRINT-STRING \DEFPRINT-VECTOR SHRINK-VECTOR) (VARS CMLARRAYCOMS) previous date: "29-Jul-86 04:04:40" {ERIS}LIBRARY>CMLARRAY.;94) (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))) ( * * Needed ar run time. Lowel level functions for accessing, setting, and allocating raw storage. Also includes CML type to TYPENUMBER converters) (FNS \CML-TYPE-TO-TYPENUMBER \GET-CANONICAL-CML-TYPE \GET-ENCLOSING-SIGNED-BYTE \GET-ENCLOSING-UNSIGNED-BYTE \LLARRAY-READ \LLARRAY-WRITE \REDUCE-INTEGER \REDUCE-MOD \LLARRAY-MAKE-STORAGE \SMALLFIXP-SMALLPOSP \SMALLPOSP-SMALLFIXP) (* * Optimizers, not yet used, since not backed by micro-code) (MACROS \ARRAY-READ \ARRAY-WRITE) (* * Support Fns) (FNS \GET-TYPE-TABLE-ENTRY \GET-TYPE-TABLE-ENTRY-FIELD \LIT-SIZE-TO-SIZE \LIT-TYPE-TO-TYPE \LLARRAY-MAKE-ACCESSOR-EXPR \LLARRAY-MAKE-SETTOR-EXPR \MAKE-ARRAY-TYPE-TABLE \MAKE-CML-TYPE-TABLE \TYPE-SIZE-TO-TYPENUMBER) (* * These aren't needed at run-time) (DECLARE: DONTCOPY EVAL@COMPILE (* *) (FUNCTIONS \CML-TYPE-TO-TYPENUMBER-EXPANDER \CHAR-TYPE-P \FAT-CHAR-TYPE-P \FAT-STRING-CHAR-P \GETBASESMALL-FIXP \GETBASESTRING-CHAR \GETBASETHINSTRING-CHAR \LLARRAY-TYPED-GET \LLARRAY-TYPED-PUT \LLARRAY-TYPEP \PACK-TYPENUMBER \PUTBASESMALL-FIXP \PUTBASESTRING-CHAR \PUTBASETHINSTRING-CHAR \THIN-CHAR-TYPE-P \THIN-STRING-CHAR-P \TYPENUMBER-TO-BITS-PER-ELEMENT \TYPENUMBER-TO-CML-TYPE \TYPENUMBER-TO-DEFAULT-VALUE \TYPENUMBER-TO-GC-TYPE \TYPENUMBER-TO-NEEDS-INIT-P \TYPENUMBER-TO-SIZE \TYPENUMBER-TO-TYPE) (* * These vars contain all the necessary information for typed arrays) (VARS \LIT-ARRAY-SIZES \LIT-ARRAY-TABLE \LIT-ARRAY-TYPES) (* * These are generated below) (GLOBALVARS \ARRAY-TYPE-TABLE \CANONICAL-CML-TYPES) (* * Describes each entry of \ARRAY-TYPE-TABLE) (RECORDS ARRAY-TYPE-TABLE-ENTRY) (* * Make table that drives various macros) (P (SETQ \ARRAY-TYPE-TABLE ( \MAKE-ARRAY-TYPE-TABLE \LIT-ARRAY-TABLE \LIT-ARRAY-TYPES \LIT-ARRAY-SIZES)) (SETQ \CANONICAL-CML-TYPES (\MAKE-CML-TYPE-TABLE \ARRAY-TYPE-TABLE))) (* * Constants for (SIGNED-BYTE 16)) (CONSTANTS MAX.SMALLFIXP MIN.SMALLFIXP) (* * Constants for STRING-CHARS) (CONSTANTS (\CHAR-TYPE ( \LIT-TYPE-TO-TYPE (QUOTE STRING-CHAR))) (\THIN-CHAR-TYPENUMBER (\TYPE-SIZE-TO-TYPENUMBER (QUOTE STRING-CHAR) (QUOTE 8BIT))) (\FAT-CHAR-TYPENUMBER (\TYPE-SIZE-TO-TYPENUMBER (QUOTE STRING-CHAR) (QUOTE 16BIT))) \MAXTHINCHAR)) (* * Compiler options) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY ( LOCALVARS . T)) (PROP FILETYPE CMLARRAY) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA 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