Changeset 11512


Ignore:
Timestamp:
12/30/08 14:48:53 (12 years ago)
Author:
vvoutilainen
Message:

Duplicate (clone) the ClosureTemplateFunction? in
makeCompiledClosure. This is in preparation for
CTF to have per-instance context data.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/ClosureTemplateFunction.java

    r11488 r11512  
    5353
    5454  final public ClosureTemplateFunction dup()
    55       throws CloneNotSupportedException
    56   {
    57       return (ClosureTemplateFunction)super.clone();
     55  {
     56      ClosureTemplateFunction result = null;
     57      try {
     58    result = (ClosureTemplateFunction)super.clone();
     59      } catch (CloneNotSupportedException e) {
     60      }
     61      return result;
    5862  }
    5963
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r11492 r11512  
    11651165    throws ConditionThrowable
    11661166  {
    1167     ClosureTemplateFunction ctf = (ClosureTemplateFunction) template;
     1167    ClosureTemplateFunction ctf = ((ClosureTemplateFunction) template).dup();
     1168    ctf.setContext(context);
    11681169    CompiledClosure result = new CompiledClosure(ctf, context);
    11691170    LispObject classBytes =
Note: See TracChangeset for help on using the changeset viewer.