0.9.2.43:
[sbcl.git] / src / code / cross-byte.lisp
index 4b6f4a2..d693a7c 100644 (file)
     (when (cdr stores)
       (bug "SETF SB!XC:LDB too hairy!"))
     (let ((btemp (gensym))
-         (store (gensym)))
+          (store (gensym)))
       (values (cons btemp temps)
-             (cons cross-byte vals)
-             (list store)
-             `(let ((,(car stores) (cl:dpb ,store (uncross-byte ,btemp) ,access-form)))
-               ,store-form
-               ,store)
-             `(cl:ldb (uncross-byte ,btemp) ,access-form)))))
+              (cons cross-byte vals)
+              (list store)
+              `(let ((,(car stores) (cl:dpb ,store (uncross-byte ,btemp) ,access-form)))
+                ,store-form
+                ,store)
+              `(cl:ldb (uncross-byte ,btemp) ,access-form)))))
 
 (define-setf-expander sb!xc:mask-field (cross-byte int &environment env)
     (multiple-value-bind (temps vals stores store-form access-form)
     (when (cdr stores)
       (bug "SETF SB!XC:MASK-FIELD too hairy!"))
     (let ((btemp (gensym))
-         (store (gensym)))
+          (store (gensym)))
       (values (cons btemp temps)
-             (cons cross-byte vals)
-             (list store)
-             `(let ((,(car stores) (cl:deposit-field ,store (uncross-byte ,btemp) ,access-form)))
-               ,store-form
-               ,store)
-             `(cl:mask-field (uncross-byte ,btemp) ,access-form)))))
+              (cons cross-byte vals)
+              (list store)
+              `(let ((,(car stores) (cl:deposit-field ,store (uncross-byte ,btemp) ,access-form)))
+                ,store-form
+                ,store)
+              `(cl:mask-field (uncross-byte ,btemp) ,access-form)))))