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

Source

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