[armedbear-cvs] r14000 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Wed Jul 11 03:50:41 2012
New Revision: 14000

Log:
Remove to-be-deleted package from packages which use it

- fixes ansi test DELETE-PACKAGE.5

Modified:
   trunk/abcl/src/org/armedbear/lisp/Package.java

Modified: trunk/abcl/src/org/armedbear/lisp/Package.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Package.java	Tue Jul 10 13:46:34 2012	(r13999)
+++ trunk/abcl/src/org/armedbear/lisp/Package.java	Wed Jul 11 03:50:41 2012	(r14000)
@@ -170,6 +170,12 @@
                 }
             }
 
+            if (usedByList != null) {
+              while (!usedByList.isEmpty()) {
+                usedByList.get(0).unusePackage(this);
+              }
+            }
+
             Packages.deletePackage(this);
 
             makeSymbolsUninterned(internalSymbols);