MULTIPLY-FIXNUMNEW-MATH MULTIPLY-FIXNUMNEW-MATH MAKE-BIGNUM-64-GET-NEG-STATUSNEW-MATH MAKE-BIGNUM-32-GET-NEG-STATUSNEW-MATHp @@p `D@` DD@` DD@` DD@` DD@` DD@` DD@` DD@` DD@` DD@` DD@` D*@PA(@!$'`D@ ,DD@Ep@A @A(D+D0E&#/($!$lD@ DDE@A @A%G&E%F  DIVIDE-FIXNUMNEW-MATH  DIVIDE-FIXNUMNEW-MATH'+, MAKE-BIGNUM-32ARRAY ERRORLISP-INTERNALS0"p@A @AA @"Bp D@PED@` DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ DD@ D*@ *@@ *(@PAD@E&@@ba@A+@A`@(@a@&D@ B`@(@a@$D Zero divide TRUNCATE-FIXNUMNEW-MATH TRUNCATE-FIXNUMNEW-MATH  DIVIDE-FIXNUMNEW-MATH E#F  FLOOR-FIXNUMNEW-MATH  FLOOR-FIXNUMNEW-MATH   MVBIND-2LISP-INTERNALS  DIVIDE-FIXNUMNEW-MATH A# B+ C`@)@(*p@A@A (p@A  @A@A )*&x $"$x`@$@a@&D (p@A @A`@(@a@*D CEILING-FIXNUMNEW-MATH CEILING-FIXNUMNEW-MATH   MVBIND-3LISP-INTERNALS  DIVIDE-FIXNUMNEW-MATH A# B+ Cb@)@(*p@A@A (p@A  @A@A 0)*&x@$"$x`@$@a@&D (p@A @A`@(@a@*D  ADD-FIXNUMNEW-MATH  ADD-FIXNUMNEW-MATH  MAKE-BIGNUM-32-GET-NEG-STATUSNEW-MATH "(@@a&@@r'@A @A0 $0"D DAF`@&@a@(D SUBTRACT-FIXNUMNEW-MATH SUBTRACT-FIXNUMNEW-MATH  MAKE-BIGNUM-32-GET-NEG-STATUSNEW-MATH @"(@@a&@@r'@A @A0 $0"D@DAF`@&@a@(D COMPARE-FIXNUMNEW-MATH COMPARE-FIXNUMNEW-MATH@"&@@a$@`@$@a@&D  TEST-FIXNUMNEW-MATH  TEST-FIXNUMNEW-MATH@a"@`@"@a@ D  NEGATE-FIXNUMNEW-MATH  NEGATE-FIXNUMNEW-MATH MAKE-BIGNUM-32ARRAY B@pB0@A @A@B@!$x@a"@`@"@a@$D FIELD-PASS-FIXNUMNEW-MATH FIELD-PASS-FIXNUMNEW-MATH  FIELD-PASS-BIGNUM-INTERNALNEW-MATH CONVERT-FIXNUM-TO-BIGNUMNEW-MATH CONVERT-FIXNUM-TO-BIGNUMNEW-MATH MVBIND-3LISP-INTERNALS RESOLVE-BYTE-SPECNEW-MATH$A&BDC`@/@b@-@D@@A @A C(#C$@,@/F&@@A@A$B@0CBPC "*@@a(@`@(@a@*DP% "*@@A RESOLVE-BYTE-SPEC-INTERNALNEW-MATH RESOLVE-BYTE-SPEC-INTERNALNEW-MATH   CDRCONS CARCONS ERRORLISP-INTERNALS BYTE-POSITION-FIXNUMLISP-INTERNALSFs!@A @A'`&@&p@A @A &@ C@b0@A@AA&B"@@A@A@%$x`@$@a@&D@A ! C C @A  Illegal size in byte specifier RESOLVE-BYTE-SPECNEW-MATH RESOLVE-BYTE-SPECNEW-MATH   MVBIND-2LISP-INTERNALS RESOLVE-BYTE-SPEC-INTERNALNEW-MATH A# B' C`@%@@`0@A@A@$DxB@@C0@A@A`@&@a@$@c@jD$p@A@A &DxB@@C0@A @A`@&@a@$@c@hD  BYTE-POSITION PRIMITIVES  BYTE-POSITION PRIMITIVES CDRCONS BYTE-POSITION-FIXNUMLISP-INTERNALSFs!@A @A!G!G  BYTE-SIZE PRIMITIVES  BYTE-SIZE PRIMITIVES  CARCONS Fs!@A  @A'`"@"p@A @A D"D!G  ASH-FIXNUMNEW-MATH  ASH-FIXNUMNEW-MATH)")  !  ASH-BIGNUMNEW-MATH CONVERT-FIXNUM-TO-BIGNUMNEW-MATH 32ARITHMETIC-SHIFT-UPHARDWARE ERRORLISP-INTERNALS*Fs#@A@AA @"B0 ."p@A@AhB@@ B0@A@A`,@.A,BF#E*@@a(@`@(@a@*D",@  p@A)@A`D@PEDF#ED@@ D0@A"@A C(#FP#0/DF#E&@@a$@`@$@a@&D D@ "Bad shift to ash, must be a fixnum  LOGAND-FIXNUMNEW-MATH  LOGAND-FIXNUMNEW-MATH"|  LOGIOR-FIXNUMNEW-MATH  LOGIOR-FIXNUMNEW-MATH`"|  LOGXOR-FIXNUMNEW-MATH  LOGXOR-FIXNUMNEW-MATHp"| LOGXNOR-FIXNUMNEW-MATH LOGXNOR-FIXNUMNEW-MATH"|  LOGNOT-FIXNUMNEW-MATH  LOGNOT-FIXNUMNEW-MATHp!| ALLOCATE-BIGNUMNEW-MATH ALLOCATE-BIGNUMNEW-MATH   ERRORLISP-INTERNALS ALLOCATE-STRUCTURECONS p@A @AB@@B0@A @A @EF#!@b@ @sFA B@A  Bad size to allocate-bignum SHRINK-BIGNUM-STRUCTURENEW-MATH SHRINK-BIGNUM-STRUCTURENEW-MATH+*, #1 b@@ATD@ m0@ D `@AT,@0.@/./@A #@Air7l@A@ABir7B@A@APA0Dx @@F#ET@ !XT@ Z@!$7`D@!"a*@`@*@a@ D 7`(@@a&@`@&@a@(D < `@AT$@!$lD@ 4DDE@A ,@A$,@ !$7`D@!"a"@`@"@a@ D MAKE-BIGNUM-32-GET-NEG-STATUSNEW-MATH MAKE-BIGNUM-32-GET-NEG-STATUSNEW-MATH ALLOCATE-STRUCTURECONS bAb@r@@@ B T@ %X!$`D@!"a"@`@"@a@$D MAKE-BIGNUM-64-GET-NEG-STATUSNEW-MATH MAKE-BIGNUM-64-GET-NEG-STATUSNEW-MATH ALLOCATE-STRUCTURECONSbAf@r@@A B"T@ 'X T@ 'X!$`D@!"a$@`@$@a@&D