/[gcl]/gcl/ansi-tests/loop10.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/loop10.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sun Nov 17 18:35:31 2002 UTC revision 1.3 by pfdietz, Sat Aug 2 18:35:19 2003 UTC
# Line 448  Line 448 
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26