Re: resolution of symlinks in asdf

Kevin Layer <[email protected]> writes:

> cliki.net appears to be done, and has ever since I've been trying to
> read about ASDF-Binary-Location.  My remaining action on this matter
> is to read about that.

Have you considered and rejected the addition to asdf systems of the
unresolved system pathname?  If this wouldn't provide a solution to
your problem, it would be good to know why.

To make things a little more concrete, I think that (in the presence
of that construct, which I've called system-unresolved-pathname below)
the relevant output-files method would look like (untested):

  (defmethod output-files :around ((o compile-op) (c component))
    (let ((results (call-next-method)))
      (let ((binary-path-root (system-unresolved-pathname (component-system c)))
            (default-path-root (system-pathname (component-system c))))
        (mapcar 
         (lambda (path)
           (merge-pathnames (enough-namestring path default-path-root)
                            binary-path-root))
         results))))

Cheers,

Christophe