File: dd.lisp

package info (click to toggle)
cmucl 21d-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 45,328 kB
  • sloc: lisp: 378,758; ansic: 30,673; asm: 2,977; sh: 1,417; makefile: 357; 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)))))