(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP") (filecreated "18-Oct-86 17:38:36" ("compiled on " {eris}sources>cmlarray.\;11) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "18-Oct-86 17:37:00" {eris}sources>cmlarray.\;11 130281 |changes| |to:| (fns %get-canonical-cml-type %get-enclosing-signed-byte %get-enclosing-unsigned-byte %reduce-integer %reduce-mod) |previous| |date:| "17-Oct-86 17:47:42" {eris}sources>cmlarray.\;9) (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 char cl:arrayp cl:stringp copy-array 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 %copy-to-new-array cl:aref cl:array-in-bounds-p cl:array-row-major-index aset cl:vector) (* |;;| "Obsolete but retained to avoid recompilation") (fns scharset) (* |;;| "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*) (* |;;| "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 cl:vector aset cl:array-row-major-index cl:array-in-bounds-p cl:aref))))) cl: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 227 #\Space 218 #\@ 209 #\Space 188 #\Space 167 #\Space 158 "ARRAY" 149 #\< 103 #\Space) %defprint-vector d1 (l (1 stream 0 cl:vector) p 12 *print-level* f 13 \\thisfilelinelength f 14 *print-level* f 15 *print-length* f 16 *print-array* f 17 *readtable* f 18 *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Ô°Â(402 \\prindatum 393 cl:write-char 380 vector-length 374 cl:write-string 368 cl:write-char 359 \\elide.print.tail 334 cl:write-char 322 cl:write-char 316 freshline 289 cl:princ-to-string 191 cl:write-char 182 freshline 157 cl:write-string 150 freshline 135 vector-length 111 \\mvlist 108 print-circle-lookup 87 vector-length 51 \\elide.print.element 38 %defprint-bitvector 31 cl:bit-vector-p 22 %defprint-generic-array 9 %defprint-string 3 cl:stringp) (305 stream 170 stream 139 stream 58 readtablep) ( 389 #\Space 364 #\) 330 #\( 187 #\Space) %defprint-string d1 (l (1 stream 0 string) f 12 \\thisfilelinelength f 13 *print-escape* f 14 *readtable* f 15 *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(159 freshline 117 cl:write-char 108 freshline 83 cl:write-string 76 freshline 61 vector-length 37 \\mvlist 34 print-circle-lookup 23 vector-length) (254 stream 229 stream 215 stream 192 character 167 stream 148 stream 96 stream 65 stream 12 readtablep 4 readtablep) ( 113 #\Space) %print-array-contents d1 (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ó’¿°SAó˜oC ¿@K¶C ¿KkÔ°áWdkð²"¿j]dIó’¿°)Aó˜oC ¿C ¿MkÔ°ä´WkÕj^dIó²J”C ¿oC jó˜oC ¿@BANÔÖBC ¿NkÔ°Ë(171 %print-array-contents 156 cl:write-char 144 cl:write-char 135 \\elide.print.tail 106 \\elide.print.element 101 cl:write-char 67 \\prindatum 59 cl:write-char 31 cl:write-char) nil ( 152 #\Space 140 #\) 97 #\Space 55 #\Space 27 #\() (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:´loJo gð´#H[dl:’ll :´loKo oIo \dgð’lCgð³ùLdgð’lVgð´l6gLo (177 ecase-fail 130 ecase-fail 117 ecase-fail 78 ecase-fail 3 %get-canonical-cml-type) (169 canonical-type 160 cl:single-float 152 xpointer 144 cl:string-char 136 cl:string-char 82 cl:signed-byte 36 cl:unsigned-byte 13 cl:string-char) ( 174 (cl:string-char cl:string-char xpointer cl:single-float) 127 (cl:unsigned-byte cl:signed-byte) 122 (car canonical-type) 114 (16 32) 109 (cadr canonical-type) 75 (1 8 16) 70 (cadr canonical-type)) %get-canonical-cml-type d1 (l (0 element-type)) µ@d²MHdgð•¿@ gð”@ Hgð§Hdgð•¿@ gð”@ @ Y™@I b°´iið³@dgð¬dgð¦dgð‘@gð³á@dgð“ggð”o@gð¦@dgð“ggð”o@ H²§@H b±ÿO(173 type-expand 162 type-expander 72 type-expand 65 type-expander 59 %reduce-integer 49 %reduce-mod 30 %get-enclosing-signed-byte 20 %get-enclosing-unsigned-byte) (151 bit 147 cl:string-char 142 cl:character 135 character 124 cl:fixnum 120 cl:single-float 115 float 107 pointer 100 cl:string-char 94 cl:single-float 88 xpointer 53 integer 42 cl:mod 35 mod 24 cl:signed-byte 13 cl:unsigned-byte) ( 157 (cl:unsigned-byte 1) 130 (cl:signed-byte 32)) %get-enclosing-signed-byte d1 (l (0 element-type)) %@Hló‘h€i”oHl ó‘h€i”oinil nil ( 32 (cl:signed-byte 32) 18 (cl:signed-byte 16)) %get-enclosing-unsigned-byte d1 (l (0 element-type)) 2@Hkó‘h€i”oHló‘h€i”oHló‘h€i”oinil nil ( 45 (cl:unsigned-byte 16) 31 (cl:unsigned-byte 8) 17 (cl: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 ŠgHo AHdlC:“¿j°WlD:’j°PHdl&:“¿k°FlV:’j°?Hdl6:“¿j°5j:’j°/Hdl:“¿j°%l:’j°Hdl:“¿j°l:´jŠgHo @HÖlØâââââIBC (228 \\allocblock 207 ecase-fail 107 ecase-fail) (199 typenumber 99 typenumber) ( 204 (67 68 38 86 54 0 3 4 20 22) 104 (67 68 38 86 54 0 3 4 20 22)) %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(83 max 79 abs) nil ( 111 (cl:signed-byte 32) 100 2147483647 94 (cl:signed-byte 16) 72 (cl:unsigned-byte 16) 65 65536 60 (cl:unsigned-byte 8) 49 (cl:unsigned-byte 1)) %reduce-mod d1 (l (0 element-type)) 6@Hló‘h€i”oHnó‘h€i”oHoó‘h€i”oinil nil ( 49 (cl:unsigned-byte 16) 39 65536 33 (cl:unsigned-byte 8) 18 (cl: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 (231 ecase-fail 219 \\getbasefixp) (223 typenumber) ( 228 (67 68 38 86 54 0 3 4 20 22)) %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@ÓDZÈ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 @(458 ecase-fail 446 \\putbasefixp 235 cl:error 221 ecase-fail) (450 typenumber 272 character 256 character 213 typenumber 36 character 15 character) ( 455 (67 68 38 86 54 0 3 4 20 22) 231 "Illegal value: ~S" 218 (67 68 38 86 54 0 3 4 20 22) 204 2147483647 191 -2147483648 160 -32768) (putprops cmlarray filetype cl:compile-file) (putprops cmlarray copyright ("Xerox Corporation" 1986)) nil