(defun homedir-translation (input dd)
  (declare (ignore dd))
  (merge-pathnames
   (make-pathname :directory
                  (list* :relative
                         "build-cache"
                         "homedir"
                         (cdr
                          (pathname-directory
                           (parse-namestring
                            (enough-namestring input
                                               (user-homedir-pathname))))))
                  :defaults input)
   (merge-pathnames "asdf-corral/Contents/Resources/"
                    (user-homedir-pathname))))

(defun do-translation (input dd)
  (declare (ignore dd))
  (merge-pathnames
   (make-pathname :directory
                  (list :relative
                        "build-cache"
                        "root"
                        (format nil "~{~a~^-~}"(cdr (pathname-directory input))))
                  :defaults input)
   (merge-pathnames "asdf-corral/Contents/Resources/"
                    (user-homedir-pathname))))

(defun in-homedir ()
  (merge-pathnames (make-pathname :directory (list :relative :wild-inferiors)
                                  :name :wild
                                  :type :wild
                                  :version :wild)
                   (user-homedir-pathname)))

(asdf:initialize-output-translations
 `(:output-translations
   :ignore-inherited-configuration
   :disable-cache
   (,(in-homedir) (:function homedir-translation))
   ("/" (:function do-translation))))

(load "~/quicklisp/setup.lisp")

(eval-when (:compile-toplevel :load-toplevel :execute)
  (trace homedir-translation do-translation))

(ql:quickload :data-lens)