* @param body
   * @return Stella_Object
   */
  public static Stella_Object withinContext(Stella_Object contextform, Cons body) {
    return (Cons.list$(Cons.cons(Stella.SYM_STELLA_SPECIAL, Cons.cons(Cons.list$(Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_$CONTEXT$, Cons.cons(contextform, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_$MODULE$, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_BASE_MODULE, Cons.cons(Stella.SYM_STELLA_$CONTEXT$, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(body.concatenate(Stella.NIL, Stella.NIL), Stella.NIL)))));
  }