[oct-scm] [oct-git]OCT: A portable Lisp implementation for quad-double precision floats branch master updated. 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "OCT:  A portable Lisp implementation for quad-double precision floats".

The branch, master has been updated
       via  6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b (commit)
       via  738d3980f615a396fa87b62fa6e8edc5a1a59f2f (commit)
       via  bf28d710e15cc99061b17bd46c68f4945afcfe80 (commit)
      from  0804332c622d188cd923e2101ce354f9732d7371 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Feb 13 01:33:47 2011 -0500

    The TARGET parameter is not a %QUAD-DOUBLE if we're not using
    arrays to represent a %quad-double.

diff --git a/qd.lisp b/qd.lisp
index 0e58e4a..2b72769 100644
--- a/qd.lisp
+++ b/qd.lisp
@@ -315,7 +315,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
   
 (defun add-qd-d-t (a b target)
   "Add a quad-double A and a double-float B"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
 	   (double-float b)
 	   (optimize (speed 3)
 		     (space 0))
@@ -416,7 +416,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
 
 
 (defun add-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
 	   (optimize (speed 3)
 		     (space 0))
 	   #+(and cmu (not oct-array))
@@ -482,7 +482,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
   (neg-qd-t a target))
 
 (defun neg-qd-t (a target)
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
 	   #+(and cmu (not oct-array)) (ignore target))
   (with-qd-parts (a0 a1 a2 a3)
       a
@@ -542,7 +542,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
 
 (defun mul-qd-d-t (a b target)
   "Multiply quad-double A with B"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
 	   (double-float b)
 	   (optimize (speed 3)
 		     (space 0))
@@ -670,7 +670,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
   (mul-qd-t a b target))
 
 (defun mul-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
 	   (optimize (speed 3)
 		     (space 0))
 	   (inline float-infinity-p)
@@ -843,7 +843,7 @@ it is destructively modified with the result."
 
 (defun sqr-qd-t (a target)
   "Square A"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
 	   (optimize (speed 3)
 		     (space 0))
 	   #+(and cmu (not oct-array))
@@ -920,7 +920,7 @@ If TARGET is given, it destrutively modified with the result."
 	    (%store-qd-d target q0 q1 q2 q3)))))))
 
 (defun div-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
 	   (optimize (speed 3)
 		     (space 0))
 	   (inline float-infinity-p)

commit 738d3980f615a396fa87b62fa6e8edc5a1a59f2f
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Feb 13 01:11:21 2011 -0500

    Ignore *~.

diff --git a/.gitignore b/.gitignore
index 44c8368..39ef52b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,4 +3,6 @@
 *.sparcf
 *.fasl
 *.err
+*~
+
 

commit bf28d710e15cc99061b17bd46c68f4945afcfe80
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Feb 13 01:10:31 2011 -0500

    Ignore *.err files.

diff --git a/.gitignore b/.gitignore
index 77c698b..44c8368 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,5 @@
 *.x86f
 *.sparcf
 *.fasl
+*.err
+

-----------------------------------------------------------------------

Summary of changes:
 .gitignore |    4 ++++
 qd.lisp    |   14 +++++++-------
 2 files changed, 11 insertions(+), 7 deletions(-)


hooks/post-receive
-- 
OCT:  A portable Lisp implementation for quad-double precision floats