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

diff --git a/src/code/cross-make-load-form.lisp b/src/code/cross-make-load-form.lisp
index 7e26e75..22bde12 100644
--- a/src/code/cross-make-load-form.lisp
+++ b/src/code/cross-make-load-form.lisp
@@ -31,6 +31,9 @@
 ;;;
 ;;; 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)
   (declare (ignore environment))