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-MATH0&(1% 6 SHRINK-BIGNUM-STRUCTURENEW-MATH BINARY-BIGNUM-OP-DISPATCH-TABLENEW-MATH ALLOCATE-BIGNUMNEW-MATH7 b@@ApU(@"b@@ApU*@@$*@$* @A@A 6@" @6"@(6@*(@6*@ *`@AT,@PA, !@6@6 C648 88@ \ `@ATA \"`@A8@T@P'@A& \4X@\* Y@6@A@\(@A1@A 6`,A8@T@P'@A& T6X& Y@6 A5'>!b&>Q!>PAT \4X5G  NEGATE-BIGNUMNEW-MATH  NEGATE-BIGNUMNEW-MATH  SHRINK-BIGNUM-STRUCTURENEW-MATH ALLOCATE-BIGNUMNEW-MATH b@"(pU$@0%,@- C `P)P4UT@A( <"X@ $ @"@A3!'(,Ra',,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  %VM-READ32NEW-MATH  %VM-READ32NEW-MATH    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BA$@'B(@AB(@@AF Af@fB @A  READ-MDHARDWARE PROGN PRIMITIVES 2VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDHARDWARE 32+HARDWARE %VM-READNEW-MATH %VM-READNEW-MATH   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA%B(@@AF Ab@bB @A  READ-MDHARDWARE PROGN PRIMITIVES !VMA-START-READ-VMA-BOXED-MD-BOXEDHARDWARE  %VM-WRITE32NEW-MATH  %VM-WRITE32NEW-MATH   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAY j"@ C@s0@A@A C@s0@A @A@A C(@ B C(@B(A B C(@B(@B(@ BA%B(A&@)B(@@B@AF Ap@pB @A  PROGN PRIMITIVES "VMA-START-WRITE-NO-GC-TRAP-UNBOXEDHARDWARE 32+HARDWARE WRITE-MD-UNBOXEDHARDWARE  %VM-WRITENEW-MATH  %VM-WRITENEW-MATH    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BA%B(A&B@AF Af@fB @A  PROGN PRIMITIVES VMA-START-WRITE-BOXEDHARDWARE WRITE-MD-BOXEDHARDWARE MULTIPLY-BIGNUMNEW-MATH MULTIPLY-BIGNUMNEW-MATH O6L,KAH7<I9L1M.P%+#P SHRINK-BIGNUM-STRUCTURENEW-MATHG UMUL32-AND-ADD-TO-RESULTNEW-MATH* #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH" #SUBTRACT-SHIFTED-BIGNUM-FROM-RESULTNEW-MATH ZERO-BIGNUM-INTERNALNEW-MATH ALLOCATE-BIGNUMNEW-MATHQ b@@ATD@ m6"b@@ATD@ m4 \422 C \ `@AT.@ T"`@AT,@!$?`*@!$7`(@0C(*p@A@A (p@A@A@T L0X(*p@A#@A"A4@0@2@6B (p@A+@A A6@0@2@4Bb&@@60@AP@Ap60@A M@A  `@ATD@ m.b$@@40@AL@Ap40@A I@A "`@ATD@ m,@A $DxEx.@,@0@2B70$$x "`@AAT,@ ,0&&x  `@A6T.@ 1G UMUL32-AND-ADD-TO-RESULTNEW-MATH UMUL32-AND-ADD-TO-RESULTNEW-MATH !"p 0 l<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<@ <<P << &bPA> |T\@A>0%$ &bP?0tT\@A>@(@A!0%$ &bP?04U\ &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'bP+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+bP/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 4b.@T>@Z 44bP70|T]@A6 P7p|T@A6@T&e054S@A$ C2@@A"@A7@A %C C`@:@a@ D COMPARE-BIGNUMNEW-MATH COMPARE-BIGNUMNEW-MATHK2J/IKF/E2DFA2@/?A<B9/8279.2+5'!(:GL b@@ATD@ a0@"b@@ATD@ a.@ D `@AT,@ <"`@AT*@!$7`(@!$/`&@p#&DxEp@A G@ApC.0@A :@AA0$x@4*@A (@A$p@A !@A`@@a@`D  `@AT,@ "`@AT*@$$x @4*,ba@A5@A (p@A 2@A`@@a@bD`@@a@dD (p@A 9@A2@A /@A  (p@A B@A@D.0@AA@A/@A 2@A @D.0@AF@A2@A /@A  (p@A K@A/@A 2@A  TEST-BIGNUMNEW-MATH  TEST-BIGNUMNEW-MATH    b@@ATD@ a(@(&@ $ `@AT$@$"@!$`D@Ep@A @Apb0@A @A`@@a@`D@ l@A @A&&x  `@A T"@ `@@a@bD`@@a@dD  ASH-BIGNUMNEW-MATH  ASH-BIGNUMNEW-MATH;59<02$* < SHRINK-BIGNUM-STRUCTURENEW-MATH* ALLOCATE-BIGNUMNEW-MATH SHRINK-BIGNUM-STRUCTURENEW-MATH ZERO-BIGNUM-INTERNALNEW-MATH ALLOCATE-BIGNUMNEW-MATH  BIG-ASH-ILLOPNEW-MATH=Fs# b@0#"@C0U& @A( ((`)( (() C*C  b0#$ 6@\$6076P7(,@&.@T4@PA2@O4T 4*X/.- , < b42U4 @WlT 4*X+G0#"`#(@((@A*@A  b>U4@a<p5D) C  b(,@&.@0#$0%$2@A`$P%T4@PA2@O4T 4*X-,/ .< < b425U4 +G  BIG-ASH-ILLOPNEW-MATH  BIG-ASH-ILLOPNEW-MATH ILLOP-FUNCTIONTRAPEAF 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-MATHhTacY]GI=:>572;1@),"& Ai SHRINK-BIGNUM-STRUCTURENEW-MATHJ COPY-BIGNUM-WITH-EXTENSIONNEW-MATH@ SHRINK-BIGNUM-STRUCTURENEW-MATH COPY-BIGNUM-WITH-EXTENSIONNEW-MATHj b@@AT("b@&&@ApU,@ 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\\@@0E Z@;P[@t'@A70CB@&\@!wa^@@\&@P_> 98@010@0=<@ L44@ 8T@0t*X+G0%$@ .@ ..@s'?`.@@4.@AI@A,.@"A/ B<@s'`:@0l ` &4@ `2@032@$0@T6@ B@68@s'G`:@p;:@@l(96]@A l `@AT6@ t*`>@@BP3c@_8:@!`>@P? oT\ DB0@@B&@0=<@T@A+G COPY-BIGNUM-WITH-EXTENSIONNEW-MATH COPY-BIGNUM-WITH-EXTENSIONNEW-MATH   ALLOCATE-BIGNUMNEW-MATH" C b@(T&@@$&+T @A $ `@AT**T@@$" $$X0)($D