[armedbear-cvs] r13462 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug 11 10:04:30 2011
New Revision: 13462

Log:
Prepare for more debugging support.

(Unbreaks last commit.)

Modified:
   trunk/abcl/src/org/armedbear/lisp/StackFrame.java

Modified: trunk/abcl/src/org/armedbear/lisp/StackFrame.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/StackFrame.java	Thu Aug 11 10:01:41 2011	(r13461)
+++ trunk/abcl/src/org/armedbear/lisp/StackFrame.java	Thu Aug 11 10:04:30 2011	(r13462)
@@ -50,14 +50,27 @@
    }
   
   StackFrame next;
-  
+  Environment env = null;
+
   void setNext(StackFrame nextFrame) {
     this.next = nextFrame;
   }
   StackFrame getNext() {
     return this.next;
   }
-  
+
+  /** Sets the applicable environment for this stack frame to 'env',
+   * returning the last value.
+   */
+  public Environment setEnv(Environment env) {
+    Environment e = this.env;
+    this.env = env;
+    return e;
+  }
+  /** Gets the current lexical environment of this stack frame. */
+  public Environment getEnv() {
+    return env;
+  }
   public abstract LispObject toLispList();
   public abstract SimpleString toLispString();
 }