(defmethod serialize ((object persistent-data) stream)
;; When the serializer meets a persistent-data object, it only needs to save
;; the object id. The cache will make sure that the cached object is saved
;; elsewhere.
(serialize-marker +p-object+ stream)
(serialize (object-id object) stream))