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

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

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

revision 1.2 by pfdietz, Sun Apr 20 22:59:25 2003 UTC revision 1.3 by pfdietz, Sat Nov 29 01:59:39 2003 UTC
# Line 21  Line 21 
21    (multiple-value-list (values (values 'a 'b 'c 'd 'e)))    (multiple-value-list (values (values 'a 'b 'c 'd 'e)))
22    (a))    (a))
23    
24    (deftest multiple-value-list.5
25      (multiple-value-list (values 'a))
26      (a))
27    
28    (deftest multiple-value-list.6
29      (multiple-value-list (values 'a 'b))
30      (a b))
31    
32    (deftest multiple-value-list.7
33      (not
34       (loop
35        for i from 0 below (min multiple-values-limit 100)
36        for x = (make-list i :initial-element 'a)
37        always (equal x (multiple-value-list (values-list x)))))
38      nil)
39    
40    
41  (deftest multiple-value-list.order.1  (deftest multiple-value-list.order.1
42    (let ((i 0))    (let ((i 0))
43      (values (multiple-value-list (incf i)) i))      (values (multiple-value-list (incf i)) i))

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