/[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.3 by pfdietz, Tue Oct 22 05:36:04 2002 UTC revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 138  Line 138 
138    0)    0)
139    
140  (deftest nth-2  (deftest nth-2
141    (handler-case    (let ((x (loop for i from 1 to 2000 collect i)))
142      (let ((x (loop for i from 1 to 2000 collect i)))      (loop
143        (loop       for i from 0 to 1999 do
144            for i from 0 to 1999 do       (setf (nth i x) (- 1999 i)))
145              (setf (nth i x) (- 1999 i)))      (equalt x (loop for i from 1999 downto 0 collect i)))
       (equal x (loop for i from 1999 downto 0 collect i)))  
     (error (c) c))  
146    t)    t)
147    
148  ;;; Test side effects, evaluation order in assignment to NTH  ;;; Test side effects, evaluation order in assignment to NTH

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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