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 |
|
|