Update format.lisp