* last edited August 17, 1978 10:28 AM

* Test error messages on redefinition

* First define symbols of different types
M[A,W];
N[B];
F[C,0,2];
MEMORY[D,100,100,W,W];
SET[E,100];
IM[G,2];
BUILTIN[H,1];

* Now try redefining them


M[A,FOO]; *Should allow redefinition, but give message
N[A];
F[A,0,2];
SET[A,2];
IM[A,1];
BUILTIN[A,1];


M[B,FOO];
N[B];
F[B,0,2];
SET[B,2];
IM[B,1];
BUILTIN[B,1];


M[C,FOO];
N[C];
F[C,3,4];
SET[C,2];
IM[C,1];
BUILTIN[C,1];


M[D,FOO];
N[D];
F[D,3,4];
SET[D,2];
IM[D,2];
BUILTIN[D,1];


M[E,FOO];
N[E];
F[E,0,0];
SET[E,2];*Should be OK
IM[E,0];
BUILTIN[E,1];


M[G,FOO];
N[G];
F[G,0,0];
SET[G,2];
IM[G,0];*Should be OK
BUILTIN[G,1];


M[H,FOO];
N[H];
F[H,0,0];
SET[H,2];
IM[H,0];
BUILTIN[H,1];