Could we add special case arithmetic-shift procedures such as:

(arithmetic-shift-left i count)

(arithmetic-shift-right i count)

I've always found the convention with positive and negative count values to be hard to remember.

Thanks,

KW