substract machine related code to machine.lisp