Update common.lisp