# Pastebin T3oM6Xeg
(asdf:initialize-output-translations
 `(:output-translations
   (t
    (:function (lambda(path dir)
                 (declare (ignore dir))
                 (let ((relative (enough-namestring path *genworks*)))
                   (merge-pathnames relative (merge-pathnames *fasls* *genworks-staging*))))))
   :ignore-inherited-configuration :disable-cache))