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

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

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

revision 1.1 by pfdietz, Wed Feb 12 02:25:41 2003 UTC revision 1.2 by pfdietz, Sun Feb 16 05:39:55 2003 UTC
# Line 48  Line 48 
48    
49  ;;; Order of argument evaluation  ;;; Order of argument evaluation
50    
51  (deftest aref.8  (deftest aref.order.1
52    (let ((i 0) x y (a #(a b c d)))    (let ((i 0) x y (a #(a b c d)))
53      (values      (values
54       (aref (progn (setf x (incf i)) a)       (aref (progn (setf x (incf i)) a)
# Line 56  Line 56 
56       i x y))       i x y))
57    c 2 1 2)    c 2 1 2)
58    
59  (deftest aref.9  (deftest aref.order.2
60    (let ((i 0) x y z (a #2a((a b c)(d e f))))    (let ((i 0) x y z (a #2a((a b c)(d e f))))
61      (values      (values
62       (aref (progn (setf x (incf i)) a)       (aref (progn (setf x (incf i)) a)
# Line 123  Line 123 
123    0    0
124    #2a((1 0 1)(1 1 1)))    #2a((1 0 1)(1 1 1)))
125    
126  (deftest setf-aref.8  (deftest setf-aref.order.1
127    (let ((i 0) x y z (a (copy-seq #(a b c d))))    (let ((i 0) x y z (a (copy-seq #(a b c d))))
128      (values      (values
129       (setf (aref (progn (setf x (incf i)) a)       (setf (aref (progn (setf x (incf i)) a)

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