File psl-1983/tests/mini-error-errorset.red artifact a48d27fb23 part of check-in 6f3f9aca4c

% MINI-ERROR-ERRORSET 
on syslisp;

syslsp procedure ErrorHeader;
 Prin2String "*** ERROR *** ";

syslsp procedure Error s;
 <<ErrorHeader();
   ErrorTrailer s>>;

syslsp procedure ErrorTrailer s;
   <<Prin2T s;
     Quit;>>;

off syslisp;
End;