Changeset 85f3e2


Ignore:
Timestamp:
03/11/11 03:20:27 (4 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master, cvs-ids
Children:
463591
Parents:
68432c
Message:

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

File:
1 edited

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)))
Note: See TracChangeset for help on using the changeset viewer.