2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Aug 4 21:33:44 2003
4
;;;; Contains: Tests of MINUSP
8
(deftest minusp.error.1
9
(signals-error (minusp) program-error)
12
(deftest minusp.error.2
13
(signals-error (minusp 0 0) program-error)
16
(deftest minusp.error.3
17
(signals-error (minusp 0 nil) program-error)
20
(deftest minusp.error.4
21
(loop for x in *mini-universe*
23
unless (eval `(signals-error (minusp ',x) type-error))
32
(notnot-mv (minusp -1))
40
(loop for x in *reals*
41
when (if (minusp x) (>= x 0) (< x 0))
46
(some #'minusp '(-0.0s0 -0.0f0 -0.0d0 -0.0l0))
51
(list least-negative-short-float
52
least-negative-normalized-short-float
53
least-negative-single-float
54
least-negative-normalized-single-float
55
least-negative-double-float
56
least-negative-normalized-double-float
57
least-negative-long-float
58
least-negative-normalized-long-float
59
most-negative-short-float
60
most-negative-single-float
61
most-negative-double-float
62
most-negative-long-float))