- (let* ((h (ldb (byte 16 16) fixup))
- (l (ldb (byte 16 0) fixup)))
- ; Compensate for possible sign-extension when the low half
- ; is added to the high. We could avoid this by ORI-ing
- ; the low half in 32-bit absolute loads, but it'd be
- ; nice to be able to do:
- ; lis rX,foo@ha
- ; lwz rY,foo@l(rX)
- ; and lwz/stw and friends all use a signed 16-bit offset.
- (setf (ldb (byte 16 0) (sap-ref-32 sap offset))
- (if (logbitp 15 l) (ldb (byte 16 0) (1+ h)) h))))
+ (let* ((h (ldb (byte 16 16) fixup))
+ (l (ldb (byte 16 0) fixup)))
+ ; Compensate for possible sign-extension when the low half
+ ; is added to the high. We could avoid this by ORI-ing
+ ; the low half in 32-bit absolute loads, but it'd be
+ ; nice to be able to do:
+ ; lis rX,foo@ha
+ ; lwz rY,foo@l(rX)
+ ; and lwz/stw and friends all use a signed 16-bit offset.
+ (setf (ldb (byte 16 0) (sap-ref-32 sap offset))
+ (if (logbitp 15 l) (ldb (byte 16 0) (1+ h)) h))))