From: Stas B. <sta...@gm...> - 2013-09-06 17:58:59
|
Douglas Katzman <do...@go...> writes: > 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)) Applied, thanks. -- With best regards, Stas. |