lisp いろいろ修正