1 21 22 package org.armedbear.lisp; 23 24 public final class Return extends ConditionThrowable 25 { 26 public final LispObject tag; 27 public final LispObject block; 28 public final LispObject result; 29 30 public Return(LispObject tag, LispObject block, LispObject result) 31 { 32 this.tag = tag; 33 this.block = block; 34 this.result = result; 35 } 36 37 public Return(LispObject tag, LispObject result) 38 { 39 this.tag = tag; 40 this.block = null; 41 this.result = result; 42 } 43 44 public LispObject getTag() 45 { 46 return tag; 47 } 48 49 public LispObject getBlock() 50 { 51 return block; 52 } 53 54 public LispObject getResult() 55 { 56 return result; 57 } 58 59 public LispObject getCondition() 60 { 61 StringBuffer sb = new StringBuffer ("No block named "); 62 sb.append(tag.getName()); 63 sb.append(" is currently visible."); 64 return new ControlError(sb.toString()); 65 } 66 } 67 | Popular Tags |