"Does SETG and MANIFEST" [REST ATOM ANY]>) 2>>> ) (T .EXPSPLICE>) (REDEFINE .REDEFINE>) (HEAD:LIST (T)) (TAIL:LIST .HEAD) DEF:ATOM VAL:ANY) > >> > )>) (.EXPSPLICE

)> >) (T )> >> ,EVAL > SPLICE>>) ()>)>>)>> "Set up structure definitions. Takes name, primtype, pairs (sort of) of name & type for slots in structure" > PRIM:> "ARGS" ELEM: "AUX" (RPRIM:ATOM <1 .PRIM>) (.PRIM)>) (LL: >) (L: .LL) OFFS DEC R: RR: (CNT:FIX 1) (EXPSPLICE .EXPSPLICE>)) )>)> >)>>>)> ) (T >)>>> ) (T )>)>) (T <1 .LL .RPRIM> > >)> SPLICE>>) ()>) ( )> > > > > > )> <=? .OFFS "REST">> > >> > ) ( > )> >)>) ( > )> >)>> .OFFS>) (T )> > >> >>>