4 #include "base/cl_sysdep.h"
7 #include "cln/integer.h"
12 #include "cln/integer.h"
13 #include "integer/cl_I.h"
17 const cl_I deposit_field (const cl_I& newbyte, const cl_I& n, const cl_byte& b)
20 // (DEPOSIT-FIELD newbyte (byte s p) integer)
22 // (ash (logxor (ldb (byte s p) newbyte) (ldb (byte s p) integer))
25 return logxor(n, ash(logxor(ldb(newbyte,b),ldb(n,b)), b.position));