File: dd.lisp

package info (click to toggle)
cmucl 21a-4
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 50,060 kB
  • sloc: lisp: 375,822; ansic: 30,304; asm: 2,977; sh: 1,372; makefile: 355; csh: 31
file content (13 lines) | stat: -rw-r--r-- 338 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
;;; Tests for the double-double arithmetic..

(defpackage :dd-tests
  (:use :cl :lisp-unit))

(in-package "DD-TESTS")

(define-test two-prod
  "Test two-prod"
  ;; This should not overflow anymore.
  (assert-equal (values 1.7976931281653871d308
			-4.9896007738368d291)
		(c::two-prod 1.7976931214684583d308 (1+ (scale-float 1d0 -28)))))