# Pastebin geGYcgU9
(asdf:initialize-output-translations
 `(:output-translations (t
			 (:function (lambda(path dir)
				      (format t "~%~%Path is: ~a,~%~%dir is ~a~%~%" path dir)
				      (merge-pathnames
				       (make-pathname :name nil :type nil
						      :directory (rest (rest (rest (pathname-directory path))))
				       *genworks-staging*))))
			:ignore-inherited-configuration :disable-cache)))