(FILECREATED " 7-Oct-86 18:02:14" ("compiled on " {ERIS}SOURCES>CMLARRAY.;5) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 2-Oct-86 12:20:02" {QV}LISP>CMLARRAY.;28 125121 changes to: (FUNCTIONS FILL-VECTOR FILL-ARRAY) (VARS CMLARRAYCOMS) (RECORDS ARRAY-HEADER) previous date: " 2-Oct-86 12:01:26" {QV}LISP>CMLARRAY.;27) (RPAQQ CMLARRAYCOMS ((* * "Contains table driven macros") (DECLARE: DONTCOPY EVAL@COMPILE (FILES CMLARRAY-SUPPORT)) (* * "User entry points") (FUNCTIONS ADJUST-ARRAY ADJUSTABLE-ARRAY-P ARRAY-DIMENSION ARRAY-DIMENSIONS ARRAY-ELEMENT-TYPE ARRAY-HAS-FILL-POINTER-P ARRAY-NEEDS-INDIRECTION-P ARRAY-RANK ARRAY-TOTAL-SIZE BIT BIT-AND BIT-ANDC1 BIT-ANDC2 BIT-ARRAY-P BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-NOT BIT-ORC1 BIT-ORC2 BIT-VECTOR-P BIT-XOR CHAR CL:ARRAYP CL:STRINGP COPY-ARRAY DISPLACED-ARRAY-P EQUAL-DIMENSIONS-P EXTENDABLE-ARRAY-P FILL-ARRAY FILL-POINTER FILL-VECTOR MAKE-ARRAY MAKE-VECTOR READ-ONLY-ARRAY-P SBIT SCHAR SET-FILL-POINTER SIMPLE-ARRAY-P SIMPLE-BIT-VECTOR-P SIMPLE-STRING-P SIMPLE-VECTOR-P STRING-ARRAY-P SVREF VECTOR-LENGTH VECTOR-POP VECTOR-PUSH VECTOR-PUSH-EXTEND VECTORP) (FNS %%COPY-TO-NEW-ARRAY AREF ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX ASET VECTOR) (* * "Obsolete but retained to avoid recompilation") (FNS SCHARSET) (* * "Vars etc") (* "*PRINT-ARRAY* is defined in APRINT") (VARIABLES ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT ARRAY-DIMENSION-LIMIT *DEFAULT-PUSH-EXTENSION-SIZE*) (* * "Internal stuff") (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 %%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) (* "Faster predicates not including IL:STRINGP's") (FNS %%ARRAYP %%SIMPLE-ARRAY-P %%SIMPLE-STRING-P %%STRINGP %%VECTORP) (* "Low level predicates") (FNS %%GENERAL-ARRAY-P %%ONED-ARRAY-P %%THIN-STRING-ARRAY-P %%TWOD-ARRAY-P) (* "Record def's") (DECLARE: DONTCOPY DOEVAL@COMPILE (EXPORT (RECORDS ARRAY-HEADER GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY))) ( 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) (* * "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ñðP$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¿I ¢±Äh±Áagð–MkØa±ÿMlÔ]±ÿ agð—OkØa±ÿ!OlÔ_±ÿagð—OkØa±ÿ'OlÔ_±ÿagð—O"kØa±ÿ-O"lÔ_"±ÿagð—O*kØa±ÿ3O*lÔ_*±ÿagð—O2kØa±ÿ;O2lÔ_2±ÿ#agð—O:kØa±ÿAO:lÔ_:±ÿ+agð—O@kØa±ÿAO@lÔ_@±ÿ-i—o ¿Jd´‘h€i”JhZ€Jh_F¿_Dd²_F¿jOFó«nÿþOFó‘h€i² i˜oJ ¿I J J I –h…OD°Åi(l€ONó‘h€i™oON ¿nÿþOLó‘h€i™oOL ¿ONI :‘h€i˜oJ ¿K²NOJô‘h€iœoN ‚OJ^¿O6ŸO<¬I —o ¿O›O³¿O@dO>ó¢±¿h_B¿Hl_F¿_D¿OFdODó¢±¿h_H¿Hl_L¿_J¿OLdOJó¢±¿h_N¿Id´‚±¢±h± 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Ô_@±þàagð—OFkØa±þôOFlÔ_F±þàagð—OLkØa±þôOLlÔ_L±þài”IhY€Ih_R¿_Pd²_R¿jORó«nÿþORó‘h€i² i˜oI ¿I I ,l€OTó–h…OP°Åi™oOT ¿nÿþOVó‘h€i™oOV ¿OšM³GO³CO"³?O"šM³9O³5O³1O6™OTk:‘h€i³$O*šO¢O"‘h€i³M’O®O<’OB¨ONOB¢O<—o ¿O²DO d‘¿‡¤O ‘h€i•o°&L O ô‘h€i”oO0OVÔO ó—o ¿O6µO²GOVILO O0O6ONO 343Q |\Space 332Q |\@ 321Q |\Space 274Q |\Space 247Q |\Space 236Q "ARRAY" 225Q |\< 147Q |\Space) %%DEFPRINT-VECTOR D1 (L (1 STREAM 0 VECTOR) P 14Q *PRINT-LEVEL* F 15Q \THISFILELINELENGTH F 16Q *PRINT-LEVEL* F 17Q *PRINT-LENGTH* F 20Q *PRINT-ARRAY* F 21Q *READTABLE* F 22Q *PRINT-CIRCLE-HASHTABLE*) › @ •@A W ‘h€i•@A Wµ@ ²@A jó‘h€i²îA iW"ÊH´jHó‘h€i´lHÑ@ ¢IkÕZh__¿W$²@ ^_¿N_¿O²IW²O AÈØWñ”A ¿OA ¿O² W²AÈkØWñ”A ¿oA ¿O‘h€i¥O¢±¦Ij:‘h€i²'JkÕ@J¶_¿_¿jOó³@O¶O:‘h€i¦OZkÕ°æWµJ»IkÕJ:²h°Jó‘h€i²îi¼WkÕ°çi”I ½W²MµRjlÔAÈØWñ”A ¿HA ¿Mµ.oA ¿Wd‘kÕj_dKó² L”A ¿oA iA ¿°Ï °®jó˜oA ¿@O¶A ¿OkÔ°Â(622Q \PRINDATUM 611Q WRITE-CHAR 574Q VECTOR-LENGTH 566Q WRITE-STRING 560Q WRITE-CHAR 547Q \ELIDE.PRINT.TAIL 516Q WRITE-CHAR 502Q WRITE-CHAR 474Q FRESHLINE 441Q PRINC-TO-STRING 277Q WRITE-CHAR 266Q FRESHLINE 235Q WRITE-STRING 226Q FRESHLINE 207Q VECTOR-LENGTH 157Q \MVLIST 154Q PRINT-CIRCLE-LOOKUP 127Q VECTOR-LENGTH 63Q \ELIDE.PRINT.ELEMENT 46Q %%DEFPRINT-BITVECTOR 37Q BIT-VECTOR-P 26Q %%DEFPRINT-GENERIC-ARRAY 11Q %%DEFPRINT-STRING 3 CL:STRINGP) (461Q STREAM 252Q STREAM 213Q STREAM 72Q READTABLEP) ( 605Q |\Space 554Q |\) 512Q |\( 273Q |\Space) %%DEFPRINT-STRING D1 (L (1 STREAM 0 STRING) F 14Q \THISFILELINELENGTH F 15Q *PRINT-ESCAPE* F 16Q *READTABLE* F 17Q *PRINT-CIRCLE-HASHTABLE*) WÊWÊ jðhð@ “W²@ [_¿K_¿O²IW²O AÈØWñ”A ¿OA ¿O² W²AÈkØWñ”A ¿oA ¿O‘h€i¥O¢±‹W²I’lƒJlÔAÈØWñ”A ¿WžAÉ ¼Al"lL¿j_J:³?@O¶Ó_¿W²Ol"ð¤OHðAÉ ½AHlM¿AÉ ¾AOlN¿OkÔ°¿W²AÉ _¿Al"lOi(237Q FRESHLINE 165Q WRITE-CHAR 154Q FRESHLINE 123Q WRITE-STRING 114Q FRESHLINE 75Q VECTOR-LENGTH 45Q \MVLIST 42Q PRINT-CIRCLE-LOOKUP 27Q VECTOR-LENGTH) (376Q STREAM 345Q STREAM 327Q STREAM 300Q CHARACTER 247Q STREAM 224Q STREAM 140Q STREAM 101Q STREAM 14Q READTABLEP 4 READTABLEP) ( 161Q |\Space) %%PRINT-ARRAY-CONTENTS D1 (L (3 STREAM 2 DIMENSIONS 1 OFFSET 0 FLAT-ARRAY) P 7 *PRINT-LEVEL* F 10Q *PRINT-LENGTH* F 11Q *PRINT-LEVEL*) ³BaW›HdWó–¿iºW€HkÕ¹oC B³(AdIÔ¼[dLó’¿°SAó˜oC ¿@K¶C ¿KkÔ°áWdkð²"¿j]dIó’¿°)Aó˜oC ¿C ¿MkÔ°ä´WkÕj^dIó²J”C ¿oC jó˜oC ¿@BANÔÖBC¿NkÔ°Ë(253Q %%PRINT-ARRAY-CONTENTS 234Q WRITE-CHAR 220Q WRITE-CHAR 207Q \ELIDE.PRINT.TAIL 152Q \ELIDE.PRINT.ELEMENT 145Q WRITE-CHAR 103Q \PRINDATUM 73Q WRITE-CHAR 37Q WRITE-CHAR) NIL ( 230Q |\Space 214Q |\) 141Q |\Space 67Q |\Space 33Q |\() (DEFPRINT (QUOTE ONED-ARRAY) (QUOTE %%DEFPRINT-VECTOR)) (DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %%DEFPRINT-ARRAY)) (DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %%DEFPRINT-ARRAY)) %%ARRAY-READ D1 (L (2 INDEX 1 TYPE-NUMBER 0 BASE)) @AB(5 %%SLOW-ARRAY-READ) NIL () %%ARRAY-WRITE D1 (L (3 INDEX 2 TYPE-NUMBER 1 BASE 0 NEWVALUE)) @ABC(6 %%SLOW-ARRAY-WRITE) NIL () %%CML-TYPE-TO-TYPENUMBER D1 (L (1 FATP 0 ELEMENT-TYPE)) ´@ AA™Hdgð“lDHið’l&Hd²gYdgð²*¿HZdk:‘jl:’lJl:´loJogð´#H[dl:’ll :´loKooIo\dgð’lCgð³ùLdgð’lVgð´l6gLo(261Q ECASE-FAIL 202Q ECASE-FAIL 165Q ECASE-FAIL 116Q ECASE-FAIL 3 %%GET-CANONICAL-CML-TYPE) (251Q CANONICAL-TYPE 240Q SINGLE-FLOAT 230Q XPOINTER 220Q STRING-CHAR 210Q STRING-CHAR 122Q SIGNED-BYTE 44Q UNSIGNED-BYTE 15Q STRING-CHAR) ( 256Q (STRING-CHAR STRING-CHAR XPOINTER SINGLE-FLOAT) 177Q (UNSIGNED-BYTE SIGNED-BYTE) 172Q (CAR CANONICAL-TYPE) 162Q (20Q 40Q) 155Q (CADR CANONICAL-TYPE) 113Q (1 10Q 20Q) 106Q (CADR CANONICAL-TYPE)) %%GET-CANONICAL-CML-TYPE D1 (L (0 ELEMENT-TYPE)) É@d²RHdgð–¿@ °=gð•@ °2Hgð§Hdgð–¿@ °gð•@ °@g d–@ °qið³@dgð³edgð³^dgð“¿@°Tgð’i°L@dgð•¿g°?gð•o°4@gð§@dgð•¿g°!gð•o°@ÁÉg'd˜@h µi(303Q %%GET-CANONICAL-CML-TYPE 300Q \TYPEP.EXPAND.MACRO 121Q %%GET-CANONICAL-CML-TYPE 116Q \TYPEP.EXPAND.MACRO 110Q GETPROP 76Q %%REDUCE-INTEGER 63Q %%REDUCE-MOD 37Q %%GET-ENCLOSING-SIGNED-BYTE 24Q %%GET-ENCLOSING-UNSIGNED-BYTE) (267Q DEFTYPE 247Q BIT 242Q STRING-CHAR 234Q CL:CHARACTER 225Q CHARACTER 211Q FIXNUM 204Q SINGLE-FLOAT 176Q FLOAT 164Q POINTER 153Q STRING-CHAR 144Q SINGLE-FLOAT 135Q XPOINTER 105Q DEFTYPE 70Q INTEGER 54Q CL:MOD 45Q MOD 31Q SIGNED-BYTE 15Q UNSIGNED-BYTE) ( 255Q (UNSIGNED-BYTE 1) 217Q (SIGNED-BYTE 40Q)) %%GET-ENCLOSING-SIGNED-BYTE D1 (L (0 ELEMENT-TYPE)) %@Hló‘h€i”oHl ó‘h€i”oiNIL NIL ( 40Q (SIGNED-BYTE 40Q) 22Q (SIGNED-BYTE 20Q)) %%GET-ENCLOSING-UNSIGNED-BYTE D1 (L (0 ELEMENT-TYPE)) 2@Hkó‘h€i”oHló‘h€i”oHló‘h€i”oiNIL NIL ( 55Q (UNSIGNED-BYTE 20Q) 37Q (UNSIGNED-BYTE 10Q) 21Q (UNSIGNED-BYTE 1)) %%MAKE-ARRAY-STORAGE D1 (L (3 ALIGNMENT 2 INIT-ON-PAGE 1 TYPENUMBER 0 NELTS)) çAHdlC:”¿l°_lD:“l°WHdl&:”¿l °LlV:“l °DHdl6:”¿l °9j:’k°3Hdl:”¿l°(l:“l° Hdl:”¿l°l:´l ŠgHoAHdlC:“¿j°WlD:’j°PHdl&:“¿k°FlV:’j°?Hdl6:“¿j°5j:’j°/Hdl:“¿j°%l:’j°Hdl:“¿j°l:´jŠgHo@HÖlØâââââIBC(344Q \ALLOCBLOCK 317Q ECASE-FAIL 153Q ECASE-FAIL) (307Q TYPENUMBER 143Q TYPENUMBER) ( 314Q (103Q 104Q 46Q 126Q 66Q 0 3 4 24Q 26Q) 150Q (103Q 104Q 46Q 126Q 66Q 0 3 4 24Q 26Q)) %%REDUCE-INTEGER D1 (L (0 ELEMENT-TYPE)) r@@HµId“kÕYHó´3jHó—h†kÔ¸°êi²%lIó”onIó”ooIó”oiH I ºn€Jó”oJoó‘h€i²ào(123Q MAX 117Q ABS) NIL ( 157Q (SIGNED-BYTE 40Q) 144Q 17777777777Q 136Q (SIGNED-BYTE 20Q) 110Q (UNSIGNED-BYTE 20Q) 101Q 200000Q 74Q (UNSIGNED-BYTE 10Q) 61Q (UNSIGNED-BYTE 1)) %%REDUCE-MOD D1 (L (0 ELEMENT-TYPE)) 6@Hló‘h€i”oHnó‘h€i”oHoó‘h€i”oiNIL NIL ( 61Q (UNSIGNED-BYTE 20Q) 47Q 200000Q 41Q (UNSIGNED-BYTE 10Q) 22Q (UNSIGNED-BYTE 1)) %%SLOW-ARRAY-READ D1 (L (2 ROW-MAJOR-INDEX 1 TYPENUMBER 0 BASE)) ê AHdlC:²!¿@BÂY´‚±ÇjIó‘h€i´‚±ºlIÑlD:²"@BÐÈZ´‚±¢jJó‘h€i´‚±•lJÑHdl&:—¿@BàÐÉlV:³öHdl6:ž¿@BàÐdÈýÈÑíj:²&@B¼»LâââlLlåÙ½kMç_¿¾OKNÂåjð‘jkHdl:”¿@BÂl:•@BÐÈHdl:²¿@BÐÈ_dnÿó²¿lOÑl:´ @Bà gHo(347Q ECASE-FAIL 333Q \GETBASEFIXP) (337Q TYPENUMBER) ( 344Q (103Q 104Q 46Q 126Q 66Q 0 3 4 24Q 26Q)) %%SLOW-ARRAY-WRITE D1 (L (3 ROW-MAJOR-INDEX 2 TYPENUMBER 1 BASE 0 NEWVALUE)) ÎBQHdlC:²¿@Ólÿó“h±Èi±ÄlD:–@±¹Hdl&:”¿i±®lV:“i±¦Hdl6:–¿@±™j:²@¹jIó‘h€i´‚±†Ikó’h°~i°{Hdl:²¿@ºjJó‘h€i´hnJó°al:Ÿ@[´WjKñ’h°Pi°MHdl:²¿@¼oLó‘h€i´7Lnÿó’h°.i°+l:´@½oMó‘h€i´Moó‘hŒiŠgHo‘h€i›o@ ¿±ÞBHdlC:›¿AC@ÓÇ±ÈlD:œACÐ@ÓÍ±·Hdl&:š¿ACàÐ@±¦lV:™ACàÐ@Î±˜Hdl6:œ¿ACàÐ@íÎ±…j:²?AC@KâââlKlåÙ¹kIçJMÂ_¿NOåjð—Ljð‘h„i‚Ljð—JMNOæÇ¿°CHdl:–¿AC@Ç°6l:—ACÐ@Í°*Hdl:™¿ACÐ@ÓÍ°l:´ ACà@ŠgHo@(712Q ECASE-FAIL 676Q \PUTBASEFIXP 353Q CL:ERROR 335Q ECASE-FAIL) (702Q TYPENUMBER 420Q CHARACTER 400Q CHARACTER 325Q TYPENUMBER 44Q CHARACTER 17Q CHARACTER) ( 707Q (103Q 104Q 46Q 126Q 66Q 0 3 4 24Q 26Q) 347Q "Illegal value: ~S" 332Q (103Q 104Q 46Q 126Q 66Q 0 3 4 24Q 26Q) 314Q 17777777777Q 277Q -20000000000Q 240Q -100000Q) (PUTPROPS CMLARRAY FILETYPE COMPILE-FILE) (PUTPROPS CMLARRAY COPYRIGHT ("Xerox Corporation" 1986)) NIL