(FILECREATED " 3-Apr-86 00:17:28" ("compiled on " {QV}SOURCES>USERARITH.;26) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (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`ð™¿oP ´@ (27Q ABS.LISP 20Q IDLABSA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE ABS) 1) (ADDSPELL (QUOTE ABS) 2) (QUOTE ABS))) 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`ð™¿oP ´@ (27Q ANTILOG.LISP 20Q IDLANTILOGA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE ANTILOG) 1) (ADDSPELL (QUOTE ANTILOG) 2) (QUOTE ANTILOG))) 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`ð™¿oP ´@A (30Q ARCCOS.LISP 20Q IDLARCCOSA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE ARCCOS) 1) (ADDSPELL (QUOTE ARCCOS) 2) (QUOTE ARCCOS))) 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`ð™¿oP ´@A (30Q ARCSIN.LISP 20Q IDLARCSINA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE ARCSIN) 1) (ADDSPELL (QUOTE ARCSIN) 2) (QUOTE ARCSIN))) 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`ð™¿oP ´@A (30Q ARCTAN.LISP 20Q IDLARCTANA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE ARCTAN) 1) (ADDSPELL (QUOTE ARCTAN) 2) (QUOTE ARCTAN))) 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`ð˜oP @´A´@AB(42Q ARCTAN2.LISP 25Q IDLARCTAN2A0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE ARCTAN2) 1) (ADDSPELL (QUOTE ARCTAN2) 2) (QUOTE ARCTAN2))) 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`ð™¿oP ´@A (30Q COS.LISP 20Q IDLCOSA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE COS) 1) (ADDSPELL (QUOTE COS) 2) (QUOTE COS))) IDLDIFFERENCEA0001A0002A0003A0004A0005 D1 (I 1 Y I 0 X) @ bA b@´d´@AÕ(11Q CONV.SCALAR 3 CONV.SCALAR) NIL () 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) 9TdI UdI J`ð¦K`ð˜oV J´K´JKÕ(54Q IDLDIFFERENCEA0001A0002A0003A0004 22Q CONV.SCALAR 10Q CONV.SCALAR) (42Q ARRAYFRAMETYPE# 33Q ARRAYFRAMETYPE#) ( 50Q (PROGN (ADDSPELL (QUOTE DIFFERENCE) 1) (ADDSPELL (QUOTE DIFFERENCE) 2) (QUOTE DIFFERENCE))) IDLDIFFERENCEA0001A0002 D1 (I 1 Y I 0 X F 0 RESETVARSLST) oP (7 IDLDIFFERENCEA0001A0002A0003) NIL ( 3 (PROGN (ADDSPELL (QUOTE IDLDIFFERENCE) 1) (ADDSPELL (QUOTE IDLDIFFERENCE) 2) (QUOTE 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) oP (7 IDLDIFFERENCEA0001) NIL ( 3 (PROGN (ADDSPELL (QUOTE IDLDIFFERENCE) 1) (ADDSPELL (QUOTE IDLDIFFERENCE) 2) (QUOTE 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 µ oP (16Q IDLEQPA0001 4 EQP.LISP) NIL ( 12Q (PROGN (ADDSPELL (QUOTE EQP) 1) (ADDSPELL (QUOTE EQP) 2) (QUOTE 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`ð˜oP @´ A´@A (41Q EXPT.LISP 25Q IDLEXPTA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE EXPT) 1) (ADDSPELL (QUOTE EXPT) 2) (QUOTE EXPT))) 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`ð˜oP @´ A´@A (41Q GCD.LISP 25Q IDLGCDA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE GCD) 1) (ADDSPELL (QUOTE GCD) 2) (QUOTE GCD))) 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) oP (7 IDLGREATERPA0001) NIL ( 3 (PROGN (ADDSPELL (QUOTE GREATERP) 1) (ADDSPELL (QUOTE GREATERP) 2) (QUOTE 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) oP (7 IDLLESSPA0001) NIL ( 3 (PROGN (ADDSPELL (QUOTE LESSP) 1) (ADDSPELL (QUOTE LESSP) 2) (QUOTE 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`ð™¿oP ´@ (27Q LOG.LISP 20Q IDLLOGA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE LOG) 1) (ADDSPELL (QUOTE LOG) 2) (QUOTE LOG))) 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°ÞoS (73Q IDLMAXA0001 35Q MAX.LISP) (50Q ARRAYFRAMETYPE#) ( 67Q (PROGN (ADDSPELL (QUOTE MAX) 1) (ADDSPELL (QUOTE MAX) 2) (QUOTE MAX))) 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°ÞoS (73Q IDLMINA0001 35Q MIN.LISP) (50Q ARRAYFRAMETYPE#) ( 67Q (PROGN (ADDSPELL (QUOTE MIN) 1) (ADDSPELL (QUOTE MIN) 2) (QUOTE MIN))) 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`ð™¿oP ´@ (27Q MINUS.LISP 20Q IDLMINUSA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE MINUS) 1) (ADDSPELL (QUOTE MINUS) 2) (QUOTE MINUS))) 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) oP (7 IDLMINUSPA0001) NIL ( 3 (PROGN (ADDSPELL (QUOTE MINUSP) 1) (ADDSPELL (QUOTE MINUSP) 2) (QUOTE 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°àoS (71Q IDLPLUSA0001) (46Q ARRAYFRAMETYPE#) ( 65Q (PROGN (ADDSPELL (QUOTE PLUS) 1) (ADDSPELL (QUOTE PLUS) 2) (QUOTE PLUS))) 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`ð˜oP @´A´@A×(25Q IDLQUOTIENTA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE QUOTIENT) 1) (ADDSPELL (QUOTE QUOTIENT) 2) (QUOTE QUOTIENT))) 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`ð˜oP @A (33Q RAND.LISP 25Q IDLRANDA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE RAND) 1) (ADDSPELL (QUOTE RAND) 2) (QUOTE RAND))) 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`ð˜oP @´ A´@A (41Q REMAINDER.LISP 25Q IDLREMAINDERA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE REMAINDER) 1) (ADDSPELL (QUOTE REMAINDER) 2) (QUOTE REMAINDER))) 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`ð™¿oP ´@A (30Q SIN.LISP 20Q IDLSINA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE SIN) 1) (ADDSPELL (QUOTE SIN) 2) (QUOTE SIN))) 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`ð™¿oP ´@ (27Q SQRT.LISP 20Q IDLSQRTA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE SQRT) 1) (ADDSPELL (QUOTE SQRT) 2) (QUOTE SQRT))) 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`ð™¿oP ´@A (30Q TAN.LISP 20Q IDLTANA0001) (5 ARRAYFRAMETYPE#) ( 14Q (PROGN (ADDSPELL (QUOTE TAN) 1) (ADDSPELL (QUOTE TAN) 2) (QUOTE TAN))) 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°àoS (71Q IDLTIMESA0001) (46Q ARRAYFRAMETYPE#) ( 65Q (PROGN (ADDSPELL (QUOTE TIMES) 1) (ADDSPELL (QUOTE TIMES) 2) (QUOTE TIMES))) 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`ð˜oP @´ A´@A (41Q \SLOWDIFFERENCE.LISP 25Q IDL\SLOWDIFFERENCEA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE DIFFERENCE) 1) (ADDSPELL (QUOTE DIFFERENCE) 2) (QUOTE DIFFERENCE))) 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`ð˜oP @´ A´@A (41Q \SLOWPLUS2.LISP 25Q IDL\SLOWPLUS2A0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE PLUS) 1) (ADDSPELL (QUOTE PLUS) 2) (QUOTE PLUS))) 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`ð˜oP @´ A´@A (41Q \SLOWQUOTIENT.LISP 25Q IDL\SLOWQUOTIENTA0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE QUOTIENT) 1) (ADDSPELL (QUOTE QUOTIENT) 2) (QUOTE QUOTIENT))) 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`ð˜oP @´ A´@A (41Q \SLOWTIMES2.LISP 25Q IDL\SLOWTIMES2A0001) (13Q ARRAYFRAMETYPE# 4 ARRAYFRAMETYPE#) ( 21Q (PROGN (ADDSPELL (QUOTE TIMES) 1) (ADDSPELL (QUOTE TIMES) 2) (QUOTE TIMES))) 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