Changeset 11298

Timestamp:

08/31/08 15:37:50 (15 years ago)

Author:

ehuelsmann

Message:

Make more PROGRAM-ERRORs human readable.

File:

• trunk/j/src/org/armedbear/lisp/ProgramError.java (modified) (1 diff)

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

@@ -33 +33 @@
         super(StandardClass.PROGRAM_ERROR);
         initialize(initArgs);
+
+        if (initArgs.listp() && initArgs.car().stringp()) {
+           setFormatControl(initArgs.car().getStringValue());
+           setFormatArguments(initArgs.cdr());
+  }
+
     }