Build clfswm image in load.lisp. Let bind-on-slot on other child than current child