X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=7427c2cdfadcef237469d5584da2d7f12e0363d2;hb=771b864c8f32af7734bc0550aeaf1539fc4df194;hp=9a86abe1dff752c5b060fafd323a6f9d4993b8a5;hpb=dfa8294a1580e8aa099a92baebba7d9caddb2fcb;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 9a86abe..7427c2c 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -120,12 +120,12 @@
   is intended to be wrapped around the compilation of all files in the same
   system. These keywords are defined:
     :OVERRIDE Boolean-Form
-	One of the effects of this form is to delay undefined warnings
-	until the end of the form, instead of giving them at the end of each
-	compilation. If OVERRIDE is NIL (the default), then the outermost
-	WITH-COMPILATION-UNIT form grabs the undefined warnings. Specifying
-	OVERRIDE true causes that form to grab any enclosed warnings, even if
-	it is enclosed by another WITH-COMPILATION-UNIT."
+        One of the effects of this form is to delay undefined warnings
+        until the end of the form, instead of giving them at the end of each
+        compilation. If OVERRIDE is NIL (the default), then the outermost
+        WITH-COMPILATION-UNIT form grabs the undefined warnings. Specifying
+        OVERRIDE true causes that form to grab any enclosed warnings, even if
+        it is enclosed by another WITH-COMPILATION-UNIT."
   `(%with-compilation-unit (lambda () ,@body) ,@options))
 
 (defun %with-compilation-unit (fn &key override)
@@ -225,12 +225,12 @@
 	    (when summary
 	      (if (eq kind :variable)
 		  (compiler-warn
-		   "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
-		    ~%  ~{~<~%  ~1:;~S~>~^ ~}"
+                   "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
+                    ~%  ~{~<~%  ~1:;~S~>~^ ~}"
 		   (cdr summary) kind summary)
 		  (compiler-style-warn
-		   "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
-		   ~%  ~{~<~%  ~1:;~S~>~^ ~}"
+                   "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
+                   ~%  ~{~<~%  ~1:;~S~>~^ ~}"
 		   (cdr summary) kind summary))))))))
 
   (unless (and (not abort-p)