X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=59f2f24f22e51f34f7d8a5234a9c69b7f9ca7bef;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=8e14a5eda2bda61705ccb32905f44d5d30e0d23e;hpb=8b64d57b865fec6ba082dda965146b5e8aa877b3;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 8e14a5e..59f2f24 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -99,7 +99,12 @@
   ;; shadowing symbols
   (%shadowing-symbols () :type list)
   ;; documentation string for this package
-  (doc-string nil :type (or simple-base-string null)))
+  (doc-string nil :type (or simple-base-string null))
+  ;; package locking
+  #!+sb-package-locks
+  (lock nil :type boolean)
+  #!+sb-package-locks
+  (%implementation-packages nil :type list))
 
 ;;;; iteration macros