X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flate-macros.lisp;h=d7383304ee825e03b1b2a898d391f0469b15cfa4;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=b467e68a03b60cfbdbd9122a31fd1e9518380184;hpb=cf607a404d7518e8a18c9e362913f370eb9a5e38;p=sbcl.git

diff --git a/src/compiler/late-macros.lisp b/src/compiler/late-macros.lisp
index b467e68..d738330 100644
--- a/src/compiler/late-macros.lisp
+++ b/src/compiler/late-macros.lisp
@@ -24,22 +24,22 @@
     (when (cdr stores)
       (error "multiple store variables for ~S" place))
     (let ((n-item (gensym))
-	  (n-place (gensym))
-	  (n-current (gensym))
-	  (n-prev (gensym)))
+          (n-place (gensym))
+          (n-current (gensym))
+          (n-prev (gensym)))
       `(let* (,@(mapcar #'list temps vals)
-	      (,n-place ,access)
-	      (,n-item ,item))
-	 (if (eq ,n-place ,n-item)
-	     (let ((,(first stores) (,next ,n-place)))
-	       ,store)
-	     (do ((,n-prev ,n-place ,n-current)
-		  (,n-current (,next ,n-place)
-			      (,next ,n-current)))
-		 ((eq ,n-current ,n-item)
-		  (setf (,next ,n-prev)
-			(,next ,n-current)))))
-	 (values)))))
+              (,n-place ,access)
+              (,n-item ,item))
+         (if (eq ,n-place ,n-item)
+             (let ((,(first stores) (,next ,n-place)))
+               ,store)
+             (do ((,n-prev ,n-place ,n-current)
+                  (,n-current (,next ,n-place)
+                              (,next ,n-current)))
+                 ((eq ,n-current ,n-item)
+                  (setf (,next ,n-prev)
+                        (,next ,n-current)))))
+         (values)))))
 
 ;;; Push ITEM onto a list linked by the accessor function NEXT that is
 ;;; stored in PLACE.
@@ -50,7 +50,7 @@
     (when (cdr stores)
       (error "multiple store variables for ~S" place))
     `(let (,@(mapcar #'list temps vals)
-	   (,(first stores) ,item))
+           (,(first stores) ,item))
        (setf (,next ,(first stores)) ,access)
        ,store
        (values))))
@@ -58,9 +58,9 @@
 ;;; the target-code case of setting boolean attributes
 #+sb-xc-host
 (defmacro-mundanely !def-boolean-attribute-setter (test-name
-						   translations-name
-						   &rest attribute-names)
+                                                   translations-name
+                                                   &rest attribute-names)
   (guts-of-!def-boolean-attribute-setter test-name
-					 translations-name
-					 attribute-names
-					 'sb!xc:get-setf-expansion))
+                                         translations-name
+                                         attribute-names
+                                         'sb!xc:get-setf-expansion))