Fix bug of init-lisp.el of purcell.