/[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.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC revision 1.3 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 53  Line 53 
53              (multiple-value-list (apply #'values x))))              (multiple-value-list (apply #'values x))))
54    t)    t)
55    
56    (deftest values.order.1
57      (let ((i 0) a b c)
58        (values (multiple-value-list
59                 (values (setf a (incf i)) (setf b (incf i)) (setf c (incf i))))
60                i a b c))
61      (1 2 3) 3 1 2 3)
62        

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