Changeset 10277


Ignore:
Timestamp:
10/29/05 19:04:40 (16 years ago)
Author:
asimon
Message:

UNREGISTER-JAVA-EXCEPTION

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Java.java

    r10276 r10277  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves, Andras Simon
    5  * $Id: Java.java,v 1.62 2005-10-29 18:48:31 asimon Exp $
     5 * $Id: Java.java,v 1.63 2005-10-29 19:04:40 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4949                                     symbol);
    5050            return T;
     51        }
     52    };
     53
     54    // ### unregister-java-exception exception-name => T or NIL
     55    private static final Primitive UNREGISTER_JAVA_EXCEPTION =
     56        new Primitive("unregister-java-exception", PACKAGE_JAVA, true,
     57                      "exception-name")
     58    {
     59        public LispObject execute(LispObject className)
     60            throws ConditionThrowable
     61        {
     62            // FIXME Verify that EXCEPTION-NAME designates a subclass of Throwable.
     63            return registeredExceptions.remove(classForName(className.getStringValue())) == null ? NIL : T;
    5164        }
    5265    };
Note: See TracChangeset for help on using the changeset viewer.