Common Lisp：如何访问某个多维数组的行？

Question

假设我写了

(setf s (make-array (list 9 9) :element-type 'bit))

所以s是一个9x9的位矩阵。

我希望得到第一排的。我怎么做到的？

我本可以做到以下几点：

(setf s (make-array 9 
          :element-type 'array 
          :initial-element 
          (make-array 9 :element-type 'bit)))

并通过（svref s 0）访问第一行。
但我想知道是否有内置方式。
（并且2 dim数组似乎分配了更少的字节）。

Answer 1

(defun array-slice (arr row)
    (make-array (array-dimension arr 1) 
      :displaced-to arr 
       :displaced-index-offset (* row (array-dimension arr 1))))

这仅适用于行切片，而不是IIRC复制数组。写入切片将修改原始数组。