(require 'asdf)
(asdf:initialize-source-registry
`(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))
(require 'asdf)
(asdf:initialize-source-registry
`(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))