[asdf-devel] how to query root of a system

[Faré]

2009/10/26 Tamas Papp <tkpapp at gmail.com>:
> Hi,
>
> Suppose I have a library named MYLIBRARY which was installed in the
> directory /somewhere/foo/ (eg by ASDF-Install, clbuild or manually by
> the user).  It has a /somewhere/foo/mylibrary.asd definition file,
> which was duly symlinked to mylibrary.asd in ASDF's central registry.
> The user can load it the usual way using ASDF.
>
> Is it possible to query the root directory somehow using the name?  Eg
> I am looking for
>
> (query-system-root :mypackage)   ; evaluates to #P"/somewhere/foo/"
>
> I could not find how to do this in the manual.
>
(defun query-system-root (x) (asdf:component-pathname (asdf:find-system x)))

[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
That life is worth living is the most necessary of assumptions, and were it
not assumed, the most impossible of conclusions. -- George Santayana