On 3 Feb 2015 05:45, "Thierry Volpiatto" <thierry.volpiatto@gmail.com> wrote:
>
>
> The first thing we have to fix now is package--get-deps, Arthur, yes you
> are right we should recurse without the 'direct flag, so we should use
> this version:
>
> (defun package--get-deps (pkg &optional only)
> (let* ((pkg-desc (cadr (assq pkg package-alist)))
> (direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
> for name = (car p)
> when (assq name package-alist)
> collect name))
> (indirect-deps (unless (eq only 'direct)
> (cl-loop for p in direct-deps
> append (package--get-deps p) into lst
> finally return (delete-dups lst)))))
> (cl-case only
> (direct direct-deps)
> (separate (list direct-deps indirect-deps))
> (indirect indirect-deps)
> (t (append direct-deps indirect-deps)))))
>
>
> Can you push it ?
Yes, but possibly not today.