From: Alastair B. <lis...@us...> - 2010-05-30 00:40:43
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv26634/tests Modified Files: packages.impure.lisp Log Message: 1.0.39.2: Fix symbol-name-conflict resolution test from 1.0.39.1. * Before signalling a name-conflict in IMPORT due to a symbol found previously on the arglist, remove the earlier symbol from the list of symbols to add to the package (one or the other will be shadowing-imported, and there's no further check for name collision. Index: packages.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/packages.impure.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- packages.impure.lisp 30 May 2010 00:32:12 -0000 1.11 +++ packages.impure.lisp 30 May 2010 00:40:34 -0000 1.12 @@ -248,7 +248,7 @@ ;;; Make sure that resolving a name-conflict in IMPORT doesn't leave ;;; multiple symbols of the same name in the package (this particular ;;; scenario found in 1.0.38.9, but clearly a longstanding issue). -(with-test (:name import-conflict-resolution :fails-on :sbcl) +(with-test (:name import-conflict-resolution) (with-packages (("FOO" (:export "NIL")) ("BAR" (:use))) (with-name-conflict-resolution ((sym "FOO" "NIL")) |