From: Michael W. <mic...@fo...> - 2008-08-12 22:25:49
|
Signed-off-by: Michael Weber <mic...@fo...> --- src/code/target-package.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index e92c43f..9c10525 100644 --- a/src/code/target-package.lisp +++ b/src/code/target-package.lisp @@ -883,7 +883,7 @@ implementation it is ~S." *default-package-use-list*) (if (eq package-symbol chosen-symbol) nil ; re-importing the same symbol (shadowing-import (list chosen-symbol) package)) - (shadowing-import chosen-symbol package))))))))) + (shadowing-import (list chosen-symbol) package))))))))) ;;; If we are uninterning a shadowing symbol, then a name conflict can ;;; result, otherwise just nuke the symbol. -- 1.6.0.rc1.2.ge0842b |
From: Nikodemus S. <nik...@ra...> - 2008-08-17 10:06:23
|
On Wed, Aug 13, 2008 at 1:25 AM, Michael Weber <mic...@fo...> wrote: > > Signed-off-by: Michael Weber <mic...@fo...> > --- > src/code/target-package.lisp | 2 +- > 1 files changed, 1 insertions(+), 1 deletions(-) > > diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp > index e92c43f..9c10525 100644 > --- a/src/code/target-package.lisp > +++ b/src/code/target-package.lisp > @@ -883,7 +883,7 @@ implementation it is ~S." *default-package-use-list*) > (if (eq package-symbol chosen-symbol) > nil ; re-importing the same symbol > (shadowing-import (list chosen-symbol) package)) > - (shadowing-import chosen-symbol package))))))))) > + (shadowing-import (list chosen-symbol) package))))))))) > > ;;; If we are uninterning a shadowing symbol, then a name conflict can > ;;; result, otherwise just nuke the symbol. > -- > 1.6.0.rc1.2.ge0842b Thank you, merged in 1.0.19.31. Cheers, -- Nikodemus |