Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Tue Aug 5 02:30:18 2003 UTC | revision 1.2 by pfdietz, Tue Aug 5 02:45:06 2003 UTC | |
---|---|---|
# | Line 19 | Line 19 |
19 | collect x) | collect x) |
20 | nil) | nil) |
21 | ||
22 | (deftest min.error.3 | |
23 | (loop for x in *mini-universe* | |
24 | unless (or (realp x) | |
25 | (eq (classify-error** `(classify-error (min 0 ',x))) | |
26 | 'type-error)) | |
27 | collect x) | |
28 | nil) | |
29 | ||
30 | (deftest min.1 | (deftest min.1 |
31 | (loop for n in *reals* | (loop for n in *reals* |
32 | when (or (not (eql (min n) n)) | when (or (not (eql (min n) n)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |