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