X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffixup.lisp;h=2e98849674e6185bd33984fade7872b414509c8b;hb=12b1dae1a1ed90c6ffe4d958f1281c1c04a8e89b;hp=1a5e064482e7db04b116265986ba28c809a9be24;hpb=5e9825374b74df450d8cfb2c005e6bef30197734;p=sbcl.git

diff --git a/src/compiler/fixup.lisp b/src/compiler/fixup.lisp
index 1a5e064..2e98849 100644
--- a/src/compiler/fixup.lisp
+++ b/src/compiler/fixup.lisp
@@ -14,8 +14,8 @@
 
 ;;; a fixup of some kind
 (defstruct (fixup
-	    (:constructor make-fixup (name flavor &optional offset))
-	    (:copier nil))
+            (:constructor make-fixup (name flavor &optional offset))
+            (:copier nil))
   ;; the name and flavor of the fixup. The assembler makes no
   ;; assumptions about the contents of these fields; their semantics
   ;; are imposed by the dumper.
@@ -29,8 +29,8 @@
   offset)
 
 (defstruct (fixup-note
-	     (:constructor make-fixup-note (kind fixup position))
-	     (:copier nil))
+             (:constructor make-fixup-note (kind fixup position))
+             (:copier nil))
   kind
   fixup
   position)
@@ -45,18 +45,18 @@
 ;;; they find themselves trying to deal with a fixup.
 (defun note-fixup (segment kind fixup)
   (sb!assem:emit-back-patch segment
-			    0
-			    (lambda (segment posn)
-			      (declare (ignore segment))
-			      ;; Why use EMIT-BACK-PATCH to cause this PUSH to
-			      ;; be done later, instead of just doing it now?
-			      ;; I'm not sure. Perhaps there's some concern
-			      ;; that POSN isn't known accurately now? Perhaps
-			      ;; there's a desire for all fixing up to go
-			      ;; through EMIT-BACK-PATCH whether it needs to or
-			      ;; not? -- WHN 19990905
-			      #!+sb-show
-			      (when *show-fixups-being-pushed-p*
-				(/show "PUSHING FIXUP" kind fixup posn))
-			      (push (make-fixup-note kind fixup posn) *fixup-notes*)))
+                            0
+                            (lambda (segment posn)
+                              (declare (ignore segment))
+                              ;; Why use EMIT-BACK-PATCH to cause this PUSH to
+                              ;; be done later, instead of just doing it now?
+                              ;; I'm not sure. Perhaps there's some concern
+                              ;; that POSN isn't known accurately now? Perhaps
+                              ;; there's a desire for all fixing up to go
+                              ;; through EMIT-BACK-PATCH whether it needs to or
+                              ;; not? -- WHN 19990905
+                              #!+sb-show
+                              (when *show-fixups-being-pushed-p*
+                                (/show "PUSHING FIXUP" kind fixup posn))
+                              (push (make-fixup-note kind fixup posn) *fixup-notes*)))
   (values))