(PACK-LIST OB-LIST) LIST> ) ) > <==? PACKAGE> >> )>> .L>> .ATBL> ,PACK-LIST> ) ) > >> )>> .L>> .ATBL> ,OB-LIST> ) (ATBL ,ATOM-TABLE) L) #DECL ((PACKS) (ATBL) (L) LIST) )) #DECL ((A) ATOM) > > 1>> ,DUP-LIST>>> .L !,DUP-LIST)>)>> .LL>> .ATBL> T> > )>> .L>> ) L) #DECL ((A) ATOM (PACKS) (L) LIST) (O) OBLIST) > )> >> .O>> >) ( >> .O>> >) (ELSE )>> .PACKS>> > ) >>> > )>)>)>) ( )>> .L> >