v22.2b14/
v22.2b14/Win32/
v22.2b14/compat/
v22.2b14/testsuite/
v22.2b14/testsuite/clone/
v22.2b14/testsuite/command/
v22.2b14/testsuite/data/
v22.2b14/testsuite/etc/
v22.2b14/testsuite/include/
v22.2b14/testsuite/inherit/
v22.2b14/testsuite/inherit/master/
v22.2b14/testsuite/log/
v22.2b14/testsuite/single/
v22.2b14/testsuite/single/tests/compiler/
v22.2b14/testsuite/single/tests/efuns/
v22.2b14/testsuite/single/tests/operators/
v22.2b14/testsuite/u/
v22.2b14/tmp/
#include <command.h>

int
main(string arg)
{
	object obj;

	if (!arg) {
#ifndef __NO_ADD_ACTION__
		return notify_fail("usage: dest object\n");
#else
		write("usage: dest object\n");
		return 1;
#endif
	}
	obj = find_object(arg);
#ifndef __NO_ENVIRONMENT__
	if (!obj) {
		obj = present(arg);
		if (!obj) {
			obj = present(arg, environment(previous_object()));
		}
	}
#endif
	if (!obj) {
#ifndef __NO_ADD_ACTION__
		return notify_fail("can't find that.\n");
#else
		write("can't find that.\n");
		return 1;
#endif
	}
	obj->remove();
	if (obj) {
		destruct(obj);
	}
	return 1;
}