Method: ((SETF P-CDR) T PERSISTENT-CONS)

Source

(defmethod (setf p-cdr) (value (cons persistent-cons))
  (persistent-data-write (lambda (new-value contents)
                           (setf (cdr contents) new-value))
                         cons
                         value))