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

diff --git a/contrib/sb-grovel/defpackage.lisp b/contrib/sb-grovel/defpackage.lisp
index ffeb518..5f161b1 100644
--- a/contrib/sb-grovel/defpackage.lisp
+++ b/contrib/sb-grovel/defpackage.lisp
@@ -1,4 +1,9 @@
 (defpackage "SB-GROVEL"
   (:export "GROVEL-CONSTANTS-FILE")
+  (: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" "SB-EXT"))
-