Update set.lisp