[oct-cvs] Oct commit: oct qd-class.lisp qd-complex.lisp qd-methods.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv16229

Modified Files:
	qd-class.lisp qd-complex.lisp qd-methods.lisp 
Log Message:
qd-class.lisp:
o Oops.  Forgot to rename the defgenerics.

qd-complex.lisp:
o QLOG no longer exists.  Use LOG.

qd-methods.lisp:
o QLOG no longer exists.  Use LOG.




--- /project/oct/cvsroot/oct/qd-class.lisp	2007/08/30 23:41:10	1.23
+++ /project/oct/cvsroot/oct/qd-class.lisp	2007/08/31 21:13:36	1.24
@@ -173,40 +173,40 @@
 (defgeneric qscale-float (x n)
   (:documentation "Multiply the float X by 2^N"))
 
-(defgeneric qabs (x)
+(defgeneric abs (x)
   (:documentation "Absolute value of X"))
 
-(defgeneric qexp (x)
+(defgeneric exp (x)
   (:documentation "Exponential of X"))
 
-(defgeneric qsin (x)
+(defgeneric sin (x)
   (:documentation "Sine of X"))
 
-(defgeneric qcos (x)
+(defgeneric cos (x)
   (:documentation "Cosine of X"))
 
-(defgeneric qtan (x)
+(defgeneric tan (x)
   (:documentation "Tangent of X"))
 
-(defgeneric qsinh (x)
+(defgeneric sinh (x)
   (:documentation "Hyperbolic sine of X"))
 
-(defgeneric qcosh (x)
+(defgeneric cosh (x)
   (:documentation "Hyperbolic cosine of X"))
 
-(defgeneric qtanh (x)
+(defgeneric tanh (x)
   (:documentation "Hyperbolic tangent of X"))
 
-(defgeneric qsqrt (x)
+(defgeneric sqrt (x)
   (:documentation "Square root of X"))
 
-(defgeneric qlog (a &optional b)
+(defgeneric log (a &optional b)
   (:documentation "Log of A base B.  If B not given, then natural log"))
 
 (defgeneric log1p (x)
   (:documentation "log(1+x)"))
 
-(defgeneric qatan (y &optional x)
+(defgeneric atan (y &optional x)
   (:documentation "If X not given, atan(y).  If X is given, atan(y/x), taking
  the quadrant into account"))
 
@@ -231,22 +231,22 @@
 (defgeneric qfloat-sign (a &optional b)
   (:documentation "Transfer sign of A to B.  If B not given, assume 1"))
 
-(defgeneric qasin (x)
+(defgeneric asin (x)
   (:documentation "Inverse sine of X"))
 
-(defgeneric qacos (x)
+(defgeneric acos (x)
   (:documentation "Inverse cosine of X"))
 
-(defgeneric qacosh (x)
+(defgeneric acosh (x)
   (:documentation "Inverse hyperbolic cosine of X"))
 
-(defgeneric qatanh (x)
+(defgeneric atanh (x)
   (:documentation "Inverse hyperbolic tangent of X"))
 
-(defgeneric qcis (x)
+(defgeneric cis (x)
   (:documentation "(complex (cos x) (sin x))"))
 
-(defgeneric qphase (x)
+(defgeneric phase (x)
   (:documentation "Phase of X"))
 
 (defgeneric coerce (x type)
--- /project/oct/cvsroot/oct/qd-complex.lisp	2007/08/31 03:11:00	1.34
+++ /project/oct/cvsroot/oct/qd-complex.lisp	2007/08/31 21:13:36	1.35
@@ -732,7 +732,7 @@
 
 (defmethod log ((a qd-complex) &optional b)
   (if b
-      (/ (qlog a) (qlog b))
+      (/ (log a) (log b))
       (complex (log (abs a))
 	       (atan (imagpart a) (realpart a)))))
 
--- /project/oct/cvsroot/oct/qd-methods.lisp	2007/08/31 19:34:00	1.54
+++ /project/oct/cvsroot/oct/qd-methods.lisp	2007/08/31 21:13:36	1.55
@@ -423,7 +423,7 @@
 
 (defmethod log ((a qd-real) &optional b)
   (if b
-      (/ (qlog a) (qlog b))
+      (/ (log a) (log b))
       (if (minusp (float-sign a))
 	  (make-instance 'qd-complex
 			 :real (log-qd (abs-qd (qd-value a)))