Changeset 12150 for branches

Timestamp:

09/18/09 06:31:06 (14 years ago)

Author:

Mark Evenson

Message:

Backport [svn 12149] guard against null LispStackFrames?.

Updated CHANGES to list bugs for unreleased 0.16.1.

Location:

branches/0.16.x/abcl

Files:

• CHANGES (modified) (1 diff)
• src/org/armedbear/lisp/LispObject.java (modified) (1 diff)
• src/org/armedbear/lisp/LispStackFrame.java (modified) (4 diffs)

branches/0.16.x/abcl/CHANGES

@@ +1 @@
+Version 0.16.1
+svn://common-lisp.net/project/armedbear/svn/branches/0.16.x/abcl
+(Unreleased)
+
+Bugs fixed:
+
+  * More careful checking for null args in LispStackFrame
+  * Honor appearance of &allow-other-keys in CLOS MAKE-INSTANCE
+
 Version 0.16.0
-(unreleased)
+(06 Sep, 2009)
 
   Summary of changes:

branches/0.16.x/abcl/src/org/armedbear/lisp/LispObject.java

@@ -633 +633 @@
   }
 
-  public String unreadableString(String s)
+  public String unreadableString(String s) {
+     return unreadableString(s, true);
+  }
+  public String unreadableString(Symbol sym) throws ConditionThrowable {
+     return unreadableString(sym, true);
+  }
+
+  public String unreadableString(String s, boolean identity)
   {
     FastStringBuffer sb = new FastStringBuffer("#<");
     sb.append(s);
-    sb.append(" {");
-    sb.append(Integer.toHexString(System.identityHashCode(this)).toUpperCase());
-    sb.append("}>");
+    if (identity) {
+      sb.append(" {");
+      sb.append(Integer.toHexString(System.identityHashCode(this)).toUpperCase());
+      sb.append("}");
+    }
+    sb.append(">");
     return sb.toString();
   }
 
-  public String unreadableString(Symbol symbol) throws ConditionThrowable
-  {
-    FastStringBuffer sb = new FastStringBuffer("#<");
-    sb.append(symbol.writeToString());
-    sb.append(" {");
-    sb.append(Integer.toHexString(System.identityHashCode(this)).toUpperCase());
-    sb.append("}>");
-    return sb.toString();
+  public String unreadableString(Symbol symbol, boolean identity) 
+    throws ConditionThrowable
+  {
+    return unreadableString(symbol.writeToString(), identity);
   }
 

branches/0.16.x/abcl/src/org/armedbear/lisp/LispStackFrame.java

@@ -43 +43 @@
   private final LispObject[] args;
 
+  private final class UnavailableArgument extends LispObject 
+  {
+    public UnavailableArgument () { }
+    @Override
+    public String writeToString() { 
+      return unreadableString("unavailable arg", false); 
+    }
+  }
+
+  private final LispObject UNAVAILABLE_ARG = new UnavailableArgument();
+
   public LispStackFrame(LispObject operator)
   {
@@ -109 +120 @@
        result =  unreadableString(LISP_STACK_FRAME + " " 
           + toLispString().getStringValue());
-     } catch (ConditionThrowable t) {
-       Debug.trace("Implementation error: ");
+     } catch (Throwable t) {
+       Debug.trace("Serious printing error: ");
        Debug.trace(t);
        result = unreadableString(LISP_STACK_FRAME);
@@ -145 +156 @@
     LispObject result = Lisp.NIL;
     if (args != null) {
-      for (int i = 0; i < args.length; i++)
-  result = result.push(args[i]);
+        for (int i = 0; i < args.length; i++)
+          // `args' come here from LispThread.execute. I don't know
+          // how it comes that some callers pass NULL ptrs around but
+          // we better do not create conses with their CAR being NULL;
+          // it'll horribly break printing such a cons; and probably
+          // other bad things may happen, too. --TCR, 2009-09-17.
+          if (args[i] == null)
+              result = result.push(UNAVAILABLE_ARG);
+          else
+              result = result.push(args[i]);
     } else {
       do {
@@ -169 +188 @@
     throws ConditionThrowable 
   {
-    return new SimpleString(toLispList().writeToString());
+    String result;
+    try {
+      result = this.toLispList().writeToString();
+    } catch (Throwable t) {
+      Debug.trace("Serious printing error: ");
+      Debug.trace(t);
+      result = unreadableString("LISP-STACK-FRAME");
+    }
+    return new SimpleString(result);
   }