Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Jan 17 13:31:44 2004 UTC | revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC | |
---|---|---|
# | Line 26 | Line 26 |
26 | nil) | nil) |
27 | ||
28 | (deftest floatp.3 | (deftest floatp.3 |
29 | (loop for x in *universe* | (check-type-predicate #'floatp 'float) |
for vals = (multiple-value-list (floatp x)) | ||
unless (and (= (length vals) 1) | ||
(if (car vals) | ||
(typep x 'float) | ||
(not (typep x 'float)))) | ||
collect x) | ||
30 | nil) | nil) |
31 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |