diff --git a/msvc/c/Makefile b/msvc/c/Makefile index 1c3fa683e6d7b4b96483587f858cb84b1c07d618..a485da3d7a931460a39c59d414c9b662ab12886b 100755 --- a/msvc/c/Makefile +++ b/msvc/c/Makefile @@ -155,7 +155,7 @@ clean: -for %f in ($(OBJS) all_symbols.obj all_symbols2.obj) do $(RM) %f -$(RM) *.pdb -for %f in (..\ecl\config.h dpp dpp.obj $(DPP) cut.exe cut.obj \ - ..\eclmin.lib ..\cinit.obj cinit.c symbols_list2.h) \ + ..\eclmin.lib ..\cinit.obj cinit.c) \ do $(RM) %f -for %f in (..\ecl\*.h) do $(RM) %f -for %f in (cut.exe cut.obj dpp.exe dpp.obj) do $(RM) %f @@ -164,7 +164,7 @@ clean: # Build rules -$(DPP): $(srcdir)/dpp.c $(srcdir)/symbols_list2.h ../ecl/config.h ../ecl/config-internal.h +$(DPP): $(srcdir)/dpp.c $(srcdir)/symbols_list.h ../ecl/config.h ../ecl/config-internal.h $(CC) /nologo -I.. -I./ $(srcdir)/dpp.c /Fe$@ $(HFILES): ../ecl/config.h.msvc6 ../ecl/config-internal.h.msvc6 Makefile -mkdir ..\ecl\impl diff --git a/src/c/Makefile.in b/src/c/Makefile.in index 482007ee4f1b7dc39e1006a8c089bc3372198d0c..3dad7af3b03a768534054baa2bda416851903a2e 100644 --- a/src/c/Makefile.in +++ b/src/c/Makefile.in @@ -102,23 +102,12 @@ clean: # Build rules -$(DPP): $(srcdir)/dpp.c $(srcdir)/symbols_list2.h +$(DPP): $(srcdir)/dpp.c $(srcdir)/symbols_list.h if test -f ../CROSS-DPP; then touch dpp; else \ $(TRUE_CC) -I$(srcdir) -I@true_builddir@ -I./ $(srcdir)/dpp.c @CPPFLAGS@ @CFLAGS@ @ECL_CFLAGS@ -o $@ ; \ fi $(OBJS): $(DPP) -# symbols_list2.h is built this way to allow for an atomic replacement of -# the file. Otherwise we have problem when doing concurrent builds with -# rsync updates of the source tree. -# -$(srcdir)/symbols_list2.h: $(srcdir)/symbols_list.h Makefile - cat $(srcdir)/symbols_list.h | \ - sed -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*NULL,[ ]*\([^,]*\),.*}%{\1,NULL,\2}%g' \ - -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*\([^,]*\),[ ]*\([^,]*\),.*}%{\1,"\2",\3}%g' \ - -e 's%{NULL.*%{NULL,NULL,-1}};%' | \ - sed -e 's%"\(IF_[A-Z0-9]*\)(\([^)]*\))"%\1("\2")%g' > tmp.h - mv tmp.h $@ # # This reduces the overhead of jumping to other functions diff --git a/src/c/all_symbols.d b/src/c/all_symbols.d index ef0fef6fc5a72794b2a3bbee41a1d29efc756537..924df69a5bf22d6adc93db603f00da1f27f6a4d6 100644 --- a/src/c/all_symbols.d +++ b/src/c/all_symbols.d @@ -153,6 +153,9 @@ mangle_name(cl_object output, unsigned char *source, int l) } } } + if (!Null(symbol->symbol.cname)) { + @(return found symbol->symbol.cname minarg maxarg); + } package = ecl_symbol_package(symbol); if (Null(package)) { ; @@ -204,7 +207,8 @@ mangle_name(cl_object output, unsigned char *source, int l) @) static void -make_this_symbol(int i, cl_object s, int code, const char *name, +make_this_symbol(int i, cl_object s, int code, + const char *name, const char *cname, cl_objectfn fun, int narg, cl_object value) { enum ecl_stype stp; @@ -242,6 +246,7 @@ make_this_symbol(int i, cl_object s, int code, const char *name, s->symbol.stype = stp; s->symbol.hpack = package; s->symbol.name = ecl_make_constant_base_string(name,-1); + s->symbol.cname = ecl_cstring_to_base_string_or_nil(cname); if (package == cl_core.keyword_package) { package->pack.external = _ecl_sethash(s->symbol.name, package->pack.external, s); @@ -285,7 +290,7 @@ void init_all_symbols(void) { int i, code, narg; - const char *name; + const char *name, *cname; cl_object s, value; cl_objectfn fun; @@ -297,6 +302,7 @@ init_all_symbols(void) fun = (cl_objectfn)cl_symbols[i].init.fun; narg = cl_symbols[i].init.narg; value = cl_symbols[i].init.value; - make_this_symbol(i, s, code, name, fun, narg, value); + cname = cl_symbols[i].init.translation; + make_this_symbol(i, s, code, name, cname, fun, narg, value); } } diff --git a/src/c/dpp.c b/src/c/dpp.c index 04b3de43e88151a562113b2661f8c9d3511b7789..646846ee0541fbd6bdfcac34bf20bcbef5937805 100755 --- a/src/c/dpp.c +++ b/src/c/dpp.c @@ -93,7 +93,7 @@ #define DPP #include #include -#include "symbols_list2.h" +#include "symbols_list.h" /* #define POOLSIZE 2048 */ #define POOLSIZE 4096 diff --git a/src/c/package.d b/src/c/package.d index 379b6d1ec129614804bc2fffccb5bc13d86d8aa1..e28047fa5b7816d64548a2b8daf53559eed78847 100644 --- a/src/c/package.d +++ b/src/c/package.d @@ -153,23 +153,30 @@ _ecl_package_to_be_created(const cl_env_ptr env, cl_object name) static cl_object find_pending_package(cl_env_ptr env, cl_object name, cl_object nicknames) { - if (ecl_option_values[ECL_OPT_BOOTED]) { - cl_object l = env->packages_to_be_created; - while (!Null(l)) { - cl_object pair = ECL_CONS_CAR(l); - cl_object other_name = ECL_CONS_CAR(pair); - if (ecl_equal(other_name, name) || - _ecl_funcall5(@'member', other_name, nicknames, - @':test', @'string=') != ECL_NIL) - { - cl_object x = ECL_CONS_CDR(pair); - env->packages_to_be_created = - ecl_remove_eq(pair, - env->packages_to_be_created); - return x; - } - l = ECL_CONS_CDR(l); - } + cl_object l = env->packages_to_be_created; + while (!Null(l)) { + cl_object pair = ECL_CONS_CAR(l); + cl_object other_name = ECL_CONS_CAR(pair); + if (ecl_equal(other_name, name) || + _ecl_funcall5(@'member', other_name, nicknames, + @':test', @'string=') != ECL_NIL) + { + cl_object x = ECL_CONS_CDR(pair); + env->packages_to_be_created = + ecl_remove_eq(pair, + env->packages_to_be_created); + return x; + } + l = ECL_CONS_CDR(l); + } +} + +static cl_object +find_local_nickname_package(cl_object name) { + cl_object p = ecl_symbol_value(@'*package*'); + if (ECL_PACKAGEP(p)) { + p = ecl_assoc(name, p->pack.local_nicknames); + if (!Null(p)) return ECL_CONS_CDR(p); } return ECL_NIL; } @@ -222,27 +229,34 @@ ecl_make_package(cl_object name, cl_object nicknames, local_nicknames = process_local_nicknames_list(local_nicknames); ECL_WITH_GLOBAL_ENV_WRLOCK_BEGIN(env) { - /* Find a similarly named package in the list of - * packages to be created and use it or try to build a - * new package */ - x = find_pending_package(env, name, nicknames); - if (Null(x)) { - other = ecl_find_package_nolock(name); - if (other != ECL_NIL) { - goto OUTPUT; - } else { - x = alloc_package(name); + if (ecl_option_values[ECL_OPT_BOOTED]) { + /* Find a similarly named package in the list of packages to be created + * and use it or try to build a new package. */ + x = find_pending_package(env, name, nicknames); + if (Null(x)) { + other = ecl_find_package_nolock(name); + if (other != ECL_NIL) { + goto OUTPUT; + } else { + x = alloc_package(name); + } } + loop_for_in(nicknames) { + cl_object nick = ECL_CONS_CAR(nicknames); + other = ecl_find_package_nolock(nick); + if (other != ECL_NIL) { + name = nick; + goto OUTPUT; + } + x->pack.nicknames = CONS(nick, x->pack.nicknames); + } end_loop_for_in; + } else { + /* When we are not booted yet, then we are certain that there are no + duplicated package definitions (nor pending packages or nicknames + overlapping with existing packages). */ + x = alloc_package(name); + x->pack.nicknames = nicknames; } - loop_for_in(nicknames) { - cl_object nick = ECL_CONS_CAR(nicknames); - other = ecl_find_package_nolock(nick); - if (other != ECL_NIL) { - name = nick; - goto OUTPUT; - } - x->pack.nicknames = CONS(nick, x->pack.nicknames); - } end_loop_for_in; loop_for_in(use_list) { cl_object y = ECL_CONS_CAR(use_list); x->pack.uses = CONS(y, x->pack.uses); @@ -327,11 +341,8 @@ ecl_find_package_nolock(cl_object name) return name; name = cl_string(name); - p = ecl_symbol_value(@'*package*'); - if (ECL_PACKAGEP(p)) { - p = ecl_assoc(name, p->pack.local_nicknames); - if (!Null(p)) return ECL_CONS_CDR(p); - } + p = find_local_nickname_package(name); + if (!Null(p)) return p; l = cl_core.packages; loop_for_on_unsafe(l) { diff --git a/src/c/symbol.d b/src/c/symbol.d index ebd79e21e0d8b5e8601e95a22915bf8c42be5208..0edd081d6341beb4d58c839ec8df03a76e22adbf 100644 --- a/src/c/symbol.d +++ b/src/c/symbol.d @@ -137,6 +137,13 @@ ecl_make_symbol(const char *s, const char *p) cl_object ecl_symbol_value(cl_object s) { +#ifndef ECL_FINAL + /* Symbols are not initialized yet. This test is issued only during ECL + compilation to ensure, that we have no early references in the core. */ + if(cl_num_symbols_in_core < 3) { + ecl_internal_error("SYMBOL-VALUE: symbols are not initialized yet."); + } +#endif if (Null(s)) { return s; } else { diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index 84bfeae1249d906070f3f341c38ccc843af6ef12..e714b70583e2353a10fac872ff0324932dfa181b 100755 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -20,9 +20,10 @@ #define GRAY_ "GRAY::" #define FFI_ "FFI::" typedef struct { - const char *name, *translation; + const char *name; + const char *translation; /* narg >= 0: function takes exactly narg arguments */ - /* narg < 0: function takes -narg-1 required arguments */ + /* narg < 0: function takes -narg-1 required arguments */ int narg; } cl_symbol_initializer; #else @@ -85,6 +86,14 @@ typedef struct { # define IF_WINDOWS(x) NULL #endif +#ifndef DPP +# define ECL_FUN(name, cfun, narg) , name, cfun, narg +# define ECL_VAR(code, value) , code, value +#else +# define ECL_FUN(name, cfun, narg) , name, narg +# define ECL_VAR(code, value) +#endif + /* XXX When the symbol has the associated function its name must follow the naming convention, otherwise si:mangle-name will miscompile the symbol reference. See #534. -- jd 2019-12-04*/ @@ -92,2342 +101,2345 @@ typedef struct { cl_symbol_initializer cl_symbols[] = { -{"NIL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"T", CL_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNBOUND", SI_CONSTANT, si_unbound, 0, ECL_UNBOUND}, -{SYS_ "PROTECT-TAG", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "DUMMY-TAG", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "*RESTART-CLUSTERS*", SI_SPECIAL, NULL, -1, Cnil}, -{SYS_ "*HANDLER-CLUSTERS*", SI_SPECIAL, NULL, -1, Cnil}, -{EXT_ "*INTERRUPTS-ENABLED*", EXT_SPECIAL, NULL, 1, ECL_T}, +{"NIL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"T" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{SYS_ "UNBOUND" ECL_FUN("si_unbound", si_unbound, 0) ECL_VAR(SI_CONSTANT, ECL_UNBOUND)}, +{SYS_ "PROTECT-TAG" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DUMMY-TAG" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*RESTART-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, Cnil)}, +{SYS_ "*HANDLER-CLUSTERS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, Cnil)}, +{EXT_ "*INTERRUPTS-ENABLED*" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_SPECIAL, ECL_T)}, /* LISP PACKAGE */ -{"&ALLOW-OTHER-KEYS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&AUX", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&BODY", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&ENVIRONMENT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&KEY", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&OPTIONAL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&REST", CL_ORDINARY, NULL, -1, OBJNULL}, -{"&WHOLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"+", CL_SPECIAL, cl_P, -1, ECL_NIL}, -{"++", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"+++", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"-", CL_SPECIAL, cl_M, -2, ECL_NIL}, -{"*", CL_SPECIAL, cl_X, -1, ECL_NIL}, -{"**", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"***", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"/", CL_SPECIAL, cl_N, -2, ECL_NIL}, -{"//", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"///", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"/=", CL_ORDINARY, cl_NE, -1, OBJNULL}, -{"*BREAK-ON-SIGNALS*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*COMPILE-FILE-PATHNAME*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*COMPILE-FILE-TRUENAME*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*COMPILE-PRINT*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*COMPILE-VERBOSE*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*DEBUG-IO*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*DEBUGGER-HOOK*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*DEFAULT-PATHNAME-DEFAULTS*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*ERROR-OUTPUT*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*FEATURES*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*GENSYM-COUNTER*", CL_SPECIAL, NULL, -1, ecl_make_fixnum(0)}, -{"*LOAD-PATHNAME*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*LOAD-PRINT*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*LOAD-TRUENAME*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*LOAD-VERBOSE*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*MACROEXPAND-HOOK*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*MODULES*", CL_SPECIAL, NULL, -1, OBJNULL}, -{EXT_ "*MODULE-PROVIDER-FUNCTIONS*", EXT_SPECIAL, NULL, -1, OBJNULL}, -{"*PACKAGE*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*PRINT-ARRAY*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*PRINT-BASE*", CL_SPECIAL, NULL, -1, ecl_make_fixnum(10)}, -{"*PRINT-CASE*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*PRINT-CIRCLE*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-ESCAPE*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*PRINT-GENSYM*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*PRINT-LENGTH*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-LEVEL*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-LINES*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-MISER-WIDTH*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-PPRINT-DISPATCH*", CL_SPECIAL, NULL, -1, ECL_NIL}, +{"&ALLOW-OTHER-KEYS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&AUX" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&BODY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&ENVIRONMENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&KEY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&OPTIONAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&REST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"&WHOLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"+" ECL_FUN("cl_P", cl_P, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"++" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"+++" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"-" ECL_FUN("cl_M", cl_M, -2) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*" ECL_FUN("cl_X", cl_X, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"**" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"***" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"/" ECL_FUN("cl_N", cl_N, -2) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"//" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"///" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"/=" ECL_FUN("cl_NE", cl_NE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"*BREAK-ON-SIGNALS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*COMPILE-FILE-PATHNAME*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*COMPILE-FILE-TRUENAME*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*COMPILE-PRINT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*COMPILE-VERBOSE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*DEBUG-IO*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*DEBUGGER-HOOK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*DEFAULT-PATHNAME-DEFAULTS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*ERROR-OUTPUT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*FEATURES*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*GENSYM-COUNTER*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ecl_make_fixnum(0))}, +{"*LOAD-PATHNAME*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*LOAD-PRINT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*LOAD-TRUENAME*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*LOAD-VERBOSE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*MACROEXPAND-HOOK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*MODULES*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{EXT_ "*MODULE-PROVIDER-FUNCTIONS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, OBJNULL)}, +{"*PACKAGE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*PRINT-ARRAY*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*PRINT-BASE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ecl_make_fixnum(10))}, +{"*PRINT-CASE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*PRINT-CIRCLE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-ESCAPE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*PRINT-GENSYM*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*PRINT-LENGTH*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-LEVEL*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-LINES*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-MISER-WIDTH*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-PPRINT-DISPATCH*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, #if defined(ECL_CMU_FORMAT) -{"*PRINT-PRETTY*", CL_SPECIAL, NULL, -1, ECL_NIL}, +{"*PRINT-PRETTY*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, #else -{"*PRINT-PRETTY*", CL_SPECIAL, NULL, -1, ECL_T}, +{"*PRINT-PRETTY*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, #endif -{"*PRINT-RADIX*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-READABLY*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*PRINT-RIGHT-MARGIN*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*QUERY-IO*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*RANDOM-STATE*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*READ-BASE*", CL_SPECIAL, NULL, -1, ecl_make_fixnum(10)}, -{"*READ-DEFAULT-FLOAT-FORMAT*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*READ-EVAL*", CL_SPECIAL, NULL, -1, ECL_T}, -{"*READ-SUPPRESS*", CL_SPECIAL, NULL, -1, ECL_NIL}, -{"*READTABLE*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*STANDARD-INPUT*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*STANDARD-OUTPUT*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*TERMINAL-IO*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"*TRACE-OUTPUT*", CL_SPECIAL, NULL, -1, OBJNULL}, -{"1+", CL_ORDINARY, cl_1P, 1, OBJNULL}, -{"1-", CL_ORDINARY, cl_1M, 1, OBJNULL}, -{"<", CL_ORDINARY, cl_L, -1, OBJNULL}, -{"<=", CL_ORDINARY, cl_LE, -1, OBJNULL}, -{"=", CL_ORDINARY, cl_E, -2, OBJNULL}, -{">", CL_ORDINARY, cl_G, -1, OBJNULL}, -{">=", CL_ORDINARY, cl_GE, -1, OBJNULL}, -{"ABORT", CL_ORDINARY, ECL_NAME(cl_abort), -1, OBJNULL}, -{"ABS", CL_ORDINARY, cl_abs, 1, OBJNULL}, -{"ACONS", CL_ORDINARY, cl_acons, 3, OBJNULL}, -{"ACOS", CL_ORDINARY, ECL_NAME(cl_acos), 1, OBJNULL}, -{"ACOSH", CL_ORDINARY, ECL_NAME(cl_acosh), 1, OBJNULL}, -{"ADJOIN", CL_ORDINARY, cl_adjoin, -3, OBJNULL}, -{"ADJUST-ARRAY", CL_ORDINARY, ECL_NAME(cl_adjust_array), -3, OBJNULL}, -{"ADJUSTABLE-ARRAY-P", CL_ORDINARY, cl_adjustable_array_p, 1, OBJNULL}, -{"ALPHA-CHAR-P", CL_ORDINARY, cl_alpha_char_p, 1, OBJNULL}, -{"ALPHANUMERICP", CL_ORDINARY, cl_alphanumericp, 1, OBJNULL}, -{"AND", CL_ORDINARY, NULL, -1, OBJNULL}, -{"APPEND", CL_ORDINARY, cl_append, -1, OBJNULL}, -{"APPLY", CL_ORDINARY, cl_apply, -3, OBJNULL}, -{"APROPOS", CL_ORDINARY, ECL_NAME(cl_apropos), -2, OBJNULL}, -{"APROPOS-LIST", CL_ORDINARY, ECL_NAME(cl_apropos_list), -2, OBJNULL}, -{"AREF", CL_ORDINARY, cl_aref, -2, OBJNULL}, -{"ARITHMETIC-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ARITHMETIC-ERROR-OPERANDS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ARITHMETIC-ERROR-OPERATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ARRAY", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ARRAY-DIMENSION", CL_ORDINARY, cl_array_dimension, 2, OBJNULL}, -{"ARRAY-DIMENSION-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_ARRAY_DIMENSION_LIMIT)}, -{"ARRAY-DIMENSIONS", CL_ORDINARY, ECL_NAME(cl_array_dimensions), 1, OBJNULL}, -{"ARRAY-DISPLACEMENT", CL_ORDINARY, cl_array_displacement, 1, OBJNULL}, -{"ARRAY-ELEMENT-TYPE", CL_ORDINARY, cl_array_element_type, 1, OBJNULL}, -{"ARRAY-HAS-FILL-POINTER-P", CL_ORDINARY, cl_array_has_fill_pointer_p, 1, OBJNULL}, -{"ARRAY-IN-BOUNDS-P", CL_ORDINARY, ECL_NAME(cl_array_in_bounds_p), -2, OBJNULL}, -{"ARRAY-RANK", CL_ORDINARY, cl_array_rank, 1, OBJNULL}, -{"ARRAY-RANK-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_ARRAY_RANK_LIMIT)}, -{"ARRAY-ROW-MAJOR-INDEX", CL_ORDINARY, ECL_NAME(cl_array_row_major_index), -2, OBJNULL}, -{"ARRAY-TOTAL-SIZE", CL_ORDINARY, cl_array_total_size, 1, OBJNULL}, -{"ARRAY-TOTAL-SIZE-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_ARRAY_TOTAL_LIMIT)}, -{"ARRAYP", CL_ORDINARY, cl_arrayp, 1, OBJNULL}, -{"ASH", CL_ORDINARY, cl_ash, 2, OBJNULL}, -{"ASIN", CL_ORDINARY, ECL_NAME(cl_asin), 1, OBJNULL}, -{"ASINH", CL_ORDINARY, ECL_NAME(cl_asinh), 1, OBJNULL}, -{"ASSERT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ASSOC", CL_ORDINARY, cl_assoc, -3, OBJNULL}, -{"ASSOC-IF", CL_ORDINARY, ECL_NAME(cl_assoc_if), -3, OBJNULL}, -{"ASSOC-IF-NOT", CL_ORDINARY, ECL_NAME(cl_assoc_if_not), -3, OBJNULL}, -{"ATAN", CL_ORDINARY, cl_atan, -2, OBJNULL}, -{"ATANH", CL_ORDINARY, ECL_NAME(cl_atanh), 1, OBJNULL}, -{"ATOM", CL_ORDINARY, cl_atom, 1, OBJNULL}, -{"BASE-CHAR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BASE-STRING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BIGNUM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BIT", CL_ORDINARY, ECL_NAME(cl_bit), -2, OBJNULL}, -{"BIT-AND", CL_ORDINARY, ECL_NAME(cl_bit_and), -3, OBJNULL}, -{"BIT-ANDC1", CL_ORDINARY, ECL_NAME(cl_bit_andc1), -3, OBJNULL}, -{"BIT-ANDC2", CL_ORDINARY, ECL_NAME(cl_bit_andc2), -3, OBJNULL}, -{"BIT-EQV", CL_ORDINARY, ECL_NAME(cl_bit_eqv), -3, OBJNULL}, -{"BIT-IOR", CL_ORDINARY, ECL_NAME(cl_bit_ior), -3, OBJNULL}, -{"BIT-NAND", CL_ORDINARY, ECL_NAME(cl_bit_nand), -3, OBJNULL}, -{"BIT-NOR", CL_ORDINARY, ECL_NAME(cl_bit_nor), -3, OBJNULL}, -{"BIT-NOT", CL_ORDINARY, ECL_NAME(cl_bit_not), -2, OBJNULL}, -{"BIT-ORC1", CL_ORDINARY, ECL_NAME(cl_bit_orc1), -3, OBJNULL}, -{"BIT-ORC2", CL_ORDINARY, ECL_NAME(cl_bit_orc2), -3, OBJNULL}, -{"BIT-VECTOR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BIT-VECTOR-P", CL_ORDINARY, cl_bit_vector_p, 1, OBJNULL}, -{"BIT-XOR", CL_ORDINARY, ECL_NAME(cl_bit_xor), -3, OBJNULL}, -{"BLOCK", CL_FORM, NULL, -1, OBJNULL}, -{"BOOLE", CL_ORDINARY, cl_boole, 3, OBJNULL}, -{"BOOLE-1", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOL1)}, -{"BOOLE-2", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOL2)}, -{"BOOLE-AND", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLAND)}, -{"BOOLE-ANDC1", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLANDC1)}, -{"BOOLE-ANDC2", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLANDC2)}, -{"BOOLE-C1", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLC1)}, -{"BOOLE-C2", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLC2)}, -{"BOOLE-CLR", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLCLR)}, -{"BOOLE-EQV", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLEQV)}, -{"BOOLE-IOR", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLIOR)}, -{"BOOLE-NAND", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLNAND)}, -{"BOOLE-NOR", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLNOR)}, -{"BOOLE-ORC1", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLORC1)}, -{"BOOLE-ORC2", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLORC2)}, -{"BOOLE-SET", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLSET)}, -{"BOOLE-XOR", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_BOOLXOR)}, -{"BOOLEAN", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BOTH-CASE-P", CL_ORDINARY, cl_both_case_p, 1, OBJNULL}, -{"BOUNDP", CL_ORDINARY, cl_boundp, 1, OBJNULL}, -{"BREAK", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BROADCAST-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BROADCAST-STREAM-STREAMS", CL_ORDINARY, cl_broadcast_stream_streams, 1, OBJNULL}, -{"BUTLAST", CL_ORDINARY, cl_butlast, -2, OBJNULL}, -{"BYTE", CL_ORDINARY, ECL_NAME(cl_byte), 2, OBJNULL}, -{"BYTE-POSITION", CL_ORDINARY, ECL_NAME(cl_byte_position), 1, OBJNULL}, -{"BYTE-SIZE", CL_ORDINARY, ECL_NAME(cl_byte_size), 1, OBJNULL}, -{"CAAAAR", CL_ORDINARY, cl_caaaar, 1, OBJNULL}, -{"CAAADR", CL_ORDINARY, cl_caaadr, 1, OBJNULL}, -{"CAAAR", CL_ORDINARY, cl_caaar, 1, OBJNULL}, -{"CAADAR", CL_ORDINARY, cl_caadar, 1, OBJNULL}, -{"CAADDR", CL_ORDINARY, cl_caaddr, 1, OBJNULL}, -{"CAADR", CL_ORDINARY, cl_caadr, 1, OBJNULL}, -{"CAAR", CL_ORDINARY, cl_caar, 1, OBJNULL}, -{"CADAAR", CL_ORDINARY, cl_cadaar, 1, OBJNULL}, -{"CADADR", CL_ORDINARY, cl_cadadr, 1, OBJNULL}, -{"CADAR", CL_ORDINARY, cl_cadar, 1, OBJNULL}, -{"CADDAR", CL_ORDINARY, cl_caddar, 1, OBJNULL}, -{"CADDDR", CL_ORDINARY, cl_cadddr, 1, OBJNULL}, -{"CADDR", CL_ORDINARY, cl_caddr, 1, OBJNULL}, -{"CADR", CL_ORDINARY, cl_cadr, 1, OBJNULL}, -{"CALL-ARGUMENTS-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_CALL_ARGUMENTS_LIMIT)}, -{"CAR", CL_ORDINARY, cl_car, 1, OBJNULL}, -{"CASE", CL_FORM, NULL, -1, OBJNULL}, -{"CATCH", CL_FORM, NULL, -1, OBJNULL}, -{"CCASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CDAAAR", CL_ORDINARY, cl_cdaaar, 1, OBJNULL}, -{"CDAADR", CL_ORDINARY, cl_cdaadr, 1, OBJNULL}, -{"CDAAR", CL_ORDINARY, cl_cdaar, 1, OBJNULL}, -{"CDADAR", CL_ORDINARY, cl_cdadar, 1, OBJNULL}, -{"CDADDR", CL_ORDINARY, cl_cdaddr, 1, OBJNULL}, -{"CDADR", CL_ORDINARY, cl_cdadr, 1, OBJNULL}, -{"CDAR", CL_ORDINARY, cl_cdar, 1, OBJNULL}, -{"CDDAAR", CL_ORDINARY, cl_cddaar, 1, OBJNULL}, -{"CDDADR", CL_ORDINARY, cl_cddadr, 1, OBJNULL}, -{"CDDAR", CL_ORDINARY, cl_cddar, 1, OBJNULL}, -{"CDDDAR", CL_ORDINARY, cl_cdddar, 1, OBJNULL}, -{"CDDDDR", CL_ORDINARY, cl_cddddr, 1, OBJNULL}, -{"CDDDR", CL_ORDINARY, cl_cdddr, 1, OBJNULL}, -{"CDDR", CL_ORDINARY, cl_cddr, 1, OBJNULL}, -{"CDR", CL_ORDINARY, cl_cdr, 1, OBJNULL}, -{"CEILING", CL_ORDINARY, cl_ceiling, -2, OBJNULL}, -{"CELL-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CELL-ERROR-NAME", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CERROR", CL_ORDINARY, cl_cerror, -3, OBJNULL}, -{"CHAR", CL_ORDINARY, cl_char, 2, OBJNULL}, -{"CHAR-CODE", CL_ORDINARY, cl_char_code, 1, OBJNULL}, -{"CHAR-CODE-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_CHAR_CODE_LIMIT)}, -{"CHAR-DOWNCASE", CL_ORDINARY, cl_char_downcase, 1, OBJNULL}, -{"CHAR-EQUAL", CL_ORDINARY, cl_char_equal, -2, OBJNULL}, -{"CHAR-GREATERP", CL_ORDINARY, cl_char_greaterp, -1, OBJNULL}, -{"CHAR-INT", CL_ORDINARY, cl_char_int, 1, OBJNULL}, -{"CHAR-LESSP", CL_ORDINARY, cl_char_lessp, -1, OBJNULL}, -{"CHAR-NAME", CL_ORDINARY, cl_char_name, 1, OBJNULL}, -{"CHAR-NOT-EQUAL", CL_ORDINARY, cl_char_not_equal, -1, OBJNULL}, -{"CHAR-NOT-GREATERP", CL_ORDINARY, cl_char_not_greaterp, -1, OBJNULL}, -{"CHAR-NOT-LESSP", CL_ORDINARY, cl_char_not_lessp, -1, OBJNULL}, -{"CHAR-UPCASE", CL_ORDINARY, cl_char_upcase, 1, OBJNULL}, -{"CHAR/=", CL_ORDINARY, cl_charNE, -1, OBJNULL}, -{"CHAR<", CL_ORDINARY, cl_charL, -1, OBJNULL}, -{"CHAR<=", CL_ORDINARY, cl_charLE, -1, OBJNULL}, -{"CHAR=", CL_ORDINARY, cl_charE, -2, OBJNULL}, -{"CHAR>", CL_ORDINARY, cl_charG, -1, OBJNULL}, -{"CHAR>=", CL_ORDINARY, cl_charGE, -1, OBJNULL}, -{"CHARACTER", CL_ORDINARY, cl_character, 1, OBJNULL}, -{"CHARACTERP", CL_ORDINARY, cl_characterp, 1, OBJNULL}, -{"CHECK-TYPE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CIS", CL_ORDINARY, ECL_NAME(cl_cis), 1, OBJNULL}, -{"CLEAR-INPUT", CL_ORDINARY, cl_clear_input, -1, OBJNULL}, -{"CLEAR-OUTPUT", CL_ORDINARY, cl_clear_output, -1, OBJNULL}, -{"CLOSE", CL_ORDINARY, cl_close, -2, OBJNULL}, -{"CLRHASH", CL_ORDINARY, cl_clrhash, 1, OBJNULL}, -{"CODE-CHAR", CL_ORDINARY, cl_code_char, 1, OBJNULL}, -{"COERCE", CL_ORDINARY, ECL_NAME(cl_coerce), 2, OBJNULL}, -{"COMPILATION-SPEED", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILE-FILE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILE-FILE-PATHNAME", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILED-FUNCTION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILED-FUNCTION-P", CL_ORDINARY, cl_compiled_function_p, 1, OBJNULL}, -{"COMPILER-MACRO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPILER-MACRO-FUNCTION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COMPLEMENT", CL_ORDINARY, ECL_NAME(cl_complement), 1, OBJNULL}, -{"COMPLEX", CL_ORDINARY, cl_complex, -2, OBJNULL}, -{"COMPLEXP", CL_ORDINARY, cl_complexp, 1, OBJNULL}, -{"COMPUTE-RESTARTS", CL_ORDINARY, ECL_NAME(cl_compute_restarts), -1, OBJNULL}, -{"CONCATENATE", CL_ORDINARY, ECL_NAME(cl_concatenate), -2, OBJNULL}, -{"CONCATENATED-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CONCATENATED-STREAM-STREAMS", CL_ORDINARY, cl_concatenated_stream_streams, 1, OBJNULL}, -{"COND", CL_FORM, NULL, -1, OBJNULL}, -{"CONDITION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CONJUGATE", CL_ORDINARY, cl_conjugate, 1, OBJNULL}, -{"CONTINUE", CL_ORDINARY, ECL_NAME(cl_continue), -1, OBJNULL}, -{"CONS", CL_ORDINARY, cl_cons, 2, OBJNULL}, -{"CONSP", CL_ORDINARY, cl_consp, 1, OBJNULL}, -{"CONSTANTLY", CL_ORDINARY, ECL_NAME(cl_constantly), 1, OBJNULL}, -{"CONSTANTP", CL_ORDINARY, cl_constantp, -2, OBJNULL}, -{"CONTROL-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"COPY-ALIST", CL_ORDINARY, cl_copy_alist, 1, OBJNULL}, -{"COPY-LIST", CL_ORDINARY, cl_copy_list, 1, OBJNULL}, -{"COPY-PPRINT-DISPATCH", CL_ORDINARY, ECL_NAME_PPRINT(cl_copy_pprint_dispatch), -1, OBJNULL}, -{"COPY-READTABLE", CL_ORDINARY, cl_copy_readtable, -1, OBJNULL}, -{"COPY-SEQ", CL_ORDINARY, cl_copy_seq, 1, OBJNULL}, -{"COPY-STRUCTURE", CL_ORDINARY, cl_copy_structure, 1, OBJNULL}, -{"COPY-SYMBOL", CL_ORDINARY, cl_copy_symbol, -2, OBJNULL}, -{"COPY-TREE", CL_ORDINARY, cl_copy_tree, 1, OBJNULL}, -{"COS", CL_ORDINARY, cl_cos, 1, OBJNULL}, -{"COSH", CL_ORDINARY, cl_cosh, 1, OBJNULL}, -{"COUNT", CL_ORDINARY, ECL_NAME(cl_count), -3, OBJNULL}, -{"COUNT-IF", CL_ORDINARY, ECL_NAME(cl_count_if), -3, OBJNULL}, -{"COUNT-IF-NOT", CL_ORDINARY, ECL_NAME(cl_count_if_not), -3, OBJNULL}, -{"CTYPECASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEBUG", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DECF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DECLAIM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DECLARATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DECLARE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DECODE-FLOAT", CL_ORDINARY, cl_decode_float, 1, OBJNULL}, -{"DECODE-UNIVERSAL-TIME", CL_ORDINARY, ECL_NAME(cl_decode_universal_time), -2, OBJNULL}, -{"DEFCONSTANT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-CONDITION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-COMPILER-MACRO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-MODIFY-MACRO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-SETF-EXPANDER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-SYMBOL-MACRO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFMACRO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFPACKAGE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFPARAMETER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFSETF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFSTRUCT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFTYPE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFUN", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFVAR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DELETE", CL_ORDINARY, ECL_NAME(cl_delete), -3, OBJNULL}, -{"DELETE-DUPLICATES", CL_ORDINARY, ECL_NAME(cl_delete_duplicates), -2, OBJNULL}, -{"DELETE-FILE", CL_ORDINARY, cl_delete_file, 1, OBJNULL}, -{"DELETE-IF", CL_ORDINARY, ECL_NAME(cl_delete_if), -3, OBJNULL}, -{"DELETE-IF-NOT", CL_ORDINARY, ECL_NAME(cl_delete_if_not), -3, OBJNULL}, -{"DELETE-PACKAGE", CL_ORDINARY, cl_delete_package, 1, OBJNULL}, -{"DENOMINATOR", CL_ORDINARY, cl_denominator, 1, OBJNULL}, -{"DEPOSIT-FIELD", CL_ORDINARY, ECL_NAME(cl_deposit_field), 3, OBJNULL}, -{"DESCRIBE", CL_ORDINARY, ECL_NAME(cl_describe), -2, OBJNULL}, -{"DESTRUCTURING-BIND", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DIGIT-CHAR", CL_ORDINARY, cl_digit_char, -2, OBJNULL}, -{"DIGIT-CHAR-P", CL_ORDINARY, cl_digit_char_p, -2, OBJNULL}, -{"DIRECTORY", CL_ORDINARY, cl_directory, -2, OBJNULL}, -{"DIRECTORY-NAMESTRING", CL_ORDINARY, cl_directory_namestring, 1, OBJNULL}, -{"DISASSEMBLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DIVISION-BY-ZERO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DO", CL_FORM, NULL, -1, OBJNULL}, -{"DO*", CL_FORM, NULL, -1, OBJNULL}, -{"DO-ALL-SYMBOLS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DO-EXTERNAL-SYMBOLS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DO-SYMBOLS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DOCUMENTATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DOLIST", CL_FORM, NULL, -1, OBJNULL}, -{"DOTIMES", CL_FORM, NULL, -1, OBJNULL}, -{"DOUBLE-FLOAT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DOUBLE-FLOAT-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"DOUBLE-FLOAT-NEGATIVE-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"DPB", CL_ORDINARY, ECL_NAME(cl_dpb), 3, OBJNULL}, -{"DRIBBLE", CL_ORDINARY, ECL_NAME(cl_dribble), -1, OBJNULL}, -{"DYNAMIC-EXTENT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ECASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ECHO-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ECHO-STREAM-INPUT-STREAM", CL_ORDINARY, cl_echo_stream_input_stream, 1, OBJNULL}, -{"ECHO-STREAM-OUTPUT-STREAM", CL_ORDINARY, cl_echo_stream_output_stream, 1, OBJNULL}, -{"ED", CL_ORDINARY, NULL, -1, OBJNULL}, -{"EIGHTH", CL_ORDINARY, cl_eighth, 1, OBJNULL}, -{"ELT", CL_ORDINARY, cl_elt, 2, OBJNULL}, -{"ENCODE-UNIVERSAL-TIME", CL_ORDINARY, ECL_NAME(cl_encode_universal_time), -7, OBJNULL}, -{"END-OF-FILE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ENDP", CL_ORDINARY, cl_endp, 1, OBJNULL}, -{"ENOUGH-NAMESTRING", CL_ORDINARY, cl_enough_namestring, -2, OBJNULL}, -{"ENSURE-DIRECTORIES-EXIST", CL_ORDINARY, ECL_NAME(cl_ensure_directories_exist), -2, OBJNULL}, -{"EQ", CL_ORDINARY, cl_eq, 2, OBJNULL}, -{"EQL", CL_ORDINARY, cl_eql, 2, OBJNULL}, -{"EQUAL", CL_ORDINARY, cl_equal, 2, OBJNULL}, -{"EQUALP", CL_ORDINARY, cl_equalp, 2, OBJNULL}, -{"ERROR", CL_ORDINARY, cl_error, -2, OBJNULL}, -{"ETYPECASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"EVAL", CL_ORDINARY, cl_eval, 1, OBJNULL}, -{"EVAL-WHEN", CL_FORM, NULL, -1, OBJNULL}, -{"EVENP", CL_ORDINARY, cl_evenp, 1, OBJNULL}, -{"EVERY", CL_ORDINARY, ECL_NAME(cl_every), -3, OBJNULL}, -{"EXP", CL_ORDINARY, cl_exp, 1, OBJNULL}, -{"EXPORT", CL_ORDINARY, cl_export, -2, OBJNULL}, -{"EXPT", CL_ORDINARY, cl_expt, 2, OBJNULL}, -{"EXTENDED-CHAR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FBOUNDP", CL_ORDINARY, cl_fboundp, 1, OBJNULL}, -{"FCEILING", CL_ORDINARY, ECL_NAME(cl_fceiling), -2, OBJNULL}, -{"FDEFINITION", CL_ORDINARY, cl_fdefinition, 1, OBJNULL}, -{"FFLOOR", CL_ORDINARY, ECL_NAME(cl_ffloor), -2, OBJNULL}, -{"FIFTH", CL_ORDINARY, cl_fifth, 1, OBJNULL}, -{"FILE-AUTHOR", CL_ORDINARY, cl_file_author, 1, OBJNULL}, -{"FILE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FILE-ERROR-PATHNAME", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FILE-LENGTH", CL_ORDINARY, cl_file_length, 1, OBJNULL}, -{"FILE-NAMESTRING", CL_ORDINARY, cl_file_namestring, 1, OBJNULL}, -{"FILE-POSITION", CL_ORDINARY, cl_file_position, -2, OBJNULL}, -{"FILE-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FILE-STRING-LENGTH", CL_ORDINARY, cl_file_string_length, 2, OBJNULL}, -{"FILE-WRITE-DATE", CL_ORDINARY, cl_file_write_date, 1, OBJNULL}, -{"FILL", CL_ORDINARY, ECL_NAME(cl_fill), -3, OBJNULL}, -{"FILL-POINTER", CL_ORDINARY, cl_fill_pointer, 1, OBJNULL}, -{"FIND", CL_ORDINARY, ECL_NAME(cl_find), -3, OBJNULL}, -{"FIND-ALL-SYMBOLS", CL_ORDINARY, ECL_NAME(cl_find_all_symbols), 1, OBJNULL}, -{"FIND-IF", CL_ORDINARY, ECL_NAME(cl_find_if), -3, OBJNULL}, -{"FIND-IF-NOT", CL_ORDINARY, ECL_NAME(cl_find_if_not), -3, OBJNULL}, -{"FIND-PACKAGE", CL_ORDINARY, cl_find_package, 1, OBJNULL}, -{"FIND-RESTART", CL_ORDINARY, ECL_NAME(cl_find_restart), -2, OBJNULL}, -{"FIND-SYMBOL", CL_ORDINARY, cl_find_symbol, -2, OBJNULL}, -{"FINISH-OUTPUT", CL_ORDINARY, cl_finish_output, -1, OBJNULL}, -{"FIRST", CL_ORDINARY, cl_car, 1, OBJNULL}, -{"FIXNUM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FLET", CL_FORM, NULL, -1, OBJNULL}, -{"FLOAT", CL_ORDINARY, cl_float, -2, OBJNULL}, -{"FLOAT-DIGITS", CL_ORDINARY, cl_float_digits, 1, OBJNULL}, -{"FLOAT-PRECISION", CL_ORDINARY, cl_float_precision, 1, OBJNULL}, -{"FLOAT-RADIX", CL_ORDINARY, cl_float_radix, 1, OBJNULL}, -{"FLOAT-SIGN", CL_ORDINARY, cl_float_sign, -2, OBJNULL}, -{"FLOATING-POINT-INEXACT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FLOATING-POINT-INVALID-OPERATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FLOATING-POINT-OVERFLOW", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FLOATING-POINT-UNDERFLOW", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FLOATP", CL_ORDINARY, cl_floatp, 1, OBJNULL}, -{"FLOOR", CL_ORDINARY, cl_floor, -2, OBJNULL}, -{"FMAKUNBOUND", CL_ORDINARY, cl_fmakunbound, 1, OBJNULL}, -{"FORCE-OUTPUT", CL_ORDINARY, cl_force_output, -1, OBJNULL}, -{"FORMAT", CL_ORDINARY, cl_format, -3, OBJNULL}, -{"FORMATTER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FOURTH", CL_ORDINARY, cl_cadddr, 1, OBJNULL}, -{"FRESH-LINE", CL_ORDINARY, cl_fresh_line, -1, OBJNULL}, -{"FROUND", CL_ORDINARY, ECL_NAME(cl_fround), -2, OBJNULL}, -{"FTRUNCATE", CL_ORDINARY, ECL_NAME(cl_ftruncate), -2, OBJNULL}, -{"FTYPE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FUNCALL", CL_ORDINARY, cl_funcall, -2, OBJNULL}, -{"FUNCTION-LAMBDA-EXPRESSION", CL_ORDINARY, cl_function_lambda_expression, 1, OBJNULL}, -{"FUNCTION", CL_FORM, NULL, -1, OBJNULL}, -{"FUNCTION-KEYWORDS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"FUNCTIONP", CL_ORDINARY, cl_functionp, 1, OBJNULL}, -{"GCD", CL_ORDINARY, cl_gcd, -1, OBJNULL}, -{"GENSYM", CL_ORDINARY, cl_gensym, -1, OBJNULL}, -{"GENTEMP", CL_ORDINARY, cl_gentemp, -1, OBJNULL}, -{"GET", CL_ORDINARY, cl_get, -3, OBJNULL}, -{"GET-DECODED-TIME", CL_ORDINARY, ECL_NAME(cl_get_decoded_time), 0, OBJNULL}, -{"GET-DISPATCH-MACRO-CHARACTER", CL_ORDINARY, cl_get_dispatch_macro_character, -3, OBJNULL}, -{"GET-INTERNAL-REAL-TIME", CL_ORDINARY, cl_get_internal_real_time, 0, OBJNULL}, -{"GET-INTERNAL-RUN-TIME", CL_ORDINARY, cl_get_internal_run_time, 0, OBJNULL}, -{"GET-MACRO-CHARACTER", CL_ORDINARY, cl_get_macro_character, -2, OBJNULL}, -{"GET-OUTPUT-STREAM-STRING", CL_ORDINARY, cl_get_output_stream_string, 1, OBJNULL}, -{"GET-PROPERTIES", CL_ORDINARY, cl_get_properties, 2, OBJNULL}, -{"GET-SETF-EXPANSION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"GET-UNIVERSAL-TIME", CL_ORDINARY, cl_get_universal_time, 0, OBJNULL}, -{"GETF", CL_ORDINARY, cl_getf, -3, OBJNULL}, -{"GETHASH", CL_ORDINARY, cl_gethash, -3, OBJNULL}, -{"GO", CL_FORM, NULL, -1, OBJNULL}, -{"GRAPHIC-CHAR-P", CL_ORDINARY, cl_graphic_char_p, 1, OBJNULL}, -{"HANDLER-CASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"HANDLER-BIND", CL_ORDINARY, NULL, -1, OBJNULL}, -{"HASH-TABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"HASH-TABLE-COUNT", CL_ORDINARY, cl_hash_table_count, 1, OBJNULL}, -{"HASH-TABLE-P", CL_ORDINARY, cl_hash_table_p, 1, OBJNULL}, -{"HASH-TABLE-REHASH-SIZE", CL_ORDINARY, cl_hash_table_rehash_size, 1, OBJNULL}, -{"HASH-TABLE-REHASH-THRESHOLD", CL_ORDINARY, cl_hash_table_rehash_threshold, 1, OBJNULL}, -{"HASH-TABLE-SIZE", CL_ORDINARY, cl_hash_table_size, 1, OBJNULL}, -{"HASH-TABLE-TEST", CL_ORDINARY, cl_hash_table_test, 1, OBJNULL}, -{"HOST-NAMESTRING", CL_ORDINARY, cl_host_namestring, 1, OBJNULL}, -{"IDENTITY", CL_ORDINARY, cl_identity, 1, OBJNULL}, -{"IGNORABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"IGNORE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"IGNORE-ERRORS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"IMAGPART", CL_ORDINARY, cl_imagpart, 1, OBJNULL}, -{"IMPORT", CL_ORDINARY, cl_import, -2, OBJNULL}, -{"IN-PACKAGE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INCF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INLINE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INPUT-STREAM-P", CL_ORDINARY, cl_input_stream_p, 1, OBJNULL}, -{"INSPECT", CL_ORDINARY, ECL_NAME(cl_inspect), 1, OBJNULL}, -{"INTEGER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INTEGER-DECODE-FLOAT", CL_ORDINARY, cl_integer_decode_float, 1, OBJNULL}, -{"INTEGER-LENGTH", CL_ORDINARY, cl_integer_length, 1, OBJNULL}, -{"INTEGERP", CL_ORDINARY, cl_integerp, 1, OBJNULL}, -{"INTERACTIVE-STREAM-P", CL_ORDINARY, cl_interactive_stream_p, 1, OBJNULL}, -{"INTERN", CL_ORDINARY, cl_intern, -2, OBJNULL}, -{"INTERNAL-TIME-UNITS-PER-SECOND", CL_CONSTANT, NULL, -1, OBJNULL}, -{"INTERSECTION", CL_ORDINARY, ECL_NAME(cl_intersection), -3, OBJNULL}, -{"INVOKE-DEBUGGER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INVOKE-RESTART", CL_ORDINARY, ECL_NAME(cl_invoke_restart), -2, OBJNULL}, -{"INVOKE-RESTART-INTERACTIVELY", CL_ORDINARY, ECL_NAME(cl_invoke_restart_interactively), 1, OBJNULL}, -{"ISQRT", CL_ORDINARY, ECL_NAME(cl_isqrt), 1, OBJNULL}, -{"KEYWORD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"KEYWORDP", CL_ORDINARY, cl_keywordp, 1, OBJNULL}, -{"LABELS", CL_FORM, NULL, -1, OBJNULL}, -{"LAMBDA", CL_FORM, NULL, -1, OBJNULL}, -{"LAMBDA-LIST-KEYWORDS", CL_CONSTANT, NULL, -1, OBJNULL}, -{"LAMBDA-PARAMETERS-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_LAMBDA_PARAMETERS_LIMIT)}, -{"LAST", CL_ORDINARY, cl_last, -2, OBJNULL}, -{"LCM", CL_ORDINARY, cl_lcm, -1, OBJNULL}, -{"LDB", CL_ORDINARY, ECL_NAME(cl_ldb), 2, OBJNULL}, -{"LDB-TEST", CL_ORDINARY, ECL_NAME(cl_ldb_test), 2, OBJNULL}, -{"LDIFF", CL_ORDINARY, cl_ldiff, 2, OBJNULL}, -{"LEAST-NEGATIVE-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_DOUBLE_FLOAT}, -{"LEAST-NEGATIVE-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_LONG_FLOAT}, -{"LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_NORMALIZED_DOUBLE_FLOAT}, -{"LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_NORMALIZED_LONG_FLOAT}, -{"LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_NORMALIZED_SHORT_FLOAT}, -{"LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_NORMALIZED_SINGLE_FLOAT}, -{"LEAST-NEGATIVE-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_SHORT_FLOAT}, -{"LEAST-NEGATIVE-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_NEGATIVE_SINGLE_FLOAT}, -{"LEAST-POSITIVE-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_DOUBLE_FLOAT}, -{"LEAST-POSITIVE-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_LONG_FLOAT}, -{"LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_NORMALIZED_DOUBLE_FLOAT}, -{"LEAST-POSITIVE-NORMALIZED-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_NORMALIZED_LONG_FLOAT}, -{"LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_NORMALIZED_SHORT_FLOAT}, -{"LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_NORMALIZED_SINGLE_FLOAT}, -{"LEAST-POSITIVE-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_SHORT_FLOAT}, -{"LEAST-POSITIVE-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_LEAST_POSITIVE_SINGLE_FLOAT}, -{"LENGTH", CL_ORDINARY, cl_length, 1, OBJNULL}, -{"LET", CL_FORM, NULL, -1, OBJNULL}, -{"LET*", CL_FORM, NULL, -1, OBJNULL}, -{"LISP-IMPLEMENTATION-TYPE", CL_ORDINARY, ECL_NAME(cl_lisp_implementation_type), 0, OBJNULL}, -{"LISP-IMPLEMENTATION-VERSION", CL_ORDINARY, ECL_NAME(cl_lisp_implementation_version), 0, OBJNULL}, -{"LIST", CL_ORDINARY, cl_list, -1, OBJNULL}, -{"LIST*", CL_ORDINARY, cl_listX, -1, OBJNULL}, -{"LIST-ALL-PACKAGES", CL_ORDINARY, cl_list_all_packages, 0, OBJNULL}, -{"LIST-LENGTH", CL_ORDINARY, cl_list_length, 1, OBJNULL}, -{"LISTEN", CL_ORDINARY, cl_listen, -1, OBJNULL}, -{"LISTP", CL_ORDINARY, cl_listp, 1, OBJNULL}, -{"LOAD", CL_ORDINARY, cl_load, -2, OBJNULL}, -{"LOAD-LOGICAL-PATHNAME-TRANSLATIONS", CL_ORDINARY, ECL_NAME(cl_load_logical_pathname_translations), 1, OBJNULL}, -{"LOAD-TIME-VALUE", CL_FORM, NULL, -1, OBJNULL}, -{"LOCALLY", CL_FORM, NULL, -1, OBJNULL}, -{"LOG", CL_ORDINARY, cl_log, -2, OBJNULL}, -{"LOGAND", CL_ORDINARY, cl_logand, -1, OBJNULL}, -{"LOGANDC1", CL_ORDINARY, cl_logandc1, 2, OBJNULL}, -{"LOGANDC2", CL_ORDINARY, cl_logandc2, 2, OBJNULL}, -{"LOGBITP", CL_ORDINARY, cl_logbitp, 2, OBJNULL}, -{"LOGCOUNT", CL_ORDINARY, cl_logcount, 1, OBJNULL}, -{"LOGEQV", CL_ORDINARY, cl_logeqv, -1, OBJNULL}, -{"LOGICAL-PATHNAME", CL_ORDINARY, cl_logical_pathname, 1, OBJNULL}, -{"LOGICAL-PATHNAME-TRANSLATIONS", CL_ORDINARY, ECL_NAME(cl_logical_pathname_translations), 1, OBJNULL}, -{"LOGIOR", CL_ORDINARY, cl_logior, -1, OBJNULL}, -{"LOGNAND", CL_ORDINARY, cl_lognand, 2, OBJNULL}, -{"LOGNOR", CL_ORDINARY, cl_lognor, 2, OBJNULL}, -{"LOGNOT", CL_ORDINARY, cl_lognot, 1, OBJNULL}, -{"LOGORC1", CL_ORDINARY, cl_logorc1, 2, OBJNULL}, -{"LOGORC2", CL_ORDINARY, cl_logorc2, 2, OBJNULL}, -{"LOGTEST", CL_ORDINARY, ECL_NAME(cl_logtest), 2, OBJNULL}, -{"LOGXOR", CL_ORDINARY, cl_logxor, -1, OBJNULL}, -{"LONG-FLOAT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"LONG-FLOAT-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"LONG-FLOAT-NEGATIVE-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"LONG-SITE-NAME", CL_ORDINARY, ECL_NAME(cl_long_site_name), 0, OBJNULL}, -{"LOOP", CL_ORDINARY, NULL, -1, OBJNULL}, -{"LOOP-FINISH", CL_ORDINARY, NULL, -1, OBJNULL}, -{"LOWER-CASE-P", CL_ORDINARY, cl_lower_case_p, 1, OBJNULL}, -{"MACHINE-INSTANCE", CL_ORDINARY, ECL_NAME(cl_machine_instance), 0, OBJNULL}, -{"MACHINE-TYPE", CL_ORDINARY, ECL_NAME(cl_machine_type), 0, OBJNULL}, -{"MACHINE-VERSION", CL_ORDINARY, ECL_NAME(cl_machine_version), 0, OBJNULL}, -{"MACRO-FUNCTION", CL_ORDINARY, cl_macro_function, -2, OBJNULL}, -{"MACROEXPAND", CL_ORDINARY, cl_macroexpand, -2, OBJNULL}, -{"MACROEXPAND-1", CL_ORDINARY, cl_macroexpand_1, -2, OBJNULL}, -{"MACROLET", CL_FORM, NULL, -1, OBJNULL}, -{"MAKE-ARRAY", CL_ORDINARY, ECL_NAME(cl_make_array), -2, OBJNULL}, -{"MAKE-BROADCAST-STREAM", CL_ORDINARY, cl_make_broadcast_stream, -1, OBJNULL}, -{"MAKE-CONDITION", CL_ORDINARY, ECL_NAME(cl_make_condition), -2, OBJNULL}, -{"MAKE-CONCATENATED-STREAM", CL_ORDINARY, cl_make_concatenated_stream, -1, OBJNULL}, -{"MAKE-DISPATCH-MACRO-CHARACTER", CL_ORDINARY, cl_make_dispatch_macro_character, -2, OBJNULL}, -{"MAKE-ECHO-STREAM", CL_ORDINARY, cl_make_echo_stream, 2, OBJNULL}, -{"MAKE-HASH-TABLE", CL_ORDINARY, cl_make_hash_table, -1, OBJNULL}, -{"MAKE-LIST", CL_ORDINARY, cl_make_list, -2, OBJNULL}, -{"MAKE-PACKAGE", CL_ORDINARY, cl_make_package, -2, OBJNULL}, -{"MAKE-PATHNAME", CL_ORDINARY, cl_make_pathname, -1, OBJNULL}, -{"MAKE-RANDOM-STATE", CL_ORDINARY, cl_make_random_state, -1, OBJNULL}, -{"MAKE-SEQUENCE", CL_ORDINARY, ECL_NAME(cl_make_sequence), -3, OBJNULL}, -{"MAKE-STRING", CL_ORDINARY, cl_make_string, -2, OBJNULL}, -{"MAKE-STRING-INPUT-STREAM", CL_ORDINARY, cl_make_string_input_stream, -2, OBJNULL}, -{"MAKE-STRING-OUTPUT-STREAM", CL_ORDINARY, cl_make_string_output_stream, -1, OBJNULL}, -{"MAKE-SYMBOL", CL_ORDINARY, cl_make_symbol, 1, OBJNULL}, -{"MAKE-SYNONYM-STREAM", CL_ORDINARY, cl_make_synonym_stream, 1, OBJNULL}, -{"MAKE-TWO-WAY-STREAM", CL_ORDINARY, cl_make_two_way_stream, 2, OBJNULL}, -{"MAKUNBOUND", CL_ORDINARY, cl_makunbound, 1, OBJNULL}, -{"MAP", CL_ORDINARY, ECL_NAME(cl_map), -4, OBJNULL}, -{"MAP-INTO", CL_ORDINARY, ECL_NAME(cl_map_into), -3, OBJNULL}, -{"MAPC", CL_ORDINARY, cl_mapc, -2, OBJNULL}, -{"MAPCAN", CL_ORDINARY, cl_mapcan, -2, OBJNULL}, -{"MAPCAR", CL_ORDINARY, cl_mapcar, -2, OBJNULL}, -{"MAPCON", CL_ORDINARY, cl_mapcon, -2, OBJNULL}, -{"MAPHASH", CL_ORDINARY, cl_maphash, 2, OBJNULL}, -{"MAPL", CL_ORDINARY, cl_mapl, -2, OBJNULL}, -{"MAPLIST", CL_ORDINARY, cl_maplist, -2, OBJNULL}, -{"MASK-FIELD", CL_ORDINARY, ECL_NAME(cl_mask_field), 2, OBJNULL}, -{"MAX", CL_ORDINARY, cl_max, -2, OBJNULL}, -{"MEMBER", CL_ORDINARY, cl_member, -3, OBJNULL}, -{"MEMBER-IF", CL_ORDINARY, ECL_NAME(cl_member_if), -3, OBJNULL}, -{"MEMBER-IF-NOT", CL_ORDINARY, ECL_NAME(cl_member_if_not), -3, OBJNULL}, -{"MERGE", CL_ORDINARY, ECL_NAME(cl_merge), -5, OBJNULL}, -{"MERGE-PATHNAMES", CL_ORDINARY, cl_merge_pathnames, -2, OBJNULL}, -{"MIN", CL_ORDINARY, cl_min, -2, OBJNULL}, -{"MINUSP", CL_ORDINARY, cl_minusp, 1, OBJNULL}, -{"MISMATCH", CL_ORDINARY, ECL_NAME(cl_mismatch), -3, OBJNULL}, -{"MOD", CL_ORDINARY, cl_mod, 2, OBJNULL}, -{"MOST-NEGATIVE-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_NEGATIVE_DOUBLE_FLOAT}, -{"MOST-NEGATIVE-FIXNUM", CL_CONSTANT, NULL, -1, ecl_make_fixnum(MOST_NEGATIVE_FIXNUM)}, -{"MOST-NEGATIVE-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_NEGATIVE_LONG_FLOAT}, -{"MOST-NEGATIVE-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_NEGATIVE_SHORT_FLOAT}, -{"MOST-NEGATIVE-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_NEGATIVE_SINGLE_FLOAT}, -{"MOST-POSITIVE-DOUBLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_POSITIVE_DOUBLE_FLOAT}, -{"MOST-POSITIVE-FIXNUM", CL_CONSTANT, NULL, -1, ecl_make_fixnum(MOST_POSITIVE_FIXNUM)}, -{"MOST-POSITIVE-LONG-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_POSITIVE_LONG_FLOAT}, -{"MOST-POSITIVE-SHORT-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_POSITIVE_SHORT_FLOAT}, -{"MOST-POSITIVE-SINGLE-FLOAT", CL_CONSTANT, NULL, -1, ECL_MOST_POSITIVE_SINGLE_FLOAT}, -{"MUFFLE-WARNING", CL_ORDINARY, ECL_NAME(cl_muffle_warning), -1, OBJNULL}, -{"MULTIPLE-VALUE-BIND", CL_FORM, NULL, -1, OBJNULL}, -{"MULTIPLE-VALUE-CALL", CL_FORM, NULL, -1, OBJNULL}, -{"MULTIPLE-VALUE-LIST", CL_FORM, NULL, -1, OBJNULL}, -{"MULTIPLE-VALUE-PROG1", CL_FORM, NULL, -1, OBJNULL}, -{"MULTIPLE-VALUE-SETQ", CL_FORM, NULL, -1, OBJNULL}, -{"MULTIPLE-VALUES-LIMIT", CL_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_MULTIPLE_VALUES_LIMIT)}, -{"NAME-CHAR", CL_ORDINARY, cl_name_char, 1, OBJNULL}, -{"NAMESTRING", CL_ORDINARY, cl_namestring, 1, OBJNULL}, -{"NBUTLAST", CL_ORDINARY, cl_nbutlast, -2, OBJNULL}, -{"NCONC", CL_ORDINARY, cl_nconc, -1, OBJNULL}, -{"NINTERSECTION", CL_ORDINARY, ECL_NAME(cl_nintersection), -3, OBJNULL}, -{"NINTH", CL_ORDINARY, cl_ninth, 1, OBJNULL}, -{"NOT", CL_ORDINARY, cl_not, 1, OBJNULL}, -{"NOTANY", CL_ORDINARY, ECL_NAME(cl_notany), -3, OBJNULL}, -{"NOTEVERY", CL_ORDINARY, ECL_NAME(cl_notevery), -3, OBJNULL}, -{"NOTINLINE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"NRECONC", CL_ORDINARY, cl_nreconc, 2, OBJNULL}, -{"NREVERSE", CL_ORDINARY, cl_nreverse, 1, OBJNULL}, -{"NSET-DIFFERENCE", CL_ORDINARY, ECL_NAME(cl_nset_difference), -3, OBJNULL}, -{"NSET-EXCLUSIVE-OR", CL_ORDINARY, ECL_NAME(cl_nset_exclusive_or), -3, OBJNULL}, -{"NSTRING-CAPITALIZE", CL_ORDINARY, cl_nstring_capitalize, -1, OBJNULL}, -{"NSTRING-DOWNCASE", CL_ORDINARY, cl_nstring_downcase, -1, OBJNULL}, -{"NSTRING-UPCASE", CL_ORDINARY, cl_nstring_upcase, -1, OBJNULL}, -{"NSUBLIS", CL_ORDINARY, cl_nsublis, -3, OBJNULL}, -{"NSUBST", CL_ORDINARY, cl_nsubst, -4, OBJNULL}, -{"NSUBST-IF", CL_ORDINARY, ECL_NAME(cl_nsubst_if), -4, OBJNULL}, -{"NSUBST-IF-NOT", CL_ORDINARY, ECL_NAME(cl_nsubst_if_not), -4, OBJNULL}, -{"NSUBSTITUTE", CL_ORDINARY, ECL_NAME(cl_nsubstitute), -4, OBJNULL}, -{"NSUBSTITUTE-IF", CL_ORDINARY, ECL_NAME(cl_nsubstitute_if), -4, OBJNULL}, -{"NSUBSTITUTE-IF-NOT", CL_ORDINARY, ECL_NAME(cl_nsubstitute_if_not), -4, OBJNULL}, -{"NTH", CL_ORDINARY, cl_nth, 2, OBJNULL}, -{"NTH-VALUE", CL_FORM, NULL, -1, OBJNULL}, -{"NTHCDR", CL_ORDINARY, cl_nthcdr, 2, OBJNULL}, -{"NULL", CL_ORDINARY, cl_null, 1, OBJNULL}, -{"NUMBER", CL_ORDINARY, NULL, -1, OBJNULL}, -{"NUMBERP", CL_ORDINARY, cl_numberp, 1, OBJNULL}, -{"NUMERATOR", CL_ORDINARY, cl_numerator, 1, OBJNULL}, -{"NUNION", CL_ORDINARY, ECL_NAME(cl_nunion), -3, OBJNULL}, -{"ODDP", CL_ORDINARY, cl_oddp, 1, OBJNULL}, -{"OPEN", CL_ORDINARY, cl_open, -2, OBJNULL}, -{"OPEN-STREAM-P", CL_ORDINARY, cl_open_stream_p, 1, OBJNULL}, -{"OPTIMIZE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"OR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"OTHERWISE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"OUTPUT-STREAM-P", CL_ORDINARY, cl_output_stream_p, 1, OBJNULL}, -{"PACKAGE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PACKAGE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PACKAGE-ERROR-PACKAGE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PACKAGE-NAME", CL_ORDINARY, cl_package_name, 1, OBJNULL}, -{"PACKAGE-NICKNAMES", CL_ORDINARY, cl_package_nicknames, 1, OBJNULL}, -{"PACKAGE-SHADOWING-SYMBOLS", CL_ORDINARY, cl_package_shadowing_symbols, 1, OBJNULL}, -{"PACKAGE-USE-LIST", CL_ORDINARY, cl_package_use_list, 1, OBJNULL}, -{"PACKAGE-USED-BY-LIST", CL_ORDINARY, cl_package_used_by_list, 1, OBJNULL}, -{"PACKAGEP", CL_ORDINARY, cl_packagep, 1, OBJNULL}, -{"PAIRLIS", CL_ORDINARY, cl_pairlis, -3, OBJNULL}, -{"PARSE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PARSE-INTEGER", CL_ORDINARY, cl_parse_integer, -2, OBJNULL}, -{"PARSE-NAMESTRING", CL_ORDINARY, cl_parse_namestring, -2, OBJNULL}, -{"PATHNAME", CL_ORDINARY, cl_pathname, 1, OBJNULL}, -{"PATHNAME-DEVICE", CL_ORDINARY, cl_pathname_device, -2, OBJNULL}, -{"PATHNAME-DIRECTORY", CL_ORDINARY, cl_pathname_directory, -2, OBJNULL}, -{"PATHNAME-HOST", CL_ORDINARY, cl_pathname_host, -2, OBJNULL}, -{"PATHNAME-MATCH-P", CL_ORDINARY, cl_pathname_match_p, 2, OBJNULL}, -{"PATHNAME-NAME", CL_ORDINARY, cl_pathname_name, -2, OBJNULL}, -{"PATHNAME-TYPE", CL_ORDINARY, cl_pathname_type, -2, OBJNULL}, -{"PATHNAME-VERSION", CL_ORDINARY, cl_pathname_version, 1, OBJNULL}, -{"PATHNAMEP", CL_ORDINARY, cl_pathnamep, 1, OBJNULL}, -{"PEEK-CHAR", CL_ORDINARY, cl_peek_char, -1, OBJNULL}, -{"PHASE", CL_ORDINARY, ECL_NAME(cl_phase), 1, OBJNULL}, -{"PI", CL_CONSTANT, NULL, -1, ECL_PI}, -{"PLUSP", CL_ORDINARY, cl_plusp, 1, OBJNULL}, -{"POP", CL_ORDINARY, NULL, -1, OBJNULL}, -{"POSITION", CL_ORDINARY, ECL_NAME(cl_position), -3, OBJNULL}, -{"POSITION-IF", CL_ORDINARY, ECL_NAME(cl_position_if), -3, OBJNULL}, -{"POSITION-IF-NOT", CL_ORDINARY, ECL_NAME(cl_position_if_not), -3, OBJNULL}, -{"PPRINT", CL_ORDINARY, cl_pprint, -2, OBJNULL}, -{"PPRINT-DISPATCH", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_dispatch), -2, OBJNULL}, -{"PPRINT-EXIT-IF-LIST-EXHAUSTED", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PPRINT-FILL", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_fill), -3, OBJNULL}, -{"PPRINT-INDENT", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_indent), -3, OBJNULL}, -{"PPRINT-LINEAR", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_linear), -3, OBJNULL}, -{"PPRINT-LOGICAL-BLOCK", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PPRINT-NEWLINE", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_newline), -2, OBJNULL}, -{"PPRINT-POP", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PPRINT-TAB", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_tab), -4, OBJNULL}, -{"PPRINT-TABULAR", CL_ORDINARY, ECL_NAME_PPRINT(cl_pprint_tabular), -3, OBJNULL}, -{"PRIN1", CL_ORDINARY, cl_prin1, -2, OBJNULL}, -{"PRIN1-TO-STRING", CL_ORDINARY, ECL_NAME(cl_prin1_to_string), 1, OBJNULL}, -{"PRINC", CL_ORDINARY, cl_princ, -2, OBJNULL}, -{"PRINC-TO-STRING", CL_ORDINARY, ECL_NAME(cl_princ_to_string), 1, OBJNULL}, -{"PRINT", CL_ORDINARY, cl_print, -2, OBJNULL}, -{"PRINT-NOT-READABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PRINT-NOT-READABLE-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PROBE-FILE", CL_ORDINARY, cl_probe_file, 1, OBJNULL}, -{"PROCLAIM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PROG", CL_FORM, NULL, -1, OBJNULL}, -{"PROG*", CL_FORM, NULL, -1, OBJNULL}, -{"PROG1", CL_FORM, NULL, -1, OBJNULL}, -{"PROG2", CL_FORM, NULL, -1, OBJNULL}, -{"PROGN", CL_FORM, NULL, -1, OBJNULL}, -{"PROGRAM-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PROGV", CL_FORM, NULL, -1, OBJNULL}, -{"PROVIDE", CL_ORDINARY, ECL_NAME(cl_provide), 1, OBJNULL}, -{"PSETF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PSETQ", CL_FORM, NULL, -1, OBJNULL}, -{"PUSH", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PUSHNEW", CL_ORDINARY, NULL, -1, OBJNULL}, -{"QUOTE", CL_FORM, NULL, -1, OBJNULL}, -{"RANDOM", CL_ORDINARY, cl_random, -2, OBJNULL}, -{"RANDOM-STATE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"RANDOM-STATE-P", CL_ORDINARY, cl_random_state_p, 1, OBJNULL}, -{"RASSOC", CL_ORDINARY, cl_rassoc, -3, OBJNULL}, -{"RASSOC-IF", CL_ORDINARY, ECL_NAME(cl_rassoc_if), -3, OBJNULL}, -{"RASSOC-IF-NOT", CL_ORDINARY, ECL_NAME(cl_rassoc_if_not), -3, OBJNULL}, -{"RATIO", CL_ORDINARY, NULL, -1, OBJNULL}, -{"RATIONAL", CL_ORDINARY, cl_rational, 1, OBJNULL}, -{"RATIONALIZE", CL_ORDINARY, cl_rationalize, 1, OBJNULL}, -{"RATIONALP", CL_ORDINARY, cl_rationalp, 1, OBJNULL}, -{"READ", CL_ORDINARY, cl_read, -1, OBJNULL}, -{"READ-BYTE", CL_ORDINARY, cl_read_byte, -2, OBJNULL}, -{"READ-CHAR", CL_ORDINARY, cl_read_char, -1, OBJNULL}, -{"READ-CHAR-NO-HANG", CL_ORDINARY, cl_read_char_no_hang, -1, OBJNULL}, -{"READ-DELIMITED-LIST", CL_ORDINARY, cl_read_delimited_list, -2, OBJNULL}, -{"READ-FROM-STRING", CL_ORDINARY, ECL_NAME(cl_read_from_string), -2, OBJNULL}, -{"READ-LINE", CL_ORDINARY, cl_read_line, -1, OBJNULL}, -{"READ-PRESERVING-WHITESPACE", CL_ORDINARY, cl_read_preserving_whitespace, -1, OBJNULL}, -{"READ-SEQUENCE", CL_ORDINARY, cl_read_sequence, -3, OBJNULL}, -{"READER-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"READTABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"READTABLE-CASE", CL_ORDINARY, cl_readtable_case, 1, OBJNULL}, -{"READTABLEP", CL_ORDINARY, cl_readtablep, 1, OBJNULL}, -{"REAL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"REALP", CL_ORDINARY, cl_realp, 1, OBJNULL}, -{"REALPART", CL_ORDINARY, cl_realpart, 1, OBJNULL}, -{"REDUCE", CL_ORDINARY, ECL_NAME(cl_reduce), -3, OBJNULL}, -{"REM", CL_ORDINARY, cl_rem, 2, OBJNULL}, -{"REMF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"REMHASH", CL_ORDINARY, cl_remhash, 2, OBJNULL}, -{"REMOVE", CL_ORDINARY, ECL_NAME(cl_remove), -3, OBJNULL}, -{"REMOVE-DUPLICATES", CL_ORDINARY, ECL_NAME(cl_remove_duplicates), -2, OBJNULL}, -{"REMOVE-IF", CL_ORDINARY, ECL_NAME(cl_remove_if), -3, OBJNULL}, -{"REMOVE-IF-NOT", CL_ORDINARY, ECL_NAME(cl_remove_if_not), -3, OBJNULL}, -{"REMPROP", CL_ORDINARY, cl_remprop, 2, OBJNULL}, -{"RENAME-FILE", CL_ORDINARY, cl_rename_file, -3, OBJNULL}, -{"RENAME-PACKAGE", CL_ORDINARY, cl_rename_package, -3, OBJNULL}, -{"REPLACE", CL_ORDINARY, ECL_NAME(cl_replace), -3, OBJNULL}, -{"REQUIRE", CL_ORDINARY, ECL_NAME(cl_require), -2, OBJNULL}, -{"REST", CL_ORDINARY, cl_cdr, 1, OBJNULL}, -{"RESTART", CL_ORDINARY, NULL, 1, OBJNULL}, -{"RESTART-BIND", CL_ORDINARY, NULL, 1, OBJNULL}, -{"RESTART-CASE", CL_ORDINARY, NULL, 1, OBJNULL}, -{"RESTART-NAME", CL_ORDINARY, NULL, 1, OBJNULL}, -{"RETURN", CL_FORM, NULL, -1, OBJNULL}, -{"RETURN-FROM", CL_FORM, NULL, -1, OBJNULL}, -{"REVAPPEND", CL_ORDINARY, cl_revappend, 2, OBJNULL}, -{"REVERSE", CL_ORDINARY, cl_reverse, 1, OBJNULL}, -{"ROOM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ROTATEF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ROUND", CL_ORDINARY, cl_round, -2, OBJNULL}, -{"ROW-MAJOR-AREF", CL_ORDINARY, cl_row_major_aref, 2, OBJNULL}, -{"RPLACA", CL_ORDINARY, cl_rplaca, 2, OBJNULL}, -{"RPLACD", CL_ORDINARY, cl_rplacd, 2, OBJNULL}, -{"SAFETY", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SATISFIES", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SBIT", CL_ORDINARY, ECL_NAME(cl_sbit), -2, OBJNULL}, -{"SCALE-FLOAT", CL_ORDINARY, cl_scale_float, 2, OBJNULL}, -{"SCHAR", CL_ORDINARY, cl_char, 2, OBJNULL}, -{"SEARCH", CL_ORDINARY, ECL_NAME(cl_search), -3, OBJNULL}, -{"SECOND", CL_ORDINARY, cl_cadr, 1, OBJNULL}, -{"SEQUENCE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SERIOUS-CONDITION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SET", CL_ORDINARY, cl_set, 2, OBJNULL}, -{"SET-DIFFERENCE", CL_ORDINARY, ECL_NAME(cl_set_difference), -3, OBJNULL}, -{"SET-DISPATCH-MACRO-CHARACTER", CL_ORDINARY, cl_set_dispatch_macro_character, -4, OBJNULL}, -{"SET-EXCLUSIVE-OR", CL_ORDINARY, ECL_NAME(cl_set_exclusive_or), -3, OBJNULL}, -{"SET-MACRO-CHARACTER", CL_ORDINARY, cl_set_macro_character, -3, OBJNULL}, -{"SET-PPRINT-DISPATCH", CL_ORDINARY, ECL_NAME_PPRINT(cl_set_pprint_dispatch), -3, OBJNULL}, -{"SET-SYNTAX-FROM-CHAR", CL_ORDINARY, cl_set_syntax_from_char, -3, OBJNULL}, -{"SETF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SETQ", CL_FORM, NULL, -1, OBJNULL}, -{"SEVENTH", CL_ORDINARY, cl_seventh, 1, OBJNULL}, -{"SHADOW", CL_ORDINARY, cl_shadow, -2, OBJNULL}, -{"SHADOWING-IMPORT", CL_ORDINARY, cl_shadowing_import, -2, OBJNULL}, -{"SHIFTF", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SHORT-FLOAT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SHORT-FLOAT-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"SHORT-FLOAT-NEGATIVE-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"SHORT-SITE-NAME", CL_ORDINARY, ECL_NAME(cl_short_site_name), 0, OBJNULL}, -{"SIGNAL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIGNED-BYTE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIGNUM", CL_ORDINARY, ECL_NAME(cl_signum), 1, OBJNULL}, -{"SIMPLE-ARRAY", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-BASE-STRING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-BIT-VECTOR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-BIT-VECTOR-P", CL_ORDINARY, cl_simple_bit_vector_p, 1, OBJNULL}, -{"SIMPLE-CONDITION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-CONDITION-FORMAT-CONTROL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-CONDITION-FORMAT-ARGUMENTS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-STRING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-STRING-P", CL_ORDINARY, cl_simple_string_p, 1, OBJNULL}, -{"SIMPLE-TYPE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-VECTOR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIMPLE-VECTOR-P", CL_ORDINARY, cl_simple_vector_p, 1, OBJNULL}, -{"SIMPLE-WARNING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SIN", CL_ORDINARY, cl_sin, 1, OBJNULL}, -{"SINGLE-FLOAT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SINGLE-FLOAT-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"SINGLE-FLOAT-NEGATIVE-EPSILON", CL_CONSTANT, NULL, -1, OBJNULL}, -{"SINH", CL_ORDINARY, cl_sinh, 1, OBJNULL}, -{"SIXTH", CL_ORDINARY, cl_sixth, 1, OBJNULL}, -{"SLEEP", CL_ORDINARY, cl_sleep, 1, OBJNULL}, -{"SOFTWARE-TYPE", CL_ORDINARY, ECL_NAME(cl_software_type), 0, OBJNULL}, -{"SOFTWARE-VERSION", CL_ORDINARY, ECL_NAME(cl_software_version), 0, OBJNULL}, -{"SOME", CL_ORDINARY, ECL_NAME(cl_some), -3, OBJNULL}, -{"SORT", CL_ORDINARY, ECL_NAME(cl_sort), -3, OBJNULL}, -{"SPACE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SPECIAL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SPECIAL-OPERATOR-P", CL_ORDINARY, cl_special_operator_p, 1, OBJNULL}, -{"SPEED", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SQRT", CL_ORDINARY, cl_sqrt, 1, OBJNULL}, -{"STABLE-SORT", CL_ORDINARY, ECL_NAME(cl_stable_sort), -3, OBJNULL}, -{"STANDARD-CHAR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STANDARD-CHAR-P", CL_ORDINARY, cl_standard_char_p, 1, OBJNULL}, -{"STEP", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STORAGE-CONDITION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STORE-VALUE", CL_ORDINARY, ECL_NAME(cl_store_value), -2, OBJNULL}, -{"STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STREAM-ELEMENT-TYPE", CL_ORDINARY, cl_stream_element_type, 1, OBJNULL}, -{"STREAM-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STREAM-ERROR-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STREAM-EXTERNAL-FORMAT", CL_ORDINARY, cl_stream_external_format, 1, OBJNULL}, -{"STREAMP", CL_ORDINARY, cl_streamp, 1, OBJNULL}, -{"STRING", CL_ORDINARY, cl_string, 1, OBJNULL}, -{"STRING-DOWNCASE", CL_ORDINARY, cl_string_downcase, -1, OBJNULL}, -{"STRING-CAPITALIZE", CL_ORDINARY, cl_string_capitalize, -1, OBJNULL}, -{"STRING-EQUAL", CL_ORDINARY, cl_string_equal, -3, OBJNULL}, -{"STRING-GREATERP", CL_ORDINARY, cl_string_greaterp, -1, OBJNULL}, -{"STRING-LEFT-TRIM", CL_ORDINARY, cl_string_left_trim, 2, OBJNULL}, -{"STRING-LESSP", CL_ORDINARY, cl_string_lessp, -1, OBJNULL}, -{"STRING-NOT-EQUAL", CL_ORDINARY, cl_string_not_equal, -1, OBJNULL}, -{"STRING-NOT-GREATERP", CL_ORDINARY, cl_string_not_greaterp, -1, OBJNULL}, -{"STRING-NOT-LESSP", CL_ORDINARY, cl_string_not_lessp, -1, OBJNULL}, -{"STRING-RIGHT-TRIM", CL_ORDINARY, cl_string_right_trim, 2, OBJNULL}, -{"STRING-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STRING-TRIM", CL_ORDINARY, cl_string_trim, 2, OBJNULL}, -{"STRING-UPCASE", CL_ORDINARY, cl_string_upcase, -1, OBJNULL}, -{"STRING/=", CL_ORDINARY, cl_stringNE, -1, OBJNULL}, -{"STRING<", CL_ORDINARY, cl_stringL, -1, OBJNULL}, -{"STRING<=", CL_ORDINARY, cl_stringLE, -1, OBJNULL}, -{"STRING=", CL_ORDINARY, cl_stringE, -3, OBJNULL}, -{"STRING>", CL_ORDINARY, cl_stringG, -1, OBJNULL}, -{"STRING>=", CL_ORDINARY, cl_stringGE, -1, OBJNULL}, -{"STRINGP", CL_ORDINARY, cl_stringp, 1, OBJNULL}, -{"STRUCTURE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STYLE-WARNING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SUBLIS", CL_ORDINARY, cl_sublis, -3, OBJNULL}, -{"SUBSEQ", CL_ORDINARY, cl_subseq, -3, OBJNULL}, -{"SUBSETP", CL_ORDINARY, ECL_NAME(cl_subsetp), -3, OBJNULL}, -{"SUBST", CL_ORDINARY, cl_subst, -4, OBJNULL}, -{"SUBST-IF", CL_ORDINARY, ECL_NAME(cl_subst_if), -4, OBJNULL}, -{"SUBST-IF-NOT", CL_ORDINARY, ECL_NAME(cl_subst_if_not), -4, OBJNULL}, -{"SUBSTITUTE", CL_ORDINARY, ECL_NAME(cl_substitute), -4, OBJNULL}, -{"SUBSTITUTE-IF", CL_ORDINARY, ECL_NAME(cl_substitute_if), -4, OBJNULL}, -{"SUBSTITUTE-IF-NOT", CL_ORDINARY, ECL_NAME(cl_substitute_if_not), -4, OBJNULL}, -{"SUBTYPEP", CL_ORDINARY, ECL_NAME(cl_subtypep), -3, OBJNULL}, -{"SVREF", CL_ORDINARY, cl_svref, 2, OBJNULL}, -{"SXHASH", CL_ORDINARY, cl_sxhash, 1, OBJNULL}, -{"SYMBOL", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SYMBOL-FUNCTION", CL_ORDINARY, cl_symbol_function, 1, OBJNULL}, -{"SYMBOL-MACROLET", CL_FORM, NULL, -1, OBJNULL}, -{"SYMBOL-NAME", CL_ORDINARY, cl_symbol_name, 1, OBJNULL}, -{"SYMBOL-PACKAGE", CL_ORDINARY, cl_symbol_package, 1, OBJNULL}, -{"SYMBOL-PLIST", CL_ORDINARY, cl_symbol_plist, 1, OBJNULL}, -{"SYMBOL-VALUE", CL_ORDINARY, cl_symbol_value, 1, OBJNULL}, -{"SYMBOLP", CL_ORDINARY, cl_symbolp, 1, OBJNULL}, -{"SYNONYM-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SYNONYM-STREAM-SYMBOL", CL_ORDINARY, cl_synonym_stream_symbol, 1, OBJNULL}, -{"TAGBODY", CL_FORM, NULL, -1, OBJNULL}, -{"TAILP", CL_ORDINARY, cl_tailp, 2, OBJNULL}, -{"TAN", CL_ORDINARY, cl_tan, 1, OBJNULL}, -{"TANH", CL_ORDINARY, cl_tanh, 1, OBJNULL}, -{"TENTH", CL_ORDINARY, cl_tenth, 1, OBJNULL}, -{"TERPRI", CL_ORDINARY, cl_terpri, -1, OBJNULL}, -{"THE", CL_FORM, NULL, -1, OBJNULL}, -{"THIRD", CL_ORDINARY, cl_caddr, 1, OBJNULL}, -{"THROW", CL_FORM, NULL, -1, OBJNULL}, -{"TIME", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TRACE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TRANSLATE-LOGICAL-PATHNAME", CL_ORDINARY, cl_translate_logical_pathname, -2, OBJNULL}, -{"TRANSLATE-PATHNAME", CL_ORDINARY, cl_translate_pathname, -4, OBJNULL}, -{"TREE-EQUAL", CL_ORDINARY, cl_tree_equal, -3, OBJNULL}, -{"TRUENAME", CL_ORDINARY, cl_truename, 1, OBJNULL}, -{"TRUNCATE", CL_ORDINARY, cl_truncate, -2, OBJNULL}, -{"TWO-WAY-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TWO-WAY-STREAM-INPUT-STREAM", CL_ORDINARY, cl_two_way_stream_input_stream, 1, OBJNULL}, -{"TWO-WAY-STREAM-OUTPUT-STREAM", CL_ORDINARY, cl_two_way_stream_output_stream, 1, OBJNULL}, -{"TYPE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TYPE-ERROR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TYPE-ERROR-DATUM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TYPE-ERROR-EXPECTED-TYPE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TYPE-OF", CL_ORDINARY, cl_type_of, 1, OBJNULL}, -{"TYPECASE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"TYPEP", CL_ORDINARY, ECL_NAME(cl_typep), -3, OBJNULL}, -{"UNBOUND-SLOT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNBOUND-SLOT-INSTANCE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNBOUND-VARIABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNDEFINED-FUNCTION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNEXPORT", CL_ORDINARY, cl_unexport, -2, OBJNULL}, -{"UNINTERN", CL_ORDINARY, cl_unintern, -2, OBJNULL}, -{"UNION", CL_ORDINARY, ECL_NAME(cl_union), -3, OBJNULL}, -{"UNLESS", CL_FORM, NULL, -1, OBJNULL}, -{"UNREAD-CHAR", CL_ORDINARY, cl_unread_char, -2, OBJNULL}, -{"UNSIGNED-BYTE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNTRACE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UNUSE-PACKAGE", CL_ORDINARY, cl_unuse_package, -2, OBJNULL}, -{"UNWIND-PROTECT", CL_FORM, NULL, -1, OBJNULL}, -{"UPGRADED-ARRAY-ELEMENT-TYPE", CL_ORDINARY, ECL_NAME(cl_upgraded_array_element_type), -2, OBJNULL}, -{"UPGRADED-COMPLEX-PART-TYPE", CL_ORDINARY, ECL_NAME(cl_upgraded_complex_part_type), -2, OBJNULL}, -{"UPPER-CASE-P", CL_ORDINARY, cl_upper_case_p, 1, OBJNULL}, -{"USE-PACKAGE", CL_ORDINARY, cl_use_package, -2, OBJNULL}, -{"USE-VALUE", CL_ORDINARY, ECL_NAME(cl_use_value), -2, OBJNULL}, -{"USER-HOMEDIR-PATHNAME", CL_ORDINARY, cl_user_homedir_pathname, -1, OBJNULL}, -{"VALUES", CL_ORDINARY, cl_values, -1, OBJNULL}, -{"VALUES-LIST", CL_ORDINARY, cl_values_list, 1, OBJNULL}, -{"VARIABLE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"VECTOR", CL_ORDINARY, ECL_NAME(cl_vector), -1, OBJNULL}, -{"VECTOR-POP", CL_ORDINARY, ECL_NAME(cl_vector_pop), 1, OBJNULL}, -{"VECTOR-PUSH", CL_ORDINARY, cl_vector_push, 2, OBJNULL}, -{"VECTOR-PUSH-EXTEND", CL_ORDINARY, cl_vector_push_extend, -3, OBJNULL}, -{"VECTORP", CL_ORDINARY, cl_vectorp, 1, OBJNULL}, -{"WARN", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WARNING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WHEN", CL_FORM, NULL, -1, OBJNULL}, -{"WILD-PATHNAME-P", CL_ORDINARY, cl_wild_pathname_p, -2, OBJNULL}, -{"WITH-COMPILATION-UNIT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-CONDITION-RESTARTS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-HASH-TABLE-ITERATOR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-INPUT-FROM-STRING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-OPEN-FILE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-OPEN-STREAM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-OUTPUT-TO-STRING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-PACKAGE-ITERATOR", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-SIMPLE-RESTART", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-STANDARD-IO-SYNTAX", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WRITE", CL_ORDINARY, cl_write, -2, OBJNULL}, -{"WRITE-BYTE", CL_ORDINARY, cl_write_byte, 2, OBJNULL}, -{"WRITE-CHAR", CL_ORDINARY, cl_write_char, -2, OBJNULL}, -{"WRITE-LINE", CL_ORDINARY, cl_write_line, -2, OBJNULL}, -{"WRITE-SEQUENCE", CL_ORDINARY, cl_write_sequence, -3, OBJNULL}, -{"WRITE-STRING", CL_ORDINARY, cl_write_string, -2, OBJNULL}, -{"WRITE-TO-STRING", CL_ORDINARY, ECL_NAME(cl_write_to_string), -2, OBJNULL}, -{"Y-OR-N-P", CL_ORDINARY, ECL_NAME(cl_y_or_n_p), -1, OBJNULL}, -{"YES-OR-NO-P", CL_ORDINARY, ECL_NAME(cl_yes_or_no_p), -1, OBJNULL}, -{"ZEROP", CL_ORDINARY, cl_zerop, 1, OBJNULL}, -{"ALLOCATE-INSTANCE", CL_ORDINARY, NULL, 2, OBJNULL}, -{"ADD-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"BUILT-IN-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CALL-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CALL-NEXT-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CHANGE-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CLASS-NAME", CL_ORDINARY, NULL, -1, OBJNULL}, -{"CLASS-OF", CL_ORDINARY, cl_class_of, 1, OBJNULL}, -{"COMPUTE-APPLICABLE-METHODS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFCLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFGENERIC", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFINE-METHOD-COMBINATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DEFMETHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"DESCRIBE-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"ENSURE-GENERIC-FUNCTION", CL_ORDINARY, NULL, -2, OBJNULL}, -{"FIND-CLASS", CL_ORDINARY, cl_find_class, -2, OBJNULL}, -{"FIND-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"GENERIC-FUNCTION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"IF", CL_FORM, NULL, -1, OBJNULL}, -{"INITIALIZE-INSTANCE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"INVALID-METHOD-ERROR", CL_ORDINARY, ECL_NAME(cl_invalid_method_error), -3, OBJNULL}, -{"MAKE-INSTANCE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"MAKE-INSTANCES-OBSOLETE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"MAKE-LOAD-FORM", CL_ORDINARY, NULL, -1, OBJNULL}, -{"MAKE-LOAD-FORM-SAVING-SLOTS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"MAKE-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"METHOD-COMBINATION-ERROR", CL_ORDINARY, ECL_NAME(cl_method_combination_error), -2, OBJNULL}, -{"METHOD-COMBINATION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"METHOD-QUALIFIERS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"NEXT-METHOD-P", CL_ORDINARY, NULL, -1, OBJNULL}, -{"NO-APPLICABLE-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"NO-NEXT-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PRINT-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"PRINT-UNREADABLE-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"REINITIALIZE-INSTANCE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"REMOVE-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SHARED-INITIALIZE", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SLOT-BOUNDP", CL_ORDINARY, ECL_NAME(cl_slot_boundp), 2, OBJNULL}, -{"SLOT-EXISTS-P", CL_ORDINARY, ECL_NAME(cl_slot_exists_p), 2, OBJNULL}, -{"SLOT-MAKUNBOUND", CL_ORDINARY, ECL_NAME(cl_slot_makunbound), 2, OBJNULL}, -{"SLOT-MISSING", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SLOT-UNBOUND", CL_ORDINARY, NULL, -1, OBJNULL}, -{"SLOT-VALUE", CL_ORDINARY, cl_slot_value, 2, OBJNULL}, -{"STANDARD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STANDARD-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STANDARD-GENERIC-FUNCTION", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STANDARD-METHOD", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STANDARD-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STRUCTURE-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"STRUCTURE-OBJECT", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UPDATE-INSTANCE-FOR-DIFFERENT-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"UPDATE-INSTANCE-FOR-REDEFINED-CLASS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-ACCESSORS", CL_ORDINARY, NULL, -1, OBJNULL}, -{"WITH-SLOTS", CL_ORDINARY, NULL, -1, OBJNULL}, -{KEY_ "ACCESSOR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ARGUMENT-PRECEDENCE-ORDER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ALLOCATION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DECLARE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DEFAULT-INITARGS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DESCRIPTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DIRECT-DEFAULT-INITARGS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DIRECT-SLOTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DIRECT-SUPERCLASSES", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "GENERIC-FUNCTION-CLASS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IDENTITY-WITH-ONE-ARGUMENT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITARG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITARGS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITFORM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITFUNCTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LAMBDA-LIST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LOCATION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "METACLASS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "METHOD", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "METHOD-CLASS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "METHOD-COMBINATION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OPERATOR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ORDER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "READER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "READERS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "REQUIRED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WRITER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WRITERS", KEYWORD, NULL, -1, OBJNULL}, +{"*PRINT-RADIX*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-READABLY*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*PRINT-RIGHT-MARGIN*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*QUERY-IO*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*RANDOM-STATE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*READ-BASE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ecl_make_fixnum(10))}, +{"*READ-DEFAULT-FLOAT-FORMAT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*READ-EVAL*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_T)}, +{"*READ-SUPPRESS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, ECL_NIL)}, +{"*READTABLE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*STANDARD-INPUT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*STANDARD-OUTPUT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*TERMINAL-IO*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"*TRACE-OUTPUT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_SPECIAL, OBJNULL)}, +{"1+" ECL_FUN("cl_1P", cl_1P, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"1-" ECL_FUN("cl_1M", cl_1M, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"<" ECL_FUN("cl_L", cl_L, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"<=" ECL_FUN("cl_LE", cl_LE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"=" ECL_FUN("cl_E", cl_E, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{">" ECL_FUN("cl_G", cl_G, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{">=" ECL_FUN("cl_GE", cl_GE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ABORT" ECL_FUN("cl_abort", ECL_NAME(cl_abort), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ABS" ECL_FUN("cl_abs", cl_abs, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ACONS" ECL_FUN("cl_acons", cl_acons, 3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ACOS" ECL_FUN("cl_acos", ECL_NAME(cl_acos), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ACOSH" ECL_FUN("cl_acosh", ECL_NAME(cl_acosh), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ADJOIN" ECL_FUN("cl_adjoin", cl_adjoin, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ADJUST-ARRAY" ECL_FUN("cl_adjust_array", ECL_NAME(cl_adjust_array), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ADJUSTABLE-ARRAY-P" ECL_FUN("cl_adjustable_array_p", cl_adjustable_array_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ALPHA-CHAR-P" ECL_FUN("cl_alpha_char_p", cl_alpha_char_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ALPHANUMERICP" ECL_FUN("cl_alphanumericp", cl_alphanumericp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"AND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"APPEND" ECL_FUN("cl_append", cl_append, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"APPLY" ECL_FUN("cl_apply", cl_apply, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"APROPOS" ECL_FUN("cl_apropos", ECL_NAME(cl_apropos), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"APROPOS-LIST" ECL_FUN("cl_apropos_list", ECL_NAME(cl_apropos_list), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"AREF" ECL_FUN("cl_aref", cl_aref, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARITHMETIC-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARITHMETIC-ERROR-OPERANDS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARITHMETIC-ERROR-OPERATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-DIMENSION" ECL_FUN("cl_array_dimension", cl_array_dimension, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-DIMENSION-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_ARRAY_DIMENSION_LIMIT))}, +{"ARRAY-DIMENSIONS" ECL_FUN("cl_array_dimensions", ECL_NAME(cl_array_dimensions), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-DISPLACEMENT" ECL_FUN("cl_array_displacement", cl_array_displacement, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-ELEMENT-TYPE" ECL_FUN("cl_array_element_type", cl_array_element_type, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-HAS-FILL-POINTER-P" ECL_FUN("cl_array_has_fill_pointer_p", cl_array_has_fill_pointer_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-IN-BOUNDS-P" ECL_FUN("cl_array_in_bounds_p", ECL_NAME(cl_array_in_bounds_p), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-RANK" ECL_FUN("cl_array_rank", cl_array_rank, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-RANK-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_ARRAY_RANK_LIMIT))}, +{"ARRAY-ROW-MAJOR-INDEX" ECL_FUN("cl_array_row_major_index", ECL_NAME(cl_array_row_major_index), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-TOTAL-SIZE" ECL_FUN("cl_array_total_size", cl_array_total_size, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ARRAY-TOTAL-SIZE-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_ARRAY_TOTAL_LIMIT))}, +{"ARRAYP" ECL_FUN("cl_arrayp", cl_arrayp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASH" ECL_FUN("cl_ash", cl_ash, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASIN" ECL_FUN("cl_asin", ECL_NAME(cl_asin), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASINH" ECL_FUN("cl_asinh", ECL_NAME(cl_asinh), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASSERT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASSOC" ECL_FUN("cl_assoc", cl_assoc, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASSOC-IF" ECL_FUN("cl_assoc_if", ECL_NAME(cl_assoc_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ASSOC-IF-NOT" ECL_FUN("cl_assoc_if_not", ECL_NAME(cl_assoc_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ATAN" ECL_FUN("cl_atan", cl_atan, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ATANH" ECL_FUN("cl_atanh", ECL_NAME(cl_atanh), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ATOM" ECL_FUN("cl_atom", cl_atom, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BASE-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BASE-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIGNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT" ECL_FUN("cl_bit", ECL_NAME(cl_bit), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-AND" ECL_FUN("cl_bit_and", ECL_NAME(cl_bit_and), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-ANDC1" ECL_FUN("cl_bit_andc1", ECL_NAME(cl_bit_andc1), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-ANDC2" ECL_FUN("cl_bit_andc2", ECL_NAME(cl_bit_andc2), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-EQV" ECL_FUN("cl_bit_eqv", ECL_NAME(cl_bit_eqv), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-IOR" ECL_FUN("cl_bit_ior", ECL_NAME(cl_bit_ior), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-NAND" ECL_FUN("cl_bit_nand", ECL_NAME(cl_bit_nand), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-NOR" ECL_FUN("cl_bit_nor", ECL_NAME(cl_bit_nor), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-NOT" ECL_FUN("cl_bit_not", ECL_NAME(cl_bit_not), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-ORC1" ECL_FUN("cl_bit_orc1", ECL_NAME(cl_bit_orc1), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-ORC2" ECL_FUN("cl_bit_orc2", ECL_NAME(cl_bit_orc2), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-VECTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-VECTOR-P" ECL_FUN("cl_bit_vector_p", cl_bit_vector_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BIT-XOR" ECL_FUN("cl_bit_xor", ECL_NAME(cl_bit_xor), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"BOOLE" ECL_FUN("cl_boole", cl_boole, 3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BOOLE-1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOL1))}, +{"BOOLE-2" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOL2))}, +{"BOOLE-AND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLAND))}, +{"BOOLE-ANDC1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLANDC1))}, +{"BOOLE-ANDC2" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLANDC2))}, +{"BOOLE-C1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLC1))}, +{"BOOLE-C2" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLC2))}, +{"BOOLE-CLR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLCLR))}, +{"BOOLE-EQV" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLEQV))}, +{"BOOLE-IOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLIOR))}, +{"BOOLE-NAND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLNAND))}, +{"BOOLE-NOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLNOR))}, +{"BOOLE-ORC1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLORC1))}, +{"BOOLE-ORC2" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLORC2))}, +{"BOOLE-SET" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLSET))}, +{"BOOLE-XOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_BOOLXOR))}, +{"BOOLEAN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BOTH-CASE-P" ECL_FUN("cl_both_case_p", cl_both_case_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BOUNDP" ECL_FUN("cl_boundp", cl_boundp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BREAK" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BROADCAST-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BROADCAST-STREAM-STREAMS" ECL_FUN("cl_broadcast_stream_streams", cl_broadcast_stream_streams, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BUTLAST" ECL_FUN("cl_butlast", cl_butlast, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BYTE" ECL_FUN("cl_byte", ECL_NAME(cl_byte), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BYTE-POSITION" ECL_FUN("cl_byte_position", ECL_NAME(cl_byte_position), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BYTE-SIZE" ECL_FUN("cl_byte_size", ECL_NAME(cl_byte_size), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAAAAR" ECL_FUN("cl_caaaar", cl_caaaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAAADR" ECL_FUN("cl_caaadr", cl_caaadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAAAR" ECL_FUN("cl_caaar", cl_caaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAADAR" ECL_FUN("cl_caadar", cl_caadar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAADDR" ECL_FUN("cl_caaddr", cl_caaddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAADR" ECL_FUN("cl_caadr", cl_caadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CAAR" ECL_FUN("cl_caar", cl_caar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADAAR" ECL_FUN("cl_cadaar", cl_cadaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADADR" ECL_FUN("cl_cadadr", cl_cadadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADAR" ECL_FUN("cl_cadar", cl_cadar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADDAR" ECL_FUN("cl_caddar", cl_caddar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADDDR" ECL_FUN("cl_cadddr", cl_cadddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADDR" ECL_FUN("cl_caddr", cl_caddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CADR" ECL_FUN("cl_cadr", cl_cadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CALL-ARGUMENTS-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_CALL_ARGUMENTS_LIMIT))}, +{"CAR" ECL_FUN("cl_car", cl_car, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"CATCH" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"CCASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDAAAR" ECL_FUN("cl_cdaaar", cl_cdaaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDAADR" ECL_FUN("cl_cdaadr", cl_cdaadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDAAR" ECL_FUN("cl_cdaar", cl_cdaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDADAR" ECL_FUN("cl_cdadar", cl_cdadar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDADDR" ECL_FUN("cl_cdaddr", cl_cdaddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDADR" ECL_FUN("cl_cdadr", cl_cdadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDAR" ECL_FUN("cl_cdar", cl_cdar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDAAR" ECL_FUN("cl_cddaar", cl_cddaar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDADR" ECL_FUN("cl_cddadr", cl_cddadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDAR" ECL_FUN("cl_cddar", cl_cddar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDDAR" ECL_FUN("cl_cdddar", cl_cdddar, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDDDR" ECL_FUN("cl_cddddr", cl_cddddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDDR" ECL_FUN("cl_cdddr", cl_cdddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDDR" ECL_FUN("cl_cddr", cl_cddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CDR" ECL_FUN("cl_cdr", cl_cdr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CEILING" ECL_FUN("cl_ceiling", cl_ceiling, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CELL-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CELL-ERROR-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CERROR" ECL_FUN("cl_cerror", cl_cerror, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR" ECL_FUN("cl_char", cl_char, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-CODE" ECL_FUN("cl_char_code", cl_char_code, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-CODE-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_CHAR_CODE_LIMIT))}, +{"CHAR-DOWNCASE" ECL_FUN("cl_char_downcase", cl_char_downcase, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-EQUAL" ECL_FUN("cl_char_equal", cl_char_equal, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-GREATERP" ECL_FUN("cl_char_greaterp", cl_char_greaterp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-INT" ECL_FUN("cl_char_int", cl_char_int, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-LESSP" ECL_FUN("cl_char_lessp", cl_char_lessp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-NAME" ECL_FUN("cl_char_name", cl_char_name, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-NOT-EQUAL" ECL_FUN("cl_char_not_equal", cl_char_not_equal, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-NOT-GREATERP" ECL_FUN("cl_char_not_greaterp", cl_char_not_greaterp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-NOT-LESSP" ECL_FUN("cl_char_not_lessp", cl_char_not_lessp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR-UPCASE" ECL_FUN("cl_char_upcase", cl_char_upcase, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR/=" ECL_FUN("cl_charNE", cl_charNE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR<" ECL_FUN("cl_charL", cl_charL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR<=" ECL_FUN("cl_charLE", cl_charLE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR=" ECL_FUN("cl_charE", cl_charE, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR>" ECL_FUN("cl_charG", cl_charG, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHAR>=" ECL_FUN("cl_charGE", cl_charGE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHARACTER" ECL_FUN("cl_character", cl_character, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHARACTERP" ECL_FUN("cl_characterp", cl_characterp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHECK-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CIS" ECL_FUN("cl_cis", ECL_NAME(cl_cis), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLEAR-INPUT" ECL_FUN("cl_clear_input", cl_clear_input, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLEAR-OUTPUT" ECL_FUN("cl_clear_output", cl_clear_output, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLOSE" ECL_FUN("cl_close", cl_close, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLRHASH" ECL_FUN("cl_clrhash", cl_clrhash, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CODE-CHAR" ECL_FUN("cl_code_char", cl_code_char, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COERCE" ECL_FUN("cl_coerce", ECL_NAME(cl_coerce), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILATION-SPEED" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILE-FILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILE-FILE-PATHNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILED-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILED-FUNCTION-P" ECL_FUN("cl_compiled_function_p", cl_compiled_function_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILER-MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPILER-MACRO-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPLEMENT" ECL_FUN("cl_complement", ECL_NAME(cl_complement), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPLEX" ECL_FUN("cl_complex", cl_complex, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPLEXP" ECL_FUN("cl_complexp", cl_complexp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPUTE-RESTARTS" ECL_FUN("cl_compute_restarts", ECL_NAME(cl_compute_restarts), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONCATENATE" ECL_FUN("cl_concatenate", ECL_NAME(cl_concatenate), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONCATENATED-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONCATENATED-STREAM-STREAMS" ECL_FUN("cl_concatenated_stream_streams", cl_concatenated_stream_streams, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"CONDITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONJUGATE" ECL_FUN("cl_conjugate", cl_conjugate, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONTINUE" ECL_FUN("cl_continue", ECL_NAME(cl_continue), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONS" ECL_FUN("cl_cons", cl_cons, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONSP" ECL_FUN("cl_consp", cl_consp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONSTANTLY" ECL_FUN("cl_constantly", ECL_NAME(cl_constantly), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONSTANTP" ECL_FUN("cl_constantp", cl_constantp, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CONTROL-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-ALIST" ECL_FUN("cl_copy_alist", cl_copy_alist, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-LIST" ECL_FUN("cl_copy_list", cl_copy_list, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-PPRINT-DISPATCH" ECL_FUN("cl_copy_pprint_dispatch", ECL_NAME_PPRINT(cl_copy_pprint_dispatch), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-READTABLE" ECL_FUN("cl_copy_readtable", cl_copy_readtable, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-SEQ" ECL_FUN("cl_copy_seq", cl_copy_seq, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-STRUCTURE" ECL_FUN("cl_copy_structure", cl_copy_structure, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-SYMBOL" ECL_FUN("cl_copy_symbol", cl_copy_symbol, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COPY-TREE" ECL_FUN("cl_copy_tree", cl_copy_tree, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COS" ECL_FUN("cl_cos", cl_cos, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COSH" ECL_FUN("cl_cosh", cl_cosh, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COUNT" ECL_FUN("cl_count", ECL_NAME(cl_count), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COUNT-IF" ECL_FUN("cl_count_if", ECL_NAME(cl_count_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COUNT-IF-NOT" ECL_FUN("cl_count_if_not", ECL_NAME(cl_count_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CTYPECASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEBUG" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECLAIM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECLARATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECLARE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECODE-FLOAT" ECL_FUN("cl_decode_float", cl_decode_float, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DECODE-UNIVERSAL-TIME" ECL_FUN("cl_decode_universal_time", ECL_NAME(cl_decode_universal_time), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFCONSTANT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-CONDITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-COMPILER-MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-MODIFY-MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-SETF-EXPANDER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-SYMBOL-MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFMACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFPACKAGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFPARAMETER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFSETF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFSTRUCT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFTYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFUN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFVAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE" ECL_FUN("cl_delete", ECL_NAME(cl_delete), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE-DUPLICATES" ECL_FUN("cl_delete_duplicates", ECL_NAME(cl_delete_duplicates), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE-FILE" ECL_FUN("cl_delete_file", cl_delete_file, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE-IF" ECL_FUN("cl_delete_if", ECL_NAME(cl_delete_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE-IF-NOT" ECL_FUN("cl_delete_if_not", ECL_NAME(cl_delete_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DELETE-PACKAGE" ECL_FUN("cl_delete_package", cl_delete_package, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DENOMINATOR" ECL_FUN("cl_denominator", cl_denominator, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEPOSIT-FIELD" ECL_FUN("cl_deposit_field", ECL_NAME(cl_deposit_field), 3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DESCRIBE" ECL_FUN("cl_describe", ECL_NAME(cl_describe), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DESTRUCTURING-BIND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DIGIT-CHAR" ECL_FUN("cl_digit_char", cl_digit_char, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DIGIT-CHAR-P" ECL_FUN("cl_digit_char_p", cl_digit_char_p, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DIRECTORY" ECL_FUN("cl_directory", cl_directory, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DIRECTORY-NAMESTRING" ECL_FUN("cl_directory_namestring", cl_directory_namestring, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DISASSEMBLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DIVISION-BY-ZERO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"DO*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"DO-ALL-SYMBOLS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DO-EXTERNAL-SYMBOLS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DO-SYMBOLS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DOCUMENTATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DOLIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"DOTIMES" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DOUBLE-FLOAT-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"DOUBLE-FLOAT-NEGATIVE-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"DPB" ECL_FUN("cl_dpb", ECL_NAME(cl_dpb), 3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DRIBBLE" ECL_FUN("cl_dribble", ECL_NAME(cl_dribble), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DYNAMIC-EXTENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ECASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ECHO-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ECHO-STREAM-INPUT-STREAM" ECL_FUN("cl_echo_stream_input_stream", cl_echo_stream_input_stream, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ECHO-STREAM-OUTPUT-STREAM" ECL_FUN("cl_echo_stream_output_stream", cl_echo_stream_output_stream, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ED" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EIGHTH" ECL_FUN("cl_eighth", cl_eighth, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ELT" ECL_FUN("cl_elt", cl_elt, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ENCODE-UNIVERSAL-TIME" ECL_FUN("cl_encode_universal_time", ECL_NAME(cl_encode_universal_time), -7) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"END-OF-FILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ENDP" ECL_FUN("cl_endp", cl_endp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ENOUGH-NAMESTRING" ECL_FUN("cl_enough_namestring", cl_enough_namestring, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ENSURE-DIRECTORIES-EXIST" ECL_FUN("cl_ensure_directories_exist", ECL_NAME(cl_ensure_directories_exist), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EQ" ECL_FUN("cl_eq", cl_eq, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EQL" ECL_FUN("cl_eql", cl_eql, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EQUAL" ECL_FUN("cl_equal", cl_equal, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EQUALP" ECL_FUN("cl_equalp", cl_equalp, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ERROR" ECL_FUN("cl_error", cl_error, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ETYPECASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EVAL" ECL_FUN("cl_eval", cl_eval, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EVAL-WHEN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"EVENP" ECL_FUN("cl_evenp", cl_evenp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EVERY" ECL_FUN("cl_every", ECL_NAME(cl_every), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EXP" ECL_FUN("cl_exp", cl_exp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EXPORT" ECL_FUN("cl_export", cl_export, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EXPT" ECL_FUN("cl_expt", cl_expt, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"EXTENDED-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FBOUNDP" ECL_FUN("cl_fboundp", cl_fboundp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FCEILING" ECL_FUN("cl_fceiling", ECL_NAME(cl_fceiling), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FDEFINITION" ECL_FUN("cl_fdefinition", cl_fdefinition, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FFLOOR" ECL_FUN("cl_ffloor", ECL_NAME(cl_ffloor), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIFTH" ECL_FUN("cl_fifth", cl_fifth, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-AUTHOR" ECL_FUN("cl_file_author", cl_file_author, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-ERROR-PATHNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-LENGTH" ECL_FUN("cl_file_length", cl_file_length, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-NAMESTRING" ECL_FUN("cl_file_namestring", cl_file_namestring, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-POSITION" ECL_FUN("cl_file_position", cl_file_position, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-STRING-LENGTH" ECL_FUN("cl_file_string_length", cl_file_string_length, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILE-WRITE-DATE" ECL_FUN("cl_file_write_date", cl_file_write_date, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILL" ECL_FUN("cl_fill", ECL_NAME(cl_fill), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FILL-POINTER" ECL_FUN("cl_fill_pointer", cl_fill_pointer, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND" ECL_FUN("cl_find", ECL_NAME(cl_find), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-ALL-SYMBOLS" ECL_FUN("cl_find_all_symbols", ECL_NAME(cl_find_all_symbols), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-IF" ECL_FUN("cl_find_if", ECL_NAME(cl_find_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-IF-NOT" ECL_FUN("cl_find_if_not", ECL_NAME(cl_find_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-PACKAGE" ECL_FUN("cl_find_package", cl_find_package, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-RESTART" ECL_FUN("cl_find_restart", ECL_NAME(cl_find_restart), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-SYMBOL" ECL_FUN("cl_find_symbol", cl_find_symbol, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FINISH-OUTPUT" ECL_FUN("cl_finish_output", cl_finish_output, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIRST" ECL_FUN("cl_car", cl_car, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLET" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"FLOAT" ECL_FUN("cl_float", cl_float, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOAT-DIGITS" ECL_FUN("cl_float_digits", cl_float_digits, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOAT-PRECISION" ECL_FUN("cl_float_precision", cl_float_precision, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOAT-RADIX" ECL_FUN("cl_float_radix", cl_float_radix, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOAT-SIGN" ECL_FUN("cl_float_sign", cl_float_sign, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOATING-POINT-INEXACT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOATING-POINT-INVALID-OPERATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOATING-POINT-OVERFLOW" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOATING-POINT-UNDERFLOW" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOATP" ECL_FUN("cl_floatp", cl_floatp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FLOOR" ECL_FUN("cl_floor", cl_floor, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FMAKUNBOUND" ECL_FUN("cl_fmakunbound", cl_fmakunbound, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FORCE-OUTPUT" ECL_FUN("cl_force_output", cl_force_output, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FORMAT" ECL_FUN("cl_format", cl_format, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FORMATTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FOURTH" ECL_FUN("cl_cadddr", cl_cadddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FRESH-LINE" ECL_FUN("cl_fresh_line", cl_fresh_line, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FROUND" ECL_FUN("cl_fround", ECL_NAME(cl_fround), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FTRUNCATE" ECL_FUN("cl_ftruncate", ECL_NAME(cl_ftruncate), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FTYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FUNCALL" ECL_FUN("cl_funcall", cl_funcall, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FUNCTION-LAMBDA-EXPRESSION" ECL_FUN("cl_function_lambda_expression", cl_function_lambda_expression, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"FUNCTION-KEYWORDS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FUNCTIONP" ECL_FUN("cl_functionp", cl_functionp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GCD" ECL_FUN("cl_gcd", cl_gcd, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GENSYM" ECL_FUN("cl_gensym", cl_gensym, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GENTEMP" ECL_FUN("cl_gentemp", cl_gentemp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET" ECL_FUN("cl_get", cl_get, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-DECODED-TIME" ECL_FUN("cl_get_decoded_time", ECL_NAME(cl_get_decoded_time), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-DISPATCH-MACRO-CHARACTER" ECL_FUN("cl_get_dispatch_macro_character", cl_get_dispatch_macro_character, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-INTERNAL-REAL-TIME" ECL_FUN("cl_get_internal_real_time", cl_get_internal_real_time, 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-INTERNAL-RUN-TIME" ECL_FUN("cl_get_internal_run_time", cl_get_internal_run_time, 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-MACRO-CHARACTER" ECL_FUN("cl_get_macro_character", cl_get_macro_character, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-OUTPUT-STREAM-STRING" ECL_FUN("cl_get_output_stream_string", cl_get_output_stream_string, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-PROPERTIES" ECL_FUN("cl_get_properties", cl_get_properties, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-SETF-EXPANSION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GET-UNIVERSAL-TIME" ECL_FUN("cl_get_universal_time", cl_get_universal_time, 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GETF" ECL_FUN("cl_getf", cl_getf, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GETHASH" ECL_FUN("cl_gethash", cl_gethash, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"GRAPHIC-CHAR-P" ECL_FUN("cl_graphic_char_p", cl_graphic_char_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HANDLER-CASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HANDLER-BIND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-COUNT" ECL_FUN("cl_hash_table_count", cl_hash_table_count, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-P" ECL_FUN("cl_hash_table_p", cl_hash_table_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-REHASH-SIZE" ECL_FUN("cl_hash_table_rehash_size", cl_hash_table_rehash_size, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-REHASH-THRESHOLD" ECL_FUN("cl_hash_table_rehash_threshold", cl_hash_table_rehash_threshold, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-SIZE" ECL_FUN("cl_hash_table_size", cl_hash_table_size, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HASH-TABLE-TEST" ECL_FUN("cl_hash_table_test", cl_hash_table_test, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"HOST-NAMESTRING" ECL_FUN("cl_host_namestring", cl_host_namestring, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IDENTITY" ECL_FUN("cl_identity", cl_identity, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IGNORABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IGNORE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IGNORE-ERRORS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IMAGPART" ECL_FUN("cl_imagpart", cl_imagpart, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IMPORT" ECL_FUN("cl_import", cl_import, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IN-PACKAGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INCF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INLINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INPUT-STREAM-P" ECL_FUN("cl_input_stream_p", cl_input_stream_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INSPECT" ECL_FUN("cl_inspect", ECL_NAME(cl_inspect), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTEGER-DECODE-FLOAT" ECL_FUN("cl_integer_decode_float", cl_integer_decode_float, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTEGER-LENGTH" ECL_FUN("cl_integer_length", cl_integer_length, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTEGERP" ECL_FUN("cl_integerp", cl_integerp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTERACTIVE-STREAM-P" ECL_FUN("cl_interactive_stream_p", cl_interactive_stream_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTERN" ECL_FUN("cl_intern", cl_intern, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INTERNAL-TIME-UNITS-PER-SECOND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"INTERSECTION" ECL_FUN("cl_intersection", ECL_NAME(cl_intersection), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INVOKE-DEBUGGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INVOKE-RESTART" ECL_FUN("cl_invoke_restart", ECL_NAME(cl_invoke_restart), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INVOKE-RESTART-INTERACTIVELY" ECL_FUN("cl_invoke_restart_interactively", ECL_NAME(cl_invoke_restart_interactively), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ISQRT" ECL_FUN("cl_isqrt", ECL_NAME(cl_isqrt), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"KEYWORD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"KEYWORDP" ECL_FUN("cl_keywordp", cl_keywordp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LABELS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LAMBDA" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LAMBDA-LIST-KEYWORDS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"LAMBDA-PARAMETERS-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_LAMBDA_PARAMETERS_LIMIT))}, +{"LAST" ECL_FUN("cl_last", cl_last, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LCM" ECL_FUN("cl_lcm", cl_lcm, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LDB" ECL_FUN("cl_ldb", ECL_NAME(cl_ldb), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LDB-TEST" ECL_FUN("cl_ldb_test", ECL_NAME(cl_ldb_test), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LDIFF" ECL_FUN("cl_ldiff", cl_ldiff, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LEAST-NEGATIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_DOUBLE_FLOAT)}, +{"LEAST-NEGATIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_LONG_FLOAT)}, +{"LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_NORMALIZED_DOUBLE_FLOAT)}, +{"LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_NORMALIZED_LONG_FLOAT)}, +{"LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_NORMALIZED_SHORT_FLOAT)}, +{"LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_NORMALIZED_SINGLE_FLOAT)}, +{"LEAST-NEGATIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_SHORT_FLOAT)}, +{"LEAST-NEGATIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_NEGATIVE_SINGLE_FLOAT)}, +{"LEAST-POSITIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_DOUBLE_FLOAT)}, +{"LEAST-POSITIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_LONG_FLOAT)}, +{"LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_NORMALIZED_DOUBLE_FLOAT)}, +{"LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_NORMALIZED_LONG_FLOAT)}, +{"LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_NORMALIZED_SHORT_FLOAT)}, +{"LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_NORMALIZED_SINGLE_FLOAT)}, +{"LEAST-POSITIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_SHORT_FLOAT)}, +{"LEAST-POSITIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_LEAST_POSITIVE_SINGLE_FLOAT)}, +{"LENGTH" ECL_FUN("cl_length", cl_length, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LET" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LET*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LISP-IMPLEMENTATION-TYPE" ECL_FUN("cl_lisp_implementation_type", ECL_NAME(cl_lisp_implementation_type), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LISP-IMPLEMENTATION-VERSION" ECL_FUN("cl_lisp_implementation_version", ECL_NAME(cl_lisp_implementation_version), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LIST" ECL_FUN("cl_list", cl_list, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LIST*" ECL_FUN("cl_listX", cl_listX, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LIST-ALL-PACKAGES" ECL_FUN("cl_list_all_packages", cl_list_all_packages, 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LIST-LENGTH" ECL_FUN("cl_list_length", cl_list_length, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LISTEN" ECL_FUN("cl_listen", cl_listen, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LISTP" ECL_FUN("cl_listp", cl_listp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOAD" ECL_FUN("cl_load", cl_load, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOAD-LOGICAL-PATHNAME-TRANSLATIONS" ECL_FUN("cl_load_logical_pathname_translations", ECL_NAME(cl_load_logical_pathname_translations), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOAD-TIME-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LOCALLY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"LOG" ECL_FUN("cl_log", cl_log, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGAND" ECL_FUN("cl_logand", cl_logand, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGANDC1" ECL_FUN("cl_logandc1", cl_logandc1, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGANDC2" ECL_FUN("cl_logandc2", cl_logandc2, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGBITP" ECL_FUN("cl_logbitp", cl_logbitp, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGCOUNT" ECL_FUN("cl_logcount", cl_logcount, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGEQV" ECL_FUN("cl_logeqv", cl_logeqv, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGICAL-PATHNAME" ECL_FUN("cl_logical_pathname", cl_logical_pathname, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGICAL-PATHNAME-TRANSLATIONS" ECL_FUN("cl_logical_pathname_translations", ECL_NAME(cl_logical_pathname_translations), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGIOR" ECL_FUN("cl_logior", cl_logior, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGNAND" ECL_FUN("cl_lognand", cl_lognand, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGNOR" ECL_FUN("cl_lognor", cl_lognor, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGNOT" ECL_FUN("cl_lognot", cl_lognot, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGORC1" ECL_FUN("cl_logorc1", cl_logorc1, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGORC2" ECL_FUN("cl_logorc2", cl_logorc2, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGTEST" ECL_FUN("cl_logtest", ECL_NAME(cl_logtest), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOGXOR" ECL_FUN("cl_logxor", cl_logxor, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LONG-FLOAT-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"LONG-FLOAT-NEGATIVE-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"LONG-SITE-NAME" ECL_FUN("cl_long_site_name", ECL_NAME(cl_long_site_name), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOOP" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOOP-FINISH" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"LOWER-CASE-P" ECL_FUN("cl_lower_case_p", cl_lower_case_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACHINE-INSTANCE" ECL_FUN("cl_machine_instance", ECL_NAME(cl_machine_instance), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACHINE-TYPE" ECL_FUN("cl_machine_type", ECL_NAME(cl_machine_type), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACHINE-VERSION" ECL_FUN("cl_machine_version", ECL_NAME(cl_machine_version), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACRO-FUNCTION" ECL_FUN("cl_macro_function", cl_macro_function, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACROEXPAND" ECL_FUN("cl_macroexpand", cl_macroexpand, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACROEXPAND-1" ECL_FUN("cl_macroexpand_1", cl_macroexpand_1, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MACROLET" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MAKE-ARRAY" ECL_FUN("cl_make_array", ECL_NAME(cl_make_array), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-BROADCAST-STREAM" ECL_FUN("cl_make_broadcast_stream", cl_make_broadcast_stream, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-CONDITION" ECL_FUN("cl_make_condition", ECL_NAME(cl_make_condition), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-CONCATENATED-STREAM" ECL_FUN("cl_make_concatenated_stream", cl_make_concatenated_stream, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-DISPATCH-MACRO-CHARACTER" ECL_FUN("cl_make_dispatch_macro_character", cl_make_dispatch_macro_character, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-ECHO-STREAM" ECL_FUN("cl_make_echo_stream", cl_make_echo_stream, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-HASH-TABLE" ECL_FUN("cl_make_hash_table", cl_make_hash_table, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-LIST" ECL_FUN("cl_make_list", cl_make_list, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-PACKAGE" ECL_FUN("cl_make_package", cl_make_package, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-PATHNAME" ECL_FUN("cl_make_pathname", cl_make_pathname, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-RANDOM-STATE" ECL_FUN("cl_make_random_state", cl_make_random_state, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-SEQUENCE" ECL_FUN("cl_make_sequence", ECL_NAME(cl_make_sequence), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-STRING" ECL_FUN("cl_make_string", cl_make_string, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-STRING-INPUT-STREAM" ECL_FUN("cl_make_string_input_stream", cl_make_string_input_stream, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-STRING-OUTPUT-STREAM" ECL_FUN("cl_make_string_output_stream", cl_make_string_output_stream, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-SYMBOL" ECL_FUN("cl_make_symbol", cl_make_symbol, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-SYNONYM-STREAM" ECL_FUN("cl_make_synonym_stream", cl_make_synonym_stream, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-TWO-WAY-STREAM" ECL_FUN("cl_make_two_way_stream", cl_make_two_way_stream, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKUNBOUND" ECL_FUN("cl_makunbound", cl_makunbound, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAP" ECL_FUN("cl_map", ECL_NAME(cl_map), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAP-INTO" ECL_FUN("cl_map_into", ECL_NAME(cl_map_into), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPC" ECL_FUN("cl_mapc", cl_mapc, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPCAN" ECL_FUN("cl_mapcan", cl_mapcan, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPCAR" ECL_FUN("cl_mapcar", cl_mapcar, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPCON" ECL_FUN("cl_mapcon", cl_mapcon, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPHASH" ECL_FUN("cl_maphash", cl_maphash, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPL" ECL_FUN("cl_mapl", cl_mapl, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAPLIST" ECL_FUN("cl_maplist", cl_maplist, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MASK-FIELD" ECL_FUN("cl_mask_field", ECL_NAME(cl_mask_field), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAX" ECL_FUN("cl_max", cl_max, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MEMBER" ECL_FUN("cl_member", cl_member, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MEMBER-IF" ECL_FUN("cl_member_if", ECL_NAME(cl_member_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MEMBER-IF-NOT" ECL_FUN("cl_member_if_not", ECL_NAME(cl_member_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MERGE" ECL_FUN("cl_merge", ECL_NAME(cl_merge), -5) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MERGE-PATHNAMES" ECL_FUN("cl_merge_pathnames", cl_merge_pathnames, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MIN" ECL_FUN("cl_min", cl_min, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MINUSP" ECL_FUN("cl_minusp", cl_minusp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MISMATCH" ECL_FUN("cl_mismatch", ECL_NAME(cl_mismatch), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MOD" ECL_FUN("cl_mod", cl_mod, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MOST-NEGATIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_NEGATIVE_DOUBLE_FLOAT)}, +{"MOST-NEGATIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(MOST_NEGATIVE_FIXNUM))}, +{"MOST-NEGATIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_NEGATIVE_LONG_FLOAT)}, +{"MOST-NEGATIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_NEGATIVE_SHORT_FLOAT)}, +{"MOST-NEGATIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_NEGATIVE_SINGLE_FLOAT)}, +{"MOST-POSITIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_POSITIVE_DOUBLE_FLOAT)}, +{"MOST-POSITIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(MOST_POSITIVE_FIXNUM))}, +{"MOST-POSITIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_POSITIVE_LONG_FLOAT)}, +{"MOST-POSITIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_POSITIVE_SHORT_FLOAT)}, +{"MOST-POSITIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_MOST_POSITIVE_SINGLE_FLOAT)}, +{"MUFFLE-WARNING" ECL_FUN("cl_muffle_warning", ECL_NAME(cl_muffle_warning), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MULTIPLE-VALUE-BIND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MULTIPLE-VALUE-CALL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MULTIPLE-VALUE-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MULTIPLE-VALUE-PROG1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MULTIPLE-VALUE-SETQ" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"MULTIPLE-VALUES-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ecl_make_fixnum(ECL_MULTIPLE_VALUES_LIMIT))}, +{"NAME-CHAR" ECL_FUN("cl_name_char", cl_name_char, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NAMESTRING" ECL_FUN("cl_namestring", cl_namestring, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NBUTLAST" ECL_FUN("cl_nbutlast", cl_nbutlast, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NCONC" ECL_FUN("cl_nconc", cl_nconc, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NINTERSECTION" ECL_FUN("cl_nintersection", ECL_NAME(cl_nintersection), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NINTH" ECL_FUN("cl_ninth", cl_ninth, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NOT" ECL_FUN("cl_not", cl_not, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NOTANY" ECL_FUN("cl_notany", ECL_NAME(cl_notany), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NOTEVERY" ECL_FUN("cl_notevery", ECL_NAME(cl_notevery), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NOTINLINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NRECONC" ECL_FUN("cl_nreconc", cl_nreconc, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NREVERSE" ECL_FUN("cl_nreverse", cl_nreverse, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSET-DIFFERENCE" ECL_FUN("cl_nset_difference", ECL_NAME(cl_nset_difference), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSET-EXCLUSIVE-OR" ECL_FUN("cl_nset_exclusive_or", ECL_NAME(cl_nset_exclusive_or), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSTRING-CAPITALIZE" ECL_FUN("cl_nstring_capitalize", cl_nstring_capitalize, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSTRING-DOWNCASE" ECL_FUN("cl_nstring_downcase", cl_nstring_downcase, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSTRING-UPCASE" ECL_FUN("cl_nstring_upcase", cl_nstring_upcase, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBLIS" ECL_FUN("cl_nsublis", cl_nsublis, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBST" ECL_FUN("cl_nsubst", cl_nsubst, -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBST-IF" ECL_FUN("cl_nsubst_if", ECL_NAME(cl_nsubst_if), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBST-IF-NOT" ECL_FUN("cl_nsubst_if_not", ECL_NAME(cl_nsubst_if_not), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBSTITUTE" ECL_FUN("cl_nsubstitute", ECL_NAME(cl_nsubstitute), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBSTITUTE-IF" ECL_FUN("cl_nsubstitute_if", ECL_NAME(cl_nsubstitute_if), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NSUBSTITUTE-IF-NOT" ECL_FUN("cl_nsubstitute_if_not", ECL_NAME(cl_nsubstitute_if_not), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NTH" ECL_FUN("cl_nth", cl_nth, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NTH-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"NTHCDR" ECL_FUN("cl_nthcdr", cl_nthcdr, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NULL" ECL_FUN("cl_null", cl_null, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NUMBER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NUMBERP" ECL_FUN("cl_numberp", cl_numberp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NUMERATOR" ECL_FUN("cl_numerator", cl_numerator, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NUNION" ECL_FUN("cl_nunion", ECL_NAME(cl_nunion), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ODDP" ECL_FUN("cl_oddp", cl_oddp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OPEN" ECL_FUN("cl_open", cl_open, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OPEN-STREAM-P" ECL_FUN("cl_open_stream_p", cl_open_stream_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OPTIMIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OTHERWISE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"OUTPUT-STREAM-P" ECL_FUN("cl_output_stream_p", cl_output_stream_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-ERROR-PACKAGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-NAME" ECL_FUN("cl_package_name", cl_package_name, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-NICKNAMES" ECL_FUN("cl_package_nicknames", cl_package_nicknames, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-SHADOWING-SYMBOLS" ECL_FUN("cl_package_shadowing_symbols", cl_package_shadowing_symbols, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-USE-LIST" ECL_FUN("cl_package_use_list", cl_package_use_list, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGE-USED-BY-LIST" ECL_FUN("cl_package_used_by_list", cl_package_used_by_list, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PACKAGEP" ECL_FUN("cl_packagep", cl_packagep, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PAIRLIS" ECL_FUN("cl_pairlis", cl_pairlis, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PARSE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PARSE-INTEGER" ECL_FUN("cl_parse_integer", cl_parse_integer, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PARSE-NAMESTRING" ECL_FUN("cl_parse_namestring", cl_parse_namestring, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME" ECL_FUN("cl_pathname", cl_pathname, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-DEVICE" ECL_FUN("cl_pathname_device", cl_pathname_device, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-DIRECTORY" ECL_FUN("cl_pathname_directory", cl_pathname_directory, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-HOST" ECL_FUN("cl_pathname_host", cl_pathname_host, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-MATCH-P" ECL_FUN("cl_pathname_match_p", cl_pathname_match_p, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-NAME" ECL_FUN("cl_pathname_name", cl_pathname_name, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-TYPE" ECL_FUN("cl_pathname_type", cl_pathname_type, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAME-VERSION" ECL_FUN("cl_pathname_version", cl_pathname_version, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PATHNAMEP" ECL_FUN("cl_pathnamep", cl_pathnamep, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PEEK-CHAR" ECL_FUN("cl_peek_char", cl_peek_char, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PHASE" ECL_FUN("cl_phase", ECL_NAME(cl_phase), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PI" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, ECL_PI)}, +{"PLUSP" ECL_FUN("cl_plusp", cl_plusp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"POP" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"POSITION" ECL_FUN("cl_position", ECL_NAME(cl_position), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"POSITION-IF" ECL_FUN("cl_position_if", ECL_NAME(cl_position_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"POSITION-IF-NOT" ECL_FUN("cl_position_if_not", ECL_NAME(cl_position_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT" ECL_FUN("cl_pprint", cl_pprint, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-DISPATCH" ECL_FUN("cl_pprint_dispatch", ECL_NAME_PPRINT(cl_pprint_dispatch), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-EXIT-IF-LIST-EXHAUSTED" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-FILL" ECL_FUN("cl_pprint_fill", ECL_NAME_PPRINT(cl_pprint_fill), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-INDENT" ECL_FUN("cl_pprint_indent", ECL_NAME_PPRINT(cl_pprint_indent), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-LINEAR" ECL_FUN("cl_pprint_linear", ECL_NAME_PPRINT(cl_pprint_linear), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-LOGICAL-BLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-NEWLINE" ECL_FUN("cl_pprint_newline", ECL_NAME_PPRINT(cl_pprint_newline), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-POP" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-TAB" ECL_FUN("cl_pprint_tab", ECL_NAME_PPRINT(cl_pprint_tab), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PPRINT-TABULAR" ECL_FUN("cl_pprint_tabular", ECL_NAME_PPRINT(cl_pprint_tabular), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRIN1" ECL_FUN("cl_prin1", cl_prin1, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRIN1-TO-STRING" ECL_FUN("cl_prin1_to_string", ECL_NAME(cl_prin1_to_string), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINC" ECL_FUN("cl_princ", cl_princ, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINC-TO-STRING" ECL_FUN("cl_princ_to_string", ECL_NAME(cl_princ_to_string), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINT" ECL_FUN("cl_print", cl_print, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINT-NOT-READABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINT-NOT-READABLE-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PROBE-FILE" ECL_FUN("cl_probe_file", cl_probe_file, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PROCLAIM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PROG" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROG*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROG1" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROG2" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROGN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROGRAM-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PROGV" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PROVIDE" ECL_FUN("cl_provide", ECL_NAME(cl_provide), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PSETF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PSETQ" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"PUSH" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PUSHNEW" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"QUOTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"RANDOM" ECL_FUN("cl_random", cl_random, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RANDOM-STATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RANDOM-STATE-P" ECL_FUN("cl_random_state_p", cl_random_state_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RASSOC" ECL_FUN("cl_rassoc", cl_rassoc, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RASSOC-IF" ECL_FUN("cl_rassoc_if", ECL_NAME(cl_rassoc_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RASSOC-IF-NOT" ECL_FUN("cl_rassoc_if_not", ECL_NAME(cl_rassoc_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RATIO" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RATIONAL" ECL_FUN("cl_rational", cl_rational, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RATIONALIZE" ECL_FUN("cl_rationalize", cl_rationalize, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RATIONALP" ECL_FUN("cl_rationalp", cl_rationalp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ" ECL_FUN("cl_read", cl_read, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-BYTE" ECL_FUN("cl_read_byte", cl_read_byte, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-CHAR" ECL_FUN("cl_read_char", cl_read_char, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-CHAR-NO-HANG" ECL_FUN("cl_read_char_no_hang", cl_read_char_no_hang, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-DELIMITED-LIST" ECL_FUN("cl_read_delimited_list", cl_read_delimited_list, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-FROM-STRING" ECL_FUN("cl_read_from_string", ECL_NAME(cl_read_from_string), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-LINE" ECL_FUN("cl_read_line", cl_read_line, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-PRESERVING-WHITESPACE" ECL_FUN("cl_read_preserving_whitespace", cl_read_preserving_whitespace, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READ-SEQUENCE" ECL_FUN("cl_read_sequence", cl_read_sequence, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READER-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READTABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READTABLE-CASE" ECL_FUN("cl_readtable_case", cl_readtable_case, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"READTABLEP" ECL_FUN("cl_readtablep", cl_readtablep, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REALP" ECL_FUN("cl_realp", cl_realp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REALPART" ECL_FUN("cl_realpart", cl_realpart, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REDUCE" ECL_FUN("cl_reduce", ECL_NAME(cl_reduce), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REM" ECL_FUN("cl_rem", cl_rem, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMHASH" ECL_FUN("cl_remhash", cl_remhash, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMOVE" ECL_FUN("cl_remove", ECL_NAME(cl_remove), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMOVE-DUPLICATES" ECL_FUN("cl_remove_duplicates", ECL_NAME(cl_remove_duplicates), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMOVE-IF" ECL_FUN("cl_remove_if", ECL_NAME(cl_remove_if), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMOVE-IF-NOT" ECL_FUN("cl_remove_if_not", ECL_NAME(cl_remove_if_not), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMPROP" ECL_FUN("cl_remprop", cl_remprop, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RENAME-FILE" ECL_FUN("cl_rename_file", cl_rename_file, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RENAME-PACKAGE" ECL_FUN("cl_rename_package", cl_rename_package, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REPLACE" ECL_FUN("cl_replace", ECL_NAME(cl_replace), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REQUIRE" ECL_FUN("cl_require", ECL_NAME(cl_require), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REST" ECL_FUN("cl_cdr", cl_cdr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RESTART" ECL_FUN(NULL, NULL, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RESTART-BIND" ECL_FUN(NULL, NULL, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RESTART-CASE" ECL_FUN(NULL, NULL, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RESTART-NAME" ECL_FUN(NULL, NULL, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RETURN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"RETURN-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"REVAPPEND" ECL_FUN("cl_revappend", cl_revappend, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REVERSE" ECL_FUN("cl_reverse", cl_reverse, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ROOM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ROTATEF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ROUND" ECL_FUN("cl_round", cl_round, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ROW-MAJOR-AREF" ECL_FUN("cl_row_major_aref", cl_row_major_aref, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RPLACA" ECL_FUN("cl_rplaca", cl_rplaca, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"RPLACD" ECL_FUN("cl_rplacd", cl_rplacd, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SAFETY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SATISFIES" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SBIT" ECL_FUN("cl_sbit", ECL_NAME(cl_sbit), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SCALE-FLOAT" ECL_FUN("cl_scale_float", cl_scale_float, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SCHAR" ECL_FUN("cl_char", cl_char, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SEARCH" ECL_FUN("cl_search", ECL_NAME(cl_search), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SECOND" ECL_FUN("cl_cadr", cl_cadr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SEQUENCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SERIOUS-CONDITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET" ECL_FUN("cl_set", cl_set, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-DIFFERENCE" ECL_FUN("cl_set_difference", ECL_NAME(cl_set_difference), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-DISPATCH-MACRO-CHARACTER" ECL_FUN("cl_set_dispatch_macro_character", cl_set_dispatch_macro_character, -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-EXCLUSIVE-OR" ECL_FUN("cl_set_exclusive_or", ECL_NAME(cl_set_exclusive_or), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-MACRO-CHARACTER" ECL_FUN("cl_set_macro_character", cl_set_macro_character, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-PPRINT-DISPATCH" ECL_FUN("cl_set_pprint_dispatch", ECL_NAME_PPRINT(cl_set_pprint_dispatch), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SET-SYNTAX-FROM-CHAR" ECL_FUN("cl_set_syntax_from_char", cl_set_syntax_from_char, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SETF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SETQ" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"SEVENTH" ECL_FUN("cl_seventh", cl_seventh, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHADOW" ECL_FUN("cl_shadow", cl_shadow, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHADOWING-IMPORT" ECL_FUN("cl_shadowing_import", cl_shadowing_import, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHIFTF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHORT-FLOAT-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"SHORT-FLOAT-NEGATIVE-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"SHORT-SITE-NAME" ECL_FUN("cl_short_site_name", ECL_NAME(cl_short_site_name), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIGNAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIGNED-BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIGNUM" ECL_FUN("cl_signum", ECL_NAME(cl_signum), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-BASE-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-BIT-VECTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-BIT-VECTOR-P" ECL_FUN("cl_simple_bit_vector_p", cl_simple_bit_vector_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-CONDITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-CONDITION-FORMAT-CONTROL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-CONDITION-FORMAT-ARGUMENTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-STRING-P" ECL_FUN("cl_simple_string_p", cl_simple_string_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-TYPE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-VECTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-VECTOR-P" ECL_FUN("cl_simple_vector_p", cl_simple_vector_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIMPLE-WARNING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIN" ECL_FUN("cl_sin", cl_sin, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SINGLE-FLOAT-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"SINGLE-FLOAT-NEGATIVE-EPSILON" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_CONSTANT, OBJNULL)}, +{"SINH" ECL_FUN("cl_sinh", cl_sinh, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SIXTH" ECL_FUN("cl_sixth", cl_sixth, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLEEP" ECL_FUN("cl_sleep", cl_sleep, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SOFTWARE-TYPE" ECL_FUN("cl_software_type", ECL_NAME(cl_software_type), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SOFTWARE-VERSION" ECL_FUN("cl_software_version", ECL_NAME(cl_software_version), 0) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SOME" ECL_FUN("cl_some", ECL_NAME(cl_some), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SORT" ECL_FUN("cl_sort", ECL_NAME(cl_sort), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SPACE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SPECIAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SPECIAL-OPERATOR-P" ECL_FUN("cl_special_operator_p", cl_special_operator_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SPEED" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SQRT" ECL_FUN("cl_sqrt", cl_sqrt, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STABLE-SORT" ECL_FUN("cl_stable_sort", ECL_NAME(cl_stable_sort), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-CHAR-P" ECL_FUN("cl_standard_char_p", cl_standard_char_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STEP" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STORAGE-CONDITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STORE-VALUE" ECL_FUN("cl_store_value", ECL_NAME(cl_store_value), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAM-ELEMENT-TYPE" ECL_FUN("cl_stream_element_type", cl_stream_element_type, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAM-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAM-ERROR-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAM-EXTERNAL-FORMAT" ECL_FUN("cl_stream_external_format", cl_stream_external_format, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STREAMP" ECL_FUN("cl_streamp", cl_streamp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING" ECL_FUN("cl_string", cl_string, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-DOWNCASE" ECL_FUN("cl_string_downcase", cl_string_downcase, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-CAPITALIZE" ECL_FUN("cl_string_capitalize", cl_string_capitalize, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-EQUAL" ECL_FUN("cl_string_equal", cl_string_equal, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-GREATERP" ECL_FUN("cl_string_greaterp", cl_string_greaterp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-LEFT-TRIM" ECL_FUN("cl_string_left_trim", cl_string_left_trim, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-LESSP" ECL_FUN("cl_string_lessp", cl_string_lessp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-NOT-EQUAL" ECL_FUN("cl_string_not_equal", cl_string_not_equal, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-NOT-GREATERP" ECL_FUN("cl_string_not_greaterp", cl_string_not_greaterp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-NOT-LESSP" ECL_FUN("cl_string_not_lessp", cl_string_not_lessp, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-RIGHT-TRIM" ECL_FUN("cl_string_right_trim", cl_string_right_trim, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-TRIM" ECL_FUN("cl_string_trim", cl_string_trim, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING-UPCASE" ECL_FUN("cl_string_upcase", cl_string_upcase, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING/=" ECL_FUN("cl_stringNE", cl_stringNE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING<" ECL_FUN("cl_stringL", cl_stringL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING<=" ECL_FUN("cl_stringLE", cl_stringLE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING=" ECL_FUN("cl_stringE", cl_stringE, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING>" ECL_FUN("cl_stringG", cl_stringG, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRING>=" ECL_FUN("cl_stringGE", cl_stringGE, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRINGP" ECL_FUN("cl_stringp", cl_stringp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRUCTURE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STYLE-WARNING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBLIS" ECL_FUN("cl_sublis", cl_sublis, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBSEQ" ECL_FUN("cl_subseq", cl_subseq, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBSETP" ECL_FUN("cl_subsetp", ECL_NAME(cl_subsetp), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBST" ECL_FUN("cl_subst", cl_subst, -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBST-IF" ECL_FUN("cl_subst_if", ECL_NAME(cl_subst_if), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBST-IF-NOT" ECL_FUN("cl_subst_if_not", ECL_NAME(cl_subst_if_not), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBSTITUTE" ECL_FUN("cl_substitute", ECL_NAME(cl_substitute), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBSTITUTE-IF" ECL_FUN("cl_substitute_if", ECL_NAME(cl_substitute_if), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBSTITUTE-IF-NOT" ECL_FUN("cl_substitute_if_not", ECL_NAME(cl_substitute_if_not), -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SUBTYPEP" ECL_FUN("cl_subtypep", ECL_NAME(cl_subtypep), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SVREF" ECL_FUN("cl_svref", cl_svref, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SXHASH" ECL_FUN("cl_sxhash", cl_sxhash, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL-FUNCTION" ECL_FUN("cl_symbol_function", cl_symbol_function, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL-MACROLET" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"SYMBOL-NAME" ECL_FUN("cl_symbol_name", cl_symbol_name, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL-PACKAGE" ECL_FUN("cl_symbol_package", cl_symbol_package, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL-PLIST" ECL_FUN("cl_symbol_plist", cl_symbol_plist, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOL-VALUE" ECL_FUN("cl_symbol_value", cl_symbol_value, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYMBOLP" ECL_FUN("cl_symbolp", cl_symbolp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYNONYM-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SYNONYM-STREAM-SYMBOL" ECL_FUN("cl_synonym_stream_symbol", cl_synonym_stream_symbol, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TAGBODY" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"TAILP" ECL_FUN("cl_tailp", cl_tailp, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TAN" ECL_FUN("cl_tan", cl_tan, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TANH" ECL_FUN("cl_tanh", cl_tanh, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TENTH" ECL_FUN("cl_tenth", cl_tenth, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TERPRI" ECL_FUN("cl_terpri", cl_terpri, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"THE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"THIRD" ECL_FUN("cl_caddr", cl_caddr, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"THROW" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"TIME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TRACE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TRANSLATE-LOGICAL-PATHNAME" ECL_FUN("cl_translate_logical_pathname", cl_translate_logical_pathname, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TRANSLATE-PATHNAME" ECL_FUN("cl_translate_pathname", cl_translate_pathname, -4) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TREE-EQUAL" ECL_FUN("cl_tree_equal", cl_tree_equal, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TRUENAME" ECL_FUN("cl_truename", cl_truename, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TRUNCATE" ECL_FUN("cl_truncate", cl_truncate, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TWO-WAY-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TWO-WAY-STREAM-INPUT-STREAM" ECL_FUN("cl_two_way_stream_input_stream", cl_two_way_stream_input_stream, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TWO-WAY-STREAM-OUTPUT-STREAM" ECL_FUN("cl_two_way_stream_output_stream", cl_two_way_stream_output_stream, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPE-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPE-ERROR-DATUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPE-ERROR-EXPECTED-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPE-OF" ECL_FUN("cl_type_of", cl_type_of, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPECASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"TYPEP" ECL_FUN("cl_typep", ECL_NAME(cl_typep), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNBOUND-SLOT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNBOUND-SLOT-INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNBOUND-VARIABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNDEFINED-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNEXPORT" ECL_FUN("cl_unexport", cl_unexport, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNINTERN" ECL_FUN("cl_unintern", cl_unintern, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNION" ECL_FUN("cl_union", ECL_NAME(cl_union), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNLESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"UNREAD-CHAR" ECL_FUN("cl_unread_char", cl_unread_char, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNSIGNED-BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNTRACE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNUSE-PACKAGE" ECL_FUN("cl_unuse_package", cl_unuse_package, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UNWIND-PROTECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"UPGRADED-ARRAY-ELEMENT-TYPE" ECL_FUN("cl_upgraded_array_element_type", ECL_NAME(cl_upgraded_array_element_type), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UPGRADED-COMPLEX-PART-TYPE" ECL_FUN("cl_upgraded_complex_part_type", ECL_NAME(cl_upgraded_complex_part_type), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UPPER-CASE-P" ECL_FUN("cl_upper_case_p", cl_upper_case_p, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"USE-PACKAGE" ECL_FUN("cl_use_package", cl_use_package, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"USE-VALUE" ECL_FUN("cl_use_value", ECL_NAME(cl_use_value), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"USER-HOMEDIR-PATHNAME" ECL_FUN("cl_user_homedir_pathname", cl_user_homedir_pathname, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VALUES" ECL_FUN("cl_values", cl_values, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VALUES-LIST" ECL_FUN("cl_values_list", cl_values_list, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VARIABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VECTOR" ECL_FUN("cl_vector", ECL_NAME(cl_vector), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VECTOR-POP" ECL_FUN("cl_vector_pop", ECL_NAME(cl_vector_pop), 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VECTOR-PUSH" ECL_FUN("cl_vector_push", cl_vector_push, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VECTOR-PUSH-EXTEND" ECL_FUN("cl_vector_push_extend", cl_vector_push_extend, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"VECTORP" ECL_FUN("cl_vectorp", cl_vectorp, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WARN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WARNING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WHEN" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"WILD-PATHNAME-P" ECL_FUN("cl_wild_pathname_p", cl_wild_pathname_p, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-COMPILATION-UNIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-CONDITION-RESTARTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-HASH-TABLE-ITERATOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-INPUT-FROM-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-OPEN-FILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-OPEN-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-OUTPUT-TO-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-PACKAGE-ITERATOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-SIMPLE-RESTART" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-STANDARD-IO-SYNTAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE" ECL_FUN("cl_write", cl_write, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-BYTE" ECL_FUN("cl_write_byte", cl_write_byte, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-CHAR" ECL_FUN("cl_write_char", cl_write_char, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-LINE" ECL_FUN("cl_write_line", cl_write_line, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-SEQUENCE" ECL_FUN("cl_write_sequence", cl_write_sequence, -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-STRING" ECL_FUN("cl_write_string", cl_write_string, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WRITE-TO-STRING" ECL_FUN("cl_write_to_string", ECL_NAME(cl_write_to_string), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"Y-OR-N-P" ECL_FUN("cl_y_or_n_p", ECL_NAME(cl_y_or_n_p), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"YES-OR-NO-P" ECL_FUN("cl_yes_or_no_p", ECL_NAME(cl_yes_or_no_p), -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ZEROP" ECL_FUN("cl_zerop", cl_zerop, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ALLOCATE-INSTANCE" ECL_FUN(NULL, NULL, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ADD-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"BUILT-IN-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CALL-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CALL-NEXT-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CHANGE-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLASS-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"CLASS-OF" ECL_FUN("cl_class_of", cl_class_of, 1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"COMPUTE-APPLICABLE-METHODS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFCLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFGENERIC" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFINE-METHOD-COMBINATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DEFMETHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"DESCRIBE-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"ENSURE-GENERIC-FUNCTION" ECL_FUN(NULL, NULL, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-CLASS" ECL_FUN("cl_find_class", cl_find_class, -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"FIND-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"GENERIC-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"IF" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_FORM, OBJNULL)}, +{"INITIALIZE-INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"INVALID-METHOD-ERROR" ECL_FUN("cl_invalid_method_error", ECL_NAME(cl_invalid_method_error), -3) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-INSTANCES-OBSOLETE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-LOAD-FORM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-LOAD-FORM-SAVING-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"MAKE-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"METHOD-COMBINATION-ERROR" ECL_FUN("cl_method_combination_error", ECL_NAME(cl_method_combination_error), -2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"METHOD-COMBINATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"METHOD-QUALIFIERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NEXT-METHOD-P" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NO-APPLICABLE-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"NO-NEXT-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINT-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"PRINT-UNREADABLE-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REINITIALIZE-INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"REMOVE-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SHARED-INITIALIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-BOUNDP" ECL_FUN("cl_slot_boundp", ECL_NAME(cl_slot_boundp), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-EXISTS-P" ECL_FUN("cl_slot_exists_p", ECL_NAME(cl_slot_exists_p), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-MAKUNBOUND" ECL_FUN("cl_slot_makunbound", ECL_NAME(cl_slot_makunbound), 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-MISSING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-UNBOUND" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"SLOT-VALUE" ECL_FUN("cl_slot_value", cl_slot_value, 2) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-GENERIC-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STANDARD-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRUCTURE-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"STRUCTURE-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"UPDATE-INSTANCE-FOR-REDEFINED-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-ACCESSORS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{"WITH-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}, +{KEY_ "ACCESSOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ARGUMENT-PRECEDENCE-ORDER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ALLOCATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DECLARE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DEFAULT-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DESCRIPTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DIRECT-DEFAULT-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DIRECT-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DIRECT-SUPERCLASSES" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "GENERIC-FUNCTION-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IDENTITY-WITH-ONE-ARGUMENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITARG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITFORM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITFUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LAMBDA-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LOCATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "METACLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "METHOD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "METHOD-COMBINATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OPERATOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ORDER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "READER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "READERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "REQUIRED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WRITER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WRITERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, /* SYSTEM PACKAGE */ -{SYS_ "#!", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "*BACKQ-LEVEL*", SI_SPECIAL, NULL, -1, ecl_make_fixnum(0)}, -{SYS_ "*CBLOCK*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*CIRCLE-COUNTER*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*CIRCLE-STACK*", SI_SPECIAL, NULL, -1, OBJNULL}, -{SYS_ "*CLASS-NAME-HASH-TABLE*", SI_SPECIAL, NULL, -1, OBJNULL}, -{SYS_ "*COMPILER-CONSTANTS*", SI_SPECIAL, NULL, -1, OBJNULL}, -{SYS_ "*GC-MESSAGE*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*GC-VERBOSE*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*IGNORE-EOF-ON-TERMINAL-IO*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*INDENT-FORMATTED-OUTPUT*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*INIT-FUNCTION-PREFIX*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*KEEP-DEFINITIONS*", SI_SPECIAL, NULL, -1, ECL_T}, -{EXT_ "*LOAD-HOOKS*", EXT_SPECIAL, NULL, -1, OBJNULL}, -{SYS_ "*LOAD-SEARCH-LIST*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*MAKE-CONSTANT", SI_ORDINARY, si_Xmake_constant, 2, OBJNULL}, -{SYS_ "*MAKE-SPECIAL", SI_ORDINARY, si_Xmake_special, 1, OBJNULL}, -{SYS_ "*PRINT-PACKAGE*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*PRINT-STRUCTURE*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*SHARP-EQ-CONTEXT*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{SYS_ "*STEP-LEVEL*", SI_SPECIAL, OBJNULL, -1, ecl_make_fixnum(0)}, -{SYS_ "*STEP-ACTION*", SI_SPECIAL, OBJNULL, -1, ECL_NIL}, -{SYS_ ".", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNQUOTE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNQUOTE-NSPLICE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNQUOTE-SPLICE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "ALLOCATE-RAW-INSTANCE", SI_ORDINARY, si_allocate_raw_instance, 3, OBJNULL}, -{EXT_ "ARGC", EXT_ORDINARY, si_argc, 0, OBJNULL}, -{EXT_ "ARGV", EXT_ORDINARY, si_argv, 1, OBJNULL}, -{SYS_ "ASET", SI_ORDINARY, si_aset, -2, OBJNULL}, -{SYS_ "BASE-CHAR-P", SI_ORDINARY, si_base_char_p, 1, OBJNULL}, -{SYS_ "BASE-STRING-P", SI_ORDINARY, si_base_string_p, 1, OBJNULL}, -{SYS_ "BC-DISASSEMBLE", SI_ORDINARY, si_bc_disassemble, 1, OBJNULL}, -{SYS_ "BC-SPLIT", SI_ORDINARY, si_bc_split, 1, OBJNULL}, -{SYS_ "BC-JOIN", SI_ORDINARY, si_bc_join, 4, OBJNULL}, -{SYS_ "BDS-TOP", SI_ORDINARY, si_bds_top, 0, OBJNULL}, -{SYS_ "BDS-VAL", SI_ORDINARY, si_bds_val, 1, OBJNULL}, -{SYS_ "BDS-VAR", SI_ORDINARY, si_bds_var, 1, OBJNULL}, -{SYS_ "BIT-ARRAY-OP", SI_ORDINARY, si_bit_array_op, 4, OBJNULL}, -{SYS_ "C-ARGUMENTS-LIMIT", SI_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_C_ARGUMENTS_LIMIT)}, -{SYS_ "CHAR-SET", SI_ORDINARY, si_char_set, 3, OBJNULL}, -{EXT_ "CHDIR", EXT_ORDINARY, si_chdir, -2, OBJNULL}, -{SYS_ "CLEAR-COMPILER-PROPERTIES", SI_ORDINARY, cl_identity, 1, OBJNULL}, -{SYS_ "COERCE-TO-BASE-STRING", SI_ORDINARY, si_coerce_to_base_string, 1, OBJNULL}, -{SYS_ "COERCE-TO-EXTENDED-STRING", SI_ORDINARY, si_coerce_to_extended_string, 1, OBJNULL}, -{SYS_ "COERCE-TO-FILENAME", SI_ORDINARY, si_coerce_to_filename, 1, OBJNULL}, -{SYS_ "COERCE-TO-FUNCTION", SI_ORDINARY, si_coerce_to_function, 1, OBJNULL}, -{SYS_ "COERCE-TO-PACKAGE", SI_ORDINARY, si_coerce_to_package, 1, OBJNULL}, -{SYS_ "COPY-TO-SIMPLE-BASE-STRING", SI_ORDINARY, si_copy_to_simple_base_string, 1, OBJNULL}, -{SYS_ "COMPILED-FUNCTION-BLOCK", SI_ORDINARY, si_compiled_function_block, 1, OBJNULL}, -{EXT_ "COMPILED-FUNCTION-NAME", EXT_ORDINARY, si_compiled_function_name, 1, OBJNULL}, -{SYS_ "COPY-STREAM", SI_ORDINARY, si_copy_stream, 3, OBJNULL}, -{SYS_ "DESTRUCTURE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "DO-READ-SEQUENCE", SI_ORDINARY, si_do_read_sequence, 4, OBJNULL}, -{SYS_ "DO-WRITE-SEQUENCE", SI_ORDINARY, si_do_write_sequence, 4, OBJNULL}, -{SYS_ "ELT-SET", SI_ORDINARY, si_elt_set, 3, OBJNULL}, -{SYS_ "EVAL-WITH-ENV", SI_ORDINARY, si_eval_with_env, -2, OBJNULL}, -{SYS_ "EXPAND-DEFMACRO", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "FILE-COLUMN", SI_ORDINARY, si_file_column, 1, OBJNULL}, -{EXT_ "FILE-KIND", EXT_ORDINARY, si_file_kind, 2, OBJNULL}, -{SYS_ "FILL-POINTER-SET", SI_ORDINARY, si_fill_pointer_set, 2, OBJNULL}, -{EXT_ "FILE-STREAM-FD", EXT_ORDINARY, si_file_stream_fd, 1, OBJNULL}, -{EXT_ "MAKE-STREAM-FROM-FD", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "FIXNUMP", EXT_ORDINARY, si_fixnump, 1, OBJNULL}, -{SYS_ "FORMAT-ERROR", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "#!" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*BACKQ-LEVEL*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ecl_make_fixnum(0))}, +{SYS_ "*CBLOCK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*CIRCLE-COUNTER*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*CIRCLE-STACK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "*CLASS-NAME-HASH-TABLE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "*COMPILER-CONSTANTS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "*GC-MESSAGE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*GC-VERBOSE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*IGNORE-EOF-ON-TERMINAL-IO*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*INDENT-FORMATTED-OUTPUT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*INIT-FUNCTION-PREFIX*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*KEEP-DEFINITIONS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_T)}, +{EXT_ "*LOAD-HOOKS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, OBJNULL)}, +{SYS_ "*LOAD-SEARCH-LIST*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*MAKE-CONSTANT" ECL_FUN("si_Xmake_constant", si_Xmake_constant, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*MAKE-SPECIAL" ECL_FUN("si_Xmake_special", si_Xmake_special, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*PRINT-PACKAGE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*PRINT-STRUCTURE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*SHARP-EQ-CONTEXT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "*STEP-LEVEL*" ECL_FUN("OBJNULL", OBJNULL, -1) ECL_VAR(SI_SPECIAL, ecl_make_fixnum(0))}, +{SYS_ "*STEP-ACTION*" ECL_FUN("OBJNULL", OBJNULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{SYS_ "." ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNQUOTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNQUOTE-NSPLICE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNQUOTE-SPLICE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ALLOCATE-RAW-INSTANCE" ECL_FUN("si_allocate_raw_instance", si_allocate_raw_instance, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "ARGC" ECL_FUN("si_argc", si_argc, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ARGV" ECL_FUN("si_argv", si_argv, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "ASET" ECL_FUN("si_aset", si_aset, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BASE-CHAR-P" ECL_FUN("si_base_char_p", si_base_char_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BASE-STRING-P" ECL_FUN("si_base_string_p", si_base_string_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BC-DISASSEMBLE" ECL_FUN("si_bc_disassemble", si_bc_disassemble, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BC-SPLIT" ECL_FUN("si_bc_split", si_bc_split, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BC-JOIN" ECL_FUN("si_bc_join", si_bc_join, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BDS-TOP" ECL_FUN("si_bds_top", si_bds_top, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BDS-VAL" ECL_FUN("si_bds_val", si_bds_val, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BDS-VAR" ECL_FUN("si_bds_var", si_bds_var, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BIT-ARRAY-OP" ECL_FUN("si_bit_array_op", si_bit_array_op, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "C-ARGUMENTS-LIMIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_CONSTANT, ecl_make_fixnum(ECL_C_ARGUMENTS_LIMIT))}, +{SYS_ "CHAR-SET" ECL_FUN("si_char_set", si_char_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "CHDIR" ECL_FUN("si_chdir", si_chdir, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "CLEAR-COMPILER-PROPERTIES" ECL_FUN("cl_identity", cl_identity, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COERCE-TO-BASE-STRING" ECL_FUN("si_coerce_to_base_string", si_coerce_to_base_string, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COERCE-TO-EXTENDED-STRING" ECL_FUN("si_coerce_to_extended_string", si_coerce_to_extended_string, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COERCE-TO-FILENAME" ECL_FUN("si_coerce_to_filename", si_coerce_to_filename, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COERCE-TO-FUNCTION" ECL_FUN("si_coerce_to_function", si_coerce_to_function, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COERCE-TO-PACKAGE" ECL_FUN("si_coerce_to_package", si_coerce_to_package, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COPY-TO-SIMPLE-BASE-STRING" ECL_FUN("si_copy_to_simple_base_string", si_copy_to_simple_base_string, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COMPILED-FUNCTION-BLOCK" ECL_FUN("si_compiled_function_block", si_compiled_function_block, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "COMPILED-FUNCTION-NAME" ECL_FUN("si_compiled_function_name", si_compiled_function_name, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "COPY-STREAM" ECL_FUN("si_copy_stream", si_copy_stream, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DESTRUCTURE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DO-READ-SEQUENCE" ECL_FUN("si_do_read_sequence", si_do_read_sequence, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DO-WRITE-SEQUENCE" ECL_FUN("si_do_write_sequence", si_do_write_sequence, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ELT-SET" ECL_FUN("si_elt_set", si_elt_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "EVAL-WITH-ENV" ECL_FUN("si_eval_with_env", si_eval_with_env, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "EXPAND-DEFMACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FILE-COLUMN" ECL_FUN("si_file_column", si_file_column, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "FILE-KIND" ECL_FUN("si_file_kind", si_file_kind, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "FILL-POINTER-SET" ECL_FUN("si_fill_pointer_set", si_fill_pointer_set, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "FILE-STREAM-FD" ECL_FUN("si_file_stream_fd", si_file_stream_fd, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-STREAM-FROM-FD" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FIXNUMP" ECL_FUN("si_fixnump", si_fixnump, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "FORMAT-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, #ifdef ECL_CMU_FORMAT -{SYS_ "FORMATTER-AUX", SI_ORDINARY, NULL, -3, OBJNULL}, +{SYS_ "FORMATTER-AUX" ECL_FUN(NULL, NULL, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, #else -{SYS_ "FORMATTER-AUX", SI_ORDINARY, si_formatter_aux, -3, OBJNULL}, +{SYS_ "FORMATTER-AUX" ECL_FUN("si_formatter_aux", si_formatter_aux, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, #endif -{SYS_ "FRS-BDS", SI_ORDINARY, si_frs_bds, 1, OBJNULL}, -{SYS_ "FRS-IHS", SI_ORDINARY, si_frs_ihs, 1, OBJNULL}, -{SYS_ "FRS-TAG", SI_ORDINARY, si_frs_tag, 1, OBJNULL}, -{SYS_ "FRS-TOP", SI_ORDINARY, si_frs_top, 0, OBJNULL}, -{SYS_ "FSET", SI_ORDINARY, si_fset, -3, OBJNULL}, -{SYS_ "FUNCTION-BLOCK-NAME", SI_ORDINARY, si_function_block_name, 1, OBJNULL}, -{SYS_ "GET-LIBRARY-PATHNAME", SI_ORDINARY, si_get_library_pathname, 0, OBJNULL}, -{SYS_ "GET-SYSPROP", SI_ORDINARY, si_get_sysprop, 2, OBJNULL}, -{EXT_ "GETENV", EXT_ORDINARY, si_getenv, 1, OBJNULL}, -{EXT_ "GETCWD", EXT_ORDINARY, si_getcwd, -1, OBJNULL}, -{EXT_ "GETPID", EXT_ORDINARY, si_getpid, 0, OBJNULL}, -{EXT_ "GETUID", EXT_ORDINARY, si_getuid, 0, OBJNULL}, -{SYS_ "HASH-SET", SI_ORDINARY, si_hash_set, 3, OBJNULL}, -{SYS_ "HASH-TABLE-ITERATOR", SI_ORDINARY, si_hash_table_iterator, 1, OBJNULL}, -{SYS_ "IHS-BDS", SI_ORDINARY, si_ihs_bds, 1, OBJNULL}, -{SYS_ "IHS-ENV", SI_ORDINARY, si_ihs_env, 1, OBJNULL}, -{SYS_ "IHS-FUN", SI_ORDINARY, si_ihs_fun, 1, OBJNULL}, -{SYS_ "IHS-NEXT", SI_ORDINARY, si_ihs_next, 1, OBJNULL}, -{SYS_ "IHS-PREV", SI_ORDINARY, si_ihs_prev, 1, OBJNULL}, -{SYS_ "IHS-TOP", SI_ORDINARY, si_ihs_top, 0, OBJNULL}, -{SYS_ "INTERPRETER-STACK", SI_ORDINARY, si_interpreter_stack, -1, OBJNULL}, -{SYS_ "LINK-FROM", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "LINK-TO", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "LOAD-SOURCE", SI_ORDINARY, si_load_source, 4, OBJNULL}, -{SYS_ "LOGICAL-PATHNAME-P", SI_ORDINARY, si_logical_pathname_p, 1, OBJNULL}, -{SYS_ "MACRO", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "MAKE-LAMBDA", SI_ORDINARY, si_make_lambda, 2, OBJNULL}, -{SYS_ "MAKE-PURE-ARRAY", SI_ORDINARY, si_make_pure_array, 6, OBJNULL}, -{SYS_ "MAKE-STRING-OUTPUT-STREAM-FROM-STRING", SI_ORDINARY, si_make_string_output_stream_from_string, 1, OBJNULL}, -{SYS_ "MAKE-STRUCTURE", SI_ORDINARY, si_make_structure, -2, OBJNULL}, -{SYS_ "MAKE-VECTOR", SI_ORDINARY, si_make_vector, 6, OBJNULL}, -{SYS_ "MANGLE-NAME", SI_ORDINARY, si_mangle_name, -2, OBJNULL}, -{SYS_ "MEMBER1", SI_ORDINARY, si_member1, 5, OBJNULL}, -{SYS_ "MEMQ", SI_ORDINARY, si_memq, 2, OBJNULL}, -{SYS_ "MKDIR", SI_ORDINARY, si_mkdir, 2, OBJNULL}, -{EXT_ "MKSTEMP", EXT_ORDINARY, si_mkstemp, 1, OBJNULL}, -{SYS_ "NEED-TO-MAKE-LOAD-FORM-P", SI_ORDINARY, si_need_to_make_load_form_p, 1, OBJNULL}, -{SYS_ "RMDIR", SI_ORDINARY, si_rmdir, 1, OBJNULL}, -{EXT_ "MAKE-PIPE", EXT_ORDINARY, si_make_pipe, 0, OBJNULL}, +{SYS_ "FRS-BDS" ECL_FUN("si_frs_bds", si_frs_bds, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FRS-IHS" ECL_FUN("si_frs_ihs", si_frs_ihs, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FRS-TAG" ECL_FUN("si_frs_tag", si_frs_tag, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FRS-TOP" ECL_FUN("si_frs_top", si_frs_top, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FSET" ECL_FUN("si_fset", si_fset, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FUNCTION-BLOCK-NAME" ECL_FUN("si_function_block_name", si_function_block_name, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GET-LIBRARY-PATHNAME" ECL_FUN("si_get_library_pathname", si_get_library_pathname, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GET-SYSPROP" ECL_FUN("si_get_sysprop", si_get_sysprop, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "GETENV" ECL_FUN("si_getenv", si_getenv, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GETCWD" ECL_FUN("si_getcwd", si_getcwd, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GETPID" ECL_FUN("si_getpid", si_getpid, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GETUID" ECL_FUN("si_getuid", si_getuid, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "HASH-SET" ECL_FUN("si_hash_set", si_hash_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "HASH-TABLE-ITERATOR" ECL_FUN("si_hash_table_iterator", si_hash_table_iterator, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-BDS" ECL_FUN("si_ihs_bds", si_ihs_bds, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-ENV" ECL_FUN("si_ihs_env", si_ihs_env, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-FUN" ECL_FUN("si_ihs_fun", si_ihs_fun, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-NEXT" ECL_FUN("si_ihs_next", si_ihs_next, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-PREV" ECL_FUN("si_ihs_prev", si_ihs_prev, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IHS-TOP" ECL_FUN("si_ihs_top", si_ihs_top, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INTERPRETER-STACK" ECL_FUN("si_interpreter_stack", si_interpreter_stack, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LINK-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LINK-TO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LOAD-SOURCE" ECL_FUN("si_load_source", si_load_source, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LOGICAL-PATHNAME-P" ECL_FUN("si_logical_pathname_p", si_logical_pathname_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-LAMBDA" ECL_FUN("si_make_lambda", si_make_lambda, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-PURE-ARRAY" ECL_FUN("si_make_pure_array", si_make_pure_array, 6) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-STRING-OUTPUT-STREAM-FROM-STRING" ECL_FUN("si_make_string_output_stream_from_string", si_make_string_output_stream_from_string, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-STRUCTURE" ECL_FUN("si_make_structure", si_make_structure, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-VECTOR" ECL_FUN("si_make_vector", si_make_vector, 6) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MANGLE-NAME" ECL_FUN("si_mangle_name", si_mangle_name, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MEMBER1" ECL_FUN("si_member1", si_member1, 5) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MEMQ" ECL_FUN("si_memq", si_memq, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MKDIR" ECL_FUN("si_mkdir", si_mkdir, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "MKSTEMP" ECL_FUN("si_mkstemp", si_mkstemp, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "NEED-TO-MAKE-LOAD-FORM-P" ECL_FUN("si_need_to_make_load_form_p", si_need_to_make_load_form_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "RMDIR" ECL_FUN("si_rmdir", si_rmdir, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-PIPE" ECL_FUN("si_make_pipe", si_make_pipe, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* package extensions */ -{SYS_ "*IGNORE-PACKAGE-LOCKS*", SI_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "PACKAGE-LOCK", EXT_ORDINARY, si_package_lock, 2, OBJNULL}, -{EXT_ "PACKAGE-LOCKED-P", EXT_ORDINARY, si_package_locked_p, 1, OBJNULL}, -{SYS_ "LOCK-PACKAGE", EXT_ORDINARY, NULL, 1, OBJNULL}, -{SYS_ "UNLOCK-PACKAGE", EXT_ORDINARY, NULL, 1, OBJNULL}, -{SYS_ "WITHOUT-PACKAGE-LOCKS", EXT_ORDINARY, NULL, 1, OBJNULL}, -{SYS_ "WITH-UNLOCKED-PACKAGES", EXT_ORDINARY, NULL, 1, OBJNULL}, -{EXT_ "PACKAGE-LOCAL-NICKNAMES", EXT_ORDINARY, si_package_local_nicknames, 1, OBJNULL}, -{EXT_ "PACKAGE-LOCALLY-NICKNAMED-BY-LIST", EXT_ORDINARY, si_package_locally_nicknamed_by_list, 1, OBJNULL}, -{EXT_ "ADD-PACKAGE-LOCAL-NICKNAME", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "REMOVE-PACKAGE-LOCAL-NICKNAME", EXT_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "%ADD-PACKAGE-LOCAL-NICKNAME", EXT_ORDINARY, si_add_package_local_nickname, 3, OBJNULL}, -{SYS_ "%REMOVE-PACKAGE-LOCAL-NICKNAME", EXT_ORDINARY, si_remove_package_local_nickname, 2, OBJNULL}, -{SYS_ "PACKAGE-HASH-TABLES", SI_ORDINARY, si_package_hash_tables, 1, OBJNULL}, -{SYS_ "PATHNAME-TRANSLATIONS", SI_ORDINARY, si_pathname_translations, -2, OBJNULL}, -{SYS_ "POINTER", SI_ORDINARY, si_pointer, 1, OBJNULL}, -{SYS_ "PRETTY-PRINT-FORMAT", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "PROCESS-DECLARATIONS", SI_ORDINARY, si_process_declarations, -2, OBJNULL}, -{SYS_ "PROCESS-LAMBDA", SI_ORDINARY, si_process_lambda, 1, OBJNULL}, -{SYS_ "PROCESS-LAMBDA-LIST", SI_ORDINARY, si_process_lambda_list, 2, OBJNULL}, -{SYS_ "PUT-F", SI_ORDINARY, si_put_f, 3, OBJNULL}, -{SYS_ "PUT-PROPERTIES", SI_ORDINARY, si_put_properties, -2, OBJNULL}, -{SYS_ "PUT-SYSPROP", SI_ORDINARY, si_put_sysprop, 3, OBJNULL}, -{SYS_ "PUTPROP", SI_ORDINARY, si_putprop, 3, OBJNULL}, -{SYS_ "READTABLE-CASE-SET", SI_ORDINARY, si_readtable_case_set, 2, OBJNULL}, -{SYS_ "REM-F", SI_ORDINARY, si_rem_f, 2, OBJNULL}, -{SYS_ "REM-SYSPROP", SI_ORDINARY, si_rem_sysprop, 2, OBJNULL}, -{SYS_ "REPLACE-ARRAY", SI_ORDINARY, si_replace_array, 2, OBJNULL}, -{SYS_ "ROW-MAJOR-ASET", SI_ORDINARY, si_row_major_aset, 3, OBJNULL}, -{EXT_ "SAFE-EVAL", EXT_ORDINARY, ECL_NAME(si_safe_eval), -3, OBJNULL}, -{SYS_ "SCH-FRS-BASE", SI_ORDINARY, si_sch_frs_base, 2, OBJNULL}, -{SYS_ "SCHAR-SET", SI_ORDINARY, si_char_set, 3, OBJNULL}, -{SYS_ "SERROR", SI_ORDINARY, si_serror, -3, OBJNULL}, -{SYS_ "SHARP-A-READER", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "SHARP-S-READER", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "SELECT-PACKAGE", SI_ORDINARY, si_select_package, 1, OBJNULL}, -{SYS_ "SET-SYMBOL-PLIST", SI_ORDINARY, si_set_symbol_plist, 2, OBJNULL}, +{SYS_ "*IGNORE-PACKAGE-LOCKS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, +{EXT_ "PACKAGE-LOCK" ECL_FUN("si_package_lock", si_package_lock, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "PACKAGE-LOCKED-P" ECL_FUN("si_package_locked_p", si_package_locked_p, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "LOCK-PACKAGE" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "UNLOCK-PACKAGE" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "WITHOUT-PACKAGE-LOCKS" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "WITH-UNLOCKED-PACKAGES" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "PACKAGE-LOCAL-NICKNAMES" ECL_FUN("si_package_local_nicknames", si_package_local_nicknames, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "PACKAGE-LOCALLY-NICKNAMED-BY-LIST" ECL_FUN("si_package_locally_nicknamed_by_list", si_package_locally_nicknamed_by_list, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ADD-PACKAGE-LOCAL-NICKNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "REMOVE-PACKAGE-LOCAL-NICKNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "%ADD-PACKAGE-LOCAL-NICKNAME" ECL_FUN("si_add_package_local_nickname", si_add_package_local_nickname, 3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "%REMOVE-PACKAGE-LOCAL-NICKNAME" ECL_FUN("si_remove_package_local_nickname", si_remove_package_local_nickname, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "PACKAGE-HASH-TABLES" ECL_FUN("si_package_hash_tables", si_package_hash_tables, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PATHNAME-TRANSLATIONS" ECL_FUN("si_pathname_translations", si_pathname_translations, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "POINTER" ECL_FUN("si_pointer", si_pointer, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PRETTY-PRINT-FORMAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PROCESS-DECLARATIONS" ECL_FUN("si_process_declarations", si_process_declarations, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PROCESS-LAMBDA" ECL_FUN("si_process_lambda", si_process_lambda, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PROCESS-LAMBDA-LIST" ECL_FUN("si_process_lambda_list", si_process_lambda_list, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PUT-F" ECL_FUN("si_put_f", si_put_f, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PUT-PROPERTIES" ECL_FUN("si_put_properties", si_put_properties, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PUT-SYSPROP" ECL_FUN("si_put_sysprop", si_put_sysprop, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "PUTPROP" ECL_FUN("si_putprop", si_putprop, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "READTABLE-CASE-SET" ECL_FUN("si_readtable_case_set", si_readtable_case_set, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "REM-F" ECL_FUN("si_rem_f", si_rem_f, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "REM-SYSPROP" ECL_FUN("si_rem_sysprop", si_rem_sysprop, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "REPLACE-ARRAY" ECL_FUN("si_replace_array", si_replace_array, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ROW-MAJOR-ASET" ECL_FUN("si_row_major_aset", si_row_major_aset, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "SAFE-EVAL" ECL_FUN("si_safe_eval", ECL_NAME(si_safe_eval), -3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "SCH-FRS-BASE" ECL_FUN("si_sch_frs_base", si_sch_frs_base, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SCHAR-SET" ECL_FUN("si_char_set", si_char_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SERROR" ECL_FUN("si_serror", si_serror, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SHARP-A-READER" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SHARP-S-READER" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SELECT-PACKAGE" ECL_FUN("si_select_package", si_select_package, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SET-SYMBOL-PLIST" ECL_FUN("si_set_symbol_plist", si_set_symbol_plist, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, #if defined(HAVE_PUTENV) || defined(HAVE_SETENV) -{EXT_ "SETENV", EXT_ORDINARY, si_setenv, 2, OBJNULL}, +{EXT_ "SETENV" ECL_FUN("si_setenv", si_setenv, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, #else -{EXT_ "SETENV", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "SETENV" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, #endif -{SYS_ "SETF-METHOD", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "SETF-NAMEP", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "SIMPLE-PROGRAM-ERROR", SI_ORDINARY, ECL_NAME(si_simple_program_error), -2, OBJNULL}, -{SYS_ "SIGNAL-SIMPLE-ERROR", SI_ORDINARY, si_signal_simple_error, -5, OBJNULL}, -{SYS_ "SIGNAL-TYPE-ERROR", SI_ORDINARY, si_signal_type_error, 2, OBJNULL}, -{SYS_ "SPECIALP", SI_ORDINARY, si_specialp, 1, OBJNULL}, -{SYS_ "STANDARD-READTABLE", SI_ORDINARY, si_standard_readtable, 0, OBJNULL}, -{SYS_ "STEPPER", SI_ORDINARY, OBJNULL, -1, OBJNULL}, -{SYS_ "BASE-STRING-CONCATENATE", SI_ORDINARY, si_base_string_concatenate, -1, OBJNULL}, -{SYS_ "STRING-TO-OBJECT", SI_ORDINARY, ECL_NAME(si_string_to_object), -2, OBJNULL}, -{SYS_ "STRUCTURE-NAME", SI_ORDINARY, si_structure_name, 1, OBJNULL}, -{SYS_ "STRUCTURE-PRINT-FUNCTION", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "STRUCTURE-REF", SI_ORDINARY, si_structure_ref, 3, OBJNULL}, -{SYS_ "STRUCTURE-SET", SI_ORDINARY, si_structure_set, 4, OBJNULL}, -{SYS_ "STRUCTURE-SLOT-DESCRIPTIONS", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "STRUCTURE-SUBTYPE-P", SI_ORDINARY, si_structure_subtype_p, 2, OBJNULL}, -{SYS_ "STRUCTUREP", SI_ORDINARY, si_structurep, 1, OBJNULL}, -{SYS_ "SVSET", SI_ORDINARY, si_svset, 3, OBJNULL}, -{SYS_ "SYMBOL-MACRO", SI_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "SYSTEM", EXT_ORDINARY, si_system, 1, OBJNULL}, -{SYS_ "TERMINAL-INTERRUPT", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "TOP-LEVEL", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNIVERSAL-ERROR-HANDLER", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "STACK-ERROR-HANDLER", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "VALID-FUNCTION-NAME-P", SI_ORDINARY, si_valid_function_name_p, 1, OBJNULL}, -{SYS_ "SEARCH-PRINT-CIRCLE", SI_SPECIAL, si_search_print_circle, 1, OBJNULL}, -{SYS_ "WRITE-OBJECT-WITH-CIRCLE", SI_SPECIAL, si_write_object_with_circle, 3, OBJNULL}, -{SYS_ "WRITE-OBJECT", SI_SPECIAL, si_write_object, 2, OBJNULL}, -{SYS_ "WRITE-UGLY-OBJECT", SI_SPECIAL, si_write_ugly_object, 2, OBJNULL}, - -{SYS_ "COPY-INSTANCE", SI_ORDINARY, si_copy_instance, 1, OBJNULL}, -{SYS_ "GENERIC-FUNCTION-P", SI_ORDINARY, si_generic_function_p, 1, OBJNULL}, -{SYS_ "INSTANCE-REF", SI_ORDINARY, si_instance_ref, 2, OBJNULL}, -{SYS_ "INSTANCE-SET", SI_ORDINARY, si_instance_set, 3, OBJNULL}, -{SYS_ "INSTANCE-OBSOLETE-P", SI_ORDINARY, si_instance_obsolete_p, 1, OBJNULL}, -{SYS_ "INSTANCE-NEW-STAMP", SI_ORDINARY, si_instance_new_stamp, 1, OBJNULL}, -{SYS_ "INSTANCE-GET-STAMP", SI_ORDINARY, si_instance_get_stamp, 1, OBJNULL}, -{SYS_ "INSTANCE-SLOTDS", SI_ORDINARY, si_instance_slotds, 1, OBJNULL}, -{SYS_ "INSTANCE-SIG-SET", SI_ORDINARY, si_instance_sig_set, 1, OBJNULL}, -{SYS_ "INSTANCE-CLASS", SI_ORDINARY, si_instance_class, 1, OBJNULL}, -{SYS_ "INSTANCE-CLASS-SET", SI_ORDINARY, si_instance_class_set, 2, OBJNULL}, -{SYS_ "INSTANCEP", SI_ORDINARY, si_instancep, 1, OBJNULL}, -{SYS_ "SL-BOUNDP", SI_ORDINARY, si_sl_boundp, 1, OBJNULL}, -{SYS_ "SL-MAKUNBOUND", SI_ORDINARY, si_sl_makunbound, 2, OBJNULL}, -{SYS_ "SUBCLASSP", SI_ORDINARY, ECL_NAME(si_subclassp), -3, OBJNULL}, -{SYS_ "OF-CLASS-P", SI_ORDINARY, ECL_NAME(si_of_class_p), -3, OBJNULL}, +{SYS_ "SETF-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SETF-NAMEP" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SIMPLE-PROGRAM-ERROR" ECL_FUN("si_simple_program_error", ECL_NAME(si_simple_program_error), -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SIGNAL-SIMPLE-ERROR" ECL_FUN("si_signal_simple_error", si_signal_simple_error, -5) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SIGNAL-TYPE-ERROR" ECL_FUN("si_signal_type_error", si_signal_type_error, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SPECIALP" ECL_FUN("si_specialp", si_specialp, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STANDARD-READTABLE" ECL_FUN("si_standard_readtable", si_standard_readtable, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STEPPER" ECL_FUN("OBJNULL", OBJNULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BASE-STRING-CONCATENATE" ECL_FUN("si_base_string_concatenate", si_base_string_concatenate, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRING-TO-OBJECT" ECL_FUN("si_string_to_object", ECL_NAME(si_string_to_object), -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-NAME" ECL_FUN("si_structure_name", si_structure_name, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-PRINT-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-REF" ECL_FUN("si_structure_ref", si_structure_ref, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-SET" ECL_FUN("si_structure_set", si_structure_set, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-SLOT-DESCRIPTIONS" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTURE-SUBTYPE-P" ECL_FUN("si_structure_subtype_p", si_structure_subtype_p, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STRUCTUREP" ECL_FUN("si_structurep", si_structurep, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SVSET" ECL_FUN("si_svset", si_svset, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SYMBOL-MACRO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "SYSTEM" ECL_FUN("si_system", si_system, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "TERMINAL-INTERRUPT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "TOP-LEVEL" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNIVERSAL-ERROR-HANDLER" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "STACK-ERROR-HANDLER" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "VALID-FUNCTION-NAME-P" ECL_FUN("si_valid_function_name_p", si_valid_function_name_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SEARCH-PRINT-CIRCLE" ECL_FUN("si_search_print_circle", si_search_print_circle, 1) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "WRITE-OBJECT-WITH-CIRCLE" ECL_FUN("si_write_object_with_circle", si_write_object_with_circle, 3) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "WRITE-OBJECT" ECL_FUN("si_write_object", si_write_object, 2) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "WRITE-UGLY-OBJECT" ECL_FUN("si_write_ugly_object", si_write_ugly_object, 2) ECL_VAR(SI_SPECIAL, OBJNULL)}, + +{SYS_ "COPY-INSTANCE" ECL_FUN("si_copy_instance", si_copy_instance, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GENERIC-FUNCTION-P" ECL_FUN("si_generic_function_p", si_generic_function_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-REF" ECL_FUN("si_instance_ref", si_instance_ref, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-SET" ECL_FUN("si_instance_set", si_instance_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-OBSOLETE-P" ECL_FUN("si_instance_obsolete_p", si_instance_obsolete_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-NEW-STAMP" ECL_FUN("si_instance_new_stamp", si_instance_new_stamp, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-GET-STAMP" ECL_FUN("si_instance_get_stamp", si_instance_get_stamp, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-SLOTDS" ECL_FUN("si_instance_slotds", si_instance_slotds, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-SIG-SET" ECL_FUN("si_instance_sig_set", si_instance_sig_set, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-CLASS" ECL_FUN("si_instance_class", si_instance_class, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCE-CLASS-SET" ECL_FUN("si_instance_class_set", si_instance_class_set, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INSTANCEP" ECL_FUN("si_instancep", si_instancep, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SL-BOUNDP" ECL_FUN("si_sl_boundp", si_sl_boundp, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SL-MAKUNBOUND" ECL_FUN("si_sl_makunbound", si_sl_makunbound, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SUBCLASSP" ECL_FUN("si_subclassp", ECL_NAME(si_subclassp), -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "OF-CLASS-P" ECL_FUN("si_of_class_p", ECL_NAME(si_of_class_p), -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, /*{SYS_ "UNBOUND", SI_ORDINARY, si_unbound, 0, OBJNULL}, */ -{EXT_ "*SOURCE-LOCATION*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "*REGISTER-WITH-PDE-HOOK*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "REGISTER-WITH-PDE", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "*SOURCE-LOCATION*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "*REGISTER-WITH-PDE-HOOK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "REGISTER-WITH-PDE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* #ifdef PROFILE */ -{SYS_ "PROFILE", SI_ORDINARY, IF_PROFILE(si_profile), -3, OBJNULL}, -{SYS_ "CLEAR-PROFILE", SI_ORDINARY, IF_PROFILE(si_clear_profile), -1, OBJNULL}, -{SYS_ "DISPLAY-PROFILE", SI_ORDINARY, IF_PROFILE(si_display_profile), -1, OBJNULL}, +{SYS_ "PROFILE" ECL_FUN("si_profile", IF_PROFILE(si_profile), -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CLEAR-PROFILE" ECL_FUN("si_clear_profile", IF_PROFILE(si_clear_profile), -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DISPLAY-PROFILE" ECL_FUN("si_display_profile", IF_PROFILE(si_display_profile), -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #endif PROFILE */ /* #ifdef ECL_TCP */ -{SYS_ "*PROFILE-ARRAY*", SI_SPECIAL, NULL, -1, OBJNULL}, -{SYS_ "OPEN-CLIENT-STREAM", SI_ORDINARY, IF_TCP(si_open_client_stream), 2, OBJNULL}, -{SYS_ "OPEN-SERVER-STREAM", SI_ORDINARY, IF_TCP(si_open_server_stream), 1, OBJNULL}, -{SYS_ "OPEN-UNIX-SOCKET-STREAM", SI_ORDINARY, IF_TCP(si_open_unix_socket_stream), 1, OBJNULL}, -{SYS_ "LOOKUP-HOST-ENTRY", SI_ORDINARY, IF_TCP(si_lookup_host_entry), 1, OBJNULL}, +{SYS_ "*PROFILE-ARRAY*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, +{SYS_ "OPEN-CLIENT-STREAM" ECL_FUN("si_open_client_stream", IF_TCP(si_open_client_stream), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "OPEN-SERVER-STREAM" ECL_FUN("si_open_server_stream", IF_TCP(si_open_server_stream), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "OPEN-UNIX-SOCKET-STREAM" ECL_FUN("si_open_unix_socket_stream", IF_TCP(si_open_unix_socket_stream), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LOOKUP-HOST-ENTRY" ECL_FUN("si_lookup_host_entry", IF_TCP(si_lookup_host_entry), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #endif ECL_TCP */ -{EXT_ "CATCH-SIGNAL", EXT_ORDINARY, si_catch_signal, -3, OBJNULL}, -{EXT_ "GET-SIGNAL-HANDLER", EXT_ORDINARY, si_get_signal_handler, 1, OBJNULL}, -{EXT_ "SET-SIGNAL-HANDLER", EXT_ORDINARY, si_set_signal_handler, 2, OBJNULL}, +{EXT_ "CATCH-SIGNAL" ECL_FUN("si_catch_signal", si_catch_signal, -3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GET-SIGNAL-HANDLER" ECL_FUN("si_get_signal_handler", si_get_signal_handler, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SET-SIGNAL-HANDLER" ECL_FUN("si_set_signal_handler", si_set_signal_handler, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* KEYWORD PACKAGE */ -{KEY_ "ADJUSTABLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ABORT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ABSOLUTE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ALLOW-OTHER-KEYS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "APPEND", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ARRAY", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "BACK", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "BASE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "BLOCK", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CAPITALIZE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CATCH", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CASE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CIRCLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "COMPILE-TOPLEVEL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "COMMON",KEYWORD,NULL,-1,OBJNULL}, -{KEY_ "CONC-NAME", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CONSTRUCTOR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CONTROL-STRING", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "COPIER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CREATE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DATUM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DEFAULT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DEFAULTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DEVICE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DIRECTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DIRECTORY", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DISPLACED-INDEX-OFFSET", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DISPLACED-TO", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DOCUMENTATION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DOWNCASE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ELEMENT-TYPE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "END", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "END1", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "END2", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EOF", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ERROR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ESCAPE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXECUTE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXPECTED-TYPE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXPORT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXPORT-FROM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXTERNAL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXTERNAL-FORMAT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FIFO", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FILE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FILL-POINTER", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FORMAT-ARGUMENTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FORMAT-CONTROL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FUNCTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "GENSYM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "HASH-FUNCTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "HOST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IF-DOES-NOT-EXIST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IF-ERROR-EXISTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IF-EXISTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IF-INPUT-DOES-NOT-EXIST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IF-OUTPUT-EXISTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IGNORE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IMPORT-FROM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INCLUDE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INHERITED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITIAL-ELEMENT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITIAL-CONTENTS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INITIAL-OFFSET", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INPUT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INTERACTIVE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INSTANCE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INTERN", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INTERNAL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INVERT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "IO", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "JUNK-ALLOWED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "KEY", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LENGTH", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LEVEL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LINES", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LINK", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LIST-ALL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LOCAL",KEYWORD,NULL,-1,OBJNULL}, -{KEY_ "LOCAL-NICKNAMES",KEYWORD,NULL,-1,OBJNULL}, -{KEY_ "LOCKABLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LOAD-TOPLEVEL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "MASK", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "MISER-WIDTH", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "NAME", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "NAMED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "NEW-VERSION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "NEWEST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "NICKNAMES", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OBJECT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OFFSET", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OPERATION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OPERANDS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OUTPUT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "OVERWRITE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PACKAGE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PATHNAME", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PPRINT-DISPATCH", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PREDICATE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRESERVE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRETTY", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRINT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRINT-FUNCTION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRINT-OBJECT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PROBE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PROCESS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RADIX", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "READABLY", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "REHASH-SIZE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "REHASH-THRESHOLD", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RELATIVE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RENAME", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RENAME-AND-DELETE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "REPORT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RIGHT-MARGIN", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SET-DEFAULT-PATHNAME", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SEARCH-LIST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SHADOW", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SHADOWING-IMPORT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SIZE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SPECIAL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "START", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "START1", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "START2", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "STREAM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SUPERSEDE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "TAG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "TEST", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "TEST-NOT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "TRUNCATE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "TYPE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSPECIFIC", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNMASK", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UP", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UPCASE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "USE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CSTREAM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "VERBOSE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "VERSION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WILD", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WILD-INFERIORS", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WAIT", KEYWORD, NULL, -1, OBJNULL}, - -{EXT_ "BYTE8", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "BYTE16", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "BYTE32", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "BYTE64", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "COMPILER-LET", EXT_FORM, NULL, -1, OBJNULL}, -{EXT_ "INTEGER8", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INTEGER16", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INTEGER32", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INTEGER64", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "LAMBDA-BLOCK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "QUIT", EXT_ORDINARY, si_quit, -1, OBJNULL}, -{EXT_ "GET-METHOD", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INSTANCE", EXT_ORDINARY, NULL, -1, OBJNULL}, - -{SYS_ "ALLOCATE-FOREIGN-DATA", SI_ORDINARY, si_allocate_foreign_data, 2, OBJNULL}, -{SYS_ "FIND-FOREIGN-SYMBOL", SI_ORDINARY, si_find_foreign_symbol, 4, OBJNULL}, -{SYS_ "FOREIGN-DATA", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "FOREIGN-DATA-ADDRESS", SI_ORDINARY, si_foreign_data_address, 1, OBJNULL}, -{SYS_ "FOREIGN-DATA-EQUAL", SI_ORDINARY, si_foreign_data_equal, 2, OBJNULL}, -{SYS_ "FOREIGN-DATA-P", SI_ORDINARY, si_foreign_data_p, 1, OBJNULL}, -{SYS_ "FOREIGN-DATA-POINTER", SI_ORDINARY, si_foreign_data_pointer, 4, OBJNULL}, -{SYS_ "FOREIGN-DATA-RECAST", SI_ORDINARY, si_foreign_data_recast, 3, OBJNULL}, -{SYS_ "FOREIGN-DATA-REF", SI_ORDINARY, si_foreign_data_ref, 4, OBJNULL}, -{SYS_ "FOREIGN-DATA-REF-ELT", SI_ORDINARY, si_foreign_data_ref_elt, 3, OBJNULL}, -{SYS_ "FOREIGN-DATA-SET", SI_ORDINARY, si_foreign_data_set, 3, OBJNULL}, -{SYS_ "FOREIGN-DATA-SET-ELT", SI_ORDINARY, si_foreign_data_set_elt, 4, OBJNULL}, -{SYS_ "FOREIGN-DATA-TAG", SI_ORDINARY, si_foreign_data_tag, 1, OBJNULL}, -{SYS_ "FOREIGN-ELT-TYPE-P", SI_ORDINARY, si_foreign_elt_type_p, 1, OBJNULL}, -{SYS_ "FREE-FOREIGN-DATA", SI_ORDINARY, si_free_foreign_data, 1, OBJNULL}, -{SYS_ "MAKE-FOREIGN-DATA-FROM-ARRAY", SI_ORDINARY, si_make_foreign_data_from_array, 1, OBJNULL}, -{SYS_ "LOAD-FOREIGN-MODULE", SI_ORDINARY, si_load_foreign_module, 1, OBJNULL}, -{SYS_ "UNLOAD-FOREIGN-MODULE", SI_ORDINARY, si_unload_foreign_module, 1, OBJNULL}, -{SYS_ "NULL-POINTER-P", SI_ORDINARY, si_null_pointer_p, 1, OBJNULL}, -{SYS_ "SIZE-OF-FOREIGN-ELT-TYPE", SI_ORDINARY, si_size_of_foreign_elt_type, 1, OBJNULL}, -{SYS_ "ALIGNMENT-OF-FOREIGN-ELT-TYPE", SI_ORDINARY, si_alignment_of_foreign_elt_type, 1, OBJNULL}, -{KEY_ "BYTE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CHAR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CSFLOAT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CDFLOAT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CLFLOAT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CSTRING", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "DOUBLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FIXNUM", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FLOAT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INT8-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INT16-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INT32-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "INT64-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LONG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LONG-DOUBLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LONG-LONG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "POINTER-SELF", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "POINTER-VOID", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SHORT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "STRUCT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNION", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "VOID", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UINT8-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UINT16-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UINT32-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UINT64-T", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-BYTE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-CHAR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-INT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-LONG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-LONG-LONG", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNSIGNED-SHORT", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "ADJUSTABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ABORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ABSOLUTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ALLOW-OTHER-KEYS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "APPEND" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "BACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "BASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "BLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CAPITALIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CATCH" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CIRCLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "COMPILE-TOPLEVEL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "COMMON" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CONC-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CONSTRUCTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CONTROL-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "COPIER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CREATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DATUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DEFAULT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DEFAULTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DEVICE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DIRECTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DIRECTORY" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DISPLACED-INDEX-OFFSET" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DISPLACED-TO" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DOCUMENTATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DOWNCASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ELEMENT-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "END" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "END1" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "END2" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EOF" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ESCAPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXECUTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXPECTED-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXPORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXPORT-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXTERNAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXTERNAL-FORMAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FIFO" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FILL-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FORMAT-ARGUMENTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FORMAT-CONTROL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "GENSYM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "HASH-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "HOST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IF-DOES-NOT-EXIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IF-ERROR-EXISTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IF-EXISTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IF-INPUT-DOES-NOT-EXIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IF-OUTPUT-EXISTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IGNORE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IMPORT-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INCLUDE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INHERITED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITIAL-ELEMENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITIAL-CONTENTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INITIAL-OFFSET" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INTERACTIVE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INTERN" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INTERNAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INVERT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "IO" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "JUNK-ALLOWED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "KEY" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LENGTH" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LEVEL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LINES" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LINK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LIST-ALL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LOCAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LOCAL-NICKNAMES" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LOCKABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LOAD-TOPLEVEL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "MASK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "MISER-WIDTH" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "NAMED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "NEW-VERSION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "NEWEST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "NICKNAMES" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OFFSET" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OPERATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OPERANDS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OUTPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "OVERWRITE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PACKAGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PATHNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PPRINT-DISPATCH" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PREDICATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRESERVE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRETTY" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRINT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRINT-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRINT-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PROBE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PROCESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RADIX" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "READABLY" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "REHASH-SIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "REHASH-THRESHOLD" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RELATIVE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RENAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RENAME-AND-DELETE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "REPORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RIGHT-MARGIN" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SET-DEFAULT-PATHNAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SEARCH-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SHADOW" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SHADOWING-IMPORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SPECIAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "START" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "START1" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "START2" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SUPERSEDE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "TAG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "TEST" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "TEST-NOT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "TRUNCATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSPECIFIC" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNMASK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UP" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UPCASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "USE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CSTREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "VERBOSE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "VERSION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WILD" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WILD-INFERIORS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WAIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, + +{EXT_ "BYTE8" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "BYTE16" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "BYTE32" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "BYTE64" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "COMPILER-LET" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_FORM, OBJNULL)}, +{EXT_ "INTEGER8" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INTEGER16" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INTEGER32" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INTEGER64" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "LAMBDA-BLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "QUIT" ECL_FUN("si_quit", si_quit, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GET-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INSTANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{SYS_ "ALLOCATE-FOREIGN-DATA" ECL_FUN("si_allocate_foreign_data", si_allocate_foreign_data, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FIND-FOREIGN-SYMBOL" ECL_FUN("si_find_foreign_symbol", si_find_foreign_symbol, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-ADDRESS" ECL_FUN("si_foreign_data_address", si_foreign_data_address, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-EQUAL" ECL_FUN("si_foreign_data_equal", si_foreign_data_equal, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-P" ECL_FUN("si_foreign_data_p", si_foreign_data_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-POINTER" ECL_FUN("si_foreign_data_pointer", si_foreign_data_pointer, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-RECAST" ECL_FUN("si_foreign_data_recast", si_foreign_data_recast, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-REF" ECL_FUN("si_foreign_data_ref", si_foreign_data_ref, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-REF-ELT" ECL_FUN("si_foreign_data_ref_elt", si_foreign_data_ref_elt, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-SET" ECL_FUN("si_foreign_data_set", si_foreign_data_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-SET-ELT" ECL_FUN("si_foreign_data_set_elt", si_foreign_data_set_elt, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-DATA-TAG" ECL_FUN("si_foreign_data_tag", si_foreign_data_tag, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FOREIGN-ELT-TYPE-P" ECL_FUN("si_foreign_elt_type_p", si_foreign_elt_type_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FREE-FOREIGN-DATA" ECL_FUN("si_free_foreign_data", si_free_foreign_data, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-FOREIGN-DATA-FROM-ARRAY" ECL_FUN("si_make_foreign_data_from_array", si_make_foreign_data_from_array, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LOAD-FOREIGN-MODULE" ECL_FUN("si_load_foreign_module", si_load_foreign_module, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNLOAD-FOREIGN-MODULE" ECL_FUN("si_unload_foreign_module", si_unload_foreign_module, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "NULL-POINTER-P" ECL_FUN("si_null_pointer_p", si_null_pointer_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SIZE-OF-FOREIGN-ELT-TYPE" ECL_FUN("si_size_of_foreign_elt_type", si_size_of_foreign_elt_type, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ALIGNMENT-OF-FOREIGN-ELT-TYPE" ECL_FUN("si_alignment_of_foreign_elt_type", si_alignment_of_foreign_elt_type, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{KEY_ "BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CSFLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CDFLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CLFLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "DOUBLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INT8-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INT16-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INT32-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "INT64-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LONG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LONG-DOUBLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LONG-LONG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "POINTER-SELF" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "POINTER-VOID" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SHORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "STRUCT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNION" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "VOID" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UINT8-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UINT16-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UINT32-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UINT64-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-INT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-LONG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-LONG-LONG" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNSIGNED-SHORT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, #ifdef GBC_BOEHM -{EXT_ "GC", EXT_ORDINARY, si_gc, -1, OBJNULL}, -{SYS_ "GC-DUMP", SI_ORDINARY, si_gc_dump, 0, OBJNULL}, -{SYS_ "GC-STATS", SI_ORDINARY, si_gc_stats, 1, OBJNULL}, +{EXT_ "GC" ECL_FUN("si_gc", si_gc, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "GC-DUMP" ECL_FUN("si_gc_dump", si_gc_dump, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GC-STATS" ECL_FUN("si_gc_stats", si_gc_stats, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, #else -{EXT_ "GC", EXT_ORDINARY, si_gc, -2, OBJNULL}, -{SYS_ "ALLOCATE", SI_ORDINARY, si_allocate, -3, OBJNULL}, -{SYS_ "ALLOCATED-PAGES", SI_ORDINARY, si_allocated_pages, -2, OBJNULL}, -{SYS_ "MAXIMUM-ALLOCATABLE-PAGES", SI_ORDINARY, si_maximum_allocatable_pages, -2, OBJNULL}, -{SYS_ "ALLOCATE-CONTIGUOUS-PAGES", SI_ORDINARY, si_allocate_contiguous_pages, -2, OBJNULL}, -{SYS_ "ALLOCATED-CONTIGUOUS-PAGES", SI_ORDINARY, si_allocated_contiguous_pages, -1, OBJNULL}, -{SYS_ "MAXIMUM-CONTIGUOUS-PAGES", SI_ORDINARY, si_maximum_contiguous_pages, -1, OBJNULL}, -{SYS_ "GC-TIME", SI_ORDINARY, si_gc_time, -1, OBJNULL}, -{SYS_ "GET-HOLE-SIZE", SI_ORDINARY, si_get_hole_size, -1, OBJNULL}, -{SYS_ "SET-HOLE-SIZE", SI_ORDINARY, si_set_hole_size, -2, OBJNULL}, -{SYS_ "IGNORE-MAXIMUM-PAGES", SI_ORDINARY, si_ignore_maximum_pages, -1, OBJNULL}, -{SYS_ "ROOM-REPORT", SI_ORDINARY, si_room_report, -1, OBJNULL}, -{SYS_ "RESET-GC-COUNT", SI_ORDINARY, si_reset_gc_count, -1, OBJNULL}, +{EXT_ "GC" ECL_FUN("si_gc", si_gc, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "ALLOCATE" ECL_FUN("si_allocate", si_allocate, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ALLOCATED-PAGES" ECL_FUN("si_allocated_pages", si_allocated_pages, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAXIMUM-ALLOCATABLE-PAGES" ECL_FUN("si_maximum_allocatable_pages", si_maximum_allocatable_pages, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ALLOCATE-CONTIGUOUS-PAGES" ECL_FUN("si_allocate_contiguous_pages", si_allocate_contiguous_pages, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ALLOCATED-CONTIGUOUS-PAGES" ECL_FUN("si_allocated_contiguous_pages", si_allocated_contiguous_pages, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "MAXIMUM-CONTIGUOUS-PAGES" ECL_FUN("si_maximum_contiguous_pages", si_maximum_contiguous_pages, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GC-TIME" ECL_FUN("si_gc_time", si_gc_time, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "GET-HOLE-SIZE" ECL_FUN("si_get_hole_size", si_get_hole_size, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SET-HOLE-SIZE" ECL_FUN("si_set_hole_size", si_set_hole_size, -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "IGNORE-MAXIMUM-PAGES" ECL_FUN("si_ignore_maximum_pages", si_ignore_maximum_pages, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ROOM-REPORT" ECL_FUN("si_room_report", si_room_report, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "RESET-GC-COUNT" ECL_FUN("si_reset_gc_count", si_reset_gc_count, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, #endif /* !GBC_BOEHM */ -{EXT_ "TIMEOUT", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "TIMEOUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* #ifdef ECL_THREADS */ -{MP_ "PROCESS", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "LOCK", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "CONDITION-VARIABLE", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "*CURRENT-PROCESS*", MP_SPECIAL, NULL, -1, OBJNULL}, -{MP_ "ALL-PROCESSES", MP_ORDINARY, IF_MP(mp_all_processes), 0, OBJNULL}, -{MP_ "EXIT-PROCESS", MP_ORDINARY, IF_MP(mp_exit_process), 0, OBJNULL}, -{MP_ "MAKE-PROCESS", MP_ORDINARY, IF_MP(mp_make_process), -1, OBJNULL}, -{MP_ "PROCESS-ACTIVE-P", MP_ORDINARY, IF_MP(mp_process_active_p), 1, OBJNULL}, -{MP_ "PROCESS-ENABLE", MP_ORDINARY, IF_MP(mp_process_enable), 1, OBJNULL}, -{MP_ "PROCESS-YIELD", MP_ORDINARY, IF_MP(mp_process_yield), 0, OBJNULL}, -{MP_ "PROCESS-KILL", MP_ORDINARY, IF_MP(mp_process_kill), 1, OBJNULL}, -{MP_ "PROCESS-NAME", MP_ORDINARY, IF_MP(mp_process_name), 1, OBJNULL}, -{MP_ "PROCESS-PRESET", MP_ORDINARY, IF_MP(mp_process_preset), -3, OBJNULL}, -{MP_ "PROCESS-RUN-FUNCTION", MP_ORDINARY, IF_MP(mp_process_run_function), -3, OBJNULL}, -{MP_ "PROCESS-WHOSTATE", MP_ORDINARY, IF_MP(mp_process_whostate), 1, OBJNULL}, -{MP_ "PROCESS-JOIN", MP_ORDINARY, IF_MP(mp_process_join), 1, OBJNULL}, -{MP_ "MAKE-LOCK", MP_ORDINARY, IF_MP(mp_make_lock), -1, OBJNULL}, -{KEY_ "RECURSIVE", KEYWORD, NULL, -1, OBJNULL}, -{MP_ "RECURSIVE-LOCK-P", MP_ORDINARY, IF_MP(mp_recursive_lock_p), 1, OBJNULL}, -{MP_ "HOLDING-LOCK-P", MP_ORDINARY, IF_MP(mp_holding_lock_p), 1, OBJNULL}, -{MP_ "LOCK-NAME", MP_ORDINARY, IF_MP(mp_lock_name), 1, OBJNULL}, -{MP_ "LOCK-OWNER", MP_ORDINARY, IF_MP(mp_lock_owner), 1, OBJNULL}, -{MP_ "LOCK-COUNT", MP_ORDINARY, IF_MP(mp_lock_count), 1, OBJNULL}, -{MP_ "GET-LOCK", MP_ORDINARY, IF_MP(mp_get_lock), -2, OBJNULL}, -{MP_ "GIVEUP-LOCK", MP_ORDINARY, IF_MP(mp_giveup_lock), 1, OBJNULL}, -{MP_ "MAKE-CONDITION-VARIABLE", MP_ORDINARY, IF_MP(mp_make_condition_variable), 0, OBJNULL}, -{MP_ "CONDITION-VARIABLE-WAIT", MP_ORDINARY, IF_MP(mp_condition_variable_wait), 2, OBJNULL}, -{MP_ "CONDITION-VARIABLE-TIMEDWAIT", MP_ORDINARY, IF_MP(mp_condition_variable_timedwait), 3, OBJNULL}, -{MP_ "CONDITION-VARIABLE-SIGNAL", MP_ORDINARY, IF_MP(mp_condition_variable_signal), 1, OBJNULL}, -{MP_ "CONDITION-VARIABLE-BROADCAST", MP_ORDINARY, IF_MP(mp_condition_variable_broadcast), 1, OBJNULL}, -{KEY_ "INITIAL-BINDINGS", KEYWORD, NULL, -1, OBJNULL}, -{MP_ "INTERRUPT-PROCESS", MP_ORDINARY, IF_MP(mp_interrupt_process), 2, OBJNULL}, -{MP_ "+LOAD-COMPILE-LOCK+", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "WITH-LOCK", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "WITH-RWLOCK", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "BLOCK-SIGNALS", MP_ORDINARY, IF_MP(mp_block_signals), 0, OBJNULL}, -{MP_ "RESTORE-SIGNALS", MP_ORDINARY, IF_MP(mp_restore_signals), 1, OBJNULL}, -{MP_ "PROCESS-SUSPEND", MP_ORDINARY, IF_MP(mp_process_suspend), 1, OBJNULL}, -{MP_ "PROCESS-RESUME", MP_ORDINARY, IF_MP(mp_process_resume), 1, OBJNULL}, -{MP_ "SUSPEND-LOOP", MP_ORDINARY, IF_MP(mp_suspend_loop), 0, OBJNULL}, -{MP_ "BREAK-SUSPEND-LOOP", MP_ORDINARY, IF_MP(mp_break_suspend_loop), 0, OBJNULL}, -{MP_ "MAKE-RWLOCK", MP_ORDINARY, IF_MP(mp_make_rwlock), -1, OBJNULL}, -{MP_ "RWLOCK", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "RWLOCK-NAME", MP_ORDINARY, IF_MP(mp_rwlock_name), 1, OBJNULL}, -{MP_ "GET-RWLOCK-READ", MP_ORDINARY, IF_MP(mp_get_rwlock_read), -2, OBJNULL}, -{MP_ "GET-RWLOCK-WRITE", MP_ORDINARY, IF_MP(mp_get_rwlock_write), -2, OBJNULL}, -{MP_ "GIVEUP-RWLOCK-READ", MP_ORDINARY, IF_MP(mp_giveup_rwlock_read), 1, OBJNULL}, -{MP_ "GIVEUP-RWLOCK-WRITE", MP_ORDINARY, IF_MP(mp_giveup_rwlock_write), 1, OBJNULL}, -{MP_ "GLOBAL-LOCK", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "ERROR-LOCK", MP_ORDINARY, NULL, -1, OBJNULL}, - -{MP_ "SEMAPHORE", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "MAKE-SEMAPHORE", MP_ORDINARY, IF_MP(mp_make_semaphore), -1, OBJNULL}, -{MP_ "SIGNAL-SEMAPHORE", MP_ORDINARY, IF_MP(mp_signal_semaphore), -2, OBJNULL}, -{MP_ "WAIT-ON-SEMAPHORE", MP_ORDINARY, IF_MP(mp_wait_on_semaphore), 1, OBJNULL}, -{MP_ "TRY-GET-SEMAPHORE", MP_ORDINARY, IF_MP(mp_try_get_semaphore), 1, OBJNULL}, -{MP_ "SEMAPHORE-COUNT", MP_ORDINARY, IF_MP(mp_semaphore_count), 1, OBJNULL}, -{MP_ "SEMAPHORE-NAME", MP_ORDINARY, IF_MP(mp_semaphore_name), 1, OBJNULL}, -{MP_ "SEMAPHORE-WAIT-COUNT", MP_ORDINARY, IF_MP(mp_semaphore_wait_count), 1, OBJNULL}, -{KEY_ "COUNT", KEYWORD, NULL, -1, OBJNULL}, - -{MP_ "BARRIER", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "MAKE-BARRIER", MP_ORDINARY, IF_MP(mp_make_barrier), -2, OBJNULL}, -{MP_ "BARRIER-UNBLOCK", MP_ORDINARY, IF_MP(mp_barrier_unblock), -2, OBJNULL}, -{MP_ "BARRIER-WAIT", MP_ORDINARY, IF_MP(mp_barrier_wait), 1, OBJNULL}, -{MP_ "BARRIER-COUNT", MP_ORDINARY, IF_MP(mp_barrier_count), 1, OBJNULL}, -{MP_ "BARRIER-NAME", MP_ORDINARY, IF_MP(mp_barrier_name), 1, OBJNULL}, -{MP_ "BARRIER-ARRIVERS-COUNT", MP_ORDINARY, IF_MP(mp_barrier_arrivers_count), 1, OBJNULL}, -{KEY_ "DISABLE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RESET-COUNT", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "KILL-WAITING", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNBLOCKED", KEYWORD, NULL, -1, OBJNULL}, - -{MP_ "MAILBOX", MP_ORDINARY, NULL, -1, OBJNULL}, -{MP_ "MAKE-MAILBOX", MP_ORDINARY, IF_MP(mp_make_mailbox), -1, OBJNULL}, -{MP_ "MAILBOX-NAME", MP_ORDINARY, IF_MP(mp_mailbox_name), 1, OBJNULL}, -{MP_ "MAILBOX-COUNT", MP_ORDINARY, IF_MP(mp_mailbox_count), 1, OBJNULL}, -{MP_ "MAILBOX-EMPTY-P", MP_ORDINARY, IF_MP(mp_mailbox_empty_p), 1, OBJNULL}, -{MP_ "MAILBOX-READ", MP_ORDINARY, IF_MP(mp_mailbox_read), 1, OBJNULL}, -{MP_ "MAILBOX-TRY-READ", MP_ORDINARY, IF_MP(mp_mailbox_try_read), 1, OBJNULL}, -{MP_ "MAILBOX-SEND", MP_ORDINARY, IF_MP(mp_mailbox_send), 2, OBJNULL}, -{MP_ "MAILBOX-TRY-SEND", MP_ORDINARY, IF_MP(mp_mailbox_try_send), 2, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-CAR", MP_ORDINARY, IF_MP(mp_compare_and_swap_car), 3, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-CDR", MP_ORDINARY, IF_MP(mp_compare_and_swap_cdr), 3, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-SYMBOL-PLIST", MP_ORDINARY, IF_MP(mp_compare_and_swap_symbol_plist), 3, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-SYMBOL-VALUE", MP_ORDINARY, IF_MP(mp_compare_and_swap_symbol_value), 3, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-SVREF", MP_ORDINARY, IF_MP(mp_compare_and_swap_svref), 4, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-INSTANCE", MP_ORDINARY, IF_MP(mp_compare_and_swap_instance), 4, OBJNULL}, -{MP_ "COMPARE-AND-SWAP-STRUCTURE", MP_ORDINARY, IF_MP(mp_compare_and_swap_structure), 5, OBJNULL}, -{MP_ "ATOMIC-INCF-CAR", MP_ORDINARY, IF_MP(mp_atomic_incf_car), 2, OBJNULL}, -{MP_ "ATOMIC-INCF-CDR", MP_ORDINARY, IF_MP(mp_atomic_incf_cdr), 2, OBJNULL}, -{MP_ "ATOMIC-INCF-SYMBOL-VALUE", MP_ORDINARY, IF_MP(mp_atomic_incf_symbol_value), 2, OBJNULL}, -{MP_ "ATOMIC-INCF-SVREF", MP_ORDINARY, IF_MP(mp_atomic_incf_svref), 3, OBJNULL}, -{MP_ "ATOMIC-INCF-INSTANCE", MP_ORDINARY, IF_MP(mp_atomic_incf_instance), 3, OBJNULL}, -{MP_ "DEFINE-CAS-EXPANDER", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "DEFCAS", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "REMCAS", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "GET-CAS-EXPANSION", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "COMPARE-AND-SWAP", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "ATOMIC-UPDATE", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "ATOMIC-PUSH", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "ATOMIC-POP", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "ATOMIC-INCF", MP_CONSTANT, NULL, -1, OBJNULL}, -{MP_ "ATOMIC-DECF", MP_CONSTANT, NULL, -1, OBJNULL}, +{MP_ "PROCESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "LOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "CONDITION-VARIABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "*CURRENT-PROCESS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_SPECIAL, OBJNULL)}, +{MP_ "ALL-PROCESSES" ECL_FUN("mp_all_processes", IF_MP(mp_all_processes), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "EXIT-PROCESS" ECL_FUN("mp_exit_process", IF_MP(mp_exit_process), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-PROCESS" ECL_FUN("mp_make_process", IF_MP(mp_make_process), -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-ACTIVE-P" ECL_FUN("mp_process_active_p", IF_MP(mp_process_active_p), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-ENABLE" ECL_FUN("mp_process_enable", IF_MP(mp_process_enable), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-YIELD" ECL_FUN("mp_process_yield", IF_MP(mp_process_yield), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-KILL" ECL_FUN("mp_process_kill", IF_MP(mp_process_kill), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-NAME" ECL_FUN("mp_process_name", IF_MP(mp_process_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-PRESET" ECL_FUN("mp_process_preset", IF_MP(mp_process_preset), -3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-RUN-FUNCTION" ECL_FUN("mp_process_run_function", IF_MP(mp_process_run_function), -3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-WHOSTATE" ECL_FUN("mp_process_whostate", IF_MP(mp_process_whostate), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-JOIN" ECL_FUN("mp_process_join", IF_MP(mp_process_join), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-LOCK" ECL_FUN("mp_make_lock", IF_MP(mp_make_lock), -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{KEY_ "RECURSIVE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{MP_ "RECURSIVE-LOCK-P" ECL_FUN("mp_recursive_lock_p", IF_MP(mp_recursive_lock_p), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "HOLDING-LOCK-P" ECL_FUN("mp_holding_lock_p", IF_MP(mp_holding_lock_p), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "LOCK-NAME" ECL_FUN("mp_lock_name", IF_MP(mp_lock_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "LOCK-OWNER" ECL_FUN("mp_lock_owner", IF_MP(mp_lock_owner), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "LOCK-COUNT" ECL_FUN("mp_lock_count", IF_MP(mp_lock_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GET-LOCK" ECL_FUN("mp_get_lock", IF_MP(mp_get_lock), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GIVEUP-LOCK" ECL_FUN("mp_giveup_lock", IF_MP(mp_giveup_lock), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-CONDITION-VARIABLE" ECL_FUN("mp_make_condition_variable", IF_MP(mp_make_condition_variable), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "CONDITION-VARIABLE-WAIT" ECL_FUN("mp_condition_variable_wait", IF_MP(mp_condition_variable_wait), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "CONDITION-VARIABLE-TIMEDWAIT" ECL_FUN("mp_condition_variable_timedwait", IF_MP(mp_condition_variable_timedwait), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "CONDITION-VARIABLE-SIGNAL" ECL_FUN("mp_condition_variable_signal", IF_MP(mp_condition_variable_signal), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "CONDITION-VARIABLE-BROADCAST" ECL_FUN("mp_condition_variable_broadcast", IF_MP(mp_condition_variable_broadcast), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{KEY_ "INITIAL-BINDINGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{MP_ "INTERRUPT-PROCESS" ECL_FUN("mp_interrupt_process", IF_MP(mp_interrupt_process), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "+LOAD-COMPILE-LOCK+" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "WITH-LOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "WITH-RWLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "BLOCK-SIGNALS" ECL_FUN("mp_block_signals", IF_MP(mp_block_signals), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "RESTORE-SIGNALS" ECL_FUN("mp_restore_signals", IF_MP(mp_restore_signals), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-SUSPEND" ECL_FUN("mp_process_suspend", IF_MP(mp_process_suspend), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "PROCESS-RESUME" ECL_FUN("mp_process_resume", IF_MP(mp_process_resume), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "SUSPEND-LOOP" ECL_FUN("mp_suspend_loop", IF_MP(mp_suspend_loop), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BREAK-SUSPEND-LOOP" ECL_FUN("mp_break_suspend_loop", IF_MP(mp_break_suspend_loop), 0) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-RWLOCK" ECL_FUN("mp_make_rwlock", IF_MP(mp_make_rwlock), -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "RWLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "RWLOCK-NAME" ECL_FUN("mp_rwlock_name", IF_MP(mp_rwlock_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GET-RWLOCK-READ" ECL_FUN("mp_get_rwlock_read", IF_MP(mp_get_rwlock_read), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GET-RWLOCK-WRITE" ECL_FUN("mp_get_rwlock_write", IF_MP(mp_get_rwlock_write), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GIVEUP-RWLOCK-READ" ECL_FUN("mp_giveup_rwlock_read", IF_MP(mp_giveup_rwlock_read), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GIVEUP-RWLOCK-WRITE" ECL_FUN("mp_giveup_rwlock_write", IF_MP(mp_giveup_rwlock_write), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "GLOBAL-LOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ERROR-LOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, + +{MP_ "SEMAPHORE" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-SEMAPHORE" ECL_FUN("mp_make_semaphore", IF_MP(mp_make_semaphore), -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "SIGNAL-SEMAPHORE" ECL_FUN("mp_signal_semaphore", IF_MP(mp_signal_semaphore), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "WAIT-ON-SEMAPHORE" ECL_FUN("mp_wait_on_semaphore", IF_MP(mp_wait_on_semaphore), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "TRY-GET-SEMAPHORE" ECL_FUN("mp_try_get_semaphore", IF_MP(mp_try_get_semaphore), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "SEMAPHORE-COUNT" ECL_FUN("mp_semaphore_count", IF_MP(mp_semaphore_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "SEMAPHORE-NAME" ECL_FUN("mp_semaphore_name", IF_MP(mp_semaphore_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "SEMAPHORE-WAIT-COUNT" ECL_FUN("mp_semaphore_wait_count", IF_MP(mp_semaphore_wait_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{KEY_ "COUNT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, + +{MP_ "BARRIER" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-BARRIER" ECL_FUN("mp_make_barrier", IF_MP(mp_make_barrier), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BARRIER-UNBLOCK" ECL_FUN("mp_barrier_unblock", IF_MP(mp_barrier_unblock), -2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BARRIER-WAIT" ECL_FUN("mp_barrier_wait", IF_MP(mp_barrier_wait), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BARRIER-COUNT" ECL_FUN("mp_barrier_count", IF_MP(mp_barrier_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BARRIER-NAME" ECL_FUN("mp_barrier_name", IF_MP(mp_barrier_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "BARRIER-ARRIVERS-COUNT" ECL_FUN("mp_barrier_arrivers_count", IF_MP(mp_barrier_arrivers_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{KEY_ "DISABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RESET-COUNT" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "KILL-WAITING" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNBLOCKED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, + +{MP_ "MAILBOX" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAKE-MAILBOX" ECL_FUN("mp_make_mailbox", IF_MP(mp_make_mailbox), -1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-NAME" ECL_FUN("mp_mailbox_name", IF_MP(mp_mailbox_name), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-COUNT" ECL_FUN("mp_mailbox_count", IF_MP(mp_mailbox_count), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-EMPTY-P" ECL_FUN("mp_mailbox_empty_p", IF_MP(mp_mailbox_empty_p), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-READ" ECL_FUN("mp_mailbox_read", IF_MP(mp_mailbox_read), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-TRY-READ" ECL_FUN("mp_mailbox_try_read", IF_MP(mp_mailbox_try_read), 1) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-SEND" ECL_FUN("mp_mailbox_send", IF_MP(mp_mailbox_send), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "MAILBOX-TRY-SEND" ECL_FUN("mp_mailbox_try_send", IF_MP(mp_mailbox_try_send), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-CAR" ECL_FUN("mp_compare_and_swap_car", IF_MP(mp_compare_and_swap_car), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-CDR" ECL_FUN("mp_compare_and_swap_cdr", IF_MP(mp_compare_and_swap_cdr), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-SYMBOL-PLIST" ECL_FUN("mp_compare_and_swap_symbol_plist", IF_MP(mp_compare_and_swap_symbol_plist), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-SYMBOL-VALUE" ECL_FUN("mp_compare_and_swap_symbol_value", IF_MP(mp_compare_and_swap_symbol_value), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-SVREF" ECL_FUN("mp_compare_and_swap_svref", IF_MP(mp_compare_and_swap_svref), 4) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-INSTANCE" ECL_FUN("mp_compare_and_swap_instance", IF_MP(mp_compare_and_swap_instance), 4) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP-STRUCTURE" ECL_FUN("mp_compare_and_swap_structure", IF_MP(mp_compare_and_swap_structure), 5) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ATOMIC-INCF-CAR" ECL_FUN("mp_atomic_incf_car", IF_MP(mp_atomic_incf_car), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ATOMIC-INCF-CDR" ECL_FUN("mp_atomic_incf_cdr", IF_MP(mp_atomic_incf_cdr), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ATOMIC-INCF-SYMBOL-VALUE" ECL_FUN("mp_atomic_incf_symbol_value", IF_MP(mp_atomic_incf_symbol_value), 2) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ATOMIC-INCF-SVREF" ECL_FUN("mp_atomic_incf_svref", IF_MP(mp_atomic_incf_svref), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "ATOMIC-INCF-INSTANCE" ECL_FUN("mp_atomic_incf_instance", IF_MP(mp_atomic_incf_instance), 3) ECL_VAR(MP_ORDINARY, OBJNULL)}, +{MP_ "DEFINE-CAS-EXPANDER" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "DEFCAS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "REMCAS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "GET-CAS-EXPANSION" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "COMPARE-AND-SWAP" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "ATOMIC-UPDATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "ATOMIC-PUSH" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "ATOMIC-POP" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "ATOMIC-INCF" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{MP_ "ATOMIC-DECF" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, /* #endif defined(ECL_THREADS) */ -{SYS_ "WHILE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNTIL", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "QUASIQUOTE", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "*EXIT-HOOKS*", SI_SPECIAL, NULL, -1, ECL_NIL}, - -{CLOS_ ".COMBINED-METHOD-ARGS.", CLOS_SPECIAL, NULL, -1, ECL_NIL}, -{CLOS_ "+BUILTIN-CLASSES+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "*NEXT-METHODS*", CLOS_SPECIAL, NULL, -1, ECL_NIL}, -{CLOS_ "*OPTIMIZE-SLOT-ACCESS*", CLOS_SPECIAL, NULL, -1, ECL_T}, -{CLOS_ "+THE-T-CLASS+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "+THE-CLASS+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "+THE-STD-CLASS+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "+THE-STANDARD-CLASS+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "+THE-FUNCALLABLE-STANDARD-CLASS+", CLOS_ORDINARY, NULL, -1, ECL_NIL}, -{CLOS_ "ACCESSOR-METHOD-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "ADD-DEPENDENT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "ADD-DIRECT-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "ADD-DIRECT-SUBCLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-DEFAULT-INITARGS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-DIRECT-DEFAULT-INITARGS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-DIRECT-SLOTS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-DIRECT-SUBCLASSES", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-DIRECT-SUPERCLASSES", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-FINALIZED-P", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-PRECEDENCE-LIST", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-PROTOTYPE", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "CLASS-SLOTS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-APPLICABLE-METHODS-USING-CLASSES", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-CLASS-PRECEDENCE-LIST", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-DEFAULT-INITARGS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-DISCRIMINATING-FUNCTION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-EFFECTIVE-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-EFFECTIVE-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "COMPUTE-SLOTS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "DIRECT-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "DIRECT-SLOT-DEFINITION-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "EFFECTIVE-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "EFFECTIVE-SLOT-DEFINITION-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "ENSURE-CLASS", CLOS_ORDINARY, ECL_NAME(clos_ensure_class), -2, OBJNULL}, -{CLOS_ "ENSURE-CLASS-USING-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "ENSURE-GENERIC-FUNCTION-USING-CLASS", CLOS_ORDINARY, NULL, -3, OBJNULL}, -{CLOS_ "EQL-SPECIALIZER", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "EQL-SPECIALIZER-OBJECT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "EXTRACT-LAMBDA-LIST", CLOS_ORDINARY, ECL_NAME(clos_extract_lambda_list), 1, OBJNULL}, -{CLOS_ "EXTRACT-SPECIALIZER-NAMES", CLOS_ORDINARY, ECL_NAME(clos_extract_specializer_names), 1, OBJNULL}, -{CLOS_ "FINALIZE-INHERITANCE", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "FIND-METHOD-COMBINATION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "FORWARD-REFERENCED-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "FUNCALLABLE-STANDARD-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "FUNCALLABLE-STANDARD-INSTANCE-ACCESS", CLOS_ORDINARY, ECL_NAME(clos_funcallable_standard_instance_access), 2, OBJNULL}, -{CLOS_ "FUNCALLABLE-STANDARD-OBJECT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-DECLARATIONS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-LAMBDA-LIST", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-METHOD-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-METHOD-COMBINATION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-METHODS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "GENERIC-FUNCTION-NAME", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "INTERN-EQL-SPECIALIZER", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "LOCATION-TABLE", CLOS_ORDINARY | PRIVATE, NULL, -1, OBJNULL}, -{CLOS_ "MAKE-METHOD-LAMBDA", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "MAP-DEPENDENTS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "METAOBJECT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "METHOD-FUNCTION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "METHOD-GENERIC-FUNCTION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "METHOD-LAMBDA-LIST", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "METHOD-SPECIALIZERS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "NAME", CLOS_ORDINARY | PRIVATE, NULL, -1, OBJNULL}, -{CLOS_ "READER-METHOD-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "REMOVE-DEPENDENT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "REMOVE-DIRECT-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "REMOVE-DIRECT-SUBCLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SET-FUNCALLABLE-INSTANCE-FUNCTION", CLOS_ORDINARY, clos_set_funcallable_instance_function, 2, OBJNULL}, -{CLOS_ "SLOT-BOUNDP-USING-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-ALLOCATION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-INITARGS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-INITFORM", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-INITFUNCTION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-LOCATION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-NAME", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-READERS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-TYPE", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-DEFINITION-WRITERS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-MAKUNBOUND-USING-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-VALUE-USING-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SLOT-VALUE-SET", CLOS_ORDINARY, clos_slot_value_set, 3, OBJNULL}, -{CLOS_ "SLOT-TABLE", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SPECIALIZER", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SPECIALIZER-DIRECT-METHODS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-ACCESSOR-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-DIRECT-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-EFFECTIVE-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-INSTANCE-ACCESS", CLOS_ORDINARY, ECL_NAME(clos_standard_instance_access), 2, OBJNULL}, -{CLOS_ "STANDARD-INSTANCE-SET", CLOS_ORDINARY, ECL_NAME(clos_standard_instance_set), 3, OBJNULL}, -{CLOS_ "STANDARD-READER-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-SLOT-DEFINITION", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-WRITER-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-OPTIMIZED-READER-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STANDARD-OPTIMIZED-WRITER-METHOD", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS", CLOS_ORDINARY, ECL_NAME(clos_std_compute_applicable_methods), 2, OBJNULL}, -{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS-USING-CLASSES", CLOS_ORDINARY, NULL, 2, OBJNULL}, -{CLOS_ "STD-COMPUTE-EFFECTIVE-METHOD", CLOS_ORDINARY, ECL_NAME(clos_std_compute_effective_method), 3, OBJNULL}, -{CLOS_ "COMPUTE-EFFECTIVE-METHOD-FUNCTION", CLOS_ORDINARY, ECL_NAME(clos_compute_effective_method_function), 3, OBJNULL}, -{CLOS_ "UPDATE-DEPENDENT", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "UPDATE-INSTANCE", CLOS_ORDINARY, NULL, 1, OBJNULL}, -{CLOS_ "VALIDATE-SUPERCLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "WRITER-METHOD-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "CLEAR-GFUN-HASH", SI_ORDINARY, si_clear_gfun_hash, 1, OBJNULL}, -{CLOS_ "LOAD-DEFCLASS", CLOS_ORDINARY, ECL_NAME(clos_load_defclass), 4, OBJNULL}, -{CLOS_ "DOCSTRING", CLOS_ORDINARY, NULL, -1, OBJNULL}, -{CLOS_ "SAFE-INSTANCE-REF", CLOS_ORDINARY, clos_safe_instance_ref, 2, OBJNULL}, - -{SYS_ "CL-FIXNUM-BITS", SI_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_FIXNUM_BITS)}, -{EXT_ "CL-FIXNUM", EXT_ORDINARY, NULL, -1, NULL}, -{EXT_ "CL-INDEX", EXT_ORDINARY, NULL, -1, NULL}, - -{SYS_ "DO-DEFTYPE", SI_ORDINARY, ECL_NAME(si_do_deftype), -4, OBJNULL}, -{SYS_ "CREATE-TYPE-NAME", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "*ALIEN-DECLARATIONS*", SI_SPECIAL, NULL, -1, ECL_NIL}, +{SYS_ "WHILE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNTIL" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "QUASIQUOTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*EXIT-HOOKS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, + +{CLOS_ ".COMBINED-METHOD-ARGS." ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_SPECIAL, ECL_NIL)}, +{CLOS_ "+BUILTIN-CLASSES+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "*NEXT-METHODS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_SPECIAL, ECL_NIL)}, +{CLOS_ "*OPTIMIZE-SLOT-ACCESS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_SPECIAL, ECL_T)}, +{CLOS_ "+THE-T-CLASS+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "+THE-CLASS+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "+THE-STD-CLASS+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "+THE-STANDARD-CLASS+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "+THE-FUNCALLABLE-STANDARD-CLASS+" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, ECL_NIL)}, +{CLOS_ "ACCESSOR-METHOD-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ADD-DEPENDENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ADD-DIRECT-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ADD-DIRECT-SUBCLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-DEFAULT-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-DIRECT-DEFAULT-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-DIRECT-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-DIRECT-SUBCLASSES" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-DIRECT-SUPERCLASSES" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-FINALIZED-P" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-PRECEDENCE-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-PROTOTYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "CLASS-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-CLASS-PRECEDENCE-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-DEFAULT-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-DISCRIMINATING-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-EFFECTIVE-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-EFFECTIVE-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-SLOTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "DIRECT-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "DIRECT-SLOT-DEFINITION-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EFFECTIVE-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EFFECTIVE-SLOT-DEFINITION-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ENSURE-CLASS" ECL_FUN("clos_ensure_class", ECL_NAME(clos_ensure_class), -2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ENSURE-CLASS-USING-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "ENSURE-GENERIC-FUNCTION-USING-CLASS" ECL_FUN(NULL, NULL, -3) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EQL-SPECIALIZER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EQL-SPECIALIZER-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EXTRACT-LAMBDA-LIST" ECL_FUN("clos_extract_lambda_list", ECL_NAME(clos_extract_lambda_list), 1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "EXTRACT-SPECIALIZER-NAMES" ECL_FUN("clos_extract_specializer_names", ECL_NAME(clos_extract_specializer_names), 1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FINALIZE-INHERITANCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FIND-METHOD-COMBINATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FORWARD-REFERENCED-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FUNCALLABLE-STANDARD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" ECL_FUN("clos_funcallable_standard_instance_access", ECL_NAME(clos_funcallable_standard_instance_access), 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "FUNCALLABLE-STANDARD-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-DECLARATIONS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-LAMBDA-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-METHOD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-METHOD-COMBINATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-METHODS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "GENERIC-FUNCTION-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "INTERN-EQL-SPECIALIZER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "LOCATION-TABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY | PRIVATE, OBJNULL)}, +{CLOS_ "MAKE-METHOD-LAMBDA" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "MAP-DEPENDENTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "METAOBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "METHOD-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "METHOD-GENERIC-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "METHOD-LAMBDA-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "METHOD-SPECIALIZERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY | PRIVATE, OBJNULL)}, +{CLOS_ "READER-METHOD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "REMOVE-DEPENDENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "REMOVE-DIRECT-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "REMOVE-DIRECT-SUBCLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SET-FUNCALLABLE-INSTANCE-FUNCTION" ECL_FUN("clos_set_funcallable_instance_function", clos_set_funcallable_instance_function, 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-BOUNDP-USING-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-ALLOCATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-INITARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-INITFORM" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-INITFUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-LOCATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-READERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-DEFINITION-WRITERS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-MAKUNBOUND-USING-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-VALUE-USING-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-VALUE-SET" ECL_FUN("clos_slot_value_set", clos_slot_value_set, 3) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SLOT-TABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SPECIALIZER" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SPECIALIZER-DIRECT-METHODS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-ACCESSOR-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-DIRECT-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-EFFECTIVE-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-INSTANCE-ACCESS" ECL_FUN("clos_standard_instance_access", ECL_NAME(clos_standard_instance_access), 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-INSTANCE-SET" ECL_FUN("clos_standard_instance_set", ECL_NAME(clos_standard_instance_set), 3) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-READER-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-SLOT-DEFINITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-WRITER-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-OPTIMIZED-READER-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STANDARD-OPTIMIZED-WRITER-METHOD" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS" ECL_FUN("clos_std_compute_applicable_methods", ECL_NAME(clos_std_compute_applicable_methods), 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS-USING-CLASSES" ECL_FUN(NULL, NULL, 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "STD-COMPUTE-EFFECTIVE-METHOD" ECL_FUN("clos_std_compute_effective_method", ECL_NAME(clos_std_compute_effective_method), 3) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "COMPUTE-EFFECTIVE-METHOD-FUNCTION" ECL_FUN("clos_compute_effective_method_function", ECL_NAME(clos_compute_effective_method_function), 3) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "UPDATE-DEPENDENT" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "UPDATE-INSTANCE" ECL_FUN(NULL, NULL, 1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "VALIDATE-SUPERCLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "WRITER-METHOD-CLASS" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{SYS_ "CLEAR-GFUN-HASH" ECL_FUN("si_clear_gfun_hash", si_clear_gfun_hash, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{CLOS_ "LOAD-DEFCLASS" ECL_FUN("clos_load_defclass", ECL_NAME(clos_load_defclass), 4) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "DOCSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, +{CLOS_ "SAFE-INSTANCE-REF" ECL_FUN("clos_safe_instance_ref", clos_safe_instance_ref, 2) ECL_VAR(CLOS_ORDINARY, OBJNULL)}, + +{SYS_ "CL-FIXNUM-BITS" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_CONSTANT, ecl_make_fixnum(ECL_FIXNUM_BITS))}, +{EXT_ "CL-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, NULL)}, +{EXT_ "CL-INDEX" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, NULL)}, + +{SYS_ "DO-DEFTYPE" ECL_FUN("si_do_deftype", ECL_NAME(si_do_deftype), -4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CREATE-TYPE-NAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*ALIEN-DECLARATIONS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, #ifdef ENABLE_DLOPEN -{SYS_ "LOAD-BINARY", SI_ORDINARY, si_load_binary, 4, OBJNULL}, +{SYS_ "LOAD-BINARY" ECL_FUN("si_load_binary", si_load_binary, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, #else -{SYS_ "LOAD-BINARY", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "LOAD-BINARY" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, #endif -{SYS_ "*CODE-WALKER*", SI_SPECIAL, NULL, -1, OBJNULL}, +{SYS_ "*CODE-WALKER*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, /* #if defined(HAVE_LIBFFI) */ -{SYS_ "CALL-CFUN", SI_ORDINARY, IF_DFFI(si_call_cfun), -5, OBJNULL}, -{KEY_ "CALLBACK", KEYWORD, NULL, -1, OBJNULL}, -{SYS_ "MAKE-DYNAMIC-CALLBACK", SI_ORDINARY, IF_DFFI(si_make_dynamic_callback), -5, OBJNULL}, -{SYS_ "FREE-FFI-CLOSURE", SI_ORDINARY, IF_DFFI(si_free_ffi_closure), 1, OBJNULL}, +{SYS_ "CALL-CFUN" ECL_FUN("si_call_cfun", IF_DFFI(si_call_cfun), -5) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{KEY_ "CALLBACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{SYS_ "MAKE-DYNAMIC-CALLBACK" ECL_FUN("si_make_dynamic_callback", IF_DFFI(si_make_dynamic_callback), -5) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FREE-FFI-CLOSURE" ECL_FUN("si_free_ffi_closure", IF_DFFI(si_free_ffi_closure), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #endif defined(HAVE_LIBFFI) */ -{EXT_ "TRAP-FPE", EXT_ORDINARY, si_trap_fpe, 2, OBJNULL}, +{EXT_ "TRAP-FPE" ECL_FUN("si_trap_fpe", si_trap_fpe, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "*ACTION-ON-UNDEFINED-VARIABLE*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "*ACTION-ON-UNDEFINED-VARIABLE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, -{SYS_ "WINDOWS-CODEPAGE-ENCODING", SI_ORDINARY, IF_WINDOWS(si_windows_codepage_encoding), 0, OBJNULL}, +{SYS_ "WINDOWS-CODEPAGE-ENCODING" ECL_FUN("si_windows_codepage_encoding", IF_WINDOWS(si_windows_codepage_encoding), 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "SET-BUFFERING-MODE", EXT_ORDINARY, si_set_buffering_mode, 2, OBJNULL}, -{KEY_ "NONE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LINE-BUFFERED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FULLY-BUFFERED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LINE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "FULL", KEYWORD, NULL, -1, OBJNULL}, +{EXT_ "SET-BUFFERING-MODE" ECL_FUN("si_set_buffering_mode", si_set_buffering_mode, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{KEY_ "NONE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LINE-BUFFERED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FULLY-BUFFERED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "FULL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{SYS_ "CMP-ENV-REGISTER-MACROLET", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "CMP-ENV-REGISTER-MACROLET" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "GET-FINALIZER", EXT_ORDINARY, si_get_finalizer, 1, OBJNULL}, -{EXT_ "SET-FINALIZER", EXT_ORDINARY, si_set_finalizer, 2, OBJNULL}, +{EXT_ "GET-FINALIZER" ECL_FUN("si_get_finalizer", si_get_finalizer, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SET-FINALIZER" ECL_FUN("si_set_finalizer", si_set_finalizer, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "WRONG-TYPE-ARGUMENT", SI_ORDINARY, si_wrong_type_argument, -3, OBJNULL}, +{SYS_ "WRONG-TYPE-ARGUMENT" ECL_FUN("si_wrong_type_argument", si_wrong_type_argument, -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "*CURRENT-FORM*", SI_SPECIAL, NULL, -1, OBJNULL}, +{SYS_ "*CURRENT-FORM*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, -{SYS_ "CODE-BLOCK", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "CODE-BLOCK" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "FRAME", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "APPLY-FROM-STACK-FRAME", SI_ORDINARY, si_apply_from_stack_frame, 2, OBJNULL}, +{SYS_ "FRAME" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "APPLY-FROM-STACK-FRAME" ECL_FUN("si_apply_from_stack_frame", si_apply_from_stack_frame, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, #ifdef ECL_CLOS_STREAMS -{GRAY_ "CLOSE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAMP", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "INPUT-STREAM-P", GRAY_ORDINARY, NULL, 1, OBJNULL}, -{GRAY_ "OUTPUT-STREAM-P", GRAY_ORDINARY, NULL, 1, OBJNULL}, -{GRAY_ "OPEN-STREAM-P", GRAY_ORDINARY, NULL, 1, OBJNULL}, -{GRAY_ "STREAM-ADVANCE-TO-COLUMN", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-CLEAR-INPUT", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-CLEAR-OUTPUT", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-ELEMENT-TYPE", GRAY_ORDINARY, NULL, 1, OBJNULL}, -{GRAY_ "STREAM-FILE-DESCRIPTOR", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-FILE-POSITION", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-FINISH-OUTPUT", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-FORCE-OUTPUT", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-FRESH-LINE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-INTERACTIVE-P", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-LINE-COLUMN", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-LISTEN", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-PEEK-CHAR", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-READ-BYTE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-READ-CHAR", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-READ-CHAR-NO-HANG", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-READ-LINE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-READ-SEQUENCE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-START-LINE-P", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-TERPRI", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-UNREAD-CHAR", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-WRITE-BYTE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-WRITE-CHAR", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-WRITE-SEQUENCE", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "STREAM-WRITE-STRING", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-INPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-OUTPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-CHARACTER-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-BINARY-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-CHARACTER-INPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-BINARY-INPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, -{GRAY_ "FUNDAMENTAL-BINARY-OUTPUT-STREAM", GRAY_ORDINARY, NULL, -1, OBJNULL}, +{GRAY_ "CLOSE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAMP" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "INPUT-STREAM-P" ECL_FUN(NULL, NULL, 1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "OUTPUT-STREAM-P" ECL_FUN(NULL, NULL, 1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "OPEN-STREAM-P" ECL_FUN(NULL, NULL, 1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-ADVANCE-TO-COLUMN" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-CLEAR-INPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-CLEAR-OUTPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-ELEMENT-TYPE" ECL_FUN(NULL, NULL, 1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-FILE-DESCRIPTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-FILE-POSITION" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-FINISH-OUTPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-FORCE-OUTPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-FRESH-LINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-INTERACTIVE-P" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-LINE-COLUMN" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-LISTEN" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-PEEK-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-READ-BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-READ-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-READ-CHAR-NO-HANG" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-READ-LINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-READ-SEQUENCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-START-LINE-P" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-TERPRI" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-UNREAD-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-WRITE-BYTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-WRITE-CHAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-WRITE-SEQUENCE" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "STREAM-WRITE-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-INPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-OUTPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-CHARACTER-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-BINARY-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-CHARACTER-INPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-BINARY-INPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, +{GRAY_ "FUNDAMENTAL-BINARY-OUTPUT-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(GRAY_ORDINARY, OBJNULL)}, #endif /* ECL_CLOS_STREAMS */ -{SYS_ "LOG1P", SI_ORDINARY, si_log1p, 1, OBJNULL}, +{SYS_ "LOG1P" ECL_FUN("si_log1p", si_log1p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "BC-FILE", EXT_ORDINARY, si_compiled_function_file, 1, ECL_NIL}, -{EXT_ "COMPILED-FUNCTION-FILE", EXT_ORDINARY, si_compiled_function_file, 1, ECL_NIL}, +{EXT_ "BC-FILE" ECL_FUN("si_compiled_function_file", si_compiled_function_file, 1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "COMPILED-FUNCTION-FILE" ECL_FUN("si_compiled_function_file", si_compiled_function_file, 1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, -{SYS_ "PROPERTY-LIST", SI_ORDINARY, NULL, 1, OBJNULL}, +{SYS_ "PROPERTY-LIST" ECL_FUN(NULL, NULL, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "BYTECODES", SI_ORDINARY, NULL, 1, OBJNULL}, +{SYS_ "BYTECODES" ECL_FUN(NULL, NULL, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "HASH-EQL", SI_ORDINARY, si_hash_eql, -1, OBJNULL}, -{SYS_ "HASH-EQUAL", SI_ORDINARY, si_hash_equal, -1, OBJNULL}, -{SYS_ "HASH-EQUALP", SI_ORDINARY, si_hash_equalp, -1, OBJNULL}, +{SYS_ "HASH-EQL" ECL_FUN("si_hash_eql", si_hash_eql, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "HASH-EQUAL" ECL_FUN("si_hash_equal", si_hash_equal, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "HASH-EQUALP" ECL_FUN("si_hash_equalp", si_hash_equalp, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "INTERACTIVE-INTERRUPT", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "INTERACTIVE-INTERRUPT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "STORAGE-EXHAUSTED", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "STACK-OVERFLOW", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "STACK-OVERFLOW-SIZE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "STACK-OVERFLOW-TYPE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "BINDING-STACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "FRAME-STACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "LISP-STACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "C-STACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "HEAP-SIZE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "ILLEGAL-INSTRUCTION", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "SET-LIMIT", EXT_ORDINARY, si_set_limit, 2, OBJNULL}, -{EXT_ "GET-LIMIT", EXT_ORDINARY, si_get_limit, 1, OBJNULL}, -{SYS_ "RESET-MARGIN", EXT_ORDINARY, si_reset_margin, 1, OBJNULL}, -{EXT_ "SEGMENTATION-VIOLATION", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "STORAGE-EXHAUSTED" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "STACK-OVERFLOW" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "STACK-OVERFLOW-SIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "STACK-OVERFLOW-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "BINDING-STACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FRAME-STACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "LISP-STACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "C-STACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "HEAP-SIZE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ILLEGAL-INSTRUCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SET-LIMIT" ECL_FUN("si_set_limit", si_set_limit, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "GET-LIMIT" ECL_FUN("si_get_limit", si_get_limit, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "RESET-MARGIN" ECL_FUN("si_reset_margin", si_reset_margin, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SEGMENTATION-VIOLATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "EXTENDED-STRING", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "EXTENDED-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "CHECK-PENDING-INTERRUPTS", SI_ORDINARY, si_check_pending_interrupts, 0, OBJNULL}, +{SYS_ "CHECK-PENDING-INTERRUPTS" ECL_FUN("si_check_pending_interrupts", si_check_pending_interrupts, 0) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{KEY_ "LATIN-1", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "ISO-8859-1", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UTF-8", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UCS-2", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UCS-4", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "LATIN-1" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "ISO-8859-1" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UTF-8" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UCS-2" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UCS-4" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "CONSTANTLY-T", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CONSTANTLY-NIL", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "CONSTANTLY-T" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CONSTANTLY-NIL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "MAYBE-QUOTE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "MAYBE-UNQUOTE", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "MAYBE-QUOTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAYBE-UNQUOTE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{KEY_ "CR", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LF", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "CRLF", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "CR" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LF" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "CRLF" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{KEY_ "UCS-2BE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UCS-4BE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UCS-2LE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UCS-4LE", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "UCS-2BE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UCS-4BE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UCS-2LE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UCS-4LE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "LOAD-ENCODING", EXT_ORDINARY, ECL_NAME(si_load_encoding), 1, OBJNULL}, -{EXT_ "MAKE-ENCODING", EXT_ORDINARY, ECL_NAME(si_make_encoding), 1, OBJNULL}, -{EXT_ "ALL-ENCODINGS", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "LOAD-ENCODING" ECL_FUN("si_load_encoding", ECL_NAME(si_load_encoding), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-ENCODING" ECL_FUN("si_make_encoding", ECL_NAME(si_make_encoding), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ALL-ENCODINGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{KEY_ "US-ASCII", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "LITTLE-ENDIAN", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "BIG-ENDIAN", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "US-ASCII" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "LITTLE-ENDIAN" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "BIG-ENDIAN" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{SYS_ "+UNICODE-DATABASE+", SI_CONSTANT, NULL, -1, ECL_NIL}, +{SYS_ "+UNICODE-DATABASE+" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_CONSTANT, ECL_NIL)}, -{EXT_ "COPY-FILE", EXT_ORDINARY, si_copy_file, 2, OBJNULL}, +{EXT_ "COPY-FILE" ECL_FUN("si_copy_file", si_copy_file, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "FILL-ARRAY-WITH-ELT", EXT_ORDINARY, si_fill_array_with_elt, 4, OBJNULL}, +{EXT_ "FILL-ARRAY-WITH-ELT" ECL_FUN("si_fill_array_with_elt", si_fill_array_with_elt, 4) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "+ECL-VERSION-NUMBER+", EXT_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_VERSION_NUMBER)}, +{EXT_ "+ECL-VERSION-NUMBER+" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, ecl_make_fixnum(ECL_VERSION_NUMBER))}, -{EXT_ "*BYTECODES-COMPILER*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "*BYTECODES-COMPILER*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, #ifdef ECL_IEEE_FP -{SYS_ "NAN", EXT_ORDINARY, si_nan, 0, OBJNULL}, +{SYS_ "NAN" ECL_FUN("si_nan", si_nan, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "SHORT-FLOAT-POSITIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "SINGLE-FLOAT-POSITIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "DOUBLE-FLOAT-POSITIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "LONG-FLOAT-POSITIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, +{EXT_ "SHORT-FLOAT-POSITIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "SINGLE-FLOAT-POSITIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "DOUBLE-FLOAT-POSITIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "LONG-FLOAT-POSITIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, -{EXT_ "SHORT-FLOAT-NEGATIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "SINGLE-FLOAT-NEGATIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "DOUBLE-FLOAT-NEGATIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "LONG-FLOAT-NEGATIVE-INFINITY", EXT_CONSTANT, NULL, -1, OBJNULL}, +{EXT_ "SHORT-FLOAT-NEGATIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "SINGLE-FLOAT-NEGATIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "DOUBLE-FLOAT-NEGATIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, +{EXT_ "LONG-FLOAT-NEGATIVE-INFINITY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, OBJNULL)}, #endif /* ECL_IEEE_FP */ -{EXT_ "FLOAT-NAN-P", EXT_ORDINARY, si_float_nan_p, 1, OBJNULL}, -{EXT_ "FLOAT-INFINITY-P", EXT_ORDINARY, si_float_infinity_p, 1, OBJNULL}, -{EXT_ "FLOAT-NAN-STRING", EXT_ORDINARY, NULL, 1, OBJNULL}, -{EXT_ "FLOAT-INFINITY-STRING", EXT_ORDINARY, NULL, 1, OBJNULL}, +{EXT_ "FLOAT-NAN-P" ECL_FUN("si_float_nan_p", si_float_nan_p, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FLOAT-INFINITY-P" ECL_FUN("si_float_infinity_p", si_float_infinity_p, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FLOAT-NAN-STRING" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FLOAT-INFINITY-STRING" ECL_FUN(NULL, NULL, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "READ-OBJECT-OR-IGNORE", EXT_ORDINARY, si_read_object_or_ignore, 2, OBJNULL}, +{SYS_ "READ-OBJECT-OR-IGNORE" ECL_FUN("si_read_object_or_ignore", si_read_object_or_ignore, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "READTABLE-LOCK", EXT_ORDINARY, si_readtable_lock, -2, OBJNULL}, +{EXT_ "READTABLE-LOCK" ECL_FUN("si_readtable_lock", si_readtable_lock, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "+IO-SYNTAX-PROGV-LIST+", SI_CONSTANT, NULL, -1, OBJNULL}, -{SYS_ "+ECL-SYNTAX-PROGV-LIST+", SI_CONSTANT, NULL, -1, OBJNULL}, -{SYS_ "WITH-ECL-IO-SYNTAX", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "+IO-SYNTAX-PROGV-LIST+" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_CONSTANT, OBJNULL)}, +{SYS_ "+ECL-SYNTAX-PROGV-LIST+" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_CONSTANT, OBJNULL)}, +{SYS_ "WITH-ECL-IO-SYNTAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "STREAM-EXTERNAL-FORMAT-SET", SI_ORDINARY, si_stream_external_format_set, 2, OBJNULL}, +{SYS_ "STREAM-EXTERNAL-FORMAT-SET" ECL_FUN("si_stream_external_format_set", si_stream_external_format_set, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{KEY_ "CDECL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EABI", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "GNUW64", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "STDCALL", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SYSV", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNIX", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "UNIX64", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "VFP", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WIN64", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "CDECL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EABI" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "GNUW64" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "STDCALL" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SYSV" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNIX" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "UNIX64" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "VFP" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WIN64" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "WEAK-POINTER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "MAKE-WEAK-POINTER", EXT_ORDINARY, si_make_weak_pointer, 1, OBJNULL}, -{EXT_ "WEAK-POINTER-VALUE", EXT_ORDINARY, si_weak_pointer_value, 1, OBJNULL}, +{EXT_ "WEAK-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-WEAK-POINTER" ECL_FUN("si_make_weak_pointer", si_make_weak_pointer, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WEAK-POINTER-VALUE" ECL_FUN("si_weak_pointer_value", si_weak_pointer_value, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "*ALLOW-WITH-INTERRUPTS*", SI_SPECIAL, NULL, -1, ECL_T}, +{SYS_ "*ALLOW-WITH-INTERRUPTS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_T)}, /* conveniance macros from CMU util */ -{EXT_ "ONCE-ONLY", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "COLLECT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "WITH-UNIQUE-NAMES", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "WITH-GENSYMS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "WITH-CLEAN-SYMBOLS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "IF-LET", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "WHEN-LET", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "WHEN-LET*", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "ONCE-ONLY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "COLLECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WITH-UNIQUE-NAMES" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WITH-GENSYMS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WITH-CLEAN-SYMBOLS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "IF-LET" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WHEN-LET" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "WHEN-LET*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "HANDLE-SIGNAL", SI_ORDINARY, si_handle_signal, 1, OBJNULL}, +{SYS_ "HANDLE-SIGNAL" ECL_FUN("si_handle_signal", si_handle_signal, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "WITH-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "WITHOUT-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "WITH-RESTORED-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "WITH-LOCAL-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL}, -{EXT_ "ALLOW-WITH-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL}, +{EXT_ "WITH-INTERRUPTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{EXT_ "WITHOUT-INTERRUPTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{EXT_ "WITH-RESTORED-INTERRUPTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{EXT_ "WITH-LOCAL-INTERRUPTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, +{EXT_ "ALLOW-WITH-INTERRUPTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(MP_CONSTANT, OBJNULL)}, -{SYS_ "*QUIT-TAG*", SI_SPECIAL, NULL, -1, OBJNULL}, +{SYS_ "*QUIT-TAG*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, OBJNULL)}, -{EXT_ "ARRAY-RAW-DATA", EXT_ORDINARY, si_array_raw_data, 1, OBJNULL}, +{EXT_ "ARRAY-RAW-DATA" ECL_FUN("si_array_raw_data", si_array_raw_data, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "*PROGRAM-EXIT-CODE*", EXT_SPECIAL, NULL, -1, ecl_make_fixnum(0)}, -{EXT_ "EXIT", EXT_ORDINARY, si_exit, -1, OBJNULL}, +{EXT_ "*PROGRAM-EXIT-CODE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ecl_make_fixnum(0))}, +{EXT_ "EXIT" ECL_FUN("si_exit", si_exit, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "ENVIRON", EXT_ORDINARY, si_environ, 0, OBJNULL}, +{EXT_ "ENVIRON" ECL_FUN("si_environ", si_environ, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{KEY_ "ENVIRON", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "ENVIRON" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, /* external-process extension */ -{EXT_ "RUN-PROGRAM", EXT_ORDINARY, ECL_NAME(si_run_program), -3, OBJNULL}, - -{EXT_ "MAKE-EXTERNAL-PROCESS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-PID", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-INPUT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-OUTPUT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-ERROR-STREAM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-STATUS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EXTERNAL-PROCESS-WAIT", EXT_ORDINARY, NULL, -2, OBJNULL}, -{EXT_ "TERMINATE-PROCESS", EXT_ORDINARY, ECL_NAME(si_terminate_process), -2, OBJNULL}, - -{KEY_ "RUNNING", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "EXITED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "SIGNALED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "STOPPED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "RESUMED", KEYWORD, NULL, -1, OBJNULL}, +{EXT_ "RUN-PROGRAM" ECL_FUN("si_run_program", ECL_NAME(si_run_program), -3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "MAKE-EXTERNAL-PROCESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-PID" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-INPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-OUTPUT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-ERROR-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-STATUS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EXTERNAL-PROCESS-WAIT" ECL_FUN(NULL, NULL, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "TERMINATE-PROCESS" ECL_FUN("si_terminate_process", ECL_NAME(si_terminate_process), -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{KEY_ "RUNNING" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "EXITED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "SIGNALED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "STOPPED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "RESUMED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, /* ~ external-process extension */ /* unixsys.d */ -{SYS_ "WAITPID", SI_ORDINARY, si_waitpid, 2, OBJNULL}, +{SYS_ "WAITPID" ECL_FUN("si_waitpid", si_waitpid, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, #if !defined(ECL_MS_WINDOWS_HOST) -{SYS_ "KILLPID", SI_ORDINARY, si_killpid, 2, OBJNULL}, +{SYS_ "KILLPID" ECL_FUN("si_killpid", si_killpid, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, #else -{SYS_ "KILLPID", SI_ORDINARY, NULL, 2, OBJNULL}, +{SYS_ "KILLPID" ECL_FUN(NULL, NULL, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, #endif -{SYS_ "RUN-PROGRAM-INNER", SI_ORDINARY, si_run_program_inner, 4, OBJNULL}, -{SYS_ "SPAWN-SUBPROCESS", SI_ORDINARY, si_spawn_subprocess, 6, OBJNULL}, -{SYS_ "CLOSE-WINDOWS-HANDLE", SI_ORDINARY, IF_WINDOWS(si_close_windows_handle), 1, OBJNULL}, +{SYS_ "RUN-PROGRAM-INNER" ECL_FUN("si_run_program_inner", si_run_program_inner, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SPAWN-SUBPROCESS" ECL_FUN("si_spawn_subprocess", si_spawn_subprocess, 6) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CLOSE-WINDOWS-HANDLE" ECL_FUN("si_close_windows_handle", IF_WINDOWS(si_close_windows_handle), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* ~ */ -{EXT_ "*INVOKE-DEBUGGER-HOOK*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "*INVOKE-DEBUGGER-HOOK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, -{EXT_ "*DOCUMENTATION-POOL*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "ANNOTATE", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "GET-ANNOTATION", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "REMOVE-ANNOTATION", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "FUNCTION-LAMBDA-LIST", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "DEFAULT-ANNOTATION-LOGIC", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "OPTIONAL-ANNOTATION", EXT_ORDINARY, NULL, -1, ECL_NIL}, -{EXT_ "LOCATION", EXT_ORDINARY, NULL, -1, ECL_NIL}, +{EXT_ "*DOCUMENTATION-POOL*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "ANNOTATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "GET-ANNOTATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "REMOVE-ANNOTATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "FUNCTION-LAMBDA-LIST" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "DEFAULT-ANNOTATION-LOGIC" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "OPTIONAL-ANNOTATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, +{EXT_ "LOCATION" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, -{EXT_ "LISP-IMPLEMENTATION-VCS-ID", EXT_ORDINARY, ECL_NAME(si_lisp_implementation_vcs_id), 0, ECL_NIL}, +{EXT_ "LISP-IMPLEMENTATION-VCS-ID" ECL_FUN("si_lisp_implementation_vcs_id", ECL_NAME(si_lisp_implementation_vcs_id), 0) ECL_VAR(EXT_ORDINARY, ECL_NIL)}, -{SYS_ "SIGNAL-SERVICING", SI_ORDINARY, NULL, -1, ECL_NIL}, +{SYS_ "SIGNAL-SERVICING" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, ECL_NIL)}, -{EXT_ "*DEFAULT-EXTERNAL-FORMAT*", EXT_SPECIAL, NULL, -1, ECL_T}, -{KEY_ "PASS-THROUGH", KEYWORD, NULL, -1, OBJNULL}, +{EXT_ "*DEFAULT-EXTERNAL-FORMAT*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_T)}, +{KEY_ "PASS-THROUGH" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "WITH-BACKEND", EXT_ORDINARY, NULL, -1, OBJNULL}, -{KEY_ "BYTECODES", KEYWORD, NULL, 1, OBJNULL}, -{KEY_ "C/C++", KEYWORD, NULL, 1, OBJNULL}, +{EXT_ "WITH-BACKEND" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{KEY_ "BYTECODES" ECL_FUN(NULL, NULL, 1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "C/C++" ECL_FUN(NULL, NULL, 1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "ARRAY-INDEX", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "ANSI-STREAM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "VIRTUAL-STREAM", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "ARRAY-INDEX" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ANSI-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "VIRTUAL-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "COMPLEX-ARRAY", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "COMPLEX-ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "SEQUENCE-START-END", SI_ORDINARY, si_sequence_start_end, 4, OBJNULL}, -{SYS_ "SEQUENCE-COUNT", SI_ORDINARY, ECL_NAME(si_sequence_count), 1, OBJNULL}, -{SYS_ "SHRINK-VECTOR", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "COPY-SUBARRAY", SI_ORDINARY, si_copy_subarray, 5, OBJNULL}, +{SYS_ "SEQUENCE-START-END" ECL_FUN("si_sequence_start_end", si_sequence_start_end, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SEQUENCE-COUNT" ECL_FUN("si_sequence_count", ECL_NAME(si_sequence_count), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SHRINK-VECTOR" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COPY-SUBARRAY" ECL_FUN("si_copy_subarray", si_copy_subarray, 5) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "CONS-CAR", SI_ORDINARY, cl_car, 1, OBJNULL}, -{SYS_ "CONS-CDR", SI_ORDINARY, cl_cdr, 1, OBJNULL}, +{SYS_ "CONS-CAR" ECL_FUN("cl_car", cl_car, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CONS-CDR" ECL_FUN("cl_cdr", cl_cdr, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "COMPILER-TYPECASE", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "COMPILER-TYPECASE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "ASSERT-FAILURE", SI_ORDINARY, ECL_NAME(si_assert_failure), -2, OBJNULL}, -{SYS_ "CCASE-ERROR", SI_ORDINARY, ECL_NAME(si_ccase_error), 3, OBJNULL}, -{SYS_ "ECASE-ERROR", SI_ORDINARY, ECL_NAME(si_ecase_error), 2, OBJNULL}, -{SYS_ "ETYPECASE-ERROR", SI_ORDINARY, ECL_NAME(si_etypecase_error), 2, OBJNULL}, -{SYS_ "CTYPECASE-ERROR", SI_ORDINARY, ECL_NAME(si_ctypecase_error), 3, OBJNULL}, -{SYS_ "DO-CHECK-TYPE", SI_ORDINARY, ECL_NAME(si_do_check_type), 4, OBJNULL}, +{SYS_ "ASSERT-FAILURE" ECL_FUN("si_assert_failure", ECL_NAME(si_assert_failure), -2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CCASE-ERROR" ECL_FUN("si_ccase_error", ECL_NAME(si_ccase_error), 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ECASE-ERROR" ECL_FUN("si_ecase_error", ECL_NAME(si_ecase_error), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ETYPECASE-ERROR" ECL_FUN("si_etypecase_error", ECL_NAME(si_etypecase_error), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "CTYPECASE-ERROR" ECL_FUN("si_ctypecase_error", ECL_NAME(si_ctypecase_error), 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DO-CHECK-TYPE" ECL_FUN("si_do_check_type", ECL_NAME(si_do_check_type), 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #ifdef ECL_EXTERNALIZABLE */ -{SYS_ "SERIALIZE", SI_ORDINARY, IF_EXTERNALIZABLE(si_serialize), 1, OBJNULL}, -{SYS_ "DESERIALIZE", SI_ORDINARY, IF_EXTERNALIZABLE(si_deserialize), 1, OBJNULL}, +{SYS_ "SERIALIZE" ECL_FUN("si_serialize", IF_EXTERNALIZABLE(si_serialize), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DESERIALIZE" ECL_FUN("si_deserialize", IF_EXTERNALIZABLE(si_deserialize), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #endif */ -{EXT_ "ARRAY-ELEMENT-TYPE-BYTE-SIZE", EXT_ORDINARY, si_array_element_type_byte_size, 1, OBJNULL}, +{EXT_ "ARRAY-ELEMENT-TYPE-BYTE-SIZE" ECL_FUN("si_array_element_type_byte_size", si_array_element_type_byte_size, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* #ifdef ECL_COMPLEX_FLOAT */ -{SYS_ "COMPLEX-FLOAT-P", SI_ORDINARY, IF_COMPLEX_FLOAT(si_complex_float_p), 1, OBJNULL}, -{SYS_ "COMPLEX-FLOAT", SI_ORDINARY, IF_COMPLEX_FLOAT(si_complex_float), 2, OBJNULL}, -{SYS_ "COMPLEX-SINGLE-FLOAT", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "COMPLEX-DOUBLE-FLOAT", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "COMPLEX-LONG-FLOAT", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "COMPLEX-FLOAT-P" ECL_FUN("si_complex_float_p", IF_COMPLEX_FLOAT(si_complex_float_p), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COMPLEX-FLOAT" ECL_FUN("si_complex_float", IF_COMPLEX_FLOAT(si_complex_float), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COMPLEX-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COMPLEX-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "COMPLEX-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* #endif */ /* #ifdef ECL_SSE2 */ -{EXT_ "SSE-PACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "SSE-PACK-P", EXT_ORDINARY, IF_SSE2(si_sse_pack_p), 1, OBJNULL}, -{EXT_ "SSE-PACK-AS-ELT-TYPE", EXT_ORDINARY, IF_SSE2(si_sse_pack_as_elt_type), 2, OBJNULL}, -{EXT_ "VECTOR-TO-SSE-PACK", EXT_ORDINARY, IF_SSE2(si_vector_to_sse_pack), 1, OBJNULL}, -{EXT_ "SSE-PACK-TO-VECTOR", EXT_ORDINARY, IF_SSE2(si_sse_pack_to_vector), 2, OBJNULL}, -{EXT_ "INT-SSE-PACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "FLOAT-SSE-PACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "DOUBLE-SSE-PACK", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "SSE-PACK-ELEMENT-TYPE", EXT_ORDINARY, IF_SSE2(si_sse_pack_element_type), 1, OBJNULL}, -{EXT_ "*SSE-PACK-PRINT-MODE*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "SSE-PACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SSE-PACK-P" ECL_FUN("si_sse_pack_p", IF_SSE2(si_sse_pack_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SSE-PACK-AS-ELT-TYPE" ECL_FUN("si_sse_pack_as_elt_type", IF_SSE2(si_sse_pack_as_elt_type), 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "VECTOR-TO-SSE-PACK" ECL_FUN("si_vector_to_sse_pack", IF_SSE2(si_vector_to_sse_pack), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SSE-PACK-TO-VECTOR" ECL_FUN("si_sse_pack_to_vector", IF_SSE2(si_sse_pack_to_vector), 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INT-SSE-PACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "FLOAT-SSE-PACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "DOUBLE-SSE-PACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "SSE-PACK-ELEMENT-TYPE" ECL_FUN("si_sse_pack_element_type", IF_SSE2(si_sse_pack_element_type), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "*SSE-PACK-PRINT-MODE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, /* #endif ECL_SSE2 */ -{EXT_ "UNIX-SIGNAL-RECEIVED", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "UNIX-SIGNAL-RECEIVED-CODE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{KEY_ "CODE", KEYWORD, NULL, -1, OBJNULL}, +{EXT_ "UNIX-SIGNAL-RECEIVED" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "UNIX-SIGNAL-RECEIVED-CODE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{KEY_ "CODE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "ASSUME-RIGHT-TYPE", EXT_ORDINARY, NULL, -1, OBJNULL}, +{EXT_ "ASSUME-RIGHT-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "FLOAT-TO-DIGITS", SI_ORDINARY, si_float_to_digits, 4, OBJNULL}, -{SYS_ "FLOAT-TO-STRING-FREE", SI_ORDINARY, si_float_to_string_free, 4, OBJNULL}, -{SYS_ "INTEGER-TO-STRING", SI_ORDINARY, si_integer_to_string, 5, OBJNULL}, +{SYS_ "FLOAT-TO-DIGITS" ECL_FUN("si_float_to_digits", si_float_to_digits, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "FLOAT-TO-STRING-FREE" ECL_FUN("si_float_to_string_free", si_float_to_string_free, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "INTEGER-TO-STRING" ECL_FUN("si_integer_to_string", si_integer_to_string, 5) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{SYS_ "PRINT-UNREADABLE-OBJECT-FUNCTION", SI_ORDINARY, si_print_unreadable_object_function, 5, OBJNULL}, +{SYS_ "PRINT-UNREADABLE-OBJECT-FUNCTION" ECL_FUN("si_print_unreadable_object_function", si_print_unreadable_object_function, 5) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "DUMP-C-BACKTRACE", EXT_ORDINARY, si_dump_c_backtrace, 1, OBJNULL}, +{EXT_ "DUMP-C-BACKTRACE" ECL_FUN("si_dump_c_backtrace", si_dump_c_backtrace, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{EXT_ "+PROCESS-STANDARD-INPUT+", EXT_CONSTANT, NULL, -1, ECL_NIL}, -{EXT_ "+PROCESS-STANDARD-OUTPUT+", EXT_CONSTANT, NULL, -1, ECL_NIL}, -{EXT_ "+PROCESS-ERROR-OUTPUT+", EXT_CONSTANT, NULL, -1, ECL_NIL}, +{EXT_ "+PROCESS-STANDARD-INPUT+" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, ECL_NIL)}, +{EXT_ "+PROCESS-STANDARD-OUTPUT+" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, ECL_NIL)}, +{EXT_ "+PROCESS-ERROR-OUTPUT+" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_CONSTANT, ECL_NIL)}, -{EXT_ "*HELP-MESSAGE*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "*LISP-INIT-FILE-LIST*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "+DEFAULT-COMMAND-ARG-RULES+", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "COMMAND-ARGS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "*COMMAND-ARGS*", EXT_SPECIAL, NULL, -1, ECL_NIL}, -{EXT_ "PROCESS-COMMAND-ARGS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "*UNPROCESSED-ECL-COMMAND-ARGS*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "*HELP-MESSAGE*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "*LISP-INIT-FILE-LIST*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "+DEFAULT-COMMAND-ARG-RULES+" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "COMMAND-ARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "*COMMAND-ARGS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, +{EXT_ "PROCESS-COMMAND-ARGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "*UNPROCESSED-ECL-COMMAND-ARGS*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, /* #ifdef ECL_UNICODE */ -{KEY_ "OCTETS", KEYWORD, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-CODING-ERROR", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-CODING-ERROR-EXTERNAL-FORMAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-ENCODING-ERROR", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-ENCODING-ERROR-CODE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-DECODING-ERROR", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHARACTER-DECODING-ERROR-OCTETS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "STREAM-DECODING-ERROR", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "STREAM-ENCODING-ERROR", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "DECODING-ERROR", EXT_ORDINARY, NULL, 3, OBJNULL}, -{EXT_ "ENCODING-ERROR", EXT_ORDINARY, NULL, 3, OBJNULL}, +{KEY_ "OCTETS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{EXT_ "CHARACTER-CODING-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHARACTER-CODING-ERROR-EXTERNAL-FORMAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHARACTER-ENCODING-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHARACTER-ENCODING-ERROR-CODE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHARACTER-DECODING-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHARACTER-DECODING-ERROR-OCTETS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "STREAM-DECODING-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "STREAM-ENCODING-ERROR" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "DECODING-ERROR" ECL_FUN(NULL, NULL, 3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ENCODING-ERROR" ECL_FUN(NULL, NULL, 3) ECL_VAR(EXT_ORDINARY, OBJNULL)}, /* #endif ECL_UNICODE */ -{SYS_ "PROPER-LIST-P", SI_ORDINARY, si_proper_list_p, 1, OBJNULL}, -{SYS_ "TRACED-OLD-DEFINITION", SI_ORDINARY, ECL_NAME(si_traced_old_definition), 1, OBJNULL}, -{SYS_ "*TRACE-LIST*", SI_SPECIAL, NULL, -1, ECL_NIL}, +{SYS_ "PROPER-LIST-P" ECL_FUN("si_proper_list_p", si_proper_list_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "TRACED-OLD-DEFINITION" ECL_FUN("si_traced_old_definition", ECL_NAME(si_traced_old_definition), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "*TRACE-LIST*" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_SPECIAL, ECL_NIL)}, -{SYS_ "FUNCTION-BOUNDARY", SI_ORDINARY, NULL, -1, OBJNULL}, -{SYS_ "UNWIND-PROTECT-BOUNDARY", SI_ORDINARY, NULL, -1, OBJNULL}, +{SYS_ "FUNCTION-BOUNDARY" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "UNWIND-PROTECT-BOUNDARY" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{EXT_ "*INSPECTOR-HOOK*", EXT_SPECIAL, NULL, -1, ECL_NIL}, +{EXT_ "*INSPECTOR-HOOK*" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_SPECIAL, ECL_NIL)}, -{KEY_ "RESOLVE-SYMLINKS", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "RESOLVE-SYMLINKS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{SYS_ "LOAD-BYTECODES", SI_ORDINARY, si_load_bytecodes, 4, OBJNULL}, +{SYS_ "LOAD-BYTECODES" ECL_FUN("si_load_bytecodes", si_load_bytecodes, 4) ECL_VAR(SI_ORDINARY, OBJNULL)}, -{KEY_ "SHARED", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "PRIVATE", KEYWORD, NULL, -1, OBJNULL}, +{KEY_ "SHARED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "PRIVATE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, -{EXT_ "MMAP", EXT_ORDINARY, si_mmap, -2, OBJNULL}, -{EXT_ "MUNMAP", EXT_ORDINARY, si_munmap, 1, OBJNULL}, -{EXT_ "MMAP-ARRAY", EXT_ORDINARY, si_mmap_array, 1, OBJNULL}, +{EXT_ "MMAP" ECL_FUN("si_mmap", si_mmap, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MUNMAP" ECL_FUN("si_munmap", si_munmap, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MMAP-ARRAY" ECL_FUN("si_mmap_array", si_mmap_array, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, -{SYS_ "GET-CDATA", SI_ORDINARY, si_get_cdata, 1, OBJNULL}, -{SYS_ "ADD-CDATA", SI_ORDINARY, si_add_cdata, 2, OBJNULL}, +{SYS_ "GET-CDATA" ECL_FUN("si_get_cdata", si_get_cdata, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "ADD-CDATA" ECL_FUN("si_add_cdata", si_add_cdata, 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* * CDR-5 http://cdr.eurolisp.org/document/5/extra-num-types.html */ -{EXT_ "NEGATIVE-FIXNUM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-FIXNUM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-FIXNUM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-FIXNUM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-FIXNUM-P", EXT_ORDINARY, ECL_NAME(si_negative_fixnum_p), 1, OBJNULL}, -{EXT_ "POSITIVE-FIXNUM-P", EXT_ORDINARY, ECL_NAME(si_positive_fixnum_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-FIXNUM-P", EXT_ORDINARY, ECL_NAME(si_non_negative_fixnum_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-FIXNUM-P", EXT_ORDINARY, ECL_NAME(si_non_positive_fixnum_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-INTEGER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-INTEGER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-INTEGER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-INTEGER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-INTEGER-P", EXT_ORDINARY, ECL_NAME(si_negative_integer_p), 1, OBJNULL}, -{EXT_ "POSITIVE-INTEGER-P", EXT_ORDINARY, ECL_NAME(si_positive_integer_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-INTEGER-P", EXT_ORDINARY, ECL_NAME(si_non_negative_integer_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-INTEGER-P", EXT_ORDINARY, ECL_NAME(si_non_positive_integer_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-RATIONAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-RATIONAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-RATIONAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-RATIONAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-RATIONAL-P", EXT_ORDINARY, ECL_NAME(si_negative_rational_p), 1, OBJNULL}, -{EXT_ "POSITIVE-RATIONAL-P", EXT_ORDINARY, ECL_NAME(si_positive_rational_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-RATIONAL-P", EXT_ORDINARY, ECL_NAME(si_non_negative_rational_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-RATIONAL-P", EXT_ORDINARY, ECL_NAME(si_non_positive_rational_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-RATIO", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-RATIO", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-RATIO", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-RATIO", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-RATIO-P", EXT_ORDINARY, ECL_NAME(si_negative_ratio_p), 1, OBJNULL}, -{EXT_ "POSITIVE-RATIO-P", EXT_ORDINARY, ECL_NAME(si_positive_ratio_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-RATIO-P", EXT_ORDINARY, ECL_NAME(si_non_negative_ratio_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-RATIO-P", EXT_ORDINARY, ECL_NAME(si_non_positive_ratio_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-REAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-REAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-REAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-REAL", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-REAL-P", EXT_ORDINARY, ECL_NAME(si_negative_real_p), 1, OBJNULL}, -{EXT_ "POSITIVE-REAL-P", EXT_ORDINARY, ECL_NAME(si_positive_real_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-REAL-P", EXT_ORDINARY, ECL_NAME(si_non_negative_real_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-REAL-P", EXT_ORDINARY, ECL_NAME(si_non_positive_real_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_negative_float_p), 1, OBJNULL}, -{EXT_ "POSITIVE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_positive_float_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_negative_float_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_positive_float_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-SHORT-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-SHORT-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-SHORT-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-SHORT-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-SHORT-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_negative_short_float_p), 1, OBJNULL}, -{EXT_ "POSITIVE-SHORT-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_positive_short_float_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-SHORT-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_negative_short_float_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-SHORT-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_positive_short_float_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-SINGLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-SINGLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-SINGLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-SINGLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-SINGLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_negative_single_float_p), 1, OBJNULL}, -{EXT_ "POSITIVE-SINGLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_positive_single_float_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-SINGLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_negative_single_float_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-SINGLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_positive_single_float_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-DOUBLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-DOUBLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-DOUBLE-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-DOUBLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_negative_double_float_p), 1, OBJNULL}, -{EXT_ "POSITIVE-DOUBLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_positive_double_float_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_negative_double_float_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-DOUBLE-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_positive_double_float_p), 1, OBJNULL}, - -{EXT_ "NEGATIVE-LONG-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-NEGATIVE-LONG-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NON-POSITIVE-LONG-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "POSITIVE-LONG-FLOAT", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "NEGATIVE-LONG-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_negative_long_float_p), 1, OBJNULL}, -{EXT_ "POSITIVE-LONG-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_positive_long_float_p), 1, OBJNULL}, -{EXT_ "NON-NEGATIVE-LONG-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_negative_long_float_p), 1, OBJNULL}, -{EXT_ "NON-POSITIVE-LONG-FLOAT-P", EXT_ORDINARY, ECL_NAME(si_non_positive_long_float_p), 1, OBJNULL}, - -{EXT_ "ARRAY-INDEX-P", EXT_ORDINARY, ECL_NAME(si_array_index_p), 1, OBJNULL}, - -{EXT_ "SEQUENCE-STREAM", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "MAKE-SEQUENCE-INPUT-STREAM", EXT_ORDINARY, si_make_sequence_input_stream, -2, OBJNULL}, -{EXT_ "MAKE-SEQUENCE-OUTPUT-STREAM", EXT_ORDINARY, si_make_sequence_output_stream, -2, OBJNULL}, - -{EXT_ "CHMOD", EXT_ORDINARY, si_chmod, 2, OBJNULL}, - -{SYS_ "MISSING-KEYWORD", SI_ORDINARY, NULL, -1, OBJNULL}, - -{EXT_ "HASH-TABLE-CONTENT", EXT_ORDINARY, si_hash_table_content, 1, OBJNULL}, -{EXT_ "HASH-TABLE-FILL", EXT_ORDINARY, si_hash_table_fill, 2, OBJNULL}, - -{EXT_ "RANDOM-STATE-ARRAY", EXT_ORDINARY, si_random_state_array, 1, OBJNULL}, - -{SYS_ "REPORT-FUNCTION", SI_ORDINARY, NULL, -1, OBJNULL}, - -{SYS_ "DO-DEFSETF", SI_ORDINARY, ECL_NAME(si_do_defsetf), -3, OBJNULL}, -{SYS_ "DO-DEFINE-SETF-METHOD", SI_ORDINARY, ECL_NAME(si_do_define_setf_method), 2, OBJNULL}, - -{SYS_ "SETF-DEFINITION", SI_ORDINARY, ECL_NAME(si_setf_definition), 2, OBJNULL}, - -{EXT_ "ASSUME-NO-ERRORS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "ASSUME-TYPES-DONT-CHANGE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHECK-ARGUMENTS-TYPE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INLINE-ACCESSORS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INLINE-TYPE-CHECKS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "EVALUATE-FORMS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "TYPE-ASSERTIONS", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHECK-STACK-OVERFLOW", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "ARRAY-BOUNDS-CHECK", EXT_ORDINARY, NULL, -1, OBJNULL}, - -{KEY_ "VALUE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "KEY-AND-VALUE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "KEY-OR-VALUE", KEYWORD, NULL, -1, OBJNULL}, -{KEY_ "WEAKNESS", KEYWORD, NULL, -1, OBJNULL}, -{EXT_ "HASH-TABLE-WEAKNESS", EXT_ORDINARY, si_hash_table_weakness, 1, OBJNULL}, -{KEY_ "SYNCHRONIZED", KEYWORD, NULL, -1, OBJNULL}, -{EXT_ "HASH-TABLE-SYNCHRONIZED-P", EXT_ORDINARY, si_hash_table_synchronized_p, 1, OBJNULL}, - -{EXT_ "TRULY-THE", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "CHECKED-VALUE", EXT_ORDINARY, NULL, -1, OBJNULL}, - -{EXT_ "INSTALL-BYTECODES-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL}, -{EXT_ "INSTALL-C-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL}, - -{FFI_ "C-CHAR-BIT", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(CHAR_BIT)}, -{FFI_ "C-CHAR-MAX", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(CHAR_MAX)}, -{FFI_ "C-CHAR-MIN", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(CHAR_MIN)}, -{FFI_ "C-INT-MAX", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-INT-MIN", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-SHORT-MAX", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(SHRT_MAX)}, -{FFI_ "C-SHORT-MIN", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(SHRT_MIN)}, -{FFI_ "C-LONG-MAX", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-LONG-MIN", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-LONG-LONG-MAX",FFI_CONSTANT,NULL,-1,OBJNULL}, /* See main.d */ -{FFI_ "C-UCHAR-MAX", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(UCHAR_MAX)}, -{FFI_ "C-UINT-MAX", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-USHORT-MAX", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(USHRT_MAX)}, -{FFI_ "C-ULONG-MAX", FFI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */ -{FFI_ "C-ULONG-LONG-MAX",FFI_CONSTANT,NULL,-1,OBJNULL}, /* See main.d */ +{EXT_ "NEGATIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-FIXNUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-FIXNUM-P" ECL_FUN("si_negative_fixnum_p", ECL_NAME(si_negative_fixnum_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-FIXNUM-P" ECL_FUN("si_positive_fixnum_p", ECL_NAME(si_positive_fixnum_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-FIXNUM-P" ECL_FUN("si_non_negative_fixnum_p", ECL_NAME(si_non_negative_fixnum_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-FIXNUM-P" ECL_FUN("si_non_positive_fixnum_p", ECL_NAME(si_non_positive_fixnum_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-INTEGER-P" ECL_FUN("si_negative_integer_p", ECL_NAME(si_negative_integer_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-INTEGER-P" ECL_FUN("si_positive_integer_p", ECL_NAME(si_positive_integer_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-INTEGER-P" ECL_FUN("si_non_negative_integer_p", ECL_NAME(si_non_negative_integer_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-INTEGER-P" ECL_FUN("si_non_positive_integer_p", ECL_NAME(si_non_positive_integer_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-RATIONAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-RATIONAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-RATIONAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-RATIONAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-RATIONAL-P" ECL_FUN("si_negative_rational_p", ECL_NAME(si_negative_rational_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-RATIONAL-P" ECL_FUN("si_positive_rational_p", ECL_NAME(si_positive_rational_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-RATIONAL-P" ECL_FUN("si_non_negative_rational_p", ECL_NAME(si_non_negative_rational_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-RATIONAL-P" ECL_FUN("si_non_positive_rational_p", ECL_NAME(si_non_positive_rational_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-RATIO" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-RATIO" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-RATIO" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-RATIO" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-RATIO-P" ECL_FUN("si_negative_ratio_p", ECL_NAME(si_negative_ratio_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-RATIO-P" ECL_FUN("si_positive_ratio_p", ECL_NAME(si_positive_ratio_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-RATIO-P" ECL_FUN("si_non_negative_ratio_p", ECL_NAME(si_non_negative_ratio_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-RATIO-P" ECL_FUN("si_non_positive_ratio_p", ECL_NAME(si_non_positive_ratio_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-REAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-REAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-REAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-REAL" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-REAL-P" ECL_FUN("si_negative_real_p", ECL_NAME(si_negative_real_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-REAL-P" ECL_FUN("si_positive_real_p", ECL_NAME(si_positive_real_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-REAL-P" ECL_FUN("si_non_negative_real_p", ECL_NAME(si_non_negative_real_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-REAL-P" ECL_FUN("si_non_positive_real_p", ECL_NAME(si_non_positive_real_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-FLOAT-P" ECL_FUN("si_negative_float_p", ECL_NAME(si_negative_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-FLOAT-P" ECL_FUN("si_positive_float_p", ECL_NAME(si_positive_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-FLOAT-P" ECL_FUN("si_non_negative_float_p", ECL_NAME(si_non_negative_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-FLOAT-P" ECL_FUN("si_non_positive_float_p", ECL_NAME(si_non_positive_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-SHORT-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-SHORT-FLOAT-P" ECL_FUN("si_negative_short_float_p", ECL_NAME(si_negative_short_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-SHORT-FLOAT-P" ECL_FUN("si_positive_short_float_p", ECL_NAME(si_positive_short_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-SHORT-FLOAT-P" ECL_FUN("si_non_negative_short_float_p", ECL_NAME(si_non_negative_short_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-SHORT-FLOAT-P" ECL_FUN("si_non_positive_short_float_p", ECL_NAME(si_non_positive_short_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-SINGLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-SINGLE-FLOAT-P" ECL_FUN("si_negative_single_float_p", ECL_NAME(si_negative_single_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-SINGLE-FLOAT-P" ECL_FUN("si_positive_single_float_p", ECL_NAME(si_positive_single_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-SINGLE-FLOAT-P" ECL_FUN("si_non_negative_single_float_p", ECL_NAME(si_non_negative_single_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-SINGLE-FLOAT-P" ECL_FUN("si_non_positive_single_float_p", ECL_NAME(si_non_positive_single_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-DOUBLE-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-DOUBLE-FLOAT-P" ECL_FUN("si_negative_double_float_p", ECL_NAME(si_negative_double_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-DOUBLE-FLOAT-P" ECL_FUN("si_positive_double_float_p", ECL_NAME(si_positive_double_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT-P" ECL_FUN("si_non_negative_double_float_p", ECL_NAME(si_non_negative_double_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-DOUBLE-FLOAT-P" ECL_FUN("si_non_positive_double_float_p", ECL_NAME(si_non_positive_double_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "NEGATIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-LONG-FLOAT" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NEGATIVE-LONG-FLOAT-P" ECL_FUN("si_negative_long_float_p", ECL_NAME(si_negative_long_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "POSITIVE-LONG-FLOAT-P" ECL_FUN("si_positive_long_float_p", ECL_NAME(si_positive_long_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-NEGATIVE-LONG-FLOAT-P" ECL_FUN("si_non_negative_long_float_p", ECL_NAME(si_non_negative_long_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "NON-POSITIVE-LONG-FLOAT-P" ECL_FUN("si_non_positive_long_float_p", ECL_NAME(si_non_positive_long_float_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "ARRAY-INDEX-P" ECL_FUN("si_array_index_p", ECL_NAME(si_array_index_p), 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "SEQUENCE-STREAM" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-SEQUENCE-INPUT-STREAM" ECL_FUN("si_make_sequence_input_stream", si_make_sequence_input_stream, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "MAKE-SEQUENCE-OUTPUT-STREAM" ECL_FUN("si_make_sequence_output_stream", si_make_sequence_output_stream, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "CHMOD" ECL_FUN("si_chmod", si_chmod, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{SYS_ "MISSING-KEYWORD" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{EXT_ "HASH-TABLE-CONTENT" ECL_FUN("si_hash_table_content", si_hash_table_content, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "HASH-TABLE-FILL" ECL_FUN("si_hash_table_fill", si_hash_table_fill, 2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "RANDOM-STATE-ARRAY" ECL_FUN("si_random_state_array", si_random_state_array, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{SYS_ "REPORT-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{SYS_ "DO-DEFSETF" ECL_FUN("si_do_defsetf", ECL_NAME(si_do_defsetf), -3) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DO-DEFINE-SETF-METHOD" ECL_FUN("si_do_define_setf_method", ECL_NAME(si_do_define_setf_method), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{SYS_ "SETF-DEFINITION" ECL_FUN("si_setf_definition", ECL_NAME(si_setf_definition), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{EXT_ "ASSUME-NO-ERRORS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ASSUME-TYPES-DONT-CHANGE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHECK-ARGUMENTS-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INLINE-ACCESSORS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INLINE-TYPE-CHECKS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "EVALUATE-FORMS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "TYPE-ASSERTIONS" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHECK-STACK-OVERFLOW" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "ARRAY-BOUNDS-CHECK" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{KEY_ "VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "KEY-AND-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "KEY-OR-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{KEY_ "WEAKNESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{EXT_ "HASH-TABLE-WEAKNESS" ECL_FUN("si_hash_table_weakness", si_hash_table_weakness, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{KEY_ "SYNCHRONIZED" ECL_FUN(NULL, NULL, -1) ECL_VAR(KEYWORD, OBJNULL)}, +{EXT_ "HASH-TABLE-SYNCHRONIZED-P" ECL_FUN("si_hash_table_synchronized_p", si_hash_table_synchronized_p, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "TRULY-THE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CHECKED-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{EXT_ "INSTALL-BYTECODES-COMPILER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "INSTALL-C-COMPILER" ECL_FUN(NULL, NULL, -1) ECL_VAR(EXT_ORDINARY, OBJNULL)}, + +{FFI_ "C-CHAR-BIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(CHAR_BIT))}, +{FFI_ "C-CHAR-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(CHAR_MAX))}, +{FFI_ "C-CHAR-MIN" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(CHAR_MIN))}, +{FFI_ "C-INT-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-INT-MIN" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-SHORT-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(SHRT_MAX))}, +{FFI_ "C-SHORT-MIN" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(SHRT_MIN))}, +{FFI_ "C-LONG-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-LONG-MIN" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-LONG-LONG-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-UCHAR-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(UCHAR_MAX))}, +{FFI_ "C-UINT-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-USHORT-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(USHRT_MAX))}, +{FFI_ "C-ULONG-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, +{FFI_ "C-ULONG-LONG-MAX" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, #ifdef ecl_long_long_t -{FFI_ "C-LONG-LONG-BIT", FFI_CONSTANT, NULL, -1, ecl_make_fixnum(ECL_LONG_LONG_BITS)}, +{FFI_ "C-LONG-LONG-BIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, ecl_make_fixnum(ECL_LONG_LONG_BITS))}, #else -{FFI_ "C-LONG-LONG-BIT", FFI_CONSTANT, NULL, -1, OBJNULL}, +{FFI_ "C-LONG-LONG-BIT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_CONSTANT, OBJNULL)}, #endif -{FFI_ "*USE-DFFI*", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "+NULL-CSTRING-POINTER+", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "ALLOCATE-FOREIGN-OBJECT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "ALLOCATE-FOREIGN-STRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "C-INLINE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "C-PROGN", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CALLBACK", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CHAR*", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CHAR-ARRAY-TO-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CLINES", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CONVERT-FROM-CSTRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CONVERT-FROM-FOREIGN-STRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CONVERT-TO-CSTRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "CONVERT-TO-FOREIGN-STRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-ARRAY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-ARRAY-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-CONSTANT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-ENUM", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-FOREIGN-TYPE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-FOREIGN-VAR", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-FUNCTION", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-STRUCT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-TYPE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEF-UNION", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEFCALLBACK", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEFCBODY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEFENTRY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEFINLINE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEFLA", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEREF-ARRAY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DEREF-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "DOUBLE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "ENSURE-CHAR-CHARACTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "ENSURE-CHAR-INTEGER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "ENSURE-CHAR-STORABLE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "FIND-FOREIGN-LIBRARY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "FOREIGN-STRING-LENGTH", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "FREE-CSTRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "FREE-FOREIGN-OBJECT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "GET-SLOT-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "GET-SLOT-VALUE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "INT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "LOAD-FOREIGN-LIBRARY", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "MAKE-NULL-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "MAKE-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "NULL-CHAR-P", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "OBJECT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "POINTER-ADDRESS", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "SIZE-OF-FOREIGN-TYPE", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "VOID", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-CAST-POINTER", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-CSTRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-CSTRINGS", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-FOREIGN-OBJECT", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-FOREIGN-OBJECTS", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-FOREIGN-STRING", FFI_ORDINARY, NULL, -1, OBJNULL}, -{FFI_ "WITH-FOREIGN-STRINGS", FFI_ORDINARY, NULL, -1, OBJNULL}, - -{SYS_ "BIND-SIMPLE-RESTARTS", SI_ORDINARY, ECL_NAME(si_bind_simple_restarts), 2, OBJNULL}, -{SYS_ "BIND-SIMPLE-HANDLERS", SI_ORDINARY, ECL_NAME(si_bind_simple_handlers), 2, OBJNULL}, -{EXT_ "CONSTANT-FORM-VALUE", EXT_ORDINARY, si_constant_form_value, -2, OBJNULL}, -{EXT_ "CONSTANTP-INNER", EXT_ORDINARY, si_constantp_inner, -2, OBJNULL}, -{SYS_ "MAKE-BACKQ-VECTOR", SI_ORDINARY, si_make_backq_vector, 3, OBJNULL}, - -{SYS_ "RATIOP", SI_ORDINARY, ECL_NAME(si_ratiop), 1, OBJNULL}, -{SYS_ "SHORT-FLOAT-P", SI_ORDINARY, ECL_NAME(si_short_float_p), 1, OBJNULL}, -{SYS_ "SINGLE-FLOAT-P", SI_ORDINARY, ECL_NAME(si_single_float_p), 1, OBJNULL}, -{SYS_ "DOUBLE-FLOAT-P", SI_ORDINARY, ECL_NAME(si_double_float_p), 1, OBJNULL}, -{SYS_ "LONG-FLOAT-P", SI_ORDINARY, ECL_NAME(si_long_float_p), 1, OBJNULL}, - -{SYS_ "COPY-HASH-TABLE", SI_ORDINARY, si_copy_hash_table, 1, OBJNULL}, +{FFI_ "*USE-DFFI*" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "+NULL-CSTRING-POINTER+" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "ALLOCATE-FOREIGN-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "ALLOCATE-FOREIGN-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "C-INLINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "C-PROGN" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CALLBACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CHAR*" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CHAR-ARRAY-TO-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CLINES" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CONVERT-FROM-CSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CONVERT-FROM-FOREIGN-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CONVERT-TO-CSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "CONVERT-TO-FOREIGN-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-ARRAY-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-CONSTANT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-ENUM" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-FOREIGN-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-FOREIGN-VAR" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-FUNCTION" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-STRUCT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEF-UNION" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEFCALLBACK" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEFCBODY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEFENTRY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEFINLINE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEFLA" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEREF-ARRAY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DEREF-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "DOUBLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "ENSURE-CHAR-CHARACTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "ENSURE-CHAR-INTEGER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "ENSURE-CHAR-STORABLE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "FIND-FOREIGN-LIBRARY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "FOREIGN-STRING-LENGTH" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "FREE-CSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "FREE-FOREIGN-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "GET-SLOT-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "GET-SLOT-VALUE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "INT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "LOAD-FOREIGN-LIBRARY" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "MAKE-NULL-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "MAKE-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "NULL-CHAR-P" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "POINTER-ADDRESS" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "SIZE-OF-FOREIGN-TYPE" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "VOID" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-CAST-POINTER" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-CSTRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-CSTRINGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-FOREIGN-OBJECT" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-FOREIGN-OBJECTS" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-FOREIGN-STRING" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, +{FFI_ "WITH-FOREIGN-STRINGS" ECL_FUN(NULL, NULL, -1) ECL_VAR(FFI_ORDINARY, OBJNULL)}, + +{SYS_ "BIND-SIMPLE-RESTARTS" ECL_FUN("si_bind_simple_restarts", ECL_NAME(si_bind_simple_restarts), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "BIND-SIMPLE-HANDLERS" ECL_FUN("si_bind_simple_handlers", ECL_NAME(si_bind_simple_handlers), 2) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{EXT_ "CONSTANT-FORM-VALUE" ECL_FUN("si_constant_form_value", si_constant_form_value, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{EXT_ "CONSTANTP-INNER" ECL_FUN("si_constantp_inner", si_constantp_inner, -2) ECL_VAR(EXT_ORDINARY, OBJNULL)}, +{SYS_ "MAKE-BACKQ-VECTOR" ECL_FUN("si_make_backq_vector", si_make_backq_vector, 3) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{SYS_ "RATIOP" ECL_FUN("si_ratiop", ECL_NAME(si_ratiop), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SHORT-FLOAT-P" ECL_FUN("si_short_float_p", ECL_NAME(si_short_float_p), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "SINGLE-FLOAT-P" ECL_FUN("si_single_float_p", ECL_NAME(si_single_float_p), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "DOUBLE-FLOAT-P" ECL_FUN("si_double_float_p", ECL_NAME(si_double_float_p), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, +{SYS_ "LONG-FLOAT-P" ECL_FUN("si_long_float_p", ECL_NAME(si_long_float_p), 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, + +{SYS_ "COPY-HASH-TABLE" ECL_FUN("si_copy_hash_table", si_copy_hash_table, 1) ECL_VAR(SI_ORDINARY, OBJNULL)}, /* Tag for end of list */ -{NULL, CL_ORDINARY, NULL, -1, OBJNULL}}; +{NULL ECL_FUN(NULL, NULL, -1) ECL_VAR(CL_ORDINARY, OBJNULL)}}; + +#undef ECL_FUN +#undef ECL_VAR diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h deleted file mode 100644 index 4439fcbecf5eff7cfe8675e7506e674cb5d99385..0000000000000000000000000000000000000000 --- a/src/c/symbols_list2.h +++ /dev/null @@ -1,2433 +0,0 @@ -/* -*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*- */ -/* vim: set filetype=c tabstop=8 shiftwidth=4 expandtab: */ - -#ifdef ECL_CMU_FORMAT -# define ECL_NAME_PPRINT(x) ECL_NAME(x) -#else -# define ECL_NAME_PPRINT(x) NULL -#endif -#ifdef ECL_FINAL -# define ECL_NAME(x) x -#else -# define ECL_NAME(x) NULL -#endif -#ifdef DPP -#define CLOS_ "CLOS::" -#define EXT_ "EXT::" -#define SYS_ "SI::" -#define MP_ "MP::" -#define KEY_ ":" -#define GRAY_ "GRAY::" -#define FFI_ "FFI::" -typedef struct { - const char *name, *translation; - /* narg >= 0: function takes exactly narg arguments */ - /* narg < 0: function takes -narg-1 required arguments */ - int narg; -} cl_symbol_initializer; -#else -#include "ecl_constants.h" -#define CLOS_ -#define EXT_ -#define SYS_ -#define MP_ -#define KEY_ -#define GRAY_ -#define FFI_ -#endif -/* - * Conditional addition of functions and symbols. The list of symbols can - * not depend on the features, because otherwise the sources will and we will - * not be able to cross-compile. - */ -#ifdef ECL_THREADS -# define IF_MP(x) x -#else -# define IF_MP(x) NULL -#endif -#ifdef ECL_TCP -# define IF_TCP(x) x -#else -# define IF_TCP(x) NULL -#endif -#ifdef PROFILE -# define IF_PROFILE(x) x -#else -# define IF_PROFILE(x) NULL -#endif -#ifndef ECL_CLOS_STREAMS -# undef GRAY_ -# define GRAY_ SYS_ -#endif -#ifdef ECL_EXTERNALIZABLE -# define IF_EXTERNALIZABLE(x) x -#else -# define IF_EXTERNALIZABLE(x) NULL -#endif -#ifdef ECL_SSE2 -# define IF_SSE2(x) x -#else -# define IF_SSE2(x) NULL -#endif -#if defined(HAVE_LIBFFI) -# define IF_DFFI(x) x -#else -# define IF_DFFI(x) NULL -#endif -#ifdef ECL_COMPLEX_FLOAT -# define IF_COMPLEX_FLOAT(x) x -#else -# define IF_COMPLEX_FLOAT(x) NULL -#endif -#ifdef ECL_MS_WINDOWS_HOST -# define IF_WINDOWS(x) x -#else -# define IF_WINDOWS(x) NULL -#endif - -/* XXX When the symbol has the associated function its name must - follow the naming convention, otherwise si:mangle-name will - miscompile the symbol reference. See #534. -- jd 2019-12-04*/ - -cl_symbol_initializer -cl_symbols[] = { - -{"NIL",NULL,-1}, -{"T",NULL,-1}, -{SYS_ "UNBOUND","si_unbound",0}, -{SYS_ "PROTECT-TAG",NULL,-1}, -{SYS_ "DUMMY-TAG",NULL,-1}, -{SYS_ "*RESTART-CLUSTERS*",NULL,-1}, -{SYS_ "*HANDLER-CLUSTERS*",NULL,-1}, -{EXT_ "*INTERRUPTS-ENABLED*",NULL,1}, - -/* LISP PACKAGE */ -{"&ALLOW-OTHER-KEYS",NULL,-1}, -{"&AUX",NULL,-1}, -{"&BODY",NULL,-1}, -{"&ENVIRONMENT",NULL,-1}, -{"&KEY",NULL,-1}, -{"&OPTIONAL",NULL,-1}, -{"&REST",NULL,-1}, -{"&WHOLE",NULL,-1}, -{"+","cl_P",-1}, -{"++",NULL,-1}, -{"+++",NULL,-1}, -{"-","cl_M",-2}, -{"*","cl_X",-1}, -{"**",NULL,-1}, -{"***",NULL,-1}, -{"/","cl_N",-2}, -{"//",NULL,-1}, -{"///",NULL,-1}, -{"/=","cl_NE",-1}, -{"*BREAK-ON-SIGNALS*",NULL,-1}, -{"*COMPILE-FILE-PATHNAME*",NULL,-1}, -{"*COMPILE-FILE-TRUENAME*",NULL,-1}, -{"*COMPILE-PRINT*",NULL,-1}, -{"*COMPILE-VERBOSE*",NULL,-1}, -{"*DEBUG-IO*",NULL,-1}, -{"*DEBUGGER-HOOK*",NULL,-1}, -{"*DEFAULT-PATHNAME-DEFAULTS*",NULL,-1}, -{"*ERROR-OUTPUT*",NULL,-1}, -{"*FEATURES*",NULL,-1}, -{"*GENSYM-COUNTER*",NULL,-1}, -{"*LOAD-PATHNAME*",NULL,-1}, -{"*LOAD-PRINT*",NULL,-1}, -{"*LOAD-TRUENAME*",NULL,-1}, -{"*LOAD-VERBOSE*",NULL,-1}, -{"*MACROEXPAND-HOOK*",NULL,-1}, -{"*MODULES*",NULL,-1}, -{EXT_ "*MODULE-PROVIDER-FUNCTIONS*",NULL,-1}, -{"*PACKAGE*",NULL,-1}, -{"*PRINT-ARRAY*",NULL,-1}, -{"*PRINT-BASE*",NULL,-1}, -{"*PRINT-CASE*",NULL,-1}, -{"*PRINT-CIRCLE*",NULL,-1}, -{"*PRINT-ESCAPE*",NULL,-1}, -{"*PRINT-GENSYM*",NULL,-1}, -{"*PRINT-LENGTH*",NULL,-1}, -{"*PRINT-LEVEL*",NULL,-1}, -{"*PRINT-LINES*",NULL,-1}, -{"*PRINT-MISER-WIDTH*",NULL,-1}, -{"*PRINT-PPRINT-DISPATCH*",NULL,-1}, -#if defined(ECL_CMU_FORMAT) -{"*PRINT-PRETTY*",NULL,-1}, -#else -{"*PRINT-PRETTY*",NULL,-1}, -#endif -{"*PRINT-RADIX*",NULL,-1}, -{"*PRINT-READABLY*",NULL,-1}, -{"*PRINT-RIGHT-MARGIN*",NULL,-1}, -{"*QUERY-IO*",NULL,-1}, -{"*RANDOM-STATE*",NULL,-1}, -{"*READ-BASE*",NULL,-1}, -{"*READ-DEFAULT-FLOAT-FORMAT*",NULL,-1}, -{"*READ-EVAL*",NULL,-1}, -{"*READ-SUPPRESS*",NULL,-1}, -{"*READTABLE*",NULL,-1}, -{"*STANDARD-INPUT*",NULL,-1}, -{"*STANDARD-OUTPUT*",NULL,-1}, -{"*TERMINAL-IO*",NULL,-1}, -{"*TRACE-OUTPUT*",NULL,-1}, -{"1+","cl_1P",1}, -{"1-","cl_1M",1}, -{"<","cl_L",-1}, -{"<=","cl_LE",-1}, -{"=","cl_E",-2}, -{">","cl_G",-1}, -{">=","cl_GE",-1}, -{"ABORT","ECL_NAME(cl_abort)",-1}, -{"ABS","cl_abs",1}, -{"ACONS","cl_acons",3}, -{"ACOS","ECL_NAME(cl_acos)",1}, -{"ACOSH","ECL_NAME(cl_acosh)",1}, -{"ADJOIN","cl_adjoin",-3}, -{"ADJUST-ARRAY","ECL_NAME(cl_adjust_array)",-3}, -{"ADJUSTABLE-ARRAY-P","cl_adjustable_array_p",1}, -{"ALPHA-CHAR-P","cl_alpha_char_p",1}, -{"ALPHANUMERICP","cl_alphanumericp",1}, -{"AND",NULL,-1}, -{"APPEND","cl_append",-1}, -{"APPLY","cl_apply",-3}, -{"APROPOS","ECL_NAME(cl_apropos)",-2}, -{"APROPOS-LIST","ECL_NAME(cl_apropos_list)",-2}, -{"AREF","cl_aref",-2}, -{"ARITHMETIC-ERROR",NULL,-1}, -{"ARITHMETIC-ERROR-OPERANDS",NULL,-1}, -{"ARITHMETIC-ERROR-OPERATION",NULL,-1}, -{"ARRAY",NULL,-1}, -{"ARRAY-DIMENSION","cl_array_dimension",2}, -{"ARRAY-DIMENSION-LIMIT",NULL,-1}, -{"ARRAY-DIMENSIONS","ECL_NAME(cl_array_dimensions)",1}, -{"ARRAY-DISPLACEMENT","cl_array_displacement",1}, -{"ARRAY-ELEMENT-TYPE","cl_array_element_type",1}, -{"ARRAY-HAS-FILL-POINTER-P","cl_array_has_fill_pointer_p",1}, -{"ARRAY-IN-BOUNDS-P","ECL_NAME(cl_array_in_bounds_p)",-2}, -{"ARRAY-RANK","cl_array_rank",1}, -{"ARRAY-RANK-LIMIT",NULL,-1}, -{"ARRAY-ROW-MAJOR-INDEX","ECL_NAME(cl_array_row_major_index)",-2}, -{"ARRAY-TOTAL-SIZE","cl_array_total_size",1}, -{"ARRAY-TOTAL-SIZE-LIMIT",NULL,-1}, -{"ARRAYP","cl_arrayp",1}, -{"ASH","cl_ash",2}, -{"ASIN","ECL_NAME(cl_asin)",1}, -{"ASINH","ECL_NAME(cl_asinh)",1}, -{"ASSERT",NULL,-1}, -{"ASSOC","cl_assoc",-3}, -{"ASSOC-IF","ECL_NAME(cl_assoc_if)",-3}, -{"ASSOC-IF-NOT","ECL_NAME(cl_assoc_if_not)",-3}, -{"ATAN","cl_atan",-2}, -{"ATANH","ECL_NAME(cl_atanh)",1}, -{"ATOM","cl_atom",1}, -{"BASE-CHAR",NULL,-1}, -{"BASE-STRING",NULL,-1}, -{"BIGNUM",NULL,-1}, -{"BIT","ECL_NAME(cl_bit)",-2}, -{"BIT-AND","ECL_NAME(cl_bit_and)",-3}, -{"BIT-ANDC1","ECL_NAME(cl_bit_andc1)",-3}, -{"BIT-ANDC2","ECL_NAME(cl_bit_andc2)",-3}, -{"BIT-EQV","ECL_NAME(cl_bit_eqv)",-3}, -{"BIT-IOR","ECL_NAME(cl_bit_ior)",-3}, -{"BIT-NAND","ECL_NAME(cl_bit_nand)",-3}, -{"BIT-NOR","ECL_NAME(cl_bit_nor)",-3}, -{"BIT-NOT","ECL_NAME(cl_bit_not)",-2}, -{"BIT-ORC1","ECL_NAME(cl_bit_orc1)",-3}, -{"BIT-ORC2","ECL_NAME(cl_bit_orc2)",-3}, -{"BIT-VECTOR",NULL,-1}, -{"BIT-VECTOR-P","cl_bit_vector_p",1}, -{"BIT-XOR","ECL_NAME(cl_bit_xor)",-3}, -{"BLOCK",NULL,-1}, -{"BOOLE","cl_boole",3}, -{"BOOLE-1",NULL,-1}, -{"BOOLE-2",NULL,-1}, -{"BOOLE-AND",NULL,-1}, -{"BOOLE-ANDC1",NULL,-1}, -{"BOOLE-ANDC2",NULL,-1}, -{"BOOLE-C1",NULL,-1}, -{"BOOLE-C2",NULL,-1}, -{"BOOLE-CLR",NULL,-1}, -{"BOOLE-EQV",NULL,-1}, -{"BOOLE-IOR",NULL,-1}, -{"BOOLE-NAND",NULL,-1}, -{"BOOLE-NOR",NULL,-1}, -{"BOOLE-ORC1",NULL,-1}, -{"BOOLE-ORC2",NULL,-1}, -{"BOOLE-SET",NULL,-1}, -{"BOOLE-XOR",NULL,-1}, -{"BOOLEAN",NULL,-1}, -{"BOTH-CASE-P","cl_both_case_p",1}, -{"BOUNDP","cl_boundp",1}, -{"BREAK",NULL,-1}, -{"BROADCAST-STREAM",NULL,-1}, -{"BROADCAST-STREAM-STREAMS","cl_broadcast_stream_streams",1}, -{"BUTLAST","cl_butlast",-2}, -{"BYTE","ECL_NAME(cl_byte)",2}, -{"BYTE-POSITION","ECL_NAME(cl_byte_position)",1}, -{"BYTE-SIZE","ECL_NAME(cl_byte_size)",1}, -{"CAAAAR","cl_caaaar",1}, -{"CAAADR","cl_caaadr",1}, -{"CAAAR","cl_caaar",1}, -{"CAADAR","cl_caadar",1}, -{"CAADDR","cl_caaddr",1}, -{"CAADR","cl_caadr",1}, -{"CAAR","cl_caar",1}, -{"CADAAR","cl_cadaar",1}, -{"CADADR","cl_cadadr",1}, -{"CADAR","cl_cadar",1}, -{"CADDAR","cl_caddar",1}, -{"CADDDR","cl_cadddr",1}, -{"CADDR","cl_caddr",1}, -{"CADR","cl_cadr",1}, -{"CALL-ARGUMENTS-LIMIT",NULL,-1}, -{"CAR","cl_car",1}, -{"CASE",NULL,-1}, -{"CATCH",NULL,-1}, -{"CCASE",NULL,-1}, -{"CDAAAR","cl_cdaaar",1}, -{"CDAADR","cl_cdaadr",1}, -{"CDAAR","cl_cdaar",1}, -{"CDADAR","cl_cdadar",1}, -{"CDADDR","cl_cdaddr",1}, -{"CDADR","cl_cdadr",1}, -{"CDAR","cl_cdar",1}, -{"CDDAAR","cl_cddaar",1}, -{"CDDADR","cl_cddadr",1}, -{"CDDAR","cl_cddar",1}, -{"CDDDAR","cl_cdddar",1}, -{"CDDDDR","cl_cddddr",1}, -{"CDDDR","cl_cdddr",1}, -{"CDDR","cl_cddr",1}, -{"CDR","cl_cdr",1}, -{"CEILING","cl_ceiling",-2}, -{"CELL-ERROR",NULL,-1}, -{"CELL-ERROR-NAME",NULL,-1}, -{"CERROR","cl_cerror",-3}, -{"CHAR","cl_char",2}, -{"CHAR-CODE","cl_char_code",1}, -{"CHAR-CODE-LIMIT",NULL,-1}, -{"CHAR-DOWNCASE","cl_char_downcase",1}, -{"CHAR-EQUAL","cl_char_equal",-2}, -{"CHAR-GREATERP","cl_char_greaterp",-1}, -{"CHAR-INT","cl_char_int",1}, -{"CHAR-LESSP","cl_char_lessp",-1}, -{"CHAR-NAME","cl_char_name",1}, -{"CHAR-NOT-EQUAL","cl_char_not_equal",-1}, -{"CHAR-NOT-GREATERP","cl_char_not_greaterp",-1}, -{"CHAR-NOT-LESSP","cl_char_not_lessp",-1}, -{"CHAR-UPCASE","cl_char_upcase",1}, -{"CHAR/=","cl_charNE",-1}, -{"CHAR<","cl_charL",-1}, -{"CHAR<=","cl_charLE",-1}, -{"CHAR=","cl_charE",-2}, -{"CHAR>","cl_charG",-1}, -{"CHAR>=","cl_charGE",-1}, -{"CHARACTER","cl_character",1}, -{"CHARACTERP","cl_characterp",1}, -{"CHECK-TYPE",NULL,-1}, -{"CIS","ECL_NAME(cl_cis)",1}, -{"CLEAR-INPUT","cl_clear_input",-1}, -{"CLEAR-OUTPUT","cl_clear_output",-1}, -{"CLOSE","cl_close",-2}, -{"CLRHASH","cl_clrhash",1}, -{"CODE-CHAR","cl_code_char",1}, -{"COERCE","ECL_NAME(cl_coerce)",2}, -{"COMPILATION-SPEED",NULL,-1}, -{"COMPILE",NULL,-1}, -{"COMPILE-FILE",NULL,-1}, -{"COMPILE-FILE-PATHNAME",NULL,-1}, -{"COMPILED-FUNCTION",NULL,-1}, -{"COMPILED-FUNCTION-P","cl_compiled_function_p",1}, -{"COMPILER-MACRO",NULL,-1}, -{"COMPILER-MACRO-FUNCTION",NULL,-1}, -{"COMPLEMENT","ECL_NAME(cl_complement)",1}, -{"COMPLEX","cl_complex",-2}, -{"COMPLEXP","cl_complexp",1}, -{"COMPUTE-RESTARTS","ECL_NAME(cl_compute_restarts)",-1}, -{"CONCATENATE","ECL_NAME(cl_concatenate)",-2}, -{"CONCATENATED-STREAM",NULL,-1}, -{"CONCATENATED-STREAM-STREAMS","cl_concatenated_stream_streams",1}, -{"COND",NULL,-1}, -{"CONDITION",NULL,-1}, -{"CONJUGATE","cl_conjugate",1}, -{"CONTINUE","ECL_NAME(cl_continue)",-1}, -{"CONS","cl_cons",2}, -{"CONSP","cl_consp",1}, -{"CONSTANTLY","ECL_NAME(cl_constantly)",1}, -{"CONSTANTP","cl_constantp",-2}, -{"CONTROL-ERROR",NULL,-1}, -{"COPY-ALIST","cl_copy_alist",1}, -{"COPY-LIST","cl_copy_list",1}, -{"COPY-PPRINT-DISPATCH","ECL_NAME_PPRINT(cl_copy_pprint_dispatch)",-1}, -{"COPY-READTABLE","cl_copy_readtable",-1}, -{"COPY-SEQ","cl_copy_seq",1}, -{"COPY-STRUCTURE","cl_copy_structure",1}, -{"COPY-SYMBOL","cl_copy_symbol",-2}, -{"COPY-TREE","cl_copy_tree",1}, -{"COS","cl_cos",1}, -{"COSH","cl_cosh",1}, -{"COUNT","ECL_NAME(cl_count)",-3}, -{"COUNT-IF","ECL_NAME(cl_count_if)",-3}, -{"COUNT-IF-NOT","ECL_NAME(cl_count_if_not)",-3}, -{"CTYPECASE",NULL,-1}, -{"DEBUG",NULL,-1}, -{"DECF",NULL,-1}, -{"DECLAIM",NULL,-1}, -{"DECLARATION",NULL,-1}, -{"DECLARE",NULL,-1}, -{"DECODE-FLOAT","cl_decode_float",1}, -{"DECODE-UNIVERSAL-TIME","ECL_NAME(cl_decode_universal_time)",-2}, -{"DEFCONSTANT",NULL,-1}, -{"DEFINE-CONDITION",NULL,-1}, -{"DEFINE-COMPILER-MACRO",NULL,-1}, -{"DEFINE-MODIFY-MACRO",NULL,-1}, -{"DEFINE-SETF-EXPANDER",NULL,-1}, -{"DEFINE-SYMBOL-MACRO",NULL,-1}, -{"DEFMACRO",NULL,-1}, -{"DEFPACKAGE",NULL,-1}, -{"DEFPARAMETER",NULL,-1}, -{"DEFSETF",NULL,-1}, -{"DEFSTRUCT",NULL,-1}, -{"DEFTYPE",NULL,-1}, -{"DEFUN",NULL,-1}, -{"DEFVAR",NULL,-1}, -{"DELETE","ECL_NAME(cl_delete)",-3}, -{"DELETE-DUPLICATES","ECL_NAME(cl_delete_duplicates)",-2}, -{"DELETE-FILE","cl_delete_file",1}, -{"DELETE-IF","ECL_NAME(cl_delete_if)",-3}, -{"DELETE-IF-NOT","ECL_NAME(cl_delete_if_not)",-3}, -{"DELETE-PACKAGE","cl_delete_package",1}, -{"DENOMINATOR","cl_denominator",1}, -{"DEPOSIT-FIELD","ECL_NAME(cl_deposit_field)",3}, -{"DESCRIBE","ECL_NAME(cl_describe)",-2}, -{"DESTRUCTURING-BIND",NULL,-1}, -{"DIGIT-CHAR","cl_digit_char",-2}, -{"DIGIT-CHAR-P","cl_digit_char_p",-2}, -{"DIRECTORY","cl_directory",-2}, -{"DIRECTORY-NAMESTRING","cl_directory_namestring",1}, -{"DISASSEMBLE",NULL,-1}, -{"DIVISION-BY-ZERO",NULL,-1}, -{"DO",NULL,-1}, -{"DO*",NULL,-1}, -{"DO-ALL-SYMBOLS",NULL,-1}, -{"DO-EXTERNAL-SYMBOLS",NULL,-1}, -{"DO-SYMBOLS",NULL,-1}, -{"DOCUMENTATION",NULL,-1}, -{"DOLIST",NULL,-1}, -{"DOTIMES",NULL,-1}, -{"DOUBLE-FLOAT",NULL,-1}, -{"DOUBLE-FLOAT-EPSILON",NULL,-1}, -{"DOUBLE-FLOAT-NEGATIVE-EPSILON",NULL,-1}, -{"DPB","ECL_NAME(cl_dpb)",3}, -{"DRIBBLE","ECL_NAME(cl_dribble)",-1}, -{"DYNAMIC-EXTENT",NULL,-1}, -{"ECASE",NULL,-1}, -{"ECHO-STREAM",NULL,-1}, -{"ECHO-STREAM-INPUT-STREAM","cl_echo_stream_input_stream",1}, -{"ECHO-STREAM-OUTPUT-STREAM","cl_echo_stream_output_stream",1}, -{"ED",NULL,-1}, -{"EIGHTH","cl_eighth",1}, -{"ELT","cl_elt",2}, -{"ENCODE-UNIVERSAL-TIME","ECL_NAME(cl_encode_universal_time)",-7}, -{"END-OF-FILE",NULL,-1}, -{"ENDP","cl_endp",1}, -{"ENOUGH-NAMESTRING","cl_enough_namestring",-2}, -{"ENSURE-DIRECTORIES-EXIST","ECL_NAME(cl_ensure_directories_exist)",-2}, -{"EQ","cl_eq",2}, -{"EQL","cl_eql",2}, -{"EQUAL","cl_equal",2}, -{"EQUALP","cl_equalp",2}, -{"ERROR","cl_error",-2}, -{"ETYPECASE",NULL,-1}, -{"EVAL","cl_eval",1}, -{"EVAL-WHEN",NULL,-1}, -{"EVENP","cl_evenp",1}, -{"EVERY","ECL_NAME(cl_every)",-3}, -{"EXP","cl_exp",1}, -{"EXPORT","cl_export",-2}, -{"EXPT","cl_expt",2}, -{"EXTENDED-CHAR",NULL,-1}, -{"FBOUNDP","cl_fboundp",1}, -{"FCEILING","ECL_NAME(cl_fceiling)",-2}, -{"FDEFINITION","cl_fdefinition",1}, -{"FFLOOR","ECL_NAME(cl_ffloor)",-2}, -{"FIFTH","cl_fifth",1}, -{"FILE-AUTHOR","cl_file_author",1}, -{"FILE-ERROR",NULL,-1}, -{"FILE-ERROR-PATHNAME",NULL,-1}, -{"FILE-LENGTH","cl_file_length",1}, -{"FILE-NAMESTRING","cl_file_namestring",1}, -{"FILE-POSITION","cl_file_position",-2}, -{"FILE-STREAM",NULL,-1}, -{"FILE-STRING-LENGTH","cl_file_string_length",2}, -{"FILE-WRITE-DATE","cl_file_write_date",1}, -{"FILL","ECL_NAME(cl_fill)",-3}, -{"FILL-POINTER","cl_fill_pointer",1}, -{"FIND","ECL_NAME(cl_find)",-3}, -{"FIND-ALL-SYMBOLS","ECL_NAME(cl_find_all_symbols)",1}, -{"FIND-IF","ECL_NAME(cl_find_if)",-3}, -{"FIND-IF-NOT","ECL_NAME(cl_find_if_not)",-3}, -{"FIND-PACKAGE","cl_find_package",1}, -{"FIND-RESTART","ECL_NAME(cl_find_restart)",-2}, -{"FIND-SYMBOL","cl_find_symbol",-2}, -{"FINISH-OUTPUT","cl_finish_output",-1}, -{"FIRST","cl_car",1}, -{"FIXNUM",NULL,-1}, -{"FLET",NULL,-1}, -{"FLOAT","cl_float",-2}, -{"FLOAT-DIGITS","cl_float_digits",1}, -{"FLOAT-PRECISION","cl_float_precision",1}, -{"FLOAT-RADIX","cl_float_radix",1}, -{"FLOAT-SIGN","cl_float_sign",-2}, -{"FLOATING-POINT-INEXACT",NULL,-1}, -{"FLOATING-POINT-INVALID-OPERATION",NULL,-1}, -{"FLOATING-POINT-OVERFLOW",NULL,-1}, -{"FLOATING-POINT-UNDERFLOW",NULL,-1}, -{"FLOATP","cl_floatp",1}, -{"FLOOR","cl_floor",-2}, -{"FMAKUNBOUND","cl_fmakunbound",1}, -{"FORCE-OUTPUT","cl_force_output",-1}, -{"FORMAT","cl_format",-3}, -{"FORMATTER",NULL,-1}, -{"FOURTH","cl_cadddr",1}, -{"FRESH-LINE","cl_fresh_line",-1}, -{"FROUND","ECL_NAME(cl_fround)",-2}, -{"FTRUNCATE","ECL_NAME(cl_ftruncate)",-2}, -{"FTYPE",NULL,-1}, -{"FUNCALL","cl_funcall",-2}, -{"FUNCTION-LAMBDA-EXPRESSION","cl_function_lambda_expression",1}, -{"FUNCTION",NULL,-1}, -{"FUNCTION-KEYWORDS",NULL,-1}, -{"FUNCTIONP","cl_functionp",1}, -{"GCD","cl_gcd",-1}, -{"GENSYM","cl_gensym",-1}, -{"GENTEMP","cl_gentemp",-1}, -{"GET","cl_get",-3}, -{"GET-DECODED-TIME","ECL_NAME(cl_get_decoded_time)",0}, -{"GET-DISPATCH-MACRO-CHARACTER","cl_get_dispatch_macro_character",-3}, -{"GET-INTERNAL-REAL-TIME","cl_get_internal_real_time",0}, -{"GET-INTERNAL-RUN-TIME","cl_get_internal_run_time",0}, -{"GET-MACRO-CHARACTER","cl_get_macro_character",-2}, -{"GET-OUTPUT-STREAM-STRING","cl_get_output_stream_string",1}, -{"GET-PROPERTIES","cl_get_properties",2}, -{"GET-SETF-EXPANSION",NULL,-1}, -{"GET-UNIVERSAL-TIME","cl_get_universal_time",0}, -{"GETF","cl_getf",-3}, -{"GETHASH","cl_gethash",-3}, -{"GO",NULL,-1}, -{"GRAPHIC-CHAR-P","cl_graphic_char_p",1}, -{"HANDLER-CASE",NULL,-1}, -{"HANDLER-BIND",NULL,-1}, -{"HASH-TABLE",NULL,-1}, -{"HASH-TABLE-COUNT","cl_hash_table_count",1}, -{"HASH-TABLE-P","cl_hash_table_p",1}, -{"HASH-TABLE-REHASH-SIZE","cl_hash_table_rehash_size",1}, -{"HASH-TABLE-REHASH-THRESHOLD","cl_hash_table_rehash_threshold",1}, -{"HASH-TABLE-SIZE","cl_hash_table_size",1}, -{"HASH-TABLE-TEST","cl_hash_table_test",1}, -{"HOST-NAMESTRING","cl_host_namestring",1}, -{"IDENTITY","cl_identity",1}, -{"IGNORABLE",NULL,-1}, -{"IGNORE",NULL,-1}, -{"IGNORE-ERRORS",NULL,-1}, -{"IMAGPART","cl_imagpart",1}, -{"IMPORT","cl_import",-2}, -{"IN-PACKAGE",NULL,-1}, -{"INCF",NULL,-1}, -{"INLINE",NULL,-1}, -{"INPUT-STREAM-P","cl_input_stream_p",1}, -{"INSPECT","ECL_NAME(cl_inspect)",1}, -{"INTEGER",NULL,-1}, -{"INTEGER-DECODE-FLOAT","cl_integer_decode_float",1}, -{"INTEGER-LENGTH","cl_integer_length",1}, -{"INTEGERP","cl_integerp",1}, -{"INTERACTIVE-STREAM-P","cl_interactive_stream_p",1}, -{"INTERN","cl_intern",-2}, -{"INTERNAL-TIME-UNITS-PER-SECOND",NULL,-1}, -{"INTERSECTION","ECL_NAME(cl_intersection)",-3}, -{"INVOKE-DEBUGGER",NULL,-1}, -{"INVOKE-RESTART","ECL_NAME(cl_invoke_restart)",-2}, -{"INVOKE-RESTART-INTERACTIVELY","ECL_NAME(cl_invoke_restart_interactively)",1}, -{"ISQRT","ECL_NAME(cl_isqrt)",1}, -{"KEYWORD",NULL,-1}, -{"KEYWORDP","cl_keywordp",1}, -{"LABELS",NULL,-1}, -{"LAMBDA",NULL,-1}, -{"LAMBDA-LIST-KEYWORDS",NULL,-1}, -{"LAMBDA-PARAMETERS-LIMIT",NULL,-1}, -{"LAST","cl_last",-2}, -{"LCM","cl_lcm",-1}, -{"LDB","ECL_NAME(cl_ldb)",2}, -{"LDB-TEST","ECL_NAME(cl_ldb_test)",2}, -{"LDIFF","cl_ldiff",2}, -{"LEAST-NEGATIVE-DOUBLE-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-LONG-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-SHORT-FLOAT",NULL,-1}, -{"LEAST-NEGATIVE-SINGLE-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-DOUBLE-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-LONG-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-NORMALIZED-LONG-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-SHORT-FLOAT",NULL,-1}, -{"LEAST-POSITIVE-SINGLE-FLOAT",NULL,-1}, -{"LENGTH","cl_length",1}, -{"LET",NULL,-1}, -{"LET*",NULL,-1}, -{"LISP-IMPLEMENTATION-TYPE","ECL_NAME(cl_lisp_implementation_type)",0}, -{"LISP-IMPLEMENTATION-VERSION","ECL_NAME(cl_lisp_implementation_version)",0}, -{"LIST","cl_list",-1}, -{"LIST*","cl_listX",-1}, -{"LIST-ALL-PACKAGES","cl_list_all_packages",0}, -{"LIST-LENGTH","cl_list_length",1}, -{"LISTEN","cl_listen",-1}, -{"LISTP","cl_listp",1}, -{"LOAD","cl_load",-2}, -{"LOAD-LOGICAL-PATHNAME-TRANSLATIONS","ECL_NAME(cl_load_logical_pathname_translations)",1}, -{"LOAD-TIME-VALUE",NULL,-1}, -{"LOCALLY",NULL,-1}, -{"LOG","cl_log",-2}, -{"LOGAND","cl_logand",-1}, -{"LOGANDC1","cl_logandc1",2}, -{"LOGANDC2","cl_logandc2",2}, -{"LOGBITP","cl_logbitp",2}, -{"LOGCOUNT","cl_logcount",1}, -{"LOGEQV","cl_logeqv",-1}, -{"LOGICAL-PATHNAME","cl_logical_pathname",1}, -{"LOGICAL-PATHNAME-TRANSLATIONS","ECL_NAME(cl_logical_pathname_translations)",1}, -{"LOGIOR","cl_logior",-1}, -{"LOGNAND","cl_lognand",2}, -{"LOGNOR","cl_lognor",2}, -{"LOGNOT","cl_lognot",1}, -{"LOGORC1","cl_logorc1",2}, -{"LOGORC2","cl_logorc2",2}, -{"LOGTEST","ECL_NAME(cl_logtest)",2}, -{"LOGXOR","cl_logxor",-1}, -{"LONG-FLOAT",NULL,-1}, -{"LONG-FLOAT-EPSILON",NULL,-1}, -{"LONG-FLOAT-NEGATIVE-EPSILON",NULL,-1}, -{"LONG-SITE-NAME","ECL_NAME(cl_long_site_name)",0}, -{"LOOP",NULL,-1}, -{"LOOP-FINISH",NULL,-1}, -{"LOWER-CASE-P","cl_lower_case_p",1}, -{"MACHINE-INSTANCE","ECL_NAME(cl_machine_instance)",0}, -{"MACHINE-TYPE","ECL_NAME(cl_machine_type)",0}, -{"MACHINE-VERSION","ECL_NAME(cl_machine_version)",0}, -{"MACRO-FUNCTION","cl_macro_function",-2}, -{"MACROEXPAND","cl_macroexpand",-2}, -{"MACROEXPAND-1","cl_macroexpand_1",-2}, -{"MACROLET",NULL,-1}, -{"MAKE-ARRAY","ECL_NAME(cl_make_array)",-2}, -{"MAKE-BROADCAST-STREAM","cl_make_broadcast_stream",-1}, -{"MAKE-CONDITION","ECL_NAME(cl_make_condition)",-2}, -{"MAKE-CONCATENATED-STREAM","cl_make_concatenated_stream",-1}, -{"MAKE-DISPATCH-MACRO-CHARACTER","cl_make_dispatch_macro_character",-2}, -{"MAKE-ECHO-STREAM","cl_make_echo_stream",2}, -{"MAKE-HASH-TABLE","cl_make_hash_table",-1}, -{"MAKE-LIST","cl_make_list",-2}, -{"MAKE-PACKAGE","cl_make_package",-2}, -{"MAKE-PATHNAME","cl_make_pathname",-1}, -{"MAKE-RANDOM-STATE","cl_make_random_state",-1}, -{"MAKE-SEQUENCE","ECL_NAME(cl_make_sequence)",-3}, -{"MAKE-STRING","cl_make_string",-2}, -{"MAKE-STRING-INPUT-STREAM","cl_make_string_input_stream",-2}, -{"MAKE-STRING-OUTPUT-STREAM","cl_make_string_output_stream",-1}, -{"MAKE-SYMBOL","cl_make_symbol",1}, -{"MAKE-SYNONYM-STREAM","cl_make_synonym_stream",1}, -{"MAKE-TWO-WAY-STREAM","cl_make_two_way_stream",2}, -{"MAKUNBOUND","cl_makunbound",1}, -{"MAP","ECL_NAME(cl_map)",-4}, -{"MAP-INTO","ECL_NAME(cl_map_into)",-3}, -{"MAPC","cl_mapc",-2}, -{"MAPCAN","cl_mapcan",-2}, -{"MAPCAR","cl_mapcar",-2}, -{"MAPCON","cl_mapcon",-2}, -{"MAPHASH","cl_maphash",2}, -{"MAPL","cl_mapl",-2}, -{"MAPLIST","cl_maplist",-2}, -{"MASK-FIELD","ECL_NAME(cl_mask_field)",2}, -{"MAX","cl_max",-2}, -{"MEMBER","cl_member",-3}, -{"MEMBER-IF","ECL_NAME(cl_member_if)",-3}, -{"MEMBER-IF-NOT","ECL_NAME(cl_member_if_not)",-3}, -{"MERGE","ECL_NAME(cl_merge)",-5}, -{"MERGE-PATHNAMES","cl_merge_pathnames",-2}, -{"MIN","cl_min",-2}, -{"MINUSP","cl_minusp",1}, -{"MISMATCH","ECL_NAME(cl_mismatch)",-3}, -{"MOD","cl_mod",2}, -{"MOST-NEGATIVE-DOUBLE-FLOAT",NULL,-1}, -{"MOST-NEGATIVE-FIXNUM",NULL,-1}, -{"MOST-NEGATIVE-LONG-FLOAT",NULL,-1}, -{"MOST-NEGATIVE-SHORT-FLOAT",NULL,-1}, -{"MOST-NEGATIVE-SINGLE-FLOAT",NULL,-1}, -{"MOST-POSITIVE-DOUBLE-FLOAT",NULL,-1}, -{"MOST-POSITIVE-FIXNUM",NULL,-1}, -{"MOST-POSITIVE-LONG-FLOAT",NULL,-1}, -{"MOST-POSITIVE-SHORT-FLOAT",NULL,-1}, -{"MOST-POSITIVE-SINGLE-FLOAT",NULL,-1}, -{"MUFFLE-WARNING","ECL_NAME(cl_muffle_warning)",-1}, -{"MULTIPLE-VALUE-BIND",NULL,-1}, -{"MULTIPLE-VALUE-CALL",NULL,-1}, -{"MULTIPLE-VALUE-LIST",NULL,-1}, -{"MULTIPLE-VALUE-PROG1",NULL,-1}, -{"MULTIPLE-VALUE-SETQ",NULL,-1}, -{"MULTIPLE-VALUES-LIMIT",NULL,-1}, -{"NAME-CHAR","cl_name_char",1}, -{"NAMESTRING","cl_namestring",1}, -{"NBUTLAST","cl_nbutlast",-2}, -{"NCONC","cl_nconc",-1}, -{"NINTERSECTION","ECL_NAME(cl_nintersection)",-3}, -{"NINTH","cl_ninth",1}, -{"NOT","cl_not",1}, -{"NOTANY","ECL_NAME(cl_notany)",-3}, -{"NOTEVERY","ECL_NAME(cl_notevery)",-3}, -{"NOTINLINE",NULL,-1}, -{"NRECONC","cl_nreconc",2}, -{"NREVERSE","cl_nreverse",1}, -{"NSET-DIFFERENCE","ECL_NAME(cl_nset_difference)",-3}, -{"NSET-EXCLUSIVE-OR","ECL_NAME(cl_nset_exclusive_or)",-3}, -{"NSTRING-CAPITALIZE","cl_nstring_capitalize",-1}, -{"NSTRING-DOWNCASE","cl_nstring_downcase",-1}, -{"NSTRING-UPCASE","cl_nstring_upcase",-1}, -{"NSUBLIS","cl_nsublis",-3}, -{"NSUBST","cl_nsubst",-4}, -{"NSUBST-IF","ECL_NAME(cl_nsubst_if)",-4}, -{"NSUBST-IF-NOT","ECL_NAME(cl_nsubst_if_not)",-4}, -{"NSUBSTITUTE","ECL_NAME(cl_nsubstitute)",-4}, -{"NSUBSTITUTE-IF","ECL_NAME(cl_nsubstitute_if)",-4}, -{"NSUBSTITUTE-IF-NOT","ECL_NAME(cl_nsubstitute_if_not)",-4}, -{"NTH","cl_nth",2}, -{"NTH-VALUE",NULL,-1}, -{"NTHCDR","cl_nthcdr",2}, -{"NULL","cl_null",1}, -{"NUMBER",NULL,-1}, -{"NUMBERP","cl_numberp",1}, -{"NUMERATOR","cl_numerator",1}, -{"NUNION","ECL_NAME(cl_nunion)",-3}, -{"ODDP","cl_oddp",1}, -{"OPEN","cl_open",-2}, -{"OPEN-STREAM-P","cl_open_stream_p",1}, -{"OPTIMIZE",NULL,-1}, -{"OR",NULL,-1}, -{"OTHERWISE",NULL,-1}, -{"OUTPUT-STREAM-P","cl_output_stream_p",1}, -{"PACKAGE",NULL,-1}, -{"PACKAGE-ERROR",NULL,-1}, -{"PACKAGE-ERROR-PACKAGE",NULL,-1}, -{"PACKAGE-NAME","cl_package_name",1}, -{"PACKAGE-NICKNAMES","cl_package_nicknames",1}, -{"PACKAGE-SHADOWING-SYMBOLS","cl_package_shadowing_symbols",1}, -{"PACKAGE-USE-LIST","cl_package_use_list",1}, -{"PACKAGE-USED-BY-LIST","cl_package_used_by_list",1}, -{"PACKAGEP","cl_packagep",1}, -{"PAIRLIS","cl_pairlis",-3}, -{"PARSE-ERROR",NULL,-1}, -{"PARSE-INTEGER","cl_parse_integer",-2}, -{"PARSE-NAMESTRING","cl_parse_namestring",-2}, -{"PATHNAME","cl_pathname",1}, -{"PATHNAME-DEVICE","cl_pathname_device",-2}, -{"PATHNAME-DIRECTORY","cl_pathname_directory",-2}, -{"PATHNAME-HOST","cl_pathname_host",-2}, -{"PATHNAME-MATCH-P","cl_pathname_match_p",2}, -{"PATHNAME-NAME","cl_pathname_name",-2}, -{"PATHNAME-TYPE","cl_pathname_type",-2}, -{"PATHNAME-VERSION","cl_pathname_version",1}, -{"PATHNAMEP","cl_pathnamep",1}, -{"PEEK-CHAR","cl_peek_char",-1}, -{"PHASE","ECL_NAME(cl_phase)",1}, -{"PI",NULL,-1}, -{"PLUSP","cl_plusp",1}, -{"POP",NULL,-1}, -{"POSITION","ECL_NAME(cl_position)",-3}, -{"POSITION-IF","ECL_NAME(cl_position_if)",-3}, -{"POSITION-IF-NOT","ECL_NAME(cl_position_if_not)",-3}, -{"PPRINT","cl_pprint",-2}, -{"PPRINT-DISPATCH","ECL_NAME_PPRINT(cl_pprint_dispatch)",-2}, -{"PPRINT-EXIT-IF-LIST-EXHAUSTED",NULL,-1}, -{"PPRINT-FILL","ECL_NAME_PPRINT(cl_pprint_fill)",-3}, -{"PPRINT-INDENT","ECL_NAME_PPRINT(cl_pprint_indent)",-3}, -{"PPRINT-LINEAR","ECL_NAME_PPRINT(cl_pprint_linear)",-3}, -{"PPRINT-LOGICAL-BLOCK",NULL,-1}, -{"PPRINT-NEWLINE","ECL_NAME_PPRINT(cl_pprint_newline)",-2}, -{"PPRINT-POP",NULL,-1}, -{"PPRINT-TAB","ECL_NAME_PPRINT(cl_pprint_tab)",-4}, -{"PPRINT-TABULAR","ECL_NAME_PPRINT(cl_pprint_tabular)",-3}, -{"PRIN1","cl_prin1",-2}, -{"PRIN1-TO-STRING","ECL_NAME(cl_prin1_to_string)",1}, -{"PRINC","cl_princ",-2}, -{"PRINC-TO-STRING","ECL_NAME(cl_princ_to_string)",1}, -{"PRINT","cl_print",-2}, -{"PRINT-NOT-READABLE",NULL,-1}, -{"PRINT-NOT-READABLE-OBJECT",NULL,-1}, -{"PROBE-FILE","cl_probe_file",1}, -{"PROCLAIM",NULL,-1}, -{"PROG",NULL,-1}, -{"PROG*",NULL,-1}, -{"PROG1",NULL,-1}, -{"PROG2",NULL,-1}, -{"PROGN",NULL,-1}, -{"PROGRAM-ERROR",NULL,-1}, -{"PROGV",NULL,-1}, -{"PROVIDE","ECL_NAME(cl_provide)",1}, -{"PSETF",NULL,-1}, -{"PSETQ",NULL,-1}, -{"PUSH",NULL,-1}, -{"PUSHNEW",NULL,-1}, -{"QUOTE",NULL,-1}, -{"RANDOM","cl_random",-2}, -{"RANDOM-STATE",NULL,-1}, -{"RANDOM-STATE-P","cl_random_state_p",1}, -{"RASSOC","cl_rassoc",-3}, -{"RASSOC-IF","ECL_NAME(cl_rassoc_if)",-3}, -{"RASSOC-IF-NOT","ECL_NAME(cl_rassoc_if_not)",-3}, -{"RATIO",NULL,-1}, -{"RATIONAL","cl_rational",1}, -{"RATIONALIZE","cl_rationalize",1}, -{"RATIONALP","cl_rationalp",1}, -{"READ","cl_read",-1}, -{"READ-BYTE","cl_read_byte",-2}, -{"READ-CHAR","cl_read_char",-1}, -{"READ-CHAR-NO-HANG","cl_read_char_no_hang",-1}, -{"READ-DELIMITED-LIST","cl_read_delimited_list",-2}, -{"READ-FROM-STRING","ECL_NAME(cl_read_from_string)",-2}, -{"READ-LINE","cl_read_line",-1}, -{"READ-PRESERVING-WHITESPACE","cl_read_preserving_whitespace",-1}, -{"READ-SEQUENCE","cl_read_sequence",-3}, -{"READER-ERROR",NULL,-1}, -{"READTABLE",NULL,-1}, -{"READTABLE-CASE","cl_readtable_case",1}, -{"READTABLEP","cl_readtablep",1}, -{"REAL",NULL,-1}, -{"REALP","cl_realp",1}, -{"REALPART","cl_realpart",1}, -{"REDUCE","ECL_NAME(cl_reduce)",-3}, -{"REM","cl_rem",2}, -{"REMF",NULL,-1}, -{"REMHASH","cl_remhash",2}, -{"REMOVE","ECL_NAME(cl_remove)",-3}, -{"REMOVE-DUPLICATES","ECL_NAME(cl_remove_duplicates)",-2}, -{"REMOVE-IF","ECL_NAME(cl_remove_if)",-3}, -{"REMOVE-IF-NOT","ECL_NAME(cl_remove_if_not)",-3}, -{"REMPROP","cl_remprop",2}, -{"RENAME-FILE","cl_rename_file",-3}, -{"RENAME-PACKAGE","cl_rename_package",-3}, -{"REPLACE","ECL_NAME(cl_replace)",-3}, -{"REQUIRE","ECL_NAME(cl_require)",-2}, -{"REST","cl_cdr",1}, -{"RESTART",NULL,1}, -{"RESTART-BIND",NULL,1}, -{"RESTART-CASE",NULL,1}, -{"RESTART-NAME",NULL,1}, -{"RETURN",NULL,-1}, -{"RETURN-FROM",NULL,-1}, -{"REVAPPEND","cl_revappend",2}, -{"REVERSE","cl_reverse",1}, -{"ROOM",NULL,-1}, -{"ROTATEF",NULL,-1}, -{"ROUND","cl_round",-2}, -{"ROW-MAJOR-AREF","cl_row_major_aref",2}, -{"RPLACA","cl_rplaca",2}, -{"RPLACD","cl_rplacd",2}, -{"SAFETY",NULL,-1}, -{"SATISFIES",NULL,-1}, -{"SBIT","ECL_NAME(cl_sbit)",-2}, -{"SCALE-FLOAT","cl_scale_float",2}, -{"SCHAR","cl_char",2}, -{"SEARCH","ECL_NAME(cl_search)",-3}, -{"SECOND","cl_cadr",1}, -{"SEQUENCE",NULL,-1}, -{"SERIOUS-CONDITION",NULL,-1}, -{"SET","cl_set",2}, -{"SET-DIFFERENCE","ECL_NAME(cl_set_difference)",-3}, -{"SET-DISPATCH-MACRO-CHARACTER","cl_set_dispatch_macro_character",-4}, -{"SET-EXCLUSIVE-OR","ECL_NAME(cl_set_exclusive_or)",-3}, -{"SET-MACRO-CHARACTER","cl_set_macro_character",-3}, -{"SET-PPRINT-DISPATCH","ECL_NAME_PPRINT(cl_set_pprint_dispatch)",-3}, -{"SET-SYNTAX-FROM-CHAR","cl_set_syntax_from_char",-3}, -{"SETF",NULL,-1}, -{"SETQ",NULL,-1}, -{"SEVENTH","cl_seventh",1}, -{"SHADOW","cl_shadow",-2}, -{"SHADOWING-IMPORT","cl_shadowing_import",-2}, -{"SHIFTF",NULL,-1}, -{"SHORT-FLOAT",NULL,-1}, -{"SHORT-FLOAT-EPSILON",NULL,-1}, -{"SHORT-FLOAT-NEGATIVE-EPSILON",NULL,-1}, -{"SHORT-SITE-NAME","ECL_NAME(cl_short_site_name)",0}, -{"SIGNAL",NULL,-1}, -{"SIGNED-BYTE",NULL,-1}, -{"SIGNUM","ECL_NAME(cl_signum)",1}, -{"SIMPLE-ARRAY",NULL,-1}, -{"SIMPLE-BASE-STRING",NULL,-1}, -{"SIMPLE-BIT-VECTOR",NULL,-1}, -{"SIMPLE-BIT-VECTOR-P","cl_simple_bit_vector_p",1}, -{"SIMPLE-CONDITION",NULL,-1}, -{"SIMPLE-CONDITION-FORMAT-CONTROL",NULL,-1}, -{"SIMPLE-CONDITION-FORMAT-ARGUMENTS",NULL,-1}, -{"SIMPLE-ERROR",NULL,-1}, -{"SIMPLE-STRING",NULL,-1}, -{"SIMPLE-STRING-P","cl_simple_string_p",1}, -{"SIMPLE-TYPE-ERROR",NULL,-1}, -{"SIMPLE-VECTOR",NULL,-1}, -{"SIMPLE-VECTOR-P","cl_simple_vector_p",1}, -{"SIMPLE-WARNING",NULL,-1}, -{"SIN","cl_sin",1}, -{"SINGLE-FLOAT",NULL,-1}, -{"SINGLE-FLOAT-EPSILON",NULL,-1}, -{"SINGLE-FLOAT-NEGATIVE-EPSILON",NULL,-1}, -{"SINH","cl_sinh",1}, -{"SIXTH","cl_sixth",1}, -{"SLEEP","cl_sleep",1}, -{"SOFTWARE-TYPE","ECL_NAME(cl_software_type)",0}, -{"SOFTWARE-VERSION","ECL_NAME(cl_software_version)",0}, -{"SOME","ECL_NAME(cl_some)",-3}, -{"SORT","ECL_NAME(cl_sort)",-3}, -{"SPACE",NULL,-1}, -{"SPECIAL",NULL,-1}, -{"SPECIAL-OPERATOR-P","cl_special_operator_p",1}, -{"SPEED",NULL,-1}, -{"SQRT","cl_sqrt",1}, -{"STABLE-SORT","ECL_NAME(cl_stable_sort)",-3}, -{"STANDARD-CHAR",NULL,-1}, -{"STANDARD-CHAR-P","cl_standard_char_p",1}, -{"STEP",NULL,-1}, -{"STORAGE-CONDITION",NULL,-1}, -{"STORE-VALUE","ECL_NAME(cl_store_value)",-2}, -{"STREAM",NULL,-1}, -{"STREAM-ELEMENT-TYPE","cl_stream_element_type",1}, -{"STREAM-ERROR",NULL,-1}, -{"STREAM-ERROR-STREAM",NULL,-1}, -{"STREAM-EXTERNAL-FORMAT","cl_stream_external_format",1}, -{"STREAMP","cl_streamp",1}, -{"STRING","cl_string",1}, -{"STRING-DOWNCASE","cl_string_downcase",-1}, -{"STRING-CAPITALIZE","cl_string_capitalize",-1}, -{"STRING-EQUAL","cl_string_equal",-3}, -{"STRING-GREATERP","cl_string_greaterp",-1}, -{"STRING-LEFT-TRIM","cl_string_left_trim",2}, -{"STRING-LESSP","cl_string_lessp",-1}, -{"STRING-NOT-EQUAL","cl_string_not_equal",-1}, -{"STRING-NOT-GREATERP","cl_string_not_greaterp",-1}, -{"STRING-NOT-LESSP","cl_string_not_lessp",-1}, -{"STRING-RIGHT-TRIM","cl_string_right_trim",2}, -{"STRING-STREAM",NULL,-1}, -{"STRING-TRIM","cl_string_trim",2}, -{"STRING-UPCASE","cl_string_upcase",-1}, -{"STRING/=","cl_stringNE",-1}, -{"STRING<","cl_stringL",-1}, -{"STRING<=","cl_stringLE",-1}, -{"STRING=","cl_stringE",-3}, -{"STRING>","cl_stringG",-1}, -{"STRING>=","cl_stringGE",-1}, -{"STRINGP","cl_stringp",1}, -{"STRUCTURE",NULL,-1}, -{"STYLE-WARNING",NULL,-1}, -{"SUBLIS","cl_sublis",-3}, -{"SUBSEQ","cl_subseq",-3}, -{"SUBSETP","ECL_NAME(cl_subsetp)",-3}, -{"SUBST","cl_subst",-4}, -{"SUBST-IF","ECL_NAME(cl_subst_if)",-4}, -{"SUBST-IF-NOT","ECL_NAME(cl_subst_if_not)",-4}, -{"SUBSTITUTE","ECL_NAME(cl_substitute)",-4}, -{"SUBSTITUTE-IF","ECL_NAME(cl_substitute_if)",-4}, -{"SUBSTITUTE-IF-NOT","ECL_NAME(cl_substitute_if_not)",-4}, -{"SUBTYPEP","ECL_NAME(cl_subtypep)",-3}, -{"SVREF","cl_svref",2}, -{"SXHASH","cl_sxhash",1}, -{"SYMBOL",NULL,-1}, -{"SYMBOL-FUNCTION","cl_symbol_function",1}, -{"SYMBOL-MACROLET",NULL,-1}, -{"SYMBOL-NAME","cl_symbol_name",1}, -{"SYMBOL-PACKAGE","cl_symbol_package",1}, -{"SYMBOL-PLIST","cl_symbol_plist",1}, -{"SYMBOL-VALUE","cl_symbol_value",1}, -{"SYMBOLP","cl_symbolp",1}, -{"SYNONYM-STREAM",NULL,-1}, -{"SYNONYM-STREAM-SYMBOL","cl_synonym_stream_symbol",1}, -{"TAGBODY",NULL,-1}, -{"TAILP","cl_tailp",2}, -{"TAN","cl_tan",1}, -{"TANH","cl_tanh",1}, -{"TENTH","cl_tenth",1}, -{"TERPRI","cl_terpri",-1}, -{"THE",NULL,-1}, -{"THIRD","cl_caddr",1}, -{"THROW",NULL,-1}, -{"TIME",NULL,-1}, -{"TRACE",NULL,-1}, -{"TRANSLATE-LOGICAL-PATHNAME","cl_translate_logical_pathname",-2}, -{"TRANSLATE-PATHNAME","cl_translate_pathname",-4}, -{"TREE-EQUAL","cl_tree_equal",-3}, -{"TRUENAME","cl_truename",1}, -{"TRUNCATE","cl_truncate",-2}, -{"TWO-WAY-STREAM",NULL,-1}, -{"TWO-WAY-STREAM-INPUT-STREAM","cl_two_way_stream_input_stream",1}, -{"TWO-WAY-STREAM-OUTPUT-STREAM","cl_two_way_stream_output_stream",1}, -{"TYPE",NULL,-1}, -{"TYPE-ERROR",NULL,-1}, -{"TYPE-ERROR-DATUM",NULL,-1}, -{"TYPE-ERROR-EXPECTED-TYPE",NULL,-1}, -{"TYPE-OF","cl_type_of",1}, -{"TYPECASE",NULL,-1}, -{"TYPEP","ECL_NAME(cl_typep)",-3}, -{"UNBOUND-SLOT",NULL,-1}, -{"UNBOUND-SLOT-INSTANCE",NULL,-1}, -{"UNBOUND-VARIABLE",NULL,-1}, -{"UNDEFINED-FUNCTION",NULL,-1}, -{"UNEXPORT","cl_unexport",-2}, -{"UNINTERN","cl_unintern",-2}, -{"UNION","ECL_NAME(cl_union)",-3}, -{"UNLESS",NULL,-1}, -{"UNREAD-CHAR","cl_unread_char",-2}, -{"UNSIGNED-BYTE",NULL,-1}, -{"UNTRACE",NULL,-1}, -{"UNUSE-PACKAGE","cl_unuse_package",-2}, -{"UNWIND-PROTECT",NULL,-1}, -{"UPGRADED-ARRAY-ELEMENT-TYPE","ECL_NAME(cl_upgraded_array_element_type)",-2}, -{"UPGRADED-COMPLEX-PART-TYPE","ECL_NAME(cl_upgraded_complex_part_type)",-2}, -{"UPPER-CASE-P","cl_upper_case_p",1}, -{"USE-PACKAGE","cl_use_package",-2}, -{"USE-VALUE","ECL_NAME(cl_use_value)",-2}, -{"USER-HOMEDIR-PATHNAME","cl_user_homedir_pathname",-1}, -{"VALUES","cl_values",-1}, -{"VALUES-LIST","cl_values_list",1}, -{"VARIABLE",NULL,-1}, -{"VECTOR","ECL_NAME(cl_vector)",-1}, -{"VECTOR-POP","ECL_NAME(cl_vector_pop)",1}, -{"VECTOR-PUSH","cl_vector_push",2}, -{"VECTOR-PUSH-EXTEND","cl_vector_push_extend",-3}, -{"VECTORP","cl_vectorp",1}, -{"WARN",NULL,-1}, -{"WARNING",NULL,-1}, -{"WHEN",NULL,-1}, -{"WILD-PATHNAME-P","cl_wild_pathname_p",-2}, -{"WITH-COMPILATION-UNIT",NULL,-1}, -{"WITH-CONDITION-RESTARTS",NULL,-1}, -{"WITH-HASH-TABLE-ITERATOR",NULL,-1}, -{"WITH-INPUT-FROM-STRING",NULL,-1}, -{"WITH-OPEN-FILE",NULL,-1}, -{"WITH-OPEN-STREAM",NULL,-1}, -{"WITH-OUTPUT-TO-STRING",NULL,-1}, -{"WITH-PACKAGE-ITERATOR",NULL,-1}, -{"WITH-SIMPLE-RESTART",NULL,-1}, -{"WITH-STANDARD-IO-SYNTAX",NULL,-1}, -{"WRITE","cl_write",-2}, -{"WRITE-BYTE","cl_write_byte",2}, -{"WRITE-CHAR","cl_write_char",-2}, -{"WRITE-LINE","cl_write_line",-2}, -{"WRITE-SEQUENCE","cl_write_sequence",-3}, -{"WRITE-STRING","cl_write_string",-2}, -{"WRITE-TO-STRING","ECL_NAME(cl_write_to_string)",-2}, -{"Y-OR-N-P","ECL_NAME(cl_y_or_n_p)",-1}, -{"YES-OR-NO-P","ECL_NAME(cl_yes_or_no_p)",-1}, -{"ZEROP","cl_zerop",1}, -{"ALLOCATE-INSTANCE",NULL,2}, -{"ADD-METHOD",NULL,-1}, -{"BUILT-IN-CLASS",NULL,-1}, -{"CALL-METHOD",NULL,-1}, -{"CALL-NEXT-METHOD",NULL,-1}, -{"CHANGE-CLASS",NULL,-1}, -{"CLASS",NULL,-1}, -{"CLASS-NAME",NULL,-1}, -{"CLASS-OF","cl_class_of",1}, -{"COMPUTE-APPLICABLE-METHODS",NULL,-1}, -{"DEFCLASS",NULL,-1}, -{"DEFGENERIC",NULL,-1}, -{"DEFINE-METHOD-COMBINATION",NULL,-1}, -{"DEFMETHOD",NULL,-1}, -{"DESCRIBE-OBJECT",NULL,-1}, -{"ENSURE-GENERIC-FUNCTION",NULL,-2}, -{"FIND-CLASS","cl_find_class",-2}, -{"FIND-METHOD",NULL,-1}, -{"GENERIC-FUNCTION",NULL,-1}, -{"IF",NULL,-1}, -{"INITIALIZE-INSTANCE",NULL,-1}, -{"INVALID-METHOD-ERROR","ECL_NAME(cl_invalid_method_error)",-3}, -{"MAKE-INSTANCE",NULL,-1}, -{"MAKE-INSTANCES-OBSOLETE",NULL,-1}, -{"MAKE-LOAD-FORM",NULL,-1}, -{"MAKE-LOAD-FORM-SAVING-SLOTS",NULL,-1}, -{"MAKE-METHOD",NULL,-1}, -{"METHOD",NULL,-1}, -{"METHOD-COMBINATION-ERROR","ECL_NAME(cl_method_combination_error)",-2}, -{"METHOD-COMBINATION",NULL,-1}, -{"METHOD-QUALIFIERS",NULL,-1}, -{"NEXT-METHOD-P",NULL,-1}, -{"NO-APPLICABLE-METHOD",NULL,-1}, -{"NO-NEXT-METHOD",NULL,-1}, -{"PRINT-OBJECT",NULL,-1}, -{"PRINT-UNREADABLE-OBJECT",NULL,-1}, -{"REINITIALIZE-INSTANCE",NULL,-1}, -{"REMOVE-METHOD",NULL,-1}, -{"SHARED-INITIALIZE",NULL,-1}, -{"SLOT-BOUNDP","ECL_NAME(cl_slot_boundp)",2}, -{"SLOT-EXISTS-P","ECL_NAME(cl_slot_exists_p)",2}, -{"SLOT-MAKUNBOUND","ECL_NAME(cl_slot_makunbound)",2}, -{"SLOT-MISSING",NULL,-1}, -{"SLOT-UNBOUND",NULL,-1}, -{"SLOT-VALUE","cl_slot_value",2}, -{"STANDARD",NULL,-1}, -{"STANDARD-CLASS",NULL,-1}, -{"STANDARD-GENERIC-FUNCTION",NULL,-1}, -{"STANDARD-METHOD",NULL,-1}, -{"STANDARD-OBJECT",NULL,-1}, -{"STRUCTURE-CLASS",NULL,-1}, -{"STRUCTURE-OBJECT",NULL,-1}, -{"UPDATE-INSTANCE-FOR-DIFFERENT-CLASS",NULL,-1}, -{"UPDATE-INSTANCE-FOR-REDEFINED-CLASS",NULL,-1}, -{"WITH-ACCESSORS",NULL,-1}, -{"WITH-SLOTS",NULL,-1}, -{KEY_ "ACCESSOR",NULL,-1}, -{KEY_ "ARGUMENT-PRECEDENCE-ORDER",NULL,-1}, -{KEY_ "ALLOCATION",NULL,-1}, -{KEY_ "DECLARE",NULL,-1}, -{KEY_ "DEFAULT-INITARGS",NULL,-1}, -{KEY_ "DESCRIPTION",NULL,-1}, -{KEY_ "DIRECT-DEFAULT-INITARGS",NULL,-1}, -{KEY_ "DIRECT-SLOTS",NULL,-1}, -{KEY_ "DIRECT-SUPERCLASSES",NULL,-1}, -{KEY_ "GENERIC-FUNCTION-CLASS",NULL,-1}, -{KEY_ "IDENTITY-WITH-ONE-ARGUMENT",NULL,-1}, -{KEY_ "INITARG",NULL,-1}, -{KEY_ "INITARGS",NULL,-1}, -{KEY_ "INITFORM",NULL,-1}, -{KEY_ "INITFUNCTION",NULL,-1}, -{KEY_ "LAMBDA-LIST",NULL,-1}, -{KEY_ "LOCATION",NULL,-1}, -{KEY_ "METACLASS",NULL,-1}, -{KEY_ "METHOD",NULL,-1}, -{KEY_ "METHOD-CLASS",NULL,-1}, -{KEY_ "METHOD-COMBINATION",NULL,-1}, -{KEY_ "OPERATOR",NULL,-1}, -{KEY_ "ORDER",NULL,-1}, -{KEY_ "READER",NULL,-1}, -{KEY_ "READERS",NULL,-1}, -{KEY_ "REQUIRED",NULL,-1}, -{KEY_ "WRITER",NULL,-1}, -{KEY_ "WRITERS",NULL,-1}, - -/* SYSTEM PACKAGE */ -{SYS_ "#!",NULL,-1}, -{SYS_ "*BACKQ-LEVEL*",NULL,-1}, -{SYS_ "*CBLOCK*",NULL,-1}, -{SYS_ "*CIRCLE-COUNTER*",NULL,-1}, -{SYS_ "*CIRCLE-STACK*",NULL,-1}, -{SYS_ "*CLASS-NAME-HASH-TABLE*",NULL,-1}, -{SYS_ "*COMPILER-CONSTANTS*",NULL,-1}, -{SYS_ "*GC-MESSAGE*",NULL,-1}, -{SYS_ "*GC-VERBOSE*",NULL,-1}, -{SYS_ "*IGNORE-EOF-ON-TERMINAL-IO*",NULL,-1}, -{SYS_ "*INDENT-FORMATTED-OUTPUT*",NULL,-1}, -{SYS_ "*INIT-FUNCTION-PREFIX*",NULL,-1}, -{SYS_ "*KEEP-DEFINITIONS*",NULL,-1}, -{EXT_ "*LOAD-HOOKS*",NULL,-1}, -{SYS_ "*LOAD-SEARCH-LIST*",NULL,-1}, -{SYS_ "*MAKE-CONSTANT","si_Xmake_constant",2}, -{SYS_ "*MAKE-SPECIAL","si_Xmake_special",1}, -{SYS_ "*PRINT-PACKAGE*",NULL,-1}, -{SYS_ "*PRINT-STRUCTURE*",NULL,-1}, -{SYS_ "*SHARP-EQ-CONTEXT*",NULL,-1}, -{SYS_ "*STEP-LEVEL*","OBJNULL",-1}, -{SYS_ "*STEP-ACTION*","OBJNULL",-1}, -{SYS_ ".",NULL,-1}, -{SYS_ "UNQUOTE",NULL,-1}, -{SYS_ "UNQUOTE-NSPLICE",NULL,-1}, -{SYS_ "UNQUOTE-SPLICE",NULL,-1}, -{SYS_ "ALLOCATE-RAW-INSTANCE","si_allocate_raw_instance",3}, -{EXT_ "ARGC","si_argc",0}, -{EXT_ "ARGV","si_argv",1}, -{SYS_ "ASET","si_aset",-2}, -{SYS_ "BASE-CHAR-P","si_base_char_p",1}, -{SYS_ "BASE-STRING-P","si_base_string_p",1}, -{SYS_ "BC-DISASSEMBLE","si_bc_disassemble",1}, -{SYS_ "BC-SPLIT","si_bc_split",1}, -{SYS_ "BC-JOIN","si_bc_join",4}, -{SYS_ "BDS-TOP","si_bds_top",0}, -{SYS_ "BDS-VAL","si_bds_val",1}, -{SYS_ "BDS-VAR","si_bds_var",1}, -{SYS_ "BIT-ARRAY-OP","si_bit_array_op",4}, -{SYS_ "C-ARGUMENTS-LIMIT",NULL,-1}, -{SYS_ "CHAR-SET","si_char_set",3}, -{EXT_ "CHDIR","si_chdir",-2}, -{SYS_ "CLEAR-COMPILER-PROPERTIES","cl_identity",1}, -{SYS_ "COERCE-TO-BASE-STRING","si_coerce_to_base_string",1}, -{SYS_ "COERCE-TO-EXTENDED-STRING","si_coerce_to_extended_string",1}, -{SYS_ "COERCE-TO-FILENAME","si_coerce_to_filename",1}, -{SYS_ "COERCE-TO-FUNCTION","si_coerce_to_function",1}, -{SYS_ "COERCE-TO-PACKAGE","si_coerce_to_package",1}, -{SYS_ "COPY-TO-SIMPLE-BASE-STRING","si_copy_to_simple_base_string",1}, -{SYS_ "COMPILED-FUNCTION-BLOCK","si_compiled_function_block",1}, -{EXT_ "COMPILED-FUNCTION-NAME","si_compiled_function_name",1}, -{SYS_ "COPY-STREAM","si_copy_stream",3}, -{SYS_ "DESTRUCTURE",NULL,-1}, -{SYS_ "DO-READ-SEQUENCE","si_do_read_sequence",4}, -{SYS_ "DO-WRITE-SEQUENCE","si_do_write_sequence",4}, -{SYS_ "ELT-SET","si_elt_set",3}, -{SYS_ "EVAL-WITH-ENV","si_eval_with_env",-2}, -{SYS_ "EXPAND-DEFMACRO",NULL,-1}, -{SYS_ "FILE-COLUMN","si_file_column",1}, -{EXT_ "FILE-KIND","si_file_kind",2}, -{SYS_ "FILL-POINTER-SET","si_fill_pointer_set",2}, -{EXT_ "FILE-STREAM-FD","si_file_stream_fd",1}, -{EXT_ "MAKE-STREAM-FROM-FD",NULL,-1}, -{EXT_ "FIXNUMP","si_fixnump",1}, -{SYS_ "FORMAT-ERROR",NULL,-1}, -#ifdef ECL_CMU_FORMAT -{SYS_ "FORMATTER-AUX",NULL,-3}, -#else -{SYS_ "FORMATTER-AUX","si_formatter_aux",-3}, -#endif -{SYS_ "FRS-BDS","si_frs_bds",1}, -{SYS_ "FRS-IHS","si_frs_ihs",1}, -{SYS_ "FRS-TAG","si_frs_tag",1}, -{SYS_ "FRS-TOP","si_frs_top",0}, -{SYS_ "FSET","si_fset",-3}, -{SYS_ "FUNCTION-BLOCK-NAME","si_function_block_name",1}, -{SYS_ "GET-LIBRARY-PATHNAME","si_get_library_pathname",0}, -{SYS_ "GET-SYSPROP","si_get_sysprop",2}, -{EXT_ "GETENV","si_getenv",1}, -{EXT_ "GETCWD","si_getcwd",-1}, -{EXT_ "GETPID","si_getpid",0}, -{EXT_ "GETUID","si_getuid",0}, -{SYS_ "HASH-SET","si_hash_set",3}, -{SYS_ "HASH-TABLE-ITERATOR","si_hash_table_iterator",1}, -{SYS_ "IHS-BDS","si_ihs_bds",1}, -{SYS_ "IHS-ENV","si_ihs_env",1}, -{SYS_ "IHS-FUN","si_ihs_fun",1}, -{SYS_ "IHS-NEXT","si_ihs_next",1}, -{SYS_ "IHS-PREV","si_ihs_prev",1}, -{SYS_ "IHS-TOP","si_ihs_top",0}, -{SYS_ "INTERPRETER-STACK","si_interpreter_stack",-1}, -{SYS_ "LINK-FROM",NULL,-1}, -{SYS_ "LINK-TO",NULL,-1}, -{SYS_ "LOAD-SOURCE","si_load_source",4}, -{SYS_ "LOGICAL-PATHNAME-P","si_logical_pathname_p",1}, -{SYS_ "MACRO",NULL,-1}, -{SYS_ "MAKE-LAMBDA","si_make_lambda",2}, -{SYS_ "MAKE-PURE-ARRAY","si_make_pure_array",6}, -{SYS_ "MAKE-STRING-OUTPUT-STREAM-FROM-STRING","si_make_string_output_stream_from_string",1}, -{SYS_ "MAKE-STRUCTURE","si_make_structure",-2}, -{SYS_ "MAKE-VECTOR","si_make_vector",6}, -{SYS_ "MANGLE-NAME","si_mangle_name",-2}, -{SYS_ "MEMBER1","si_member1",5}, -{SYS_ "MEMQ","si_memq",2}, -{SYS_ "MKDIR","si_mkdir",2}, -{EXT_ "MKSTEMP","si_mkstemp",1}, -{SYS_ "NEED-TO-MAKE-LOAD-FORM-P","si_need_to_make_load_form_p",1}, -{SYS_ "RMDIR","si_rmdir",1}, -{EXT_ "MAKE-PIPE","si_make_pipe",0}, -/* package extensions */ -{SYS_ "*IGNORE-PACKAGE-LOCKS*",NULL,-1}, -{EXT_ "PACKAGE-LOCK","si_package_lock",2}, -{EXT_ "PACKAGE-LOCKED-P","si_package_locked_p",1}, -{SYS_ "LOCK-PACKAGE",NULL,1}, -{SYS_ "UNLOCK-PACKAGE",NULL,1}, -{SYS_ "WITHOUT-PACKAGE-LOCKS",NULL,1}, -{SYS_ "WITH-UNLOCKED-PACKAGES",NULL,1}, -{EXT_ "PACKAGE-LOCAL-NICKNAMES","si_package_local_nicknames",1}, -{EXT_ "PACKAGE-LOCALLY-NICKNAMED-BY-LIST","si_package_locally_nicknamed_by_list",1}, -{EXT_ "ADD-PACKAGE-LOCAL-NICKNAME",NULL,-1}, -{EXT_ "REMOVE-PACKAGE-LOCAL-NICKNAME",NULL,-1}, -{SYS_ "%ADD-PACKAGE-LOCAL-NICKNAME","si_add_package_local_nickname",3}, -{SYS_ "%REMOVE-PACKAGE-LOCAL-NICKNAME","si_remove_package_local_nickname",2}, -{SYS_ "PACKAGE-HASH-TABLES","si_package_hash_tables",1}, -{SYS_ "PATHNAME-TRANSLATIONS","si_pathname_translations",-2}, -{SYS_ "POINTER","si_pointer",1}, -{SYS_ "PRETTY-PRINT-FORMAT",NULL,-1}, -{SYS_ "PROCESS-DECLARATIONS","si_process_declarations",-2}, -{SYS_ "PROCESS-LAMBDA","si_process_lambda",1}, -{SYS_ "PROCESS-LAMBDA-LIST","si_process_lambda_list",2}, -{SYS_ "PUT-F","si_put_f",3}, -{SYS_ "PUT-PROPERTIES","si_put_properties",-2}, -{SYS_ "PUT-SYSPROP","si_put_sysprop",3}, -{SYS_ "PUTPROP","si_putprop",3}, -{SYS_ "READTABLE-CASE-SET","si_readtable_case_set",2}, -{SYS_ "REM-F","si_rem_f",2}, -{SYS_ "REM-SYSPROP","si_rem_sysprop",2}, -{SYS_ "REPLACE-ARRAY","si_replace_array",2}, -{SYS_ "ROW-MAJOR-ASET","si_row_major_aset",3}, -{EXT_ "SAFE-EVAL","ECL_NAME(si_safe_eval)",-3}, -{SYS_ "SCH-FRS-BASE","si_sch_frs_base",2}, -{SYS_ "SCHAR-SET","si_char_set",3}, -{SYS_ "SERROR","si_serror",-3}, -{SYS_ "SHARP-A-READER",NULL,-1}, -{SYS_ "SHARP-S-READER",NULL,-1}, -{SYS_ "SELECT-PACKAGE","si_select_package",1}, -{SYS_ "SET-SYMBOL-PLIST","si_set_symbol_plist",2}, -#if defined(HAVE_PUTENV) || defined(HAVE_SETENV) -{EXT_ "SETENV","si_setenv",2}, -#else -{EXT_ "SETENV",NULL,-1}, -#endif -{SYS_ "SETF-METHOD",NULL,-1}, -{SYS_ "SETF-NAMEP",NULL,-1}, -{SYS_ "SIMPLE-PROGRAM-ERROR","ECL_NAME(si_simple_program_error)",-2}, -{SYS_ "SIGNAL-SIMPLE-ERROR","si_signal_simple_error",-5}, -{SYS_ "SIGNAL-TYPE-ERROR","si_signal_type_error",2}, -{SYS_ "SPECIALP","si_specialp",1}, -{SYS_ "STANDARD-READTABLE","si_standard_readtable",0}, -{SYS_ "STEPPER","OBJNULL",-1}, -{SYS_ "BASE-STRING-CONCATENATE","si_base_string_concatenate",-1}, -{SYS_ "STRING-TO-OBJECT","ECL_NAME(si_string_to_object)",-2}, -{SYS_ "STRUCTURE-NAME","si_structure_name",1}, -{SYS_ "STRUCTURE-PRINT-FUNCTION",NULL,-1}, -{SYS_ "STRUCTURE-REF","si_structure_ref",3}, -{SYS_ "STRUCTURE-SET","si_structure_set",4}, -{SYS_ "STRUCTURE-SLOT-DESCRIPTIONS",NULL,-1}, -{SYS_ "STRUCTURE-SUBTYPE-P","si_structure_subtype_p",2}, -{SYS_ "STRUCTUREP","si_structurep",1}, -{SYS_ "SVSET","si_svset",3}, -{SYS_ "SYMBOL-MACRO",NULL,-1}, -{EXT_ "SYSTEM","si_system",1}, -{SYS_ "TERMINAL-INTERRUPT",NULL,-1}, -{SYS_ "TOP-LEVEL",NULL,-1}, -{SYS_ "UNIVERSAL-ERROR-HANDLER",NULL,-1}, -{SYS_ "STACK-ERROR-HANDLER",NULL,-1}, -{SYS_ "VALID-FUNCTION-NAME-P","si_valid_function_name_p",1}, -{SYS_ "SEARCH-PRINT-CIRCLE","si_search_print_circle",1}, -{SYS_ "WRITE-OBJECT-WITH-CIRCLE","si_write_object_with_circle",3}, -{SYS_ "WRITE-OBJECT","si_write_object",2}, -{SYS_ "WRITE-UGLY-OBJECT","si_write_ugly_object",2}, - -{SYS_ "COPY-INSTANCE","si_copy_instance",1}, -{SYS_ "GENERIC-FUNCTION-P","si_generic_function_p",1}, -{SYS_ "INSTANCE-REF","si_instance_ref",2}, -{SYS_ "INSTANCE-SET","si_instance_set",3}, -{SYS_ "INSTANCE-OBSOLETE-P","si_instance_obsolete_p",1}, -{SYS_ "INSTANCE-NEW-STAMP","si_instance_new_stamp",1}, -{SYS_ "INSTANCE-GET-STAMP","si_instance_get_stamp",1}, -{SYS_ "INSTANCE-SLOTDS","si_instance_slotds",1}, -{SYS_ "INSTANCE-SIG-SET","si_instance_sig_set",1}, -{SYS_ "INSTANCE-CLASS","si_instance_class",1}, -{SYS_ "INSTANCE-CLASS-SET","si_instance_class_set",2}, -{SYS_ "INSTANCEP","si_instancep",1}, -{SYS_ "SL-BOUNDP","si_sl_boundp",1}, -{SYS_ "SL-MAKUNBOUND","si_sl_makunbound",2}, -{SYS_ "SUBCLASSP","ECL_NAME(si_subclassp)",-3}, -{SYS_ "OF-CLASS-P","ECL_NAME(si_of_class_p)",-3}, -/*{SYS_ "UNBOUND","si_unbound",0}, */ - -{EXT_ "*SOURCE-LOCATION*",NULL,-1}, -{EXT_ "*REGISTER-WITH-PDE-HOOK*",NULL,-1}, -{EXT_ "REGISTER-WITH-PDE",NULL,-1}, - -/* #ifdef PROFILE */ -{SYS_ "PROFILE",IF_PROFILE("si_profile"),-3}, -{SYS_ "CLEAR-PROFILE",IF_PROFILE("si_clear_profile"),-1}, -{SYS_ "DISPLAY-PROFILE",IF_PROFILE("si_display_profile"),-1}, -/* #endif PROFILE */ - -/* #ifdef ECL_TCP */ -{SYS_ "*PROFILE-ARRAY*",NULL,-1}, -{SYS_ "OPEN-CLIENT-STREAM",IF_TCP("si_open_client_stream"),2}, -{SYS_ "OPEN-SERVER-STREAM",IF_TCP("si_open_server_stream"),1}, -{SYS_ "OPEN-UNIX-SOCKET-STREAM",IF_TCP("si_open_unix_socket_stream"),1}, -{SYS_ "LOOKUP-HOST-ENTRY",IF_TCP("si_lookup_host_entry"),1}, -/* #endif ECL_TCP */ - -{EXT_ "CATCH-SIGNAL","si_catch_signal",-3}, -{EXT_ "GET-SIGNAL-HANDLER","si_get_signal_handler",1}, -{EXT_ "SET-SIGNAL-HANDLER","si_set_signal_handler",2}, - -/* KEYWORD PACKAGE */ -{KEY_ "ADJUSTABLE",NULL,-1}, -{KEY_ "ABORT",NULL,-1}, -{KEY_ "ABSOLUTE",NULL,-1}, -{KEY_ "ALLOW-OTHER-KEYS",NULL,-1}, -{KEY_ "APPEND",NULL,-1}, -{KEY_ "ARRAY",NULL,-1}, -{KEY_ "BACK",NULL,-1}, -{KEY_ "BASE",NULL,-1}, -{KEY_ "BLOCK",NULL,-1}, -{KEY_ "CAPITALIZE",NULL,-1}, -{KEY_ "CATCH",NULL,-1}, -{KEY_ "CASE",NULL,-1}, -{KEY_ "CIRCLE",NULL,-1}, -{KEY_ "COMPILE-TOPLEVEL",NULL,-1}, -{KEY_ "COMMON",NULL,-1}, -{KEY_ "CONC-NAME",NULL,-1}, -{KEY_ "CONSTRUCTOR",NULL,-1}, -{KEY_ "CONTROL-STRING",NULL,-1}, -{KEY_ "COPIER",NULL,-1}, -{KEY_ "CREATE",NULL,-1}, -{KEY_ "DATUM",NULL,-1}, -{KEY_ "DEFAULT",NULL,-1}, -{KEY_ "DEFAULTS",NULL,-1}, -{KEY_ "DEVICE",NULL,-1}, -{KEY_ "DIRECTION",NULL,-1}, -{KEY_ "DIRECTORY",NULL,-1}, -{KEY_ "DISPLACED-INDEX-OFFSET",NULL,-1}, -{KEY_ "DISPLACED-TO",NULL,-1}, -{KEY_ "DOCUMENTATION",NULL,-1}, -{KEY_ "DOWNCASE",NULL,-1}, -{KEY_ "ELEMENT-TYPE",NULL,-1}, -{KEY_ "END",NULL,-1}, -{KEY_ "END1",NULL,-1}, -{KEY_ "END2",NULL,-1}, -{KEY_ "EOF",NULL,-1}, -{KEY_ "ERROR",NULL,-1}, -{KEY_ "ESCAPE",NULL,-1}, -{KEY_ "EXECUTE",NULL,-1}, -{KEY_ "EXPECTED-TYPE",NULL,-1}, -{KEY_ "EXPORT",NULL,-1}, -{KEY_ "EXPORT-FROM",NULL,-1}, -{KEY_ "EXTERNAL",NULL,-1}, -{KEY_ "EXTERNAL-FORMAT",NULL,-1}, -{KEY_ "FIFO",NULL,-1}, -{KEY_ "FILE",NULL,-1}, -{KEY_ "FILL-POINTER",NULL,-1}, -{KEY_ "FORMAT-ARGUMENTS",NULL,-1}, -{KEY_ "FORMAT-CONTROL",NULL,-1}, -{KEY_ "FUNCTION",NULL,-1}, -{KEY_ "GENSYM",NULL,-1}, -{KEY_ "HASH-FUNCTION",NULL,-1}, -{KEY_ "HOST",NULL,-1}, -{KEY_ "IF-DOES-NOT-EXIST",NULL,-1}, -{KEY_ "IF-ERROR-EXISTS",NULL,-1}, -{KEY_ "IF-EXISTS",NULL,-1}, -{KEY_ "IF-INPUT-DOES-NOT-EXIST",NULL,-1}, -{KEY_ "IF-OUTPUT-EXISTS",NULL,-1}, -{KEY_ "IGNORE",NULL,-1}, -{KEY_ "IMPORT-FROM",NULL,-1}, -{KEY_ "INCLUDE",NULL,-1}, -{KEY_ "INHERITED",NULL,-1}, -{KEY_ "INITIAL-ELEMENT",NULL,-1}, -{KEY_ "INITIAL-CONTENTS",NULL,-1}, -{KEY_ "INITIAL-OFFSET",NULL,-1}, -{KEY_ "INPUT",NULL,-1}, -{KEY_ "INTERACTIVE",NULL,-1}, -{KEY_ "INSTANCE",NULL,-1}, -{KEY_ "INTERN",NULL,-1}, -{KEY_ "INTERNAL",NULL,-1}, -{KEY_ "INVERT",NULL,-1}, -{KEY_ "IO",NULL,-1}, -{KEY_ "JUNK-ALLOWED",NULL,-1}, -{KEY_ "KEY",NULL,-1}, -{KEY_ "LENGTH",NULL,-1}, -{KEY_ "LEVEL",NULL,-1}, -{KEY_ "LINES",NULL,-1}, -{KEY_ "LINK",NULL,-1}, -{KEY_ "LIST-ALL",NULL,-1}, -{KEY_ "LOCAL",NULL,-1}, -{KEY_ "LOCAL-NICKNAMES",NULL,-1}, -{KEY_ "LOCKABLE",NULL,-1}, -{KEY_ "LOAD-TOPLEVEL",NULL,-1}, -{KEY_ "MASK",NULL,-1}, -{KEY_ "MISER-WIDTH",NULL,-1}, -{KEY_ "NAME",NULL,-1}, -{KEY_ "NAMED",NULL,-1}, -{KEY_ "NEW-VERSION",NULL,-1}, -{KEY_ "NEWEST",NULL,-1}, -{KEY_ "NICKNAMES",NULL,-1}, -{KEY_ "OBJECT",NULL,-1}, -{KEY_ "OFFSET",NULL,-1}, -{KEY_ "OPERATION",NULL,-1}, -{KEY_ "OPERANDS",NULL,-1}, -{KEY_ "OUTPUT",NULL,-1}, -{KEY_ "OVERWRITE",NULL,-1}, -{KEY_ "PACKAGE",NULL,-1}, -{KEY_ "PATHNAME",NULL,-1}, -{KEY_ "PPRINT-DISPATCH",NULL,-1}, -{KEY_ "PREDICATE",NULL,-1}, -{KEY_ "PRESERVE",NULL,-1}, -{KEY_ "PRETTY",NULL,-1}, -{KEY_ "PRINT",NULL,-1}, -{KEY_ "PRINT-FUNCTION",NULL,-1}, -{KEY_ "PRINT-OBJECT",NULL,-1}, -{KEY_ "PROBE",NULL,-1}, -{KEY_ "PROCESS",NULL,-1}, -{KEY_ "RADIX",NULL,-1}, -{KEY_ "READABLY",NULL,-1}, -{KEY_ "REHASH-SIZE",NULL,-1}, -{KEY_ "REHASH-THRESHOLD",NULL,-1}, -{KEY_ "RELATIVE",NULL,-1}, -{KEY_ "RENAME",NULL,-1}, -{KEY_ "RENAME-AND-DELETE",NULL,-1}, -{KEY_ "REPORT",NULL,-1}, -{KEY_ "RIGHT-MARGIN",NULL,-1}, -{KEY_ "SET-DEFAULT-PATHNAME",NULL,-1}, -{KEY_ "SEARCH-LIST",NULL,-1}, -{KEY_ "SHADOW",NULL,-1}, -{KEY_ "SHADOWING-IMPORT",NULL,-1}, -{KEY_ "SIZE",NULL,-1}, -{KEY_ "SPECIAL",NULL,-1}, -{KEY_ "START",NULL,-1}, -{KEY_ "START1",NULL,-1}, -{KEY_ "START2",NULL,-1}, -{KEY_ "STREAM",NULL,-1}, -{KEY_ "SUPERSEDE",NULL,-1}, -{KEY_ "TAG",NULL,-1}, -{KEY_ "TEST",NULL,-1}, -{KEY_ "TEST-NOT",NULL,-1}, -{KEY_ "TRUNCATE",NULL,-1}, -{KEY_ "TYPE",NULL,-1}, -{KEY_ "UNSPECIFIC",NULL,-1}, -{KEY_ "UNMASK",NULL,-1}, -{KEY_ "UP",NULL,-1}, -{KEY_ "UPCASE",NULL,-1}, -{KEY_ "USE",NULL,-1}, -{KEY_ "CSTREAM",NULL,-1}, -{KEY_ "VERBOSE",NULL,-1}, -{KEY_ "VERSION",NULL,-1}, -{KEY_ "WILD",NULL,-1}, -{KEY_ "WILD-INFERIORS",NULL,-1}, -{KEY_ "WAIT",NULL,-1}, - -{EXT_ "BYTE8",NULL,-1}, -{EXT_ "BYTE16",NULL,-1}, -{EXT_ "BYTE32",NULL,-1}, -{EXT_ "BYTE64",NULL,-1}, -{EXT_ "COMPILER-LET",NULL,-1}, -{EXT_ "INTEGER8",NULL,-1}, -{EXT_ "INTEGER16",NULL,-1}, -{EXT_ "INTEGER32",NULL,-1}, -{EXT_ "INTEGER64",NULL,-1}, -{EXT_ "LAMBDA-BLOCK",NULL,-1}, -{EXT_ "QUIT","si_quit",-1}, -{EXT_ "GET-METHOD",NULL,-1}, -{EXT_ "INSTANCE",NULL,-1}, - -{SYS_ "ALLOCATE-FOREIGN-DATA","si_allocate_foreign_data",2}, -{SYS_ "FIND-FOREIGN-SYMBOL","si_find_foreign_symbol",4}, -{SYS_ "FOREIGN-DATA",NULL,-1}, -{SYS_ "FOREIGN-DATA-ADDRESS","si_foreign_data_address",1}, -{SYS_ "FOREIGN-DATA-EQUAL","si_foreign_data_equal",2}, -{SYS_ "FOREIGN-DATA-P","si_foreign_data_p",1}, -{SYS_ "FOREIGN-DATA-POINTER","si_foreign_data_pointer",4}, -{SYS_ "FOREIGN-DATA-RECAST","si_foreign_data_recast",3}, -{SYS_ "FOREIGN-DATA-REF","si_foreign_data_ref",4}, -{SYS_ "FOREIGN-DATA-REF-ELT","si_foreign_data_ref_elt",3}, -{SYS_ "FOREIGN-DATA-SET","si_foreign_data_set",3}, -{SYS_ "FOREIGN-DATA-SET-ELT","si_foreign_data_set_elt",4}, -{SYS_ "FOREIGN-DATA-TAG","si_foreign_data_tag",1}, -{SYS_ "FOREIGN-ELT-TYPE-P","si_foreign_elt_type_p",1}, -{SYS_ "FREE-FOREIGN-DATA","si_free_foreign_data",1}, -{SYS_ "MAKE-FOREIGN-DATA-FROM-ARRAY","si_make_foreign_data_from_array",1}, -{SYS_ "LOAD-FOREIGN-MODULE","si_load_foreign_module",1}, -{SYS_ "UNLOAD-FOREIGN-MODULE","si_unload_foreign_module",1}, -{SYS_ "NULL-POINTER-P","si_null_pointer_p",1}, -{SYS_ "SIZE-OF-FOREIGN-ELT-TYPE","si_size_of_foreign_elt_type",1}, -{SYS_ "ALIGNMENT-OF-FOREIGN-ELT-TYPE","si_alignment_of_foreign_elt_type",1}, -{KEY_ "BYTE",NULL,-1}, -{KEY_ "CHAR",NULL,-1}, -{KEY_ "CSFLOAT",NULL,-1}, -{KEY_ "CDFLOAT",NULL,-1}, -{KEY_ "CLFLOAT",NULL,-1}, -{KEY_ "CSTRING",NULL,-1}, -{KEY_ "DOUBLE",NULL,-1}, -{KEY_ "FIXNUM",NULL,-1}, -{KEY_ "FLOAT",NULL,-1}, -{KEY_ "INT",NULL,-1}, -{KEY_ "INT8-T",NULL,-1}, -{KEY_ "INT16-T",NULL,-1}, -{KEY_ "INT32-T",NULL,-1}, -{KEY_ "INT64-T",NULL,-1}, -{KEY_ "LONG",NULL,-1}, -{KEY_ "LONG-DOUBLE",NULL,-1}, -{KEY_ "LONG-LONG",NULL,-1}, -{KEY_ "POINTER-SELF",NULL,-1}, -{KEY_ "POINTER-VOID",NULL,-1}, -{KEY_ "SHORT",NULL,-1}, -{KEY_ "STRUCT",NULL,-1}, -{KEY_ "UNION",NULL,-1}, -{KEY_ "VOID",NULL,-1}, -{KEY_ "UINT8-T",NULL,-1}, -{KEY_ "UINT16-T",NULL,-1}, -{KEY_ "UINT32-T",NULL,-1}, -{KEY_ "UINT64-T",NULL,-1}, -{KEY_ "UNSIGNED-BYTE",NULL,-1}, -{KEY_ "UNSIGNED-CHAR",NULL,-1}, -{KEY_ "UNSIGNED-INT",NULL,-1}, -{KEY_ "UNSIGNED-LONG",NULL,-1}, -{KEY_ "UNSIGNED-LONG-LONG",NULL,-1}, -{KEY_ "UNSIGNED-SHORT",NULL,-1}, - -#ifdef GBC_BOEHM -{EXT_ "GC","si_gc",-1}, -{SYS_ "GC-DUMP","si_gc_dump",0}, -{SYS_ "GC-STATS","si_gc_stats",1}, -#else -{EXT_ "GC","si_gc",-2}, -{SYS_ "ALLOCATE","si_allocate",-3}, -{SYS_ "ALLOCATED-PAGES","si_allocated_pages",-2}, -{SYS_ "MAXIMUM-ALLOCATABLE-PAGES","si_maximum_allocatable_pages",-2}, -{SYS_ "ALLOCATE-CONTIGUOUS-PAGES","si_allocate_contiguous_pages",-2}, -{SYS_ "ALLOCATED-CONTIGUOUS-PAGES","si_allocated_contiguous_pages",-1}, -{SYS_ "MAXIMUM-CONTIGUOUS-PAGES","si_maximum_contiguous_pages",-1}, -{SYS_ "GC-TIME","si_gc_time",-1}, -{SYS_ "GET-HOLE-SIZE","si_get_hole_size",-1}, -{SYS_ "SET-HOLE-SIZE","si_set_hole_size",-2}, -{SYS_ "IGNORE-MAXIMUM-PAGES","si_ignore_maximum_pages",-1}, -{SYS_ "ROOM-REPORT","si_room_report",-1}, -{SYS_ "RESET-GC-COUNT","si_reset_gc_count",-1}, -#endif /* !GBC_BOEHM */ -{EXT_ "TIMEOUT",NULL,-1}, -/* #ifdef ECL_THREADS */ -{MP_ "PROCESS",NULL,-1}, -{MP_ "LOCK",NULL,-1}, -{MP_ "CONDITION-VARIABLE",NULL,-1}, -{MP_ "*CURRENT-PROCESS*",NULL,-1}, -{MP_ "ALL-PROCESSES",IF_MP("mp_all_processes"),0}, -{MP_ "EXIT-PROCESS",IF_MP("mp_exit_process"),0}, -{MP_ "MAKE-PROCESS",IF_MP("mp_make_process"),-1}, -{MP_ "PROCESS-ACTIVE-P",IF_MP("mp_process_active_p"),1}, -{MP_ "PROCESS-ENABLE",IF_MP("mp_process_enable"),1}, -{MP_ "PROCESS-YIELD",IF_MP("mp_process_yield"),0}, -{MP_ "PROCESS-KILL",IF_MP("mp_process_kill"),1}, -{MP_ "PROCESS-NAME",IF_MP("mp_process_name"),1}, -{MP_ "PROCESS-PRESET",IF_MP("mp_process_preset"),-3}, -{MP_ "PROCESS-RUN-FUNCTION",IF_MP("mp_process_run_function"),-3}, -{MP_ "PROCESS-WHOSTATE",IF_MP("mp_process_whostate"),1}, -{MP_ "PROCESS-JOIN",IF_MP("mp_process_join"),1}, -{MP_ "MAKE-LOCK",IF_MP("mp_make_lock"),-1}, -{KEY_ "RECURSIVE",NULL,-1}, -{MP_ "RECURSIVE-LOCK-P",IF_MP("mp_recursive_lock_p"),1}, -{MP_ "HOLDING-LOCK-P",IF_MP("mp_holding_lock_p"),1}, -{MP_ "LOCK-NAME",IF_MP("mp_lock_name"),1}, -{MP_ "LOCK-OWNER",IF_MP("mp_lock_owner"),1}, -{MP_ "LOCK-COUNT",IF_MP("mp_lock_count"),1}, -{MP_ "GET-LOCK",IF_MP("mp_get_lock"),-2}, -{MP_ "GIVEUP-LOCK",IF_MP("mp_giveup_lock"),1}, -{MP_ "MAKE-CONDITION-VARIABLE",IF_MP("mp_make_condition_variable"),0}, -{MP_ "CONDITION-VARIABLE-WAIT",IF_MP("mp_condition_variable_wait"),2}, -{MP_ "CONDITION-VARIABLE-TIMEDWAIT",IF_MP("mp_condition_variable_timedwait"),3}, -{MP_ "CONDITION-VARIABLE-SIGNAL",IF_MP("mp_condition_variable_signal"),1}, -{MP_ "CONDITION-VARIABLE-BROADCAST",IF_MP("mp_condition_variable_broadcast"),1}, -{KEY_ "INITIAL-BINDINGS",NULL,-1}, -{MP_ "INTERRUPT-PROCESS",IF_MP("mp_interrupt_process"),2}, -{MP_ "+LOAD-COMPILE-LOCK+",NULL,-1}, -{MP_ "WITH-LOCK",NULL,-1}, -{MP_ "WITH-RWLOCK",NULL,-1}, -{MP_ "BLOCK-SIGNALS",IF_MP("mp_block_signals"),0}, -{MP_ "RESTORE-SIGNALS",IF_MP("mp_restore_signals"),1}, -{MP_ "PROCESS-SUSPEND",IF_MP("mp_process_suspend"),1}, -{MP_ "PROCESS-RESUME",IF_MP("mp_process_resume"),1}, -{MP_ "SUSPEND-LOOP",IF_MP("mp_suspend_loop"),0}, -{MP_ "BREAK-SUSPEND-LOOP",IF_MP("mp_break_suspend_loop"),0}, -{MP_ "MAKE-RWLOCK",IF_MP("mp_make_rwlock"),-1}, -{MP_ "RWLOCK",NULL,-1}, -{MP_ "RWLOCK-NAME",IF_MP("mp_rwlock_name"),1}, -{MP_ "GET-RWLOCK-READ",IF_MP("mp_get_rwlock_read"),-2}, -{MP_ "GET-RWLOCK-WRITE",IF_MP("mp_get_rwlock_write"),-2}, -{MP_ "GIVEUP-RWLOCK-READ",IF_MP("mp_giveup_rwlock_read"),1}, -{MP_ "GIVEUP-RWLOCK-WRITE",IF_MP("mp_giveup_rwlock_write"),1}, -{MP_ "GLOBAL-LOCK",NULL,-1}, -{MP_ "ERROR-LOCK",NULL,-1}, - -{MP_ "SEMAPHORE",NULL,-1}, -{MP_ "MAKE-SEMAPHORE",IF_MP("mp_make_semaphore"),-1}, -{MP_ "SIGNAL-SEMAPHORE",IF_MP("mp_signal_semaphore"),-2}, -{MP_ "WAIT-ON-SEMAPHORE",IF_MP("mp_wait_on_semaphore"),1}, -{MP_ "TRY-GET-SEMAPHORE",IF_MP("mp_try_get_semaphore"),1}, -{MP_ "SEMAPHORE-COUNT",IF_MP("mp_semaphore_count"),1}, -{MP_ "SEMAPHORE-NAME",IF_MP("mp_semaphore_name"),1}, -{MP_ "SEMAPHORE-WAIT-COUNT",IF_MP("mp_semaphore_wait_count"),1}, -{KEY_ "COUNT",NULL,-1}, - -{MP_ "BARRIER",NULL,-1}, -{MP_ "MAKE-BARRIER",IF_MP("mp_make_barrier"),-2}, -{MP_ "BARRIER-UNBLOCK",IF_MP("mp_barrier_unblock"),-2}, -{MP_ "BARRIER-WAIT",IF_MP("mp_barrier_wait"),1}, -{MP_ "BARRIER-COUNT",IF_MP("mp_barrier_count"),1}, -{MP_ "BARRIER-NAME",IF_MP("mp_barrier_name"),1}, -{MP_ "BARRIER-ARRIVERS-COUNT",IF_MP("mp_barrier_arrivers_count"),1}, -{KEY_ "DISABLE",NULL,-1}, -{KEY_ "RESET-COUNT",NULL,-1}, -{KEY_ "KILL-WAITING",NULL,-1}, -{KEY_ "UNBLOCKED",NULL,-1}, - -{MP_ "MAILBOX",NULL,-1}, -{MP_ "MAKE-MAILBOX",IF_MP("mp_make_mailbox"),-1}, -{MP_ "MAILBOX-NAME",IF_MP("mp_mailbox_name"),1}, -{MP_ "MAILBOX-COUNT",IF_MP("mp_mailbox_count"),1}, -{MP_ "MAILBOX-EMPTY-P",IF_MP("mp_mailbox_empty_p"),1}, -{MP_ "MAILBOX-READ",IF_MP("mp_mailbox_read"),1}, -{MP_ "MAILBOX-TRY-READ",IF_MP("mp_mailbox_try_read"),1}, -{MP_ "MAILBOX-SEND",IF_MP("mp_mailbox_send"),2}, -{MP_ "MAILBOX-TRY-SEND",IF_MP("mp_mailbox_try_send"),2}, -{MP_ "COMPARE-AND-SWAP-CAR",IF_MP("mp_compare_and_swap_car"),3}, -{MP_ "COMPARE-AND-SWAP-CDR",IF_MP("mp_compare_and_swap_cdr"),3}, -{MP_ "COMPARE-AND-SWAP-SYMBOL-PLIST",IF_MP("mp_compare_and_swap_symbol_plist"),3}, -{MP_ "COMPARE-AND-SWAP-SYMBOL-VALUE",IF_MP("mp_compare_and_swap_symbol_value"),3}, -{MP_ "COMPARE-AND-SWAP-SVREF",IF_MP("mp_compare_and_swap_svref"),4}, -{MP_ "COMPARE-AND-SWAP-INSTANCE",IF_MP("mp_compare_and_swap_instance"),4}, -{MP_ "COMPARE-AND-SWAP-STRUCTURE",IF_MP("mp_compare_and_swap_structure"),5}, -{MP_ "ATOMIC-INCF-CAR",IF_MP("mp_atomic_incf_car"),2}, -{MP_ "ATOMIC-INCF-CDR",IF_MP("mp_atomic_incf_cdr"),2}, -{MP_ "ATOMIC-INCF-SYMBOL-VALUE",IF_MP("mp_atomic_incf_symbol_value"),2}, -{MP_ "ATOMIC-INCF-SVREF",IF_MP("mp_atomic_incf_svref"),3}, -{MP_ "ATOMIC-INCF-INSTANCE",IF_MP("mp_atomic_incf_instance"),3}, -{MP_ "DEFINE-CAS-EXPANDER",NULL,-1}, -{MP_ "DEFCAS",NULL,-1}, -{MP_ "REMCAS",NULL,-1}, -{MP_ "GET-CAS-EXPANSION",NULL,-1}, -{MP_ "COMPARE-AND-SWAP",NULL,-1}, -{MP_ "ATOMIC-UPDATE",NULL,-1}, -{MP_ "ATOMIC-PUSH",NULL,-1}, -{MP_ "ATOMIC-POP",NULL,-1}, -{MP_ "ATOMIC-INCF",NULL,-1}, -{MP_ "ATOMIC-DECF",NULL,-1}, -/* #endif defined(ECL_THREADS) */ - -{SYS_ "WHILE",NULL,-1}, -{SYS_ "UNTIL",NULL,-1}, -{SYS_ "QUASIQUOTE",NULL,-1}, -{SYS_ "*EXIT-HOOKS*",NULL,-1}, - -{CLOS_ ".COMBINED-METHOD-ARGS.",NULL,-1}, -{CLOS_ "+BUILTIN-CLASSES+",NULL,-1}, -{CLOS_ "*NEXT-METHODS*",NULL,-1}, -{CLOS_ "*OPTIMIZE-SLOT-ACCESS*",NULL,-1}, -{CLOS_ "+THE-T-CLASS+",NULL,-1}, -{CLOS_ "+THE-CLASS+",NULL,-1}, -{CLOS_ "+THE-STD-CLASS+",NULL,-1}, -{CLOS_ "+THE-STANDARD-CLASS+",NULL,-1}, -{CLOS_ "+THE-FUNCALLABLE-STANDARD-CLASS+",NULL,-1}, -{CLOS_ "ACCESSOR-METHOD-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "ADD-DEPENDENT",NULL,-1}, -{CLOS_ "ADD-DIRECT-METHOD",NULL,-1}, -{CLOS_ "ADD-DIRECT-SUBCLASS",NULL,-1}, -{CLOS_ "CLASS-DEFAULT-INITARGS",NULL,-1}, -{CLOS_ "CLASS-DIRECT-DEFAULT-INITARGS",NULL,-1}, -{CLOS_ "CLASS-DIRECT-SLOTS",NULL,-1}, -{CLOS_ "CLASS-DIRECT-SUBCLASSES",NULL,-1}, -{CLOS_ "CLASS-DIRECT-SUPERCLASSES",NULL,-1}, -{CLOS_ "CLASS-FINALIZED-P",NULL,-1}, -{CLOS_ "CLASS-PRECEDENCE-LIST",NULL,-1}, -{CLOS_ "CLASS-PROTOTYPE",NULL,-1}, -{CLOS_ "CLASS-SLOTS",NULL,-1}, -{CLOS_ "COMPUTE-APPLICABLE-METHODS-USING-CLASSES",NULL,-1}, -{CLOS_ "COMPUTE-CLASS-PRECEDENCE-LIST",NULL,-1}, -{CLOS_ "COMPUTE-DEFAULT-INITARGS",NULL,-1}, -{CLOS_ "COMPUTE-DISCRIMINATING-FUNCTION",NULL,-1}, -{CLOS_ "COMPUTE-EFFECTIVE-METHOD",NULL,-1}, -{CLOS_ "COMPUTE-EFFECTIVE-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "COMPUTE-SLOTS",NULL,-1}, -{CLOS_ "DIRECT-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "DIRECT-SLOT-DEFINITION-CLASS",NULL,-1}, -{CLOS_ "EFFECTIVE-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "EFFECTIVE-SLOT-DEFINITION-CLASS",NULL,-1}, -{CLOS_ "ENSURE-CLASS","ECL_NAME(clos_ensure_class)",-2}, -{CLOS_ "ENSURE-CLASS-USING-CLASS",NULL,-1}, -{CLOS_ "ENSURE-GENERIC-FUNCTION-USING-CLASS",NULL,-3}, -{CLOS_ "EQL-SPECIALIZER",NULL,-1}, -{CLOS_ "EQL-SPECIALIZER-OBJECT",NULL,-1}, -{CLOS_ "EXTRACT-LAMBDA-LIST","ECL_NAME(clos_extract_lambda_list)",1}, -{CLOS_ "EXTRACT-SPECIALIZER-NAMES","ECL_NAME(clos_extract_specializer_names)",1}, -{CLOS_ "FINALIZE-INHERITANCE",NULL,-1}, -{CLOS_ "FIND-METHOD-COMBINATION",NULL,-1}, -{CLOS_ "FORWARD-REFERENCED-CLASS",NULL,-1}, -{CLOS_ "FUNCALLABLE-STANDARD-CLASS",NULL,-1}, -{CLOS_ "FUNCALLABLE-STANDARD-INSTANCE-ACCESS","ECL_NAME(clos_funcallable_standard_instance_access)",2}, -{CLOS_ "FUNCALLABLE-STANDARD-OBJECT",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-DECLARATIONS",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-LAMBDA-LIST",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-METHOD-CLASS",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-METHOD-COMBINATION",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-METHODS",NULL,-1}, -{CLOS_ "GENERIC-FUNCTION-NAME",NULL,-1}, -{CLOS_ "INTERN-EQL-SPECIALIZER",NULL,-1}, -{CLOS_ "LOCATION-TABLE",NULL,-1}, -{CLOS_ "MAKE-METHOD-LAMBDA",NULL,-1}, -{CLOS_ "MAP-DEPENDENTS",NULL,-1}, -{CLOS_ "METAOBJECT",NULL,-1}, -{CLOS_ "METHOD-FUNCTION",NULL,-1}, -{CLOS_ "METHOD-GENERIC-FUNCTION",NULL,-1}, -{CLOS_ "METHOD-LAMBDA-LIST",NULL,-1}, -{CLOS_ "METHOD-SPECIALIZERS",NULL,-1}, -{CLOS_ "NAME",NULL,-1}, -{CLOS_ "READER-METHOD-CLASS",NULL,-1}, -{CLOS_ "REMOVE-DEPENDENT",NULL,-1}, -{CLOS_ "REMOVE-DIRECT-METHOD",NULL,-1}, -{CLOS_ "REMOVE-DIRECT-SUBCLASS",NULL,-1}, -{CLOS_ "SET-FUNCALLABLE-INSTANCE-FUNCTION","clos_set_funcallable_instance_function",2}, -{CLOS_ "SLOT-BOUNDP-USING-CLASS",NULL,-1}, -{CLOS_ "SLOT-DEFINITION",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-ALLOCATION",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-INITARGS",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-INITFORM",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-INITFUNCTION",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-LOCATION",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-NAME",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-READERS",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-TYPE",NULL,-1}, -{CLOS_ "SLOT-DEFINITION-WRITERS",NULL,-1}, -{CLOS_ "SLOT-MAKUNBOUND-USING-CLASS",NULL,-1}, -{CLOS_ "SLOT-VALUE-USING-CLASS",NULL,-1}, -{CLOS_ "SLOT-VALUE-SET","clos_slot_value_set",3}, -{CLOS_ "SLOT-TABLE",NULL,-1}, -{CLOS_ "SPECIALIZER",NULL,-1}, -{CLOS_ "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS",NULL,-1}, -{CLOS_ "SPECIALIZER-DIRECT-METHODS",NULL,-1}, -{CLOS_ "STANDARD-ACCESSOR-METHOD",NULL,-1}, -{CLOS_ "STANDARD-DIRECT-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "STANDARD-EFFECTIVE-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "STANDARD-INSTANCE-ACCESS","ECL_NAME(clos_standard_instance_access)",2}, -{CLOS_ "STANDARD-INSTANCE-SET","ECL_NAME(clos_standard_instance_set)",3}, -{CLOS_ "STANDARD-READER-METHOD",NULL,-1}, -{CLOS_ "STANDARD-SLOT-DEFINITION",NULL,-1}, -{CLOS_ "STANDARD-WRITER-METHOD",NULL,-1}, -{CLOS_ "STANDARD-OPTIMIZED-READER-METHOD",NULL,-1}, -{CLOS_ "STANDARD-OPTIMIZED-WRITER-METHOD",NULL,-1}, -{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS","ECL_NAME(clos_std_compute_applicable_methods)",2}, -{CLOS_ "STD-COMPUTE-APPLICABLE-METHODS-USING-CLASSES",NULL,2}, -{CLOS_ "STD-COMPUTE-EFFECTIVE-METHOD","ECL_NAME(clos_std_compute_effective_method)",3}, -{CLOS_ "COMPUTE-EFFECTIVE-METHOD-FUNCTION","ECL_NAME(clos_compute_effective_method_function)",3}, -{CLOS_ "UPDATE-DEPENDENT",NULL,-1}, -{CLOS_ "UPDATE-INSTANCE",NULL,1}, -{CLOS_ "VALIDATE-SUPERCLASS",NULL,-1}, -{CLOS_ "WRITER-METHOD-CLASS",NULL,-1}, -{SYS_ "CLEAR-GFUN-HASH","si_clear_gfun_hash",1}, -{CLOS_ "LOAD-DEFCLASS","ECL_NAME(clos_load_defclass)",4}, -{CLOS_ "DOCSTRING",NULL,-1}, -{CLOS_ "SAFE-INSTANCE-REF","clos_safe_instance_ref",2}, - -{SYS_ "CL-FIXNUM-BITS",NULL,-1}, -{EXT_ "CL-FIXNUM",NULL,-1}, -{EXT_ "CL-INDEX",NULL,-1}, - -{SYS_ "DO-DEFTYPE","ECL_NAME(si_do_deftype)",-4}, -{SYS_ "CREATE-TYPE-NAME",NULL,-1}, -{SYS_ "*ALIEN-DECLARATIONS*",NULL,-1}, - -#ifdef ENABLE_DLOPEN -{SYS_ "LOAD-BINARY","si_load_binary",4}, -#else -{SYS_ "LOAD-BINARY",NULL,-1}, -#endif - -{SYS_ "*CODE-WALKER*",NULL,-1}, - -/* #if defined(HAVE_LIBFFI) */ -{SYS_ "CALL-CFUN",IF_DFFI("si_call_cfun"),-5}, -{KEY_ "CALLBACK",NULL,-1}, -{SYS_ "MAKE-DYNAMIC-CALLBACK",IF_DFFI("si_make_dynamic_callback"),-5}, -{SYS_ "FREE-FFI-CLOSURE",IF_DFFI("si_free_ffi_closure"),1}, -/* #endif defined(HAVE_LIBFFI) */ - -{EXT_ "TRAP-FPE","si_trap_fpe",2}, - -{EXT_ "*ACTION-ON-UNDEFINED-VARIABLE*",NULL,-1}, - -{SYS_ "WINDOWS-CODEPAGE-ENCODING",IF_WINDOWS("si_windows_codepage_encoding"),0}, - -{EXT_ "SET-BUFFERING-MODE","si_set_buffering_mode",2}, -{KEY_ "NONE",NULL,-1}, -{KEY_ "LINE-BUFFERED",NULL,-1}, -{KEY_ "FULLY-BUFFERED",NULL,-1}, -{KEY_ "LINE",NULL,-1}, -{KEY_ "FULL",NULL,-1}, - -{SYS_ "CMP-ENV-REGISTER-MACROLET",NULL,-1}, - -{EXT_ "GET-FINALIZER","si_get_finalizer",1}, -{EXT_ "SET-FINALIZER","si_set_finalizer",2}, - -{SYS_ "WRONG-TYPE-ARGUMENT","si_wrong_type_argument",-3}, - -{SYS_ "*CURRENT-FORM*",NULL,-1}, - -{SYS_ "CODE-BLOCK",NULL,-1}, - -{SYS_ "FRAME",NULL,-1}, -{SYS_ "APPLY-FROM-STACK-FRAME","si_apply_from_stack_frame",2}, - -#ifdef ECL_CLOS_STREAMS -{GRAY_ "CLOSE",NULL,-1}, -{GRAY_ "STREAMP",NULL,-1}, -{GRAY_ "INPUT-STREAM-P",NULL,1}, -{GRAY_ "OUTPUT-STREAM-P",NULL,1}, -{GRAY_ "OPEN-STREAM-P",NULL,1}, -{GRAY_ "STREAM-ADVANCE-TO-COLUMN",NULL,-1}, -{GRAY_ "STREAM-CLEAR-INPUT",NULL,-1}, -{GRAY_ "STREAM-CLEAR-OUTPUT",NULL,-1}, -{GRAY_ "STREAM-ELEMENT-TYPE",NULL,1}, -{GRAY_ "STREAM-FILE-DESCRIPTOR",NULL,-1}, -{GRAY_ "STREAM-FILE-POSITION",NULL,-1}, -{GRAY_ "STREAM-FINISH-OUTPUT",NULL,-1}, -{GRAY_ "STREAM-FORCE-OUTPUT",NULL,-1}, -{GRAY_ "STREAM-FRESH-LINE",NULL,-1}, -{GRAY_ "STREAM-INTERACTIVE-P",NULL,-1}, -{GRAY_ "STREAM-LINE-COLUMN",NULL,-1}, -{GRAY_ "STREAM-LISTEN",NULL,-1}, -{GRAY_ "STREAM-PEEK-CHAR",NULL,-1}, -{GRAY_ "STREAM-READ-BYTE",NULL,-1}, -{GRAY_ "STREAM-READ-CHAR",NULL,-1}, -{GRAY_ "STREAM-READ-CHAR-NO-HANG",NULL,-1}, -{GRAY_ "STREAM-READ-LINE",NULL,-1}, -{GRAY_ "STREAM-READ-SEQUENCE",NULL,-1}, -{GRAY_ "STREAM-START-LINE-P",NULL,-1}, -{GRAY_ "STREAM-TERPRI",NULL,-1}, -{GRAY_ "STREAM-UNREAD-CHAR",NULL,-1}, -{GRAY_ "STREAM-WRITE-BYTE",NULL,-1}, -{GRAY_ "STREAM-WRITE-CHAR",NULL,-1}, -{GRAY_ "STREAM-WRITE-SEQUENCE",NULL,-1}, -{GRAY_ "STREAM-WRITE-STRING",NULL,-1}, -{GRAY_ "FUNDAMENTAL-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-INPUT-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-OUTPUT-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-CHARACTER-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-BINARY-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-CHARACTER-INPUT-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-BINARY-INPUT-STREAM",NULL,-1}, -{GRAY_ "FUNDAMENTAL-BINARY-OUTPUT-STREAM",NULL,-1}, -#endif /* ECL_CLOS_STREAMS */ - -{SYS_ "LOG1P","si_log1p",1}, - -{EXT_ "BC-FILE","si_compiled_function_file",1}, -{EXT_ "COMPILED-FUNCTION-FILE","si_compiled_function_file",1}, - -{SYS_ "PROPERTY-LIST",NULL,1}, - -{SYS_ "BYTECODES",NULL,1}, - -{SYS_ "HASH-EQL","si_hash_eql",-1}, -{SYS_ "HASH-EQUAL","si_hash_equal",-1}, -{SYS_ "HASH-EQUALP","si_hash_equalp",-1}, - -{EXT_ "INTERACTIVE-INTERRUPT",NULL,-1}, - -{EXT_ "STORAGE-EXHAUSTED",NULL,-1}, -{EXT_ "STACK-OVERFLOW",NULL,-1}, -{EXT_ "STACK-OVERFLOW-SIZE",NULL,-1}, -{EXT_ "STACK-OVERFLOW-TYPE",NULL,-1}, -{EXT_ "BINDING-STACK",NULL,-1}, -{EXT_ "FRAME-STACK",NULL,-1}, -{EXT_ "LISP-STACK",NULL,-1}, -{EXT_ "C-STACK",NULL,-1}, -{EXT_ "HEAP-SIZE",NULL,-1}, -{EXT_ "ILLEGAL-INSTRUCTION",NULL,-1}, -{EXT_ "SET-LIMIT","si_set_limit",2}, -{EXT_ "GET-LIMIT","si_get_limit",1}, -{SYS_ "RESET-MARGIN","si_reset_margin",1}, -{EXT_ "SEGMENTATION-VIOLATION",NULL,-1}, - -{EXT_ "EXTENDED-STRING",NULL,-1}, - -{SYS_ "CHECK-PENDING-INTERRUPTS","si_check_pending_interrupts",0}, - -{KEY_ "LATIN-1",NULL,-1}, -{KEY_ "ISO-8859-1",NULL,-1}, -{KEY_ "UTF-8",NULL,-1}, -{KEY_ "UCS-2",NULL,-1}, -{KEY_ "UCS-4",NULL,-1}, - -{EXT_ "CONSTANTLY-T",NULL,-1}, -{EXT_ "CONSTANTLY-NIL",NULL,-1}, - -{EXT_ "MAYBE-QUOTE",NULL,-1}, -{EXT_ "MAYBE-UNQUOTE",NULL,-1}, - -{KEY_ "CR",NULL,-1}, -{KEY_ "LF",NULL,-1}, -{KEY_ "CRLF",NULL,-1}, - -{KEY_ "UCS-2BE",NULL,-1}, -{KEY_ "UCS-4BE",NULL,-1}, -{KEY_ "UCS-2LE",NULL,-1}, -{KEY_ "UCS-4LE",NULL,-1}, - -{EXT_ "LOAD-ENCODING","ECL_NAME(si_load_encoding)",1}, -{EXT_ "MAKE-ENCODING","ECL_NAME(si_make_encoding)",1}, -{EXT_ "ALL-ENCODINGS",NULL,-1}, - -{KEY_ "US-ASCII",NULL,-1}, -{KEY_ "LITTLE-ENDIAN",NULL,-1}, -{KEY_ "BIG-ENDIAN",NULL,-1}, - -{SYS_ "+UNICODE-DATABASE+",NULL,-1}, - -{EXT_ "COPY-FILE","si_copy_file",2}, - -{EXT_ "FILL-ARRAY-WITH-ELT","si_fill_array_with_elt",4}, - -{EXT_ "+ECL-VERSION-NUMBER+",NULL,-1}, - -{EXT_ "*BYTECODES-COMPILER*",NULL,-1}, - -#ifdef ECL_IEEE_FP -{SYS_ "NAN","si_nan",0}, - -{EXT_ "SHORT-FLOAT-POSITIVE-INFINITY",NULL,-1}, -{EXT_ "SINGLE-FLOAT-POSITIVE-INFINITY",NULL,-1}, -{EXT_ "DOUBLE-FLOAT-POSITIVE-INFINITY",NULL,-1}, -{EXT_ "LONG-FLOAT-POSITIVE-INFINITY",NULL,-1}, - -{EXT_ "SHORT-FLOAT-NEGATIVE-INFINITY",NULL,-1}, -{EXT_ "SINGLE-FLOAT-NEGATIVE-INFINITY",NULL,-1}, -{EXT_ "DOUBLE-FLOAT-NEGATIVE-INFINITY",NULL,-1}, -{EXT_ "LONG-FLOAT-NEGATIVE-INFINITY",NULL,-1}, -#endif /* ECL_IEEE_FP */ - -{EXT_ "FLOAT-NAN-P","si_float_nan_p",1}, -{EXT_ "FLOAT-INFINITY-P","si_float_infinity_p",1}, -{EXT_ "FLOAT-NAN-STRING",NULL,1}, -{EXT_ "FLOAT-INFINITY-STRING",NULL,1}, - -{SYS_ "READ-OBJECT-OR-IGNORE","si_read_object_or_ignore",2}, - -{EXT_ "READTABLE-LOCK","si_readtable_lock",-2}, - -{SYS_ "+IO-SYNTAX-PROGV-LIST+",NULL,-1}, -{SYS_ "+ECL-SYNTAX-PROGV-LIST+",NULL,-1}, -{SYS_ "WITH-ECL-IO-SYNTAX",NULL,-1}, - -{SYS_ "STREAM-EXTERNAL-FORMAT-SET","si_stream_external_format_set",2}, - -{KEY_ "CDECL",NULL,-1}, -{KEY_ "EABI",NULL,-1}, -{KEY_ "GNUW64",NULL,-1}, -{KEY_ "STDCALL",NULL,-1}, -{KEY_ "SYSV",NULL,-1}, -{KEY_ "UNIX",NULL,-1}, -{KEY_ "UNIX64",NULL,-1}, -{KEY_ "VFP",NULL,-1}, -{KEY_ "WIN64",NULL,-1}, - -{EXT_ "WEAK-POINTER",NULL,-1}, -{EXT_ "MAKE-WEAK-POINTER","si_make_weak_pointer",1}, -{EXT_ "WEAK-POINTER-VALUE","si_weak_pointer_value",1}, - -{SYS_ "*ALLOW-WITH-INTERRUPTS*",NULL,-1}, - -/* conveniance macros from CMU util */ -{EXT_ "ONCE-ONLY",NULL,-1}, -{EXT_ "COLLECT",NULL,-1}, -{EXT_ "WITH-UNIQUE-NAMES",NULL,-1}, -{EXT_ "WITH-GENSYMS",NULL,-1}, -{EXT_ "WITH-CLEAN-SYMBOLS",NULL,-1}, -{EXT_ "IF-LET",NULL,-1}, -{EXT_ "WHEN-LET",NULL,-1}, -{EXT_ "WHEN-LET*",NULL,-1}, - -{SYS_ "HANDLE-SIGNAL","si_handle_signal",1}, - -{EXT_ "WITH-INTERRUPTS",NULL,-1}, -{EXT_ "WITHOUT-INTERRUPTS",NULL,-1}, -{EXT_ "WITH-RESTORED-INTERRUPTS",NULL,-1}, -{EXT_ "WITH-LOCAL-INTERRUPTS",NULL,-1}, -{EXT_ "ALLOW-WITH-INTERRUPTS",NULL,-1}, - -{SYS_ "*QUIT-TAG*",NULL,-1}, - -{EXT_ "ARRAY-RAW-DATA","si_array_raw_data",1}, - -{EXT_ "*PROGRAM-EXIT-CODE*",NULL,-1}, -{EXT_ "EXIT","si_exit",-1}, - -{EXT_ "ENVIRON","si_environ",0}, - -{KEY_ "ENVIRON",NULL,-1}, - -/* external-process extension */ -{EXT_ "RUN-PROGRAM","ECL_NAME(si_run_program)",-3}, - -{EXT_ "MAKE-EXTERNAL-PROCESS",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-PID",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-INPUT",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-OUTPUT",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-ERROR-STREAM",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-STATUS",NULL,-1}, -{EXT_ "EXTERNAL-PROCESS-WAIT",NULL,-2}, -{EXT_ "TERMINATE-PROCESS","ECL_NAME(si_terminate_process)",-2}, - -{KEY_ "RUNNING",NULL,-1}, -{KEY_ "EXITED",NULL,-1}, -{KEY_ "SIGNALED",NULL,-1}, -{KEY_ "STOPPED",NULL,-1}, -{KEY_ "RESUMED",NULL,-1}, -/* ~ external-process extension */ - -/* unixsys.d */ -{SYS_ "WAITPID","si_waitpid",2}, -#if !defined(ECL_MS_WINDOWS_HOST) -{SYS_ "KILLPID","si_killpid",2}, -#else -{SYS_ "KILLPID",NULL,2}, -#endif -{SYS_ "RUN-PROGRAM-INNER","si_run_program_inner",4}, -{SYS_ "SPAWN-SUBPROCESS","si_spawn_subprocess",6}, -{SYS_ "CLOSE-WINDOWS-HANDLE",IF_WINDOWS("si_close_windows_handle"),1}, -/* ~ */ - -{EXT_ "*INVOKE-DEBUGGER-HOOK*",NULL,-1}, - -{EXT_ "*DOCUMENTATION-POOL*",NULL,-1}, -{EXT_ "ANNOTATE",NULL,-1}, -{EXT_ "GET-ANNOTATION",NULL,-1}, -{EXT_ "REMOVE-ANNOTATION",NULL,-1}, -{EXT_ "FUNCTION-LAMBDA-LIST",NULL,-1}, -{EXT_ "DEFAULT-ANNOTATION-LOGIC",NULL,-1}, -{EXT_ "OPTIONAL-ANNOTATION",NULL,-1}, -{EXT_ "LOCATION",NULL,-1}, - -{EXT_ "LISP-IMPLEMENTATION-VCS-ID","ECL_NAME(si_lisp_implementation_vcs_id)",0}, - -{SYS_ "SIGNAL-SERVICING",NULL,-1}, - -{EXT_ "*DEFAULT-EXTERNAL-FORMAT*",NULL,-1}, -{KEY_ "PASS-THROUGH",NULL,-1}, - -{EXT_ "WITH-BACKEND",NULL,-1}, -{KEY_ "BYTECODES",NULL,1}, -{KEY_ "C/C++",NULL,1}, - -{EXT_ "ARRAY-INDEX",NULL,-1}, -{EXT_ "ANSI-STREAM",NULL,-1}, -{EXT_ "VIRTUAL-STREAM",NULL,-1}, - -{EXT_ "COMPLEX-ARRAY",NULL,-1}, - -{SYS_ "SEQUENCE-START-END","si_sequence_start_end",4}, -{SYS_ "SEQUENCE-COUNT","ECL_NAME(si_sequence_count)",1}, -{SYS_ "SHRINK-VECTOR",NULL,-1}, -{SYS_ "COPY-SUBARRAY","si_copy_subarray",5}, - -{SYS_ "CONS-CAR","cl_car",1}, -{SYS_ "CONS-CDR","cl_cdr",1}, - -{EXT_ "COMPILER-TYPECASE",NULL,-1}, - -{SYS_ "ASSERT-FAILURE","ECL_NAME(si_assert_failure)",-2}, -{SYS_ "CCASE-ERROR","ECL_NAME(si_ccase_error)",3}, -{SYS_ "ECASE-ERROR","ECL_NAME(si_ecase_error)",2}, -{SYS_ "ETYPECASE-ERROR","ECL_NAME(si_etypecase_error)",2}, -{SYS_ "CTYPECASE-ERROR","ECL_NAME(si_ctypecase_error)",3}, -{SYS_ "DO-CHECK-TYPE","ECL_NAME(si_do_check_type)",4}, - -/* #ifdef ECL_EXTERNALIZABLE */ -{SYS_ "SERIALIZE",IF_EXTERNALIZABLE("si_serialize"),1}, -{SYS_ "DESERIALIZE",IF_EXTERNALIZABLE("si_deserialize"),1}, -/* #endif */ - -{EXT_ "ARRAY-ELEMENT-TYPE-BYTE-SIZE","si_array_element_type_byte_size",1}, - -/* #ifdef ECL_COMPLEX_FLOAT */ -{SYS_ "COMPLEX-FLOAT-P","IF_COMPLEX_FLOAT(si_complex_float_p)",1}, -{SYS_ "COMPLEX-FLOAT","IF_COMPLEX_FLOAT(si_complex_float)",2}, -{SYS_ "COMPLEX-SINGLE-FLOAT",NULL,-1}, -{SYS_ "COMPLEX-DOUBLE-FLOAT",NULL,-1}, -{SYS_ "COMPLEX-LONG-FLOAT",NULL,-1}, -/* #endif */ - -/* #ifdef ECL_SSE2 */ -{EXT_ "SSE-PACK",NULL,-1}, -{EXT_ "SSE-PACK-P",IF_SSE2("si_sse_pack_p"),1}, -{EXT_ "SSE-PACK-AS-ELT-TYPE",IF_SSE2("si_sse_pack_as_elt_type"),2}, -{EXT_ "VECTOR-TO-SSE-PACK",IF_SSE2("si_vector_to_sse_pack"),1}, -{EXT_ "SSE-PACK-TO-VECTOR",IF_SSE2("si_sse_pack_to_vector"),2}, -{EXT_ "INT-SSE-PACK",NULL,-1}, -{EXT_ "FLOAT-SSE-PACK",NULL,-1}, -{EXT_ "DOUBLE-SSE-PACK",NULL,-1}, -{EXT_ "SSE-PACK-ELEMENT-TYPE",IF_SSE2("si_sse_pack_element_type"),1}, -{EXT_ "*SSE-PACK-PRINT-MODE*",NULL,-1}, -/* #endif ECL_SSE2 */ - -{EXT_ "UNIX-SIGNAL-RECEIVED",NULL,-1}, -{EXT_ "UNIX-SIGNAL-RECEIVED-CODE",NULL,-1}, -{KEY_ "CODE",NULL,-1}, - -{EXT_ "ASSUME-RIGHT-TYPE",NULL,-1}, - -{SYS_ "FLOAT-TO-DIGITS","si_float_to_digits",4}, -{SYS_ "FLOAT-TO-STRING-FREE","si_float_to_string_free",4}, -{SYS_ "INTEGER-TO-STRING","si_integer_to_string",5}, - -{SYS_ "PRINT-UNREADABLE-OBJECT-FUNCTION","si_print_unreadable_object_function",5}, - -{EXT_ "DUMP-C-BACKTRACE","si_dump_c_backtrace",1}, - -{EXT_ "+PROCESS-STANDARD-INPUT+",NULL,-1}, -{EXT_ "+PROCESS-STANDARD-OUTPUT+",NULL,-1}, -{EXT_ "+PROCESS-ERROR-OUTPUT+",NULL,-1}, - -{EXT_ "*HELP-MESSAGE*",NULL,-1}, -{EXT_ "*LISP-INIT-FILE-LIST*",NULL,-1}, -{EXT_ "+DEFAULT-COMMAND-ARG-RULES+",NULL,-1}, -{EXT_ "COMMAND-ARGS",NULL,-1}, -{EXT_ "*COMMAND-ARGS*",NULL,-1}, -{EXT_ "PROCESS-COMMAND-ARGS",NULL,-1}, -{EXT_ "*UNPROCESSED-ECL-COMMAND-ARGS*",NULL,-1}, - -/* #ifdef ECL_UNICODE */ -{KEY_ "OCTETS",NULL,-1}, -{EXT_ "CHARACTER-CODING-ERROR",NULL,-1}, -{EXT_ "CHARACTER-CODING-ERROR-EXTERNAL-FORMAT",NULL,-1}, -{EXT_ "CHARACTER-ENCODING-ERROR",NULL,-1}, -{EXT_ "CHARACTER-ENCODING-ERROR-CODE",NULL,-1}, -{EXT_ "CHARACTER-DECODING-ERROR",NULL,-1}, -{EXT_ "CHARACTER-DECODING-ERROR-OCTETS",NULL,-1}, -{EXT_ "STREAM-DECODING-ERROR",NULL,-1}, -{EXT_ "STREAM-ENCODING-ERROR",NULL,-1}, -{EXT_ "DECODING-ERROR",NULL,3}, -{EXT_ "ENCODING-ERROR",NULL,3}, -/* #endif ECL_UNICODE */ - -{SYS_ "PROPER-LIST-P","si_proper_list_p",1}, -{SYS_ "TRACED-OLD-DEFINITION","ECL_NAME(si_traced_old_definition)",1}, -{SYS_ "*TRACE-LIST*",NULL,-1}, - -{SYS_ "FUNCTION-BOUNDARY",NULL,-1}, -{SYS_ "UNWIND-PROTECT-BOUNDARY",NULL,-1}, - -{EXT_ "*INSPECTOR-HOOK*",NULL,-1}, - -{KEY_ "RESOLVE-SYMLINKS",NULL,-1}, - -{SYS_ "LOAD-BYTECODES","si_load_bytecodes",4}, - -{KEY_ "SHARED",NULL,-1}, -{KEY_ "PRIVATE",NULL,-1}, - -{EXT_ "MMAP","si_mmap",-2}, -{EXT_ "MUNMAP","si_munmap",1}, -{EXT_ "MMAP-ARRAY","si_mmap_array",1}, - -{SYS_ "GET-CDATA","si_get_cdata",1}, -{SYS_ "ADD-CDATA","si_add_cdata",2}, - -/* - * CDR-5 http://cdr.eurolisp.org/document/5/extra-num-types.html - */ - -{EXT_ "NEGATIVE-FIXNUM",NULL,-1}, -{EXT_ "NON-NEGATIVE-FIXNUM",NULL,-1}, -{EXT_ "NON-POSITIVE-FIXNUM",NULL,-1}, -{EXT_ "POSITIVE-FIXNUM",NULL,-1}, -{EXT_ "NEGATIVE-FIXNUM-P","ECL_NAME(si_negative_fixnum_p)",1}, -{EXT_ "POSITIVE-FIXNUM-P","ECL_NAME(si_positive_fixnum_p)",1}, -{EXT_ "NON-NEGATIVE-FIXNUM-P","ECL_NAME(si_non_negative_fixnum_p)",1}, -{EXT_ "NON-POSITIVE-FIXNUM-P","ECL_NAME(si_non_positive_fixnum_p)",1}, - -{EXT_ "NEGATIVE-INTEGER",NULL,-1}, -{EXT_ "NON-NEGATIVE-INTEGER",NULL,-1}, -{EXT_ "NON-POSITIVE-INTEGER",NULL,-1}, -{EXT_ "POSITIVE-INTEGER",NULL,-1}, -{EXT_ "NEGATIVE-INTEGER-P","ECL_NAME(si_negative_integer_p)",1}, -{EXT_ "POSITIVE-INTEGER-P","ECL_NAME(si_positive_integer_p)",1}, -{EXT_ "NON-NEGATIVE-INTEGER-P","ECL_NAME(si_non_negative_integer_p)",1}, -{EXT_ "NON-POSITIVE-INTEGER-P","ECL_NAME(si_non_positive_integer_p)",1}, - -{EXT_ "NEGATIVE-RATIONAL",NULL,-1}, -{EXT_ "NON-NEGATIVE-RATIONAL",NULL,-1}, -{EXT_ "NON-POSITIVE-RATIONAL",NULL,-1}, -{EXT_ "POSITIVE-RATIONAL",NULL,-1}, -{EXT_ "NEGATIVE-RATIONAL-P","ECL_NAME(si_negative_rational_p)",1}, -{EXT_ "POSITIVE-RATIONAL-P","ECL_NAME(si_positive_rational_p)",1}, -{EXT_ "NON-NEGATIVE-RATIONAL-P","ECL_NAME(si_non_negative_rational_p)",1}, -{EXT_ "NON-POSITIVE-RATIONAL-P","ECL_NAME(si_non_positive_rational_p)",1}, - -{EXT_ "NEGATIVE-RATIO",NULL,-1}, -{EXT_ "NON-NEGATIVE-RATIO",NULL,-1}, -{EXT_ "NON-POSITIVE-RATIO",NULL,-1}, -{EXT_ "POSITIVE-RATIO",NULL,-1}, -{EXT_ "NEGATIVE-RATIO-P","ECL_NAME(si_negative_ratio_p)",1}, -{EXT_ "POSITIVE-RATIO-P","ECL_NAME(si_positive_ratio_p)",1}, -{EXT_ "NON-NEGATIVE-RATIO-P","ECL_NAME(si_non_negative_ratio_p)",1}, -{EXT_ "NON-POSITIVE-RATIO-P","ECL_NAME(si_non_positive_ratio_p)",1}, - -{EXT_ "NEGATIVE-REAL",NULL,-1}, -{EXT_ "NON-NEGATIVE-REAL",NULL,-1}, -{EXT_ "NON-POSITIVE-REAL",NULL,-1}, -{EXT_ "POSITIVE-REAL",NULL,-1}, -{EXT_ "NEGATIVE-REAL-P","ECL_NAME(si_negative_real_p)",1}, -{EXT_ "POSITIVE-REAL-P","ECL_NAME(si_positive_real_p)",1}, -{EXT_ "NON-NEGATIVE-REAL-P","ECL_NAME(si_non_negative_real_p)",1}, -{EXT_ "NON-POSITIVE-REAL-P","ECL_NAME(si_non_positive_real_p)",1}, - -{EXT_ "NEGATIVE-FLOAT",NULL,-1}, -{EXT_ "NON-NEGATIVE-FLOAT",NULL,-1}, -{EXT_ "NON-POSITIVE-FLOAT",NULL,-1}, -{EXT_ "POSITIVE-FLOAT",NULL,-1}, -{EXT_ "NEGATIVE-FLOAT-P","ECL_NAME(si_negative_float_p)",1}, -{EXT_ "POSITIVE-FLOAT-P","ECL_NAME(si_positive_float_p)",1}, -{EXT_ "NON-NEGATIVE-FLOAT-P","ECL_NAME(si_non_negative_float_p)",1}, -{EXT_ "NON-POSITIVE-FLOAT-P","ECL_NAME(si_non_positive_float_p)",1}, - -{EXT_ "NEGATIVE-SHORT-FLOAT",NULL,-1}, -{EXT_ "NON-NEGATIVE-SHORT-FLOAT",NULL,-1}, -{EXT_ "NON-POSITIVE-SHORT-FLOAT",NULL,-1}, -{EXT_ "POSITIVE-SHORT-FLOAT",NULL,-1}, -{EXT_ "NEGATIVE-SHORT-FLOAT-P","ECL_NAME(si_negative_short_float_p)",1}, -{EXT_ "POSITIVE-SHORT-FLOAT-P","ECL_NAME(si_positive_short_float_p)",1}, -{EXT_ "NON-NEGATIVE-SHORT-FLOAT-P","ECL_NAME(si_non_negative_short_float_p)",1}, -{EXT_ "NON-POSITIVE-SHORT-FLOAT-P","ECL_NAME(si_non_positive_short_float_p)",1}, - -{EXT_ "NEGATIVE-SINGLE-FLOAT",NULL,-1}, -{EXT_ "NON-NEGATIVE-SINGLE-FLOAT",NULL,-1}, -{EXT_ "NON-POSITIVE-SINGLE-FLOAT",NULL,-1}, -{EXT_ "POSITIVE-SINGLE-FLOAT",NULL,-1}, -{EXT_ "NEGATIVE-SINGLE-FLOAT-P","ECL_NAME(si_negative_single_float_p)",1}, -{EXT_ "POSITIVE-SINGLE-FLOAT-P","ECL_NAME(si_positive_single_float_p)",1}, -{EXT_ "NON-NEGATIVE-SINGLE-FLOAT-P","ECL_NAME(si_non_negative_single_float_p)",1}, -{EXT_ "NON-POSITIVE-SINGLE-FLOAT-P","ECL_NAME(si_non_positive_single_float_p)",1}, - -{EXT_ "NEGATIVE-DOUBLE-FLOAT",NULL,-1}, -{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT",NULL,-1}, -{EXT_ "NON-POSITIVE-DOUBLE-FLOAT",NULL,-1}, -{EXT_ "POSITIVE-DOUBLE-FLOAT",NULL,-1}, -{EXT_ "NEGATIVE-DOUBLE-FLOAT-P","ECL_NAME(si_negative_double_float_p)",1}, -{EXT_ "POSITIVE-DOUBLE-FLOAT-P","ECL_NAME(si_positive_double_float_p)",1}, -{EXT_ "NON-NEGATIVE-DOUBLE-FLOAT-P","ECL_NAME(si_non_negative_double_float_p)",1}, -{EXT_ "NON-POSITIVE-DOUBLE-FLOAT-P","ECL_NAME(si_non_positive_double_float_p)",1}, - -{EXT_ "NEGATIVE-LONG-FLOAT",NULL,-1}, -{EXT_ "NON-NEGATIVE-LONG-FLOAT",NULL,-1}, -{EXT_ "NON-POSITIVE-LONG-FLOAT",NULL,-1}, -{EXT_ "POSITIVE-LONG-FLOAT",NULL,-1}, -{EXT_ "NEGATIVE-LONG-FLOAT-P","ECL_NAME(si_negative_long_float_p)",1}, -{EXT_ "POSITIVE-LONG-FLOAT-P","ECL_NAME(si_positive_long_float_p)",1}, -{EXT_ "NON-NEGATIVE-LONG-FLOAT-P","ECL_NAME(si_non_negative_long_float_p)",1}, -{EXT_ "NON-POSITIVE-LONG-FLOAT-P","ECL_NAME(si_non_positive_long_float_p)",1}, - -{EXT_ "ARRAY-INDEX-P","ECL_NAME(si_array_index_p)",1}, - -{EXT_ "SEQUENCE-STREAM",NULL,-1}, -{EXT_ "MAKE-SEQUENCE-INPUT-STREAM","si_make_sequence_input_stream",-2}, -{EXT_ "MAKE-SEQUENCE-OUTPUT-STREAM","si_make_sequence_output_stream",-2}, - -{EXT_ "CHMOD","si_chmod",2}, - -{SYS_ "MISSING-KEYWORD",NULL,-1}, - -{EXT_ "HASH-TABLE-CONTENT","si_hash_table_content",1}, -{EXT_ "HASH-TABLE-FILL","si_hash_table_fill",2}, - -{EXT_ "RANDOM-STATE-ARRAY","si_random_state_array",1}, - -{SYS_ "REPORT-FUNCTION",NULL,-1}, - -{SYS_ "DO-DEFSETF","ECL_NAME(si_do_defsetf)",-3}, -{SYS_ "DO-DEFINE-SETF-METHOD","ECL_NAME(si_do_define_setf_method)",2}, - -{SYS_ "SETF-DEFINITION","ECL_NAME(si_setf_definition)",2}, - -{EXT_ "ASSUME-NO-ERRORS",NULL,-1}, -{EXT_ "ASSUME-TYPES-DONT-CHANGE",NULL,-1}, -{EXT_ "CHECK-ARGUMENTS-TYPE",NULL,-1}, -{EXT_ "INLINE-ACCESSORS",NULL,-1}, -{EXT_ "INLINE-TYPE-CHECKS",NULL,-1}, -{EXT_ "EVALUATE-FORMS",NULL,-1}, -{EXT_ "TYPE-ASSERTIONS",NULL,-1}, -{EXT_ "CHECK-STACK-OVERFLOW",NULL,-1}, -{EXT_ "ARRAY-BOUNDS-CHECK",NULL,-1}, - -{KEY_ "VALUE",NULL,-1}, -{KEY_ "KEY-AND-VALUE",NULL,-1}, -{KEY_ "KEY-OR-VALUE",NULL,-1}, -{KEY_ "WEAKNESS",NULL,-1}, -{EXT_ "HASH-TABLE-WEAKNESS","si_hash_table_weakness",1}, -{KEY_ "SYNCHRONIZED",NULL,-1}, -{EXT_ "HASH-TABLE-SYNCHRONIZED-P","si_hash_table_synchronized_p",1}, - -{EXT_ "TRULY-THE",NULL,-1}, -{EXT_ "CHECKED-VALUE",NULL,-1}, - -{EXT_ "INSTALL-BYTECODES-COMPILER",NULL,-1}, -{EXT_ "INSTALL-C-COMPILER",NULL,-1}, - -{FFI_ "C-CHAR-BIT",NULL,-1}, -{FFI_ "C-CHAR-MAX",NULL,-1}, -{FFI_ "C-CHAR-MIN",NULL,-1}, -{FFI_ "C-INT-MAX",NULL,-1}, /* See main.d */ -{FFI_ "C-INT-MIN",NULL,-1}, /* See main.d */ -{FFI_ "C-SHORT-MAX",NULL,-1}, -{FFI_ "C-SHORT-MIN",NULL,-1}, -{FFI_ "C-LONG-MAX",NULL,-1}, /* See main.d */ -{FFI_ "C-LONG-MIN",NULL,-1}, /* See main.d */ -{FFI_ "C-LONG-LONG-MAX",NULL,-1}, /* See main.d */ -{FFI_ "C-UCHAR-MAX",NULL,-1}, -{FFI_ "C-UINT-MAX",NULL,-1}, /* See main.d */ -{FFI_ "C-USHORT-MAX",NULL,-1}, -{FFI_ "C-ULONG-MAX",NULL,-1}, /* See main.d */ -{FFI_ "C-ULONG-LONG-MAX",NULL,-1}, /* See main.d */ -#ifdef ecl_long_long_t -{FFI_ "C-LONG-LONG-BIT",NULL,-1}, -#else -{FFI_ "C-LONG-LONG-BIT",NULL,-1}, -#endif - -{FFI_ "*USE-DFFI*",NULL,-1}, -{FFI_ "+NULL-CSTRING-POINTER+",NULL,-1}, -{FFI_ "ALLOCATE-FOREIGN-OBJECT",NULL,-1}, -{FFI_ "ALLOCATE-FOREIGN-STRING",NULL,-1}, -{FFI_ "C-INLINE",NULL,-1}, -{FFI_ "C-PROGN",NULL,-1}, -{FFI_ "CALLBACK",NULL,-1}, -{FFI_ "CHAR*",NULL,-1}, -{FFI_ "CHAR-ARRAY-TO-POINTER",NULL,-1}, -{FFI_ "CLINES",NULL,-1}, -{FFI_ "CONVERT-FROM-CSTRING",NULL,-1}, -{FFI_ "CONVERT-FROM-FOREIGN-STRING",NULL,-1}, -{FFI_ "CONVERT-TO-CSTRING",NULL,-1}, -{FFI_ "CONVERT-TO-FOREIGN-STRING",NULL,-1}, -{FFI_ "DEF-ARRAY",NULL,-1}, -{FFI_ "DEF-ARRAY-POINTER",NULL,-1}, -{FFI_ "DEF-CONSTANT",NULL,-1}, -{FFI_ "DEF-ENUM",NULL,-1}, -{FFI_ "DEF-FOREIGN-TYPE",NULL,-1}, -{FFI_ "DEF-FOREIGN-VAR",NULL,-1}, -{FFI_ "DEF-FUNCTION",NULL,-1}, -{FFI_ "DEF-STRUCT",NULL,-1}, -{FFI_ "DEF-TYPE",NULL,-1}, -{FFI_ "DEF-UNION",NULL,-1}, -{FFI_ "DEFCALLBACK",NULL,-1}, -{FFI_ "DEFCBODY",NULL,-1}, -{FFI_ "DEFENTRY",NULL,-1}, -{FFI_ "DEFINLINE",NULL,-1}, -{FFI_ "DEFLA",NULL,-1}, -{FFI_ "DEREF-ARRAY",NULL,-1}, -{FFI_ "DEREF-POINTER",NULL,-1}, -{FFI_ "DOUBLE",NULL,-1}, -{FFI_ "ENSURE-CHAR-CHARACTER",NULL,-1}, -{FFI_ "ENSURE-CHAR-INTEGER",NULL,-1}, -{FFI_ "ENSURE-CHAR-STORABLE",NULL,-1}, -{FFI_ "FIND-FOREIGN-LIBRARY",NULL,-1}, -{FFI_ "FOREIGN-STRING-LENGTH",NULL,-1}, -{FFI_ "FREE-CSTRING",NULL,-1}, -{FFI_ "FREE-FOREIGN-OBJECT",NULL,-1}, -{FFI_ "GET-SLOT-POINTER",NULL,-1}, -{FFI_ "GET-SLOT-VALUE",NULL,-1}, -{FFI_ "INT",NULL,-1}, -{FFI_ "LOAD-FOREIGN-LIBRARY",NULL,-1}, -{FFI_ "MAKE-NULL-POINTER",NULL,-1}, -{FFI_ "MAKE-POINTER",NULL,-1}, -{FFI_ "NULL-CHAR-P",NULL,-1}, -{FFI_ "OBJECT",NULL,-1}, -{FFI_ "POINTER-ADDRESS",NULL,-1}, -{FFI_ "SIZE-OF-FOREIGN-TYPE",NULL,-1}, -{FFI_ "VOID",NULL,-1}, -{FFI_ "WITH-CAST-POINTER",NULL,-1}, -{FFI_ "WITH-CSTRING",NULL,-1}, -{FFI_ "WITH-CSTRINGS",NULL,-1}, -{FFI_ "WITH-FOREIGN-OBJECT",NULL,-1}, -{FFI_ "WITH-FOREIGN-OBJECTS",NULL,-1}, -{FFI_ "WITH-FOREIGN-STRING",NULL,-1}, -{FFI_ "WITH-FOREIGN-STRINGS",NULL,-1}, - -{SYS_ "BIND-SIMPLE-RESTARTS","ECL_NAME(si_bind_simple_restarts)",2}, -{SYS_ "BIND-SIMPLE-HANDLERS","ECL_NAME(si_bind_simple_handlers)",2}, -{EXT_ "CONSTANT-FORM-VALUE","si_constant_form_value",-2}, -{EXT_ "CONSTANTP-INNER","si_constantp_inner",-2}, -{SYS_ "MAKE-BACKQ-VECTOR","si_make_backq_vector",3}, - -{SYS_ "RATIOP","ECL_NAME(si_ratiop)",1}, -{SYS_ "SHORT-FLOAT-P","ECL_NAME(si_short_float_p)",1}, -{SYS_ "SINGLE-FLOAT-P","ECL_NAME(si_single_float_p)",1}, -{SYS_ "DOUBLE-FLOAT-P","ECL_NAME(si_double_float_p)",1}, -{SYS_ "LONG-FLOAT-P","ECL_NAME(si_long_float_p)",1}, - -{SYS_ "COPY-HASH-TABLE","si_copy_hash_table",1}, - -/* Tag for end of list */ -{NULL,NULL,-1}}; diff --git a/src/doc/manual/developer-guide/sources.txi b/src/doc/manual/developer-guide/sources.txi index 7b1e48f063e6e7ab0f018c51532a1a3bd508d4ad..6902b278f017e917482cb4d46d11ff5cf14f2d07 100644 --- a/src/doc/manual/developer-guide/sources.txi +++ b/src/doc/manual/developer-guide/sources.txi @@ -207,9 +207,7 @@ @tab symbols @item @file{symbols_list.h} -@item @file{symbols_list2.h} -@tab The latter is generated from the first. The first has to contain all -symbols on the system which aren't local. +@tab The file has contains all symbols defined in the core. @item @file{tcp.d} @tab stream interface to TCP diff --git a/src/h/external.h b/src/h/external.h index 9572f14c6d1b2d58de8967a1815241df3f7ff2fc..3392fd57b5e6416da05c7b7c7b0e6e3dc9af7a1b 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -310,9 +310,10 @@ extern ECL_API cl_object si_mangle_name _ECL_ARGS((cl_narg narg, cl_object symbo typedef union { struct { const char *name; - int type; + const char *translation; void *fun; - short narg; + int narg; + int type; cl_object value; } init; struct ecl_symbol data; diff --git a/src/h/object.h b/src/h/object.h index 851bff4eff6a3aad8e1a8b573e839e09ce0b0ac2..3ab8a6c84a3bf8c3081946d6ee15fc182f4fa29e 100644 --- a/src/h/object.h +++ b/src/h/object.h @@ -288,6 +288,7 @@ struct ecl_symbol { cl_object plist; /* property list */ /* This field coincides with cons.car */ cl_object name; /* print name */ + cl_object cname; /* associated C name (or NIL) */ cl_object hpack; /* home package */ /* ECL_NIL for uninterned symbols */ #ifdef ECL_THREADS diff --git a/src/util/emacs.el b/src/util/emacs.el index 10250bf0c4238cae6687df33c4bcfff048ecc000..1e11c74ac03a7ef92f03de07228ed707ac9d2dbb 100644 --- a/src/util/emacs.el +++ b/src/util/emacs.el @@ -201,7 +201,6 @@ "c/structure.d" "c/symbol.d" "c/symbols_list.h" -"c/symbols_list2.h" "c/tcp.d" "c/threads/atomic.d" "c/threads/barrier.d" diff --git a/src/util/gen-symbol-table.lisp b/src/util/gen-symbol-table.lisp new file mode 100644 index 0000000000000000000000000000000000000000..449db50bb1cd78c3b1005f0decb9712219e0f9aa --- /dev/null +++ b/src/util/gen-symbol-table.lisp @@ -0,0 +1,153 @@ +;;; This file is used to generate symbols_list.h. Go to the last page to see +;;; an ad-hoc parser for the old symbols_list.h from which the current +;;; definitions were created. Keep in mind that it is only a helper to +;;; generate the cl_symbols table in a desired format, some manual curation is +;;; also needed (i.e modification of the structure etc). + + +;;; Utilities + +(defvar *pkg+kind-mapping* + `(("CL_ORDINARY" :cl :ordinary) + ("CL_SPECIAL" :cl :special) + ("CL_CONSTANT" :cl :constant) + ("CL_FORM" :cl :form) + ("SI_ORDINARY" :si :ordinary) + ("SI_SPECIAL" :si :special) + ("SI_CONSTANT" :si :constant) + ("EXT_ORDINARY" :ext :ordinary) + ("EXT_SPECIAL" :ext :special) + ("EXT_CONSTANT" :ext :constant) + ("EXT_FORM" :ext :form) + ("MP_ORDINARY" :mp :ordinary) + ("MP_SPECIAL" :mp :special) + ("MP_CONSTANT" :mp :constant) + ("CLOS_ORDINARY" :clos :ordinary) + ("CLOS_SPECIAL" :clos :special) + ("CLOS_ORDINARY | PRIVATE" :clos :private) + ("KEYWORD" :keyword :constant) + ("GRAY_ORDINARY" :gray :ordinary) + ("FFI_ORDINARY" :ffi :ordinary) + ("FFI_CONSTANT" :ffi :constant))) + +(defun pkg+kind->type (pkg kind) + (car (find (list pkg kind) *pkg+kind-mapping* :key #'cdr :test #'equal))) + +(defun type->pkg+kind (type) + (cdr (find type *pkg+kind-mapping* :key #'car :test #'equal))) + +(defun split-sequence (char string &aux acc) + (do ((line string (subseq line (1+ (position char line))))) + ((null (position char line)) + (push line acc) + (nreverse (mapcar (lambda (str) + (string-trim '(#\space) str)) + acc))) + (push (subseq line 0 (position char line)) acc))) + + +;;; Parser returns a list of "lines" in a preprocessed form: +;;; +;;; (line-type ,@arguments) ; or +;;; (pack name kind value cfun narg) +;;; +;;; LINE-TYPE is either :macro, :comment, :newline, :end-tag or :entry. PACK +;;; is one of core packages (i.e :ffi), NAME is the symbol name etc. CFUN is +;;; the name of the corresponding C function. +;;; +;;; Entry parsers have versions so it is possible to parse and generate older +;;; versions of the table. +;;; +;;; Example usage: +;;; +#+(or) +(let ((symbols-list (parse-symbols-list "path/to/symbols_list.h" #'v1-parse-entry))) + (generate-symbols-list symbols_list #'v1-generate-entry)) + +(defun parse-symbols-list (path parser) + (with-open-file (s path) + (do ((line (read-line s nil :eof) + (read-line s nil :eof)) + results) + ((eq line :eof) (nreverse results)) + (push + (cond ((zerop (length line)) + `(:newline)) + ((search "}};" line) + `(:end-tag ,(funcall parser line))) + ((case (char line 0) + (#\{ `(:entry ,(funcall parser line))) + (#\# `(:macro ,line)) + (otherwise (if (zerop (length line)) + `(:newline) + `(:comment ,line)))))) + results)))) + +(defun generate-symbols-list (results generator) + (loop for line in results + do (case (first line) + (:macro (format t "~a~%" (second line))) + (:comment (format t "~a~%" (second line))) + (:newline (terpri)) + (:end-tag (format t "~a};~%" (apply generator (second line)))) + (:entry (format t "~a,~%" (apply generator (second line))))))) + +(defun v1-parse-entry (line) + (destructuring-bind (name package+kind cfun narg value) + (split-sequence #\, (subseq line + (1+ (position #\{ line)) + (position #\} line))) + (let* ((pkg-kind (type->pkg+kind package+kind)) + (pack (first pkg-kind)) + (kind (second pkg-kind)) + (narg (parse-integer narg))) + (list pack name kind value cfun narg)))) + +(defun v1-generate-entry (package name kind value cfun narg) + (let ((type (pkg+kind->type package kind)) + (narg (or narg -1))) + (format nil "{~a, ~a, ~a, ~d, ~a}" + name type cfun narg value))) + +;;; V2 is defined to unify symbols_list.h files between ECL core and DPP. Also +;;; it gives the all_symbols.d module an insight for the predefined symbol +;;; name mappings (see #534). +(defun v2-parse-entry (line) + (let* ((fun-pos (search "ECL_FUN" line)) + (var-pos (search "ECL_VAR" line)) + (end-pos (position #\) line :from-end t)) + (name (subseq line 1 (1- fun-pos))) + (fun-arg (split-sequence #\, (subseq line + (+ fun-pos 8) + (- var-pos 2)))) + (var-arg (split-sequence #\, (subseq line + (+ var-pos 8) + end-pos)))) + (destructuring-bind (fun-name cfun narg) fun-arg + (declare (ignore fun-name)) + (destructuring-bind (type value) var-arg + (let* ((pkg-kind (type->pkg+kind type)) + (pack (first pkg-kind)) + (kind (second pkg-kind)) + (narg (parse-integer narg))) + (list pack name kind value cfun narg)))))) + +(defun v2-generate-entry (package name kind value cfun narg) + (let ((type (pkg+kind->type package kind)) + (narg (or narg -1)) + (fun-name (let* ((start (position #\( cfun :from-end t)) + (end (position #\) cfun)) + ;; Find the "innermost" symbol, i.e for + ;; IF_DFFI(ECL_NAME(foobar)) it is foobar + (fname (if start + (subseq cfun + (1+ start) + end) + cfun))) + ;; If it is NULL, we want to specify NULL, otherwise we + ;; wrap the symbol in quotes to have a string. + (if (string= fname "NULL") + "NULL" + (format nil "~s" fname))))) + (format nil "{~a ECL_FUN(~a, ~a, ~a) ECL_VAR(~a, ~a)}" + name fun-name cfun narg type value)))