/[gcl]/gcl/ansi-tests/cons-test-05.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-05.lsp

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

revision 1.7 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.8 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 156  Line 156 
156    t)    t)
157    
158  ;;; Test side effects, evaluation order in assignment to NTH  ;;; Test side effects, evaluation order in assignment to NTH
159  (deftest nth.3  (deftest nth.order.1
160    (let ((i 0)    (let ((i 0)
161          (x (list 'a 'b 'c 'd))          (x (list 'a 'b 'c 'd))
162          y z)          y z)
# Line 168  Line 168 
168       x))       x))
169    (a z c d))    (a z c d))
170    
171  (deftest nth.4  (deftest nth.order.2
172    (let ((i 0) x y (z '(a b c d e)))    (let ((i 0) x y (z '(a b c d e)))
173      (values      (values
174       (nth (progn (setf x (incf i)) 1)       (nth (progn (setf x (incf i)) 1)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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