[Sbcl-devel] Incorrect 'declare ignore' when compiling without package locks

[Douglas K. <do...@go...>]

The '%defpackage' function passes 'implement' and 'lock' to
'update-package' whether or not the build uses package locks:

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index ae4d051..58600c4 100644
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -387,9 +387,7 @@ specifies to signal a warning if SWANK package is in
variance, and an error othe
            (type list nicknames shadows shadowing-imports
                  imports interns exports)
            (type (or list (member :default)) use)
-           (type (or simple-string null) doc-string)
-           #!-sb-package-locks
-           (ignore implement lock))
+           (type (or simple-string null) doc-string))
   (with-package-graph ()
     (let* ((existing-package (find-package name))
            (use (use-list-packages existing-package use))