copy from xlisp3mac