magit-gh-repos-mode.el

(defun read-list ()
	(if (not (eq ?\( (following-char)))
			(read (current-buffer))
		(forward-char 1)
		(prog1 
				(let (elements)
					(while (not (memq (following-char) '(?\) ?\.)))
						(push (read (current-buffer)) elements))
					(setq elements (nreverse elements))
					(if (eq ?\. (following-char))
							(nconc elements (read-list))
						elements))
			(forward-char 1))))