Changeset 12814

Timestamp:

07/20/10 18:36:44 (13 years ago)

Author:

astalla

Message:

Fix for r12809: bind *print-readably* to NIL when printing conditions in the debugger to avoid Maximum error depth exceeded.
Fix for r12813: Better error reporting.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Java.java (modified) (1 diff)
• debug.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Java.java

@@ -530 +530 @@
       constructor = findConstructor((Class<?>) object, args);
         } else {
-      return type_error(classRef,
-            list(Symbol.OR,
-                 list(Symbol.JCLASS,
-                new SimpleString("java.lang.reflect.Constructor")),
-                 list(Symbol.JCLASS,
-                new SimpleString("java.lang.Class"))));
+      return error(new LispError(classRef.writeToString() + " is neither a Constructor nor a Class"));
         }
     }

trunk/abcl/src/org/armedbear/lisp/debug.lisp

@@ -86 +86 @@
     (fresh-line *debug-io*)
     (with-standard-io-syntax
-      (let ((*print-structure* nil))
+      (let ((*print-structure* nil)
+      (*print-readably* nil))
         (when (and *load-truename* (streamp *load-stream*))
           (simple-format *debug-io*