1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(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)
|
