Changeset 10336


Ignore:
Timestamp:
11/03/05 23:53:59 (16 years ago)
Author:
piso
Message:

SYS::CONDITION-REPORT is obsolete.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r10317 r10336  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Autoload.java,v 1.246 2005-11-01 17:48:32 piso Exp $
     5 * $Id: Autoload.java,v 1.247 2005-11-03 23:53:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    579579        autoload(PACKAGE_SYS, "coerce-to-single-float", "FloatFunctions");
    580580        autoload(PACKAGE_SYS, "compute-class-direct-slots", "SlotClass", true);
    581         autoload(PACKAGE_SYS, "condition-report", "Condition");
    582581        autoload(PACKAGE_SYS, "create-new-file", "create_new_file");
    583582        autoload(PACKAGE_SYS, "default-time-zone", "Time");
  • trunk/j/src/org/armedbear/lisp/Condition.java

    r10307 r10336  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Condition.java,v 1.45 2005-11-01 02:18:18 piso Exp $
     5 * $Id: Condition.java,v 1.46 2005-11-03 23:53:27 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    187187        return unreadableString(typeOf().writeToString());
    188188    }
    189 
    190     // ### condition-report
    191     private static final Primitive CONDITION_REPORT =
    192         new Primitive("condition-report", PACKAGE_SYS, false, "condition")
    193     {
    194         public LispObject execute(LispObject arg) throws ConditionThrowable
    195         {
    196             try {
    197                 String s = ((Condition)arg).getMessage();
    198                 return s != null ? new SimpleString(s) : NIL;
    199             }
    200             catch (ClassCastException e) {
    201                 return signal(new TypeError(arg, Symbol.CONDITION));
    202             }
    203         }
    204     };
    205189}
Note: See TracChangeset for help on using the changeset viewer.