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.