bug#13518: 24.2; json-encode fails on list-of-alists

bug#13518: 24.2; json-encode fails on list-of-alists

[Simon Schubert]

json-encode fails to encode a list-of-alists:

(require 'json)
(let* ((mypair (cons 'a 'b))
       (myalist (list mypair))
       (mylistofalist (list myalist)))
  (print (json-encode mylistofalist)))

produces this:

Debugger entered--Lisp error: (wrong-type-argument listp b)
  mapconcat(json-encode (a . b) ", ")
  json-encode-array((a . b))
  json-encode-list((a . b))
  json-encode((a . b))
  #[(cons) "\301\302\303\b@!\303\bA!#\207" [cons format "%s:%s" json-encode] 5](((a . b)))
  mapcar(#[(cons) "\301\302\303\b@!\303\bA!#\207" [cons format "%s:%s" json-encode] 5] (((a . b))))
  json-encode-alist((((a . b))))
  json-encode-list((((a . b))))
  json-encode((((a . b))))
...


The following function fixes this issue:

(defun json-alist-p (list)
  "Non-null if and only if LIST is an alist with simple keys."
  (while (consp list)
    (setq list (if (and (consp (car list))
			(atom (caar list)))
                   (cdr list)
                 'not-alist)))
  (null list))


cheers,
  simon

bug#13518: 24.2; json-encode fails on list-of-alists

[Dmitry Gutov]

Version: 24.4

Simon Schubert <2@0x2c.org> writes:

> The following function fixes this issue:
>
> (defun json-alist-p (list)
>   "Non-null if and only if LIST is an alist with simple keys."
>   (while (consp list)
>     (setq list (if (and (consp (car list))
> 			(atom (caar list)))
>                    (cdr list)
>                  'not-alist)))
>   (null list))

Applied, thanks!