(FILECREATED "28-Apr-86 17:29:10" ("compiled on " {ERIS}LIBRARY>CMLFLOATARRAY.;9) "25-Apr-86 22:12:47" tcompl'd in "Xerox Lisp 25-Apr-86 ..." dated "25-Apr-86 22:28:33") (FILECREATED "28-Apr-86 17:25:21" {ERIS}LIBRARY>CMLFLOATARRAY.;9 109388 changes to: (VARS CMLFLOATARRAYCOMS) previous date: "24-Oct-85 16:16:19" {ERIS}LIBRARY>CMLFLOATARRAY.;8) MAPARRAY D1 (P 37Q ELEMENT P 35Q RESULTBASE P 34Q ELEMENTS P 33Q ABASES P 32Q A P 31Q A P 30Q ARRAYARG P 27Q N P 26Q N P 25Q N P 24Q N P 23Q N P 22Q ARRAYARG P 21Q DIM P 20Q A P 11Q ARRAYARGS P 10Q ARRAY1 P 7 MAPFN P 6 RESULT P 0 ARGS) „ e@ABHl2JdIó²¿KTHdlð²!¿NOOa½Lµ Mh\»JkÔZ°ÖM&¼°÷lð™NOOCOOµ,O `ð´O gð´O O"¢±Ó0O°l_ `ð²O gð–O ³½O_°³dO$d3³0`ð´)O$ gð´O"²O$ O"ð©O"O$ ô´O$ ¹JµIh[I&ºµ·Kƒd•µûi¿h¢±MNµ8O"ggggO" lO& kÙ _¿l€Oñ’Ol€ ^`ð¢±Nµ8O"ggggO" lO( kÙ _¿l€Oñ’Ol€ ^ gð¢±ÇO"¢±„Nµ8O"ggggO" lO* kÙ _¿l€Oñ’Ol€ ^ O"ð³BO"Nµ7dggggO" lO, kÙ _¿l€Oñ’Ol€ ^ ô²?Nµ8O"ggggO" lO. kÙ _¿l€Oñ’Ol€ ^ ©oO ¿0O°sdO0d3³YO2d`ð²¿O0ÉO0È O0ÈõÐ°: gðšO2ÉO2ÈÐ°'O2dlð˜ÉO2ÈÐ°`ð”O2ÉˆoO2 ¹JµIh[I&ºµŽKN NO4d`ð¿NÉNÈ NÈõÐ°: gðšO4ÉO4ÈÐ°'O4dlð˜ÉO4ÈÐ°`ð”O4ÉˆoO4 O8kÙjO>O<ó³HO:O>dØÐO0O6°#dd3O>dØÐdÈýÈÑí¹JµIh[I&ºµÞK íÎ¿O>kÔ_>°·N(1563Q APPLY 1447Q ERROR 1362Q TYPENAME 1324Q ARRAY-TOTAL-SIZE 1274Q ERROR 1207Q TYPENAME 1122Q ERROR 1110Q ARRAY-DIMENSIONS 1104Q MAKE-ARRAY 1061Q EXPT 1054Q INTEGERLENGTH 1042Q APPLY 1011Q ARRAY-DIMENSIONS 1005Q MAKE-ARRAY 762Q EXPT 755Q INTEGERLENGTH 743Q APPLY 707Q ARRAY-RANK 703Q MAKE-ARRAY 660Q EXPT 653Q INTEGERLENGTH 641Q APPLY 575Q ARRAY-ELEMENT-TYPE 571Q MAKE-ARRAY 546Q EXPT 541Q INTEGERLENGTH 527Q APPLY 467Q MAKE-ARRAY 444Q EXPT 437Q INTEGERLENGTH 425Q APPLY 334Q ARRAY-DIMENSIONS 324Q ARRAY-DIMENSIONS 311Q ARRAY-RANK 272Q ARRAY-ELEMENT-TYPE 231Q ARRAY-DIMENSIONS 217Q ARRAY-ELEMENT-TYPE 157Q ARRAY-DIMENSIONS 144Q ARRAY-ELEMENT-TYPE 113Q MAPARRAY2 50Q MAPARRAY1) (1427Q BITMAPTYPE# 1365Q ARRAYP 1337Q ARRAYTYPE# 1254Q BITMAPTYPE# 1212Q ARRAYP 1160Q ARRAYTYPE# 1035Q ITIMES 1032Q :ALIGNMENT 1027Q FLOAT 1024Q :ELEMENT-TYPE 736Q ITIMES 733Q :ALIGNMENT 730Q FLOAT 725Q :ELEMENT-TYPE 634Q ITIMES 631Q :ALIGNMENT 626Q FLOAT 623Q :ELEMENT-TYPE 600Q SINGLE-FLOAT 522Q ITIMES 517Q :ALIGNMENT 514Q FLOAT 511Q :ELEMENT-TYPE 474Q ARRAYTYPE# 420Q ITIMES 415Q :ALIGNMENT 412Q FLOAT 407Q :ELEMENT-TYPE 275Q SINGLE-FLOAT 262Q ARRAYTYPE# 222Q SINGLE-FLOAT 207Q ARRAYTYPE# 147Q SINGLE-FLOAT 134Q ARRAYTYPE#) ( 1442Q "Not an array (can't GET.BASE)" 1267Q "Not an array (can't GET.BASE)" 1115Q "Illegal arguments to MAPARRAY") MAPARRAY1 D1 (P 31Q ELT P 27Q RB P 26Q N P 25Q N P 24Q N P 23Q N P 22Q TAIL P 21Q DIMS P 20Q N P 17Q DIMS P 16Q N P 15Q TAIL P 14Q DIMS P 13Q N P 3 DIMS P 2 ARRAYBASE P 1 ARRAYSIZE P 0 A I 2 ARRAY I 1 MAPFN I 0 RESULT) xB BHd`ð¿BÉBÈ BÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH B s Adgð¢±Ò¿B`ðB gð”B ¨oB ¿@³5KgoggK lO kÙ ¼l€Lñ‘Ll€ b¿K@`ð´@ oô´@ ô²VJ@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Iú±Ro@ ±Ggð¢±þK OB Odâ¿Okåjð¨oB ¿B`ðB gð”B ¨oB ¿@³6OggggO lO kÙ ½l€Mñ‘Ml€ b¿O@`ð´@ gð´@ ô²UJ@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Iâú‡o@ ±DAdgð¢±Ú¿B`ð´B oô´B O¨oB ¿@³6OggggO lO kÙ ¾l€Nñ‘Nl€ b¿O@`ð´@ gð´@ ô²TJ@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Iú‡o@ ±cgð¢±óK O"B O$dO$Ø¿B`ðB gð”B ¨oB ¿@³:O"ggggO" lO& kÙ _¿l€Oñ’Ol€ b¿O"@`ð´@ gð´@ ð²TJ@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Iú‡o@ ±kB`ð´B gð´B @µ7KggggK lO( kÙ _¿l€Oñ’Ol€ b`ð´~@µ7KggggK lO* kÙ _¿l€Oñ’Ol€ b gð´=@µ7KggggK lO, kÙ _¿l€Oñ’Ol€ b ô¢±Ž@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH !IkÙIkÙØj_2¿_0¿O2O0ó³&O.O2ÐJO2ÐdÈýÈÑíkAíÎ¿O2lÔ_2°Ù†o @(2564Q ERROR 2456Q ERROR 2377Q TYPENAME 2335Q ARRAY-DIMENSIONS 2330Q MAKE-ARRAY 2305Q EXPT 2300Q INTEGERLENGTH 2266Q APPLY 2234Q ARRAY-ELEMENT-TYPE 2227Q MAKE-ARRAY 2204Q EXPT 2177Q INTEGERLENGTH 2165Q APPLY 2130Q MAKE-ARRAY 2105Q EXPT 2100Q INTEGERLENGTH 2066Q APPLY 2042Q ARRAY-DIMENSIONS 2030Q ARRAY-ELEMENT-TYPE 2007Q ERROR 1772Q ERROR 1713Q TYPENAME 1652Q ARRAY-DIMENSIONS 1640Q ARRAY-ELEMENT-TYPE 1617Q MAKE-ARRAY 1574Q EXPT 1567Q INTEGERLENGTH 1555Q APPLY 1526Q ERROR 1515Q ARRAY-DIMENSIONS 1504Q ARRAY-ELEMENT-TYPE 1454Q NTH 1451Q ARRAY-RANK 1440Q COPY 1420Q ERROR 1403Q ERROR 1324Q TYPENAME 1263Q ARRAY-DIMENSIONS 1251Q ARRAY-ELEMENT-TYPE 1230Q MAKE-ARRAY 1211Q EXPT 1204Q INTEGERLENGTH 1172Q APPLY 1143Q ERROR 1125Q ARRAY-DIMENSIONS 1112Q ARRAY-ELEMENT-TYPE 1056Q ERROR 1040Q ERROR 761Q TYPENAME 720Q ARRAY-DIMENSIONS 706Q ARRAY-ELEMENT-TYPE 665Q MAKE-ARRAY 646Q EXPT 641Q INTEGERLENGTH 627Q APPLY 600Q ERROR 567Q ARRAY-DIMENSIONS 556Q ARRAY-ELEMENT-TYPE 542Q ERROR 510Q NTH 505Q ARRAY-RANK 474Q COPY 455Q ERROR 436Q ERROR 357Q TYPENAME 316Q ARRAY-DIMENSIONS 303Q ARRAY-ELEMENT-TYPE 263Q MAKE-ARRAY 244Q EXPT 237Q INTEGERLENGTH 225Q APPLY 177Q ERROR 166Q ARRAY-DIMENSIONS 155Q ARRAY-ELEMENT-TYPE 124Q ARRAY-DIMENSIONS 117Q ERROR 40Q TYPENAME 3 ARRAY-TOTAL-SIZE) (2440Q BITMAPTYPE# 2402Q ARRAYP 2354Q ARRAYTYPE# 2262Q ITIMES 2257Q :ALIGNMENT 2254Q FLOAT 2251Q :ELEMENT-TYPE 2237Q SINGLE-FLOAT 2161Q ITIMES 2156Q :ALIGNMENT 2153Q FLOAT 2150Q :ELEMENT-TYPE 2136Q ARRAYTYPE# 2062Q ITIMES 2057Q :ALIGNMENT 2054Q FLOAT 2051Q :ELEMENT-TYPE 2033Q SINGLE-FLOAT 2021Q ARRAYTYPE# 1754Q BITMAPTYPE# 1716Q ARRAYP 1670Q ARRAYTYPE# 1643Q SINGLE-FLOAT 1631Q ARRAYTYPE# 1550Q ITIMES 1545Q :ALIGNMENT 1542Q FLOAT 1537Q :ELEMENT-TYPE 1507Q SINGLE-FLOAT 1476Q ARRAYTYPE# 1427Q COMPLEX 1365Q BITMAPTYPE# 1327Q ARRAYP 1301Q ARRAYTYPE# 1254Q SINGLE-FLOAT 1242Q ARRAYTYPE# 1165Q ITIMES 1162Q :ALIGNMENT 1157Q FLOAT 1154Q :ELEMENT-TYPE 1103Q ARRAYTYPE# 1070Q FLOAT 1022Q BITMAPTYPE# 764Q ARRAYP 736Q ARRAYTYPE# 711Q SINGLE-FLOAT 677Q ARRAYTYPE# 622Q ITIMES 617Q :ALIGNMENT 614Q FLOAT 611Q :ELEMENT-TYPE 561Q SINGLE-FLOAT 550Q ARRAYTYPE# 463Q MAGNITUDE 420Q BITMAPTYPE# 362Q ARRAYP 334Q ARRAYTYPE# 274Q ARRAYTYPE# 221Q ITIMES 216Q :ALIGNMENT 207Q :ELEMENT-TYPE 160Q SINGLE-FLOAT 147Q ARRAYTYPE# 134Q EXPONENT 101Q BITMAPTYPE# 43Q ARRAYP 15Q ARRAYTYPE#) ( 2561Q "ILLEGAL ARGUMENTS" 2452Q "Not an array (can't GET.BASE)" 2003Q "ILLEGAL FLOAT ARRAY: " 1766Q "Not an array (can't GET.BASE)" 1522Q "ILLEGAL FLOAT ARRAY: " 1414Q "ILLEGAL ARGUMENT: " 1377Q "Not an array (can't GET.BASE)" 1137Q "ILLEGAL ARGUMENT:" 1116Q (UNSIGNED-BYTE 20Q) 1052Q "ILLEGAL ARGUMENT:" 1034Q "Not an array (can't GET.BASE)" 574Q "ILLEGAL ARGUMENT:" 536Q "Array not complex: " 451Q "ILLEGAL ARGUMENT:" 432Q "Not an array (can't GET.BASE)" 307Q (UNSIGNED-BYTE 20Q) 213Q (UNSIGNED-BYTE 20Q) 173Q "ILLEGAL ARGUMENT:" 113Q "Not an array (can't GET.BASE)") MAPARRAY2 D1 (P 15Q ELT P 13Q RESULTBASE P 12Q ARRAY2BASE P 11Q ARRAY1BASE P 10Q RESULT P 7 N P 6 ARRAY2 P 5 N P 4 ARRAY1 P 3 N P 2 SIZE P 1 DIMS P 0 A I 3 ARRAY2 I 2 ARRAY1 I 1 MAPFN I 0 RESULT) ìAgð¨Agð¢±"C`ð²C oô›C kð”C ¨oB ¿@¦B b¿BHd`ð¿BÉBÈ BÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH CHd`ð¿CÉCÈ CÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH @Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Cj ûB`ðžB gð•B µC`ð´C gð´C gI I²8Bd3²3¿IgggBgJlK kÙ dl€ñ’¿l€ µBI²8Cd3²3¿IgggCgJlM kÙ dl€ñ’¿l€ µCI´Q@`ð´@ gð´@ Iô’@°5@³*IgggJlO kÙ dl€ñ’¿l€ ‡o@ I¢±©O¢±£L`ð´L gð´L N`ð´N gð´N ô¢±rLHd`ð¿LÉLÈ LÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH NHd`ð¿NÉNÈ NÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH OHd`ð²¿OÉOÈ OÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Adgðœ¿OOOJû¿°lgð›OOOJû¿°[Agð›OOOJû¿°IJkÙJkÙØj OOó³6OOÐOOÐdÈýÈÑíOOÐdÈýÈÑílAíÎ¿OlÔ_°É†o O(1747Q ERROR 1534Q ERROR 1455Q TYPENAME 1412Q ERROR 1333Q TYPENAME 1275Q ERROR 1216Q TYPENAME 1154Q ARRAY-DIMENSIONS 1142Q ARRAY-ELEMENT-TYPE 1126Q ARRAY-DIMENSIONS 1114Q ARRAY-ELEMENT-TYPE 1062Q ERROR 1051Q MAKE-ARRAY 1034Q EXPT 1027Q INTEGERLENGTH 771Q ARRAY-DIMENSIONS 757Q ARRAY-ELEMENT-TYPE 732Q MAKE-ARRAY 715Q EXPT 710Q INTEGERLENGTH 635Q MAKE-ARRAY 620Q EXPT 613Q INTEGERLENGTH 543Q APPLY 531Q ARRAY-DIMENSIONS 517Q ARRAY-ELEMENT-TYPE 501Q ARRAY-DIMENSIONS 470Q ARRAY-ELEMENT-TYPE 452Q ARRAY-DIMENSION 444Q ERROR 365Q TYPENAME 327Q ERROR 250Q TYPENAME 212Q ERROR 133Q TYPENAME 73Q COPYALL 64Q ERROR 53Q ARRAY-DIMENSIONS 44Q ARRAY-RANK 32Q ARRAY-ELEMENT-TYPE) (1611Q FDIFF 1567Q FPLUS 1545Q FTIMES 1516Q BITMAPTYPE# 1460Q ARRAYP 1426Q ARRAYTYPE# 1374Q BITMAPTYPE# 1336Q ARRAYP 1310Q ARRAYTYPE# 1257Q BITMAPTYPE# 1221Q ARRAYP 1173Q ARRAYTYPE# 1145Q SINGLE-FLOAT 1133Q ARRAYTYPE# 1117Q SINGLE-FLOAT 1105Q ARRAYTYPE# 1014Q :ALIGNMENT 1011Q SINGLE-FLOAT 1006Q :ELEMENT-TYPE 762Q SINGLE-FLOAT 750Q ARRAYTYPE# 676Q :ALIGNMENT 673Q FLOATP 667Q :INITIAL-ELEMENT 664Q SINGLE-FLOAT 661Q :ELEMENT-TYPE 601Q :ALIGNMENT 576Q FLOATP 572Q :INITIAL-ELEMENT 567Q SINGLE-FLOAT 564Q :ELEMENT-TYPE 537Q ITIMES 522Q SINGLE-FLOAT 510Q ARRAYTYPE# 473Q SINGLE-FLOAT 462Q ARRAYTYPE# 426Q BITMAPTYPE# 370Q ARRAYP 342Q ARRAYTYPE# 311Q BITMAPTYPE# 253Q ARRAYP 225Q ARRAYTYPE# 174Q BITMAPTYPE# 136Q ARRAYP 110Q ARRAYTYPE# 23Q ARRAYTYPE# 11Q ELT 3 PERMUTE) ( 1744Q "ILLEGAL ARGUMENTS" 1530Q "Not an array (can't GET.BASE)" 1406Q "Not an array (can't GET.BASE)" 1271Q "Not an array (can't GET.BASE)" 1056Q "ILLEGAL RESULT ARRAY: " 440Q "Not an array (can't GET.BASE)" 323Q "Not an array (can't GET.BASE)" 206Q "Not an array (can't GET.BASE)" 60Q "Illegal permutation array" 36Q (UNSIGNED-BYTE 20Q)) ARRAY-COPY D1 (P 4 SSIZE P 3 BA2 P 2 BA1 P 1 TS P 0 A I 1 ARR2 I 0 ARR1) @`ð¢±@ gð¢±ö@ ¢±î@ A`ð´A gð´A ô¢±Ï@ @ Ø@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH AHd`ð¿AÉAÈ AÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH Ijó²!nIñ‘I‚n¼KJLÄ¿JLÐºKLÐ»ILÙY°ßAo (417Q ERROR 336Q ERROR 257Q TYPENAME 221Q ERROR 142Q TYPENAME 104Q ARRAY-TOTAL-SIZE 100Q ARRAY-TOTAL-SIZE 67Q ARRAY-DIMENSIONS 55Q ARRAY-ELEMENT-TYPE 41Q ARRAY-DIMENSIONS 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (320Q BITMAPTYPE# 262Q ARRAYP 234Q ARRAYTYPE# 203Q BITMAPTYPE# 145Q ARRAYP 117Q ARRAYTYPE# 60Q SINGLE-FLOAT 46Q ARRAYTYPE# 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 414Q "Illegal arguments" 332Q "Not an array (can't GET.BASE)" 215Q "Not an array (can't GET.BASE)") ARRAY-POWER D1 (P 1 OUTARR P 0 TMP I 3 TMPARR I 2 N I 1 OUTARR I 0 INARR) FC•@C ƒ@ Aµ@ Io Bdjó¡Ikåjð©IgHI¿Bâb¿HgHd¿°Û(101Q MAPARRAY 62Q MAPARRAY 35Q ARRAY-SET 22Q COPYALL 13Q COPYALL 6 ARRAY-COPY) (74Q FTIMES 55Q FTIMES) ( 32Q 1.0) ARRAY-SET D1 (P 2 WS P 1 BA P 0 A I 1 VALUE I 0 ARR) @`ð@ gð”@ ¨o@ ¿@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH @ kÙ@ kÙØIJÐAíÎIdlÐJÄ@(164Q ARRAY-TOTAL-SIZE 156Q ARRAY-TOTAL-SIZE 151Q ERROR 72Q TYPENAME 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (133Q BITMAPTYPE# 75Q ARRAYP 47Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 145Q "Not an array (can't GET.BASE)" 30Q "Illegal array argument") ARRAYBASE D1 (P 0 A I 0 A) C@Hd`ðšÉHÈ HÈõÐ gð—HÉHÈÐHdlð³ó`ð“HÉoH (100Q ERROR 31Q TYPENAME) (62Q BITMAPTYPE# 34Q ARRAYP 11Q ARRAYTYPE#) ( 74Q "Not an array (can't GET.BASE)") MAXARR D1 (P 11Q CNT P 10Q IM P 7 RE P 6 TCNT P 5 IDX P 4 MX P 3 BA P 2 CNT P 1 SLICE P 0 A I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) @`ð@ gð”@ ¨o@ ¿n@ @Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH B’l€jÐ`$A²{``Jâ Odjó¢°mIñ‘IO¾KOON¿OjNú½LOMdØÐdÈýÈÑí ¼KNdØÐ»ONÙ_°ÀIñ‘I€J¾KjNú½LKMdØÐdÈýÈÑí ¼KNdØÐ»JNÙºJdjó³ÒL(357Q FMAX 301Q FMAX 246Q \RE/IM-UNPACK 160Q ERROR 101Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (207Q \SLICE2 204Q \SLICE1 173Q MIN.FLOAT 142Q BITMAPTYPE# 104Q ARRAYP 56Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 154Q "Not an array (can't GET.BASE)" 30Q "Illegal array: ") MINARR D1 (P 11Q CNT P 10Q IM P 7 RE P 6 TCNT P 5 IDX P 4 MX P 3 BA P 2 CNT P 1 SLICE P 0 A I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) @`ð@ gð”@ ¨o@ ¿n@ @Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH B’l€jÐ`$A²{``Jâ Odjó¢°mIñ‘IO¾KOON¿OjNú½LOMdØÐdÈýÈÑí ¼KNdØÐ»ONÙ_°ÀIñ‘I€J¾KjNú½LKMdØÐdÈýÈÑí ¼KNdØÐ»JNÙºJdjó³ÒL(357Q FMIN 301Q FMIN 246Q \RE/IM-UNPACK 160Q ERROR 101Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (207Q \SLICE2 204Q \SLICE1 173Q MAX.FLOAT 142Q BITMAPTYPE# 104Q ARRAYP 56Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 154Q "Not an array (can't GET.BASE)" 30Q "Illegal array: ") MAXABSARR D1 (P 11Q CNT P 10Q IM P 7 RE P 6 TCNT P 5 IDX P 4 MX P 3 BA P 2 CNT P 1 SLICE P 0 A I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) @`ð@ gð”@ ¨o@ ¿n@ @Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH B’l€jÐo$A²{``Jâ Odjó¢°mIñ‘IO¾KOON¿OjNú½LOMdØÐdÈýÈÑí ¼KNdØÐ»ONÙ_°ÀIñ‘I€J¾KjNú½LKMdØÐdÈýÈÑí ¼KNdØÐ»JNÙºJdjó³ÒL(360Q FABSMAX 302Q FABSMAX 247Q \RE/IM-UNPACK 160Q ERROR 101Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (210Q \SLICE2 205Q \SLICE1 142Q BITMAPTYPE# 104Q ARRAYP 56Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 174Q 0.0 154Q "Not an array (can't GET.BASE)" 30Q "Illegal array: ") MINABSARR D1 (P 11Q CNT P 10Q IM P 7 RE P 6 TCNT P 5 IDX P 4 MX P 3 BA P 2 CNT P 1 SLICE P 0 A I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) @`ð@ gð”@ ¨o@ ¿n@ @Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH B’l€jÐ`$A²{``Jâ Odjó¢°mIñ‘IO¾KOON¿OjNú½LOMdØÐdÈýÈÑí ¼KNdØÐ»ONÙ_°ÀIñ‘I€J¾KjNú½LKMdØÐdÈýÈÑí ¼KNdØÐ»JNÙºJdjó³ÒL(357Q FABSMIN 301Q FABSMIN 246Q \RE/IM-UNPACK 160Q ERROR 101Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (207Q \SLICE2 204Q \SLICE1 173Q MAX.FLOAT 142Q BITMAPTYPE# 104Q ARRAYP 56Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 154Q "Not an array (can't GET.BASE)" 30Q "Illegal array: ") MULARR D1 (P 5 TCNT P 4 BA P 3 XV P 2 SLICE P 1 CNT P 0 A I 3 IMFLG I 2 COMPLEXFLG I 1 X I 0 ARR) N@`ð¢±=@ gð¢±1@ ¢±)@ n`@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH tB²~C²>IdJñ‘¿JâkÙj_¿¾ONó’±KOààÐn?€jÑÎ¿KOààlÔÐAíÎ¿OkÔ_°×IdJñ‘¿JâkÙj_¿_¿OOó³RKOààÐAíÎ¿KOààlÔÐn?€jÑÎ¿OkÔ_°ØIdJñ‘¿JkÙj_¿_¿OOó³KOdØÐAíÎ¿OkÔ_°éIjó²JdIñ‘¿I½LKLMû¿LMdØÐ¼IMÙY°ã@o@ (513Q ERROR 163Q ERROR 104Q TYPENAME 41Q ARRAY-TOTAL-SIZE 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (145Q BITMAPTYPE# 107Q ARRAYP 61Q ARRAYTYPE# 47Q \SLICE1 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 507Q "Illegal array: " 157Q "Not an array (can't GET.BASE)") ADDARR D1 (P 5 TCNT P 4 BA P 3 XV P 2 SLICE P 1 CNT P 0 A I 3 IMFLG I 2 COMPLEXFLG I 1 X I 0 ARR) F@`ð¢±5@ gð¢±)@ ¢±!@ n`@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH tB²vC²:JdIñ‘¿IâkÙj_¿¾ONó’±ˆKOààÐhÎ¿KOààlÔÐAíÎ¿OkÔ_°ÛJdIñ‘¿IâkÙj_¿_¿OOó³NKOààÐAíÎ¿KOààlÔÐhÎ¿OkÔ_°ÜJdIñ‘¿IkÙj_¿_¿OOó³KOdØÐAíÎ¿OkÔ_°éIjó²JdIñ‘¿I½LKLMû¿LMdØÐ¼IMÙY°ã@o@ (503Q ERROR 163Q ERROR 104Q TYPENAME 41Q ARRAY-TOTAL-SIZE 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (145Q BITMAPTYPE# 107Q ARRAYP 61Q ARRAYTYPE# 47Q \SLICE1 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 477Q "Illegal array: " 157Q "Not an array (can't GET.BASE)") WHERE-MINABSARR D1 (P 13Q Y P 12Q X P 11Q IDX P 10Q XV P 7 SSIZE P 6 MIN.FOUND P 5 SIZE P 4 BASE P 3 CIDX P 2 IDXBASE P 1 SLICE P 0 A I 2 IMFLG I 1 COMPFLG I 0 ARRAY) -@ njd@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH A”B’l€jÐA•@ âƒ@ `6 A¢±ª``Mdjó£±ŸIñ‘I€M_¿LOOO¿OjOú_¿OOdØÐdÈýÈÑí_N —OJØ»O¾JOØºLOààÐ¼MOÙ]°ªn ñ“n €M_¿LjOú_¿LOdØÐdÈýÈÑí_N —OJØ»O¾JOØºLOdØÐ¼MOÙ½Mdjó³·¿KAB(452Q MAKE-INDEX 402Q FABS-LESSP 273Q FABS-LESSP 232Q \RE/IM-UNPACK 152Q ARRAY-TOTAL-SIZE 144Q ARRAY-TOTAL-SIZE 124Q ERROR 45Q TYPENAME 3 ARRAY-DIMENSIONS) (173Q \SLICE2 170Q \SLICE1 155Q MAX.FLOAT 106Q BITMAPTYPE# 50Q ARRAYP 22Q ARRAYTYPE#) ( 120Q "Not an array (can't GET.BASE)") WHERE-MINARR D1 (P 13Q Y P 12Q X P 11Q IDX P 10Q XV P 7 SSIZE P 6 MIN.FOUND P 5 SIZE P 4 BASE P 3 CIDX P 2 IDXBASE P 1 SLICE P 0 A I 2 IMFLG I 1 COMPFLG I 0 ARRAY) +@ njd@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH A”B’l€jÐA•@ âƒ@ `6 A¢±¨``Mdjó£±Iñ‘I€M_¿LOOO¿OjOú_¿OOdØÐdÈýÈÑí_Nýó—OJØ»O¾JOØºLOààÐ¼MOÙ]°«n ñ“n €M_¿LjOú_¿LOdØÐdÈýÈÑí_Nýó—OJØ»O¾JOØºLOdØÐ¼MOÙ½Mdjó³¸¿KAB(450Q MAKE-INDEX 232Q \RE/IM-UNPACK 152Q ARRAY-TOTAL-SIZE 144Q ARRAY-TOTAL-SIZE 124Q ERROR 45Q TYPENAME 3 ARRAY-DIMENSIONS) (173Q \SLICE2 170Q \SLICE1 155Q MAX.FLOAT 106Q BITMAPTYPE# 50Q ARRAYP 22Q ARRAYTYPE#) ( 120Q "Not an array (can't GET.BASE)") WHERE-MAXABSARR D1 (P 13Q Y P 12Q X P 11Q IDX P 10Q XV P 7 SSIZE P 6 MIN.FOUND P 5 SIZE P 4 BASE P 3 CIDX P 2 IDXBASE P 1 SLICE P 0 A I 2 IMFLG I 1 COMPFLG I 0 ARRAY) -@ njd@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH A”B’l€jÐA•@ âƒ@ `6 A¢±ª``Mdjó£±ŸIñ‘I€M_¿LOOO¿OjOú_¿OOdØÐdÈýÈÑí_N —OJØ»O¾JOØºLOààÐ¼MOÙ]°ªn ñ“n €M_¿LjOú_¿LOdØÐdÈýÈÑí_N —OJØ»O¾JOØºLOdØÐ¼MOÙ½Mdjó³·¿KAB(452Q MAKE-INDEX 402Q FABS-GREATERP 273Q FABS-GREATERP 232Q \RE/IM-UNPACK 152Q ARRAY-TOTAL-SIZE 144Q ARRAY-TOTAL-SIZE 124Q ERROR 45Q TYPENAME 3 ARRAY-DIMENSIONS) (173Q \SLICE2 170Q \SLICE1 155Q MIN.FLOAT 106Q BITMAPTYPE# 50Q ARRAYP 22Q ARRAYTYPE#) ( 120Q "Not an array (can't GET.BASE)") WHERE-MAXARR D1 (P 13Q Y P 12Q X P 11Q IDX P 10Q XV P 7 SSIZE P 6 MIN.FOUND P 5 SIZE P 4 BASE P 3 CIDX P 2 IDXBASE P 1 SLICE P 0 A I 2 IMFLG I 1 COMPFLG I 0 ARRAY) )@ njd@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH A”B’l€jÐA•@ âƒ@ `6 A¢±¦``Mdjó£±›Iñ‘I€M_¿LOOO¿OjOú_¿OOdØÐdÈýÈÑí_Nó—OJØ»O¾JOØºLOààÐ¼MOÙ]°¬n ñ“n €M_¿LjOú_¿LOdØÐdÈýÈÑí_Nó—OJØ»O¾JOØºLOdØÐ¼MOÙ½Mdjó³¹¿KAB(446Q MAKE-INDEX 232Q \RE/IM-UNPACK 152Q ARRAY-TOTAL-SIZE 144Q ARRAY-TOTAL-SIZE 124Q ERROR 45Q TYPENAME 3 ARRAY-DIMENSIONS) (173Q \SLICE2 170Q \SLICE1 155Q MIN.FLOAT 106Q BITMAPTYPE# 50Q ARRAYP 22Q ARRAYTYPE#) ( 120Q "Not an array (can't GET.BASE)") SUMARR D1 (P 0 A I 2 IMFLG I 1 COMPLEXFLG I 0 ARRAY) x@`ð²i@ gð²_@ ²Y@Hd`ð¿@É@È @ÈõÐ°4 gð˜HÉHÈÐ°#Hdlð—ÉHÈÐ°`ð“HÉ‡oH @ ABo (165Q ERROR 155Q \SUM-VECTOR 150Q ARRAY-TOTAL-SIZE 143Q ERROR 64Q TYPENAME 25Q ARRAY-DIMENSIONS 13Q ARRAY-ELEMENT-TYPE) (125Q BITMAPTYPE# 67Q ARRAYP 41Q ARRAYTYPE# 16Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 162Q "Illegal array arguments" 137Q "Not an array (can't GET.BASE)") FABS-LESSP D1 (L (1 Y 0 X)) @íííAíííýóNIL NIL () FABS-GREATERP D1 (L (1 Y 0 X)) @íííAíííóNIL NIL () FABSMIN D1 (I 1 Y I 0 X) @íííAííí (20Q FMIN) NIL () FABSMAX D1 (I 1 Y I 0 X) @íííAííí (20Q FMAX) NIL () MAKE-INDEX D1 (P 0 REST-SIZE I 3 IMFLG I 2 COMPLEXFLG I 1 IDX I 0 DIMS) 5B›C•AdkØØ„AdØ€Ab@ kð“Ahg@ AHÛ@AHÜ (61Q MAKE-INDEX 43Q APPLY 24Q LENGTH) (36Q ITIMES) () \SUM-VECTOR D1 (P 6 TSIZE P 5 CNT P 4 BASE P 3 TMPY P 2 TMPX P 1 SLICE P 0 S I 3 IMFLG I 2 COMPLEXFLG I 1 CNT I 0 BASE) ^B²Non``C”@lÐ€@AâMdjó¡HIñ‘I€M¾LJKN¿Hn?€jÑJNkÙ2íè¸MNÙ½LNààÐ¼°Ðn?€jÑ@AkÙ2í(61Q \RE/IM-UNPACK) (17Q \SLICE2 14Q \SLICE1) ( 6 0.0) FFT D1 (P 17Q I P 15Q A P 7 SIB P 6 FFTTABLES P 5 \FFTTABLE P 4 BV P 3 BFFTBUF2 P 2 BFFTBUF1 P 1 BSHUFFLE P 0 PASSES I 4 \BASEPTR I 3 INVFLG I 2 LEN I 1 START I 0 V) iÐA£jb¿D³~@d`ð²A kð¨o@ ¿Bµ@j âAÕb@j âAÕó˜o@ ¿@ gð³