Commit 26ef83a4 authored by Raymond Toy's avatar Raymond Toy

Oops. Put back QEXPT method for QD-COMPLEX, QD-REAL.

parent 06f8a531
......@@ -742,6 +742,9 @@ Z may be any number, but the result is always a complex."
(defmethod qexpt ((x qd-complex) (y number))
(exp (* (float y #q0) (log x))))
(defmethod qexpt ((x qd-complex) (y qd-real))
(exp (* y (log x))))
(defmethod qexpt ((x number) (y qd-complex))
(exp (* y (log (float x #q0)))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment