История изменений

Исправление no-such-file, 04.02.25 08:38 (текущая версия) :

Как сделать так, чтобы setf использовал cl-simd?

Очевидно нужен макрос, который будет преобразовывать setf в simd. В итоге код должен выглядеть так

(defun f (a)
(with-simd 
           (declare (type (simple-array (unsigned-byte 32) (*)) a))
           (setf (aref a 7) 7
                 (aref a 6) 6
                 (aref a 5) 5
                 (aref a 4) 4
                 (aref a 3) 3
                 (aref a 2) 2
                 (aref a 1) 1
                 (aref a 0) 0)))

Реализацию данного макроса оставим читателям в качестве домашнего задания.

Исходная версия no-such-file, 04.02.25 08:38:

Как сделать так, чтобы setf использовал cl-simd?

Очевидно нужен макрос, который будет преобразовывать setf в simd. В итоге код должен выглядеть так

(defun f (a)
(with-simd (
           (declare (type (simple-array (unsigned-byte 32) (*)) a))
           (setf (aref a 7) 7
                 (aref a 6) 6
                 (aref a 5) 5
                 (aref a 4) 4
                 (aref a 3) 3
                 (aref a 2) 2
                 (aref a 1) 1
                 (aref a 0) 0)))

Реализацию данного макроса оставим читателям в качестве домашнего задания.