Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Tue Aug 5 02:45:06 2003 UTC | revision 1.3 by pfdietz, Mon Sep 1 21:40:11 2003 UTC | |
---|---|---|
# | Line 14 | Line 14 |
14 | (deftest min.error.2 | (deftest min.error.2 |
15 | (loop for x in *mini-universe* | (loop for x in *mini-universe* |
16 | unless (or (realp x) | unless (or (realp x) |
17 | (eq (classify-error** `(classify-error (min ',x))) | (eq (eval `(classify-error (min ',x))) |
18 | 'type-error)) | 'type-error)) |
19 | collect x) | collect x) |
20 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |