(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Apr-87 16:33:33" ("compiled on " {ERIS}LIBRARY>CMLFLOATARRAY.;6) " 7-Apr-87 16:03:23" "COMPILE-FILEd" in "" dated " 7-Apr-87 16:28:20") (FILECREATED " 9-Apr-87 16:32:45" {ERIS}LIBRARY>CMLFLOATARRAY.;6 43557 changes to%: (VARS CMLFLOATARRAYCOMS) (FNS MAP-ARRAY) (FUNCTIONS REDUCE-ARRAY %%MAP-FLOAT-ARRAY-FLOAT %%MAP-FLOAT-ARRAY-MINUS %%MAP-FLOAT-ARRAY-PLUS %%MAP-FLOAT-ARRAY-QUOTIENT %%MAP-FLOAT-ARRAY-TIMES MAP-ARRAY-1 MAP-ARRAY-2 %%MAP-FLOAT-ARRAY-ABS %%MAP-FLOAT-ARRAY-NEGATE %%MAP-FLOAT-ARRAY-TRUNCATE %%REDUCE-FLOAT-ARRAY-TIMES EVALUATE-POLYNOMIAL FIND-ARRAY-ELEMENT-INDEX FLATTEN-ARG) previous date%: " 9-Apr-87 14:50:26" {ERIS}LIBRARY>CMLFLOATARRAY.;5) (RPAQQ CMLFLOATARRAYCOMS ((DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (SYSLOAD FROM VALUEOF DIRECTORIES) UNBOXEDOPS FLOAT-ARRAY-SUPPORT)) (* ;; "MAPARRAY fns and macros") (FNS MAP-ARRAY) (FUNCTIONS MAP-ARRAY-1 MAP-ARRAY-2) (FUNCTIONS REDUCE-ARRAY EVALUATE-POLYNOMIAL FIND-ARRAY-ELEMENT-INDEX) ( FUNCTIONS FLATTEN-ARG MAX-ABS MIN-ABS) (FUNCTIONS %%MAP-FLOAT-ARRAY-ABS %%MAP-FLOAT-ARRAY-FLOAT %%MAP-FLOAT-ARRAY-MINUS %%MAP-FLOAT-ARRAY-NEGATE %%MAP-FLOAT-ARRAY-PLUS %%MAP-FLOAT-ARRAY-QUOTIENT %%MAP-FLOAT-ARRAY-TIMES %%MAP-FLOAT-ARRAY-TRUNCATE %%REDUCE-FLOAT-ARRAY-MAX %%REDUCE-FLOAT-ARRAY-MAX-ABS %%REDUCE-FLOAT-ARRAY-MIN %%REDUCE-FLOAT-ARRAY-MIN-ABS %%REDUCE-FLOAT-ARRAY-PLUS %%REDUCE-FLOAT-ARRAY-TIMES) (* ;; "For convenience") (PROP FILETYPE CMLFLOATARRAY) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MAP-ARRAY))))) MAP-ARRAY :D4 (L (0 ARGS)) "&elHo kalala@J oJ lh]dH$I_d :IL VLI jLoAa^ LNL oN N\Mk԰OLd gI YIoI LI5lH.H_dlIJK l IJKla gOo I _I _Hl2O0dO. O2_ _Oj__OO)Ia _6O4O6h_4_2O0k_0O6h_4JOO_"_ O"(O _IO_&O_$OO&O$Ok_ O O"OO O"IJj_,_*Hl2 O:dO8HO<z_(JHl2%ODdOBOF O( a_JOHOJh_H_FODk_DOJh_Ha_@O>O@h_>_dnO,k_,hl4 O,O*(535 \LISPERROR 445 ASET 440 CL:APPLY 366 CL:ARRAYP 329 CL:APPLY 276 FLATTEN-ARG 251 CL:COPY-LIST 225 CL:ARRAY-TOTAL-SIZE 218 FLATTEN-ARG 213 ECASE-FAIL 200 MAP-ARRAY-2 185 MAP-ARRAY-1 155 CL:ERROR 143 CL:MAKE-ARRAY 136 CL:ARRAY-DIMENSIONS 111 CL:ERROR 102 EQUAL-DIMENSIONS-P 93 CL:ARRAYP 78 CL:ARRAY-RANK 70 EQUAL-DIMENSIONS-P 62 CL:ARRAYP 43 CL:ERROR 34 CL:FUNCTIONP 15 CL:ERROR) (204 ARGS 139 :ELEMENT-TYPE 129 LISTP 123 LITATOM) ( 210 (3 4) 151 "RESULT must be an array, an element type, or NIL: ~S" 107 "Dimensions mismatch" 86 "Dimensions mismatch: ~S" 39 "Not a function: ~S" 12 "MAPARRAY takes at least three args") MAP-ARRAY-1 :D4 (L (2 ARRAY 1 MAPFN 0 RESULT)) @ gB gbAdAdggWgPgLFAg Adg g0g g$Ag Adg gg gAbddgHI@B AgHI@B AdgI@B AgH@B @ B @ jLM@J_MKMkAONMkԽ(204 CL:ARRAY-TOTAL-SIZE 198 FLATTEN-ARG 194 FLATTEN-ARG 189 %%MAP-FLOAT-ARRAY-FLOAT 175 %%MAP-FLOAT-ARRAY-TRUNCATE 159 %%MAP-FLOAT-ARRAY-ABS 143 %%MAP-FLOAT-ARRAY-NEGATE 118 CL::%%EQCODEP 106 CL::%%EQCODEP 97 CL::%%EQCODEP 84 CL::%%EQCODEP 71 CL::%%EQCODEP 62 CL::%%EQCODEP 11 CL:ARRAY-ELEMENT-TYPE 3 CL:ARRAY-ELEMENT-TYPE) (180 FLOAT 165 CL:TRUNCATE 148 ABS 131 - 122 FLOAT 115 FLOAT 111 CL:TRUNCATE 103 CL:TRUNCATE 94 FIX 88 ABS 81 ABS 76 - 68 MINUS 59 - 53 COMPILED-CLOSURE 48 CL:TRUNCATE 42 FIX 37 - 31 MINUS 23 LITATOM 14 CL:SINGLE-FLOAT 6 CL:SINGLE-FLOAT) () MAP-ARRAY-2 :D4 (L (3 ARRAY-2 2 ARRAY-1 1 MAPFN 0 RESULT)) @ gLBH H gBBB3 )CH H gCCC3 i Ad3AdggggxAdggkgdg`ZAg Adg gDg Adg g.g Adg gg Adg gAbddgH@BC AgH@BC AdgH@BC AgH@BC @ B C B [C *@ jIJ@OJOJOJlALKJkԺ@ jMNO_N_ONOlAOONkԾ@ j__OOO_O_OOOlAOOOk_(416 CL:ARRAY-TOTAL-SIZE 373 CL:ARRAY-TOTAL-SIZE 333 CL:ARRAY-TOTAL-SIZE 327 CL:ARRAYP 321 CL:ARRAYP 314 FLATTEN-ARG 310 FLATTEN-ARG 306 FLATTEN-ARG 301 %%MAP-FLOAT-ARRAY-QUOTIENT 286 %%MAP-FLOAT-ARRAY-TIMES 269 %%MAP-FLOAT-ARRAY-MINUS 254 %%MAP-FLOAT-ARRAY-PLUS 229 CL::%%EQCODEP 220 CL::%%EQCODEP 207 CL::%%EQCODEP 198 CL::%%EQCODEP 185 CL::%%EQCODEP 176 CL::%%EQCODEP 163 CL::%%EQCODEP 154 CL::%%EQCODEP 58 CL:ARRAY-ELEMENT-TYPE 52 CL:ARRAYP 23 CL:ARRAY-ELEMENT-TYPE 17 CL:ARRAYP 3 CL:ARRAY-ELEMENT-TYPE) (291 / 275 CL:* 259 - 243 + 234 / 226 QUOTIENT 217 / 212 CL:* 204 TIMES 195 CL:* 190 - 182 MINUS 173 - 168 + 160 PLUS 151 + 145 COMPILED-CLOSURE 140 / 134 QUOTIENT 129 CL:* 123 TIMES 116 - 111 MINUS 105 + 99 PLUS 91 LITATOM 75 RATIO 69 FLOATP 61 CL:SINGLE-FLOAT 38 RATIO 33 FLOATP 26 CL:SINGLE-FLOAT 6 CL:SINGLE-FLOAT) () REDUCE-ARRAY :D4 (L (0 -args-)) u eka lalHhilaIdIdggtgmgicIg Idg gMg Idg g7g g+Idg gg gIdg gIYJd KLJlIJ J g]djKLjIkKLJ jlIJ jIdgNJL IgNJL IdgNJL IgNJL IdgNJL IgNJL J _KLOj_Kjk_MOOOOlI_Ok԰(324 FLATTEN-ARG 319 %%REDUCE-FLOAT-ARRAY-MAX-ABS 305 %%REDUCE-FLOAT-ARRAY-MIN-ABS 289 %%REDUCE-FLOAT-ARRAY-MAX 275 %%REDUCE-FLOAT-ARRAY-MIN 259 %%REDUCE-FLOAT-ARRAY-TIMES 245 %%REDUCE-FLOAT-ARRAY-PLUS 227 FLATTEN-ARG 216 FLATTEN-ARG 186 CL:ARRAY-ELEMENT-TYPE 182 CL:ARRAY-TOTAL-SIZE 166 CL:ARRAYP 153 CL::%%EQCODEP 140 CL::%%EQCODEP 127 CL::%%EQCODEP 113 CL::%%EQCODEP 100 CL::%%EQCODEP 91 CL::%%EQCODEP 78 CL::%%EQCODEP 69 CL::%%EQCODEP) (310 MAX-ABS 295 MIN-ABS 280 MAX 265 MIN 250 CL:* 235 + 189 CL:SINGLE-FLOAT 158 MAX-ABS 150 MAX-ABS 144 MIN-ABS 137 MIN-ABS 132 MAX 124 MAX 117 MIN 110 MIN 105 CL:* 97 TIMES 88 CL:* 83 + 75 PLUS 66 + 60 COMPILED-CLOSURE 55 CL:* 49 TIMES 44 + 38 PLUS 30 LITATOM) () EVALUATE-POLYNOMIAL :D4 (L (1 COEFFICIENTS 0 X)) UAd oA  g@A A A k2A kA AjIJK@KAIԻIkY(57 CL:ARRAY-TOTAL-SIZE 52 FLATTEN-ARG 41 CL:ARRAY-TOTAL-SIZE 35 %%ARRAY-OFFSET 31 %%ARRAY-BASE 18 CL:ARRAY-ELEMENT-TYPE 14 CL:ERROR 4 CL:ARRAYP) (21 CL:SINGLE-FLOAT) ( 10 "Not an array: ~S") FIND-ARRAY-ELEMENT-INDEX :D4 (L (1 ARRAY 0 ELEMENT)) mAd oA  g6A A j@A IKhJHdIHlIkԹA jA IJ@HI:IIkY(85 CL:ARRAY-TOTAL-SIZE 80 FLATTEN-ARG 42 CL:ARRAY-TOTAL-SIZE 32 %%ARRAY-OFFSET 28 %%ARRAY-BASE 18 CL:ARRAY-ELEMENT-TYPE 14 CL:ERROR 4 CL:ARRAYP) (21 CL:SINGLE-FLOAT) ( 10 "Not an array: ~S") FLATTEN-ARG :D4 (L (0 ARG)) %@d @d k@ g@ g@ (34 CL:MAKE-ARRAY 26 CL:ARRAY-ELEMENT-TYPE 19 CL:ARRAY-TOTAL-SIZE 11 CL:ARRAY-RANK 4 CL:ARRAYP) (29 :DISPLACED-TO 22 :ELEMENT-TYPE) () MAX-ABS :D4 (L (1 Y 0 X)) @ A @A(7 ABS 3 ABS) NIL () MIN-ABS :D4 (L (1 Y 0 X)) @ A @A(7 ABS 3 ABS) NIL () %%MAP-FLOAT-ARRAY-ABS :D4 (L (1 ARRAY 0 RESULT)) A@ @ @ A A jKH@IJdIlJlKkԻ(21 %%ARRAY-OFFSET 17 %%ARRAY-BASE 11 %%ARRAY-OFFSET 7 %%ARRAY-BASE 3 CL:ARRAY-TOTAL-SIZE) NIL () %%MAP-FLOAT-ARRAY-FLOAT :D4 (L (1 ARRAY 0 RESULT)) P@ !A oA A @ @ H@@ @ jJHIAJIlJk԰(50 %%ARRAY-OFFSET 46 %%ARRAY-BASE 35 %%ARRAY-OFFSET 31 %%ARRAY-BASE 25 %%ARRAY-OFFSET 21 %%ARRAY-BASE 10 CL:ARRAY-ELEMENT-TYPE 3 CL:ARRAY-TOTAL-SIZE) NIL ( 14 (CL:UNSIGNED-BYTE 16)) %%MAP-FLOAT-ARRAY-MINUS :D4 (L (2 ARRAY-2 1 ARRAY-1 0 RESULT)) A qB (A A B B @ @ @ @@ @ @ A A BjLHIJdKIlJlLkԼ@ @ @ AB B jLHIJKdIlKlLkԼ(141 %%ARRAY-OFFSET 137 %%ARRAY-BASE 128 %%ARRAY-OFFSET 124 %%ARRAY-BASE 120 CL:ARRAY-TOTAL-SIZE 71 %%ARRAY-OFFSET 67 %%ARRAY-BASE 61 %%ARRAY-OFFSET 57 %%ARRAY-BASE 53 CL:ARRAY-TOTAL-SIZE 45 CL:ARRAY-TOTAL-SIZE 39 %%ARRAY-OFFSET 35 %%ARRAY-BASE 29 %%ARRAY-OFFSET 25 %%ARRAY-BASE 19 %%ARRAY-OFFSET 15 %%ARRAY-BASE 9 CL:ARRAYP 3 CL:ARRAYP) NIL () %%MAP-FLOAT-ARRAY-NEGATE :D4 (L (1 ARRAY 0 RESULT)) A@ @ @ A A jKH@IJdIlJlKkԻ(21 %%ARRAY-OFFSET 17 %%ARRAY-BASE 11 %%ARRAY-OFFSET 7 %%ARRAY-BASE 3 CL:ARRAY-TOTAL-SIZE) NIL () %%MAP-FLOAT-ARRAY-PLUS :D4 (L (2 ARRAY-2 1 ARRAY-1 0 RESULT)) A ABbHbB (A A B B @ @ @ @@ @ @ A A BjLHIJdKIlJlLkԼ(82 %%ARRAY-OFFSET 78 %%ARRAY-BASE 72 %%ARRAY-OFFSET 68 %%ARRAY-BASE 64 CL:ARRAY-TOTAL-SIZE 56 CL:ARRAY-TOTAL-SIZE 50 %%ARRAY-OFFSET 46 %%ARRAY-BASE 40 %%ARRAY-OFFSET 36 %%ARRAY-BASE 30 %%ARRAY-OFFSET 26 %%ARRAY-BASE 20 CL:ARRAYP 3 CL:ARRAYP) NIL () %%MAP-FLOAT-ARRAY-QUOTIENT :D4 (L (2 ARRAY-2 1 ARRAY-1 0 RESULT)) A B Z@ @ @ A A B B jLH-IJdKdIlJlJlLkԼ@@ @ @ A A BjLHIJdKIlJlLkԼ@ @ @ AB B jLHIJKdIlKlLkԼ(193 %%ARRAY-OFFSET 189 %%ARRAY-BASE 180 %%ARRAY-OFFSET 176 %%ARRAY-BASE 172 CL:ARRAY-TOTAL-SIZE 123 %%ARRAY-OFFSET 119 %%ARRAY-BASE 113 %%ARRAY-OFFSET 109 %%ARRAY-BASE 105 CL:ARRAY-TOTAL-SIZE 45 %%ARRAY-OFFSET 41 %%ARRAY-BASE 35 %%ARRAY-OFFSET 31 %%ARRAY-BASE 25 %%ARRAY-OFFSET 21 %%ARRAY-BASE 17 CL:ARRAY-TOTAL-SIZE 11 CL:ARRAYP 3 CL:ARRAYP) NIL () %%MAP-FLOAT-ARRAY-TIMES :D4 (L (2 ARRAY-2 1 ARRAY-1 0 RESULT)) A ABbHbB (A A B B @ @ @ @@ @ @ A A BjLHIJdKIlJlLkԼ(82 %%ARRAY-OFFSET 78 %%ARRAY-BASE 72 %%ARRAY-OFFSET 68 %%ARRAY-BASE 64 CL:ARRAY-TOTAL-SIZE 56 CL:ARRAY-TOTAL-SIZE 50 %%ARRAY-OFFSET 46 %%ARRAY-BASE 40 %%ARRAY-OFFSET 36 %%ARRAY-BASE 30 %%ARRAY-OFFSET 26 %%ARRAY-BASE 20 CL:ARRAYP 3 CL:ARRAYP) NIL () %%MAP-FLOAT-ARRAY-TRUNCATE :D4 (L (1 ARRAY 0 RESULT)) 6@ A A j#JH@@JIdLKIlJkԺ(11 %%ARRAY-OFFSET 7 %%ARRAY-BASE 3 CL:ARRAY-TOTAL-SIZE) NIL () %%REDUCE-FLOAT-ARRAY-MAX :D4 (L (1 INITIAL-VALUE 0 ARRAY)) "@d @ j@ AHHA(15 CL:ARRAY-TOTAL-SIZE 8 %%ARRAY-OFFSET 4 %%ARRAY-BASE) NIL () %%REDUCE-FLOAT-ARRAY-MAX-ABS :D4 (L (1 INITIAL-VALUE 0 ARRAY)) !@d @ j@ AHH (30 MAX-ABS 15 CL:ARRAY-TOTAL-SIZE 8 %%ARRAY-OFFSET 4 %%ARRAY-BASE) NIL () %%REDUCE-FLOAT-ARRAY-MIN :D4 (L (1 INITIAL-VALUE 0 ARRAY)) "@d @ j@ AHdAAH(15 CL:ARRAY-TOTAL-SIZE 8 %%ARRAY-OFFSET 4 %%ARRAY-BASE) NIL () %%REDUCE-FLOAT-ARRAY-MIN-ABS :D4 (L (1 INITIAL-VALUE 0 ARRAY)) !@d @ j@ AHH (30 MIN-ABS 15 CL:ARRAY-TOTAL-SIZE 8 %%ARRAY-OFFSET 4 %%ARRAY-BASE) NIL () %%REDUCE-FLOAT-ARRAY-PLUS :D4 (L (1 INITIAL-VALUE 0 ARRAY)) %n?j@ @ @ k2AHH(18 CL:ARRAY-TOTAL-SIZE 12 %%ARRAY-OFFSET 8 %%ARRAY-BASE) NIL () %%REDUCE-FLOAT-ARRAY-TIMES :D4 (L (1 INITIAL-VALUE 0 ARRAY)) Dn?jj@ @ @ IKHJdIkJlкYAHH(22 CL:ARRAY-TOTAL-SIZE 16 %%ARRAY-OFFSET 12 %%ARRAY-BASE) NIL () (PUTPROPS CMLFLOATARRAY FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLFLOATARRAY COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL