(defun %rotate-byte (count size pos integer)
(let ((count (nth-value 1 (round count size)))
- (mask (1- (ash 1 size))))
+ (mask (1- (ash 1 size))))
(logior (logand integer (lognot (ash mask pos)))
- (let ((field (logand (ash mask pos) integer)))
- (logand (ash mask pos)
- (if (> count 0)
- (logior (ash field count)
- (ash field (- count size)))
- (logior (ash field count)
- (ash field (+ count size)))))))))
+ (let ((field (logand (ash mask pos) integer)))
+ (logand (ash mask pos)
+ (if (> count 0)
+ (logior (ash field count)
+ (ash field (- count size)))
+ (logior (ash field count)
+ (ash field (+ count size)))))))))
(defun %unsigned-32-rotate-byte (count integer)
;; inhibit transforms