Changeset 11298


Ignore:
Timestamp:
08/31/08 15:37:50 (14 years ago)
Author:
ehuelsmann
Message:

Make more PROGRAM-ERRORs human readable.

File:
1 edited

Legend:

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

    r11297 r11298  
    3333        super(StandardClass.PROGRAM_ERROR);
    3434        initialize(initArgs);
     35
     36        if (initArgs.listp() && initArgs.car().stringp()) {
     37           setFormatControl(initArgs.car().getStringValue());
     38           setFormatArguments(initArgs.cdr());
     39  }
     40
    3541    }
    3642
Note: See TracChangeset for help on using the changeset viewer.