X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flate-vmdef.lisp;h=708ec0ea1ed4cacf49024107fcf7482e069b01d8;hb=0f3a5f2e8886d18d0b4f6485c38a42be629422ae;hp=145ef05603cee96ee6448e5c3ea01cfbe4d4647d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/late-vmdef.lisp b/src/compiler/late-vmdef.lisp
index 145ef05..708ec0e 100644
--- a/src/compiler/late-vmdef.lisp
+++ b/src/compiler/late-vmdef.lisp
@@ -12,9 +12,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 (defun note-this-location (vop kind)
   #!+sb-doc
   "NOTE-THIS-LOCATION VOP Kind
@@ -34,6 +31,6 @@
    it."
   (let ((loc (note-debug-location vop nil kind)))
     (sb!assem:emit-postit (lambda (segment posn)
-			    (declare (ignore segment))
-			    (setf (location-info-label loc) posn))))
+                            (declare (ignore segment))
+                            (setf (location-info-label loc) posn))))
   (values))