[cl-prevalence-devel] Patch for serialization of arbitrary data

[Leslie P. Polzer]

Krzysztof Drewniak wrote:

> --- src/serialization/xml.lisp.old	2010-06-10 20:50:24.000000000 -0500
> +++ src/serialization/xml.lisp	2010-06-10 21:24:34.000000000 -0500
> @@ -196,6 +196,12 @@
>                      (write-string "</SLOT>" stream)))
>  	(write-string "</OBJECT>" stream)))))
>
> +;;anything we don't know about
> +(defmethod serialize-xml-internal (object stream serialization-state)
> +  (declare (ignore serialization-state))
> +  (write-string "<ARBITRARY>" stream)
> +  (print object stream)
> +  (write-string "</ARBITRARY>" stream))
>
>  ;;;; DESERIALIZATION
>
> @@ -283,6 +289,11 @@
>      (declare (ignore name attributes parent-seed seed))
>      nil))
>
> +(defmethod deserialize-xml-finish-element-aux ((name (eql :arbitrary))
> +						attributes parent-seed seed)
> +  (declare (ignore name attributes parent-seed))
> +  (read (make-string-input-stream seed)))
> +

I'm not sure whether this one is good. We're mixing XML and SEXP
serialization.

Do you have a specific use case?

  Leslie