(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 (make-instance '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 (make-instance 'asdf:load-op)
                (asdf::find-system 'bind-and-metatilities))

