REALPARTNEW-MATH REALPARTNEW-MATH@DECEBEAE@E?E>E=E<E;E:E9E8E7E6E5E4E3E2E1E0E/E.E-E,E+E*E)E(E'E&E%E$E#E"E!E EEEEEEEEEEEEEEEEEEG J J J J JEEJEF ILLOP-FUNCTIONTRAPKF4!@ |B@ C@@A@AE@A J@A E@A E@A J@A J@A J@A J@A J@A G@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A vEAF b@@ATD D IMAGPARTNEW-MATH IMAGPARTNEW-MATH@DECEBEAE@E?E>E=E<E;E:E9E8E7E6E5E4E3E2E1E0E/E.E-E,E+E*E)E(E'E&E%E$E#E"E!E EEEEEEEEEEEEEEEEEEG J J J J JEEJEF ILLOP-FUNCTIONTRAPKF4!@ |B@ C@@A@AE@A J@A E@A E@A J@A J@A J@A J@A J@A G@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A xEAF 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