public static void htmlDescribeOneParentWithSiblings(NamedDescription parent, NamedDescription child, org.powerloom.PrintableStringWriter stream) {
    { Cons directsubs = edu.isi.powerloom.PLI.getDirectSubrelations(parent, null, null).consify();

      directsubs = directsubs.sort(Native.find_java_method("edu.isi.powerloom.logic.LogicObject", "objectNameLessThanP", new java.lang.Class [] {Native.find_java_class("edu.isi.powerloom.logic.LogicObject"), Native.find_java_class("edu.isi.powerloom.logic.LogicObject")}));
      {
        stream.print("<DT>");
        stream.print("Common parent: ");
        OntosaurusUtil.htmlWriteHref(stream, "show", "concept", parent);
        stream.println("</DT>");
      }
      { Stella_Object sub = null;
        Cons iter000 = directsubs;

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          sub = iter000.value;
          if (!(sub == child)) {
            {
              stream.print("<DD>");
              OntosaurusUtil.htmlWriteHref(stream, "show", "concept", ((StandardObject)(sub)));
              stream.println("</DD>");
            }
          }
        }
      }
      return;
    }
  }