- (let* ((value (if (logbitp 15 value) (+ value (ash 1 16)) value))
- (value (if (logbitp 31 value) (+ value (ash 1 32)) value))
- (value (if (logbitp 47 value) (+ value (ash 1 48)) value)))
- (setf (sap-ref-8 sap offset) (ldb (byte 8 48) value))
- (setf (sap-ref-8 sap (1+ offset)) (ldb (byte 8 56) value))))
+ (let* ((value (if (logbitp 15 value) (+ value (ash 1 16)) value))
+ (value (if (logbitp 31 value) (+ value (ash 1 32)) value))
+ (value (if (logbitp 47 value) (+ value (ash 1 48)) value)))
+ (setf (sap-ref-8 sap offset) (ldb (byte 8 48) value))
+ (setf (sap-ref-8 sap (1+ offset)) (ldb (byte 8 56) value))))