Method: ((SETF P-AREF) T PERSISTENT-ARRAY)

Source

(defmethod (setf p-aref) (new-value (array persistent-array) &rest indices)
  (persistent-data-write (lambda (new-value contents)
                           (setf (apply #'aref contents indices) new-value))
                         array
                         new-value))