(FILECREATED "13-May-86 17:40:34" ("compiled on " {ERIS}LIBRARY>CMLARITHNEW.;4) "12-May-86 17:46:14" recompiled changes: ISQRT PRIMEP SIGNUM %%SIGNUM PHASE EQL %%RATIO-DEFPRINT %%MAKE-RATIO NUMERATOR DENOMINATOR %%COMPARE-RATIO %%COMPARE-RATIO-INTEGER %%FIXNUM/ %%BUILD-RATIO %%RATIO-TRUNC RATIONALP RATIONAL RATIONALIZE %%RATIONALIZE-FLOAT %%RATIO* %%RATIO/ %%RATIO-TIMES-QUOTIENT %%RATIO-INVERSE %%RATIO-MINUS %%RATIO+ %%RATIO- %%RATIO-PLUS-DIFFERENCE %%INTEGER/ %%RATIO-INTEGER* %%RATIO-INTEGER/ %%RATIO-INTEGER+ %%RATIO-INTEGER- %%COMPLEX-DEFPRINT COMPLEXP COMPLEX %%MAKE-COMPLEX REALPART IMAGPART %%COMPLEX+ %%COMPLEX- %%COMPLEX* %%COMPLEX/ %%COMPARE-COMPLEX-COMPLEX %%COMPLEX-ABS %%COMPLEX-MINUS %%COMPLEX-TIMESI CONJUGATE PLUSP = %%= /= < > <= >= + - CL:* / %%/ 1+ 1- CL:GCD %%GCD LCM FLOAT \FLOAT CL:FLOOR TRUNCATE CEILING ROUND CL:MOD REM FFLOOR FCEILING FTRUNCATE FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT NEW-GREATERP NEW-LESSP NEW-MINUSP NEW-EQP NEW-ABS NEW-MINUS %%+ %%- %%* %%/ NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2 BOOLE LOGTEST LOGBITP LOGCOUNT %%LOGCOUNT BYTE-SIZE BYTE-POSITION LDB-TEST MASK-FIELD DEPOSIT-FIELD in "Xerox Lisp 12-May-86 ..." dated "12-May-86 18:12:51") (FILECREATED "13-May-86 17:31:41" {ERIS}LIBRARY>CMLARITHNEW.;4 122139 changes to: (VARS CMLARITHNEWCOMS) (RECORDS RATIO COMPLEX) (MACROS %%NUMERATOR %%DENOMINATOR %%REALPART %%IMAGPART - / 1+ 1-) (FNS ISQRT PRIMEP SIGNUM %%SIGNUM PHASE EQL %%RATIO-DEFPRINT %%MAKE-RATIO NUMERATOR DENOMINATOR %%COMPARE-RATIO %%COMPARE-RATIO-INTEGER %%FIXNUM/ %%BUILD-RATIO %%RATIO-TRUNC RATIONALP RATIONAL RATIONALIZE %%RATIONALIZE-FLOAT %%RATIO* %%RATIO/ %%RATIO-TIMES-QUOTIENT %%RATIO-INVERSE %%RATIO-MINUS %%RATIO+ %%RATIO- %%RATIO-PLUS-DIFFERENCE %%INTEGER/ %%RATIO-INTEGER* %%RATIO-INTEGER/ %%RATIO-INTEGER+ %%RATIO-INTEGER- %%COMPLEX-DEFPRINT COMPLEXP COMPLEX %%MAKE-COMPLEX REALPART IMAGPART %%COMPLEX+ %%COMPLEX- %%COMPLEX* %%COMPLEX/ %%COMPARE-COMPLEX-COMPLEX %%COMPLEX-ABS %%COMPLEX-MINUS %%COMPLEX-TIMESI CONJUGATE PLUSP = %%= /= < > <= >= + - CL:* / %%/ 1+ 1- CL:GCD %%GCD LCM CL:FLOOR TRUNCATE CEILING ROUND CL:MOD REM FFLOOR FCEILING FTRUNCATE FROUND FLOAT \FLOAT DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT NEW-GREATERP NEW-LESSP NEW-MINUSP NEW-EQP NEW-ABS NEW-MINUS %%+ %%- %%* NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP LOGCOUNT %%LOGCOUNT LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2 BOOLE LOGTEST LOGBITP BYTE-SIZE BYTE-POSITION LDB-TEST MASK-FIELD DEPOSIT-FIELD) previous date: "12-May-86 12:47:12" {ERIS}LIBRARY>CMLARITHNEW.;3) ISQRT D1 (P 3 HI P 2 LO P 0 LG I 0 N) \@3 ²Oj@ó³J@ kHkÕmÿ JdHkåjð¢mÿ€j ÔKkÕJó¡JJKÔmÿ YddÖ@ó¤¿Iº°æ[°äo@ (131Q CL:ERROR 102Q ASH 56Q ASH 34Q ASH 31Q ASH 15Q INTEGER-LENGTH) NIL ( 125Q "Isqrt: ~S argument must be a nonnegative integer") PRIMEP D1 (P 3 D P 2 INC P 1 R P 0 Q I 0 X) f@dló³¿l@óhð´ @l hðkåjðhð´ùj@l hð´ëlkllIj £KHó—Ij hð@K \¸L¹JlæKJÔ»º°Ö(122Q \MVLIST 117Q TRUNCATE 107Q %%= 75Q %%= 52Q %%= 47Q REM 25Q %%=) NIL () SIGNUM D1 (I 0 NUMBER) (@djð¨d– ‘@@ ™@ ‘kmÿ@d (45Q %%/ 42Q ABS 27Q PLUSP 22Q RATIONALP 13Q \FZEROP) NIL () %%SIGNUM D1 (P 0 RES I 0 X) ,@ ‘k‹@jð³@µmÿ@žH@¿ ²íj°ìH(43Q \FZEROP 3 PLUSP) (37Q FLOATP) () PHASE D1 (I 0 NUMBER) @ ›@ @ j(17Q CL:ATAN 14Q IMAGPART 10Q REALPART 3 COMPLEXP) NIL () EQL D1 (I 1 Y I 0 X) ~@Aðµy@3´tA3´o@d3 ›¿A3 •@AÙjð@™A•@A @d`ð²%¿A`ð²@ A Ùjð´2@ A Ùjð@`ð´A`ð´@ A :´@ A :(172Q IMAGPART 166Q IMAGPART 157Q REALPART 153Q REALPART 123Q DENOMINATOR 117Q DENOMINATOR 106Q NUMERATOR 102Q NUMERATOR 53Q FEQP) (144Q COMPLEXTYPE# 134Q COMPLEXTYPE# 73Q RATIOTYPE# 62Q RATIOTYPE#) () %%RATIO-DEFPRINT D1 (I 0 N) @Éo @É(14Q CONCAT) (20Q RATIO 3 RATIO) ( 11Q "/") %%MAKE-RATIO D1 (I 1 DENOMINATOR I 0 NUMERATOR) `d@¿dA¿NIL (2 RATIOTYPE#) () NUMERATOR D1 (P 0 $$TYPE-VALUE I 0 X) @Hd3 ‘@`ð–@É@l (35Q \LISPERROR) (24Q RATIO 16Q RATIOTYPE#) () DENOMINATOR D1 (P 0 $$TYPE-VALUE I 0 X) @Hd3 ‘k`ð–@É@l (35Q \LISPERROR) (24Q RATIO 16Q RATIOTYPE#) () %%COMPARE-RATIO D1 (P 5 YSIGN P 4 XSIGN P 3 DENY P 2 NUMY P 1 DENX P 0 NUMX I 1 Y I 0 X) @ @ A A !jHó¼jJó½LMð¦L²WgHjð¨Hdž ™Jjð³+Jµ!HJ –IK ³HJ ²IKóŸL²Ìg ²ÞgL²ògIK ˜HJó²ógHKÖJIÖ (214Q COMPARE-NUMBERS 171Q %%= 147Q \FZEROP 127Q %%= 120Q %%= 112Q %%= 72Q \FZEROP 30Q DENOMINATOR 21Q NUMERATOR 12Q DENOMINATOR 3 NUMERATOR) (202Q > 163Q < 154Q = 143Q > 55Q <) () %%COMPARE-RATIO-INTEGER D1 (P 6 A0038 P 5 XI P 4 XR P 3 XSIGN P 2 DENX P 0 NUMX I 1 Y I 0 X) v@ @ jHó[jAóð¦K³PgkJ •HA HJ ¹ I¼I]A Ndgð³Ðgð³Ngð´Ljð³LµjLó²´g ²ôg(156Q \FZEROP 100Q COMPARE-NUMBERS 61Q \MVLIST 56Q TRUNCATE 50Q COMPARE-NUMBERS 42Q %%= 12Q DENOMINATOR 3 NUMERATOR) (163Q = 152Q < 125Q = 116Q < 110Q > 34Q >) () %%FIXNUM/ D1 (P 0 GCD-X-Y I 1 Y I 0 X) HmÿA @o ”o@A Hk ¯@H b¿AH b¿jAó™j@ÕjAÕ @A (105Q %%MAKE-RATIO 77Q %%MAKE-RATIO 57Q %%/ 47Q %%/ 41Q %%= 31Q %%GCD 16Q %%= 5 %%=) NIL ( 23Q 200000Q 13Q -200000Q) %%BUILD-RATIO D1 (P 3 CL:GCD P 2 Q P 1 R I 1 Y I 0 X) W@A !H¹HºIjð³9Iµ/@A Kk ¯@K b¿AK b¿jAó²j@ÕjAÕ ²ÐJ@A (124Q %%MAKE-RATIO 113Q \FZEROP 107Q %%MAKE-RATIO 66Q %%/ 56Q %%/ 50Q %%= 40Q %%GCD 7 \MVLIST 4 TRUNCATE) NIL () %%RATIO-TRUNC D1 (P 2 Q P 1 R I 0 X) :@É@É !H¹HZIjð¨Id– ‘j‰I@É (67Q VALUES 64Q %%BUILD-RATIO 47Q \FZEROP 21Q \MVLIST 16Q TRUNCATE) (57Q RATIO 11Q RATIO 3 RATIO) () RATIONALP D1 (L (0 NUMBER)) @d3 ‘i`ðNIL (12Q RATIOTYPE#) () RATIONAL D1 (P 5 F P 4 PRECISION P 3 F P 2 E P 0 $$TYPE-VALUE I 0 X) ‚@Hd3 ‘@lð²I@ ¹IºIK KL jJóžMkLJ Ô MJ kL Hd`ð³ª`ð²@ @ @l (177Q \LISPERROR 170Q %%MAKE-COMPLEX 165Q RATIONAL 162Q IMAGPART 156Q RATIONAL 153Q REALPART 126Q %%BUILD-RATIO 123Q ASH 116Q ASH 110Q %%BUILD-RATIO 105Q ASH 101Q ABS 63Q TRUNCATE 60Q SCALE-FLOAT 50Q FLOAT-PRECISION 27Q \MVLIST 24Q DECODE-FLOAT) (144Q COMPLEXTYPE# 135Q RATIOTYPE#) () RATIONALIZE D1 (P 0 $$TYPE-VALUE I 0 X) B@H3 §Hd`ð‘@lð˜@o H`ð²@ @ @l (77Q \LISPERROR 70Q %%MAKE-COMPLEX 65Q RATIONALIZE 62Q IMAGPART 56Q RATIONALIZE 53Q REALPART 36Q %%RATIONALIZE-FLOAT) (44Q COMPLEXTYPE# 15Q RATIOTYPE#) ( 33Q 1.192093E-7) %%RATIONALIZE-FLOAT D1 (P 11Q ODEN P 10Q ONUM P 7 DEN P 6 NUM P 5 XX P 4 A P 3 Y P 2 EPS P 1 X P 0 \CL:LAMBDA.ARGCNT) Ã ekHñ˜oH ¿Hlñ˜oH ¿@lHñ”o€AºjIó˜jdIÕ ÕIjð³PIµF Id \kdj Ojð³8O–O ³,INI¿OI¿ ÕI JóNO ²¹joMLI¿Õ [d \NÖOÔLOÖOÔNO_¿_¿_¿¾½°•(244Q TRUNCATE 237Q %%/ 214Q \FZEROP 210Q %%/ 177Q ABS 174Q %%/ 167Q %%/ 144Q \FZEROP 115Q TRUNCATE 71Q RATIONALIZE 35Q ERROR 17Q ERROR) (233Q FLOATP 164Q FLOATP 155Q FLOATP) ( 224Q 1.0 53Q 1.192093E-7 31Q "Too many args" 13Q "Too few args") %%RATIO* D1 (P 3 DENY P 2 DENX P 1 NUMY P 0 NUMX I 1 Y I 0 X) %@ A @ A HJIK(42Q %%RATIO-TIMES-QUOTIENT 30Q DENOMINATOR 21Q DENOMINATOR 12Q NUMERATOR 3 NUMERATOR) NIL () %%RATIO/ D1 (P 3 DENY P 2 DENX P 1 NUMY P 0 NUMX I 1 Y I 0 X) 5@ A @ A jIó›HJjKÕjIÕHJKI(62Q %%RATIO-TIMES-QUOTIENT 52Q %%RATIO-TIMES-QUOTIENT 30Q DENOMINATOR 21Q DENOMINATOR 12Q NUMERATOR 3 NUMERATOR) NIL () %%RATIO-TIMES-QUOTIENT D1 (P 3 K P 2 H P 1 GCDH2K1 P 0 GCDH1K2 I 3 K2 I 2 H2 I 1 K1 I 0 H1) R@C BA Hk ¯@H b¿CH b¿Ik ¯BI b¿AI b¿@BÖACÖKk ‘JJK (117Q %%MAKE-RATIO 107Q %%= 65Q %%/ 55Q %%/ 47Q %%= 37Q %%/ 27Q %%/ 21Q %%= 11Q %%GCD 4 %%GCD) NIL () %%RATIO-INVERSE D1 (P 1 DENX P 0 NUMX I 0 X) M@ @ Hjð³HµkH ²I ²ôo ¿°êmÿH “jIÕjIó™jIÕjHÕ IH (112Q %%MAKE-RATIO 104Q %%MAKE-RATIO 62Q %%= 51Q CL:ERROR 40Q \FZEROP 31Q %%= 7 DENOMINATOR 3 NUMERATOR) NIL ( 46Q "%%RATIO-INVERSE : the inverse of zero is not defined.") %%RATIO-MINUS D1 (I 0 X) j@ Õ@ (14Q %%MAKE-RATIO 11Q DENOMINATOR 4 NUMERATOR) NIL () %%RATIO+ D1 (I 1 Y I 0 X) @A (4 %%RATIO-PLUS-DIFFERENCE) NIL () %%RATIO- D1 (I 1 Y I 0 X) @Ai(5 %%RATIO-PLUS-DIFFERENCE) NIL () %%RATIO-PLUS-DIFFERENCE D1 (P 10Q K2/D2 P 7 D2 P 6 TEE P 5 K1/D1 P 4 D1 P 3 K2 P 2 H2 P 1 K1 P 0 H1 I 2 DIFFERENCEFLG I 1 Y I 0 X) @ @ A A IK B“jJÕºLk HKÖJIÖÔIKÖ IL HKL ÖJMÖÔNL K_¿Ok ¯KO _¿NO ¾Mk ˜MO ‘NNMOÖ (215Q %%MAKE-RATIO 202Q %%= 173Q %%= 165Q %%/ 154Q %%/ 145Q %%= 130Q %%GCD 113Q %%/ 102Q %%/ 74Q %%MAKE-RATIO 56Q %%= 40Q %%GCD 30Q DENOMINATOR 21Q NUMERATOR 12Q DENOMINATOR 3 NUMERATOR) NIL () %%INTEGER/ D1 (P 2 ZI P 1 ZR I 1 Y I 0 X) DAjð³4Aµ*@A !H¹HºIjð¯Iµ@A ²÷J ²Õo@A¿°É(77Q CL:ERROR 64Q \FZEROP 55Q \FZEROP 51Q %%BUILD-RATIO 21Q \MVLIST 16Q TRUNCATE) NIL ( 72Q "~A / ~A") %%RATIO-INTEGER* D1 (P 1 CL:GCD P 0 DEN I 1 Y I 0 X) OAjð³1Aµ'@ HA Ik ³AI b¿HI X‡ ²ØjHk –@ AÖ@ AÖH (114Q %%MAKE-RATIO 106Q NUMERATOR 77Q NUMERATOR 72Q %%= 61Q \FZEROP 54Q %%/ 44Q %%/ 35Q %%= 25Q %%GCD 15Q DENOMINATOR) NIL () %%RATIO-INTEGER/ D1 (P 1 CL:GCD P 0 NUM I 1 Y I 0 X) IAjð³:Aµ0@ HA Ik HI ¸AI b¿H@ AÖ ²Ïo@ ¿°Ä(104Q CL:ERROR 72Q \FZEROP 66Q %%MAKE-RATIO 61Q DENOMINATOR 51Q %%/ 43Q %%/ 35Q %%= 25Q %%GCD 15Q NUMERATOR) NIL ( 100Q "Attempt to divide ~A by zero.") %%RATIO-INTEGER+ D1 (P 0 DENX I 1 Y I 0 X) @É@ÉHAÖÔH (26Q %%MAKE-RATIO) (14Q RATIO 3 RATIO) () %%RATIO-INTEGER- D1 (P 0 DENX I 1 Y I 0 X) @É@ÉHAÖÕH (26Q %%MAKE-RATIO) (14Q RATIO 3 RATIO) () %%COMPLEX-DEFPRINT D1 (I 0 N) o@ @ h(13Q IMAGPART 7 REALPART) NIL ( 3 "#C") COMPLEXP D1 (L (0 obj)) @`ðNIL (4 COMPLEXTYPE#) () COMPLEX D1 (P 4 $$TYPE-VALUE P 3 $$TYPE-VALUE P 2 IMAGPART P 1 REALPART P 0 \CL:LAMBDA.ARGCNT) ŠekHñ˜oH ¿Hlñ˜oH ¿@lHñ‘j€AºIK3 ©Kd`ð²7¿Jj:‘IJL3 ¨Ld`ð–¿IJ lð˜IJ oJ lð˜IJ oI (207Q CL:ERROR 176Q %%MAKE-COMPLEX 160Q CL:ERROR 147Q %%MAKE-COMPLEX 131Q %%MAKE-COMPLEX 35Q ERROR 17Q ERROR) (173Q FLOATP 143Q FLOATP 121Q RATIOTYPE# 71Q RATIOTYPE#) ( 203Q "~S is a bad realpart for a complex number." 154Q "~S is a bad imagpart for a complex number." 31Q "Too many args" 13Q "Too few args") %%MAKE-COMPLEX D1 (I 1 IMAGPART I 0 REALPART) `d@¿dA¿NIL (2 COMPLEXTYPE#) () REALPART D1 (L (0 object)) @ÉNIL (3 COMPLEX) () IMAGPART D1 (L (0 object)) @ÉNIL (3 COMPLEX) () %%COMPLEX+ D1 (I 1 Y I 0 X) @ A Ô@ A Ô (24Q COMPLEX 20Q IMAGPART 14Q IMAGPART 7 REALPART 3 REALPART) NIL () %%COMPLEX- D1 (I 1 Y I 0 X) @ A Õ@ A Õ (24Q COMPLEX 20Q IMAGPART 14Q IMAGPART 7 REALPART 3 REALPART) NIL () %%COMPLEX* D1 (P 3 C2 P 2 R2 P 1 C1 P 0 R1 I 1 Z2 I 0 Z1) /@ @ A A HJÖIKÖÕIJÖHKÖÔ (54Q COMPLEX 30Q IMAGPART 21Q REALPART 12Q IMAGPART 3 REALPART) NIL () %%COMPLEX/ D1 (P 6 MULT1 P 5 CONS2 P 4 CONS1 P 3 C2 P 2 R2 P 1 C1 P 0 R1 I 1 Z2 I 0 Z1) D@ @ A A 1JdÖ¼KdÖ½HJÖ^IKÖÔLMÔ IJÖHKÖÕLMÔ (101Q COMPLEX 76Q %%/ 61Q %%/ 30Q IMAGPART 21Q REALPART 12Q IMAGPART 3 REALPART) NIL () %%COMPARE-COMPLEX-COMPLEX D1 (I 1 Z2 I 0 Z1) @ A ´@ A ´g(27Q %%= 24Q IMAGPART 20Q IMAGPART 12Q %%= 7 REALPART 3 REALPART) (34Q =) () %%COMPLEX-ABS D1 (P 10Q ADEN P 7 ANUM P 6 RDEN P 5 RNUM P 4 $$TYPE-VALUE P 3 A P 2 R P 1 Y P 0 X I 0 Z) w P@ÉX@ÉYHdÖIdÖÔZd\d3 Ÿ [dÖJð¤J Klð³õL`ð²7@JÉ½JÉ¾M _dÖMð¤J N _dÖNð²ñOO (164Q SHOULDNT 160Q %%MAKE-RATIO 141Q ISQRT 134Q SQRT 121Q ISQRT 53Q SQRT 41Q ISQRT) (112Q RATIO 103Q RATIO 71Q RATIOTYPE# 15Q COMPLEX 6 COMPLEX) () %%COMPLEX-MINUS D1 (I 0 Z) j@ Õj@ Õ (16Q COMPLEX 12Q IMAGPART 4 REALPART) NIL () %%COMPLEX-TIMESI D1 (I 0 Z) j@ Õ@ (14Q COMPLEX 11Q REALPART 4 IMAGPART) NIL () CONJUGATE D1 (I 0 NUMBER) 1@d`ð²(¿`@ÉHdI¿j@ÉÕHdI¿NIL (42Q COMPLEX 21Q COMPLEX 14Q COMPLEXTYPE# 5 COMPLEXTYPE#) () PLUSP D1 (L (0 NUMBER)) @jóNIL NIL () = D1 (P 4 X P 2 MORE-NUMBERS P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) Y ekHñ˜oH ¿@1Hl2 NdMóš¿OZ[µ#ia_¿OµOh__¿NkÔ^°ÜO&_¿°ô¼IL ¡hK°Ï(120Q %%= 17Q ERROR) NIL ( 13Q "Too few args") %%= D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 Y I 0 X) #@Aðµ‚±@Hd3 ²5¿AId3 –¿@AÙjðlð•@A I`ð¦I`ð‘hAl `ð²LAId`ð² ¿@ A Ùjð´‚±¸@ A Ùjðlð•@A I3 ³·I`ð³¯Al Hdlð²0¿AIlð¬I3 ¨Id`ð–¿@A `ð’±ÿzAl `ð²IAId`ð²¿@ A ´4@ A 3 ’±ÿ?Ilð’±ÿ6I`ð’±ÿ,Al @l (440Q \LISPERROR 431Q \LISPERROR 371Q %%= 366Q IMAGPART 362Q IMAGPART 354Q %%= 351Q REALPART 345Q REALPART 313Q \LISPERROR 273Q FEQP 225Q \LISPERROR 201Q FEQP 163Q DENOMINATOR 157Q DENOMINATOR 142Q NUMERATOR 136Q NUMERATOR 104Q \LISPERROR 55Q FEQP) (416Q RATIOTYPE# 335Q COMPLEXTYPE# 320Q COMPLEXTYPE# 300Q COMPLEXTYPE# 263Q RATIOTYPE# 214Q COMPLEXTYPE# 126Q RATIOTYPE# 111Q RATIOTYPE# 72Q COMPLEXTYPE# 63Q RATIOTYPE#) () /= D1 (P 12Q X P 10Q Y P 6 NUMBERS P 0 \CL:LAMBDA.ARGCNT) XeHk2JdIó²¿K!N O_µ*ia½Lµ Mh\»JkÔZ°ÚM&¼°÷_¿OO ‘hˆO_µëi¡hO°Æ(102Q %%=) NIL () < D1 (L (0 \CL:LAMBDA.ARGCNT)) CeHk2JdIó²¿KIZ”Jd³ia½Lµ Mh\»JkÔZ°ÜM&¼°÷Jýó¡hJ°ÖNIL NIL () > D1 (L (0 \CL:LAMBDA.ARGCNT)) BeHk2JdIó²¿KIZ”Jd³ia½Lµ Mh\»JkÔZ°ÜM&¼°÷Jó¡hJ°×NIL NIL () <= D1 (L (0 \CL:LAMBDA.ARGCNT)) BeHk2JdIó²¿KIZ”Jd³ia½Lµ Mh\»JkÔZ°ÜM&¼°÷Jó‘hJ°×NIL NIL () >= D1 (L (0 \CL:LAMBDA.ARGCNT)) CeHk2JdIó²¿KIZ”Jd³ia½Lµ Mh\»JkÔZ°ÜM&¼°÷Jýó‘hJ°ÖNIL NIL () + D1 (L (0 N)) $e0Hjð‘j@ºk»KHð«KkØ[a¹JIÔº°òJNIL NIL () - D1 (L (0 N)) (e0Hkð•@¹jIÕ@ºk»KHð«KkØ[a¹JIÕº°òJNIL NIL () CL:* D1 (L (0 N)) $e0Hjð‘k@ºk»KHð«KkØ[a¹JIÖº°òJNIL NIL () / D1 (P 11Q X P 2 NUMBERS P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) b ekHñ˜oH ¿@Hl2LdKó›¿MZµ!kI a_¿NµOh^½LkÔ\°ßO&¾°ö OµI_¿IO ¹O_°ë(130Q %%/ 52Q %%/ 17Q ERROR) NIL ( 13Q "Too few args") %%/ D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 N2 I 0 N1) y@Hd3 ²]¿AId3 ²¿@A jð“@AÛ@A lð“@AëId`ðž¿A @ÖA `ð™@j A Al ib°lð²LAI3 §Idlð”¿@Aë`ðA @ÖA I`ðœ@o A Al ib±ÿNHd`ð²Q¿AId3 ž¿@ @ AÖ lð“@AëId`ð–¿@A `ð™@j A Al ib±þö`ð²YAId3 š¿@Aj lðœ@Ao Id`ðž¿A @ÖA `ð•@A Al ib±þ˜@l ib±þ‹(561Q \LISPERROR 543Q \LISPERROR 533Q %%COMPLEX/ 517Q %%/ 514Q NUMERATOR 506Q DENOMINATOR 470Q %%COMPLEX/ 465Q %%MAKE-COMPLEX 446Q %%COMPLEX/ 443Q %%MAKE-COMPLEX 405Q \LISPERROR 375Q %%COMPLEX/ 371Q %%MAKE-COMPLEX 355Q %%RATIO/ 325Q %%BUILD-RATIO 320Q DENOMINATOR 314Q NUMERATOR 255Q \LISPERROR 245Q %%COMPLEX/ 241Q %%MAKE-COMPLEX 221Q %%/ 216Q NUMERATOR 210Q DENOMINATOR 136Q \LISPERROR 126Q %%COMPLEX/ 122Q %%MAKE-COMPLEX 106Q %%/ 103Q NUMERATOR 75Q DENOMINATOR 46Q %%BUILD-RATIO 32Q IMOD) (524Q COMPLEXTYPE# 477Q RATIOTYPE# 420Q COMPLEXTYPE# 362Q COMPLEXTYPE# 345Q RATIOTYPE# 272Q RATIOTYPE# 227Q COMPLEXTYPE# 202Q RATIOTYPE# 113Q COMPLEXTYPE# 66Q RATIOTYPE#) ( 462Q 0.0 236Q 0.0) 1+ D1 (L (0 X)) @kÔNIL NIL () 1- D1 (L (0 X)) @kÕNIL NIL () CL:GCD D1 (P 12Q INTEGERS P 11Q RES P 10Q INTEGERS P 2 INTEGER2 P 1 INTEGER1 P 0 \CL:LAMBDA.ARGCNT) pekHñ‘j€@lHñ‘j€AºHl2LdKó²#¿MIJ O O—Ok ²Oa_¿NµOh^½LkÔ\°ÉO&¾°öOO _¿O_°Ë(144Q %%GCD 76Q %%= 55Q %%GCD) NIL () %%GCD D1 (P 3 TEE P 2 K P 1 V P 0 U I 1 V I 0 U) Ÿ@ A Hjð³HµkI ¥kH ˜k ²ïIjHkåjð–Ikåjð³JHdkåjð³¿jIÕ°Hmÿ ¸Imÿ ¹JkÔº°Îmÿ Kjð¨Kdš •HJ Kkåjð˜Kmÿ [°ôK ’KX„jKÕ¹HIÕ[°Ï(217Q PLUSP 210Q ASH 173Q ASH 165Q \FZEROP 146Q ASH 132Q ASH 123Q ASH 45Q \FZEROP 37Q %%= 31Q %%= 7 ABS 3 ABS) NIL () LCM D1 (P 13Q ARGS P 12Q ARGS P 4 RES P 3 CL:GCD P 2 ARG P 1 ARG1 P 0 \CL:LAMBDA.ARGCNT) ‰ekHñ˜oH ¿@1Hl2 NdMó²<¿O hZ»I¼OO²%Ldjð³ µOZL »JKk ²+L°- ²éLa_¿OµOh__¿NkÔ^°¬O&_¿°ôLK Ö¼O_°®(176Q %%/ 126Q \FZEROP 116Q %%= 107Q %%GCD 17Q ERROR) NIL ( 13Q "Too few args") FLOAT D1 (L (1 OTHER 0 NUMBER)) @NIL (3 FLOATP) () \FLOAT D1 (P 2 SIGN P 1 LO P 0 HI I 0 X) ²@µ‚±…@d3 ¢±ƒdlð²B¿@È@ÈjHnÿñ²%IjðHjð³nÿÿHÙkØ¸nÿÿHÙ¸nÿÿIÙkØ¹kZ€JlžHIi kð²2jjj@ñ¢@°kº@Ójð“k¸j‡nÿÿ@ÓÙkØJlžHIi @ `ð@É@Éë@l ib±ÿS(253Q \LISPERROR 217Q \BIGNUM.TO.FLOAT 212Q \MAKEFLOAT 126Q \MAKEFLOAT) (240Q RATIO 232Q RATIO 224Q RATIOTYPE#) () CL:FLOOR D1 (P 5 TRU P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) lekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K½Ljð³#L•L ³jJó”I ‚jIó™MkÕLJÔ ML (151Q VALUES 143Q VALUES 125Q PLUSP 113Q \FZEROP 63Q \MVLIST 60Q TRUNCATE 35Q ERROR 17Q ERROR) NIL ( 31Q "Too many args" 13Q "Too few args") TRUNCATE D1 (P 10Q $$TYPE-VALUE P 7 $$TYPE-VALUE P 6 $$TYPE-VALUE P 5 $$TYPE-VALUE P 4 REM P 3 TRU P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) ekHñ˜oH ¿Hlñ˜oH ¿@1lHñ‘k€Aºh[¼Jkð²9IMd3 “¿I°(lð•I °M`ðIÉIÉÛ…Il ±ŽINd3 ²7¿JOd3 •¿IJÛ°#lð”IJë°O`ð˜IJ Jl °Mlð²1JO3 ¨Odlð•¿IJë°`ð˜IJ Jl °N`ð˜IJ Il [IKJÖÕ\KL (401Q VALUES 364Q \LISPERROR 355Q TRUNCATE 352Q %%/ 333Q \LISPERROR 324Q TRUNCATE 321Q %%/ 246Q \LISPERROR 237Q TRUNCATE 234Q %%/ 146Q \LISPERROR 111Q \FIXP.FROM.FLOATP 35Q ERROR 17Q ERROR) (343Q RATIOTYPE# 312Q RATIOTYPE# 225Q RATIOTYPE# 134Q RATIO 126Q RATIO 120Q RATIOTYPE#) ( 31Q "Too many args" 13Q "Too few args") CEILING D1 (P 5 TRU P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) lekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K½Ljð³#L•L ³jJó“jIóƒI ™MkÔLJÕ ML (151Q VALUES 143Q VALUES 131Q PLUSP 113Q \FZEROP 63Q \MVLIST 60Q TRUNCATE 35Q ERROR 17Q ERROR) NIL ( 31Q "Too many args" 13Q "Too few args") ROUND D1 (P 10Q -THRESH P 7 TRU P 6 REM P 4 THRESH P 3 DIVISOR P 2 DIVP P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) ® ekHñ˜oH ¿Hlñ˜oH ¿@AlHñ‘k‚iºA»h¼IK ½ M¾M_¿J™K l ƒo¼NLóNL ²Okåjð¯jKó²0OkÕNKÔ jLÕONóµNO ´ OkåjðhðŸjKó²ÔOkÔNKÕ ON (253Q VALUES 244Q VALUES 211Q %%= 166Q VALUES 136Q %%= 117Q %%/ 112Q ABS 67Q \MVLIST 64Q TRUNCATE 35Q ERROR 17Q ERROR) NIL ( 124Q .5 31Q "Too many args" 13Q "Too few args") CL:MOD D1 (P 0 REM I 1 DIVISOR I 0 NUMBER) +@A Hdjð³•H ³jAó”@ ‚j@ó“HAÔH(36Q PLUSP 24Q \FZEROP 4 REM) NIL () REM D1 (I 1 DIVISOR I 0 NUMBER) @A (7 \MVLIST 4 TRUNCATE) NIL () FFLOOR D1 (P 5 FLR P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) HekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K]L (105Q VALUES 63Q \MVLIST 60Q CL:FLOOR 35Q ERROR 17Q ERROR) (101Q FLOATP) ( 31Q "Too many args" 13Q "Too few args") FCEILING D1 (P 5 CEI P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) HekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K]L (105Q VALUES 63Q \MVLIST 60Q CEILING 35Q ERROR 17Q ERROR) (101Q FLOATP) ( 31Q "Too many args" 13Q "Too few args") FTRUNCATE D1 (P 5 TRU P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) HekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K]L (105Q VALUES 63Q \MVLIST 60Q TRUNCATE 35Q ERROR 17Q ERROR) (101Q FLOATP) ( 31Q "Too many args" 13Q "Too few args") FROUND D1 (P 5 ROU P 4 REM P 2 DIVISOR P 1 NUMBER P 0 \CL:LAMBDA.ARGCNT) HekHñ˜oH ¿Hlñ˜oH ¿@!lHñ‘k€AºIJ » K¼K]L (105Q VALUES 63Q \MVLIST 60Q ROUND 35Q ERROR 17Q ERROR) (101Q FLOATP) ( 31Q "Too many args" 13Q "Too few args") DECODE-FLOAT D1 (I 0 F) 7@Êáààààààà@Ê–n?ää@ÈÑí@Êl~Ù@Êjð”oƒo(64Q VALUES) NIL ( 61Q -1.0 54Q 1.0) SCALE-FLOAT D1 (I 1 INTEGER I 0 FLOAT) $@bdÊ@ÊAlØØ@Ê–l€Ø@Èi (41Q \MAKEFLOAT) (3 FLOATP) () FLOAT-RADIX D1 (I 0 F) o l(6 CL:DECLARE) NIL ( 3 ((IGNORE F))) FLOAT-SIGN D1 (P 1 FLOAT1 P 0 \CL:LAMBDA.ARGCNT) @ekHñ˜oH ¿Hlñ˜oH ¿@lHñ–kI¿€AºjIójJóð‘JjJÕ(35Q ERROR 17Q ERROR) (55Q FLOATP) ( 31Q "Too many args" 13Q "Too few args") FLOAT-DIGITS D1 (P 0 $$TYPE-VALUE I 0 F) @Hlð’lo@ (24Q CL:ERROR) NIL ( 20Q "Float-digits: ~A not a float") FLOAT-PRECISION D1 (I 0 F) @jð¨@d– ‘j@ (22Q FLOAT-DIGITS 13Q \FZEROP) NIL () INTEGER-DECODE-FLOAT D1 (P 5 F P 4 E P 3 S P 0 PRECISION I 0 X) .@ !@ ¹0IZ»J¼I]H LHÕK(53Q VALUES 44Q TRUNCATE 41Q SCALE-FLOAT 15Q \MVLIST 12Q DECODE-FLOAT 3 FLOAT-PRECISION) NIL () NEW-GREATERP D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 Y I 0 X) É@Hd3 ²4¿AId3 ”¿@Añlð“@AòI`ð›A @ÖA ñAl lð²/AI3 §Idlð”¿@Aò`ð›A @ÖA òAl H`ð²LAId3 œ¿@ @ AÖñlð›@ @ ëAòI`ð²@ A ÖA @ ÖñAl @l (306Q \LISPERROR 277Q \LISPERROR 266Q DENOMINATOR 262Q NUMERATOR 255Q DENOMINATOR 251Q NUMERATOR 231Q DENOMINATOR 225Q NUMERATOR 210Q DENOMINATOR 204Q NUMERATOR 155Q \LISPERROR 145Q NUMERATOR 137Q DENOMINATOR 72Q \LISPERROR 62Q NUMERATOR 54Q DENOMINATOR) (242Q RATIOTYPE# 163Q RATIOTYPE# 131Q RATIOTYPE# 46Q RATIOTYPE#) () NEW-LESSP D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 Y I 0 X) Î@Hd3 ²5¿AId3 ”¿A@ñlð“A@òI`ðœA @ÖA ýñAl lð²0AI3 §Idlð”¿A@ò`ðœA @ÖA ýòAl H`ð²OAId3 ¿@ @ AÖýñlðœ@ @ ëAýòI`ð²@ A ÖA @ ÖýñAl @l (313Q \LISPERROR 304Q \LISPERROR 272Q DENOMINATOR 266Q NUMERATOR 261Q DENOMINATOR 255Q NUMERATOR 234Q DENOMINATOR 230Q NUMERATOR 212Q DENOMINATOR 206Q NUMERATOR 157Q \LISPERROR 146Q NUMERATOR 140Q DENOMINATOR 73Q \LISPERROR 62Q NUMERATOR 54Q DENOMINATOR) (246Q RATIOTYPE# 165Q RATIOTYPE# 132Q RATIOTYPE# 46Q RATIOTYPE#) () NEW-MINUSP D1 (L (0 X)) j@óNIL NIL () NEW-EQP D1 (I 1 Y I 0 X) D@Aðµ?@d3›¿A3•@A @Að´(@dlð˜¿@ÈAÈðlð´@ÊClð´@A (101Q EQDEFP 23Q %%=) (64Q ARRAYP) () NEW-ABS D1 (P 0 $$TYPE-VALUE I 0 X) [@Hd3 š¿j@ñ“j@Ù@lðžo@ò²óo@éHd`ð²¿j@ ñ²Új@ Ù@ `ð”@ @l (130Q \LISPERROR 121Q %%COMPLEX-ABS 106Q %%MAKE-RATIO 103Q DENOMINATOR 76Q NUMERATOR 66Q NUMERATOR) (113Q COMPLEXTYPE# 55Q RATIOTYPE#) ( 44Q 0.0 34Q 0.0) NEW-MINUS D1 (L (0 N)) j@ÕNIL NIL () %%+ D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 N2 I 0 N1) R@Hd3 ²F¿AId3 ”¿@AØlð“@AèId`ð–¿A@ `ð™@j A Al ib°´lð²JAI3 §Idlð”¿@Aè`ð›@A A ëèI`ðœ@o A Al ib±ÿgHd`ð²Q¿AId3 –¿@A lð›@ @ ëAèId`ð–¿@A `ð™@j A Al ib±ÿ`ð²KAId3 š¿@Aj lðœ@Ao Id`ð³Ü`ð•@A Al ib±þ¿@l ib±þ²(512Q \LISPERROR 474Q \LISPERROR 464Q %%COMPLEX+ 437Q %%COMPLEX+ 434Q %%MAKE-COMPLEX 415Q %%COMPLEX+ 412Q %%MAKE-COMPLEX 354Q \LISPERROR 344Q %%COMPLEX+ 340Q %%MAKE-COMPLEX 324Q %%RATIO+ 302Q DENOMINATOR 276Q NUMERATOR 264Q %%RATIO-INTEGER+ 224Q \LISPERROR 214Q %%COMPLEX+ 210Q %%MAKE-COMPLEX 166Q DENOMINATOR 162Q NUMERATOR 107Q \LISPERROR 77Q %%COMPLEX+ 73Q %%MAKE-COMPLEX 57Q %%RATIO-INTEGER+) (455Q COMPLEXTYPE# 446Q RATIOTYPE# 367Q COMPLEXTYPE# 331Q COMPLEXTYPE# 314Q RATIOTYPE# 241Q RATIOTYPE# 176Q COMPLEXTYPE# 153Q RATIOTYPE# 64Q COMPLEXTYPE# 47Q RATIOTYPE#) ( 431Q 0.0 205Q 0.0) %%- D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 N2 I 0 N1) V@Hd3 ²J¿AId3 ”¿@AÙlð“@AéId`ðš¿@k A `ð™@j A Al ib°°lð²JAI3 §Idlð”¿@Aé`ð›@A A ëéI`ðœ@o A Al ib±ÿcHd`ð²Q¿AId3 –¿@A lð›@ @ ëAéId`ð–¿@A `ð™@j A Al ib±ÿ`ð²KAId3 š¿@Aj lðœ@Ao Id`ð³Ü`ð•@A Al ib±þ»@l ib±þ®(516Q \LISPERROR 500Q \LISPERROR 470Q %%COMPLEX- 443Q %%COMPLEX- 440Q %%MAKE-COMPLEX 421Q %%COMPLEX- 416Q %%MAKE-COMPLEX 360Q \LISPERROR 350Q %%COMPLEX- 344Q %%MAKE-COMPLEX 330Q %%RATIO- 306Q DENOMINATOR 302Q NUMERATOR 270Q %%RATIO-INTEGER- 230Q \LISPERROR 220Q %%COMPLEX- 214Q %%MAKE-COMPLEX 172Q DENOMINATOR 166Q NUMERATOR 113Q \LISPERROR 103Q %%COMPLEX- 77Q %%MAKE-COMPLEX 63Q %%RATIO- 57Q %%MAKE-RATIO) (461Q COMPLEXTYPE# 452Q RATIOTYPE# 373Q COMPLEXTYPE# 335Q COMPLEXTYPE# 320Q RATIOTYPE# 245Q RATIOTYPE# 202Q COMPLEXTYPE# 157Q RATIOTYPE# 70Q COMPLEXTYPE# 47Q RATIOTYPE#) ( 435Q 0.0 211Q 0.0) %%* D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 N2 I 0 N1) QAHd3 ²F¿@Id3 ”¿@AÚlð“@AêId`ð–¿@A `ð™@Aj @l ib°´lð²J@I3 §Idlð”¿@Aê`ð›@ @ ëAêI`ðœ@Ao @l ib±ÿgHd`ð²Q¿@Id3 –¿A@ lð›@A A ëêId`ð–¿A@ `ð™@Aj @l ib±ÿ`ð²J@I3 ¨Id`ðš¿@j A lðœ@o A I`ð•@A @l ib±þÀAl ib±þ³(511Q \LISPERROR 473Q \LISPERROR 463Q %%COMPLEX* 446Q %%COMPLEX* 442Q %%MAKE-COMPLEX 424Q %%COMPLEX* 420Q %%MAKE-COMPLEX 354Q \LISPERROR 344Q %%COMPLEX* 341Q %%MAKE-COMPLEX 324Q %%RATIO* 303Q DENOMINATOR 277Q NUMERATOR 264Q %%RATIO-INTEGER* 224Q \LISPERROR 214Q %%COMPLEX* 211Q %%MAKE-COMPLEX 165Q DENOMINATOR 161Q NUMERATOR 107Q \LISPERROR 77Q %%COMPLEX* 74Q %%MAKE-COMPLEX 57Q %%RATIO-INTEGER*) (454Q COMPLEXTYPE# 410Q RATIOTYPE# 367Q COMPLEXTYPE# 331Q COMPLEXTYPE# 314Q RATIOTYPE# 241Q RATIOTYPE# 176Q COMPLEXTYPE# 153Q RATIOTYPE# 64Q COMPLEXTYPE# 47Q RATIOTYPE#) ( 437Q 0.0 206Q 0.0) %%/ D1 (P 1 $$TYPE-VALUE P 0 $$TYPE-VALUE I 1 N2 I 0 N1) y@Hd3 ²]¿AId3 ²¿@A jð“@AÛ@A lð“@AëId`ðž¿A @ÖA `ð™@j A Al ib°lð²LAI3 §Idlð”¿@Aë`ðA @ÖA I`ðœ@o A Al ib±ÿNHd`ð²Q¿AId3 ž¿@ @ AÖ lð“@AëId`ð–¿@A `ð™@j A Al ib±þö`ð²YAId3 š¿@Aj lðœ@Ao Id`ðž¿A @ÖA `ð•@A Al ib±þ˜@l ib±þ‹(561Q \LISPERROR 543Q \LISPERROR 533Q %%COMPLEX/ 517Q %%/ 514Q NUMERATOR 506Q DENOMINATOR 470Q %%COMPLEX/ 465Q %%MAKE-COMPLEX 446Q %%COMPLEX/ 443Q %%MAKE-COMPLEX 405Q \LISPERROR 375Q %%COMPLEX/ 371Q %%MAKE-COMPLEX 355Q %%RATIO/ 325Q %%BUILD-RATIO 320Q DENOMINATOR 314Q NUMERATOR 255Q \LISPERROR 245Q %%COMPLEX/ 241Q %%MAKE-COMPLEX 221Q %%/ 216Q NUMERATOR 210Q DENOMINATOR 136Q \LISPERROR 126Q %%COMPLEX/ 122Q %%MAKE-COMPLEX 106Q %%/ 103Q NUMERATOR 75Q DENOMINATOR 46Q %%BUILD-RATIO 32Q IMOD) (524Q COMPLEXTYPE# 477Q RATIOTYPE# 420Q COMPLEXTYPE# 362Q COMPLEXTYPE# 345Q RATIOTYPE# 272Q RATIOTYPE# 227Q COMPLEXTYPE# 202Q RATIOTYPE# 113Q COMPLEXTYPE# 66Q RATIOTYPE#) ( 462Q 0.0 236Q 0.0) NEW-SLOWIPLUS2 D1 (NAME IPLUS P 5 $$TYPE-VALUE P 4 SIGNX P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) $P@dlð™¿@È¸@È°dkð²$¿j@ñ£j¸@…nÿÿ¸@Ó¹Adlð²F¿AÈºAÈ°Plð—@ b°¿@d`ðŸÉ@ÉÛb°§M3’°l@l ib°dkð²,¿jAñ£jºA…nÿÿºAÓ»Hnÿñ¼HdnÿÿJÙñ²NnÿÿJÙkØÙ°Flð˜A b±ÿ|Ad`ð²ÉAÉÛb±ÿbM3–@A Al ib±ÿFJØ¸IdnÿÿKÙñ²¿Hdnÿÿð’¿jkØ¸InÿÿKÙkØÙKØ¹LJnÿñð˜LHnÿñð²¶HIõ(337Q \LISPERROR 327Q \BIGNUM.PLUS 253Q \FIXP.FROM.FLOATP 157Q \LISPERROR 102Q \FIXP.FROM.FLOATP) (302Q RATIO 274Q RATIO 266Q RATIOTYPE# 127Q RATIO 121Q RATIO 114Q RATIOTYPE#) () NEW-SLOWIDIFFERENCE D1 (NAME IDIFFERENCE P 5 $$TYPE-VALUE P 4 SIGNX P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) mP@dlð™¿@È¸@È°dkð²$¿j@ñ£j¸@…nÿÿ¸@Ó¹Adlð²F¿AÈºAÈ°Qlð—@ b°¿@d`ðŸÉ@ÉÛb°§M3’°n@l ib°dkð².¿jAñ¤jºA[‡nÿÿºAÓ»Ajð’±ÙKjð²SJjð³\nÿÿJÙkØº°Rlð˜A b±ÿzAd`ð²ÉAÉÛb±ÿ`M3–@A Al ib±ÿDnÿÿJÙºnÿÿKÙkØ»Hnÿñ¼Kjð³ KµHdnÿÿJÙñ²nÿÿJÙkØÙ° ²éJn€ð²âHJæ¸L°9JØ¸IdnÿÿKÙñ²¿Hdnÿÿð’¿jkØ¸InÿÿKÙkØÙKØ¹LJnÿñðšLHnÿñð¢±ÿpHIõ(434Q \FZEROP 341Q \LISPERROR 331Q \BIGNUM.DIFFERENCE 255Q \FIXP.FROM.FLOATP 157Q \LISPERROR 102Q \FIXP.FROM.FLOATP) (304Q RATIO 276Q RATIO 270Q RATIOTYPE# 127Q RATIO 121Q RATIO 114Q RATIOTYPE#) () NEW-SLOWITIMES2 D1 (NAME ITIMES P 10Q $$TYPE-VALUE P 7 CARRY P 6 LR P 5 HR P 4 SIGN P 3 LY P 2 LX P 1 HY P 0 HX I 1 Y I 0 X) = @jð£Ajð‘j€j]¾@dlð™¿@È¸@È°dkð²$¿j@ñ£j¸@…nÿÿ¸@ÓºAdlð²G¿AÈ¹AÈ°Qlð—@ b°¿@d`ðŸÉ@ÉÛb°§O3’°v@l ib°dkð²5¿jAñ£j¹A…nÿÿ¹AÓ»Hnÿñ²q@oô³FJjð²THjð³]nÿÿHÙkØ¸°Slð˜A b±ÿrAd`ð²ÉAÉÛb±ÿXO3–@A Al ib±ÿ;nÿÿHÙ¸nÿÿJÙkØºi¼Idnÿñ²0¿Aoô³ÎKjðIjð³nÿÿIÙkØ¹nÿÿIÙ¹nÿÿKÙkØ»Lhð¼Ijð¬Hjð²¡KJ»ºIH¹¸Kdâ»kåjð³KNdnÿÿJÙñšnÿÿJkÙÙÙ¾kƒJØ¾j_¿MHOØØ]nÿñ²#Kjð¢±ÿaL¢±ÿ\Mn€ð¢±ÿSNjð¢±ÿLoKjð³NKµDn@Hñ³[Hn@ð¢±ÿ-Jjð®J¢±ÿ"J ¢±ÿL¢±ÿKkð¢±ÿMjð¢±ÿNjð¢±ÿo ²»L²?Njð²,Mdjð³5¿nÿÿMÙkØ]°*Hà¸Jdnÿñ™¿HkÔ¸Jnÿåàº±ÿ-nÿÿMÙ½nÿÿNÙkØ¾MNõ(765Q \FZEROP 717Q \FZEROP 367Q \LISPERROR 357Q \BIGNUM.TIMES 302Q \FIXP.FROM.FLOATP 175Q \LISPERROR 117Q \FIXP.FROM.FLOATP) (331Q RATIO 323Q RATIO 315Q RATIOTYPE# 144Q RATIO 136Q RATIO 131Q RATIOTYPE#) ( 761Q -20000000000Q 645Q -20000000000Q 433Q -20000000000Q 243Q -20000000000Q) NEW-SLOWIQUOTIENT D1 (NAME IQUOTIENT P 11Q $$TYPE-VALUE P 10Q SIGNREMAINDER P 7 SIGNQUOTIENT P 6 LY P 5 HY P 4 LX P 3 HX P 2 LZ P 1 HZ P 0 CNT I 1 Y I 0 X F 12Q \OVERFLOW) ¢ jddc@dlð™¿@È»@È°dkð²$¿j@ñ£j»@…nÿÿ»@Ó¼Adlð²H¿AÈ½AÈ°Rlð—@ b°¿@d`ðŸÉ@ÉÛb°§ O3“±¹@l ib°Ždkð²-¿jAñ£j½A…nÿÿ½AÓ¾Knÿñ²jLjð²QKjð³ZnÿÿKÙkØ»°Plð˜A b±ÿyAd`ð²ÉAÉÛb±ÿ_ O3“±JAl ib±ÿEnÿÿKÙ»nÿÿLÙkØ¼i__¿Mnÿñ²)NjðMjð³nÿÿMÙkØ½nÿÿMÙ½nÿÿNÙkØ¾Ohð_¿Kjð²zMjð²$Ljð³NdjðŸ¿Wið—oA jkð²'Lºj¼O¢±BJjð¢±-Idjð’±4¿nÿÿIÙkØY±(LNñžNdnÿñ¨à¾HkØ¸°ïNLñ§LNÙ¼JkØºNâ¾HkÙ¸jHñ³¶Jàº°åMjð²XN]jð³O²O®NkðšKn€ð”Ljð³\j¾l¸MKð“LNñ¨KdMñ¢±•¿nÿMñ¢±ŠMà½Ndnÿñ™¿MkÔ½Nnÿåà¾HkØ°ÌO²ÉO³ÅLjð²ÀKn€ð²¹Mdjð²´¿Nkð²@A nÿÿNLÙÙkØ¼kÙ»JkØºNâ¾Mdkåjð§¿Nn€Ø¾Mâ½HkÙ¸jHñ’±ÿIà¹Jdnÿñ™¿IkÔ¹JnÿåàºKMñ«MKð²ÄNdLñ³¿¿KMÙNLñ³¤LNÙ¼j°¨nÿÿIÙ¹nÿÿJÙkØºIJõ(1050Q \BIGNUM.QUOTIENT 515Q ERROR 343Q \LISPERROR 261Q \FIXP.FROM.FLOATP 164Q \LISPERROR 105Q \FIXP.FROM.FLOATP) (310Q RATIO 302Q RATIO 274Q RATIOTYPE# 132Q RATIO 124Q RATIO 117Q RATIOTYPE#) ( 511Q "DIVIDE BY ZERO") NEW-IREMAINDER D1 (P 11Q $$TYPE-VALUE P 10Q SIGNREMAINDER P 7 SIGNQUOTIENT P 6 LY P 5 HY P 4 LX P 3 HX P 2 LZ P 1 HZ P 0 CNT I 1 Y I 0 X F 12Q \OVERFLOW) ¢ jddc@dlð™¿@È»@È°dkð²$¿j@ñ£j»@…nÿÿ»@Ó¼Adlð²H¿AÈ½AÈ°Rlð—@ b°¿@d`ðŸÉ@ÉÛb°§ O3“±¹@l ib°Ždkð²-¿jAñ£j½A…nÿÿ½AÓ¾Knÿñ²jLjð²QKjð³ZnÿÿKÙkØ»°Plð˜A b±ÿyAd`ð²ÉAÉÛb±ÿ_ O3“±JAl ib±ÿEnÿÿKÙ»nÿÿLÙkØ¼i__¿Mnÿñ²)NjðMjð³nÿÿMÙkØ½nÿÿMÙ½nÿÿNÙkØ¾Ohð_¿Kjð²zMjð²$Ljð³NdjðŸ¿Wið—oA jkð²'Lºj¼O¢±BLjð¢±-Kdjð’±4¿nÿÿKÙkØ[±(LNñžNdnÿñ¨à¾HkØ¸°ïNLñ§LNÙ¼JkØºNâ¾HkÙ¸jHñ³¶Jàº°åMjð²XN]jð³O²O®NkðšKn€ð”Ljð³\j¾l¸MKð“LNñ¨KdMñ¢±•¿nÿMñ¢±ŠMà½Ndnÿñ™¿MkÔ½Nnÿåà¾HkØ°ÌO²ÉO³ÅLjð²ÀKn€ð²¹Mdjð²´¿Nkð²@A nÿÿNLÙÙkØ¼kÙ»JkØºNâ¾Mdkåjð§¿Nn€Ø¾Mâ½HkÙ¸jHñ’±ÿIà¹Jdnÿñ™¿IkÔ¹JnÿåàºKMñ«MKð²ÄNdLñ³¿¿KMÙNLñ³¤LNÙ¼j°¨nÿÿKÙ»nÿÿLÙkØ¼KLõ(1050Q \BIGNUM.REMAINDER 515Q ERROR 343Q \LISPERROR 261Q \FIXP.FROM.FLOATP 164Q \LISPERROR 105Q \FIXP.FROM.FLOATP) (310Q RATIO 302Q RATIO 274Q RATIOTYPE# 132Q RATIO 124Q RATIO 117Q RATIOTYPE#) ( 511Q "DIVIDE BY ZERO") NEW-SLOWIGREATERP D1 (NAME IGREATERP P 4 $$TYPE-VALUE P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) ä@@dlð™¿@È¸@È°dkð²$¿j@ñ£j¸@…nÿÿ¸@Ó¹Adlð²F¿AÈºAÈ°Plð—@ b°¿@d`ðŸÉ@ÉÛb°§L3’°\@l ib°dkð²¿jAñ£jºA…nÿÿºAÓ»HdJð²J¿IKñlð—A b°‹Ad`ð²ÉAÉÛb±ÿrL3˜@A kðAl ib±ÿTn€æJn€æñ(321Q \LISPERROR 307Q \BIGNUM.COMPARE 234Q \FIXP.FROM.FLOATP 157Q \LISPERROR 102Q \FIXP.FROM.FLOATP) (262Q RATIO 254Q RATIO 246Q RATIOTYPE# 127Q RATIO 121Q RATIO 114Q RATIOTYPE#) () LOGEQV D1 (L (0 \CL:LAMBDA.ARGCNT)) GeHk2JdIó²¿KIµmÿI¹ºI³Ja½Lµ Mh\»JkÔZ°×M&¼°÷JII¹mÿææ°ÛNIL NIL () LOGNAND D1 (L (1 INTEGER2 0 INTEGER1)) @AåmÿæNIL NIL () LOGNOR D1 (L (1 INTEGER2 0 INTEGER1)) @AämÿæNIL NIL () LOGANDC1 D1 (L (1 INTEGER2 0 INTEGER1)) @mÿæAåNIL NIL () LOGANDC2 D1 (L (1 INTEGER2 0 INTEGER1)) @AmÿæåNIL NIL () LOGORC1 D1 (L (1 INTEGER2 0 INTEGER1)) @mÿæAäNIL NIL () LOGORC2 D1 (L (1 INTEGER2 0 INTEGER1)) @AmÿæäNIL NIL () BOOLE D1 (I 2 INTEGER2 I 1 INTEGER1 I 0 OP) ©@djð‘jkð’mÿ@dlð‘Alð‘B@dlð•¿Amÿælð”Bmÿæ@dlð”¿ABålð•AB @dlð”¿ABæl ð•AB @dl ð–¿AB lð•AB @dlð–¿AB l ð•AB @dlð–¿AB lð•AB o@ (246Q CL:ERROR 235Q LOGORC2 223Q LOGORC1 206Q LOGANDC2 174Q LOGANDC1 157Q LOGNOR 145Q LOGNAND 130Q LOGEQV 103Q LOGIOR) NIL ( 242Q "~S is not of type (mod 16).") LOGTEST D1 (L (1 INTEGER2 0 INTEGER1)) @AåjðhðNIL NIL () LOGBITP D1 (L (1 INTEGER 0 INDEX)) A@ kåkð(4 RSH) NIL () LOGCOUNT D1 (P 2 ELEMENT I 0 X) P@¥@d3 ž¿j@ó”@mÿæ€@ `ð²)j@ó”@mÿæ€@ÉjHµIºIJ Ô¹HX°ïo@ (115Q CL:ERROR 76Q %%LOGCOUNT 26Q %%LOGCOUNT) (53Q BIGNUM 33Q BIGNUMTYPE#) ( 111Q "Argument not integer, ~A.") %%LOGCOUNT D1 (L (0 N)) jX@djð‘HdkÕåb¿HkÔ¸°îNIL NIL () BYTE-SIZE D1 (L (0 BYTESPEC)) @NIL NIL () BYTE-POSITION D1 (L (0 BYTESPEC)) @NIL NIL () LDB-TEST D1 (I 1 INTEGER I 0 BYTESPEC) @A jðhð(4 MASK-FIELD) NIL () MASK-FIELD D1 (L (1 INTEGER 0 BYTESPEC)) @@kIçkÙHçAåNIL NIL () DEPOSIT-FIELD D1 (L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) #@AAHkJçkÙIçmÿæåBkJçkÙåIçäNIL NIL () (PRETTYCOMPRINT CMLARITHNEWCOMS) (RPAQQ CMLARITHNEWCOMS ((* * CMLARITH. Common Lisp Arithmetic. Covers all of Common Lisp arithmetic except for higher math functions. Covers sections 2.1-2.1.4, 12.1-12.4, and 12.6-12.10 Doesn't cover sections 12.5-12.5.3. -- By Kelly Roach *) (COMS (* Miscellaneous. Placement to be figured out. *) ( FNS ISQRT PRIMEP SIGNUM %%SIGNUM PHASE)) (COMS (* * Patches around problems outside this file. *) ( COMS (* Section 6.3 *) (* * CMLTYPES replacements. *) (FNS EQL) (P (PUTPROP (QUOTE BIGNUM) (QUOTE DEFTYPE) (QUOTE (MACRO NIL (QUOTE (OR (DATATYPE FIXP) (DATATYPE BIGNUM)))))))) (COMS (* * INTERPRESS exports constants that SHOULDN'T BE IN MY ENVIRONMENT!!! *) (P (PUTHASH (QUOTE REM) NIL COMPVARMACROHASH) (PUTHASH (QUOTE SUB) NIL COMPVARMACROHASH)))) (COMS (* Section 2.1.2 Ratios. *) ( RECORDS RATIO) (P (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE RATIO)) (LOGOR \TT.NUMBERP \TT.ATOM))) ( PROP DMACRO %%NUMERATOR %%DENOMINATOR) (* TBW: Reading ratios. *) (FNS %%RATIO-DEFPRINT %%MAKE-RATIO NUMERATOR DENOMINATOR %%COMPARE-RATIO %%COMPARE-RATIO-INTEGER %%FIXNUM/ %%BUILD-RATIO %%RATIO-TRUNC RATIONALP RATIONAL RATIONALIZE %%RATIONALIZE-FLOAT %%RATIO* %%RATIO/ %%RATIO-TIMES-QUOTIENT %%RATIO-INVERSE %%RATIO-MINUS %%RATIO+ %%RATIO- %%RATIO-PLUS-DIFFERENCE %%INTEGER/ %%RATIO-INTEGER* %%RATIO-INTEGER/ %%RATIO-INTEGER+ %%RATIO-INTEGER-)) (COMS (* Section 2.1.4 Complex Numbers. *) ( RECORDS COMPLEX) (P (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (LOGOR \TT.NUMBERP \TT.ATOM))) (PROP DMACRO %%REALPART %%IMAGPART) (* TBW: Reading complex numbers. *) (FNS %%COMPLEX-DEFPRINT COMPLEXP COMPLEX %%MAKE-COMPLEX REALPART IMAGPART %%COMPLEX+ %%COMPLEX- %%COMPLEX* %%COMPLEX/ %%COMPARE-COMPLEX-COMPLEX %%COMPLEX-ABS %%COMPLEX-MINUS %%COMPLEX-TIMESI CONJUGATE)) (COMS (* Section 12.2 Predicates on Numbers. *) (* MINUSP ODDP EVENP are close enough *) (FNS PLUSP)) (COMS (* Section 12.3 Comparisons on Numbers. *) (FNS = %%= /= < > <= >=) (PROP DMACRO = /= < > <= >=) (* MAX and MIN are OK *)) (COMS (* Section 12.4 Arithmetic Operations. *) (FNS + - CL:* / %%/ 1+ 1-) (PROP DMACRO + - CL:* / 1+ 1-) (P (COND ((FOR FN IN (QUOTE (+ - 1+ 1- CL:*)) ALWAYS (CCODEP FN)) (MOVD (QUOTE +) ( QUOTE PLUS)) (MOVD (QUOTE -) (QUOTE DIFFERENCE)) (MOVD (QUOTE 1+) (QUOTE ADD1)) (MOVD (QUOTE 1-) ( QUOTE SUB1)) (MOVD (QUOTE CL:*) (QUOTE TIMES))))) (* INCF and SETF implemented by CMLSETF. *) (* CONJUGATE implemented in section 2.1.4 above. *) (FNS CL:GCD %%GCD LCM)) (COMS (* Section 12.6 Type Conversions and Component Extractions on Numbers. *) (* * LLFLOAT replacements. LLFLOAT ufns seem OK once we modify \FLOAT appropriately. *) (FNS FLOAT \FLOAT) (* NUMERATOR and DENOMINATOR implemented in section 2.1.2 above. *) (FNS CL:FLOOR TRUNCATE CEILING ROUND CL:MOD REM FFLOOR FCEILING FTRUNCATE FROUND) (* Page 218 functions. *) (FNS DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT) (* EXPT COMPLEX REALPART and IMAGPART are defined by CMLFLOAT. * )) (COMS (* LLARITH replacements. *) (COMS (* Non ufns *) (FNS NEW-GREATERP NEW-LESSP NEW-MINUSP NEW-EQP NEW-ABS NEW-MINUS) (P (COND ((FOR FN IN (QUOTE (NEW-GREATERP NEW-LESSP NEW-MINUSP NEW-EQP NEW-ABS NEW-MINUS)) ALWAYS (CCODEP FN)) (MOVD (QUOTE NEW-GREATERP) (QUOTE GREATERP)) (MOVD (QUOTE NEW-LESSP) (QUOTE LESSP)) (MOVD (QUOTE NEW-MINUSP) (QUOTE MINUSP)) (MOVD (QUOTE NEW-EQP) (QUOTE EQP)) (MOVD (QUOTE NEW-ABS) (QUOTE ABS)) (MOVD (QUOTE NEW-MINUS) (QUOTE MINUS)))))) (COMS (* New LLARITH UFNS *) (COMS (* GENERAL ARITH UFNS Now know about RATIOs and CVOMPLEXs. Completely recoded. *) (* NOTE: %%/ CAN NOT COMPILE INTO THE EXISTING QUOTIENT OPCODE. This is because %%/ is supposed to produce a rational when numerator is not evenly divisible by denominator. Therefore, there is no MACRO for %%/ below. *) (MACROS %%+ %%- %%*) (FNS %%+ %%- %%* %%/)) (COMS (* INTEGER ARITH UFNS .UNBOX. is made to understand RATIOs so integer arith ufns must be recompiled. *) (MACROS .UNBOX.) (FNS NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP) ) (P (COND ((FOR FN IN (QUOTE (%%+ %%- %%* %%/ NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP)) ALWAYS (CCODEP FN)) (MOVD (QUOTE %%+) (QUOTE \SLOWPLUS2)) (MOVD (QUOTE %%-) (QUOTE \SLOWDIFFERENCE)) (MOVD (QUOTE %%*) (QUOTE \SLOWTIMES2)) (MOVD ( QUOTE %%/) (QUOTE \SLOWQUOTIENT)) (MOVD (QUOTE NEW-SLOWIPLUS2) (QUOTE \SLOWIPLUS2)) (MOVD (QUOTE NEW-SLOWIDIFFERENCE) (QUOTE \SLOWIDIFFERENCE)) (MOVD (QUOTE NEW-SLOWITIMES2) (QUOTE \SLOWITIMES2)) ( MOVD (QUOTE NEW-SLOWIQUOTIENT) (QUOTE \SLOWIQUOTIENT)) (MOVD (QUOTE NEW-IREMAINDER) (QUOTE IREMAINDER) ) (MOVD (QUOTE NEW-SLOWIGREATERP) (QUOTE \SLOWIGREATERP))))))) (COMS (* Section 12.7 Logical Operations on Numbers. *) (* Page 221 functions. LOGAND LOGXOR are OK. *) (P (MOVD (QUOTE LOGOR) ( QUOTE LOGIOR))) (FNS LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2) (* Page 222.0 BOOLE and constants. *) (FNS BOOLE) (CONSTANTS BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2) (* Remainder of section 12.7 LOGNOT is OK. *) (FNS LOGTEST LOGBITP) (P (MOVD (QUOTE LSH) (QUOTE ASH))) ( FNS LOGCOUNT %%LOGCOUNT) (P (MOVD (QUOTE INTEGERLENGTH) (QUOTE INTEGER-LENGTH)))) (COMS (* Section 12.8 Byte Manipulations Functions. *) (* BYTE macro already implemented. Should be function. *) (FNS BYTE-SIZE BYTE-POSITION) (* LDB macro already implemented. Should be function. *) (FNS LDB-TEST MASK-FIELD) (* DPB macro already implemented. Should be function. *) (FNS DEPOSIT-FIELD)) (COMS (* Section 12.9 Random Numbers. *) (* TO BE INCLUDED. *)) (COMS (* Section 12.10, implementation parameters. The constants in this COMS are exported to the user. *) (MACROS **FLOAT**) (CONSTANTS ( MOST-POSITIVE-FIXNUM MAX.SMALLP) (MOST-NEGATIVE-FIXNUM MIN.SMALLP) (MOST-POSITIVE-SINGLE-FLOAT MAX.FLOAT) (LEAST-POSITIVE-SINGLE-FLOAT (**FLOAT** 1 -125)) (LEAST-NEGATIVE-SINGLE-FLOAT (**FLOAT** -1 -125)) (MOST-NEGATIVE-SINGLE-FLOAT MIN.FLOAT) (MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) ( MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) ( MOST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) ( LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (MOST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-SINGLE-FLOAT)) (* EPSILON is the smallest positive floating point number such that (NOT (= (FLOAT 1 EPSILON) (+ (FLOAT 1 EPSILON) EPSILON))) *) (CONSTANTS (SINGLE-FLOAT-EPSILON (**FLOAT** 1 -22)) (SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (DOUBLE-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) ( LONG-FLOAT-EPSILON SINGLE-FLOAT-EPSILON)) (* NEGATIVE-EPSILON is the smallest negative floating point number such that (NOT (= (FLOAT 1 NEGATIVE-EPSILON) (- (FLOAT 1 NEGATIVE-EPSILON) NEGATIVE-EPSILON))) *) (CONSTANTS (SINGLE-FLOAT-NEGATIVE-EPSILON (**FLOAT** 1 -23)) (SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (DOUBLE-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) ( LONG-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA LOGEQV FLOAT-SIGN FROUND FTRUNCATE FCEILING FFLOOR ROUND CEILING TRUNCATE CL:FLOOR LCM CL:GCD / CL:* - + >= <= > < /= = COMPLEX %%RATIONALIZE-FLOAT))))) (PUTPROP (QUOTE BIGNUM) (QUOTE DEFTYPE) (QUOTE (MACRO NIL (QUOTE (OR (DATATYPE FIXP) (DATATYPE BIGNUM) ))))) (PUTHASH (QUOTE REM) NIL COMPVARMACROHASH) (PUTHASH (QUOTE SUB) NIL COMPVARMACROHASH) (DATATYPE RATIO (NUMERATOR DENOMINATOR) (INIT (DEFPRINT (QUOTE RATIO) (QUOTE %%RATIO-DEFPRINT))) ( SYSTEM)) (/DECLAREDATATYPE (QUOTE RATIO) (QUOTE (POINTER POINTER)) (QUOTE ((RATIO 0 POINTER) (RATIO 2 POINTER)) ) (QUOTE 4)) (DEFPRINT (QUOTE RATIO) (QUOTE %%RATIO-DEFPRINT)) (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE RATIO)) (LOGOR \TT.NUMBERP \TT.ATOM)) (PUTPROPS %%NUMERATOR DMACRO (DEFMACRO (R) (BQUOTE (fetch (RATIO NUMERATOR) of (\, R))))) (PUTPROPS %%DENOMINATOR DMACRO (DEFMACRO (R) (BQUOTE (fetch (RATIO DENOMINATOR) of (\, R))))) (DATATYPE COMPLEX (REALPART IMAGPART) (INIT (DEFPRINT (QUOTE COMPLEX) (QUOTE %%COMPLEX-DEFPRINT)))) (/DECLAREDATATYPE (QUOTE COMPLEX) (QUOTE (POINTER POINTER)) (QUOTE ((COMPLEX 0 POINTER) (COMPLEX 2 POINTER))) (QUOTE 4)) (DEFPRINT (QUOTE COMPLEX) (QUOTE %%COMPLEX-DEFPRINT)) (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (LOGOR \TT.NUMBERP \TT.ATOM)) (PUTPROPS %%REALPART DMACRO (DEFMACRO (Z) (BQUOTE (fetch (COMPLEX REALPART) of (\, Z))))) (PUTPROPS %%IMAGPART DMACRO (DEFMACRO (Z) (BQUOTE (fetch (COMPLEX IMAGPART) of (\, Z))))) (PUTPROPS = DMACRO (DEFMACRO (N &REST NS) (COND ((CDR NS) (BQUOTE ((OPENLAMBDA (N) (AND (= N (\, (CAR NS))) (= N (\,@ (CDR NS))))) , N))) (T (BQUOTE (%%= (\, N) (\, (CAR NS)))))))) (PUTPROPS /= DMACRO (DEFMACRO (N &REST NS) (COND (NS (IF (CDR NS) THEN (LET ((VARS (FOR X IN (CONS N NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND ( \,@ (for X on VARS join (for Y on (CDR VARS) collect (BQUOTE (NOT (= (\, (CAAR X)) (\, (CAAR Y)))))))) )) (\,@ (MAPCAR VARS (QUOTE CADR)))))) ELSE (BQUOTE (NOT (= , N , (CAR NS)))))) (T T)))) (PUTPROPS < DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND ( \,@ (for X on VARS while (CDR X) collect (BQUOTE (LESSP (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ ( MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (LESSP (\, N) (\, (CAR NS)))))))) (PUTPROPS > DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND ( \,@ (for X on VARS while (CDR X) collect (BQUOTE (GREATERP (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ ( MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (GREATERP (\, N) (\, (CAR NS)))))))) (PUTPROPS <= DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND (\,@ (for X on VARS while (CDR X) collect (BQUOTE (LEQ (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ (MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (LEQ (\, N) (\, (CAR NS)))))))) (PUTPROPS >= DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND (\,@ (for X on VARS while (CDR X) collect (BQUOTE (GEQ (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ (MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (GEQ (\, N) (\, (CAR NS)))))))) (PUTPROPS + DMACRO (DEFMACRO (&REST NUMBERS) (COND ((NULL NUMBERS) 0) (T (BQUOTE (PLUS (\., NUMBERS))) )))) (PUTPROPS - DMACRO (DEFMACRO (NUMBER &REST NUMBERS) (COND ((NULL NUMBERS) (BQUOTE (DIFFERENCE 0 (\, NUMBER)))) (T (for X in NUMBERS do (SETQ NUMBER (BQUOTE (DIFFERENCE (\, NUMBER) (\, X)))) finally ( RETURN NUMBER)))))) (PUTPROPS CL:* DMACRO (DEFMACRO (&REST NUMBERS) (COND ((NULL NUMBERS) 1) (T (BQUOTE (TIMES (\., NUMBERS))))))) (PUTPROPS / DMACRO (DEFMACRO (NUMBER &REST NUMBERS) (COND ((NULL NUMBERS) (BQUOTE (%%/ 1 (\, NUMBER))) ) (T (for X in NUMBERS do (SETQ NUMBER (BQUOTE (%%/ (\, NUMBER) (\, X)))) finally (RETURN NUMBER)))))) (PUTPROPS 1+ DMACRO (DEFMACRO (X) (BQUOTE (PLUS (\, X) 1)))) (PUTPROPS 1- DMACRO (DEFMACRO (X) (BQUOTE (DIFFERENCE (\, X) 1)))) (COND ((FOR FN IN (QUOTE (+ - 1+ 1- CL:*)) ALWAYS (CCODEP FN)) (MOVD (QUOTE +) (QUOTE PLUS)) (MOVD ( QUOTE -) (QUOTE DIFFERENCE)) (MOVD (QUOTE 1+) (QUOTE ADD1)) (MOVD (QUOTE 1-) (QUOTE SUB1)) (MOVD ( QUOTE CL:*) (QUOTE TIMES)))) (COND ((FOR FN IN (QUOTE (NEW-GREATERP NEW-LESSP NEW-MINUSP NEW-EQP NEW-ABS NEW-MINUS)) ALWAYS (CCODEP FN)) (MOVD (QUOTE NEW-GREATERP) (QUOTE GREATERP)) (MOVD (QUOTE NEW-LESSP) (QUOTE LESSP)) (MOVD (QUOTE NEW-MINUSP) (QUOTE MINUSP)) (MOVD (QUOTE NEW-EQP) (QUOTE EQP)) (MOVD (QUOTE NEW-ABS) (QUOTE ABS)) ( MOVD (QUOTE NEW-MINUS) (QUOTE MINUS)))) (PUTPROPS %%+ MACRO (= . PLUS)) (PUTPROPS %%- MACRO (= . DIFFERENCE)) (PUTPROPS %%* MACRO (= . TIMES)) (PUTPROPS .UNBOX. MACRO ((V HV LV FORM) (PROG NIL UBLP (SELECTC (NTYPX V) (\FIXP (SETQ HV (ffetch ( FIXP HINUM) of V)) (SETQ LV (ffetch (FIXP LONUM) of V))) (\SMALLP (COND ((ILEQ 0 V) (SETQ HV 0) (SETQ LV V)) (T (SETQ HV 65535) (SETQ LV (\LOLOC V))))) (\FLOATP (SETQ V (\FIXP.FROM.FLOATP V)) (GO UBLP)) ( COND ((type? RATIO V) (SETQ V (IQUOTIENT (%%NUMERATOR V) (%%DENOMINATOR V))) (GO UBLP)) (T (TYPECASE V (NUMBER (COND ((QUOTE FORM) (* If there is a FORM, then compiler will compile this branch of macro. * ) FORM) (T (* If there is no FORM, then compiler will compile this branch of macro. *) (SETQ V ( \LISPERROR V "ARG NOT FIXP" T)) (GO UBLP)))) (T (SETQ V (LISPERROR "NON-NUMERIC ARG" V T)) (GO UBLP))) )))))) (COND ((FOR FN IN (QUOTE (%%+ %%- %%* %%/ NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP)) ALWAYS (CCODEP FN)) (MOVD (QUOTE %%+) (QUOTE \SLOWPLUS2)) (MOVD (QUOTE %%-) (QUOTE \SLOWDIFFERENCE)) (MOVD (QUOTE %%*) (QUOTE \SLOWTIMES2)) (MOVD ( QUOTE %%/) (QUOTE \SLOWQUOTIENT)) (MOVD (QUOTE NEW-SLOWIPLUS2) (QUOTE \SLOWIPLUS2)) (MOVD (QUOTE NEW-SLOWIDIFFERENCE) (QUOTE \SLOWIDIFFERENCE)) (MOVD (QUOTE NEW-SLOWITIMES2) (QUOTE \SLOWITIMES2)) ( MOVD (QUOTE NEW-SLOWIQUOTIENT) (QUOTE \SLOWIQUOTIENT)) (MOVD (QUOTE NEW-IREMAINDER) (QUOTE IREMAINDER) ) (MOVD (QUOTE NEW-SLOWIGREATERP) (QUOTE \SLOWIGREATERP)))) (MOVD (QUOTE LOGOR) (QUOTE LOGIOR)) (DEFCONSTANT BOOLE-CLR 0) (DEFCONSTANT BOOLE-SET 1) (DEFCONSTANT BOOLE-1 2) (DEFCONSTANT BOOLE-2 3) (DEFCONSTANT BOOLE-C1 4) (DEFCONSTANT BOOLE-C2 5) (DEFCONSTANT BOOLE-AND 6) (DEFCONSTANT BOOLE-IOR 7) (DEFCONSTANT BOOLE-XOR 8) (DEFCONSTANT BOOLE-EQV 9) (DEFCONSTANT BOOLE-NAND 10) (DEFCONSTANT BOOLE-NOR 11) (DEFCONSTANT BOOLE-ANDC1 12) (DEFCONSTANT BOOLE-ANDC2 13) (DEFCONSTANT BOOLE-ORC1 14) (DEFCONSTANT BOOLE-ORC2 15) (CONSTANTS BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2) (MOVD (QUOTE LSH) (QUOTE ASH)) (MOVD (QUOTE INTEGERLENGTH) (QUOTE INTEGER-LENGTH)) (DEFMACRO **FLOAT** (F E) (BQUOTE (SCALE-FLOAT (DECODE-FLOAT (FLOAT (\, F))) (\, E)))) (RPAQ MOST-POSITIVE-FIXNUM MAX.SMALLP) (RPAQ MOST-NEGATIVE-FIXNUM MIN.SMALLP) (RPAQ MOST-POSITIVE-SINGLE-FLOAT MAX.FLOAT) (RPAQ LEAST-POSITIVE-SINGLE-FLOAT (**FLOAT** 1 -125)) (RPAQ LEAST-NEGATIVE-SINGLE-FLOAT (**FLOAT** -1 -125)) (RPAQ MOST-NEGATIVE-SINGLE-FLOAT MIN.FLOAT) (RPAQ MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (RPAQ MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (RPAQ MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (RPAQ MOST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (RPAQ MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (RPAQ LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (RPAQ MOST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (CONSTANTS (MOST-POSITIVE-FIXNUM MAX.SMALLP) (MOST-NEGATIVE-FIXNUM MIN.SMALLP) ( MOST-POSITIVE-SINGLE-FLOAT MAX.FLOAT) (LEAST-POSITIVE-SINGLE-FLOAT (**FLOAT** 1 -125)) ( LEAST-NEGATIVE-SINGLE-FLOAT (**FLOAT** -1 -125)) (MOST-NEGATIVE-SINGLE-FLOAT MIN.FLOAT) ( MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) ( MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT) (LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) ( LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (MOST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT) (MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SINGLE-FLOAT) ( LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SINGLE-FLOAT) (LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT) (MOST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-SINGLE-FLOAT)) (RPAQ SINGLE-FLOAT-EPSILON (**FLOAT** 1 -22)) (RPAQ SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (RPAQ DOUBLE-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (RPAQ LONG-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (CONSTANTS (SINGLE-FLOAT-EPSILON (**FLOAT** 1 -22)) (SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) ( DOUBLE-FLOAT-EPSILON SINGLE-FLOAT-EPSILON) (LONG-FLOAT-EPSILON SINGLE-FLOAT-EPSILON)) (RPAQ SINGLE-FLOAT-NEGATIVE-EPSILON (**FLOAT** 1 -23)) (RPAQ SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (RPAQ DOUBLE-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (RPAQ LONG-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (CONSTANTS (SINGLE-FLOAT-NEGATIVE-EPSILON (**FLOAT** 1 -23)) (SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) (DOUBLE-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON) ( LONG-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON)) (PUTPROPS CMLARITHNEW COPYRIGHT ("Xerox Corporation" 1986)) NIL