X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fdefpackage.lisp;h=291bd0b2f1251c85d1cd6b5a32d8050b3720da04;hb=5f891793819e3cd714c443c9a0a7223b4fb13dd0;hp=ffeb518b8ee6a2d607740f345508868c078b9626;hpb=a09b213e5812edd1ef3e88c18bde6bd1294da547;p=sbcl.git

diff --git a/contrib/sb-grovel/defpackage.lisp b/contrib/sb-grovel/defpackage.lisp
index ffeb518..291bd0b 100644
--- a/contrib/sb-grovel/defpackage.lisp
+++ b/contrib/sb-grovel/defpackage.lisp
@@ -1,4 +1,9 @@
 (defpackage "SB-GROVEL"
   (:export "GROVEL-CONSTANTS-FILE")
-  (:use "COMMON-LISP" "SB-ALIEN" "ASDF" "SB-EXT"))
-
+  (:shadow "TYPE" "UNION")
+  ;; FIXME: This is a really quick and dirty package lock compliance
+  ;; fix, that should be redone. Specifically, this is needed to address the
+  ;; nasty things done with SB-ALIEN:STRUCT.
+  #+sb-package-locks
+  (:implement "SB-ALIEN")
+  (:use "COMMON-LISP" "SB-ALIEN" "ASDF" "UIOP"))