REALPARTNEW-MATH REALPARTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDF I I I I IDDIDE ILLOP-FUNCTIONTRAPJF4!@ |B@ C@@A@AD@A I@A D@A D@A I@A I@A I@A I@A I@A F@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A |EAF b@@ATD D IMAGPARTNEW-MATH IMAGPARTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDF I I I I IDDIDE ILLOP-FUNCTIONTRAPJF4!@ |B@ C@@A@AD@A I@A D@A D@A I@A I@A I@A I@A I@A F@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A }EAF j@@ATD`D COMPLEXNEW-MATH COMPLEXNEW-MATH-""+ +++ , ERRORLISP-INTERNALS& MVBIND-2LISP-INTERNALS%  TEST-COMPLEXNEW-MATH# CONSCONS MVBIND-2LISP-INTERNALS  TEST-GENERICNEW-MATH FLOATPVINCULUM MVBIND-2LISP-INTERNALS GENERIC-MATH-TYPE-COERCERNEW-MATH NUMBERPVINCULUM NUMBERPVINCULUM. CD@@A+@A$BFsB@A+@A"CD@@A+@A$BFsB@A @A+@A  A" B, C`@+@*CD@@A "@A(*p@A "@A,C@C`@)@`@(@a@,D,A*BF#wE&@&C@C`@%@`@$@a@&DA@B@A +Bad arguments to COMPLEX  ADD-COMPLEXNEW-MATH  ADD-COMPLEXNEW-MATH COMPLEXNEW-MATH  ADD-GENERICNEW-MATH IMAGPARTNEW-MATH IMAGPARTNEW-MATH  ADD-GENERICNEW-MATH REALPARTNEW-MATH REALPARTNEW-MATH C(#C@B( C(#CABAF SUBTRACT-COMPLEXNEW-MATH SUBTRACT-COMPLEXNEW-MATH COMPLEXNEW-MATH SUBTRACT-GENERICNEW-MATH IMAGPARTNEW-MATH IMAGPARTNEW-MATH SUBTRACT-GENERICNEW-MATH REALPARTNEW-MATH REALPARTNEW-MATH C(#C@B( C(#CABAF MULTIPLY-COMPLEXNEW-MATH MULTIPLY-COMPLEXNEW-MATH  COMPLEXNEW-MATH  ADD-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH SUBTRACT-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH IMAGPARTNEW-MATH IMAGPARTNEW-MATH REALPARTNEW-MATH REALPARTNEW-MATH! C" C! C" C*A(B(&A%B@B(*A$B(&A)BABAF DIVIDE-COMPLEXNEW-MATH DIVIDE-COMPLEXNEW-MATH COMPLEXNEW-MATH DIVIDE-GENERICNEW-MATH SUBTRACT-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH DIVIDE-GENERICNEW-MATH  ADD-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH  ADD-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH IMAGPARTNEW-MATH IMAGPARTNEW-MATH REALPARTNEW-MATH REALPARTNEW-MATH C# C C# C*A*B(&A'B@ B,A*B((A'B@B($B((A*B(,A'B@B(%BAF NEGATE-COMPLEXNEW-MATH NEGATE-COMPLEXNEW-MATH COMPLEXNEW-MATH IMAGPARTNEW-MATH REALPARTNEW-MATH@A C@Ex C@ExAF COMPARE-COMPLEXNEW-MATH COMPARE-COMPLEXNEW-MATH   IMAGPARTNEW-MATH IMAGPARTNEW-MATH REALPARTNEW-MATH REALPARTNEW-MATH! C"CpD0@A  @A C"CpD0@A  @A`@@a@`D`@@a@bD  TEST-COMPLEXNEW-MATH  TEST-COMPLEXNEW-MATH   IMAGPARTNEW-MATH REALPARTNEW-MATH CEp@A  @A CEp@A  @A`@@a@`D`@@a@bD  CONJUGATENEW-MATH  CONJUGATENEW-MATH COMPLEXNEW-MATH IMAGPARTNEW-MATH REALPARTNEW-MATH C( C@ExAF