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