[oct-cvs] Oct commit: oct qd-fun.lisp qd-rep.lisp

rtoy rtoy at common-lisp.net
Tue Oct 16 17:09:46 UTC 2007


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




More information about the oct-cvs mailing list