/* --- Copyright University of Sussex 1991. All rights reserved. ----------
 > File:            C.all/x/pop/auto/XptExaccSavePopObj.p
 > Purpose:			Access proceduyre for XptPopObj
 > Author:          John Gibson, Nov  1 1991
 > Documentation:	REF *XT_LIBS
 */
compile_mode:pop11 +strict;

section;

define global XptExaccSavePopObj();
	XptExaccPopObj();
enddefine;

define updaterof XptExaccSavePopObj(obj,addr);
	lvars obj, addr;
	if isstring(obj) then
		-> XptCoerceSaveString(obj) -> obj;
	endif;
	-> XptExaccPopObj(obj,addr);
enddefine;

endsection;
