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

[Alexey Voznyuk]

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
>
>