(defmethod p-aref ((array persistent-array) &rest indices) (apply #'persistent-data-read #'aref array indices))