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

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

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

revision 1.2 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.3 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 19  Line 19 
19    (10 11 12 13)    (10 11 12 13)
20    #(10 11 12 13))    #(10 11 12 13))
21    
22    (deftest svref.order.1
23      (let ((v (vector 'a 'b 'c 'd))
24            (i 0) a b)
25        (values
26         (svref (progn (setf a (incf i)) v)
27                (progn (setf b (incf i)) 2))
28         i a b))
29      c 2 1 2)
30    
31    (deftest svref.order.2
32      (let ((v (vector 'a 'b 'c 'd))
33            (i 0) a b c)
34        (values
35         (setf
36          (svref (progn (setf a (incf i)) v)
37                 (progn (setf b (incf i)) 2))
38          (progn (setf c (incf i)) 'w))
39         v i a b c))
40      w #(a b w d) 3 1 2 3)
41    
42    
43  ;;; Error tests  ;;; Error tests
44    
45  (deftest svref.error.1  (deftest svref.error.1

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