newlisp: add test