)("ONE-BYTE-PARTS-OF-SPEECH" %<>)( "WORD-FLAGS-IN-TABLE" T)("IN-ZILCH" T)("P-APOSTROPHE-BREAKS-WORDS" T)( "P-BE-VERB" T)) (("SETUP-ORPHAN" "DEFS" #WORD *00651007407*) ("PRINT-INTQUOTE" "DEFS" #WORD *00651007407*))> > > )) ,LEXV-ELEMENT-SIZE-BYTES> <+ -1 > ,LEXV-ELEMENT-SIZE-BYTES>>>>> > >> 1>> > > 0> )> >> > > >> >> < REPEAT () > > > > .MAX> )> >> >>> >)> > > > > > > > < CONSTANT YES-LEXV > > ) (B <>)) )> )>)>)> >> <>) (> .A 132> <>) (T < SETG P-OFLAG <+ 1 <* ,P-LEXELEN >>> < MAKE-ROOM-FOR-TOKENS 1 ,O-LEXV ,P-OFLAG> < SETG P-OFLAG <- 0 ,P-OFLAG>> >> T)>>> >