GET‐ARTICLE routine - KVonGit/zil-stuff GitHub Wiki

<ROUTINE GET-ARTICLE (OBJ "OPT" INDEF)
  <COND
    (<OR <FSET? .OBJ ,NARTICLEBIT><FSET? .OBJ ,PERSONBIT><FSET? .OBJ ,FEMALEBIT>>
      <RETURN "">
    )
    (<==? .INDEF T>
      <COND
        (<FSET? .OBJ ,VOWELBIT>
          <RETURN "an ">
        )
        (ELSE
          <RETURN "a ">
        )
      >
    )
    (ELSE
      <RETURN "the ">
    )
  >
>