) (PM-LENGTH 'OFFSET 0 'NTH GETB 'PUT PUTB) (PM-TYPE-CODE 'OFFSET 1 ' NTH GETB 'PUT PUTB)> ) (PMT-ARGS [])> > "ARGS" STUFF "AUX" ATM CODE TYPE-OBJ (OCT ,PM-HEADER-LEN) ARGS) > 10 ,PDEFS-INTERNAL-OBLIST>> > < SETG PM-TYPE-COUNT 0> )> >> > > 10 ,PDEFS-INTERNAL-OBLIST> .CODE>> 1>> (.TYPE-OBJ)> "AUX" NATM OFFS (TYPE ANY) (DEFAULT <>) NNATM) < COND ( > >) (T )> "-" > 10 ,PDEFS-INTERNAL-OBLIST>> "-" < SPNAME .NATM> "-OFFSET"> 10 ,PDEFS-INTERNAL-OBLIST>>

) (T )>>> > > ) (T > > > FORM> > >)>)> > >> > > >) (T )>)>)>)> > .STUFF>> > < TYPE? ,.TYPE PM-TYPE>> ,.TYPE) (T > 10 ,PDEFS-INTERNAL-OBLIST>> > ,.TEMP) (T )>)>> ) (ATM2 <>)) > >) (T >)> >) (T > >>)>> ) (OBJ:PM-TYPE >)) " ["> ) (N 1)) > 0> )> > >> .PMEM> <=? < SPNAME .FOO> >>> > > >) (>> )> .LENARG>))>> > ) (INIT ,PM-HEADER-LEN>> NONE>> TABLE>) THIS-ARG OFFS:FIX FRM) >) ) NONE>> < ERROR NO-VALUE-FOR-MANDATORY-SLOT!-ERRORS .TYPNAM PMEM-ALLOC>) ( '<>> 0>> '. NEW-OBJECT >)>>>)>)>> .ARGS> )> > ATOM>> > >> "-" > 10 ,PDEFS-INTERNAL-OBLIST>> > >>>> LENGTH> )>) (T >> T> '<>> 0>> >)>>>)>)> >> .BASE>