(defmethod p-array-dimensions ((array persistent-array)) (persistent-data-read #'array-dimensions array))