*.lisp: remove unused *current-root* reference. Restore xlib event hooks loop used...