/[gcl]/gcl/ansi-tests/multiple-value-call.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/multiple-value-call.lsp

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

revision 1.1 by pfdietz, Sat Oct 19 04:45:13 2002 UTC revision 1.2 by pfdietz, Sat Nov 29 01:59:39 2003 UTC
# Line 16  Line 16 
16  (deftest multiple-value-call.3  (deftest multiple-value-call.3
17    (multiple-value-call 'list (floor 13 4))    (multiple-value-call 'list (floor 13 4))
18    (3 1))    (3 1))
   
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;  
   
 (deftest multiple-value-list.1  
   (multiple-value-list (values))  
   nil)  
   
 (deftest multiple-value-list.2  
   (multiple-value-list (values 'a))  
   (a))  
   
 (deftest multiple-value-list.3  
   (multiple-value-list (values 'a 'b))  
   (a b))  
   
 (deftest multiple-value-list.4  
   (not  
    (loop  
     for i from 0 below (min multiple-values-limit 100)  
     for x = (make-list i :initial-element 'a)  
     always (equal x (multiple-value-list (values-list x)))))  
   nil)  
   
   

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

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