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 ">
)
>
>