jonathan-encoder0 when some object is present twice in to-json's input

[svetlyak40wt]

CL-USER> (let ((user "bob")) (to-json (list :a user :b user)))
"{\"A\":\"jonathan-encoder0\",\"B\":\"bob\"}"

Expected result is:

{"A": "bob", "B": "bob"}

[svetlyak40wt]

Right now workaround is wrapping second value with format call to make another string instance:

CL-USER> (let ((user "bob")) (to-json (list :a user :b (format nil "~A" user))))
"{\"A\":\"bob\",\"B\":\"bob\"}"

[svetlyak40wt]

Does somebody have ideas how to fix it?

[svetlyak40wt]

Guys?

[rudolph-miller]

I will take a look at this issue in the next week or two.

[svetlyak40wt]

Great! Thank you!

[svetlyak40wt]

Hi Rudolph. Are there any news here?

[svetlyak40wt]

Rudolph, if you don't have time for this issue, please, tell me and may I'll try to solve it myself and will send a pull.

[svetlyak40wt]

This issues was closed half year before by pull #56

Thanks to https://12forks.com MVP for pointing to this stale issue!