Update control.lisp