optimize lin.lisp