История изменений
Исправление dmitry_vk, (текущая версия) :
Возьмем за основу:
(do-unbox some-function a b c (unbox d) e)
(let ((v (make-array (+ 4 (length d))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x across d do (setf (aref v (incf i)) x))
(setf (aref v (incf i)) e)
v)
Исправление dmitry_vk, :
Возьмем за основу:
(do-unbox some-function a b c (unbox v) d)
(let ((v (make-array (+ 4 (length d))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x across d (setf (aref v (incf i)) x))
(setf (aref v (incf i)) d)
v)
Исправление dmitry_vk, :
Возьмем за основу:
(do-unbox some-function a b c (unbox v) d)
(let ((v (make-array (+ 4 (length d))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x in-vector d (setf (aref v (incf i)) x))
(setf (aref v (incf i)) d)
v)
Исправление dmitry_vk, :
Возьмем за основу:
(do-unbox some-function a b c (unbox v) d)
(let ((v (make-array (+ 4 (length v))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x in-vector d (setf (aref v (incf i)) x))
(setf (aref v (incf i)) d)
v)
Исправление dmitry_vk, :
Возьмем за основу:
(do-unbox some-function a b c (unbox v) d)
(let ((v (make-array (+ 4 (length v))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x in-vector d (setf (aref v (incf i)) x))
(setf (aref v (incf i)) d))
Исходная версия dmitry_vk, :
Возьмем за основу:
(do-unbox some-function a b c (unbox v) d)
(let ((v (make-array (+ 4 (length v))))
(i -1))
(setf (aref v (incf i)) a)
(setf (aref v (incf i)) b)
(setf (aref v (incf i)) c)
(loop for x in-vector v (setf (aref v (incf i)) x))
(setf (aref v (incf i)) d))