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

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

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

revision 1.1 by pfdietz, Thu Jan 23 04:11:59 2003 UTC revision 1.2 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 84  Line 84 
84      (loop for i from 0 to 23 collect (row-major-aref a i)))      (loop for i from 0 to 23 collect (row-major-aref a i)))
85    (a b c d e f g h i j k l m n o p q r s t u v w x))    (a b c d e f g h i j k l m n o p q r s t u v w x))
86    
87    (deftest row-major-aref.order.1
88      (let ((i 0) x y)
89        (values
90         (row-major-aref
91          (progn (setf x (incf i)) #(a b c d e f))
92          (progn (setf y (incf i)) 2))
93         i x y))
94      c 2 1 2)
95    
96    (deftest row-major-aref.order.2
97      (let ((i 0) x y z
98            (a (copy-seq #(a b c d e f))))
99        (values
100         (setf
101          (row-major-aref
102           (progn (setf x (incf i)) a)
103           (progn (setf y (incf i)) 2))
104          (progn (setf z (incf i)) 'w))
105         a i x y z))
106      w #(a b w d e f) 3 1 2 3)
107    
108  ;;; Error tests  ;;; Error tests
109    

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