(bitwise-arithmetic-shift-left <bignum> 32) in the 32-bit build returns junk

[Gwen Weinholt]

(bitwise-arithmetic-shift-left <bignum> 32) in the 32-bit build returns junk mixed in with the original number:

Ikarus Scheme version 0.0.4-rc1+ (revision 1843, build 2009-08-03)
Copyright (c) 2006-2009 Abdulaziz Ghuloum

> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"B79BFF7CC0E79300"
> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"17CC0E79300"
> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"B701EE7CC0E79300"
> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"367CC0E79300"
> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"2C7CC0E79300"
> (number->string (bitwise-arithmetic-shift-left #x7CC0E793 32) 16)
"7CC0E79300"
>
etc etc

This is the bug you found when you ran my DES test suite. :)

[Abdulaziz Ghuloum (aghuloum)]

Bizarre! It was shifting by 8 bits instead of 32, and that bug exists in shifts of multiples of wordsize on both 32 and 64-bit. I wonder how this slipped through all along.