
DEFUNO("ERROR",object,fLerror,LISP
   ,1,((1<< 6 ) -1) ,0 ,OO,OO,OO,OO,Lerror,"")
DEFUNO("CERROR",object,fLcerror,LISP
   ,2,((1<< 6 ) -1) ,0 ,OO,OO,OO,OO,Lcerror,"")
DEFUNO("IHS-TOP",object,fSihs_top,SI
   ,0,0,0 ,OO,OO,OO,OO,siLihs_top,"")
DEFUNO("IHS-FUN",object,fSihs_fun,SI
   ,1,1,0 ,OO,OO,OO,OO,siLihs_fun,"")
DEFUNO("IHS-VS",object,fSihs_vs,SI
   ,1,1,0 ,OO,OO,OO,OO,siLihs_vs,"")
DEFUNO("FRS-TOP",object,fSfrs_top,SI
   ,0,0,0 ,OO,OO,OO,OO,siLfrs_top,"")
DEFUNO("FRS-VS",object,fSfrs_vs,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfrs_vs,"")
DEFUNO("FRS-BDS",object,fSfrs_bds,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfrs_bds,"")
DEFUNO("FRS-CLASS",object,fSfrs_class,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfrs_class,"")
DEFUNO("FRS-TAG",object,fSfrs_tag,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfrs_tag,"")
DEFUNO("FRS-IHS",object,fSfrs_ihs,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfrs_ihs,"")
DEFUNO("BDS-TOP",object,fSbds_top,SI
   ,0,0,0 ,OO,OO,OO,OO,siLbds_top,"")
DEFUNO("BDS-VAR",object,fSbds_var,SI
   ,1,1,0 ,OO,OO,OO,OO,siLbds_var,"")
DEFUNO("BDS-VAL",object,fSbds_val,SI
   ,1,1,0 ,OO,OO,OO,OO,siLbds_val,"")
DEFUNO("VS-TOP",object,fSvs_top,SI
   ,0,0,0 ,OO,OO,OO,OO,siLvs_top,"")
DEFUNO("VS",object,fSvs,SI
   ,1,1,0 ,OO,OO,OO,OO,siLvs,"")
DEFUNO("SCH-FRS-BASE",object,fSsch_frs_base,SI
   ,2,2,0 ,OO,OO,OO,OO,siLsch_frs_base,"")
DEFUNO("INTERNAL-SUPER-GO",object,fSinternal_super_go,SI
   ,3,3,0 ,OO,OO,OO,OO,siLinternal_super_go,"")
DEF_ORDINARY("UNIVERSAL-ERROR-HANDLER",sSuniversal_error_handler,SI
	     ,"Redefined in lisp, this is the function called by the internal error handling mechanism.  Args:  (error-name correctable function-name    continue-format-string error-format-string    &rest args)")
DEFUNO("UNIVERSAL-ERROR-HANDLER",object,fSuniversal_error_handler,SI
   ,5,((1<< 6 ) -1) ,0 ,OO,OO,OO,OO,
       siLuniversal_error_handler,"")
DEF_ORDINARY("TERMINAL-INTERRUPT",sSterminal_interrupt,SI,"")
DEF_ORDINARY("WRONG-TYPE-ARGUMENT",sKwrong_type_argument,KEYWORD,"")
DEF_ORDINARY("TOO-FEW-ARGUMENTS",sKtoo_few_arguments,KEYWORD,"")
DEF_ORDINARY("TOO-MANY-ARGUMENTS",sKtoo_many_arguments,KEYWORD,"")
DEF_ORDINARY("UNEXPECTED-KEYWORD",sKunexpected_keyword,KEYWORD,"")
DEF_ORDINARY("INVALID-FORM",sKinvalid_form,KEYWORD,"")
DEF_ORDINARY("UNBOUND-VARIABLE",sKunbound_variable,KEYWORD,"")
DEF_ORDINARY("INVALID-VARIABLE",sKinvalid_variable,KEYWORD,"")
DEF_ORDINARY("UNDEFINED-FUNCTION",sKundefined_function,KEYWORD,"")
DEF_ORDINARY("INVALID-FUNCTION",sKinvalid_function,KEYWORD,"")
DEF_ORDINARY("CATCH",sKcatch,KEYWORD,"")
DEF_ORDINARY("PROTECT",sKprotect,KEYWORD,"")
DEF_ORDINARY("CATCHALL",sKcatchall,KEYWORD,"")