* @param body
   * @return Stella_Object
   */
  public static Stella_Object withSystemDefinition(Stella_Object systemnameexpression, Cons body) {
    return (Cons.list$(Cons.cons(Stella.SYM_STELLA_SPECIAL, Cons.cons(Cons.list$(Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_$CURRENTSYSTEMDEFINITION$, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_GET_SYSTEM_DEFINITION, Cons.cons(systemnameexpression, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_$CURRENTSYSTEMDEFINITIONSUBDIRECTORY$, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_ONLY_IF, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_DEFINEDp, Cons.cons(Stella.SYM_STELLA_$CURRENTSYSTEMDEFINITION$, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_DIRECTORY, Cons.cons(Stella.SYM_STELLA_$CURRENTSYSTEMDEFINITION$, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_IF, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_DEFINEDp, Cons.cons(Stella.SYM_STELLA_$CURRENTSYSTEMDEFINITION$, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Cons.cons(Stella.SYM_STELLA_PROGN, body.concatenate(Stella.NIL, Stella.NIL)), Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_WARN, Cons.cons(StringWrapper.wrapString("Can't find a system named "), Cons.cons(systemnameexpression, Cons.cons(Cons.cons(Stella.SYM_STELLA_EOL, Stella.NIL), Stella.NIL))))), Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Stella.NIL, Stella.NIL))))));
  }