Method: (P-REPLACE PERSISTENT-ARRAY PERSISTENT-ARRAY)

Source

(defmethod p-replace ((vector-1 persistent-array)
                      (vector-2 persistent-array)
                      &key (start1 0) end1 (start2 0) end2)
  ;; We don't need to look at the cached sequence elements,
  ;; so we can just use CL:REPLACE on the vector contents and bypass
  ;; the p-aref calls.
  (replace (contents vector-1) (contents vector-2)
           :start1 start1
           :end1 end1
           :start2 start2
           :end2 end2)
  ;; Touch the vector because it has changed.
  (cache-touch-object vector-1 (cache vector-1))
  vector-1)