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

Diff of /gcl/ansi-tests/nth-value.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, Sat Feb 15 05:11:11 2003 UTC
# Line 27  Line 27 
27    (nth-value 100 'a)    (nth-value 100 'a)
28    nil)    nil)
29    
30    (deftest nth-value.order.1
31      (let ((i 0) x y)
32        (values
33         (nth-value (progn (setf x (incf i)) 3)
34                    (progn (setf y (incf i)) (values 'a 'b 'c 'd 'e 'f 'g)))
35         i x y))
36      d 2 1 2)

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