BINARY-BIGNUM-OP-DISPATCH-TABLENEW-MATH BINARY-BIGNUM-OP-DISPATCH-TABLENEW-MATH      0"TP"T"T`"Tp"T"T "$@ `"$@! @#"@! @#"@%T  ADD-BIGNUMNEW-MATH  ADD-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@`@aF SUBTRACT-BIGNUMNEW-MATH SUBTRACT-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@b@@AF  LOGAND-BIGNUMNEW-MATH  LOGAND-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@f@aF  LOGIOR-BIGNUMNEW-MATH  LOGIOR-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@p@aF  LOGXOR-BIGNUMNEW-MATH  LOGXOR-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@r@aF LOGXNOR-BIGNUMNEW-MATH LOGXNOR-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@t@aF LOGNAND-BIGNUMNEW-MATH LOGNAND-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@v@aF  LOGNOR-BIGNUMNEW-MATH  LOGNOR-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@x@aF LOGANDC1-BIGNUMNEW-MATH LOGANDC1-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@z@aF LOGANDC2-BIGNUMNEW-MATH LOGANDC2-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@|@aF LOGORC1-BIGNUMNEW-MATH LOGORC1-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@~@aF LOGORC2-BIGNUMNEW-MATH LOGORC2-BIGNUMNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH E"@ @aF BINARY-BIGNUM-OPERATIONNEW-MATH BINARY-BIGNUM-OPERATIONNEW-MATH680&(1% 8  NEGATE-BIGNUMNEW-MATH7 SHRINK-BIGNUM-STRUCTURENEW-MATH BINARY-BIGNUM-OP-DISPATCH-TABLENEW-MATH ALLOCATE-BIGNUMNEW-MATH9 b@`:@pU(@"b@ !@6@pU*@@$*@$* @A@A 6@" @6"@(6@*(@6*@$:@ *` !@6@T,@PA,6 C648 88@ \ `@ATA \"`@A8@T@P'@A& \4X@\* Y@6@A@\(@A1@A 6`,A8@T@P'@A& T6X& Y@6 /bl>PAT \4X@lb@A8@A5G5G  NEGATE-BIGNUMNEW-MATH  NEGATE-BIGNUMNEW-MATH  SHRINK-BIGNUM-STRUCTURENEW-MATH ALLOCATE-BIGNUMNEW-MATH b@"(pU$@0%,@- C `P)P4UT@A( <"X@ $ @"@A/b'l,PAT <"X/G  LOGNOT-BIGNUMNEW-MATH  LOGNOT-BIGNUMNEW-MATH  SHRINK-BIGNUM-STRUCTURENEW-MATH ALLOCATE-BIGNUMNEW-MATH  b@"pU$@% C `@AUT &X@ $ @"@A'G ZERO-BIGNUM-INTERNALNEW-MATH ZERO-BIGNUM-INTERNALNEW-MATH  b@"pU$@T X@ $ @"@A D MULTIPLY-BIGNUMNEW-MATH MULTIPLY-BIGNUMNEW-MATH N5K+J@G6;H8K0L-O$*"O SHRINK-BIGNUM-STRUCTURENEW-MATHF UMUL32-AND-ADD-TO-RESULTNEW-MATH) #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH! #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH ALLOCATE-BIGNUMNEW-MATHP b@@ATD@ a6@"b@@ATD@ a4@ \42x2 C \ `@AT.@ T"`@AT,@!$?`*@!$7`(@(*p@A@A (p@A@A@T L0X(*p@A"@A"A4@0@2@6B (p@A*@A A6@0@2@4Bb&@@60@AO@Ap60@A L@A  `@ATD@ m.b$@@40@AK@Ap40@A H@A "`@ATD@ m,@A $DxEx.@,@0@2B60$$x "`@A@T,@ +0&&x  `@A5T.@ 1G UMUL32-AND-ADD-TO-RESULTNEW-MATH UMUL32-AND-ADD-TO-RESULTNEW-MATH p 0 l<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<P << &`PA> |T\@A>0%$ &`P?0tT\04m>0% $ &`@A |T\ &D #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH  0!`*l.0T,@ (``G7.2P1pLT\@A0@$&@,"0)(0+* *`,.@T,@ 0-.l,@ $D  DIVIDE-BIGNUMNEW-MATH  DIVIDE-BIGNUMNEW-MATHH;=I0%'1"8O DIVIDE-BIGNUM-RETURN-RESULTSNEW-MATHF DIVIDE-BIGNUM-INTERNALNEW-MATH 7 DIVIDE-BIGNUM-RETURN-RESULTSNEW-MATH. DIVIDE-BIGNUM-ONE-WORD-DIVISORNEW-MATH! DIVIDE-BIGNUM-ONE-WORD-LONGNEW-MATH ILLOP-FUNCTIONTRAP ALLOCATE-BIGNUMNEW-MATH ALLOCATE-BIGNUMNEW-MATHP b@@ATD@ a:@"b@@ATD@ a4@ l `@AT2@ T"`@AT0@; C4 C1@A @ApSb0@A @A{EAFpSb0@A 8@Apkb0@A "@A2E0@.@-F`*@:8@h(@`8p@A1@A A0@.@,@8@* @) Ba88x%j(@ .E:@,@4@*@2 @# F`&@:6@h$@X6p@AI@A A"@4@0@.@, @6 @&@% BY66x;j$@ .E:@,@4@&@2 @# F DIVIDE-BIGNUM-ONE-WORD-DIVISORNEW-MATH DIVIDE-BIGNUM-ONE-WORD-DIVISORNEW-MATH   (`#4,@  : pU0'`P+U>0?2 @A* PA2`T22@A*30;:P+ 220U00@A* 0U00@A*2T@0'X@APAT (X*D DIVIDE-BIGNUM-INTERNALNEW-MATH DIVIDE-BIGNUM-INTERNALNEW-MATH'" #!   * ,` :0@$ >@ pU0+`P/U>0?\@A. PAT ,>X?>@A  @A "`@ATF@0+`@A`U\@A.40 4`054T0@ ,4`@Tb@T$ !P/#P/`ET\@a. ET\@a. 0ET\@a.;:@A PAT $,X.D DIVIDE-BIGNUM-ONE-WORD-LONGNEW-MATH DIVIDE-BIGNUM-ONE-WORD-LONGNEW-MATH$*0 SHRINK-BIGNUM-STRUCTURENEW-MATH/ SHRINK-BIGNUM-STRUCTURENEW-MATH5p (P (` (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( ((P"**+T ((@ ((P"*-*T@a<@0%X@A(T@0'X'C$ C`@`@c@:@a@$D DIVIDE-BIGNUM-RETURN-RESULTSNEW-MATH DIVIDE-BIGNUM-RETURN-RESULTSNEW-MATHd7c"_S^eY]VZQSLeKEBe?96-+e*$!,Me ef SHRINK-BIGNUM-STRUCTURENEW-MATHe SHRINK-BIGNUM-STRUCTURENEW-MATH` ZERO-BIGNUM-INTERNALNEW-MATHD ALLOCATE-BIGNUMNEW-MATHj8&4@ 4`P)U\@A(54ar) >|880!`8@U \e@A "`@AT2@ &`@AT0@`C*D*e3Mm6,c4 44`@AT>@ 4`P70|T\@A6@T&054@Ab4@l6@ 4`P7p4U\@A6@T"054$@Ae@A 6 44`@AT>@ 4`P7p|T\@A6@T&054-@Ab4@6 4`P704U\@A6@T"0549@AAr7@Ae@A0#>?C "`@ATT@ |"X#"@A E@Ae? 4&`4T.@6S@A6 4`.@T>@Z 44`P70|T]@A6 P7p|T@A6@T&e054S@A$ C2@@A"@A7@A %C C`@:@a@ D COMPARE-BIGNUMNEW-MATH COMPARE-BIGNUMNEW-MATHL3K0JLG0F3EGB3A0@B=C:0938:/3,6'!(;HM b@@ATD@pE0@"b@@ATD@pE.@ D `@AT,@ <"`@AT*@!$7`(@!$/`&@p#&DxEp@A H@ApC.0@A ;@AA0$x@4*@A (@A$p@A !@A`@ @a@`D  `@AT,@ "`@AT*@$$x @4*D!$aD@Ep@A 6@A (p@A 3@A`@@a@bD`@@@a@dD (p@A :@A3@A 0@A  (p@A C@A@D.0@AB@A0@A 3@A @D.0@AG@A3@A 0@A  (p@A L@A0@A 3@A  TEST-BIGNUMNEW-MATH  TEST-BIGNUMNEW-MATH  ! b@@ATD@pE(@(&@ $ `@AT$@$"@!$`D@Ep@A @A@ l@A @A&&x&D@Ep@A @A`@ @a@`D  `@A T"@ `@@a@bD`@@@a@dD  ASH-BIGNUMNEW-MATH  ASH-BIGNUMNEW-MATH >8<?13'-  #? SHRINK-BIGNUM-STRUCTURENEW-MATH- %ALLOCATE-BIGNUMNEW-MATH" SHRINK-BIGNUM-STRUCTURENEW-MATH ALLOCATE-BIGNUMNEW-MATH  BIG-ASH-ILLOPNEW-MATH@Fs# b@0#"@C"@#pU&@  ``@U@'Ca@ D( ((`)( $&(@(,@&.@T4@PA2) C0#$ 6@\$6076P7@O4T 4*X/.- , < `42U4 @WlT 4*X+G0#"`#(`$&(@@A-@A  `>U4@a<p5D) C  `0#$0%$3@A`$P%(,@&.@T4@PA2@O4T 4*X-,/ .? < `428U4 +G  BIG-ASH-ILLOPNEW-MATH  BIG-ASH-ILLOPNEW-MATH ERRORLISP-INTERNALSA@B@AjD7Bad bignum ash shift amount (This used to be an illop.) FIELD-PASS-BIGNUMNEW-MATH FIELD-PASS-BIGNUMNEW-MATH FIELD-PASS-BIGNUM-INTERNALNEW-MATH MVBIND-2LISP-INTERNALS RESOLVE-BYTE-SPEC-INTERNALNEW-MATH$A' B+ C`@)@ E"@(@+F FIELD-PASS-BIGNUM-INTERNALNEW-MATH FIELD-PASS-BIGNUM-INTERNALNEW-MATHiUbdZ^HJ>;?683<2A*-#'! Bj SHRINK-BIGNUM-STRUCTURENEW-MATHK COPY-BIGNUM-WITH-EXTENSIONNEW-MATHA SHRINK-BIGNUM-STRUCTURENEW-MATH COPY-BIGNUM-WITH-EXTENSIONNEW-MATHk b@@AT("b@&@@ABpU,@ 2@ 2.@ ..@s'?`.@@4.@A@A,.@"A/ B0@ `6@s'`<@0t*`$4@ &>@@L6D@T8@s'W`<@p=<@@t.8:@!PA8 t*`@AT8@@D(CB'=<@ D `@ATB@D\@@'!a^@- ,<P!`^@&\@`X^^@P_ ;\@\&@@L\\@A0E Z@@@BP3d@_8:@!`>@P? oT\ DB0@@B&@0=<@U@A+G COPY-BIGNUM-WITH-EXTENSIONNEW-MATH COPY-BIGNUM-WITH-EXTENSIONNEW-MATH   ALLOCATE-BIGNUMNEW-MATH" C b@(T&@@$&+T @A $ `@AT**T@@$" $$X0)($D