Changeset 85f3e2b22f917ff35d080180ab1e2dda4476e881

Timestamp:

03/10/11 19:20:27 (2 years ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

46359140b7aa3c0c4af6b3aabc7bcbb4cf248301

Parents:

68432cb1855605c346216788f1aa64517a96a808

git-committer:

Raymond Toy <toy.raymond@…> (03/10/11 19:20:27)

Message:

Move inline function NEG-QD-T before first use.

Files:

• qd.lisp (modified) (2 diffs)

qd.lisp

@@ -477 +477 @@
                       (%store-qd-d target s0 s1 s2 s3)))))))))))
 
-(defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
-  "Return the negative of the %QUAD-DOUBLE number A.
-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 #+oct-array target)
@@ -489 +484 @@
     (declare (double-float a0 a1 a2 a3))
     (%store-qd-d target (cl:- a0) (cl:- a1) (cl:- a2) (cl:- a3))))
+
+(defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
+  "Return the negative of the %QUAD-DOUBLE number A.
+If TARGET is given, TARGET is destructively modified to contain the result."
+  (neg-qd-t a target))
+
+
 
 (defun sub-qd (a b &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))