Другие авторы дали хорошие ответы, которые хорошо работают.
Это на тот случай, если вы много делаете это и хотите, чтобы макрос сделал ваш синтаксис немного более аккуратным:
(defmacro make-byte-array [bytes]
`(byte-array [~@(map (fn[v] (list `byte v)) bytes)]))
(aget (make-byte-array [1 2 3]) 2)
=> 3