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.
(type list nicknames shadows shadowing-imports
imports interns exports)
(type (or list (member :default)) use)
(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))
(with-package-graph ()
(let* ((existing-package (find-package name))
(use (use-list-packages existing-package use))