public static Cons yieldSlotValueWriterTree(Symbol slotname, Stella_Object objectref, Surrogate objecttype, Stella_Object valueref) {
    return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("SETF"), Cons.cons(Symbol.yieldSlotValueReaderTree(slotname, objectref, objecttype), Cons.cons(Cons.cons(valueref, Stella.NIL), Stella.NIL)))));
  }