> (defun query-system-root (x) (asdf:component-pathname (asdf:find-system x)))
or with a not too old ASDF: TEST> (asdf:system-relative-pathname :hu.dwim.stefil "") #P"/home/ati/workspace/hu.dwim.stefil/" -- attila _______________________________________________ asdf-devel mailing list [email protected] http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
