(ecs 'asdf)
(load "user-home:darcs;asdf-system-connections;dev;asdf-system-connections")
(mapcar #'load
        (directory "user-home:darcs;asdf-systems;*.asd"))


"user-home:darcs;asdf-systems;metabang.bind.asd"

(compute-applicable-methods
 #'asdf:operation-done-p
 (list (asdf:make-operation 'asdf:load-op) (asdf:find-system 'metabang.bind)))


(asdf::component-name (asdf:find-system 'metabang.bind))
(asdf::map-system-connections #'print)
(asdf::map-system-connections #'inspect)

(asdf::traverse :load-op 'bind-and-metatilities)