(in-package :cl-user)
(defun homedir-translation (input dd)
  (declare (ignorable dd))
  (format t "~&input ~s ~s~%" input 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 in-homedir ()
  (merge-pathnames (make-pathname :directory (list :relative :wild-inferiors)
                                  :name :wild
                                  :type :wild
                                  :version :wild)
                   (user-homedir-pathname)))

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

(defun dylib-translation (input dd)
  (declare (ignorable dd))
  (format t "~&NOTICE ME: input ~s dd ~s~%" input dd)
  (merge-pathnames
   (make-pathname :directory
                  (list :relative
                        (format nil "~{~a~^-~}"(cdr (pathname-directory input))))
                  :defaults input)
   (merge-pathnames "asdf-corral/Contents/Library/"
                    (user-homedir-pathname))))

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

(asdf:initialize-output-translations
 `(:output-translations
   #+(or):ignore-inherited-configuration
   :inherit-configuration
   #+(or):disable-cache
   (,(is-dylib) (:function dylib-translation))
   #+(or)("/" (:function do-translation))))

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

(eval-when (:execute)
  (trace dylib-translation))

#+nil
(ql:quickload :data-lens)