Rotate-left-33
- Signature
(rotate-left-33 x places) → *
- Arguments
- x — The bit vector to be rotated left.
- places — The number of places to rotate left.
Definitions and Theorems
Function: rotate-left-33$inline
(defun rotate-left-33$inline (x places)
(declare (type (unsigned-byte 33) x)
(type (unsigned-byte 33) places))
(let ((__function__ 'rotate-left-33))
(declare (ignorable __function__))
(mbe
:logic (rotate-left x 33 places)
:exec
(let*
((x (mbe :logic (loghead 33 x) :exec x))
(places (mbe :logic (lnfix places)
:exec places))
(places (mbe :logic (mod places 33)
:exec
(if (< places 33)
(the (integer 0 32) places)
(the (integer 0 32) (rem places 33)))))
(low-num (the (integer 0 33) (- 33 places)))
(mask (the (unsigned-byte 33)
(1- (the (unsigned-byte 34)
(ash 1 low-num)))))
(xl (the (unsigned-byte 33)
(logand x mask)))
(xh (the (unsigned-byte 33)
(logand x
(the (signed-byte 34) (lognot mask)))))
(xh-shift (the (unsigned-byte 33)
(ash xh (the (integer -33 0) (- low-num)))))
(xl-shift (the (unsigned-byte 33)
(ash (the (unsigned-byte 33) xl)
(the (integer 0 33) places))))
(ans (the (unsigned-byte 33)
(logior xl-shift xh-shift))))
ans))))
