changed lisp_ptr_cast<>()