Added locks.lisp