lock-window.lisp now works.