Re: [Emacs-diffs] master b689b90: Package archives now have priorities.

[Artur Malabarba]

> +(defcustom package-archive-priorities nil
> +  "An alist of priorities for packages.
> +
> +Each element has the form (ARCHIVE-ID . PRIORITY).
> +
> +When installing packages, the package with the highest version
> +number from the archive with the highest priority is
> +selected. When higher versions are available from archives with
> +lower priorities, the user has to select those manually.
> +
> +Archives not in this list have the priority 0."
> +  :type 'integer
I think you meant 'alist?

> +(defun package--add-to-alist (pkg-desc alist)
> +  "Add PKG-DESC to ALIST.
> +
> +Packages are grouped by name. The package descriptions are sorted
> +by version number."
> +  (let* ((name (package-desc-name pkg-desc))
> +         (priority-version (package-desc-priority-version pkg-desc))
> +         (existing-packages (assq name alist)))
> +    (if (not existing-packages)
> +        (cons (list name pkg-desc)
This list should be a cons, probably why the test is failing.