(FILECREATED "30-Sep-85 14:56:49" ("compiled on " {ERIS}LIBRARY>CMLFLOATARRAY.;5) "25-Sep-85 19:36:04" tcompl'd in "INTERLISP-D 25-Sep-85 ..." dated "25-Sep-85 19:50:41") (FILECREATED "30-Sep-85 14:55:26" {ERIS}LIBRARY>CMLFLOATARRAY.;5 58932 changes to: (FNS COMPLEX-TO-BITMAP FLOAT-TO-BITMAP XCOMPLEX-TO-BITMAP) (VARS CMLFLOATARRAYCOMS) previous date: "27-Sep-85 01:37:18" {ERIS}LIBRARY>CMLFLOATARRAY.;4) MAPARRAY D1 (P 35Q ELEMENT P 33Q RESULTBASE P 32Q ELEMENTS P 31Q ABASES 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°3dO0d3³ gð—O0É†O0É¹JµIh[I&ºµÎKN N gð–NÉ…NÉO4kÙjO:O8ó³HO6O:dØÐO0O2°#dd3O:dØÐdÈýÈÑí¹JµIh[I&ºµÞK íÎ¿O:kÔ_:°·N(1365Q APPLY 1230Q TYPENAME 1224Q ARRAY-TOTAL-SIZE 1151Q 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) (1250Q ARRAY 1241Q ARRAYP 1233Q ARRAYP 1173Q ARRAY 1163Q ARRAYP 1154Q ARRAYP 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#) ( 1115Q "Illegal arguments to MAPARRAY") MAPARRAY1 D1 (P 17Q ELT P 15Q RB P 14Q TAIL P 13Q DIMS P 12Q N P 2 DIMS P 1 ARRAYBASE P 0 ARRAYSIZE I 2 ARRAY I 1 MAPFN I 0 RESULT) (B B gð–BÉ…BÉB s Adgð¢±›¿B`ðB gð”B ¨oB ¿@³5JgoggJ lO kÙ »l€Kñ‘Kl€ b¿J@`ð´@ oô´@ ô²I@ gð–@É…@ÉHú±po@ ±egð¢±ÇJ OB Odâ¿Okåjð¨oB ¿B`ðB gð”B ¨oB ¿@³6OggggO lO kÙ ¼l€Lñ‘Ll€ b¿O@`ð´@ gð´@ ô²I@ gð–@É…@ÉHâú‡o@ ±™Adgð¢±£¿B`ð´B oô´B O¨oB ¿@³6OggggO lO kÙ ½l€Mñ‘Ml€ b¿O@`ð´@ gð´@ ô²I@ gð–@É…@ÉHú‡o@ ±ïgð¢±¸J OB OdOØ¿B`ðB gð”B ¨oB ¿@³6OggggO lO kÙ ¾l€Nñ‘Nl€ b¿O@`ð´@ gð´@ ð²I@ gð–@É…@ÉHú‡o@ ±2B`ð´B gð´B @µ7JggggJ lO kÙ _¿l€Oñ’Ol€ b`ð´~@µ7JggggJ lO kÙ _¿l€Oñ’Ol€ b gð´=@µ7JggggJ lO kÙ _¿l€Oñ’Ol€ b ô²V@ gð–@É…@É!HkÙHkÙØj_¿_¿OOó³&OOÐIOÐdÈýÈÑíkAíÎ¿OlÔ_°Ù†o @(2044Q ERROR 1715Q TYPENAME 1706Q ARRAY-DIMENSIONS 1701Q MAKE-ARRAY 1656Q EXPT 1651Q INTEGERLENGTH 1637Q APPLY 1605Q ARRAY-ELEMENT-TYPE 1600Q MAKE-ARRAY 1555Q EXPT 1550Q INTEGERLENGTH 1536Q APPLY 1501Q MAKE-ARRAY 1456Q EXPT 1451Q INTEGERLENGTH 1437Q APPLY 1413Q ARRAY-DIMENSIONS 1401Q ARRAY-ELEMENT-TYPE 1360Q ERROR 1322Q TYPENAME 1312Q ARRAY-DIMENSIONS 1300Q ARRAY-ELEMENT-TYPE 1257Q MAKE-ARRAY 1240Q EXPT 1233Q INTEGERLENGTH 1221Q APPLY 1172Q ERROR 1161Q ARRAY-DIMENSIONS 1150Q ARRAY-ELEMENT-TYPE 1120Q NTH 1115Q ARRAY-RANK 1104Q COPY 1064Q ERROR 1026Q TYPENAME 1016Q ARRAY-DIMENSIONS 1004Q ARRAY-ELEMENT-TYPE 763Q MAKE-ARRAY 744Q EXPT 737Q INTEGERLENGTH 725Q APPLY 676Q ERROR 660Q ARRAY-DIMENSIONS 645Q ARRAY-ELEMENT-TYPE 611Q ERROR 552Q TYPENAME 542Q ARRAY-DIMENSIONS 530Q ARRAY-ELEMENT-TYPE 507Q MAKE-ARRAY 470Q EXPT 463Q INTEGERLENGTH 451Q APPLY 422Q ERROR 411Q ARRAY-DIMENSIONS 400Q ARRAY-ELEMENT-TYPE 364Q ERROR 332Q NTH 327Q ARRAY-RANK 316Q COPY 277Q ERROR 237Q TYPENAME 227Q ARRAY-DIMENSIONS 214Q ARRAY-ELEMENT-TYPE 174Q MAKE-ARRAY 155Q EXPT 150Q INTEGERLENGTH 136Q APPLY 110Q ERROR 77Q ARRAY-DIMENSIONS 66Q ARRAY-ELEMENT-TYPE 35Q ARRAY-DIMENSIONS 7 TYPENAME 3 ARRAY-TOTAL-SIZE) (1735Q ARRAY 1726Q ARRAYP 1720Q ARRAYP 1633Q ITIMES 1630Q :ALIGNMENT 1625Q FLOAT 1622Q :ELEMENT-TYPE 1610Q SINGLE-FLOAT 1532Q ITIMES 1527Q :ALIGNMENT 1524Q FLOAT 1521Q :ELEMENT-TYPE 1507Q ARRAYTYPE# 1433Q ITIMES 1430Q :ALIGNMENT 1425Q FLOAT 1422Q :ELEMENT-TYPE 1404Q SINGLE-FLOAT 1372Q ARRAYTYPE# 1342Q ARRAY 1333Q ARRAYP 1325Q ARRAYP 1303Q SINGLE-FLOAT 1271Q ARRAYTYPE# 1214Q ITIMES 1211Q :ALIGNMENT 1206Q FLOAT 1203Q :ELEMENT-TYPE 1153Q SINGLE-FLOAT 1142Q ARRAYTYPE# 1073Q COMPLEX 1046Q ARRAY 1037Q ARRAYP 1031Q ARRAYP 1007Q SINGLE-FLOAT 775Q ARRAYTYPE# 720Q ITIMES 715Q :ALIGNMENT 712Q FLOAT 707Q :ELEMENT-TYPE 636Q ARRAYTYPE# 623Q FLOAT 572Q ARRAY 563Q ARRAYP 555Q ARRAYP 533Q SINGLE-FLOAT 521Q ARRAYTYPE# 444Q ITIMES 441Q :ALIGNMENT 436Q FLOAT 433Q :ELEMENT-TYPE 403Q SINGLE-FLOAT 372Q ARRAYTYPE# 305Q MAGNITUDE 257Q ARRAY 250Q ARRAYP 242Q ARRAYP 205Q ARRAYTYPE# 132Q ITIMES 127Q :ALIGNMENT 120Q :ELEMENT-TYPE 71Q SINGLE-FLOAT 60Q ARRAYTYPE# 45Q EXPONENT 27Q ARRAY 20Q ARRAYP 12Q ARRAYP) ( 2041Q "ILLEGAL ARGUMENTS" 1354Q "ILLEGAL FLOAT ARRAY: " 1166Q "ILLEGAL FLOAT ARRAY: " 1060Q "ILLEGAL ARGUMENT: " 672Q "ILLEGAL ARGUMENT:" 651Q (UNSIGNED-BYTE 20Q) 605Q "ILLEGAL ARGUMENT:" 416Q "ILLEGAL ARGUMENT:" 360Q "Array not complex: " 273Q "ILLEGAL ARGUMENT:" 220Q (UNSIGNED-BYTE 20Q) 124Q (UNSIGNED-BYTE 20Q) 104Q "ILLEGAL ARGUMENT:") MAPARRAY2 D1 (P 14Q ELT P 12Q RESULTBASE P 11Q ARRAY2BASE P 10Q ARRAY1BASE P 7 RESULT P 6 N P 5 ARRAY2 P 4 N P 3 ARRAY1 P 2 N P 1 SIZE P 0 DIMS I 3 ARRAY2 I 2 ARRAY1 I 1 MAPFN I 0 RESULT) ¡ Agð¨Agð¢±€C`ð²C oô›C kð”C ¨oB ¿@¦B b¿B gð–BÉ…BÉC gð–CÉ…CÉ@ gð–@É…@ÉCj û¿±B`ðžB gð•B µC`ð´C gð´C gH H²8Bd3²3¿HgggBgIlJ kÙ dl€ñ’¿l€ µBH²8Cd3²3¿HgggCgIlL kÙ dl€ñ’¿l€ µCH´P@`ð´@ gð´@ Hô’@°4@³)HgggIlN kÙ dl€ñ’¿l€ ‡o@ H¢±O¢±üK`ð´K gð´K M`ð´M gð´M ô¢±ËK gð–KÉ…KÉM gð–MÉ…MÉO gð—OÉ†OÉ Adgðœ¿OOOIû¿°lgð›OOOIû¿°[Agð›OOOIû¿°IIkÙIkÙØjOOó³6OOÐOOÐdÈýÈÑíOOÐdÈýÈÑílAíÎ¿OlÔ_°É†o @(1235Q ERROR 777Q TYPENAME 750Q TYPENAME 722Q TYPENAME 711Q ARRAY-DIMENSIONS 677Q ARRAY-ELEMENT-TYPE 663Q ARRAY-DIMENSIONS 651Q ARRAY-ELEMENT-TYPE 617Q ERROR 606Q MAKE-ARRAY 571Q EXPT 564Q INTEGERLENGTH 527Q ARRAY-DIMENSIONS 515Q ARRAY-ELEMENT-TYPE 470Q MAKE-ARRAY 453Q EXPT 446Q INTEGERLENGTH 373Q MAKE-ARRAY 356Q EXPT 351Q INTEGERLENGTH 301Q APPLY 267Q ARRAY-DIMENSIONS 255Q ARRAY-ELEMENT-TYPE 237Q ARRAY-DIMENSIONS 226Q ARRAY-ELEMENT-TYPE 205Q ARRAY-DIMENSION 156Q TYPENAME 130Q TYPENAME 102Q TYPENAME 73Q COPYALL 64Q ERROR 53Q ARRAY-DIMENSIONS 44Q ARRAY-RANK 32Q ARRAY-ELEMENT-TYPE) (1077Q FDIFF 1055Q FPLUS 1033Q FTIMES 1021Q ARRAY 1011Q ARRAYP 1002Q ARRAYP 770Q ARRAY 761Q ARRAYP 753Q ARRAYP 742Q ARRAY 733Q ARRAYP 725Q ARRAYP 702Q SINGLE-FLOAT 670Q ARRAYTYPE# 654Q SINGLE-FLOAT 642Q ARRAYTYPE# 552Q :ALIGNMENT 547Q SINGLE-FLOAT 544Q :ELEMENT-TYPE 520Q SINGLE-FLOAT 506Q ARRAYTYPE# 434Q :ALIGNMENT 431Q FLOATP 425Q :INITIAL-ELEMENT 422Q SINGLE-FLOAT 417Q :ELEMENT-TYPE 337Q :ALIGNMENT 334Q FLOATP 330Q :INITIAL-ELEMENT 325Q SINGLE-FLOAT 322Q :ELEMENT-TYPE 275Q ITIMES 260Q SINGLE-FLOAT 246Q ARRAYTYPE# 231Q SINGLE-FLOAT 220Q ARRAYTYPE# 176Q ARRAY 167Q ARRAYP 161Q ARRAYP 150Q ARRAY 141Q ARRAYP 133Q ARRAYP 122Q ARRAY 113Q ARRAYP 105Q ARRAYP 23Q ARRAYTYPE# 11Q ELT 3 PERMUTE) ( 1232Q "ILLEGAL ARGUMENTS" 613Q "ILLEGAL RESULT ARRAY: " 60Q "Illegal permutation array" 36Q (UNSIGNED-BYTE 20Q)) ARRAY-COPY D1 (P 3 SSIZE P 2 BA2 P 1 BA1 P 0 TS I 1 ARR2 I 0 ARR1) @`ð¢±@ gð¢±„@ ²}@ A`ð´A gð´A ô²`@ @ Ø@ gð–@É…@ÉA gð–AÉ…AÉHjó²!nHñ‘H‚n»JIKÄ¿IKÐ¹JKÐºHKÙX°ßAo (235Q ERROR 133Q TYPENAME 105Q TYPENAME 100Q ARRAY-TOTAL-SIZE 74Q ARRAY-TOTAL-SIZE 65Q ARRAY-DIMENSIONS 53Q ARRAY-ELEMENT-TYPE 37Q ARRAY-DIMENSIONS 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (153Q ARRAY 144Q ARRAYP 136Q ARRAYP 125Q ARRAY 116Q ARRAYP 110Q ARRAYP 56Q SINGLE-FLOAT 44Q ARRAYTYPE# 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 232Q "Illegal arguments") 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 1 WS P 0 BA I 1 VALUE I 0 ARR) V@`ð@ gð”@ ¨o@ ¿@ gð–@É…@É@ kÙ@ kÙØHIÐAíÎHdlÐIÄ@(75Q ARRAY-TOTAL-SIZE 67Q ARRAY-TOTAL-SIZE 41Q TYPENAME 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (61Q ARRAY 52Q ARRAYP 44Q ARRAYP 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 30Q "Illegal array argument") MAXARR D1 (P 10Q CNT P 7 IM P 6 RE P 5 TCNT P 4 IDX P 3 MX P 2 BA P 1 CNT P 0 SLICE I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) Ê @`ð@ gð”@ ¨o@ ¿n@ @ gð–@É…@ÉB’l€jÐ`$A²x``IâOdjó¢°jHñ‘HO½JNOM¿NjMú¼KNLdØÐdÈýÈÑí »JMdØÐºOMÙ_°ÃHñ‘H€I½JjMú¼KJLdØÐdÈýÈÑí »JMdØÐºIMÙ¹Idjó³ÒK(265Q FMAX 207Q FMAX 156Q \RE/IM-UNPACK 50Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (120Q \SLICE2 115Q \SLICE1 104Q MIN.FLOAT 70Q ARRAY 61Q ARRAYP 53Q ARRAYP 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 30Q "Illegal array: ") MINARR D1 (P 10Q CNT P 7 IM P 6 RE P 5 TCNT P 4 IDX P 3 MX P 2 BA P 1 CNT P 0 SLICE I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) Ê @`ð@ gð”@ ¨o@ ¿n@ @ gð–@É…@ÉB’l€jÐ`$A²x``IâOdjó¢°jHñ‘HO½JNOM¿NjMú¼KNLdØÐdÈýÈÑí »JMdØÐºOMÙ_°ÃHñ‘H€I½JjMú¼KJLdØÐdÈýÈÑí »JMdØÐºIMÙ¹Idjó³ÒK(265Q FMIN 207Q FMIN 156Q \RE/IM-UNPACK 50Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (120Q \SLICE2 115Q \SLICE1 104Q MAX.FLOAT 70Q ARRAY 61Q ARRAYP 53Q ARRAYP 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 30Q "Illegal array: ") MAXABSARR D1 (P 10Q CNT P 7 IM P 6 RE P 5 TCNT P 4 IDX P 3 MX P 2 BA P 1 CNT P 0 SLICE I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) Ë @`ð@ gð”@ ¨o@ ¿n@ @ gð–@É…@ÉB’l€jÐo$A²x``IâOdjó¢°jHñ‘HO½JNOM¿NjMú¼KNLdØÐdÈýÈÑí »JMdØÐºOMÙ_°ÃHñ‘H€I½JjMú¼KJLdØÐdÈýÈÑí »JMdØÐºIMÙ¹Idjó³ÒK(266Q FABSMAX 210Q FABSMAX 157Q \RE/IM-UNPACK 50Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (121Q \SLICE2 116Q \SLICE1 70Q ARRAY 61Q ARRAYP 53Q ARRAYP 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 105Q 0.0 30Q "Illegal array: ") MINABSARR D1 (P 10Q CNT P 7 IM P 6 RE P 5 TCNT P 4 IDX P 3 MX P 2 BA P 1 CNT P 0 SLICE I 2 IMFLG I 1 COMPLEXFLG I 0 ARR) Ê @`ð@ gð”@ ¨o@ ¿n@ @ gð–@É…@ÉB’l€jÐ`$A²x``IâOdjó¢°jHñ‘HO½JNOM¿NjMú¼KNLdØÐdÈýÈÑí »JMdØÐºOMÙ_°ÃHñ‘H€I½JjMú¼KJLdØÐdÈýÈÑí »JMdØÐºIMÙ¹Idjó³ÒK(265Q FABSMIN 207Q FABSMIN 156Q \RE/IM-UNPACK 50Q TYPENAME 44Q ARRAY-TOTAL-SIZE 34Q ERROR 23Q ARRAY-DIMENSIONS 12Q ARRAY-ELEMENT-TYPE) (120Q \SLICE2 115Q \SLICE1 104Q MAX.FLOAT 70Q ARRAY 61Q ARRAYP 53Q ARRAYP 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 30Q "Illegal array: ") MULARR D1 (P 4 TCNT P 3 BA P 2 XV P 1 SLICE P 0 CNT I 3 IMFLG I 2 COMPLEXFLG I 1 X I 0 ARR) @`ð¢±ÿ@ gð¢±ó@ ¢±ë@ n`@ gð–@É…@Ét B²wC²7HdIñ‘¿IâkÙj¾½NMó’±ŒJNààÐn?€jÑÎ¿JNààlÔÐAíÎ¿NkÔ^°ÛHdIñ‘¿IâkÙj_¿_¿OOó³RJOààÐAíÎ¿JOààlÔÐn?€jÑÎ¿OkÔ_°ØHdIñ‘¿IkÙj_¿_¿OOó³JOdØÐAíÎ¿OkÔ_°éHjó²IdHñ‘¿H¼KJKLû¿KLdØÐ»HLÙX°ã@o@ (415Q ERROR 53Q TYPENAME 41Q ARRAY-TOTAL-SIZE 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (73Q ARRAY 64Q ARRAYP 56Q ARRAYP 47Q \SLICE1 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 411Q "Illegal array: ") ADDARR D1 (P 4 TCNT P 3 BA P 2 XV P 1 SLICE P 0 CNT I 3 IMFLG I 2 COMPLEXFLG I 1 X I 0 ARR) @`ð¢±÷@ gð¢±ë@ ¢±ã@ n`@ gð–@É…@Ét B²oC²3IdHñ‘¿HâkÙj¾½NMó’±„JNààÐhÎ¿JNààlÔÐAíÎ¿NkÔ^°ßIdHñ‘¿HâkÙj_¿_¿OOó³NJOààÐAíÎ¿JOààlÔÐhÎ¿OkÔ_°ÜIdHñ‘¿HkÙj_¿_¿OOó³JOdØÐAíÎ¿OkÔ_°éHjó²IdHñ‘¿H¼KJKLû¿KLdØÐ»HLÙX°ã@o@ (405Q ERROR 53Q TYPENAME 41Q ARRAY-TOTAL-SIZE 31Q ARRAY-DIMENSIONS 15Q ARRAY-ELEMENT-TYPE) (73Q ARRAY 64Q ARRAYP 56Q ARRAYP 47Q \SLICE1 20Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 401Q "Illegal array: ") WHERE-MINABSARR D1 (P 12Q Y P 11Q X P 10Q IDX P 7 XV P 6 SSIZE P 5 MIN.FOUND P 4 SIZE P 3 BASE P 2 CIDX P 1 IDXBASE P 0 SLICE I 2 IMFLG I 1 COMPFLG I 0 ARRAY) é@ njd@ gð–@É…@ÉA”B’l€jÐA•@ âƒ@ `6A¢±`` Ldjó£±’Hñ‘H€L¾KOON¿OjNú_¿OOdØÐdÈýÈÑí_M —OIØºO½INØ¹KNààÐ»LNÙ\°±n ñ“n €L¾KjNú_¿KOdØÐdÈýÈÑí_M —OIØºO½INØ¹KNdØÐ»LNÙ¼Ldjó³½¿JAB(346Q MAKE-INDEX 301Q FABS-LESSP 200Q FABS-LESSP 140Q \RE/IM-UNPACK 63Q ARRAY-TOTAL-SIZE 55Q ARRAY-TOTAL-SIZE 14Q TYPENAME 3 ARRAY-DIMENSIONS) (104Q \SLICE2 101Q \SLICE1 66Q MAX.FLOAT 34Q ARRAY 25Q ARRAYP 17Q ARRAYP) () WHERE-MINARR D1 (P 12Q Y P 11Q X P 10Q IDX P 7 XV P 6 SSIZE P 5 MIN.FOUND P 4 SIZE P 3 BASE P 2 CIDX P 1 IDXBASE P 0 SLICE I 2 IMFLG I 1 COMPFLG I 0 ARRAY) ç@ njd@ gð–@É…@ÉA”B’l€jÐA•@ âƒ@ `6A¢±›`` Ldjó£±Hñ‘H€L¾KOON¿OjNú_¿OOdØÐdÈýÈÑí_Mýó—OIØºO½INØ¹KNààÐ»LNÙ\°²n ñ“n €L¾KjNú_¿KOdØÐdÈýÈÑí_Mýó—OIØºO½INØ¹KNdØÐ»LNÙ¼Ldjó³¾¿JAB(344Q MAKE-INDEX 140Q \RE/IM-UNPACK 63Q ARRAY-TOTAL-SIZE 55Q ARRAY-TOTAL-SIZE 14Q TYPENAME 3 ARRAY-DIMENSIONS) (104Q \SLICE2 101Q \SLICE1 66Q MAX.FLOAT 34Q ARRAY 25Q ARRAYP 17Q ARRAYP) () WHERE-MAXABSARR D1 (P 12Q Y P 11Q X P 10Q IDX P 7 XV P 6 SSIZE P 5 MIN.FOUND P 4 SIZE P 3 BASE P 2 CIDX P 1 IDXBASE P 0 SLICE I 2 IMFLG I 1 COMPFLG I 0 ARRAY) é@ njd@ gð–@É…@ÉA”B’l€jÐA•@ âƒ@ `6A¢±`` Ldjó£±’Hñ‘H€L¾KOON¿OjNú_¿OOdØÐdÈýÈÑí_M —OIØºO½INØ¹KNààÐ»LNÙ\°±n ñ“n €L¾KjNú_¿KOdØÐdÈýÈÑí_M —OIØºO½INØ¹KNdØÐ»LNÙ¼Ldjó³½¿JAB(346Q MAKE-INDEX 301Q FABS-GREATERP 200Q FABS-GREATERP 140Q \RE/IM-UNPACK 63Q ARRAY-TOTAL-SIZE 55Q ARRAY-TOTAL-SIZE 14Q TYPENAME 3 ARRAY-DIMENSIONS) (104Q \SLICE2 101Q \SLICE1 66Q MIN.FLOAT 34Q ARRAY 25Q ARRAYP 17Q ARRAYP) () WHERE-MAXARR D1 (P 12Q Y P 11Q X P 10Q IDX P 7 XV P 6 SSIZE P 5 MIN.FOUND P 4 SIZE P 3 BASE P 2 CIDX P 1 IDXBASE P 0 SLICE I 2 IMFLG I 1 COMPFLG I 0 ARRAY) å@ njd@ gð–@É…@ÉA”B’l€jÐA•@ âƒ@ `6A¢±™`` Ldjó£±ŽHñ‘H€L¾KOON¿OjNú_¿OOdØÐdÈýÈÑí_Mó—OIØºO½INØ¹KNààÐ»LNÙ\°³n ñ“n €L¾KjNú_¿KOdØÐdÈýÈÑí_Mó—OIØºO½INØ¹KNdØÐ»LNÙ¼Ldjó³¿¿JAB(342Q MAKE-INDEX 140Q \RE/IM-UNPACK 63Q ARRAY-TOTAL-SIZE 55Q ARRAY-TOTAL-SIZE 14Q TYPENAME 3 ARRAY-DIMENSIONS) (104Q \SLICE2 101Q \SLICE1 66Q MIN.FLOAT 34Q ARRAY 25Q ARRAYP 17Q ARRAYP) () SUMARR D1 (I 2 IMFLG I 1 COMPLEXFLG I 0 ARRAY) A@`ð²2@ gð²(@ ²"@ gð–@É…@É@ ABo (76Q ERROR 66Q \SUM-VECTOR 61Q ARRAY-TOTAL-SIZE 33Q TYPENAME 25Q ARRAY-DIMENSIONS 13Q ARRAY-ELEMENT-TYPE) (53Q ARRAY 44Q ARRAYP 36Q ARRAYP 16Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 73Q "Illegal array arguments") 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 11Q I 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) Ê €A£jb¿D³~@d`ð²A kð¨o@ ¿Bµ@j âAÕb@j âAÕó˜o@ ¿@ gð³C²=JgH`µ l gð²_gH`µ l É°]C¦LKOÄ°ZKgH`µ l gð²gH`µ l É°gH`µ l ÉLBdØû@(1265Q HARRAY 1232Q HARRAY 1206Q TYPENAME 1175Q HARRAY 1130Q HARRAY 1104Q TYPENAME 1073Q HARRAY 732Q HARRAY 643Q TYPENAME 620Q HARRAY 565Q HARRAY 541Q TYPENAME 530Q HARRAY 476Q HARRAY 443Q HARRAY 417Q TYPENAME 406Q HARRAY 354Q HARRAY 321Q HARRAY 275Q TYPENAME 264Q HARRAY 246Q FFT.INIT 231Q INTEGERLENGTH 224Q ERROR 213Q POWEROFTWOP 206Q ERROR 171Q ARRAYTYP 164Q ERROR 147Q ARRAYSIZE 136Q ARRAYSIZE 107Q ARRAY-ELEMENT-TYPE 102Q ERROR 65Q ARRAY-DIMENSION 53Q ARRAY-DIMENSION 42Q ERROR 27Q ARRAY-RANK) (1276Q ARRAY 1270Q FFTREUSETABLE 1256Q FFTREUSETABLE 1252Q INVSCALE 1243Q ARRAYP 1235Q FFTREUSETABLE 1223Q FFTREUSETABLE 1217Q INVSCALE 1211Q ARRAYP 1200Q FFTREUSETABLE 1166Q FFTREUSETABLE 1162Q INVSCALE 1141Q ARRAYP 1133Q FFTREUSETABLE 1121Q FFTREUSETABLE 1115Q INVSCALE 1107Q ARRAYP 1076Q FFTREUSETABLE 1064Q FFTREUSETABLE 1060Q INVSCALE 1003Q FFTTABLE 744Q FFTTABLETYPE# 735Q FFTREUSETABLE 723Q FFTREUSETABLE 717Q FFTTABLE 713Q INVFFTTABLE 663Q ARRAY 654Q ARRAYP 646Q ARRAYP 631Q ARRAY 623Q FFTREUSETABLE 611Q FFTREUSETABLE 605Q FFTBUF2 576Q ARRAYP 570Q FFTREUSETABLE 556Q FFTREUSETABLE 552Q FFTBUF2 544Q ARRAYP 533Q FFTREUSETABLE 521Q FFTREUSETABLE 515Q FFTBUF2 507Q ARRAY 501Q FFTREUSETABLE 467Q FFTREUSETABLE 463Q FFTBUF1 454Q ARRAYP 446Q FFTREUSETABLE 434Q FFTREUSETABLE 430Q FFTBUF1 422Q ARRAYP 411Q FFTREUSETABLE 377Q FFTREUSETABLE 373Q FFTBUF1 365Q ARRAY 357Q FFTREUSETABLE 345Q FFTREUSETABLE 341Q SHUFFLE 332Q ARRAYP 324Q FFTREUSETABLE 312Q FFTREUSETABLE 306Q SHUFFLE 300Q ARRAYP 267Q FFTREUSETABLE 255Q FFTREUSETABLE 251Q SHUFFLE 174Q FLOATP 112Q SINGLE-FLOAT 21Q ARRAYTYPE#) ( 220Q "Length has to be a power of two" 202Q "Array must be of type FLOATP" 160Q "Array to small" 121Q "Array must be of type FLOAT" 76Q "Array to small" 36Q "FFT only takes one dimensional arrays") FFT.GET.COLUMN.PILOTBBT D1 (I 0 CNT) `djÍ¿dl@Í¿dl@Í¿dkÏ ¿NIL (2 PILOTBBTTYPE#) () FFT.INIT D1 (P 6 PAIR P 5 AL P 4 TMP2 P 3 TMP1 P 2 DBLE P 1 HALFARRAYLENGTH P 0 ARRAYLENGTH I 0 PASSES) Pk@ XdâYHàZg@`µ l ’±@@`gM^µ‚±@gH M`µ l @`gM^µ‚±º@gJgojl€J [M`µ l @`gM^µf@gJgojl€J \M`µ l @`gM^µ@gK gð²vKÉ°tK gð²AKÉ°?Jgojl€J \°²Jgojl€J [±ÿ_H ±ÿKÉL gð–LÉ…LÉ@°5KÉL gð–LÉ…LÉ@M`µ l @`gM^µ@gK gð²>KÉ°