(FILECREATED " 2-Apr-86 23:22:19" ("compiled on " {QV}SOURCES>USERARITH.;26) "12-Nov-85 14:59:23" recompiled changes: IDLABS IDLANTILOG IDLCOS IDLLOG IDLMINUS IDLSQRT in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED " 2-Apr-86 23:21:32" {QV}SOURCES>USERARITH.;26 18646 changes to: (FNS IDLCOS IDLLOG IDLANTILOG IDLABS IDLMINUS IDLSQRT) previous date: "16-Feb-86 17:16:13" {QV}SOURCES>USERARITH.;25 ) (RPAQQ USERARITHFNS (IDLABS IDLANTILOG IDLARCCOS IDLARCSIN IDLARCTAN IDLARCTAN2 IDLCOS IDLDIFFERENCE IDLEQP IDLEXPT IDLGCD IDLGREATERP IDLLESSP IDLLOG IDLMAX IDLMIN IDLMINUS IDLMINUSP IDLPLUS IDLQUOTIENT IDLRAND IDLREMAINDER IDLSIN IDLSQRT IDLTAN IDLTIMES IDL\SLOWDIFFERENCE IDL\SLOWPLUS2 IDL\SLOWQUOTIENT IDL\SLOWTIMES2)) IDLABSA0001A0002 D1 (I 0 X) @ bd’ (12Q ABS.LISP 3 CONV.SCALAR) NIL () IDLABSA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) goP(12Q EAPPLY.CALLER) (2 IDLABSA0001A0002) ( 6 (0)) IDLABS D1 (I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@ (26Q ABS.LISP 17Q IDLABSA0001) (13Q ABS 5 ARRAYFRAMETYPE#) () IDLANTILOGA0001A0002 D1 (I 0 X) @ bd’ (12Q ANTILOG.LISP 3 CONV.SCALAR) NIL () IDLANTILOGA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) goP(12Q EAPPLY.CALLER) (2 IDLANTILOGA0001A0002) ( 6 (0)) IDLANTILOG D1 (I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@ (26Q ANTILOG.LISP 17Q IDLANTILOGA0001) (13Q ANTILOG 5 ARRAYFRAMETYPE#) () IDLARCCOSA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q ARCCOS.LISP 3 CONV.SCALAR) NIL () IDLARCCOSA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLARCCOSA0001A0002) ( 6 (0)) IDLARCCOS D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q ARCCOS.LISP 17Q IDLARCCOSA0001) (13Q ARCCOS 5 ARRAYFRAMETYPE#) () IDLARCSINA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q ARCSIN.LISP 3 CONV.SCALAR) NIL () IDLARCSINA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLARCSINA0001A0002) ( 6 (0)) IDLARCSIN D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q ARCSIN.LISP 17Q IDLARCSINA0001) (13Q ARCSIN 5 ARRAYFRAMETYPE#) () IDLARCTANA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q ARCTAN.LISP 3 CONV.SCALAR) NIL () IDLARCTANA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLARCTANA0001A0002) ( 6 (0)) IDLARCTAN D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q ARCTAN.LISP 17Q IDLARCTANA0001) (13Q ARCTAN 5 ARRAYFRAMETYPE#) () IDLARCTAN2A0001A0002 D1 (I 2 RADIANSFLG I 1 Y I 0 X) @ bA b@´d´@AB(27Q ARCTAN2.LISP 11Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLARCTAN2A0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y F 2 RADIANSFLG) goPQR (15Q EAPPLY.CALLER) (2 IDLARCTAN2A0001A0002) ( 6 (0 0)) IDLARCTAN2 D1 (I 2 RADIANSFLG I 1 Y I 0 X F 0 RESETVARSLST) $@`ð¦A`ð—gP @´A´@AB(41Q ARCTAN2.LISP 24Q IDLARCTAN2A0001) (20Q ARCTAN2 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLCOSA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q COS.LISP 3 CONV.SCALAR) NIL () IDLCOSA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLCOSA0001A0002) ( 6 (0)) IDLCOS D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q COS.LISP 17Q IDLCOSA0001) (13Q COS 5 ARRAYFRAMETYPE#) () IDLDIFFERENCEA0001A0002A0003A0004A0005 D1 (I 1 Y I 0 X) 5@ b3«@™gg ¿A b3«A™gg ¿@´A´@AÕ(50Q ASSERTFAULT 30Q CONV.SCALAR 23Q ASSERTFAULT 3 CONV.SCALAR) (45Q Y 42Q SCALAR 20Q X 15Q SCALAR) () IDLDIFFERENCEA0001A0002A0003A0004 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDLDIFFERENCEA0001A0002A0003A0004A0005) ( 6 (0 0)) IDLDIFFERENCEA0001A0002A0003 D1 (NAME UERRORSET P 3 Y P 2 X I 1 URESETVARSLST I 0 UERRORNAME F 4 X F 5 Y F 6 RESETVARSLST) XTdI UdI J3«J™gg ¿K3«K™gg ¿J`ð¦K`ð—gV J´K´JKÕ(113Q IDLDIFFERENCEA0001A0002A0003A0004 65Q ASSERTFAULT 45Q ASSERTFAULT 22Q CONV.SCALAR 10Q CONV.SCALAR) (107Q DIFFERENCE 102Q ARRAYFRAMETYPE# 73Q ARRAYFRAMETYPE# 62Q Y 57Q SCALAR 42Q X 37Q SCALAR) () IDLDIFFERENCEA0001A0002 D1 (I 1 Y I 0 X F 0 RESETVARSLST) gP (6 IDLDIFFERENCEA0001A0002A0003) (2 IDLDIFFERENCE) () IDLDIFFERENCEA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDLDIFFERENCEA0001A0002) ( 6 (0 0)) IDLDIFFERENCE D1 (I 1 Y I 0 X F 0 RESETVARSLST) gP (6 IDLDIFFERENCEA0001) (2 IDLDIFFERENCE) () IDLEQPA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) P c¿Q ch(12Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLEQPA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 RESETVARSLST F 1 X F 2 Y) gP hð´QR (17Q EQP.LISP 6 IDLEQPA0001A0002) (2 UERRORGUARD) () IDLEQP D1 (I 1 Y I 0 X F 0 RESETVARSLST) @A µ gP (15Q IDLEQPA0001 4 EQP.LISP) (11Q EQP) () IDLEXPTA0001A0002 D1 (I 1 N I 0 A) @ bA b@´ d´@A (26Q EXPT.LISP 11Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLEXPTA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 A F 1 N) goPQ(13Q EAPPLY.CALLER) (2 IDLEXPTA0001A0002) ( 6 (0 0)) IDLEXPT D1 (I 1 N I 0 A F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q EXPT.LISP 24Q IDLEXPTA0001) (20Q EXPT 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLGCDA0001A0002 D1 (I 1 Y I 0 X) @´ A´@A (12Q GCD.LISP) NIL () IDLGCDA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDLGCDA0001A0002) ( 6 (0 0)) IDLGCD D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q GCD.LISP 24Q IDLGCDA0001) (20Q GCD 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLGREATERPA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) P c¿Q ch(12Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLGREATERPA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y F 2 RESETVARSLST) &gR P£jc¿Q£jc¿Pd3 ™¿Q3 “PQñPQò(6 IDLGREATERPA0001A0002) (2 UERRORGUARD) () IDLGREATERP D1 (I 1 Y I 0 X F 0 RESETVARSLST) gP (6 IDLGREATERPA0001) (2 GREATERP) () IDLLESSPA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) P c¿Q ch(12Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLLESSPA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 RESETVARSLST F 1 X F 2 Y) gP QµjRµjýó(6 IDLLESSPA0001A0002) (2 UERRORGUARD) () IDLLESSP D1 (I 1 Y I 0 X F 0 RESETVARSLST) gP (6 IDLLESSPA0001) (2 LESSP) () IDLLOGA0001A0002 D1 (I 0 X) @ bd’ (12Q LOG.LISP 3 CONV.SCALAR) NIL () IDLLOGA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) goP(12Q EAPPLY.CALLER) (2 IDLLOGA0001A0002) ( 6 (0)) IDLLOG D1 (I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@ (26Q LOG.LISP 17Q IDLLOGA0001) (13Q LOG 5 ARRAYFRAMETYPE#) () IDLMAXA0001A0002 D1 (P 4 MAX P 3 V P 2 I P 0 NARGS) (eHk"JdIó‘La [šL•KdLó¡K\¿JkÔZ°å(23Q CONV.SCALAR) NIL () IDLMAXA0001 D1 (NAME UERRORSET P 4 I I 1 URESETVARSLST I 0 UERRORNAME F 5 NARGS) <Ujñ´7ggoUAk\Hó³gL »JµKhZ¹LkÔ°èK&º°øI (71Q APPLY 37Q ARG) (33Q NARGS 12Q IDLMAXA0001A0002 7 EAPPLY.CALLER) ( 16Q (0 ...)) IDLMAX D1 (P 0 NARGS F 3 RESETVARSLST) =eHlð²,HkJdIóš¿i²@A a´öJda`ð“¿h°ékÔZ°ÞgS (72Q IDLMAXA0001 35Q MAX.LISP) (66Q MAX 50Q ARRAYFRAMETYPE#) () IDLMINA0001A0002 D1 (P 4 MIN P 3 V P 2 I P 0 NARGS) $eH1kZdIó‘La [—L“LKó‘K¼JkÔ°è(23Q CONV.SCALAR) NIL () IDLMINA0001 D1 (NAME UERRORSET P 4 I I 1 URESETVARSLST I 0 UERRORNAME F 5 NARGS) <Ujñ´7ggoUAk\Hó³gL »JµKhZ¹LkÔ°èK&º°øI (71Q APPLY 37Q ARG) (33Q NARGS 12Q IDLMINA0001A0002 7 EAPPLY.CALLER) ( 16Q (0 ...)) IDLMIN D1 (P 0 NARGS F 3 RESETVARSLST) =eHlð²,HkJdIóš¿i²@A a´öJda`ð“¿h°ékÔZ°ÞgS (72Q IDLMINA0001 35Q MIN.LISP) (66Q MIN 50Q ARRAYFRAMETYPE#) () IDLMINUSA0001A0002 D1 (I 0 X) @ bd’ (12Q MINUS.LISP 3 CONV.SCALAR) NIL () IDLMINUSA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) goP(12Q EAPPLY.CALLER) (2 IDLMINUSA0001A0002) ( 6 (0)) IDLMINUS D1 (I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@ (26Q MINUS.LISP 17Q IDLMINUSA0001) (13Q MINUS 5 ARRAYFRAMETYPE#) () IDLMINUSPA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) P ch(3 CONV.SCALAR) NIL () IDLMINUSPA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RESETVARSLST) gQ P´jPó(6 IDLMINUSPA0001A0002) (2 UERRORGUARD) () IDLMINUSP D1 (I 0 X F 0 RESETVARSLST) gP (6 IDLMINUSPA0001) (2 MINUSP) () IDLPLUSA0001A0002 D1 (P 4 V P 3 I P 2 SUM P 0 NARGS) "eHj"k[dIó‘Ja \´úJLÔºKkÔ°ë(24Q CONV.SCALAR) NIL () IDLPLUSA0001 D1 (NAME UERRORSET P 4 I I 1 URESETVARSLST I 0 UERRORNAME F 5 NARGS) 7ggoUAk\Hó³gL »JµKhZ¹LkÔ°èK&º°øI (64Q APPLY 32Q ARG) (26Q NARGS 5 IDLPLUSA0001A0002 2 EAPPLY.CALLER) ( 11Q (0 ...)) IDLPLUS D1 (P 0 NARGS F 3 RESETVARSLST) ;eHlð²*HkJdIó˜¿i²@AÔa´øJda`ð“¿h°ëkÔZ°àgS (70Q IDLPLUSA0001) (64Q PLUS 46Q ARRAYFRAMETYPE#) () IDLQUOTIENTA0001A0002 D1 (I 1 Y I 0 X) @ bA b@´d´@Aë(11Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLQUOTIENTA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDLQUOTIENTA0001A0002) ( 6 (0 0)) IDLQUOTIENT D1 (I 1 Y I 0 X F 0 RESETVARSLST) !@`ð¦A`ð—gP @´A´@A×(24Q IDLQUOTIENTA0001) (20Q QUOTIENT 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLRANDA0001A0002 D1 (I 1 UPPER I 0 LOWER) @A (4 RAND.LISP) NIL () IDLRANDA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 LOWER F 1 UPPER) goPQ(13Q EAPPLY.CALLER) (2 IDLRANDA0001A0002) ( 6 (0 0)) IDLRAND D1 (I 1 UPPER I 0 LOWER F 0 RESETVARSLST) @`ð¦A`ð—gP @A (32Q RAND.LISP 24Q IDLRANDA0001) (20Q RAND 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLREMAINDERA0001A0002 D1 (I 1 Y I 0 X) @ bA b@´ d´@A (26Q REMAINDER.LISP 11Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDLREMAINDERA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDLREMAINDERA0001A0002) ( 6 (0 0)) IDLREMAINDER D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q REMAINDER.LISP 24Q IDLREMAINDERA0001) (20Q REMAINDER 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDLSINA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q SIN.LISP 3 CONV.SCALAR) NIL () IDLSINA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLSINA0001A0002) ( 6 (0)) IDLSIN D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q SIN.LISP 17Q IDLSINA0001) (13Q SIN 5 ARRAYFRAMETYPE#) () IDLSQRTA0001A0002 D1 (I 0 X) @ bd’ (12Q SQRT.LISP 3 CONV.SCALAR) NIL () IDLSQRTA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X) goP(12Q EAPPLY.CALLER) (2 IDLSQRTA0001A0002) ( 6 (0)) IDLSQRT D1 (I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@ (26Q SQRT.LISP 17Q IDLSQRTA0001) (13Q SQRT 5 ARRAYFRAMETYPE#) () IDLTANA0001A0002 D1 (I 1 RADIANSFLG I 0 X) @ bd´dA (15Q TAN.LISP 3 CONV.SCALAR) NIL () IDLTANA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 RADIANSFLG) goPQ(13Q EAPPLY.CALLER) (2 IDLTANA0001A0002) ( 6 (0)) IDLTAN D1 (I 1 RADIANSFLG I 0 X F 0 RESETVARSLST) @d`ð˜¿gP ´@A (27Q TAN.LISP 17Q IDLTANA0001) (13Q TAN 5 ARRAYFRAMETYPE#) () IDLTIMESA0001A0002 D1 (P 4 V P 3 I P 2 PROD P 0 NARGS) "eHk"k[dIó‘Ja \´úJLÖºKkÔ°ë(24Q CONV.SCALAR) NIL () IDLTIMESA0001 D1 (NAME UERRORSET P 4 I I 1 URESETVARSLST I 0 UERRORNAME F 5 NARGS) 7ggoUAk\Hó³gL »JµKhZ¹LkÔ°èK&º°øI (64Q APPLY 32Q ARG) (26Q NARGS 5 IDLTIMESA0001A0002 2 EAPPLY.CALLER) ( 11Q (0 ...)) IDLTIMES D1 (P 0 NARGS F 3 RESETVARSLST) ;eHlð²*HkJdIó˜¿i²@AÖa´øJda`ð“¿h°ëkÔZ°àgS (70Q IDLTIMESA0001) (64Q TIMES 46Q ARRAYFRAMETYPE#) () IDL\SLOWDIFFERENCEA0001A0002 D1 (I 1 YY I 0 XX) @ b´ A b´@AÕ(13Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDL\SLOWDIFFERENCEA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDL\SLOWDIFFERENCEA0001A0002) ( 6 (0 0)) IDL\SLOWDIFFERENCE D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q \SLOWDIFFERENCE.LISP 24Q IDL\SLOWDIFFERENCEA0001) (20Q DIFFERENCE 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDL\SLOWPLUS2A0001A0002 D1 (I 1 YY I 0 XX) @ b´ A b´@AÔ(13Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDL\SLOWPLUS2A0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDL\SLOWPLUS2A0001A0002) ( 6 (0 0)) IDL\SLOWPLUS2 D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q \SLOWPLUS2.LISP 24Q IDL\SLOWPLUS2A0001) (20Q PLUS 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDL\SLOWQUOTIENTA0001A0002 D1 (I 1 YY I 0 XX) @ b´ A b´@Aë(13Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDL\SLOWQUOTIENTA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDL\SLOWQUOTIENTA0001A0002) ( 6 (0 0)) IDL\SLOWQUOTIENT D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q \SLOWQUOTIENT.LISP 24Q IDL\SLOWQUOTIENTA0001) (20Q QUOTIENT 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () IDL\SLOWTIMES2A0001A0002 D1 (I 1 YY I 0 XX) @ b´ A b´@AÖ(13Q CONV.SCALAR 3 CONV.SCALAR) NIL () IDL\SLOWTIMES2A0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 X F 1 Y) goPQ(13Q EAPPLY.CALLER) (2 IDL\SLOWTIMES2A0001A0002) ( 6 (0 0)) IDL\SLOWTIMES2 D1 (I 1 Y I 0 X F 0 RESETVARSLST) #@`ð¦A`ð—gP @´ A´@A (40Q \SLOWTIMES2.LISP 24Q IDL\SLOWTIMES2A0001) (20Q TIMES 13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) () MOVEARITHFNS D1 (P 7 PROPVAL P 6 PROP P 4 NEWNAME P 3 LISPFN P 2 IDLFN P 1 COMPPROPS I 0 IDLFNS) Â@o2HµhZl [g ¼Klð²3K ²-L ¥KL ¿I!Mµ°A¾KN_—LNO¿M]°çoi ¿li ¿Ki ¿ki ¿oi ¿i ¿Jlð›J –JK °+oi ¿li ¿Ji ¿ki ¿oi ¿i ¿HX±ÿK(271Q TERPRI 264Q PRIN1 253Q SPACES 245Q PRIN1 237Q SPACES 230Q PRIN1 216Q MOVD 210Q \DEFINEDP 175Q TERPRI 170Q PRIN1 157Q SPACES 151Q PRIN1 143Q SPACES 134Q PRIN1 116Q PUTPROP 63Q MOVD 55Q \DEFINEDP 47Q \DEFINEDP 33Q PACK* 24Q SUBATOM) (30Q .LISP) ( 260Q "was not defined!" 224Q "**Note: IDLfn" 164Q "was not defined!" 130Q "**Note: Lispfn" 4 (DOPVAL DMACRO BYTEMACRO)) (PRETTYCOMPRINT USERARITHCOMS) (RPAQQ USERARITHCOMS ((* loading this file will redefine most arithmetic functions to accept idl objects. punt functions are also redefined to handle the compiled case.) (DECLARE: FIRST (VARS USERARITHFNS)) (FNS * USERARITHFNS) (FNS * UTILFNS) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVEARITHFNS USERARITHFNS))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA IDLTIMES IDLPLUS IDLMIN IDLMAX))))) (RPAQQ USERARITHFNS (IDLABS IDLANTILOG IDLARCCOS IDLARCSIN IDLARCTAN IDLARCTAN2 IDLCOS IDLDIFFERENCE IDLEQP IDLEXPT IDLGCD IDLGREATERP IDLLESSP IDLLOG IDLMAX IDLMIN IDLMINUS IDLMINUSP IDLPLUS IDLQUOTIENT IDLRAND IDLREMAINDER IDLSIN IDLSQRT IDLTAN IDLTIMES IDL\SLOWDIFFERENCE IDL\SLOWPLUS2 IDL\SLOWQUOTIENT IDL\SLOWTIMES2)) (RPAQQ UTILFNS (MOVEARITHFNS)) (MOVEARITHFNS USERARITHFNS) (PUTPROPS USERARITH COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL