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

Modified Files: qd-fun.lisp qd-rep.lisp Log Message: qd-fun.lisp: o Remove extra rem-pi/2-int.

qd-rep.lisp: o Fix typo in float-infinity-p for Allegro. o Ignore var in float-infinity-p and friends.

--- /project/oct/cvsroot/oct/qd-fun.lisp 2007/10/16 17:05:13 1.87 +++ /project/oct/cvsroot/oct/qd-fun.lisp 2007/10/16 17:09:46 1.88 @@ -619,6 +619,7 @@ ;; accurate argument reduction using 1584 bits of 2/pi. This makes ;; sin and cos more expensive, of course.

+#+(or) (defun rem-pi/2-int (qd) ;; Compute qd rem pi/2 = k*pi/2+y. So we compute k + y*2/pi = ;; qd*2/pi. --- /project/oct/cvsroot/oct/qd-rep.lisp 2007/10/16 17:05:13 1.9 +++ /project/oct/cvsroot/oct/qd-rep.lisp 2007/10/16 17:09:46 1.10 @@ -197,7 +197,7 @@ #+allegro (progn (defmacro float-infinity-p (x) - (= (abs ,x) #.excl::*infinity-double*)) + `(= (abs ,x) #.excl::*infinity-double*))

(defun float-nan-p (x) (excl::nan-p x)) @@ -212,9 +212,12 @@ #-(or cmu allegro) (progn (defun float-infinity-p (x) + (declare (ignore x)) nil) (defun float-nan-p (x) + (declare (ignore x)) nil) (defun float-trapping-nan-p (x) + (declare (ignore x)) nil) ) ; end progn