Bug#568818: Verified, and workaround

[fredrik@dolda2000.com (Fredrik Tolf)]

This happens to me too. I am able to work around it be replacing
SWANK-LOADER::BINARY-PATHNAME with the following definition:

(defun binary-pathname (src-pathname binary-dir)
  "Return the pathname where SRC-PATHNAME's binary should be compiled."
  (declare (ignore binary-dir))
  (let ((cfp (compile-file-pathname src-pathname)))
    (merge-pathnames (make-pathname 
                      :directory
                      `(:relative ,@(cdr (pathname-directory
                                           (user-homedir-pathname)))
                                  "swank" "fasl" ,(unique-dir-name))
                      :name (pathname-name cfp)
                      :type (pathname-type cfp))
                     asdf:*default-toplevel-directory*)))

While it works, I smell uglyness. I have no better suggestion currently,
though, but it seems that the ASDF function OUTPUT-FILES-USING-MAPPINGS
or OUTPUT-FILES-FOR-SYSTEM-AND-OPERATION might be usable for
constructing a better solution.

Fredrik Tolf