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