X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-make-load-form.lisp;h=90b9eeffe75b3f4b121e2876ee566f9c173bd3f2;hb=8cad02355db787b9f077b77f508329550ccd0db6;hp=22bde128967b18a9e8b84bfa7fc0cceb523650df;hpb=2e91e29892268b2c7e5ab557e8192fa03bce68f2;p=sbcl.git

diff --git a/src/code/cross-make-load-form.lisp b/src/code/cross-make-load-form.lisp
index 22bde12..90b9eef 100644
--- a/src/code/cross-make-load-form.lisp
+++ b/src/code/cross-make-load-form.lisp
@@ -35,7 +35,7 @@
 (in-package "SB!INT")
 
 (defun sb!xc:make-load-form-saving-slots (object &rest args
-					  &key slot-names environment)
+                                          &key slot-names environment)
   (declare (ignore environment))
   (if (member :sb-xc-host *features*)
       ;; we're still building the cross-compiler, so use the host's
@@ -47,7 +47,7 @@
       ;; target's MAKE-LOAD-FORM-SAVING-SLOTS; it would be nice to
       ;; share code with that if possible. -- CSR, 2002-05-30
       (if slot-names
-	  (bug "MAKE-LOAD-FORM-SAVING-SLOTS ~
+          (bug "MAKE-LOAD-FORM-SAVING-SLOTS ~
                 called with :SLOT-NAMES argument during cross-compilation")
-	  :sb-just-dump-it-normally)))
+          :sb-just-dump-it-normally)))