Changeset 14000

Timestamp:

07/11/12 10:50:41 (8 years ago)

Author:

rschlatte

Message:

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

• fixes ansi test DELETE-PACKAGE.5

File:

• trunk/abcl/src/org/armedbear/lisp/Package.java (modified) (1 diff)

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

@@ -171 +171 @@
             }
 
+            if (usedByList != null) {
+              while (!usedByList.isEmpty()) {
+                usedByList.get(0).unusePackage(this);
+              }
+            }
+
             Packages.deletePackage(this);