Method: (P-LENGTH PERSISTENT-ARRAY)

Source

(defmethod p-length ((vector persistent-array))
  (check-p-vector vector 'p-length)
  (first (p-array-dimensions vector)))