Changeset 85f3e2b22f917ff35d080180ab1e2dda4476e881

Show
Ignore:
Timestamp:
03/10/11 19:20:27 (3 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:
1 modified

Legend:

Unmodified
Added
Removed
  • qd.lisp

    r258cd8 r85f3e2  
    477477                      (%store-qd-d target s0 s1 s2 s3))))))))))) 
    478478 
    479 (defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0))) 
    480   "Return the negative of the %QUAD-DOUBLE number A. 
    481 If TARGET is given, TARGET is destructively modified to contain the result." 
    482   (neg-qd-t a target)) 
    483  
    484479(defun neg-qd-t (a target) 
    485480  (declare (type %quad-double a #+oct-array target) 
     
    489484    (declare (double-float a0 a1 a2 a3)) 
    490485    (%store-qd-d target (cl:- a0) (cl:- a1) (cl:- a2) (cl:- a3)))) 
     486 
     487(defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0))) 
     488  "Return the negative of the %QUAD-DOUBLE number A. 
     489If TARGET is given, TARGET is destructively modified to contain the result." 
     490  (neg-qd-t a target)) 
     491 
     492 
    491493 
    492494(defun sub-qd (a b &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))