/* --- Copyright University of Sussex 1995. All rights reserved. ----------
 > File:			C.all/lib/proto/objectclass/rt/do_call_all_next_methods.p
 > Purpose:			Objectclass runtime support
 > Author:			Robert John Duncan, Oct  4 1995
 > Documentation:   REF OBJECTCLASS
 > Related Files:   C.all/lib/proto/objectclass/auto/call_all_next_methods.p
 */
compile_mode:pop11 +strict;

section $-objectclass;

define lconstant procedure fast_dl( L ); lvars L;
	until L == [] do
		fast_destpair( L ) -> L
	enduntil
enddefine;

define do_call_all_next_methods( L ); lvars L;
	dlocal CallNextMethodProcs;
	until CallNextMethodProcs == [] do
		( fast_destpair( CallNextMethodProcs ) -> CallNextMethodProcs )
			( fast_dl( L ) )
	enduntil;
enddefine;

define updaterof do_call_all_next_methods( L ); lvars L;
	dlocal UCallNextMethodProcs;
	until UCallNextMethodProcs == [] do
		( fast_destpair( UCallNextMethodProcs ) -> UCallNextMethodProcs )
			( fast_dl( L ) )
	enduntil;
enddefine;

endsection;		/* $-objectclass */
