bldc/tests/test_array_2.lisp

(let ((a "hello"))
  (= (array-read a 3u) \#l))