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

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

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

revision 1.1 by pfdietz, Sat Oct 19 13:39:57 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 39  Line 39 
39  (deftest values.A  (deftest values.A
40    (values (values 1 2) (values 3 4 5) (values) (values 10))    (values (values 1 2) (values 3 4 5) (values) (values 10))
41    1 3 nil 10)    1 3 nil 10)
42    
43    (deftest values.B
44      (funcall #'values 1 2 3 4)
45      1 2 3 4)
46    
47    (deftest values.C
48      (let ((x (loop for i from 1 to (min 1000
49                                          (1- call-arguments-limit)
50                                          (1- multiple-values-limit))
51                     collect i)))
52        (equalt x
53                (multiple-value-list (apply #'values x))))
54      t)
55    
56      

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