Update html.lisp

optimized