From: Stas Boukarev <stassats@gmail.com>
Date: Fri, 6 Sep 2013 17:58:24 +0000 (+0400)
Subject: Remove a wrong IGNORE declaration.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7a3dd48161181e84c2dae473586781c2c55d27d7;p=sbcl.git

Remove a wrong IGNORE declaration.

An incorrect ignore declaration was used with #!-sb-package-locks,
even though the ignored variables are used without sb-package-locks
too.

Patch by Douglas Katzman.
---

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))