Re: [cl-prevalence-devel] [patch] serialize-sexp-internal bug: serializing object with no slots

Leslie P. Polzer wrote:

Alexey Voznyuk wrote: [snip]

...

ut maybe someone will need this patch:

What's the problem with the original code?

Serializing a standard object with no slots defined caused extra ")" added at the end.

For example, (defclass foo () ()). Invocation of (s-serialization::serialize-sexp-internal (make-instance 'foo) *standard-output* (s-serialization::make-serialization-state)) results something like (OBJECT 1 :CLASS COMMON-LISP-USER::FOO ) ) into the stream (notice the mismatched closing round bracket).

The patch should fix that issue.

Thanks!

Leslie