
DEFVAR("*ALLOW-GZIPPED-FILE*",sSAallow_gzipped_fileA,SI,sLnil,"")
DEF_ORDINARY("MYADDR",sKmyaddr,KEYWORD,"")
DEF_ORDINARY("MYPORT",sKmyport,KEYWORD,"")
DEF_ORDINARY("ASYNC",sKasync,KEYWORD,"")
DEF_ORDINARY("HOST",sKhost,KEYWORD,"")
DEF_ORDINARY("SERVER",sKserver,KEYWORD,"")
DEF_ORDINARY("SOCKET",sSsocket,SI,"")
DEFVAR("*STANDARD-INPUT*",sLAstandard_inputA,LISP,(init_file(),standard_io),"")
DEFVAR("*STANDARD-OUTPUT*",sLAstandard_outputA,LISP,standard_io,"")
DEFVAR("*ERROR-OUTPUT*",sLAerror_outputA,LISP,standard_io,"")
DEFVAR("*TERMINAL-IO*",sLAterminal_ioA,LISP,terminal_io,"")
DEFVAR("*QUERY-IO*",sLAquery_ioA,LISP,
    (standard_io->sm.sm_object0 = sLAterminal_ioA,
        standard_io),"")
DEFVAR("*DEBUG-IO*",sLAdebug_ioA,LISP,standard_io,"")
DEFVAR("*TRACE-OUTPUT*",sLAtrace_outputA,LISP,standard_io,"")
DEFVAR("*IGNORE-EOF-ON-TERMINAL-IO*",sSAignore_eof_on_terminal_ioA,SI,Cnil,"")
DEFVAR("*LOAD-PATHNAME*",sSAload_pathnameA,SI,Cnil,"")
DEFVAR("*LOAD-VERBOSE*",sLAload_verboseA,LISP,Ct,"")
DEF_ORDINARY("ABORT",sKabort,KEYWORD,"")
DEF_ORDINARY("APPEND",sKappend,KEYWORD,"")
DEF_ORDINARY("CREATE",sKcreate,KEYWORD,"")
DEF_ORDINARY("DEFAULT",sKdefault,KEYWORD,"")
DEF_ORDINARY("DIRECTION",sKdirection,KEYWORD,"")
DEF_ORDINARY("ELEMENT-TYPE",sKelement_type,KEYWORD,"")
DEF_ORDINARY("ERROR",sKerror,KEYWORD,"")
DEF_ORDINARY("IF-DOES-NOT-EXIST",sKif_does_not_exist,KEYWORD,"")
DEF_ORDINARY("IF-EXISTS",sKif_exists,KEYWORD,"")
DEF_ORDINARY("INPUT",sKinput,KEYWORD,"")
DEF_ORDINARY("IO",sKio,KEYWORD,"")
DEF_ORDINARY("NEW-VERSION",sKnew_version,KEYWORD,"")
DEF_ORDINARY("OUTPUT",sKoutput,KEYWORD,"")
DEF_ORDINARY("OVERWRITE",sKoverwrite,KEYWORD,"")
DEF_ORDINARY("PRINT",sKprint,KEYWORD,"")
DEF_ORDINARY("PROBE",sKprobe,KEYWORD,"")
DEF_ORDINARY("RENAME",sKrename,KEYWORD,"")
DEF_ORDINARY("RENAME-AND-DELETE",sKrename_and_delete,KEYWORD,"")
DEF_ORDINARY("SET-DEFAULT-PATHNAME",sKset_default_pathname,KEYWORD,"")
DEF_ORDINARY("SUPERSEDE",sKsupersede,KEYWORD,"")
DEF_ORDINARY("VERBOSE",sKverbose,KEYWORD,"")