- (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)))))))))