X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-make-load-form.lisp;h=90b9eeffe75b3f4b121e2876ee566f9c173bd3f2;hb=842c9ee088e4b85cc0ef4ba9ce69797b6f26e677;hp=7e26e75ccb78f934c96f4717b30c56cd1b4d4e63;hpb=d202a453b45430e04671b966c01bc067c2667442;p=sbcl.git

diff --git a/src/code/cross-make-load-form.lisp b/src/code/cross-make-load-form.lisp
index 7e26e75..90b9eef 100644
--- a/src/code/cross-make-load-form.lisp
+++ b/src/code/cross-make-load-form.lisp
@@ -31,8 +31,11 @@
 ;;;
 ;;; Also, something along these lines can remove the special case in
 ;;; EMIT-MAKE-LOAD-FORM in src/compiler/main.lisp.
+
+(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
@@ -44,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)))