Changeset 1938

Timestamp:

05/24/03 17:04:50 (20 years ago)

Author:

piso

Message:

deletePackage()

File:

• trunk/j/src/org/armedbear/lisp/Packages.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Packages.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Packages.java,v 1.5 2003-04-06 16:01:54 piso Exp $
+ * $Id: Packages.java,v 1.6 2003-05-24 17:04:50 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -25 +25 @@
 import java.util.HashMap;
 import java.util.Iterator;
+import java.util.List;
 
 public final class Packages extends Lisp
@@ -75 +76 @@
     }
 
+    // Removes name and nicknames from map, removes pkg from packages.
+    public static final synchronized boolean deletePackage(Package pkg)
+    {
+        String name = pkg.getName();
+        if (name != null) {
+            map.remove(name);
+            List nicknames = pkg.getNicknames();
+            for (Iterator it = nicknames.iterator(); it.hasNext();) {
+                String nickname = (String) it.next();
+                map.remove(nickname);
+            }
+            packages.remove(pkg);
+            return true;
+        }
+        return false;
+    }
+
     public static final synchronized LispObject listAllPackages()
     {