> )> ; "CHKDCL Diagnostic program." >> .A .B>> .C>> )>> FIX FIX ,TYPE-AND ,==?> FIX ,TYPE-MERGE ,=?> ) ,TYPE-MERGE ,MEMBER> > ,TYPE-AND ,=?> > (> FIX>) ,TYPE-MERGE ,MEMBER> ATOM]> [REST ATOM ]> ,TYPE-AND ,=?> #FALSE () ,TYPE-AND ,==?> (]> ]>) ,TYPE-MERGE ,MEMBER> > #FALSE () ,TYPE-AND ,==?> > #FALSE () ,TYPE-AND ,==?> ,TYPE-MERGE ,=?> > #FALSE () ,TYPE-AND ,==?> ' ,TYPE-AND ,=?> ,TYPE-MERGE ,=?> [REST FIX]> [REST FIX]>> #FALSE () ,TYPE-AND ,==?> > >> #FALSE () ,TYPE-AND ,==?> (LIST ) ,TYPE-MERGE ,MEMBER> ,TYPE-AND ,=?> ]> ]>> ]> ,TYPE-AND ,=?> ]> ]>> ]> ,TYPE-AND ,=?> ]> ]>> ]> #FALSE () ,TYPE-AND ,==?> ,TYPE-MERGE ,=?> > > STRING > ,TYPE-MERGE ,=?> ANY ,TYPE-MERGE ,=?> > > ,TYPE-MERGE ,=?> WORD WORD WORD LIST>> [3 WORD] LIST>> ,TYPE-MERGE ,=?> ]> FIX FIX [REST ]>> ]> ]> FIX FIX [REST ]>> ,TYPE-MERGE ,=?> < ANY> ,TYPE-MERGE ,=?> > ,TYPE-MERGE ,=?> > ,TYPE-MERGE ,=?> > > > ,TYPE-MERGE ,=?> > > > ,TYPE-MERGE ,=?> > ,TYPE-MERGE ,=?> ,TYPE-MERGE ,=?> (LIST ) ,TYPE-MERGE ,MEMBER> ! #FALSE () ,TYPE-AND ,==?> ! ,TYPE-AND ,=?> ,TYPE-MERGE ,=?> 1 FIX ,GET-ELE-TYPE ,==?> 2 FLOAT ,GET-ELE-TYPE ,==?> 3 ATOM ,GET-ELE-TYPE ,==?> 4 STRING ,GET-ELE-TYPE ,==?> ALL ,GET-ELE-TYPE ,=?> > %> ,GETY ,=?> ,GETY ,=?> ]> ,GETY ,=?> ]> ,GETY ,=?>  ANY ,TYPE-AND ,=?> > VECTOR ,TYPE-AND ,=?>