<HTML><BODY><p>;; from Racket reference 4.2.2.6<br>(define (bitwise-bit-field* n start end)<br> (bitwise-and (sub1 (arithmetic-shift 1 (- end start)))<br> (arithmetic-shift n (- start))))<br><br>> (bitwise-bit-field #b11111111111111111111111111100010 0 31)<br>-30<br>> (bitwise-bit-field* #b11111111111111111111111111100010 0 31)<br>2147483618</p>Racket 6.0.1, Windows XP x86<br><br>-- <br>Roman Klochkov</BODY></HTML>