448 |
(deftest loop.10.93 |
(deftest loop.10.93 |
449 |
(loop for i from 1 to 4 summing (return 100)) |
(loop for i from 1 to 4 summing (return 100)) |
450 |
100) |
100) |
451 |
|
|
452 |
|
(deftest loop.10.94 |
453 |
|
(loop for i in nil sum i of-type integer) |
454 |
|
0) |
455 |
|
|
456 |
|
(deftest loop.10.95 |
457 |
|
(loop for i in nil sum i of-type fixnum) |
458 |
|
0) |
459 |
|
|
460 |
|
(deftest loop.10.96 |
461 |
|
(loop for i in nil sum i of-type bit) |
462 |
|
0) |
463 |
|
|
464 |
|
(deftest loop.10.97 |
465 |
|
(loop for i in nil sum i of-type (integer 0 100)) |
466 |
|
0) |
467 |
|
|
468 |
|
(deftest loop.10.98 |
469 |
|
(loop for i in nil sum i of-type (integer -100 0)) |
470 |
|
0) |
471 |
|
|
472 |
|
(deftest loop.10.99 |
473 |
|
(loop for i in nil sum i of-type (integer -100 100)) |
474 |
|
0) |
475 |
|
|
476 |
|
(deftest loop.10.100 |
477 |
|
(loop for i in nil sum i of-type (and integer (real -100.0 100.0))) |
478 |
|
0) |
479 |
|
|
480 |
|
(deftest loop.10.101 |
481 |
|
(loop for i in nil sum i of-type short-float) |
482 |
|
0.0s0) |
483 |
|
|
484 |
|
(deftest loop.10.102 |
485 |
|
(loop for i in nil sum i of-type single-float) |
486 |
|
0.0f0) |
487 |
|
|
488 |
|
(deftest loop.10.103 |
489 |
|
(loop for i in nil sum i of-type double-float) |
490 |
|
0.0d0) |
491 |
|
|
492 |
|
(deftest loop.10.104 |
493 |
|
(loop for i in nil sum i of-type long-float) |
494 |
|
0.0l0) |