FLOAT-ERROR-PNEW-MATH  FLOAT-ERROR-PNEW-MATH   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BAb@%B(@D~AF Ab@bB @A   32LOGBITPHARDWARE 32LOGICAL-SHIFT-UPHARDWARE FLOAT-ERROR-MESSAGENEW-MATH FLOAT-ERROR-MESSAGENEW-MATH6420.,*(&$" !#%' ) + -  /135 ERRORLISP-INTERNALS7@A0!@ |B@ C@@A@A5@A 3@A 1@A /@A @A -@A +@A )@A '@A %@A #@A !@A @A @A @A @A j@@AF@@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A 5Result = 0, exact3Result = infinity, exact1!Result finite and non-zero, exact/#Result finite and non-zero, inexact-Overflow, inexact+Underflow, exact)Underflow, inexact'Denormalized operand X%Denormalized operand Y#X & Y operands denormalized! Zero divideX operand Not-A-NumberY operand Not-A-NumberX & Y operands Not-A-NumberInvalid operation requestedFloating point operation error  FPU-STATUSNEW-MATH  FPU-STATUSNEW-MATH  MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS LENGTHARRAY j"@ C@c0@A @A A`@`B@AD   FIELD-EXTRACTHARDWARE READ-PROCESSOR-STATUSHARDWARE (%%PROCESSOR-STATUS-FLOATING-POINT-STATUSHARDWARE  INIT-FLOATNEW-MATH  INIT-FLOATNEW-MATH A A@AfAA A@AfAjD %%DPB-SHORT-IN-SINGLENEW-MATH BYTE PRIMITIVES %%DPB-SHORT-ROUND-BITNEW-MATH BYTE PRIMITIVES  ADD-SHORTNEW-MATH  ADD-SHORTNEW-MATH  FIXUP-SHORTNEW-MATHZ l.Z l,*@x 8, 8, 8, 8, 8,(&@DD@a#/DD7'$(E%F SUBTRACT-SHORTNEW-MATH SUBTRACT-SHORTNEW-MATH  FIXUP-SHORTNEW-MATHZ l.Z l,*@x8,8,8,8,8,(&@DD@a#/DD7'$(E%F MULTIPLY-SHORTNEW-MATH MULTIPLY-SHORTNEW-MATH  FIXUP-SHORTNEW-MATHZ l.Z l,*@x8,8,8,8,8,(&@DD@a#/DD7'$(E%F  DIVIDE-SHORTNEW-MATH  DIVIDE-SHORTNEW-MATH   FIXUP-SHORTNEW-MATHZ l.Z l,*@x0.0.@A@A@A@@A @A0.0.0.(&@DD@a#/DD7'$(E%F  SHORT-STATUSNEW-MATH  SHORT-STATUSNEW-MATH !s!p7!` "@@A` @@A   FIXUP-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH  SHORT-STATUSNEW-MATH FLOAT-ERROR-MESSAGENEW-MATHP#0cDPED~BpC@A@A"CB 0CD DDBZ'C @ C`@$@a@ D  COMPARE-SHORTNEW-MATH  COMPARE-SHORTNEW-MATH ERRORLISP-INTERNALS"Z l*Z l(&@x@((@((@((@((@((@$@DD@a#DD7%@ |B@ C@@A@A@A @A @A @A jDA@B@AjD`@@a@bD`@@@a@dD`@ @a@`DShort float compare, Unordered  TEST-SHORTNEW-MATH  TEST-SHORTNEW-MATH  SHORT-STATUSNEW-MATH!C`@"@a@"D  NEGATE-SHORTNEW-MATH  NEGATE-SHORTNEW-MATH  SHORT-STATUSNEW-MATH!c!$@%C`@"@a@$D  ADD-SINGLENEW-MATH  ADD-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x 0* 0* 0* 0* 0*&D@7E$(C&E%F SUBTRACT-SINGLENEW-MATH SUBTRACT-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x0*0*0*0*0*&D@7E$(C&E%F MULTIPLY-SINGLENEW-MATH MULTIPLY-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x0*0*0*0*0*&D@7E$(C&E%F  DIVIDE-SINGLENEW-MATH  DIVIDE-SINGLENEW-MATH   FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x(,(,@A@A@A@@A  @A(,(,(,&D@7E$(C&E%F  FIXUP-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH   SINGLE-STATUSNEW-MATH MAKE-SINGLE-FLOATARRAY ERRORLISP-INTERNALS FLOAT-ERROR-MESSAGENEW-MATHP#0cDPED~BpC@A @A#C(@@B! C C`@$@a@&DSingle float operation COMPARE-SINGLENEW-MATH COMPARE-SINGLENEW-MATH # ERRORLISP-INTERNALS  TRAP-RESTORETRAP& !`@AT*@ #`@AT(@&@x@((@((@((@((@((@D@7E$&C0%@ |B@ C@@A@A#@A @A @A @A jDA$B@AjD`@@a@bD`@@@a@dD`@ @a@`DSingle float compare, Unordered  SINGLE-STATUSNEW-MATH  SINGLE-STATUSNEW-MATH as!p7!` "@@A@A $$ALU-STATUS-POSITIVEHARDWARE $$ALU-STATUS-ZERO-AND-OTHERSHARDWARE  $$ALU-STATUS-NEGATIVE-AND-OTHERSHARDWARE %$$ALU-STATUS-NEGATIVE-ZERO-AND-OTHERSHARDWARE  TEST-SINGLENEW-MATH  TEST-SINGLENEW-MATH  SINGLE-STATUSNEW-MATH !`@AUB`@"@a@"D  NEGATE-SINGLENEW-MATH  NEGATE-SINGLENEW-MATH  SINGLE-STATUSNEW-MATH MAKE-SINGLE-FLOATARRAY  %VM-READ-32ARRAY AbBacE&@& C'C`@"@a@$D  ADD-DOUBLENEW-MATH  ADD-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@"0.X"@2@A@A"A"A"A("A&D@7E$*C(E&@%F SUBTRACT-DOUBLENEW-MATH SUBTRACT-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@AAAA(A&D@7E$*C(E&@%F MULTIPLY-DOUBLENEW-MATH MULTIPLY-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@AAAA(A&D@7E$*C(E&@%F  DIVIDE-DOUBLENEW-MATH  DIVIDE-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@A@A@@A @AAAA(A&D@7E$*C(E&@%F  FIXUP-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH   DOUBLE-STATUSNEW-MATH MAKE-DOUBLE-FLOATARRAY ERRORLISP-INTERNALS FLOAT-ERROR-MESSAGENEW-MATHP%0cDPED~BpC@A @A%C(@@B A" B A# B`@&@a@(DDouble float operation COMPARE-DOUBLENEW-MATH COMPARE-DOUBLENEW-MATH "&),# ERRORLISP-INTERNALS  TRAP-RESTORETRAP/ !`@AT.@ !`@AT,@ #`@AT*@ #`@AT(@&@@B *XB0.@A@ABABABA@BABD@7E$&C0%@ |B@ C@@A@A,@A )@A &@A "@A jDA$B@AjD`@@a@bD`@@@a@dD`@ @a@`D"Double float compare, Unordered  DOUBLE-STATUSNEW-MATH  DOUBLE-STATUSNEW-MATH `"DE@A @AD!$`D@Ep@A  @A`D lD@` DDE@A @A` D@D  TEST-DOUBLENEW-MATH  TEST-DOUBLENEW-MATH  DOUBLE-STATUSNEW-MATH !`@AT&@ !`@AT$@&A%B`@"@a@"D  NEGATE-DOUBLENEW-MATH  NEGATE-DOUBLENEW-MATH  DOUBLE-STATUSNEW-MATH MAKE-DOUBLE-FLOATARRAY !`@AT(@ !`@ATD@acE&@&A( B&A)B`@"@a@$D CONVERT-FIXNUM-TO-SHORTNEW-MATH CONVERT-FIXNUM-TO-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH 0 "0$Xt#t#t#t#t#t#&a#DD@A@A'F CONVERT-FIXNUM-TO-SINGLENEW-MATH CONVERT-FIXNUM-TO-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH 0 "0$Xt#t#t#t#t#t#&a#DD@A@A'G CONVERT-FIXNUM-TO-DOUBLENEW-MATH CONVERT-FIXNUM-TO-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH0 "0$Xv#v#v#v#v#v#v#a#DD@A@AAF CONVERT-SHORT-TO-SINGLENEW-MATH CONVERT-SHORT-TO-SINGLENEW-MATH MAKE-SINGLE-FLOATARRAYZ lAF CONVERT-SHORT-TO-DOUBLENEW-MATH CONVERT-SHORT-TO-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY Z0!"$Xx@x@x@x@x@x@x@a#DDAF CONVERT-SINGLE-TO-DOUBLENEW-MATH CONVERT-SINGLE-TO-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY 0!`@AT"$Xx@x@x@x@x@x@x@a#DDAF SIGN-VALUE-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH!sl@A @A~D~D SIGN-VALUE-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATHasl@A @ADD@@ SIGN-VALUE-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATHasl@A @ADD@@  SIGN-VALUENEW-MATH  SIGN-VALUENEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN SIGN-VALUE-SHORTNEW-MATHM SIGN-VALUE-SINGLENEW-MATHJ SIGN-VALUE-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number ZERO-FLOATP-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATHpl@A @AhDjD ZERO-FLOATP-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATHpl@A @AhDjD ZERO-FLOATP-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH pl@A @Apl@A @AhDjDjD  ZERO-FLOATPNEW-MATH  ZERO-FLOATPNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ ZERO-FLOATP-SHORTNEW-MATHP ZERO-FLOATP-SINGLENEW-MATHM ZERO-FLOATP-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number SCALE-MANTISSA-SHORTNEW-MATH SCALE-MANTISSA-SHORTNEW-MATH43wB@0BD SCALE-MANTISSA-SINGLENEW-MATH SCALE-MANTISSA-SINGLENEW-MATH MAKE-SINGLE-FLOATARRAY~@Eh"mD0D@AF SCALE-MANTISSA-DOUBLENEW-MATH SCALE-MANTISSA-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY~@E "mD0D@!F SCALE-MANTISSANEW-MATH SCALE-MANTISSANEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ SCALE-MANTISSA-SHORTNEW-MATHP SCALE-MANTISSA-SINGLENEW-MATHM SCALE-MANTISSA-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number FIND-MANTISSA-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATHB@ BD FIND-MANTISSA-SINGLENEW-MATH FIND-MANTISSA-SINGLENEW-MATH ALLOCATE-BIGNUMNEW-MATHcCa"mD DT@ #X"D (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH S RKM18(C P S" MULTIPLY-GENERICNEW-MATH NEW-MATH CEILING PRIMITIVES ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVESTB@ B:x0i:y @@B9 Ca"mD D4@$p@AS@Ah2@2@@AP@A:A @AB(8BD@@A @Aa80x!WlT@ D6X2@@A@AjDnT@ d6XjDa8y @@B@lD.x@@@/,x0,p@AC@A 7`Bp!?BDpDB@0CBPC Wl*@2@@A 8@A @@@/Dx ?`Bp!CDpPE ?+**T@ d6Xa8(x @@@-Dx aBp!7BDpPE WlT $6XjD@-Dx aBp@@!CDpPE Wl&2@@A M@A#?'&&T@ d6XjDpSnDB C4 j2@ FIND-MANTISSA-DOUBLENEW-MATH FIND-MANTISSA-DOUBLENEW-MATH ALLOCATE-BIGNUMNEW-MATHf C T@ %X"mD DT@ %X$D HIGH-SIZE-CONSTNEW-MATH  DOUBLE-FLOAT-MANTISSA-SIZE-CONSTNEW-MATH4 MANT-SIZE-CONSTNEW-MATH5 (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATH (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATH5 *, /54 *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH NEW-MATH CEILING PRIMITIVES ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVES65B@ B2x0I2y @@ B1 C&p@A5@Ah,@ l @"mD D"@,@@A @A!@A @Ap n"pnDB C p nDB C" 2A @AB(0BD@@A/@AA0*x+&lD@u!DT ,.XPA0(xu!lT $.X,@@A,@AjDnT@ D.XjD E"@2@0@.@- F j,@ *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH%,  *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH  MULTIPLY-GENERICNEW-MATH7&y @@B@D8xB@@dB6x5@@@94x B@@TB2xH2p@A@A E"@8@*@(@& @6 @4@3F _`Bp@@!C0p @@@7Dx aBp!_BDpDB@0CBPC lD@P1 D.*@@A ,@A @@@9Dx g`Bp!CDpPE ?/..T@ (X&,x @@@5Dx aBp!WBDpPE lT 4(XjD *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH  +@-:x o`Bp!BDpDB@0CBPC l8@&@@A @A @@@%Dx `Bp!CDpPE ?988T@ ,(X)*6x @@@;Dx aBp!oB4p @@@;Dx o`Bp!CDpDB@0CBPC lD@P5 DT \(XP)*2x @@@1Dx aBp!GBDpPE lT L(XjD ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH =%<)9,6,57+3':#= 2 FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATH ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVES MULTIPLY-GENERICNEW-MATH>5@@ %6xB@@\B0@A@A@AB@p[B0@A @A!$`D@!"ED@4 D@'FY6Dx aBp!C4pY6Dx aBp!CDpPE aD@P5 D@@A 0Y6y @A B2 C l.@"mD D*@&p@A=@Ah(@(@@A:@A.,@(@@A3@AE6@2@0@(@, @+ F/@A 7@A,p+n* p+nDB, C* p;nDB) C, %j(@ FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATH FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATHLS9@(C * MAX-2LISP-INTERNALS" MULTIPLY-GENERICNEW-MATH NEW-MATH CEILING PRIMITIVESf"A @AB($BD@@A @A$>x @@@!Dx aBp!BD=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ FIND-MANTISSA-SHORTNEW-MATHP FIND-MANTISSA-SINGLENEW-MATHM FIND-MANTISSA-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number FIND-EXPONENT-SHORTNEW-MATH FIND-EXPONENT-SHORTNEW-MATHh%`D@B@@C| FIND-EXPONENT-SINGLENEW-MATH FIND-EXPONENT-SINGLENEW-MATH(%`D@B@@C| FIND-EXPONENT-DOUBLENEW-MATH FIND-EXPONENT-DOUBLENEW-MATH %`D@B@@C|  FIND-EXPONENTNEW-MATH  FIND-EXPONENTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN FIND-EXPONENT-SHORTNEW-MATHM FIND-EXPONENT-SINGLENEW-MATHJ FIND-EXPONENT-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number SCALE-EXPONENT-SHORTNEW-MATH SCALE-EXPONENT-SHORTNEW-MATH FIND-EXPONENT-SHORTNEW-MATH CB@@C| SCALE-EXPONENT-SINGLENEW-MATH SCALE-EXPONENT-SINGLENEW-MATH FIND-EXPONENT-SINGLENEW-MATH CB@@C| SCALE-EXPONENT-DOUBLENEW-MATH SCALE-EXPONENT-DOUBLENEW-MATH FIND-EXPONENT-DOUBLENEW-MATH C4B@@C| SCALE-EXPONENTNEW-MATH SCALE-EXPONENTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN SCALE-EXPONENT-SHORTNEW-MATHM SCALE-EXPONENT-SINGLENEW-MATHJ SCALE-EXPONENT-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number DECODE-FLOAT-SHORTNEW-MATH DECODE-FLOAT-SHORTNEW-MATH  FIND-EXPONENT-SHORTNEW-MATH SCALE-MANTISSA-SHORTNEW-MATH CONVERT-FIXNUM-TO-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH C CD@@A @Aa C`@@a@(@c@&D C!C`@"@a@(@c@$D DECODE-FLOAT-SINGLENEW-MATH DECODE-FLOAT-SINGLENEW-MATH  FIND-EXPONENT-SINGLENEW-MATH SCALE-MANTISSA-SINGLENEW-MATH CONVERT-FIXNUM-TO-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATH !`@AT*@* C*CD@@A @Aa C`@@a@(@c@&D* C+C`@"@a@(@c@$D DECODE-FLOAT-DOUBLENEW-MATH DECODE-FLOAT-DOUBLENEW-MATH  FIND-EXPONENT-DOUBLENEW-MATH SCALE-MANTISSA-DOUBLENEW-MATH CONVERT-FIXNUM-TO-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATH !`@AT,@ !`@AT*@* C,A*BD@@A@Aa C`@@a@(@c@&D,A* B+C`@"@a@(@c@$D  DECODE-FLOATNEW-MATH  DECODE-FLOATNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H I J DDDDDJ DECODE-FLOAT-SHORTNEW-MATHI DECODE-FLOAT-SINGLENEW-MATHH DECODE-FLOAT-DOUBLENEW-MATHE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A J@A I@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD!G!G!GD!~d is not a floating point number INTEGER-DECODE-FLOAT-SHORTNEW-MATH INTEGER-DECODE-FLOAT-SHORTNEW-MATH  SCALE-EXPONENT-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH! C CD@@A @A`@@a@&@c@`D C!C`@"@a@&@c@$D INTEGER-DECODE-FLOAT-SINGLENEW-MATH INTEGER-DECODE-FLOAT-SINGLENEW-MATH  SCALE-EXPONENT-SINGLENEW-MATH FIND-MANTISSA-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATH !`@AT(@) C(CD@@A @A`@@a@&@c@`D( C)C`@"@a@&@c@$D INTEGER-DECODE-FLOAT-DOUBLENEW-MATH INTEGER-DECODE-FLOAT-DOUBLENEW-MATH  SCALE-EXPONENT-DOUBLENEW-MATH FIND-MAMTISSA-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATH !`@AT*@ !`@AT(@) C*A(BD@@A@A`@@a@&@c@`D*A( B)C`@"@a@&@c@$D INTEGER-DECODE-FLOATNEW-MATH INTEGER-DECODE-FLOATNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H I J DDDDDJ INTEGER-DECODE-FLOAT-SHORTNEW-MATHI INTEGER-DECODE-FLOAT-SINGLENEW-MATHH INTEGER-DECODE-FLOAT-DOUBLENEW-MATHE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A J@A I@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD!G!G!GD!~d is not a floating point number SIGNIFICANT-BITSNEW-MATH SIGNIFICANT-BITSNEW-MATH!@A @AdDP D aD@@@@E| TRUNCATE-SHORTNEW-MATH TRUNCATE-SHORTNEW-MATH8( . 184  ASH-GENERICNEW-MATH2 MULTIPLY-GENERICNEW-MATH- TRUNCATE-SHORT-1NEW-MATH# CONVERT-FIXNUM-TO-SHORTNEW-MATH" MULTIPLY-GENERICNEW-MATH SIGNIFICANT-BITSNEW-MATH SCALE-EXPONENT-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATH9 C! Ca$`0@@0p@A 8@Ab.@H2p@A1@AnB@@LB0@A.@A@3Dx aBp!CDpDB@0CBPC Wl,@- C(*p@A(@A@A 3(x@3Dx aBp!'BDpDB@0CBPC W`@/ B`C!#GD$@`@$@a@&D,E4@*@2@.@1 F`@ @a@`D.A4BDA3B`@@a@"Dd.@ TRUNCATE-SHORT-1NEW-MATH TRUNCATE-SHORT-1NEW-MATH MULTIPLY-GENERICNEW-MATH@@@%:x $8x o`Bp!BDp~B@PE B6@@@ '4x@'Dx aBp!WBDpDB@0CBPC `2@(A2 BB@ dB.x!#/6D@("?D,@`@,@a@0D TRUNCATE-SINGLENEW-MATH TRUNCATE-SINGLENEW-MATHG .*(-%/> AGC (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH: MAKE-SINGLE-FLOATARRAY- CONVERT-FIXNUM-TO-SINGLENEW-MATH) CONVERT-FIXNUM-TO-SINGLENEW-MATH" MULTIPLY-GENERICNEW-MATH SIGNIFICANT-BITSNEW-MATH SCALE-EXPONENT-SINGLENEW-MATHH !`@AT>@>C!$`:@h:p@A G@Ab8@p<p@AA@AhB@@tB0@A>@A@=Dx aBp!CDpDB@0CBPC l6@6 C@A =2x@=Dx aBp!OBDpB@DB@0CBPC B@8 BP4p@A/@A`8p@A-@Aa C`@.@a@0Da C*@A @@@5,x t4*x 7`Bp!WBDpPE _l(BA ,B&xa#o(Dh"D@ B`@$@a@0D`@ @a@`D>A<@9B`@@a@"D d8@  TRUNCATE-DOUBLENEW-MATH TRUNCATE-DOUBLENEW-MATHQ F=9@*GJ Q M (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATHE TRUNC-DBL-REMAIN2NEW-MATH< TRUNC-DBL-REMAIN1NEW-MATH6 ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH2 SIGNIFICANT-BITSNEW-MATH& TRUNC-DBL-REMAIN1NEW-MATH ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH NEW-MATH SCALE-EXPONENT-DOUBLENEW-MATHR !`@AT8@ !`@AT6@6 C!$_`2@H2p@A Q@Ab0@P4p@AJ@A5@@ 5DxEp@AG@A4A`@@BD@@A*@A8A6@4@1 B@5Dy aBp!CDpDB@0CBPC gl@4@2 B`@,@a@.D`@@@5Dx aBp!CDpDB@0CBPC _l*@* C8A6@4@1 B (p@A@@A8A4@2 B`@$@a@&D BA $Bx8@*@4@2 B=@A `@ @a@`D8A6@4@1B`@@a@"D d0@ TRUNC-DBL-REMAIN2NEW-MATH TRUNC-DBL-REMAIN2NEW-MATH MAKE-DOUBLE-FLOATARRAY4@@@%4x $2x@@@5Dx W`Bp!C0p @@@5Dx aBp!WBDpDB@0CBPC lD@P1 D. @@@5Dx W`Bp!CDpPE l,BE LB*xa#'.D "/D-F TRUNC-DBL-REMAIN1NEW-MATH TRUNC-DBL-REMAIN1NEW-MATH3)*   MAKE-DOUBLE-FLOATARRAY CONVERT-FIXNUM-TO-DOUBLENEW-MATH CONVERT-FIXNUM-TO-DOUBLENEW-MATH NEW-MATH SIGNIFICANT-BITSNEW-MATH4! C2A@@ BH2p@A @A$p@A  @AaGaG 2.x0@@A*@A@@@3Dx aBp!OBDpPE l,0@@A@Al(@BE