(FILECREATED "16-Sep-86 12:33:31" ("compiled on " {ERIS}SOURCES>LLBIGNUM.;21) "11-Sep-86 13:49:06" recompiled changes: \BIGNUM.LOGAND \BIGNUM.LOGOR \BIGNUM.LOGXOR \BIGNUM.LSH \BIGNUM.QUOTIENT \BIGNUM.REMAINDER FINITEP INFINITEP \BN.FLOAT BIGNUM.DEFPRINT \BN.INTEGERLENGTH in "Xerox Lisp 11-Sep-86 ..." dated "11-Sep-86 14:05:48") (FILECREATED "16-Sep-86 12:31:59" {ERIS}SOURCES>LLBIGNUM.;21 40010 changes to: (VARS LLBIGNUMCOMS) (FNS \BIGNUM.LOGAND \BIGNUM.LOGOR \BIGNUM.LOGXOR \BIGNUM.LSH \BIGNUM.QUOTIENT \BIGNUM.REMAINDER FINITEP INFINITEP BIGNUM.DEFPRINT \BN.INTEGERLENGTH \BN.FLOAT) previous date: "11-Sep-86 16:34:30" {ERIS}SOURCES>LLBIGNUM.;18) \BIGNUM.COMPARE D1 (I 1 Y I 0 X) <@d`ð›¿A`ð‘jmÿ`ð˜A`ð³ñkAd`ð³ø`ð³ã@ A (71Q \BN.COMPAREN 66Q \BN.FROM.FIXP 62Q \BN.FROM.FIXP) (53Q MAX.INTEGER 45Q MIN.INTEGER 33Q MAX.INTEGER 25Q MAX.INTEGER 13Q MIN.INTEGER 4 MIN.INTEGER) () \BIGNUM.DIFFERENCE D1 (I 1 Y I 0 X) @ A (15Q \BN.TO.FIXP 12Q \BN.DIFFERENCE 7 \BN.FROM.FIXP 3 \BN.FROM.FIXP) NIL () \BIGNUM.INTEGERLENGTH D1 (I 0 X) @ (6 \BN.INTEGERLENGTH 3 \BN.FROM.FIXP) NIL () \BIGNUM.LOGAND D1 (I 1 Y I 0 X) `@jð£Ajð‘j@ ¤A —o jdAó²$@óœmÿ@mÿæAmÿæäÕ@ mÿAÕ @ó˜A@b¿b°³@ A (135Q \BN.TO.FIXP 132Q \BN.LOGAND 127Q \BN.FROM.FIXP 123Q \BN.FROM.FIXP 102Q \BN.TO.FIXP 77Q \BN.LOGANDC2 74Q \BN.FROM.FIXP 65Q \BN.FROM.FIXP 32Q ERROR 22Q INFINITEP 15Q INFINITEP) NIL ( 27Q "Can't do logical operations with infinity") \BIGNUM.LOGOR D1 (I 1 Y I 0 X) C@jð‘AAjð‘@@ ¤A —o @jó²Ajóž@ A mÿd@ÕmÿAÕåÕ(64Q \BN.TO.FIXP 61Q \BN.LOGOR 56Q \BN.FROM.FIXP 52Q \BN.FROM.FIXP 34Q ERROR 24Q INFINITEP 17Q INFINITEP) NIL ( 31Q "Can't do logical operations with infinity") \BIGNUM.LOGXOR D1 (I 1 Y I 0 X) [@jð‘AAjð‘@@ ¤A —o jd@ó²Aó™mÿ@ÕmÿAÕæ@A @A Aó˜A@b¿b°¸@ A (130Q \BN.TO.FIXP 125Q \BN.LOGXOR 122Q \BN.FROM.FIXP 116Q \BN.FROM.FIXP 75Q \BIGNUM.DIFFERENCE 72Q \BIGNUM.LOGAND 65Q \BIGNUM.LOGOR 34Q ERROR 24Q INFINITEP 17Q INFINITEP) NIL ( 31Q "Can't do logical operations with infinity") \BIGNUM.PLUS D1 (I 1 Y I 0 X) @ A (15Q \BN.TO.FIXP 12Q \BN.PLUS2 7 \BN.FROM.FIXP 3 \BN.FROM.FIXP) NIL () \BIGNUM.LSH D1 (I 1 N I 0 X) e@jð‘jA`ð@ ²ôo @ ‘@A`ð²@djð³Øjñ“``jAñª@lA @djñ›ljAÙ A (142Q MINUS 137Q \BIGNUM.LSH 133Q MINUS 127Q \BIGNUM.QUOTIENT 124Q EXPT 106Q \BIGNUM.TIMES 103Q EXPT 35Q INFINITEP 30Q ERROR 17Q INFINITEP) (67Q MIN.INTEGER 63Q MAX.INTEGER 44Q MAX.INTEGER 11Q MIN.INTEGER) ( 25Q "Can't shift infinity minus infinity places") \BIGNUM.TIMES D1 (I 1 Y I 0 X) @ A (15Q \BN.TO.FIXP 12Q \BN.TIMES2 7 \BN.FROM.FIXP 3 \BN.FROM.FIXP) NIL () \BIGNUM.QUOTIENT D1 (I 1 Y I 0 X) vAd`ðŸ¿@ —o j`ð@ ²õo @d`ð²¿Adjð˜¿o jñ²``ð²Adjð˜¿o jñ²æ`@ A (163Q \BN.TO.FIXP 157Q \BN.DIVIDE 154Q \BN.FROM.FIXP 150Q \BN.FROM.FIXP 133Q ERROR 77Q ERROR 50Q ERROR 37Q INFINITEP 23Q ERROR 13Q INFINITEP) (143Q MIN.INTEGER 113Q MIN.INTEGER 107Q MAX.INTEGER 56Q MAX.INTEGER 31Q MIN.INTEGER 4 MAX.INTEGER) ( 130Q "Can't divide infinity by 0" 74Q "Can't divide infinity by 0" 45Q "Can't divide infinity by infinity" 20Q "Can't divide infinity by infinity") \BIGNUM.REMAINDER D1 (I 1 Y I 0 X) #@ ¤A —o @ A (40Q \BN.TO.FIXP 34Q \BN.DIVIDE 31Q \BN.FROM.FIXP 25Q \BN.FROM.FIXP 20Q ERROR 10Q INFINITEP 3 INFINITEP) NIL ( 15Q "Can't take remainder with infinity") \BIGNUM.TO.FLOAT D1 (I 0 X) @ (6 \BN.FLOAT 3 \BN.FROM.FIXP) NIL () FINITEP D1 (L (0 NUMBER)) @`ðµ@`ðhðNIL (12Q MIN.INTEGER 3 MAX.INTEGER) () INFINITEP D1 (L (0 NUMBER)) @`ðµ@`ðNIL (12Q MIN.INTEGER 3 MAX.INTEGER) () \BIGNUM.TO.INT D1 (I 0 X) @d¡@ n@ÚØ(13Q \BIGNUM.TO.INT) NIL () \BN.2TH D1 (P 1 B P 0 L I 0 A) @µIn' Xb¿HI¹°ë(15Q \BN.QRS) NIL () \BN.ABS D1 (I 0 U) j@ ñ”@ @(12Q \BN.MINUS 4 \BN.SIGN) NIL () \BN.DIFFERENCE D1 (I 1 V I 0 U) @A (7 \BN.PLUS2 4 \BN.MINUS) NIL () \BN.DIVIDE D1 (P 32Q L2 P 31Q L1 P 30Q BIP P 27Q IP P 26Q X P 25Q Q P 24Q V P 23Q U P 22Q R2 P 21Q R1 P 20Q C1 P 17Q QHAT P 16Q A3 P 15Q A2 P 14Q A1 P 13Q B2 P 12Q B1 P 11Q F P 10Q E P 7 W P 6 D P 5 C P 4 ST P 3 SA P 2 K P 1 N P 0 M I 2 FLG I 1 B I 0 A) ù#ððP"@’Aµ`@³@A _0Bgðhð´O0 @ ¸A ¹HIÙºjJñ³Ì@ »A_&¿IkÙk_8¿_6¿O8O6óO&_&¿O8kÔ_8°ðO&½k¼jMñ–mÿ¼jMÙ½n@MkØÛ¾KLÚ_¿@KNÚ b¿ALNÚ b¿@_&¿h_2¿JkØk_<¿_:¿O¿O@O>ó³O&O4_4¿O&_&¿O@kÔ_@°çO&¤O&j&¿A_&¿IlÙk_D¿_B¿ODOBóO&_&¿ODkÔ_D°ðO&_¿O&_¿O4_&_¿O&_&_¿O&_&_¿O&_&¿OOñ£n?ÿ‹On@ÚOØOÛ_OÚn@ _.¿OO.Ù_"¿OO.Ù_$¿jO$ñŸO$n@Ø_$¿O"kÙ_"O"jñ³5OOÚn@ _.¿O$O.Ù_"jñ³OO.Ù_$¿jO"ñ¤jO$ñ•OkÙ°”O2_&¿A_(¿j_ ¿jOÙ_O(Ún@ _.¿O(_(¿O._¿O&_¿O OO.ØØn@ _._¿O._ ¿jOñOn@Ø_¿O kÙO OØ_ ¿O&O¿O&_,_&¿O(³•O&O Ø_¿O,`¿Ojð³KO2_&¿A_(¿j_ ¿OkÙ_¿O&_¿O(_¿O(_(¿O OOØØn@ _.¿O&O.¿O&_&¿O(³ÎOjð’O*šOOÚO*_*¿O2_2¿O4_&¿O4_4¿O2’±þYO*Bgðhð´ @KNÚ (1364Q \BN.QRS 1243Q \BN.IDIVIDE 1037Q \BN.IDIVIDE 773Q \BN.IDIVIDE 665Q \BN.IDIVIDE 572Q \BN.IDIVIDE 240Q \BN.TIMES2 235Q \BN.FROM.FIXP 223Q \BN.TIMES2 220Q \BN.FROM.FIXP 107Q \BN.SIGN 71Q FLENGTH 64Q FLENGTH 56Q \BN.FROM.FIXP 34Q \BN.QRS) (1350Q QUOTIENT 1146Q \BIG.0 43Q QUOTIENT 20Q \BIG.0) () \BN.FLOAT D1 (I 0 X) 1@µo@@ oêè@gð¥@gð—o (56Q SHOULDNT 52Q ERROR 20Q \BN.FLOAT) (41Q MIN.INTEGER 33Q MAX.INTEGER) ( 47Q "Can't float integer infinity." 24Q 16384.0 6 0.0) \BN.IGNN D1 (P 0 Y I 0 U) (@¡hn@@ñ“@h@n@ÛX@Hn@ÚÙbdH (44Q \BN.FROM.FIXP) NIL () BIGNUM.DEFPRINT D1 (P 11Q C P 10Q CHARS P 7 B P 6 L P 5 ELS P 4 TH P 1 RADIX P 0 R I 1 STREAM I 0 BIGN F 12Q *READTABLE* F 13Q \THISFILELINELENGTH F 14Q *PRINT-BASE* F 15Q *PRINT-RADIX*) E @ ²#WÊ o @`ð“g‚gWHdœ¿kHñ¦Hdl$ñ”¿H !Idl ð•¿n'°lð“nŒIZIÖdn@ó²ø¿J@É!Mµ2OILW¢±ŠIdlð²,¿WÊ jð²OlQh °iL ^½NO_¿°¾Ilð“lo°