X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-byte.lisp;h=319ad7d4308755bb34d1d6c1ac213fad3556f85c;hb=cd1b14acf6f548b28b8a14e554d779f0473122ec;hp=b9b81782af266ac57e5fb60328232e1d2e6c4483;hpb=2e91e29892268b2c7e5ab557e8192fa03bce68f2;p=sbcl.git

diff --git a/src/code/cross-byte.lisp b/src/code/cross-byte.lisp
index b9b8178..319ad7d 100644
--- a/src/code/cross-byte.lisp
+++ b/src/code/cross-byte.lisp
@@ -45,14 +45,14 @@
     (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)
@@ -60,11 +60,11 @@
     (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)))))