#ifndef _CLISP_H
#define _CLISP_H

/* ==== config.h ==== */
/* config.h.  Generated from config.h.in by configure.  */
/* config.h.in.  Generated from configure.in by autoheader.  */

/* CPU and C ABI indicator */
#ifndef __i386__
/* #undef __i386__ */
#endif
#ifndef __x86_64_x32__
/* #undef __x86_64_x32__ */
#endif
#ifndef __x86_64__
/* #undef __x86_64__ */
#endif
#ifndef __alpha__
/* #undef __alpha__ */
#endif
#ifndef __arm__
/* #undef __arm__ */
#endif
#ifndef __armhf__
/* #undef __armhf__ */
#endif
#ifndef __arm64_ilp32__
/* #undef __arm64_ilp32__ */
#endif
#ifndef __arm64__
/* #undef __arm64__ */
#endif
#ifndef __hppa__
/* #undef __hppa__ */
#endif
#ifndef __hppa64__
/* #undef __hppa64__ */
#endif
#ifndef __ia64_ilp32__
/* #undef __ia64_ilp32__ */
#endif
#ifndef __ia64__
/* #undef __ia64__ */
#endif
#ifndef __m68k__
/* #undef __m68k__ */
#endif
#ifndef __mips__
/* #undef __mips__ */
#endif
#ifndef __mipsn32__
/* #undef __mipsn32__ */
#endif
#ifndef __mips64__
/* #undef __mips64__ */
#endif
#ifndef __powerpc__
#define __powerpc__ 1
#endif
#ifndef __powerpc64__
/* #undef __powerpc64__ */
#endif
#ifndef __powerpc64_elfv2__
/* #undef __powerpc64_elfv2__ */
#endif
#ifndef __riscv32__
/* #undef __riscv32__ */
#endif
#ifndef __riscv64__
/* #undef __riscv64__ */
#endif
#ifndef __riscv32_ilp32__
/* #undef __riscv32_ilp32__ */
#endif
#ifndef __riscv32_ilp32f__
/* #undef __riscv32_ilp32f__ */
#endif
#ifndef __riscv32_ilp32d__
/* #undef __riscv32_ilp32d__ */
#endif
#ifndef __riscv64_ilp32__
/* #undef __riscv64_ilp32__ */
#endif
#ifndef __riscv64_ilp32f__
/* #undef __riscv64_ilp32f__ */
#endif
#ifndef __riscv64_ilp32d__
/* #undef __riscv64_ilp32d__ */
#endif
#ifndef __riscv64_lp64__
/* #undef __riscv64_lp64__ */
#endif
#ifndef __riscv64_lp64f__
/* #undef __riscv64_lp64f__ */
#endif
#ifndef __riscv64_lp64d__
/* #undef __riscv64_lp64d__ */
#endif
#ifndef __s390__
/* #undef __s390__ */
#endif
#ifndef __s390x__
/* #undef __s390x__ */
#endif
#ifndef __sh__
/* #undef __sh__ */
#endif
#ifndef __sparc__
/* #undef __sparc__ */
#endif
#ifndef __sparc64__
/* #undef __sparc64__ */
#endif


/* Define if building universal (internal helper macro) */
/* #undef AC_APPLE_UNIVERSAL_BUILD */

/* Define to the number of bits in type 'ptrdiff_t'. */
#define BITSIZEOF_PTRDIFF_T 32

/* Define to the number of bits in type 'sig_atomic_t'. */
#define BITSIZEOF_SIG_ATOMIC_T 32

/* Define to the number of bits in type 'size_t'. */
#define BITSIZEOF_SIZE_T 32

/* Define to the number of bits in type 'wchar_t'. */
#define BITSIZEOF_WCHAR_T 32

/* Define to the number of bits in type 'wint_t'. */
#define BITSIZEOF_WINT_T 32

/* address range of program code (text+data+bss) */
#define CODE_ADDRESS_RANGE 0x00000000UL

/* Define to 1 if using 'alloca.c'. */
/* #undef C_ALLOCA */

/* Define to 1 for DGUX with <sys/dg_sys_info.h>. */
/* #undef DGUX */

/* Define to 1 if 'double' division by zero raises an exception. */
/* #undef DOUBLE_DIV0_EXCEPTION */

/* Define to 1 if a 'double' inexact operation raises an exception. */
/* #undef DOUBLE_INEXACT_EXCEPTION */

/* Define to 1 if 'double' overflow raises an exception. */
/* #undef DOUBLE_OVERFLOW_EXCEPTION */

/* Define to 1 if // is a file system root distinct from /. */
/* #undef DOUBLE_SLASH_IS_DISTINCT_ROOT */

/* Define to 1 if 'double' underflow raises an exception. */
/* #undef DOUBLE_UNDERFLOW_EXCEPTION */

/* Define to 1 if translation of program messages to the user's native
   language is requested. */
#define ENABLE_NLS 1

/* Define this to 1 if F_DUPFD behavior does not match POSIX */
/* #undef FCNTL_DUPFD_BUGGY */

/* Define to nothing if C supports flexible array members, and to 1 if it does
   not. That way, with a declaration like 'struct s { int n; short
   d[FLEXIBLE_ARRAY_MEMBER]; };', the struct hack can be used with pre-C99
   compilers. Use 'FLEXSIZEOF (struct s, d, N * sizeof (short))' to calculate
   the size in bytes of such a struct containing an N-element array. */
#define FLEXIBLE_ARRAY_MEMBER /**/

/* Define to 1 if 'float' division by zero raises an exception. */
/* #undef FLOAT_DIV0_EXCEPTION */

/* Define to 1 if a 'float' inexact operation raises an exception. */
/* #undef FLOAT_INEXACT_EXCEPTION */

/* Define to 1 if 'float' overflow raises an exception. */
/* #undef FLOAT_OVERFLOW_EXCEPTION */

/* Define to 1 if 'float' underflow raises an exception. */
/* #undef FLOAT_UNDERFLOW_EXCEPTION */

/* Define to 1 if the system's ftello function has the Solaris bug. */
/* #undef FTELLO_BROKEN_AFTER_SWITCHING_FROM_READ_TO_WRITE */

/* Define to 1 if the system's ftello function has the macOS bug. */
/* #undef FTELLO_BROKEN_AFTER_UNGETC */

/* Define to 1 if fflush is known to work on stdin as per POSIX.1-2008, 0 if
   fflush is known to not work, -1 if unknown. */
#define FUNC_FFLUSH_STDIN 0

/* Define to 1 if mkdir mistakenly creates a directory given with a trailing
   dot component. */
/* #undef FUNC_MKDIR_DOT_BUG */

/* Define to 1 if nl_langinfo (YESEXPR) returns a non-empty string. */
#define FUNC_NL_LANGINFO_YESEXPR_WORKS 1

/* Define to 1 if ungetc is broken when used on arbitrary bytes. */
/* #undef FUNC_UNGETC_BROKEN */

/* Define this to 'void' or 'struct timezone' to match the system's
   declaration of the second argument to gettimeofday. */
#define GETTIMEOFDAY_TIMEZONE void

/* Compile Gnulib crypto stream ops. */
#define GL_COMPILE_CRYPTO_STREAM 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module fflush shall be considered present. */
#define GNULIB_FFLUSH 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module fnmatch-gnu shall be considered present. */
#define GNULIB_FNMATCH_GNU 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module fscanf shall be considered present. */
#define GNULIB_FSCANF 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module isblank shall be considered present. */
#define GNULIB_ISBLANK 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module lock shall be considered present. */
#define GNULIB_LOCK 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module msvc-nothrow shall be considered present. */
#define GNULIB_MSVC_NOTHROW 1

/* Define to 1 if printf and friends should be labeled with attribute
   "__gnu_printf__" instead of "__printf__" */
/* #undef GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU */

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module scanf shall be considered present. */
#define GNULIB_SCANF 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module strerror_r-posix shall be considered present. */
#define GNULIB_STRERROR_R_POSIX 1

/* Define to a C preprocessor expression that evaluates to 1 or 0, depending
   whether the gnulib module tempname shall be considered present. */
#define GNULIB_TEMPNAME 1

/* Define to 1 when the gnulib module accept should be tested. */
#define GNULIB_TEST_ACCEPT 1

/* Define to 1 when the gnulib module bind should be tested. */
#define GNULIB_TEST_BIND 1

/* Define to 1 when the gnulib module btowc should be tested. */
#define GNULIB_TEST_BTOWC 1

/* Define to 1 when the gnulib module cloexec should be tested. */
#define GNULIB_TEST_CLOEXEC 1

/* Define to 1 when the gnulib module close should be tested. */
#define GNULIB_TEST_CLOSE 1

/* Define to 1 when the gnulib module connect should be tested. */
#define GNULIB_TEST_CONNECT 1

/* Define to 1 when the gnulib module dup2 should be tested. */
#define GNULIB_TEST_DUP2 1

/* Define to 1 when the gnulib module environ should be tested. */
#define GNULIB_TEST_ENVIRON 1

/* Define to 1 when the gnulib module fcntl should be tested. */
#define GNULIB_TEST_FCNTL 1

/* Define to 1 when the gnulib module fflush should be tested. */
#define GNULIB_TEST_FFLUSH 1

/* Define to 1 when the gnulib module fgetc should be tested. */
#define GNULIB_TEST_FGETC 1

/* Define to 1 when the gnulib module fgets should be tested. */
#define GNULIB_TEST_FGETS 1

/* Define to 1 when the gnulib module fnmatch should be tested. */
#define GNULIB_TEST_FNMATCH 1

/* Define to 1 when the gnulib module fprintf should be tested. */
#define GNULIB_TEST_FPRINTF 1

/* Define to 1 when the gnulib module fpurge should be tested. */
#define GNULIB_TEST_FPURGE 1

/* Define to 1 when the gnulib module fputc should be tested. */
#define GNULIB_TEST_FPUTC 1

/* Define to 1 when the gnulib module fputs should be tested. */
#define GNULIB_TEST_FPUTS 1

/* Define to 1 when the gnulib module fread should be tested. */
#define GNULIB_TEST_FREAD 1

/* Define to 1 when the gnulib module fscanf should be tested. */
#define GNULIB_TEST_FSCANF 1

/* Define to 1 when the gnulib module fseek should be tested. */
#define GNULIB_TEST_FSEEK 1

/* Define to 1 when the gnulib module fseeko should be tested. */
#define GNULIB_TEST_FSEEKO 1

/* Define to 1 when the gnulib module fstat should be tested. */
#define GNULIB_TEST_FSTAT 1

/* Define to 1 when the gnulib module ftell should be tested. */
#define GNULIB_TEST_FTELL 1

/* Define to 1 when the gnulib module ftello should be tested. */
#define GNULIB_TEST_FTELLO 1

/* Define to 1 when the gnulib module fwrite should be tested. */
#define GNULIB_TEST_FWRITE 1

/* Define to 1 when the gnulib module getc should be tested. */
#define GNULIB_TEST_GETC 1

/* Define to 1 when the gnulib module getchar should be tested. */
#define GNULIB_TEST_GETCHAR 1

/* Define to 1 when the gnulib module getdtablesize should be tested. */
#define GNULIB_TEST_GETDTABLESIZE 1

/* Define to 1 when the gnulib module gethostname should be tested. */
#define GNULIB_TEST_GETHOSTNAME 1

/* Define to 1 when the gnulib module getloadavg should be tested. */
#define GNULIB_TEST_GETLOADAVG 1

/* Define to 1 when the gnulib module getpagesize should be tested. */
#define GNULIB_TEST_GETPAGESIZE 1

/* Define to 1 when the gnulib module getpeername should be tested. */
#define GNULIB_TEST_GETPEERNAME 1

/* Define to 1 when the gnulib module getrandom should be tested. */
#define GNULIB_TEST_GETRANDOM 1

/* Define to 1 when the gnulib module getsockname should be tested. */
#define GNULIB_TEST_GETSOCKNAME 1

/* Define to 1 when the gnulib module getsockopt should be tested. */
#define GNULIB_TEST_GETSOCKOPT 1

/* Define to 1 when the gnulib module gettimeofday should be tested. */
#define GNULIB_TEST_GETTIMEOFDAY 1

/* Define to 1 when the gnulib module ioctl should be tested. */
#define GNULIB_TEST_IOCTL 1

/* Define to 1 when the gnulib module listen should be tested. */
#define GNULIB_TEST_LISTEN 1

/* Define to 1 when the gnulib module localeconv should be tested. */
#define GNULIB_TEST_LOCALECONV 1

/* Define to 1 when the gnulib module lseek should be tested. */
#define GNULIB_TEST_LSEEK 1

/* Define to 1 when the gnulib module lstat should be tested. */
#define GNULIB_TEST_LSTAT 1

/* Define to 1 when the gnulib module malloc-posix should be tested. */
#define GNULIB_TEST_MALLOC_POSIX 1

/* Define to 1 when the gnulib module mbrtowc should be tested. */
#define GNULIB_TEST_MBRTOWC 1

/* Define to 1 when the gnulib module mbsinit should be tested. */
#define GNULIB_TEST_MBSINIT 1

/* Define to 1 when the gnulib module mbsrtowcs should be tested. */
#define GNULIB_TEST_MBSRTOWCS 1

/* Define to 1 when the gnulib module mbtowc should be tested. */
#define GNULIB_TEST_MBTOWC 1

/* Define to 1 when the gnulib module memchr should be tested. */
#define GNULIB_TEST_MEMCHR 1

/* Define to 1 when the gnulib module mempcpy should be tested. */
#define GNULIB_TEST_MEMPCPY 1

/* Define to 1 when the gnulib module mkdir should be tested. */
#define GNULIB_TEST_MKDIR 1

/* Define to 1 when the gnulib module mkdtemp should be tested. */
#define GNULIB_TEST_MKDTEMP 1

/* Define to 1 when the gnulib module mkfifo should be tested. */
#define GNULIB_TEST_MKFIFO 1

/* Define to 1 when the gnulib module mknod should be tested. */
#define GNULIB_TEST_MKNOD 1

/* Define to 1 when the gnulib module mkstemp should be tested. */
#define GNULIB_TEST_MKSTEMP 1

/* Define to 1 when the gnulib module mktime should be tested. */
#define GNULIB_TEST_MKTIME 1

/* Define to 1 when the gnulib module nl_langinfo should be tested. */
#define GNULIB_TEST_NL_LANGINFO 1

/* Define to 1 when the gnulib module open should be tested. */
#define GNULIB_TEST_OPEN 1

/* Define to 1 when the gnulib module printf should be tested. */
#define GNULIB_TEST_PRINTF 1

/* Define to 1 when the gnulib module putc should be tested. */
#define GNULIB_TEST_PUTC 1

/* Define to 1 when the gnulib module putchar should be tested. */
#define GNULIB_TEST_PUTCHAR 1

/* Define to 1 when the gnulib module puts should be tested. */
#define GNULIB_TEST_PUTS 1

/* Define to 1 when the gnulib module readlink should be tested. */
#define GNULIB_TEST_READLINK 1

/* Define to 1 when the gnulib module recv should be tested. */
#define GNULIB_TEST_RECV 1

/* Define to 1 when the gnulib module recvfrom should be tested. */
#define GNULIB_TEST_RECVFROM 1

/* Define to 1 when the gnulib module scanf should be tested. */
#define GNULIB_TEST_SCANF 1

/* Define to 1 when the gnulib module select should be tested. */
#define GNULIB_TEST_SELECT 1

/* Define to 1 when the gnulib module send should be tested. */
#define GNULIB_TEST_SEND 1

/* Define to 1 when the gnulib module sendto should be tested. */
#define GNULIB_TEST_SENDTO 1

/* Define to 1 when the gnulib module setenv should be tested. */
#define GNULIB_TEST_SETENV 1

/* Define to 1 when the gnulib module setlocale_null should be tested. */
#define GNULIB_TEST_SETLOCALE_NULL 1

/* Define to 1 when the gnulib module setsockopt should be tested. */
#define GNULIB_TEST_SETSOCKOPT 1

/* Define to 1 when the gnulib module shutdown should be tested. */
#define GNULIB_TEST_SHUTDOWN 1

/* Define to 1 when the gnulib module socket should be tested. */
#define GNULIB_TEST_SOCKET 1

/* Define to 1 when the gnulib module stat should be tested. */
#define GNULIB_TEST_STAT 1

/* Define to 1 when the gnulib module strdup should be tested. */
#define GNULIB_TEST_STRDUP 1

/* Define to 1 when the gnulib module strerror_r should be tested. */
#define GNULIB_TEST_STRERROR_R 1

/* Define to 1 when the gnulib module strnlen should be tested. */
#define GNULIB_TEST_STRNLEN 1

/* Define to 1 when the gnulib module strptime should be tested. */
#define GNULIB_TEST_STRPTIME 1

/* Define to 1 when the gnulib module strtod should be tested. */
#define GNULIB_TEST_STRTOD 1

/* Define to 1 when the gnulib module strverscmp should be tested. */
#define GNULIB_TEST_STRVERSCMP 1

/* Define to 1 when the gnulib module timegm should be tested. */
#define GNULIB_TEST_TIMEGM 1

/* Define to 1 when the gnulib module time_r should be tested. */
#define GNULIB_TEST_TIME_R 1

/* Define to 1 when the gnulib module time_rz should be tested. */
#define GNULIB_TEST_TIME_RZ 1

/* Define to 1 when the gnulib module tzset should be tested. */
#define GNULIB_TEST_TZSET 1

/* Define to 1 when the gnulib module unsetenv should be tested. */
#define GNULIB_TEST_UNSETENV 1

/* Define to 1 when the gnulib module vfprintf should be tested. */
#define GNULIB_TEST_VFPRINTF 1

/* Define to 1 when the gnulib module vprintf should be tested. */
#define GNULIB_TEST_VPRINTF 1

/* Define to 1 when the gnulib module wcrtomb should be tested. */
#define GNULIB_TEST_WCRTOMB 1

/* Define to 1 when the gnulib module wmemchr should be tested. */
#define GNULIB_TEST_WMEMCHR 1

/* Define to 1 when the gnulib module wmempcpy should be tested. */
#define GNULIB_TEST_WMEMPCPY 1

/* Define to 1 if you have 'alloca', as a function or macro. */
#define HAVE_ALLOCA 1

/* Define to 1 if <alloca.h> works. */
#define HAVE_ALLOCA_H 1

/* Define to 1 if you have the <arpa/inet.h> header file. */
#define HAVE_ARPA_INET_H 1

/* Define to 1 if you have the <avcall.h> header file. */
#define HAVE_AVCALL_H 1

/* Define to 1 if you have the <bcrypt.h> header file. */
/* #undef HAVE_BCRYPT_H */

/* Define to 1 if you have the <bp-sym.h> header file. */
/* #undef HAVE_BP_SYM_H */

/* Define to 1 if you have the `btowc' function. */
#define HAVE_BTOWC 1

/* __builtin_strlen() is compiled inline (not a call to strlen()) */
/* #undef HAVE_BUILTIN_STRLEN */

/* Define to 1 if you have the <byteswap.h> header file. */
/* #undef HAVE_BYTESWAP_H */

/* Define to 1 if you have the <callback.h> header file. */
#define HAVE_CALLBACK_H 1

/* Define to 1 if you have the `catgets' function. */
#define HAVE_CATGETS 1

/* Define to 1 if you have the Mac OS X function
   CFLocaleCopyPreferredLanguages in the CoreFoundation framework. */
#define HAVE_CFLOCALECOPYPREFERREDLANGUAGES 1

/* Define to 1 if you have the Mac OS X function CFPreferencesCopyAppValue in
   the CoreFoundation framework. */
#define HAVE_CFPREFERENCESCOPYAPPVALUE 1

/* Define to 1 if you have the `clock_gettime' function. */
/* #undef HAVE_CLOCK_GETTIME */

/* Define to 1 if you have the `clock_settime' function. */
/* #undef HAVE_CLOCK_SETTIME */

/* Define to 1 if you have the <crtdefs.h> header file. */
/* #undef HAVE_CRTDEFS_H */

/* Define if the GNU dcgettext() function is already present or preinstalled.
   */
#define HAVE_DCGETTEXT 1

/* Define to 1 if you have the declaration of `alarm', and to 0 if you don't.
   */
#define HAVE_DECL_ALARM 1

/* Define to 1 if you have the declaration of `ecvt', and to 0 if you don't.
   */
#define HAVE_DECL_ECVT 1

/* Define to 1 if you have the declaration of `execvpe', and to 0 if you
   don't. */
#define HAVE_DECL_EXECVPE 0

/* Define to 1 if you have the declaration of `fcloseall', and to 0 if you
   don't. */
#define HAVE_DECL_FCLOSEALL 0

/* Define to 1 if you have the declaration of `fcvt', and to 0 if you don't.
   */
#define HAVE_DECL_FCVT 1

/* Define to 1 if you have the declaration of `fpurge', and to 0 if you don't.
   */
#define HAVE_DECL_FPURGE 1

/* Define to 1 if you have the declaration of `fseeko', and to 0 if you don't.
   */
#define HAVE_DECL_FSEEKO 1

/* Define to 1 if you have the declaration of `ftello', and to 0 if you don't.
   */
#define HAVE_DECL_FTELLO 1

/* Define to 1 if you have the declaration of `gcvt', and to 0 if you don't.
   */
#define HAVE_DECL_GCVT 1

/* Define to 1 if you have the declaration of `getdtablesize', and to 0 if you
   don't. */
#define HAVE_DECL_GETDTABLESIZE 1

/* Define to 1 if you have the declaration of `inet_ntop', and to 0 if you
   don't. */
#define HAVE_DECL_INET_NTOP 1

/* Define to 1 if you have the declaration of `inet_pton', and to 0 if you
   don't. */
#define HAVE_DECL_INET_PTON 1

/* Define to 1 if you have the declaration of `isblank', and to 0 if you
   don't. */
#define HAVE_DECL_ISBLANK 1

/* Define to 1 if you have the declaration of `localtime_r', and to 0 if you
   don't. */
#define HAVE_DECL_LOCALTIME_R 1

/* Define to 1 if you have the declaration of `mbrtowc', and to 0 if you
   don't. */
/* #undef HAVE_DECL_MBRTOWC */

/* Define to 1 if you have the declaration of `mbsinit', and to 0 if you
   don't. */
/* #undef HAVE_DECL_MBSINIT */

/* Define to 1 if you have the declaration of `mbsrtowcs', and to 0 if you
   don't. */
/* #undef HAVE_DECL_MBSRTOWCS */

/* Define to 1 if you have the declaration of `rl_already_prompted', and to 0
   if you don't. */
#define HAVE_DECL_RL_ALREADY_PROMPTED 1

/* Define to 1 if you have the declaration of `rl_deprep_term_function', and
   to 0 if you don't. */
#define HAVE_DECL_RL_DEPREP_TERM_FUNCTION 1

/* Define to 1 if you have the declaration of `rl_gnu_readline_p', and to 0 if
   you don't. */
#define HAVE_DECL_RL_GNU_READLINE_P 1

/* Define to 1 if you have the declaration of `rl_readline_name', and to 0 if
   you don't. */
#define HAVE_DECL_RL_READLINE_NAME 1

/* Define to 1 if you have the declaration of `setenv', and to 0 if you don't.
   */
#define HAVE_DECL_SETENV 1

/* Define to 1 if you have the declaration of `strdup', and to 0 if you don't.
   */
#define HAVE_DECL_STRDUP 1

/* Define to 1 if you have the declaration of `strerror_r', and to 0 if you
   don't. */
#define HAVE_DECL_STRERROR_R 1

/* Define to 1 if you have the declaration of `strncasecmp', and to 0 if you
   don't. */
#define HAVE_DECL_STRNCASECMP 1

/* Define to 1 if you have the declaration of `strnlen', and to 0 if you
   don't. */
#define HAVE_DECL_STRNLEN 0

/* Define to 1 if you have the declaration of `towlower', and to 0 if you
   don't. */
/* #undef HAVE_DECL_TOWLOWER */

/* Define to 1 if you have the declaration of `tzname', and to 0 if you don't.
   */
/* #undef HAVE_DECL_TZNAME */

/* Define to 1 if you have the declaration of `unsetenv', and to 0 if you
   don't. */
#define HAVE_DECL_UNSETENV 1

/* Define to 1 if you have the declaration of `wcrtomb', and to 0 if you
   don't. */
/* #undef HAVE_DECL_WCRTOMB */

/* Define to 1 if you have the declaration of `wcsdup', and to 0 if you don't.
   */
#define HAVE_DECL_WCSDUP 0

/* Define to 1 if you have the declaration of `_fseeki64', and to 0 if you
   don't. */
/* #undef HAVE_DECL__FSEEKI64 */

/* Define to 1 if you have the `dladdr' function. */
#define HAVE_DLADDR 1

/* Define to 1 if you have the `dlclose' function. */
#define HAVE_DLCLOSE 1

/* Define to 1 if you have the `dlerror' function. */
#define HAVE_DLERROR 1

/* Define to 1 if you have the <dlfcn.h> header file. */
#define HAVE_DLFCN_H 1

/* Define to 1 if you have the `dlopen' function. */
#define HAVE_DLOPEN 1

/* Define to 1 if you have the `dlsym' function. */
#define HAVE_DLSYM 1

/* Define to 1 if you have the `dlvsym' function. */
/* #undef HAVE_DLVSYM */

/* Define if you have the declaration of environ. */
/* #undef HAVE_ENVIRON_DECL */

/* Define to 1 if you have the `fchmod' function. */
#define HAVE_FCHMOD 1

/* Define to 1 if you have the `fcntl' function. */
#define HAVE_FCNTL 1

/* Define to 1 if you have the <features.h> header file. */
/* #undef HAVE_FEATURES_H */

/* have the FIONREAD ioctl() */
#define HAVE_FIONREAD /**/

/* Define to 1 if you have the `flock' function. */
#define HAVE_FLOCK 1

/* Define to 1 if you have the `fnmatch' function. */
#define HAVE_FNMATCH 1

/* Define to 1 if you have the <fnmatch.h> header file. */
#define HAVE_FNMATCH_H 1

/* Define to 1 if you have the `fork' function. */
#define HAVE_FORK 1

/* Define to 1 if you have the `fpurge' function. */
#define HAVE_FPURGE 1

/* Define to 1 if fseeko (and presumably ftello) exists and is declared. */
#define HAVE_FSEEKO 1

/* Define to 1 if you have the `fsync' function. */
#define HAVE_FSYNC 1

/* Define to 1 if you have the `ftime' function. */
#define HAVE_FTIME 1

/* Define to 1 if you have the `getcwd' function. */
#define HAVE_GETCWD 1

/* Define to 1 if you have the `getdtablesize' function. */
#define HAVE_GETDTABLESIZE 1

/* have gethostbyname() */
#define HAVE_GETHOSTBYNAME /**/

/* Define to 1 if you have the `gethostent' function. */
#define HAVE_GETHOSTENT 1

/* Define to 1 if you have the `gethostname' function. */
#define HAVE_GETHOSTNAME 1

/* Define to 1 if you have the `getrandom' function. */
/* #undef HAVE_GETRANDOM */

/* Define to 1 if you have the `getresgid' function. */
/* #undef HAVE_GETRESGID */

/* Define to 1 if you have the `getresuid' function. */
/* #undef HAVE_GETRESUID */

/* Define to 1 if you have the `getrlimit' function. */
#define HAVE_GETRLIMIT 1

/* have <sys/time.h>, the getrusage() function, the struct rusage type, and
   <sys/resource.h> defines RUSAGE_SELF */
#define HAVE_GETRUSAGE /**/

/* Define to 1 if you have the `getsockopt' function. */
#define HAVE_GETSOCKOPT 1

/* Define if the GNU gettext() function is already present or preinstalled. */
#define HAVE_GETTEXT 1

/* Define to 1 if you have the `gettimeofday' function. */
#define HAVE_GETTIMEOFDAY 1

/* Define if you have the iconv() function and it works. */
#define HAVE_ICONV 1

/* Define to 1 if you have the `inet_ntop' function. */
/* #undef HAVE_INET_NTOP */

/* Define to 1 if you have the `inet_pton' function. */
/* #undef HAVE_INET_PTON */

/* Define to 1 if you have the <inttypes.h> header file. */
#define HAVE_INTTYPES_H 1

/* Define to 1 if you have the `ioctl' function. */
#define HAVE_IOCTL 1

/* <sys/socket.h> defines AF_INET */
#define HAVE_IPV4 /**/

/* <sys/socket.h> defines AF_INET6 */
#define HAVE_IPV6 /**/

/* Define to 1 if you have the `isblank' function. */
#define HAVE_ISBLANK 1

/* Define to 1 if you have the `iswcntrl' function. */
#define HAVE_ISWCNTRL 1

/* Define to 1 if you have the `iswctype' function. */
#define HAVE_ISWCTYPE 1

/* Define if you have <langinfo.h> and nl_langinfo(CODESET). */
#define HAVE_LANGINFO_CODESET 1

/* Define to 1 if you have the <langinfo.h> header file. */
#define HAVE_LANGINFO_H 1

/* Define if the ldexp function is available in libc. */
#define HAVE_LDEXP_IN_LIBC 1

/* Define to 1 if you have the `dgc' library (-ldgc). */
/* #undef HAVE_LIBDGC */

/* Define to 1 if you have the <libintl.h> header file. */
#define HAVE_LIBINTL_H 1

/* Define to 1 if you have the `kstat' library (-lkstat). */
/* #undef HAVE_LIBKSTAT */

/* Define to 1 if you have the `perfstat' library (-lperfstat). */
/* #undef HAVE_LIBPERFSTAT */

/* Define if you have the libsigsegv library. */
#define HAVE_LIBSIGSEGV 1

/* Define if you have the libunistring library. */
#define HAVE_LIBUNISTRING 1

/* Define to 1 if the bcrypt library is guaranteed to be present. */
/* #undef HAVE_LIB_BCRYPT */

/* Define to 1 if you have the <lightning.h> header file. */
/* #undef HAVE_LIGHTNING_H */

/* Define to 1 if you have the <limits.h> header file. */
#define HAVE_LIMITS_H 1

/* Define to 1 if you have 'struct sockaddr_alg' defined. */
/* #undef HAVE_LINUX_IF_ALG_H */

/* Define if localtime-like functions can loop forever on extreme arguments.
   */
/* #undef HAVE_LOCALTIME_INFLOOP_BUG */

/* Define to 1 if you have the `localtime_r' function. */
#define HAVE_LOCALTIME_R 1

/* Define to 1 if the system has the type `long long int'. */
#define HAVE_LONG_LONG_INT 1

/* Define to 1 if you have the `lstat' function. */
#define HAVE_LSTAT 1

/* Define to 1 if you have the <mach/mach.h> header file. */
/* #undef HAVE_MACH_MACH_H */

/* have vm_allocate() and task_self() functions */
/* #undef HAVE_MACH_VM */

/* Define to 1 if you have the <malloc.h> header file. */
/* #undef HAVE_MALLOC_H */

/* Define if malloc, realloc, and calloc set errno on allocation failure. */
#define HAVE_MALLOC_POSIX 1

/* Define to 1 if mmap()'s MAP_ANONYMOUS flag is available after including
   config.h and <sys/mman.h>. */
#define HAVE_MAP_ANONYMOUS 1

/* Define to 1 if you have the <math.h> header file. */
#define HAVE_MATH_H 1

/* Define to 1 if you have the `mbrtowc' function. */
#define HAVE_MBRTOWC 1

/* Define to 1 if you have the `mbsinit' function. */
#define HAVE_MBSINIT 1

/* Define to 1 if you have the `mbsrtowcs' function. */
#define HAVE_MBSRTOWCS 1

/* Define to 1 if <wchar.h> declares mbstate_t. */
#define HAVE_MBSTATE_T 1

/* Define to 1 if you have the `mbtowc' function. */
#define HAVE_MBTOWC 1

/* Define to 1 if you have the `mempcpy' function. */
/* #undef HAVE_MEMPCPY */

/* Define to 1 if you have the `memset' function. */
#define HAVE_MEMSET 1

/* Define to 1 if you have the `mincore' function. */
#define HAVE_MINCORE 1

/* Define to 1 if you have the <minix/config.h> header file. */
/* #undef HAVE_MINIX_CONFIG_H */

/* Define to 1 if <limits.h> defines the MIN and MAX macros. */
/* #undef HAVE_MINMAX_IN_LIMITS_H */

/* Define to 1 if <sys/param.h> defines the MIN and MAX macros. */
#define HAVE_MINMAX_IN_SYS_PARAM_H 1

/* Define to 1 if you have the `mkdtemp' function. */
#define HAVE_MKDTEMP 1

/* Define to 1 if you have a 'mkfifo' function. */
#define HAVE_MKFIFO 1

/* Define to 1 if you have the `mknod' function. */
#define HAVE_MKNOD 1

/* Define to 1 if you have the `mkstemp' function. */
#define HAVE_MKSTEMP 1

/* have <sys/mmap.h> and the mmap() function */
#define HAVE_MMAP /**/

/* <sys/mman.h> defines MAP_ANON and mmaping with MAP_FIXED | MAP_ANON works
   */
#define HAVE_MMAP_ANON /**/

/* <sys/mman.h> defines MAP_ANONYMOUS and mmaping with MAP_FIXED |
   MAP_ANONYMOUS works */
#define HAVE_MMAP_ANONYMOUS /**/

/* mmaping of the special device /dev/zero with MAP_FIXED works */
/* #undef HAVE_MMAP_DEVZERO */

/* Define to 1 if you have the `mprotect' function. */
#define HAVE_MPROTECT 1

/* Define to 1 if you have the `mquery' function. */
/* #undef HAVE_MQUERY */

/* Define to 1 on MSVC platforms that have the "invalid parameter handler"
   concept. */
/* #undef HAVE_MSVC_INVALID_PARAMETER_HANDLER */

/* Define to 1 if you have the `munmap' function. */
#define HAVE_MUNMAP 1

/* Define to 1 if you have the <netdb.h> header file. */
#define HAVE_NETDB_H 1

/* Define to 1 if you have the <netinet/in.h> header file. */
#define HAVE_NETINET_IN_H 1

/* Define to 1 if you have the <netinet/tcp.h> header file. */
#define HAVE_NETINET_TCP_H 1

/* Define to 1 if you have the `nice' function. */
#define HAVE_NICE 1

/* Define to 1 if you have the <nlist.h> header file. */
/* #undef HAVE_NLIST_H */

/* Define to 1 if you have the `nl_langinfo' function. */
#define HAVE_NL_LANGINFO 1

/* Define to 1 if libcrypto is used for SHA1. */
/* #undef HAVE_OPENSSL_SHA1 */

/* Define to 1 if you have the <openssl/sha.h> header file. */
/* #undef HAVE_OPENSSL_SHA_H */

/* Define to 1 if you have the <OS.h> header file. */
/* #undef HAVE_OS_H */

/* Define to 1 if you have the 'poll' function and it works. */
/* #undef HAVE_POLL */

/* Define to 1 if you have the `pstat_getdynamic' function. */
/* #undef HAVE_PSTAT_GETDYNAMIC */

/* Define to 1 if you have the `pstat_getprocvm' function. */
/* #undef HAVE_PSTAT_GETPROCVM */

/* Define if you have the <pthread.h> header and the POSIX threads API. */
#define HAVE_PTHREAD_API 1

/* Define if the <pthread.h> defines PTHREAD_MUTEX_RECURSIVE. */
/* #undef HAVE_PTHREAD_MUTEX_RECURSIVE */

/* Define if the POSIX multithreading library has read/write locks. */
#define HAVE_PTHREAD_RWLOCK 1

/* Define if the 'pthread_rwlock_rdlock' function prefers a writer to a
   reader. */
#define HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER 1

/* Define to 1 if you have the `rand_r' function. */
#define HAVE_RAND_R 1

/* Define to 1 if you have the `readdir_r' function. */
#define HAVE_READDIR_R 1

/* have a working modern GNU readline */
#define HAVE_READLINE /**/

/* Define to 1 if you have the <readline/readline.h> header file. */
#define HAVE_READLINE_READLINE_H 1

/* Define to 1 if you have the `readlink' function. */
#define HAVE_READLINK 1

/* Define to 1 if you have the `realpath' function. */
#define HAVE_REALPATH 1

/* have the FIONREAD ioctl() and it works reliably on files */
#define HAVE_RELIABLE_FIONREAD /**/

/* have poll() and it works reliably on files */
/* #undef HAVE_RELIABLE_POLL */

/* have select() and it works reliably on files */
#define HAVE_RELIABLE_SELECT /**/

/* Define to 1 if you have the `rl_filename_completion_function' function. */
#define HAVE_RL_FILENAME_COMPLETION_FUNCTION 1

/* Define to 1 if the system has the type `sa_family_t'. */
#define HAVE_SA_FAMILY_T 1

/* Define to 1 if you have the <sdkddkver.h> header file. */
/* #undef HAVE_SDKDDKVER_H */

/* Define to 1 if you have the <search.h> header file. */
#define HAVE_SEARCH_H 1

/* Define if you have the select() function. */
#define HAVE_SELECT 1

/* Define to 1 if you have the `setdtablesize' function. */
/* #undef HAVE_SETDTABLESIZE */

/* Define to 1 if you have the `setenv' function. */
#define HAVE_SETENV 1

/* Define to 1 if you have the `setitimer' function. */
#define HAVE_SETITIMER 1

/* Define to 1 if you have the `setpgid' function. */
#define HAVE_SETPGID 1

/* Define to 1 if you have the `setregid' function. */
#define HAVE_SETREGID 1

/* Define to 1 if you have the `setresgid' function. */
/* #undef HAVE_SETRESGID */

/* Define to 1 if you have the `setresuid' function. */
/* #undef HAVE_SETRESUID */

/* Define to 1 if you have the `setreuid' function. */
#define HAVE_SETREUID 1

/* Define to 1 if you have the `setsid' function. */
#define HAVE_SETSID 1

/* Define to 1 if you have the `setsockopt' function. */
#define HAVE_SETSOCKOPT 1

/* Define to 1 if you have the `shutdown' function. */
#define HAVE_SHUTDOWN 1

/* Define to 1 if you have the `sigaction' function. */
#define HAVE_SIGACTION 1

/* Define to 1 if you have the `siginterrupt' function. */
#define HAVE_SIGINTERRUPT 1

/* Define to 1 if 'sig_atomic_t' is a signed integer type. */
#define HAVE_SIGNED_SIG_ATOMIC_T 1

/* Define to 1 if 'wchar_t' is a signed integer type. */
#define HAVE_SIGNED_WCHAR_T 1

/* Define to 1 if 'wint_t' is a signed integer type. */
#define HAVE_SIGNED_WINT_T 1

/* Define to 1 if the system has the type `sigset_t'. */
#define HAVE_SIGSET_T 1

/* Define to 1 if you have the `snprintf' function. */
#define HAVE_SNPRINTF 1

/* `struct sockaddr_un' from <sys/un.h> has a `sun_len' field */
#define HAVE_SOCKADDR_UN_LEN /**/

/* Define to 1 if you have the <stdint.h> header file. */
#define HAVE_STDINT_H 1

/* Define to 1 if you have the <stdio_ext.h> header file. */
/* #undef HAVE_STDIO_EXT_H */

/* Define to 1 if you have the <stdio.h> header file. */
#define HAVE_STDIO_H 1

/* Define to 1 if you have the <stdlib.h> header file. */
#define HAVE_STDLIB_H 1

/* Define to 1 if you have the `strcasecmp' function. */
#define HAVE_STRCASECMP 1

/* Define to 1 if you have the `strerror' function. */
#define HAVE_STRERROR 1

/* Define to 1 if you have the `strerror_r' function. */
#define HAVE_STRERROR_R 1

/* Define to 1 if you have the <strings.h> header file. */
#define HAVE_STRINGS_H 1

/* Define to 1 if you have the <string.h> header file. */
#define HAVE_STRING_H 1

/* Define to 1 if you have the `strncasecmp' function. */
#define HAVE_STRNCASECMP 1

/* Define to 1 if you have the `strptime' function. */
#define HAVE_STRPTIME 1

/* Define to 1 if the system has the 'strtod_l' function. */
#define HAVE_STRTOD_L 1

/* Define to 1 if `d_namlen' is a member of `struct dirent'. */
#define HAVE_STRUCT_DIRENT_D_NAMLEN 1

/* Define to 1 if `decimal_point' is a member of `struct lconv'. */
/* #undef HAVE_STRUCT_LCONV_DECIMAL_POINT */

/* Define to 1 if `n_un.n_name' is a member of `struct nlist'. */
/* #undef HAVE_STRUCT_NLIST_N_UN_N_NAME */

/* Define to 1 if the system has the type `struct sockaddr_storage'. */
#define HAVE_STRUCT_SOCKADDR_STORAGE 1

/* Define to 1 if `ss_family' is a member of `struct sockaddr_storage'. */
#define HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY 1

/* Define to 1 if `st_atimensec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_ATIMENSEC */

/* Define to 1 if `st_atimespec.tv_nsec' is a member of `struct stat'. */
#define HAVE_STRUCT_STAT_ST_ATIMESPEC_TV_NSEC 1

/* Define to 1 if `st_atim.st__tim.tv_nsec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_ATIM_ST__TIM_TV_NSEC */

/* Define to 1 if `st_atim.tv_nsec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC */

/* Define to 1 if `st_birthtimensec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC */

/* Define to 1 if `st_birthtimespec.tv_nsec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC */

/* Define to 1 if `st_birthtim.tv_nsec' is a member of `struct stat'. */
/* #undef HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC */

/* Define to 1 if `tm_zone' is a member of `struct tm'. */
#define HAVE_STRUCT_TM_TM_ZONE 1

/* Define to 1 if the system has the type `struct utsname'. */
#define HAVE_STRUCT_UTSNAME 1

/* Define to 1 if you have the `strverscmp' function. */
/* #undef HAVE_STRVERSCMP */

/* Define to 1 if you have the `symlink' function. */
#define HAVE_SYMLINK 1

/* Define to 1 if you have the `sysconf' function. */
#define HAVE_SYSCONF 1

/* Define to 1 if you have the <sys/bitypes.h> header file. */
/* #undef HAVE_SYS_BITYPES_H */

/* Define to 1 if you have the <sys/inttypes.h> header file. */
/* #undef HAVE_SYS_INTTYPES_H */

/* Define to 1 if you have the <sys/ioctl.h> header file. */
#define HAVE_SYS_IOCTL_H 1

/* Define to 1 if you have the <sys/loadavg.h> header file. */
/* #undef HAVE_SYS_LOADAVG_H */

/* Define to 1 if you have the <sys/mman.h> header file. */
#define HAVE_SYS_MMAN_H 1

/* Define to 1 if you have the <sys/param.h> header file. */
#define HAVE_SYS_PARAM_H 1

/* Define to 1 if you have the <sys/random.h> header file. */
#define HAVE_SYS_RANDOM_H 1

/* Define to 1 if you have the <sys/resource.h> header file. */
#define HAVE_SYS_RESOURCE_H 1

/* have <sys/select.h>? */
#define HAVE_SYS_SELECT_H /**/

/* Define to 1 if you have the <sys/socket.h> header file. */
#define HAVE_SYS_SOCKET_H 1

/* Define to 1 if you have the <sys/stat.h> header file. */
#define HAVE_SYS_STAT_H 1

/* Define to 1 if you have the <sys/time.h> header file. */
#define HAVE_SYS_TIME_H 1

/* Define to 1 if you have the <sys/types.h> header file. */
#define HAVE_SYS_TYPES_H 1

/* Define to 1 if you have the <sys/uio.h> header file. */
#define HAVE_SYS_UIO_H 1

/* Define to 1 if you have the <sys/un.h> header file. */
#define HAVE_SYS_UN_H 1

/* Define to 1 if you have the <sys/utsname.h> header file. */
#define HAVE_SYS_UTSNAME_H 1

/* Define to 1 if you have the <sys/wait.h> header file. */
#define HAVE_SYS_WAIT_H 1

/* Define to 1 if you have the <termios.h> header file. */
#define HAVE_TERMIOS_H 1

/* Define to 1 if you have the `thrd_create' function. */
/* #undef HAVE_THRD_CREATE */

/* Define to 1 if you have the <threads.h> header file. */
/* #undef HAVE_THREADS_H */

/* Define to 1 if you have the `timegm' function. */
#define HAVE_TIMEGM 1

/* Define to 1 if the system has the type `timezone_t'. */
/* #undef HAVE_TIMEZONE_T */

/* Define if struct tm has the tm_gmtoff member. */
#define HAVE_TM_GMTOFF 1

/* Define to 1 if your `struct tm' has `tm_zone'. Deprecated, use
   `HAVE_STRUCT_TM_TM_ZONE' instead. */
#define HAVE_TM_ZONE 1

/* Define to 1 if you have the `towlower' function. */
#define HAVE_TOWLOWER 1

/* Define to 1 if you have the `tsearch' function. */
#define HAVE_TSEARCH 1

/* Define to 1 if you don't have `tm_zone' but do have the external array
   `tzname'. */
/* #undef HAVE_TZNAME */

/* Define to 1 if you have the `ualarm' function. */
#define HAVE_UALARM 1

/* Define to 1 if you have the `uname' function. */
#define HAVE_UNAME 1

/* Define to 1 if you have the <unistd.h> header file. */
#define HAVE_UNISTD_H 1

/* Define to 1 if you have the `unsetenv' function. */
#define HAVE_UNSETENV 1

/* Define to 1 if the system has the type `unsigned long long int'. */
#define HAVE_UNSIGNED_LONG_LONG_INT 1

/* Define to 1 if you have the `uselocale' function. */
#define HAVE_USELOCALE 1

/* Define to 1 if you have the `usleep' function. */
#define HAVE_USLEEP 1

/* have <sys/vadvise.h> and the vadvise() system call */
/* #undef HAVE_VADVISE */

/* Define to 1 if you have the `vfork' function. */
#define HAVE_VFORK 1

/* Define to 1 if you have the <vfork.h> header file. */
/* #undef HAVE_VFORK_H */

/* Define to 1 or 0, depending whether the compiler supports simple visibility
   declarations. */
#define HAVE_VISIBILITY 1

/* Define to 1 if you have the <wchar.h> header file. */
#define HAVE_WCHAR_H 1

/* Define if you have the 'wchar_t' type. */
#define HAVE_WCHAR_T 1

/* Define to 1 if you have the `wcrtomb' function. */
#define HAVE_WCRTOMB 1

/* Define to 1 if you have the <wctype.h> header file. */
#define HAVE_WCTYPE_H 1

/* Define to 1 if the compiler and linker support weak declarations of
   symbols. */
/* #undef HAVE_WEAK_SYMBOLS */

/* Define to 1 if you have the <winsock2.h> header file. */
/* #undef HAVE_WINSOCK2_H */

/* Define if you have the 'wint_t' type. */
#define HAVE_WINT_T 1

/* Define to 1 if you have the `wmempcpy' function. */
/* #undef HAVE_WMEMPCPY */

/* Define to 1 if `fork' works. */
#define HAVE_WORKING_FORK 1

/* have a working mprotect() function */
/* #undef HAVE_WORKING_MPROTECT */

/* Define to 1 if O_NOATIME works. */
#define HAVE_WORKING_O_NOATIME 0

/* Define to 1 if O_NOFOLLOW works. */
#define HAVE_WORKING_O_NOFOLLOW 1

/* Define if the uselocale function exists and may safely be called. */
#define HAVE_WORKING_USELOCALE 1

/* Define to 1 if `vfork' works. */
#define HAVE_WORKING_VFORK 1

/* Define to 1 if you have the <ws2tcpip.h> header file. */
/* #undef HAVE_WS2TCPIP_H */

/* Define to 1 if you have the <xlocale.h> header file. */
#define HAVE_XLOCALE_H 1

/* Define to 1 if the system has the type `_Bool'. */
#define HAVE__BOOL 1

/* Define to 1 if you have the `_fseeki64' function. */
/* #undef HAVE__FSEEKI64 */

/* Define to 1 if you have the `_ftelli64' function. */
/* #undef HAVE__FTELLI64 */

/* have _setjmp() and _longjmp() */
#define HAVE__JMP /**/

/* Define to 1 if you have the `_set_invalid_parameter_handler' function. */
/* #undef HAVE__SET_INVALID_PARAMETER_HANDLER */

/* Define to 1 if the compiler supports __builtin_expect,
   and to 2 if <builtins.h> does.  */
#define HAVE___BUILTIN_EXPECT 1
#ifndef HAVE___BUILTIN_EXPECT
# define __builtin_expect(e, c) (e)
#elif HAVE___BUILTIN_EXPECT == 2
# include <builtins.h>
#endif
    

/* Define to 1 if you have the `__fpurge' function. */
/* #undef HAVE___FPURGE */

/* Define to 1 if you have the `__freading' function. */
/* #undef HAVE___FREADING */

/* Define to 1 if the compiler supports the keyword '__inline'. */
#define HAVE___INLINE 1

/* Define to 1 if you have the `__xpg_strerror_r' function. */
/* #undef HAVE___XPG_STRERROR_R */

/* Define HOST_NAME_MAX when <limits.h> does not define it. */
#define HOST_NAME_MAX 256

/* Define as const if the declaration of iconv() needs const. */
#define ICONV_CONST 

/* need <linux/in6.h> for the in6_addr and sockaddr_in6 types */
/* #undef IPV6_NEED_LINUX_IN6_H */

/* Define to 1 if 'link(2)' dereferences symbolic links, 0 if it creates hard
   links to symlinks, -1 if it depends on the variable __xpg4, and -2 if
   unknown. */
#define LINK_FOLLOWS_SYMLINKS 1

/* longjmp() may return */
/* #undef LONGJMP_RETURNS */

/* Define to 1 if lseek does not detect pipes. */
/* #undef LSEEK_PIPE_BROKEN */

/* Define to 1 if 'lstat' dereferences a symlink specified with a trailing
   slash. */
/* #undef LSTAT_FOLLOWS_SLASHED_SYMLINK */

/* Define to the sub-directory where libtool stores uninstalled libraries. */
#define LT_OBJDIR ".libs/"

/* If malloc(0) is != NULL, define this to 1. Otherwise define this to 0. */
#define MALLOC_0_IS_NONNULL 1

/* address range of malloc() memory */
#define MALLOC_ADDRESS_RANGE 0x00000000UL

/* Define to a substitute value for mmap()'s MAP_ANONYMOUS flag. */
#define MAP_ANONYMOUS MAP_ANON

/* Define if the mbrtowc function does not return (size_t) -2 for empty input.
   */
/* #undef MBRTOWC_EMPTY_INPUT_BUG */

/* Define if the mbrtowc function may signal encoding errors in the C locale.
   */
/* #undef MBRTOWC_IN_C_LOCALE_MAYBE_EILSEQ */

/* Define if the mbrtowc function has the NULL pwc argument bug. */
/* #undef MBRTOWC_NULL_ARG1_BUG */

/* Define if the mbrtowc function has the NULL string argument bug. */
/* #undef MBRTOWC_NULL_ARG2_BUG */

/* Define if the mbrtowc function does not return 0 for a NUL character. */
/* #undef MBRTOWC_NUL_RETVAL_BUG */

/* Define if the mbrtowc function returns a wrong return value. */
/* #undef MBRTOWC_RETVAL_BUG */

/* Define if the mbrtowc function stores a wide character when reporting
   incomplete input. */
/* #undef MBRTOWC_STORES_INCOMPLETE_BUG */

/* Use GNU style printf and scanf.  */
#ifndef __USE_MINGW_ANSI_STDIO
# define __USE_MINGW_ANSI_STDIO 1
#endif


/* Define to 1 if mkfifo does not reject trailing slash */
#define MKFIFO_TRAILING_SLASH_BUG 1

/* Define to 1 if mknod cannot create a fifo without super-user privileges */
#define MKNOD_FIFO_BUG 1

/* Define to the highest bit number that can be included in mmaped addresses.
   */
#define MMAP_FIXED_ADDRESS_HIGHEST_BIT 30

/* Define if the compilation of mktime.c should define 'mktime_internal'. */
#define NEED_MKTIME_INTERNAL 1

/* Define if the compilation of mktime.c should define 'mktime' with the
   native Windows TZ workaround. */
/* #undef NEED_MKTIME_WINDOWS */

/* Define if the compilation of mktime.c should define 'mktime' with the
   algorithmic workarounds. */
/* #undef NEED_MKTIME_WORKING */

/* need <sys/filio.h> for using ioctl() FIONREAD */
#define NEED_SYS_FILIO_H /**/

/* need <sys/ioctl.h> for using ioctl() FIONREAD */
/* #undef NEED_SYS_IOCTL_H */

/* Define to 1 if nl_langinfo is multithread-safe. */
#define NL_LANGINFO_MTSAFE 1

/* Define to 1 if the nlist n_name member is a pointer */
/* #undef N_NAME_POINTER */

/* Define to 1 if open() fails to recognize a trailing slash. */
#define OPEN_TRAILING_SLASH_BUG 1

/* Define to the address where bug reports for this package should be sent. */
#define PACKAGE_BUGREPORT "http://clisp.org/"

/* Define to the full name of this package. */
#define PACKAGE_NAME "GNU CLISP"

/* Define to the full name and version of this package. */
#define PACKAGE_STRING "GNU CLISP 2.49.93+ (2018-02-18)"

/* Define to the one symbol short name of this package. */
#define PACKAGE_TARNAME "clisp"

/* Define to the home page for this package. */
#define PACKAGE_URL "https://www.gnu.org/software/clisp/"

/* Define to the version of this package. */
#define PACKAGE_VERSION "2.49.93+ (2018-02-18)"

/* Define to the type that is the result of default argument promotions of
   type mode_t. */
#define PROMOTED_MODE_T int

/* Define if the pthread_in_use() detection is hard. */
/* #undef PTHREAD_IN_USE_DETECTION_HARD */

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'ptrdiff_t'. */
#define PTRDIFF_T_SUFFIX 

/* declaration of filename_completion_function() needs const in the first
   argument */
#define READLINE_CONST const

/* The readline built-in filename completion function, either
   rl_filename_completion_function() or filename_completion_function() */
#define READLINE_FILE_COMPLETE rl_filename_completion_function

/* Define to 1 if readlink fails to recognize a trailing slash. */
#define READLINK_TRAILING_SLASH_BUG 1

/* Define to 1 if readlink sets errno instead of truncating a too-long link.
   */
/* #undef READLINK_TRUNCATE_BUG */

/* Define to 1 if stat needs help when passed a file name with a trailing
   slash */
#define REPLACE_FUNC_STAT_FILE 1

/* Define if nl_langinfo exists but is overridden by gnulib. */
#define REPLACE_NL_LANGINFO 1

/* Define to 1 if strerror(0) does not return a message implying success. */
#define REPLACE_STRERROR_0 1

/* declaration of select() needs const in the fifth argument */
#define SELECT_CONST 

/* type of `* readfds', `* writefds', `* exceptfds' in select() declaration */
#define SELECT_SET_T fd_set

/* type of `width' in select() declaration */
#define SELECT_WIDTH_T int

/* Define to 1 if setlocale (LC_ALL, NULL) is multithread-safe. */
#define SETLOCALE_NULL_ALL_MTSAFE 0

/* Define to 1 if setlocale (category, NULL) is multithread-safe. */
#define SETLOCALE_NULL_ONE_MTSAFE 1

/* type of `optval' in setsockopt() declaration */
#define SETSOCKOPT_ARG_T void*

/* declaration of setsockopt() needs const */
#define SETSOCKOPT_CONST const

/* type of `optlen' in setsockopt() declaration */
#define SETSOCKOPT_OPTLEN_T unsigned int

/* address range of shared library code */
#define SHLIB_ADDRESS_RANGE 0x00000000UL

/* signal handlers installed via sigaction() need to be reinstalled when they
   are activated */
/* #undef SIGACTION_NEED_REINSTALL */

/* signals need to be unblocked when signal handlers installed via sigaction()
   are left */
/* #undef SIGACTION_NEED_UNBLOCK */

/* signal handlers need to be reinstalled when they are activated */
/* #undef SIGNAL_NEED_REINSTALL */

/* SIGNALBLOCK_BSD is defined above and signals need to be unblocked when
   signal handlers are left */
#define SIGNAL_NEED_UNBLOCK /**/

/* SIGNALBLOCK_BSD is defined above and other signals need to be unblocked
   when signal handlers are left */
/* #undef SIGNAL_NEED_UNBLOCK_OTHERS */

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'sig_atomic_t'. */
#define SIG_ATOMIC_T_SUFFIX 

/* The size of `off_t', as computed by sizeof. */
#define SIZEOF_OFF_T 8

/* The size of `struct timeval', as computed by sizeof. */
#define SIZEOF_STRUCT_TIMEVAL 8

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'size_t'. */
#define SIZE_T_SUFFIX ul

/* address range of the C stack */
#define STACK_ADDRESS_RANGE 0xBF000000UL

/* If using the C implementation of alloca, define if you know the
   direction of stack growth for your system; otherwise it will be
   automatically deduced at runtime.
	STACK_DIRECTION > 0 => grows toward higher addresses
	STACK_DIRECTION < 0 => grows toward lower addresses
	STACK_DIRECTION = 0 => direction of growth unknown */
/* #undef STACK_DIRECTION */

/* Define to 1 if the `S_IS*' macros in <sys/stat.h> do not work properly. */
/* #undef STAT_MACROS_BROKEN */

/* Define to 1 if all of the C90 standard headers exist (not just the ones
   required in a freestanding environment). This macro is provided for
   backward compatibility; new code need not use it. */
#define STDC_HEADERS 1

/* Define to 1 on System V Release 4. */
/* #undef SVR4 */

/* Define to 1 if time_t is signed. */
#define TIME_T_IS_SIGNED 1

/* Define to 1 if your <sys/time.h> declares `struct tm'. */
/* #undef TM_IN_SYS_TIME */

/* Define to 1 if the type of the st_atim member of a struct stat is struct
   timespec. */
/* #undef TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC */

/* Define to 1 for Encore UMAX. */
/* #undef UMAX */

/* Define to 1 for Encore UMAX 4.3 that has <inq_status/cpustats.h> instead of
   <sys/cpustats.h>. */
/* #undef UMAX4_3 */

/* Define to the prefix of C symbols at the assembler and linker level, either
   an underscore or empty. */
#define USER_LABEL_PREFIX _

/* Define if the combination of the ISO C and POSIX multithreading APIs can be
   used. */
/* #undef USE_ISOC_AND_POSIX_THREADS */

/* Define if the ISO C multithreading library can be used. */
/* #undef USE_ISOC_THREADS */

/* Define to 1 if you want to use the Linux kernel cryptographic API. */
#define USE_LINUX_CRYPTO_API 0

/* Define if the POSIX multithreading library can be used. */
#define USE_POSIX_THREADS 1

/* Define if references to the POSIX multithreading library should be made
   weak. */
/* #undef USE_POSIX_THREADS_WEAK */

/* Enable extensions on AIX 3, Interix.  */
#ifndef _ALL_SOURCE
# define _ALL_SOURCE 1
#endif
/* Enable general extensions on macOS.  */
#ifndef _DARWIN_C_SOURCE
# define _DARWIN_C_SOURCE 1
#endif
/* Enable general extensions on Solaris.  */
#ifndef __EXTENSIONS__
# define __EXTENSIONS__ 1
#endif
/* Enable GNU extensions on systems that have them.  */
#ifndef _GNU_SOURCE
# define _GNU_SOURCE 1
#endif
/* Enable X/Open compliant socket functions that do not require linking
   with -lxnet on HP-UX 11.11.  */
#ifndef _HPUX_ALT_XOPEN_SOCKET_API
# define _HPUX_ALT_XOPEN_SOCKET_API 1
#endif
/* Identify the host operating system as Minix.
   This macro does not affect the system headers' behavior.
   A future release of Autoconf may stop defining this macro.  */
#ifndef _MINIX
/* # undef _MINIX */
#endif
/* Enable general extensions on NetBSD.
   Enable NetBSD compatibility extensions on Minix.  */
#ifndef _NETBSD_SOURCE
# define _NETBSD_SOURCE 1
#endif
/* Enable OpenBSD compatibility extensions on NetBSD.
   Oddly enough, this does nothing on OpenBSD.  */
#ifndef _OPENBSD_SOURCE
# define _OPENBSD_SOURCE 1
#endif
/* Define to 1 if needed for POSIX-compatible behavior.  */
#ifndef _POSIX_SOURCE
/* # undef _POSIX_SOURCE */
#endif
/* Define to 2 if needed for POSIX-compatible behavior.  */
#ifndef _POSIX_1_SOURCE
/* # undef _POSIX_1_SOURCE */
#endif
/* Enable POSIX-compatible threading on Solaris.  */
#ifndef _POSIX_PTHREAD_SEMANTICS
# define _POSIX_PTHREAD_SEMANTICS 1
#endif
/* Enable extensions specified by ISO/IEC TS 18661-5:2014.  */
#ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__
# define __STDC_WANT_IEC_60559_ATTRIBS_EXT__ 1
#endif
/* Enable extensions specified by ISO/IEC TS 18661-1:2014.  */
#ifndef __STDC_WANT_IEC_60559_BFP_EXT__
# define __STDC_WANT_IEC_60559_BFP_EXT__ 1
#endif
/* Enable extensions specified by ISO/IEC TS 18661-2:2015.  */
#ifndef __STDC_WANT_IEC_60559_DFP_EXT__
# define __STDC_WANT_IEC_60559_DFP_EXT__ 1
#endif
/* Enable extensions specified by ISO/IEC TS 18661-4:2015.  */
#ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__
# define __STDC_WANT_IEC_60559_FUNCS_EXT__ 1
#endif
/* Enable extensions specified by ISO/IEC TS 18661-3:2015.  */
#ifndef __STDC_WANT_IEC_60559_TYPES_EXT__
# define __STDC_WANT_IEC_60559_TYPES_EXT__ 1
#endif
/* Enable extensions specified by ISO/IEC TR 24731-2:2010.  */
#ifndef __STDC_WANT_LIB_EXT2__
# define __STDC_WANT_LIB_EXT2__ 1
#endif
/* Enable extensions specified by ISO/IEC 24747:2009.  */
#ifndef __STDC_WANT_MATH_SPEC_FUNCS__
# define __STDC_WANT_MATH_SPEC_FUNCS__ 1
#endif
/* Enable extensions on HP NonStop.  */
#ifndef _TANDEM_SOURCE
# define _TANDEM_SOURCE 1
#endif
/* Enable X/Open extensions.  Define to 500 only if necessary
   to make mbstate_t available.  */
#ifndef _XOPEN_SOURCE
/* # undef _XOPEN_SOURCE */
#endif


/* Define if the native Windows multithreading API can be used. */
/* #undef USE_WINDOWS_THREADS */

/* expression in ch which is true if ch is a valid character in filenames */
#define VALID_FILENAME_CHAR ((ch >= 1) && (ch != 47))

/* Define to 1 if unsetenv returns void instead of int. */
/* #undef VOID_UNSETENV */

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'wchar_t'. */
#define WCHAR_T_SUFFIX 

/* Define if the wcrtomb function does not work in the C locale. */
/* #undef WCRTOMB_C_LOCALE_BUG */

/* Define if the wcrtomb function has an incorrect return value. */
/* #undef WCRTOMB_RETVAL_BUG */

/* Define if WSAStartup is needed. */
/* #undef WINDOWS_SOCKETS */

/* have <termios.h> but need <sys/ioctl.h> for `struct winsize' */
/* #undef WINSIZE_NEED_SYS_IOCTL_H */

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'wint_t'. */
#define WINT_T_SUFFIX 

/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
   significant byte first (like Motorola and SPARC, unlike Intel). */
#if defined AC_APPLE_UNIVERSAL_BUILD
# if defined __BIG_ENDIAN__
#  define WORDS_BIGENDIAN 1
# endif
#else
# ifndef WORDS_BIGENDIAN
#  define WORDS_BIGENDIAN 1
# endif
#endif

/* Define to 1 if the X Window System is missing or not being used. */
/* #undef X_DISPLAY_MISSING */

/* Number of bits in a file offset, on hosts where this is settable. */
/* #undef _FILE_OFFSET_BITS */

/* True if the compiler says it groks GNU C version MAJOR.MINOR.  */
#if defined __GNUC__ && defined __GNUC_MINOR__
# define _GL_GNUC_PREREQ(major, minor) \
    ((major) < __GNUC__ + ((minor) <= __GNUC_MINOR__))
#else
# define _GL_GNUC_PREREQ(major, minor) 0
#endif


/* Define to enable the declarations of ISO C 11 types and functions. */
/* #undef _ISOC11_SOURCE */

/* Define to 1 to make fseeko visible on some hosts (e.g. glibc 2.2). */
/* #undef _LARGEFILE_SOURCE */

/* Define for large files, on AIX-style hosts. */
/* #undef _LARGE_FILES */

/* Define to 1 on Solaris. */
/* #undef _LCONV_C99 */

/* The _Noreturn keyword of C11.  */
#ifndef _Noreturn
# if (defined __cplusplus \
      && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \
          || (defined _MSC_VER && 1900 <= _MSC_VER)) \
      && 0)
    /* [[noreturn]] is not practically usable, because with it the syntax
         extern _Noreturn void func (...);
       would not be valid; such a declaration would only be valid with 'extern'
       and '_Noreturn' swapped, or without the 'extern' keyword.  However, some
       AIX system header files and several gnulib header files use precisely
       this syntax with 'extern'.  */
#  define _Noreturn [[noreturn]]
# elif ((!defined __cplusplus || defined __clang__) \
        && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \
            || (!defined __STRICT_ANSI__ \
                && (_GL_GNUC_PREREQ (4, 7) \
                    || (defined __apple_build_version__ \
                        ? 6000000 <= __apple_build_version__ \
                        : 3 < __clang_major__ + (5 <= __clang_minor__))))))
   /* _Noreturn works as-is.  */
# elif _GL_GNUC_PREREQ (2, 8) || defined __clang__ || 0x5110 <= __SUNPRO_C
#  define _Noreturn __attribute__ ((__noreturn__))
# elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0)
#  define _Noreturn __declspec (noreturn)
# else
#  define _Noreturn
# endif
#endif


/* Define to 1 in order to get the POSIX compatible declarations of socket
   functions. */
/* #undef _POSIX_PII_SOCKET */

/* Define if you want <regex.h> to include <limits.h>, so that it consistently
   overrides <limits.h>'s RE_DUP_MAX. */
#define _REGEX_INCLUDE_LIMITS_H 1

/* Define if you want regoff_t to be at least as wide POSIX requires. */
#define _REGEX_LARGE_OFFSETS 1

/* For standard stat data types on VMS. */
#define _USE_STD_STAT 1

/* Define to 1 if type `char' is unsigned and your compiler does not
   predefine this macro.  */
#ifndef __CHAR_UNSIGNED__
/* # undef __CHAR_UNSIGNED__ */
#endif

/* Define to 1 if the system <stdint.h> predates C++11. */
/* #undef __STDC_CONSTANT_MACROS */

/* Define to 1 if the system <stdint.h> predates C++11. */
/* #undef __STDC_LIMIT_MACROS */

/* The _GL_ASYNC_SAFE marker should be attached to functions that are
   signal handlers (for signals other than SIGABRT, SIGPIPE) or can be
   invoked from such signal handlers.  Such functions have some restrictions:
     * All functions that it calls should be marked _GL_ASYNC_SAFE as well,
       or should be listed as async-signal-safe in POSIX
       <https://pubs.opengroup.org/onlinepubs/9699919799/functions/V2_chap02.html#tag_15_04>
       section 2.4.3.  Note that malloc(), sprintf(), and fwrite(), in
       particular, are NOT async-signal-safe.
     * All memory locations (variables and struct fields) that these functions
       access must be marked 'volatile'.  This holds for both read and write
       accesses.  Otherwise the compiler might optimize away stores to and
       reads from such locations that occur in the program, depending on its
       data flow analysis.  For example, when the program contains a loop
       that is intended to inspect a variable set from within a signal handler
           while (!signal_occurred)
             ;
       the compiler is allowed to transform this into an endless loop if the
       variable 'signal_occurred' is not declared 'volatile'.
   Additionally, recall that:
     * A signal handler should not modify errno (except if it is a handler
       for a fatal signal and ends by raising the same signal again, thus
       provoking the termination of the process).  If it invokes a function
       that may clobber errno, it needs to save and restore the value of
       errno.  */
#define _GL_ASYNC_SAFE


/* Attributes.  */
#if (defined __has_attribute \
     && (!defined __clang_minor__ \
         || 3 < __clang_major__ + (5 <= __clang_minor__)))
# define _GL_HAS_ATTRIBUTE(attr) __has_attribute (__##attr##__)
#else
# define _GL_HAS_ATTRIBUTE(attr) _GL_ATTR_##attr
# define _GL_ATTR_alloc_size _GL_GNUC_PREREQ (4, 3)
# define _GL_ATTR_always_inline _GL_GNUC_PREREQ (3, 2)
# define _GL_ATTR_artificial _GL_GNUC_PREREQ (4, 3)
# define _GL_ATTR_cold _GL_GNUC_PREREQ (4, 3)
# define _GL_ATTR_const _GL_GNUC_PREREQ (2, 95)
# define _GL_ATTR_deprecated _GL_GNUC_PREREQ (3, 1)
# define _GL_ATTR_diagnose_if 0
# define _GL_ATTR_error _GL_GNUC_PREREQ (4, 3)
# define _GL_ATTR_externally_visible _GL_GNUC_PREREQ (4, 1)
# define _GL_ATTR_fallthrough _GL_GNUC_PREREQ (7, 0)
# define _GL_ATTR_format _GL_GNUC_PREREQ (2, 7)
# define _GL_ATTR_leaf _GL_GNUC_PREREQ (4, 6)
# ifdef _ICC
#  define _GL_ATTR_may_alias 0
# else
#  define _GL_ATTR_may_alias _GL_GNUC_PREREQ (3, 3)
# endif
# define _GL_ATTR_malloc _GL_GNUC_PREREQ (3, 0)
# define _GL_ATTR_noinline _GL_GNUC_PREREQ (3, 1)
# define _GL_ATTR_nonnull _GL_GNUC_PREREQ (3, 3)
# define _GL_ATTR_nonstring _GL_GNUC_PREREQ (8, 0)
# define _GL_ATTR_nothrow _GL_GNUC_PREREQ (3, 3)
# define _GL_ATTR_packed _GL_GNUC_PREREQ (2, 7)
# define _GL_ATTR_pure _GL_GNUC_PREREQ (2, 96)
# define _GL_ATTR_returns_nonnull _GL_GNUC_PREREQ (4, 9)
# define _GL_ATTR_sentinel _GL_GNUC_PREREQ (4, 0)
# define _GL_ATTR_unused _GL_GNUC_PREREQ (2, 7)
# define _GL_ATTR_warn_unused_result _GL_GNUC_PREREQ (3, 4)
#endif


#if _GL_HAS_ATTRIBUTE (alloc_size)
# define _GL_ATTRIBUTE_ALLOC_SIZE(args) __attribute__ ((__alloc_size__ args))
#else
# define _GL_ATTRIBUTE_ALLOC_SIZE(args)
#endif

#if _GL_HAS_ATTRIBUTE (always_inline)
# define _GL_ATTRIBUTE_ALWAYS_INLINE __attribute__ ((__always_inline__))
#else
# define _GL_ATTRIBUTE_ALWAYS_INLINE
#endif

#if _GL_HAS_ATTRIBUTE (artificial)
# define _GL_ATTRIBUTE_ARTIFICIAL __attribute__ ((__artificial__))
#else
# define _GL_ATTRIBUTE_ARTIFICIAL
#endif

/* Avoid __attribute__ ((cold)) on MinGW; see thread starting at
   <https://lists.gnu.org/r/emacs-devel/2019-04/msg01152.html>.
   Also, Oracle Studio 12.6 requires 'cold' not '__cold__'.  */
#if _GL_HAS_ATTRIBUTE (cold) && !defined __MINGW32__
# ifndef __SUNPRO_C
#  define _GL_ATTRIBUTE_COLD __attribute__ ((__cold__))
# else
#  define _GL_ATTRIBUTE_COLD __attribute__ ((cold))
# endif
#else
# define _GL_ATTRIBUTE_COLD
#endif

#if _GL_HAS_ATTRIBUTE (const)
# define _GL_ATTRIBUTE_CONST __attribute__ ((__const__))
#else
# define _GL_ATTRIBUTE_CONST
#endif

#if 201710L < __STDC_VERSION__
# define _GL_ATTRIBUTE_DEPRECATED [[__deprecated__]]
#elif _GL_HAS_ATTRIBUTE (deprecated)
# define _GL_ATTRIBUTE_DEPRECATED __attribute__ ((__deprecated__))
#else
# define _GL_ATTRIBUTE_DEPRECATED
#endif

#if _GL_HAS_ATTRIBUTE (error)
# define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__error__ (msg)))
# define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__warning__ (msg)))
#elif _GL_HAS_ATTRIBUTE (diagnose_if)
# define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__diagnose_if__ (1, msg, "error")))
# define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__diagnose_if__ (1, msg, "warning")))
#else
# define _GL_ATTRIBUTE_ERROR(msg)
# define _GL_ATTRIBUTE_WARNING(msg)
#endif

#if _GL_HAS_ATTRIBUTE (externally_visible)
# define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE __attribute__ ((externally_visible))
#else
# define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE
#endif

/* FALLTHROUGH is special, because it always expands to something.  */
#if 201710L < __STDC_VERSION__
# define _GL_ATTRIBUTE_FALLTHROUGH [[__fallthrough__]]
#elif _GL_HAS_ATTRIBUTE (fallthrough)
# define _GL_ATTRIBUTE_FALLTHROUGH __attribute__ ((__fallthrough__))
#else
# define _GL_ATTRIBUTE_FALLTHROUGH ((void) 0)
#endif

#if _GL_HAS_ATTRIBUTE (format)
# define _GL_ATTRIBUTE_FORMAT(spec) __attribute__ ((__format__ spec))
#else
# define _GL_ATTRIBUTE_FORMAT(spec)
#endif

#if _GL_HAS_ATTRIBUTE (leaf)
# define _GL_ATTRIBUTE_LEAF __attribute__ ((__leaf__))
#else
# define _GL_ATTRIBUTE_LEAF
#endif

/* Oracle Studio 12.6 mishandles may_alias despite __has_attribute OK.  */
#if _GL_HAS_ATTRIBUTE (may_alias) && !defined __SUNPRO_C
# define _GL_ATTRIBUTE_MAY_ALIAS __attribute__ ((__may_alias__))
#else
# define _GL_ATTRIBUTE_MAY_ALIAS
#endif

#if 201710L < __STDC_VERSION__
# define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]]
#elif _GL_HAS_ATTRIBUTE (unused)
# define _GL_ATTRIBUTE_MAYBE_UNUSED __attribute__ ((__unused__))
#else
# define _GL_ATTRIBUTE_MAYBE_UNUSED
#endif
/* Earlier spellings of this macro.  */
#define _GL_UNUSED _GL_ATTRIBUTE_MAYBE_UNUSED
#define _UNUSED_PARAMETER_ _GL_ATTRIBUTE_MAYBE_UNUSED

#if _GL_HAS_ATTRIBUTE (malloc)
# define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__))
#else
# define _GL_ATTRIBUTE_MALLOC
#endif

#if 201710L < __STDC_VERSION__
# define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]]
#elif _GL_HAS_ATTRIBUTE (warn_unused_result)
# define _GL_ATTRIBUTE_NODISCARD __attribute__ ((__warn_unused_result__))
#else
# define _GL_ATTRIBUTE_NODISCARD
#endif

#if _GL_HAS_ATTRIBUTE (noinline)
# define _GL_ATTRIBUTE_NOINLINE __attribute__ ((__noinline__))
#else
# define _GL_ATTRIBUTE_NOINLINE
#endif

#if _GL_HAS_ATTRIBUTE (nonnull)
# define _GL_ATTRIBUTE_NONNULL(args) __attribute__ ((__nonnull__ args))
#else
# define _GL_ATTRIBUTE_NONNULL(args)
#endif

#if _GL_HAS_ATTRIBUTE (nonstring)
# define _GL_ATTRIBUTE_NONSTRING __attribute__ ((__nonstring__))
#else
# define _GL_ATTRIBUTE_NONSTRING
#endif

/* There is no _GL_ATTRIBUTE_NORETURN; use _Noreturn instead.  */

#if _GL_HAS_ATTRIBUTE (nothrow) && !defined __cplusplus
# define _GL_ATTRIBUTE_NOTHROW __attribute__ ((__nothrow__))
#else
# define _GL_ATTRIBUTE_NOTHROW
#endif

#if _GL_HAS_ATTRIBUTE (packed)
# define _GL_ATTRIBUTE_PACKED __attribute__ ((__packed__))
#else
# define _GL_ATTRIBUTE_PACKED
#endif

#if _GL_HAS_ATTRIBUTE (pure)
# define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__))
#else
# define _GL_ATTRIBUTE_PURE
#endif

#if _GL_HAS_ATTRIBUTE (returns_nonnull)
# define _GL_ATTRIBUTE_RETURNS_NONNULL __attribute__ ((__returns_nonnull__))
#else
# define _GL_ATTRIBUTE_RETURNS_NONNULL
#endif

#if _GL_HAS_ATTRIBUTE (sentinel)
# define _GL_ATTRIBUTE_SENTINEL(pos) __attribute__ ((__sentinel__ pos))
#else
# define _GL_ATTRIBUTE_SENTINEL(pos)
#endif


/* To support C++ as well as C, use _GL_UNUSED_LABEL with trailing ';'.  */
#if !defined __cplusplus || _GL_GNUC_PREREQ (4, 5)
# define _GL_UNUSED_LABEL _GL_ATTRIBUTE_MAYBE_UNUSED
#else
# define _GL_UNUSED_LABEL
#endif


/* Please see the Gnulib manual for how to use these macros.

   Suppress extern inline with HP-UX cc, as it appears to be broken; see
   <https://lists.gnu.org/r/bug-texinfo/2013-02/msg00030.html>.

   Suppress extern inline with Sun C in standards-conformance mode, as it
   mishandles inline functions that call each other.  E.g., for 'inline void f
   (void) { } inline void g (void) { f (); }', c99 incorrectly complains
   'reference to static identifier "f" in extern inline function'.
   This bug was observed with Sun C 5.12 SunOS_i386 2011/11/16.

   Suppress extern inline (with or without __attribute__ ((__gnu_inline__)))
   on configurations that mistakenly use 'static inline' to implement
   functions or macros in standard C headers like <ctype.h>.  For example,
   if isdigit is mistakenly implemented via a static inline function,
   a program containing an extern inline function that calls isdigit
   may not work since the C standard prohibits extern inline functions
   from calling static functions (ISO C 99 section 6.7.4.(3).
   This bug is known to occur on:

     OS X 10.8 and earlier; see:
     https://lists.gnu.org/r/bug-gnulib/2012-12/msg00023.html

     DragonFly; see
     http://muscles.dragonflybsd.org/bulk/clang-master-potential/20141111_102002/logs/ah-tty-0.3.12.log

     FreeBSD; see:
     https://lists.gnu.org/r/bug-gnulib/2014-07/msg00104.html

   OS X 10.9 has a macro __header_inline indicating the bug is fixed for C and
   for clang but remains for g++; see <https://trac.macports.org/ticket/41033>.
   Assume DragonFly and FreeBSD will be similar.

   GCC 4.3 and above with -std=c99 or -std=gnu99 implements ISO C99
   inline semantics, unless -fgnu89-inline is used.  It defines a macro
   __GNUC_STDC_INLINE__ to indicate this situation or a macro
   __GNUC_GNU_INLINE__ to indicate the opposite situation.
   GCC 4.2 with -std=c99 or -std=gnu99 implements the GNU C inline
   semantics but warns, unless -fgnu89-inline is used:
     warning: C99 inline functions are not supported; using GNU89
     warning: to disable this warning use -fgnu89-inline or the gnu_inline function attribute
   It defines a macro __GNUC_GNU_INLINE__ to indicate this situation.
 */
#if (((defined __APPLE__ && defined __MACH__) \
      || defined __DragonFly__ || defined __FreeBSD__) \
     && (defined __header_inline \
         ? (defined __cplusplus && defined __GNUC_STDC_INLINE__ \
            && ! defined __clang__) \
         : ((! defined _DONT_USE_CTYPE_INLINE_ \
             && (defined __GNUC__ || defined __cplusplus)) \
            || (defined _FORTIFY_SOURCE && 0 < _FORTIFY_SOURCE \
                && defined __GNUC__ && ! defined __cplusplus))))
# define _GL_EXTERN_INLINE_STDHEADER_BUG
#endif
#if ((__GNUC__ \
      ? defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \
      : (199901L <= __STDC_VERSION__ \
         && !defined __HP_cc \
         && !defined __PGI \
         && !(defined __SUNPRO_C && __STDC__))) \
     && !defined _GL_EXTERN_INLINE_STDHEADER_BUG)
# define _GL_INLINE inline
# define _GL_EXTERN_INLINE extern inline
# define _GL_EXTERN_INLINE_IN_USE
#elif (2 < __GNUC__ + (7 <= __GNUC_MINOR__) && !defined __STRICT_ANSI__ \
       && !defined _GL_EXTERN_INLINE_STDHEADER_BUG)
# if defined __GNUC_GNU_INLINE__ && __GNUC_GNU_INLINE__
   /* __gnu_inline__ suppresses a GCC 4.2 diagnostic.  */
#  define _GL_INLINE extern inline __attribute__ ((__gnu_inline__))
# else
#  define _GL_INLINE extern inline
# endif
# define _GL_EXTERN_INLINE extern
# define _GL_EXTERN_INLINE_IN_USE
#else
# define _GL_INLINE static _GL_UNUSED
# define _GL_EXTERN_INLINE static _GL_UNUSED
#endif

/* In GCC 4.6 (inclusive) to 5.1 (exclusive),
   suppress bogus "no previous prototype for 'FOO'"
   and "no previous declaration for 'FOO'" diagnostics,
   when FOO is an inline function in the header; see
   <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=54113> and
   <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63877>.  */
#if __GNUC__ == 4 && 6 <= __GNUC_MINOR__
# if defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__
#  define _GL_INLINE_HEADER_CONST_PRAGMA
# else
#  define _GL_INLINE_HEADER_CONST_PRAGMA \
     _Pragma ("GCC diagnostic ignored \"-Wsuggest-attribute=const\"")
# endif
# define _GL_INLINE_HEADER_BEGIN \
    _Pragma ("GCC diagnostic push") \
    _Pragma ("GCC diagnostic ignored \"-Wmissing-prototypes\"") \
    _Pragma ("GCC diagnostic ignored \"-Wmissing-declarations\"") \
    _GL_INLINE_HEADER_CONST_PRAGMA
# define _GL_INLINE_HEADER_END \
    _Pragma ("GCC diagnostic pop")
#else
# define _GL_INLINE_HEADER_BEGIN
# define _GL_INLINE_HEADER_END
#endif

/* Define to `int' if <sys/types.h> doesn't define. */
/* #undef gid_t */

/* Define to `__inline__' or `__inline' if that's what the C compiler
   calls it, or to nothing if 'inline' is not supported under any name.  */
#ifndef __cplusplus
/* #undef inline */
#endif

/* Work around a bug in Apple GCC 4.0.1 build 5465: In C99 mode, it supports
   the ISO C 99 semantics of 'extern inline' (unlike the GNU C semantics of
   earlier versions), but does not display it by setting __GNUC_STDC_INLINE__.
   __APPLE__ && __MACH__ test for Mac OS X.
   __APPLE_CC__ tests for the Apple compiler and its version.
   __STDC_VERSION__ tests for the C99 mode.  */
#if defined __APPLE__ && defined __MACH__ && __APPLE_CC__ >= 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__
# define __GNUC_STDC_INLINE__ 1
#endif

/* Define to a type if <wchar.h> does not define. */
/* #undef mbstate_t */

/* _GL_CMP (n1, n2) performs a three-valued comparison on n1 vs. n2, where
   n1 and n2 are expressions without side effects, that evaluate to real
   numbers (excluding NaN).
   It returns
     1  if n1 > n2
     0  if n1 == n2
     -1 if n1 < n2
   The naïve code   (n1 > n2 ? 1 : n1 < n2 ? -1 : 0)  produces a conditional
   jump with nearly all GCC versions up to GCC 10.
   This variant     (n1 < n2 ? -1 : n1 > n2)  produces a conditional with many
   GCC versions up to GCC 9.
   The better code  (n1 > n2) - (n1 < n2)  from Hacker's Delight § 2-9
   avoids conditional jumps in all GCC versions >= 3.4.  */
#define _GL_CMP(n1, n2) (((n1) > (n2)) - ((n1) < (n2)))


/* Define to the real name of the mktime_internal function. */
/* #undef mktime_internal */

/* Define to `int' if <sys/types.h> does not define. */
/* #undef mode_t */

/* Define to the name of the strftime replacement function. */
#define my_strftime nstrftime

/* Define to the type of st_nlink in struct stat, or a supertype. */
/* #undef nlink_t */

/* Define as a signed integer type capable of holding a process identifier. */
/* #undef pid_t */

/* Define to rpl_re_comp if the replacement should be used. */
#define re_comp rpl_re_comp

/* Define to rpl_re_compile_fastmap if the replacement should be used. */
#define re_compile_fastmap rpl_re_compile_fastmap

/* Define to rpl_re_compile_pattern if the replacement should be used. */
#define re_compile_pattern rpl_re_compile_pattern

/* Define to rpl_re_exec if the replacement should be used. */
#define re_exec rpl_re_exec

/* Define to rpl_re_match if the replacement should be used. */
#define re_match rpl_re_match

/* Define to rpl_re_match_2 if the replacement should be used. */
#define re_match_2 rpl_re_match_2

/* Define to rpl_re_search if the replacement should be used. */
#define re_search rpl_re_search

/* Define to rpl_re_search_2 if the replacement should be used. */
#define re_search_2 rpl_re_search_2

/* Define to rpl_re_set_registers if the replacement should be used. */
#define re_set_registers rpl_re_set_registers

/* Define to rpl_re_set_syntax if the replacement should be used. */
#define re_set_syntax rpl_re_set_syntax

/* Define to rpl_re_syntax_options if the replacement should be used. */
#define re_syntax_options rpl_re_syntax_options

/* Define to rpl_regcomp if the replacement should be used. */
#define regcomp rpl_regcomp

/* Define to rpl_regerror if the replacement should be used. */
#define regerror rpl_regerror

/* Define to rpl_regexec if the replacement should be used. */
#define regexec rpl_regexec

/* Define to rpl_regfree if the replacement should be used. */
#define regfree rpl_regfree

/* Define to the equivalent of the C99 'restrict' keyword, or to
   nothing if this is not supported.  Do not define if restrict is
   supported only directly.  */
#define restrict /**/
/* Work around a bug in older versions of Sun C++, which did not
   #define __restrict__ or support _Restrict or __restrict__
   even though the corresponding Sun C compiler ended up with
   "#define restrict _Restrict" or "#define restrict __restrict__"
   in the previous line.  This workaround can be removed once
   we assume Oracle Developer Studio 12.5 (2016) or later.  */
#if defined __SUNPRO_CC && !defined __RESTRICT && !defined __restrict__
# define _Restrict
# define __restrict__
#endif

/* Define to `unsigned int' if <sys/types.h> does not define. */
/* #undef size_t */

/* type to use in place of socklen_t if not defined */
/* #undef socklen_t */

/* Define as a signed type of the same size as size_t. */
/* #undef ssize_t */

/* Define to `int' if <sys/types.h> doesn't define. */
/* #undef uid_t */


  /* This definition is a duplicate of the one in unitypes.h.
     It is here so that we can cope with an older version of unitypes.h
     that does not contain this definition and that is pre-installed among
     the public header files.  */
  # if defined __restrict \
       || 2 < __GNUC__ + (95 <= __GNUC_MINOR__) \
       || __clang_major__ >= 3
  #  define _UC_RESTRICT __restrict
  # elif 199901L <= __STDC_VERSION__ || defined restrict
  #  define _UC_RESTRICT restrict
  # else
  #  define _UC_RESTRICT
  # endif
  

/* Define as `fork' if `vfork' does not work. */
/* #undef vfork */

/* intparam.h */
#define char_bitsize 8
#define short_bitsize 16
#define int_bitsize 32
#define long_bitsize 32
#define long_long_bitsize 64
#define pointer_bitsize 32
#define sizeof_char 1
#define alignment_char 1
#define sizeof_short 2
#define alignment_short 2
#define sizeof_int 4
#define alignment_int 4
#define sizeof_long 4
#define alignment_long 4
#define sizeof_long_long 8
#define alignment_long_long 4
#define sizeof_float 4
#define alignment_float 4
#define sizeof_double 8
#define alignment_double 4
#define short_big_endian
#define int_big_endian
#define long_big_endian
#define long_long_big_endian
#define stack_grows_down

/* floatparam.h */
#define rounds_to_nearest        0  /* 0.5 ulp */
#define rounds_to_zero           1  /* 1 ulp */
#define rounds_to_infinity       2  /* 1 ulp */
#define rounds_to_minus_infinity 3  /* 1 ulp */
#define float_mant_bits 24
#define float_rounds rounds_to_nearest
#define float_rounds_correctly 1
#define double_mant_bits 53
#define double_rounds rounds_to_nearest
#define double_rounds_correctly 1

/* genclisph */
#define SAFETY 0
#define CLISP_UNICODE 1
#define UNIX
#define designated_init(field,value)  .field=value
#define BIG_ENDIAN_P  1
#define DYNAMIC_TABLES  0
#define modexp  
#define modimp  extern
#define VALUES_IF(C)  do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(2))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))); mv_count = 1; } while (0)
#define VALUES0  do { mv_space[0] = ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))); mv_count = 0; } while (0)
#define VALUES1(A)  do { mv_space[0] = (A); mv_count = 1; } while (0)
#define VALUES2(A,B)  do { mv_space[0] = (A); mv_space[1] = (B); mv_count = 2; } while (0)
#define VALUES3(A,B,C)  do { mv_space[0] = (A); mv_space[1] = (B); mv_space[2] = (C); mv_count = 3; } while (0)
#if !defined(__GNUC__) && !defined(inline)
#define inline
#endif
#define BEGIN_DECLS  
#define END_DECLS  
#define CONCAT_(xxx,yyy)  xxx##yyy
#define CONCAT3_(aaa,bbb,ccc)  aaa##bbb##ccc
#define CONCAT(xxx,yyy)  CONCAT_(xxx,yyy)
#define CONCAT3(aaa,bbb,ccc)  CONCAT3_(aaa,bbb,ccc)
#define STRING(token) #token
#define STRINGIFY(token) STRING(token)
#define NOTREACHED  error_notreached(__FILE__,__LINE__)
#define ASSERT(expr)  do { if (!(expr)) NOTREACHED; } while(0)
#include <alloca.h>
#include <stdlib.h>
#include <sys/types.h>
#define LL(nnnn) nnnn##LL
#define ULL(nnnn) nnnn##ULL
typedef char SBYTE;
typedef unsigned char UBYTE;
typedef short SWORD;
typedef unsigned short UWORD;
typedef long SLONG;
typedef unsigned long ULONG;
typedef long long SLONGLONG;
typedef unsigned long long ULONGLONG;
#include <stdbool.h>
#undef NULL
#define NULL  ((void*) 0L)
#define unspecified  0
#define pointerplus(pointer,offset)  ((UBYTE*)(pointer)+(offset))
#define bit(n)  (1UL<<(n))
#define bit_test(x,n)  ((x) & (1UL<<(n)))
#define minus_bit(n)  (-1L<<(n))
#define ifloor(a_from_floor,b_from_floor)  ((a_from_floor) / (b_from_floor))
#define ceiling(a_from_ceiling,b_from_ceiling)  (((a_from_ceiling) + (b_from_ceiling) - 1) / (b_from_ceiling))
#define round_down(a_from_round,b_from_round)  (ifloor(a_from_round,b_from_round)*(b_from_round))
#define round_up(a_from_round,b_from_round)  ((((a_from_round) + (b_from_round) - 1) / (b_from_round))*(b_from_round))
#define DYNAMIC_ARRAY(arrayvar,arrayeltype,arraysize)  arrayeltype arrayvar[arraysize]
#define FREE_DYNAMIC_ARRAY(arrayvar)  
typedef UBYTE uint1;
typedef SBYTE sint1;
typedef UBYTE uint2;
typedef SBYTE sint2;
typedef UBYTE uint3;
typedef SBYTE sint3;
typedef UBYTE uint4;
typedef SBYTE sint4;
typedef UBYTE uint5;
typedef SBYTE sint5;
typedef UBYTE uint6;
typedef SBYTE sint6;
typedef UBYTE uint7;
typedef SBYTE sint7;
typedef UBYTE uint8;
typedef SBYTE sint8;
typedef UWORD uint9;
typedef SWORD sint9;
typedef UWORD uint10;
typedef SWORD sint10;
typedef UWORD uint11;
typedef SWORD sint11;
typedef UWORD uint12;
typedef SWORD sint12;
typedef UWORD uint13;
typedef SWORD sint13;
typedef UWORD uint14;
typedef SWORD sint14;
typedef UWORD uint15;
typedef SWORD sint15;
typedef UWORD uint16;
typedef SWORD sint16;
typedef ULONG uint17;
typedef SLONG sint17;
typedef ULONG uint18;
typedef SLONG sint18;
typedef ULONG uint19;
typedef SLONG sint19;
typedef ULONG uint20;
typedef SLONG sint20;
typedef ULONG uint21;
typedef SLONG sint21;
typedef ULONG uint22;
typedef SLONG sint22;
typedef ULONG uint23;
typedef SLONG sint23;
typedef ULONG uint24;
typedef SLONG sint24;
typedef ULONG uint25;
typedef SLONG sint25;
typedef ULONG uint26;
typedef SLONG sint26;
typedef ULONG uint27;
typedef SLONG sint27;
typedef ULONG uint28;
typedef SLONG sint28;
typedef ULONG uint29;
typedef SLONG sint29;
typedef ULONG uint30;
typedef SLONG sint30;
typedef ULONG uint31;
typedef SLONG sint31;
typedef ULONG uint32;
typedef SLONG sint32;
typedef ULONGLONG uint33;
typedef SLONGLONG sint33;
typedef ULONGLONG uint48;
typedef SLONGLONG sint48;
typedef ULONGLONG uint64;
typedef SLONGLONG sint64;
typedef sint8 sintB;
typedef uint8 uintB;
typedef sint16 sintW;
typedef uint16 uintW;
typedef sint32 sintL;
typedef uint32 uintL;
typedef sint32 sintP;
typedef uint32 uintP;
typedef uint32 uintWL;
typedef uint32 uintBWL;
extern void dotimes_called_with_count_of_wrong_size(void);
#define uintC  uintWL
typedef uint32 uintD;
typedef enum { persev_full=0, persev_partial=1, persev_immediate=2, persev_bonus=3 } perseverance_t;
typedef int Handle;
typedef int SOCKET;
extern ssize_t fd_read(int fd, void* buf, size_t nbyte, perseverance_t persev);
extern ssize_t fd_write(int fd, const void* buf, size_t nbyte, perseverance_t persev);
_Noreturn extern void  OS_error(void);
#define ANSIC_error  OS_error
_Noreturn extern void  OS_error(void);
#define FOREIGN  void*
#define HEAPCODES
typedef void * gcv_object_t;
typedef uintP oint;
typedef sintP soint;
#define as_oint(expr)  (oint)(expr)
#define as_object(o)  (gcv_object_t)(o)
typedef uint32 tint;
typedef uint32 aint;
typedef uint32 uintV;
typedef sint32 sintV;
typedef gcv_object_t object;
#define objectplus(obj,offset) ((object)pointerplus(obj,offset))
#define wbit  bit
#define wbit_test  bit_test
#define minus_wbit  minus_bit
#define number_immediatep(obj)  (((oint)(obj) & (1UL<<(1))) == 0)
#define immediate_object_p(obj)  (((oint)(obj) & 0xE0000003) == 0xC0000000)
#define gcinvariant_object_p(obj)  (((oint)(obj) & (1UL<<(1))) == 0)
#define gcinvariant_oint_p(obj_o)  (((obj_o) & (1UL<<(1))) == 0)
#define gcinvariant_bias_p(bias)  (((bias) & 2) == 0)
#define type_data_object(type,address)  ((gcv_object_t)(((oint)(tint)(type) << 0) + ((oint)(aint)(address) << 5)))
#define type_zero_oint(obj)  ((oint)(tint)(obj) << 0)
#define varobjects_misaligned  4
#define VAROBJECTS_ALIGNMENT_DUMMY_DECL  char alignment_dummy[4];
#define varobject_alignment  8
#define pointable_address_unchecked(obj_o)  (((aint)((obj_o) >> 0) & (aint)(0xFFFFFFFFUL >> 0)) << 0)
extern _Bool inside_gc;
typedef uintP hfint;
#define VAROBJECT_HEADER  gcv_object_t GCself; uintL tfl;
#define GCself  GCself
#define varobject_type(ptr)  ((sintB)((ptr)->tfl & 0xFF))
#define RECORD_HEADER  gcv_object_t GCself; uintL tfl;
typedef struct { RECORD_HEADER gcv_object_t recdata[unspecified]; } record_;
typedef record_ * Record;
#define record_type(ptr)  ((sintB)((ptr)->tfl & 0xFF))
#define Record_type(obj)  ((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF))
#define record_flags(ptr)  (((ptr)->tfl >> 8) & 0xFF)
#define record_flags_set(ptr,bits)  ((ptr)->tfl |= ((uintL)(bits) << 8))
#define Record_flags(obj)  (((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF)
#define VRECORD_HEADER  gcv_object_t GCself; uintL tfl;
typedef struct { VRECORD_HEADER } vrecord_;
typedef vrecord_ * Vrecord;
#define vrecord_length(ptr)  ((ptr)->tfl >> 8)
#define SRECORD_HEADER  gcv_object_t GCself; uintL tfl;
typedef struct { SRECORD_HEADER gcv_object_t recdata[unspecified]; } srecord_;
typedef srecord_ * Srecord;
#define srecord_length(ptr)  ((ptr)->tfl >> 16)
#define XRECORD_HEADER  gcv_object_t GCself; uintL tfl;
#define Rectype_Closure -3
#define Rectype_Structure -2
#define Rectype_Instance -1
#define Rectype_Hashtable 0
#define Rectype_vector 1
#define Rectype_bvector 2
#define Rectype_b2vector 3
#define Rectype_b4vector 4
#define Rectype_b8vector 5
#define Rectype_b16vector 6
#define Rectype_b32vector 7
#define Rectype_Svector 9
#define Rectype_Sbvector 10
#define Rectype_Sb2vector 11
#define Rectype_Sb4vector 12
#define Rectype_Sb8vector 13
#define Rectype_Sb16vector 14
#define Rectype_Sb32vector 15
#define Rectype_S8string 17
#define Rectype_Imm_S8string 18
#define Rectype_S16string 19
#define Rectype_Imm_S16string 20
#define Rectype_S32string 21
#define Rectype_Imm_S32string 22
#define Rectype_reallocstring 23
#define Rectype_string 24
#define Rectype_mdarray 25
#define Rectype_Bignum 26
#define Rectype_Lfloat 27
#define Rectype_Dfloat 28
#define Rectype_Ffloat 29
#define Rectype_Ratio 30
#define Rectype_Complex 31
#define Rectype_Symbol 32
#define Rectype_Package 33
#define Rectype_Readtable 34
#define Rectype_Pathname 35
#define Rectype_Logpathname 36
#define Rectype_Random_State 37
#define Rectype_Stream 38
#define Rectype_Byte 39
#define Rectype_Subr 40
#define Rectype_Fsubr 41
#define Rectype_Loadtimeeval 42
#define Rectype_Symbolmacro 43
#define Rectype_GlobalSymbolmacro 44
#define Rectype_Macro 45
#define Rectype_FunctionMacro 46
#define Rectype_BigReadLabel 47
#define Rectype_Encoding 48
#define Rectype_Fpointer 49
#define Rectype_Faddress 50
#define Rectype_Fvariable 51
#define Rectype_Ffunction 52
#define Rectype_Weakpointer 53
#define Rectype_MutableWeakList 54
#define Rectype_MutableWeakAlist 55
#define Rectype_Weakmapping 56
#define Rectype_Finalizer 57
#define Rectype_Socket_Server 58
#define Rectype_WeakList 60
#define Rectype_WeakAnd 61
#define Rectype_WeakOr 62
#define Rectype_WeakAndMapping 63
#define Rectype_WeakOrMapping 64
#define Rectype_WeakAlist_Key 65
#define Rectype_WeakAlist_Value 66
#define Rectype_WeakAlist_Either 67
#define Rectype_WeakAlist_Both 68
#define Rectype_WeakHashedAlist_Key 69
#define Rectype_WeakHashedAlist_Value 70
#define Rectype_WeakHashedAlist_Either 71
#define Rectype_WeakHashedAlist_Both 72
typedef struct { gcv_object_t cdr; gcv_object_t car; } cons_;
typedef cons_ * Cons;
typedef struct { VAROBJECT_HEADER gcv_object_t symvalue; gcv_object_t symfunction; gcv_object_t hashcode; gcv_object_t proplist; gcv_object_t pname; gcv_object_t homepackage; } symbol_;
typedef symbol_ * Symbol;
typedef uint24 cint;
#define int_char(int_from_int_char)  ((gcv_object_t)(((oint)(tint)(((4 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((aint)(cint)(int_from_int_char)) << 5)))
#define char_int(char_from_char_int)  ((cint)(((oint)(char_from_char_int)>>5)&((2UL<<((24)-1))-1)))
typedef cint chart;
#define as_cint(ch)  (ch)
#define as_chart(c)  (c)
#define code_char(ch)  ((gcv_object_t)(((oint)(tint)(((4 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((aint)(cint)((ch))) << 5)))
#define char_code(obj)  (((cint)(((oint)(obj)>>5)&((2UL<<((24)-1))-1))))
typedef uint8 cint8;
typedef uint16 cint16;
typedef uint32 cint32;
#define fixnum(x)  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(x) << 5)))
#define Fixnum_0  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))
#define Fixnum_1  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(1) << 5)))
#define Fixnum_minus1  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5)))
#define posfixnum_to_V(obj)  ((uintV)(((oint)(obj)&((oint)(2UL<<((24+5)-1))-1))>>5))
#define fixnum_to_V(obj)  (sintV)( ((((sintV)(oint)(obj) >> ((0 + 2)+0)) << (32-1)) >> (32-1-24)) |((uintV)(((oint)(obj) & ((oint)(2UL<<((24+5)-1))-1)) >> 5)) )
#define fixnum_inc(obj,delta)  ((object)((UBYTE*)(obj)+((soint)(delta) << 5)))
#define posfixnum(x)  ((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5))))+((soint)(x) << 5)))
#define negfixnum(x)  ((object)((UBYTE*)(((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))+((soint)(1) << 5))))+((soint)(x) << 5)))
#define sfixnum(x)  ((x)>=0 ? ((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5))))+((soint)(x) << 5))) : ((object)((UBYTE*)(((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))+((soint)(1) << 5))))+((soint)(x) << 5))))
typedef struct { VAROBJECT_HEADER uintD data[unspecified]; } bignum_;
typedef bignum_ * Bignum;
#define bignum_length(ptr)  ((ptr)->tfl >> 16)
#define Bignum_length(obj)  ((((Bignum)((oint)(obj)-2)))->tfl >> 16)
typedef uint32 ffloat;
typedef union { ffloat eksplicit; } ffloatjanus;
typedef struct {uint32 semhi,mlo;} dfloat;
typedef union { dfloat eksplicit __attribute__ ((packed, aligned (4))); double machine_double __attribute__ ((packed, aligned (4))); } dfloatjanus;
#define sarray_length(ptr)  ((ptr)->tfl >> 8)
#define Sarray_length(obj)  ((((Sarray)((oint)(obj)-2)))->tfl >> 8)
typedef struct { VRECORD_HEADER uint8  data[unspecified]; } sbvector_;
typedef sbvector_ * Sbvector;
#define sbvector_length(ptr)  ((ptr)->tfl >> 8)
#define Sbvector_length(obj)  ((((Sbvector)((oint)(obj)-2)))->tfl >> 8)
#define SSTRING_HEADER  gcv_object_t GCself; uintL tfl;
typedef struct { SSTRING_HEADER } sstring_;
typedef sstring_ * Sstring;
#define STRUCT_SSTRING(cint_type)  struct { gcv_object_t GCself; uintL tfl; cint_type data[0]; }
typedef STRUCT_SSTRING(cint8) s8string_;
typedef s8string_ * S8string;
typedef STRUCT_SSTRING(cint16) s16string_;
typedef s16string_ * S16string;
typedef STRUCT_SSTRING(cint32) s32string_;
typedef s32string_ * S32string;
typedef struct { SSTRING_HEADER chart data[unspecified]; } snstring_;
typedef snstring_* Snstring;
#define sstring_length(ptr)  ((ptr)->tfl >> 10)
#define Sstring_length(obj)  ((((Sstring)((oint)(obj)-2)))->tfl >> 10)
#define sstring_eltype(ptr)  ((((sintB)((ptr)->tfl & 0xFF)) - Rectype_S8string) >> 1)
typedef struct { VRECORD_HEADER gcv_object_t data[unspecified]; } svector_;
typedef svector_ * Svector;
#define Atype_Bit  0
#define Atype_8Bit  3
#define Atype_32Bit  5
#define Atype_T  6
typedef struct { XRECORD_HEADER gcv_object_t enc_eol; gcv_object_t enc_towcs_error; gcv_object_t enc_tombs_error; gcv_object_t enc_charset; gcv_object_t enc_mblen; gcv_object_t enc_mbstowcs; gcv_object_t enc_wcslen; gcv_object_t enc_wcstombs; gcv_object_t enc_range; gcv_object_t enc_table; uintL min_bytes_per_char; uintL max_bytes_per_char; } * Encoding;
#define Encoding_mblen(encoding)  ((uintL (*) (object, const uintB*, const uintB*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_mblen)-0))))
#define Encoding_wcslen(encoding)  ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcslen)-0))))
#define Encoding_wcstombs(encoding)  ((void (*) (object, object, const chart**, const chart*, uintB**, uintB*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcstombs)-0))))
#define cslen(encoding,src,srclen)  ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcslen)-0))))(encoding,src,(src)+(srclen))
#define cstombs_help_(encoding,src,srclen,dest,destlen,asserter)  do { const chart* _srcptr = (src); const chart* _srcendptr = _srcptr+(srclen); uintB* _destptr = (dest); uintB* _destendptr = _destptr+(destlen); ((void (*) (object, object, const chart**, const chart*, uintB**, uintB*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcstombs)-0))))(encoding,(gcv_object_t)((oint)(0)+0),&_srcptr,_srcendptr,&_destptr,_destendptr); asserter((_srcptr == _srcendptr) && (_destptr == _destendptr)); } while(0)
#define cstombs(encoding,src,srclen,dest,destlen)  cstombs_help_(encoding,src,srclen,dest,destlen,ASSERT)
typedef struct { XRECORD_HEADER void* fp_pointer;} * Fpointer;
#define fp_validp(ptr)  (((((ptr)->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)
#define mark_fp_invalid(ptr)  ((ptr)->tfl |= ((uintL)((1UL<<(7))) << 8))
#define mark_fp_valid(ptr)  ((ptr)->tfl &= ~((uintL)((1UL<<(7))) << 8))
#define strm_buffered_bufflen  4096
typedef Srecord Structure;
#define structure_types  recdata[0]
typedef struct { SRECORD_HEADER gcv_object_t inst_class_version; gcv_object_t other[unspecified]; } * Instance;
#define closure_flags(ptr)  (((ptr)->tfl >> 8) & 0xFF)
#define closure_instancep(ptr)  ((((ptr)->tfl >> 8) & 0xFF) & (1UL<<(7)))
#define Closure_instancep(obj)  ((((((Closure)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7)))
typedef void Values;
typedef Values (*lisp_function_t)();
typedef struct { XRECORD_HEADER gcv_object_t name; gcv_object_t keywords; lisp_function_t function; uintW argtype; uintW req_count; uintW opt_count; uintB rest_flag; uintB key_flag; uintW key_count; uintB seclass; uintB fastcmp; } subr_t;
typedef subr_t * Subr;
typedef enum { subr_norest, subr_rest } subr_rest_t;
typedef enum { subr_nokey, subr_key, subr_key_allow } subr_key_t;
enum { seclass_foldable, seclass_no_se, seclass_read, seclass_rd_sig, seclass_write, seclass_default};
#define make_machine(ptr)  (gcv_object_t)((oint)(ptr)+0)
#define make_system(data)  ((gcv_object_t)(((oint)(tint)(((7 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((1UL<<(24-1)) | (1UL<<(0)) | (((2UL<<((24)-1))-1) & (data))) << 5)))
#define unbound  ((gcv_object_t)(((oint)(tint)(((7 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((1UL<<(24-1)) | (1UL<<(0)) | (((2UL<<((24)-1))-1) & (0xFFFFFFUL))) << 5)))
#define nullobj  (gcv_object_t)((oint)(0)+0)
#define gcv_nullobj  (gcv_object_t)((oint)(0)+0)
#define cgci_pointable(obj)  (oint)(obj)
#define pgci_pointable(obj)  (oint)(obj)
#define ngci_pointable(obj)  (oint)(obj)
#define TheCons(obj)  ((Cons)((oint)(obj)-2))
#define TheSymbol(obj)  ((Symbol)((oint)(obj)-2))
#define TheBignum(obj)  ((Bignum)((oint)(obj)-2))
#define TheSbvector(obj)  ((Sbvector)((oint)(obj)-2))
#define TheS8string(obj)  ((S8string)((oint)(obj)-2))
#define TheS16string(obj)  ((S16string)((oint)(obj)-2))
#define TheS32string(obj)  ((S32string)((oint)(obj)-2))
#define TheSstring(obj)  ((Sstring)((oint)(obj)-2))
#define TheSvector(obj)  ((Svector)((oint)(obj)-2))
#define TheRecord(obj)  ((Record)((oint)(obj)-2))
#define TheSrecord(obj)  ((Srecord)((oint)(obj)-2))
#define TheEncoding(obj)  ((Encoding)((oint)(obj)-2))
#define TheFpointer(obj)  ((Fpointer)((oint)(obj)-2))
#define TheStructure(obj)  ((Structure)((oint)(obj)-2))
#define TheClosure(obj)  ((Closure)((oint)(obj)-2))
#define TheInstance(obj)  ((Instance)((oint)(obj)-2))
#define TheSubr(obj)  ((Subr)((oint)(obj)-2))
#define TheMachine(obj)  ((void*)((oint)(obj)-0))
#define TheMachineCode(obj)  ((void*)((oint)(obj)-0))
#define ThePseudofun(obj)  ((Pseudofun)((void*)((oint)(obj)-0)))
#define Car(obj)  (((Cons)((oint)(obj)-2))->car)
#define Cdr(obj)  (((Cons)((oint)(obj)-2))->cdr)
#define Symbol_function(obj)  (((Symbol)((oint)(obj)-2))->symfunction)
#define Symbol_plist(obj)  (((Symbol)((oint)(obj)-2))->proplist)
#define Symbol_name(obj)  (((Symbol)((oint)(obj)-2))->pname)
#define Symbol_package(obj)  (((Symbol)((oint)(obj)-2))->homepackage)
#define eq(obj1,obj2)  ((obj1) == (obj2))
#define Symbol_value(obj)  (((Symbol)((oint)(obj)-2))->symvalue)
#define nullp(obj)  (((obj) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))))))
#define boundp(obj)  (!((obj) == (((gcv_object_t)(((oint)(tint)(((7 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((1UL<<(24-1)) | (1UL<<(0)) | (((2UL<<((24)-1))-1) & (0xFFFFFFUL))) << 5))))))
#define missingp(obj)  (!(!((obj) == (((gcv_object_t)(((oint)(tint)(((7 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((1UL<<(24-1)) | (1UL<<(0)) | (((2UL<<((24)-1))-1) & (0xFFFFFFUL))) << 5)))))) || (((obj) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2)))))))
#define consp(obj)  (((oint)(obj) & 7) == (2+0))
#define mconsp(obj)  (((oint)(obj) & 7) == (2+0))
#define atomp(obj)  (!(((oint)(obj) & 7) == (2+0)))
#define matomp(obj)  (!(((oint)(obj) & 7) == (2+0)))
#define listp(obj)  ((((obj) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2)))))) || (((oint)(obj) & 7) == (2+0)))
#define varobjectp(obj)  (((oint)(obj) & 7) == (2+4))
#define symbolp(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Symbol))
#define vectorp(obj)  ((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_vector) <= Rectype_string - Rectype_vector))
#define simple_vector_p(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Svector))
#define general_vector_p(obj)  ((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Svector ^ Rectype_vector)) == (Rectype_Svector & Rectype_vector)) )
#define simple_string_p(obj)  ((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_S8string) <= Rectype_reallocstring - Rectype_S8string))
#define stringp(obj)  ((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_S8string) <= Rectype_string - Rectype_S8string))
#define simple_bit_vector_p(atype,obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Sbvector+(atype)))
#define bit_vector_p(atype,obj)  ((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (atype)) )
#define arrayp(obj)  ((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_vector) <= Rectype_mdarray - Rectype_vector))
#define instancep(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Instance || (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Closure && ((((((Closure)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))))))
#define orecordp(obj)  (((oint)(obj) & 7) == (2+4))
#define structurep(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Structure))
#define fpointerp(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Fpointer))
#define charp(obj)  (((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((4 << 2) + 0xC0000000))
#define integerp(obj)  ((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)))
#define fixnump(obj)  (((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000))
#define posfixnump(obj)  (((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000))
#define bignump(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum))
#define posbignump(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0))
#define single_float_p(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Ffloat))
#define double_float_p(obj)  ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Dfloat))
#define positivep(obj)  ((((oint)(obj) & (1UL<<(1))) == 0) ? ((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0 : ((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)
#define R_minusp(obj)  (!((((oint)(obj) & (1UL<<(1))) == 0) ? ((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0 : ((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0))
#define FN_positivep(obj)  (((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0)
#define BN_positivep(obj)  (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)
#define uint8_p(obj)  (((oint)(obj) & ~((oint)0xFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))
#define sint8_p(obj)  ((((oint)(obj) ^ ((((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))^(oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) & ~((oint)0x7F << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))
#define uint16_p(obj)  (((oint)(obj) & ~((oint)0xFFFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))
#define sint16_p(obj)  ((((oint)(obj) ^ ((((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))^(oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) & ~((oint)0x7FFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))
#define uint32_p(obj)  ((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((33) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((33) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(32%32))))))
#define sint32_p(obj)  ((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((32) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((32) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(31%32))))))
#define uint64_p(obj)  ((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((65) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((65) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(64%32))))))
#define sint64_p(obj)  ((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((64) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((64) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(63%32))))))
#define uint_p  uint32_p
#define sint_p  sint32_p
#define ulong_p  uint32_p
#define slong_p  sint32_p
#define UNIX_LISP_TIME_DIFF  2208988800UL
extern object convert_time_to_universal(const time_t* time);
extern void convert_time_from_universal(object universal, time_t* time);
extern gcv_object_t* STACK;
struct backtrace_t {
  struct backtrace_t* bt_next;
  gcv_object_t bt_function;
  gcv_object_t *bt_stack;
  int bt_num_arg;
};
typedef struct backtrace_t * p_backtrace_t;
#define begin_call()  ; ; ;
#define end_call()  ; ; ;
#define begin_callback()  ; ; ; ;
#define end_callback()  ; ; ;;
#define begin_system_call()  ; ; ;
#define end_system_call()  ; ; ;
#define begin_blocking_system_call()  ; ; ;;
#define end_blocking_system_call()  ; ; ;;
#define begin_blocking_call()  
#define end_blocking_call()  
#define GC_SAFE_CALL(statement)  do { ; statement; ; } while(0)
#define GC_SAFE_SYSTEM_CALL(statement)  do { ; ; ;;; statement; ; ; ;;; } while(0)
_Noreturn extern void  error_notreached(const char * file, uintL line);
#define GNU_GETTEXT
#ifndef COMPILE_STANDALONE
#include <libintl.h>
#endif
extern const char * clgettext(const char * msgid);
#define GETTEXT  clgettext
extern object CLSTEXT(const char* asciz);
extern object object_out(object obj);
#define OBJECT_OUT(obj,label)  (printf("[%s:%d] %s: %s:\n",__FILE__,__LINE__,STRING(obj),label),obj=object_out(obj))
extern object allocate_cons(void);
extern object allocate_vector(uintL len);
extern object allocate_bit_vector(uintB atype, uintL len);
extern object allocate_s32string(uintL len);
#define allocate_string(len)  allocate_s32string(len)
extern object allocate_fpointer(void* foreign);
#define allocate_handle(handle)  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((uintL)(handle)) << 5)))
#define asciz_length(a)  ((uintL)strlen(a))
extern void* clisp_malloc(size_t size);
extern void* clisp_realloc(void *ptr, size_t size);
extern void begin_want_sigcld(void);
extern void end_want_sigcld(void);
extern _Bool writing_to_subprocess;
extern struct subr_tab_ {
  VAROBJECTS_ALIGNMENT_DUMMY_DECL
  subr_t D_funtabref;
  subr_t D_subr_info;
  subr_t D_special_variable_p;
  subr_t D_add_implicit_block;
  subr_t D_function_block_name;
  subr_t D_copy_simple_vector;
  subr_t D_vector;
  subr_t D_aref;
  subr_t D_store;
  subr_t D_svref;
  subr_t D_svstore;
  subr_t D_psvstore;
  subr_t D_row_major_aref;
  subr_t D_row_major_store;
  subr_t D_array_element_type;
  subr_t D_array_rank;
  subr_t D_array_dimension;
  subr_t D_array_dimensions;
  subr_t D_array_total_size;
  subr_t D_array_in_bounds_p;
  subr_t D_array_row_major_index;
  subr_t D_adjustable_array_p;
  subr_t D_array_displacement;
  subr_t D_bit;
  subr_t D_sbit;
  subr_t D_bit_and;
  subr_t D_bit_ior;
  subr_t D_bit_xor;
  subr_t D_bit_eqv;
  subr_t D_bit_nand;
  subr_t D_bit_nor;
  subr_t D_bit_andc1;
  subr_t D_bit_andc2;
  subr_t D_bit_orc1;
  subr_t D_bit_orc2;
  subr_t D_bit_not;
  subr_t D_array_has_fill_pointer_p;
  subr_t D_fill_pointer;
  subr_t D_set_fill_pointer;
  subr_t D_vector_push;
  subr_t D_vector_pop;
  subr_t D_vector_push_extend;
  subr_t D_make_array;
  subr_t D_adjust_array;
  subr_t D_vector_init;
  subr_t D_vector_upd;
  subr_t D_vector_endtest;
  subr_t D_vector_fe_init;
  subr_t D_vector_fe_upd;
  subr_t D_vector_fe_endtest;
  subr_t D_vector_length;
  subr_t D_vector_init_start;
  subr_t D_vector_fe_init_end;
  subr_t D_make_bit_vector;
  subr_t D_string_info;
  subr_t D_standard_char_p;
  subr_t D_graphic_char_p;
  subr_t D_char_width;
  subr_t D_string_char_p;
  subr_t D_alpha_char_p;
  subr_t D_upper_case_p;
  subr_t D_lower_case_p;
  subr_t D_both_case_p;
  subr_t D_digit_char_p;
  subr_t D_alphanumericp;
  subr_t D_char_eq;
  subr_t D_char_noteq;
  subr_t D_char_less;
  subr_t D_char_greater;
  subr_t D_char_ltequal;
  subr_t D_char_gtequal;
  subr_t D_char_equal;
  subr_t D_char_not_equal;
  subr_t D_char_lessp;
  subr_t D_char_greaterp;
  subr_t D_char_not_greaterp;
  subr_t D_char_not_lessp;
  subr_t D_char_code;
  subr_t D_code_char;
  subr_t D_character;
  subr_t D_char_upcase;
  subr_t D_char_downcase;
  subr_t D_digit_char;
  subr_t D_char_int;
  subr_t D_int_char;
  subr_t D_char_name;
  subr_t D_char_invertcase;
  subr_t D_char;
  subr_t D_schar;
  subr_t D_store_char;
  subr_t D_store_schar;
  subr_t D_string_eq;
  subr_t D_cs_string_eq;
  subr_t D_string_noteq;
  subr_t D_cs_string_noteq;
  subr_t D_string_less;
  subr_t D_cs_string_less;
  subr_t D_string_greater;
  subr_t D_cs_string_greater;
  subr_t D_string_ltequal;
  subr_t D_cs_string_ltequal;
  subr_t D_string_gtequal;
  subr_t D_cs_string_gtequal;
  subr_t D_string_equal;
  subr_t D_string_not_equal;
  subr_t D_string_lessp;
  subr_t D_string_greaterp;
  subr_t D_string_not_greaterp;
  subr_t D_string_not_lessp;
  subr_t D_search_string_eq;
  subr_t D_search_string_equal;
  subr_t D_make_string;
  subr_t D_string_both_trim;
  subr_t D_string_width;
  subr_t D_nstring_upcase;
  subr_t D_string_upcase;
  subr_t D_nstring_downcase;
  subr_t D_string_downcase;
  subr_t D_nstring_capitalize;
  subr_t D_string_capitalize;
  subr_t D_nstring_invertcase;
  subr_t D_string_invertcase;
  subr_t D_string;
  subr_t D_cs_string;
  subr_t D_name_char;
  subr_t D_substring;
  subr_t D_string_concat;
  subr_t D_exit;
  subr_t D_symbol_value;
  subr_t D_symbol_function;
  subr_t D_fdefinition;
  subr_t D_boundp;
  subr_t D_fboundp;
  subr_t D_special_operator_p;
  subr_t D_set;
  subr_t D_makunbound;
  subr_t D_fmakunbound;
  subr_t D_apply;
  subr_t D_funcall;
  subr_t D_mapcar;
  subr_t D_maplist;
  subr_t D_mapc;
  subr_t D_mapl;
  subr_t D_mapcan;
  subr_t D_mapcon;
  subr_t D_mapcap;
  subr_t D_maplap;
  subr_t D_values;
  subr_t D_values_list;
  subr_t D_driver;
  subr_t D_unwind_to_driver;
  subr_t D_macro_function;
  subr_t D_macroexpand;
  subr_t D_macroexpand_1;
  subr_t D_proclaim;
  subr_t D_eval;
  subr_t D_evalhook;
  subr_t D_applyhook;
  subr_t D_constantp;
  subr_t D_global_symbol_macro_p;
  subr_t D_function_side_effect;
  subr_t D_function_name_p;
  subr_t D_check_function_name;
  subr_t D_check_symbol;
  subr_t D_parse_body;
  subr_t D_keyword_test;
  subr_t D_xor;
  subr_t D_read_form;
  subr_t D_read_eval_print;
  subr_t D_initial_break_driver;
  subr_t D_load;
  subr_t D_frame_up;
  subr_t D_frame_down;
  subr_t D_the_frame;
  subr_t D_same_env_as;
  subr_t D_eval_at;
  subr_t D_eval_frame_p;
  subr_t D_driver_frame_p;
  subr_t D_trap_eval_frame;
  subr_t D_redo_eval_frame;
  subr_t D_return_from_eval_frame;
  subr_t D_describe_frame;
  subr_t D_show_stack;
  subr_t D_crash;
  subr_t D_proom;
  subr_t D_gc;
  subr_t D_make_encoding;
  subr_t D_encodingp;
  subr_t D_charset_typep;
  subr_t D_encoding_line_terminator;
  subr_t D_encoding_charset;
  subr_t D_charset_range;
  subr_t D_default_file_encoding;
  subr_t D_set_default_file_encoding;
  subr_t D_pathname_encoding;
  subr_t D_set_pathname_encoding;
  subr_t D_terminal_encoding;
  subr_t D_set_terminal_encoding;
  subr_t D_foreign_encoding;
  subr_t D_set_foreign_encoding;
  subr_t D_misc_encoding;
  subr_t D_set_misc_encoding;
  subr_t D_convert_string_from_bytes;
  subr_t D_convert_string_to_bytes;
  subr_t D_strerror;
  subr_t D_error;
  subr_t D_defclcs;
  subr_t D_cerror_of_type;
  subr_t D_error_of_type;
  subr_t D_invoke_debugger;
  subr_t D_clcs_signal;
  subr_t D_make_hash_table;
  subr_t D_gethash;
  subr_t D_puthash;
  subr_t D_remhash;
  subr_t D_maphash;
  subr_t D_clrhash;
  subr_t D_hash_table_count;
  subr_t D_hash_table_rehash_size;
  subr_t D_hash_table_rehash_threshold;
  subr_t D_hash_table_size;
  subr_t D_hash_table_test;
  subr_t D_fasthash_stable_p;
  subr_t D_stablehash_stable_p;
  subr_t D_hash_table_iterator;
  subr_t D_hash_table_iterate;
  subr_t D_hash_table_weak_p;
  subr_t D_set_hash_table_weak_p;
  subr_t D_hash_table_warn_if_needs_rehash_after_gc;
  subr_t D_set_hash_table_warn_if_needs_rehash_after_gc;
  subr_t D_class_gethash;
  subr_t D_class_tuple_gethash;
  subr_t D_sxhash;
  subr_t D_defio;
  subr_t D_copy_readtable;
  subr_t D_set_syntax_from_char;
  subr_t D_set_macro_character;
  subr_t D_get_macro_character;
  subr_t D_make_dispatch_macro_character;
  subr_t D_set_dispatch_macro_character;
  subr_t D_get_dispatch_macro_character;
  subr_t D_readtable_case;
  subr_t D_set_readtable_case;
  subr_t D_lpar_reader;
  subr_t D_rpar_reader;
  subr_t D_string_reader;
  subr_t D_quote_reader;
  subr_t D_line_comment_reader;
  subr_t D_function_reader;
  subr_t D_comment_reader;
  subr_t D_char_reader;
  subr_t D_binary_reader;
  subr_t D_octal_reader;
  subr_t D_hexadecimal_reader;
  subr_t D_radix_reader;
  subr_t D_complex_reader;
  subr_t D_uninterned_reader;
  subr_t D_bit_vector_reader;
  subr_t D_vector_reader;
  subr_t D_array_reader;
  subr_t D_read_eval_reader;
  subr_t D_load_eval_reader;
  subr_t D_label_definition_reader;
  subr_t D_label_reference_reader;
  subr_t D_not_readable_reader;
  subr_t D_syntax_error_reader;
  subr_t D_featurep;
  subr_t D_feature_reader;
  subr_t D_not_feature_reader;
  subr_t D_structure_reader;
  subr_t D_closure_reader;
  subr_t D_clisp_pathname_reader;
  subr_t D_ansi_pathname_reader;
  subr_t D_unix_executable_reader;
  subr_t D_readL;
  subr_t D_read_preserving_whitespace;
  subr_t D_read_delimited_list;
  subr_t D_read_line;
  subr_t D_read_char;
  subr_t D_unread_char;
  subr_t D_peek_char;
  subr_t D_listenL;
  subr_t D_read_char_will_hang_p;
  subr_t D_read_char_no_hang;
  subr_t D_clear_input;
  subr_t D_read_from_string;
  subr_t D_parse_integer;
  subr_t D_print_structure;
  subr_t D_writeL;
  subr_t D_prin1;
  subr_t D_print;
  subr_t D_pprint;
  subr_t D_pprint_indent;
  subr_t D_pprint_newline;
  subr_t D_format_tabulate;
  subr_t D_ppprint_logical_block;
  subr_t D_pcirclep;
  subr_t D_princ;
  subr_t D_write_to_string;
  subr_t D_prin1_to_string;
  subr_t D_princ_to_string;
  subr_t D_write_char;
  subr_t D_write_string;
  subr_t D_write_line;
  subr_t D_terpri;
  subr_t D_fresh_line;
  subr_t D_elastic_newline;
  subr_t D_finish_output;
  subr_t D_force_output;
  subr_t D_clear_output;
  subr_t D_write_unreadable;
  subr_t D_line_position;
  subr_t D_whitespacep;
  subr_t D_write_spaces;
  subr_t D_car;
  subr_t D_cdr;
  subr_t D_caar;
  subr_t D_cadr;
  subr_t D_cdar;
  subr_t D_cddr;
  subr_t D_caaar;
  subr_t D_caadr;
  subr_t D_cadar;
  subr_t D_caddr;
  subr_t D_cdaar;
  subr_t D_cdadr;
  subr_t D_cddar;
  subr_t D_cdddr;
  subr_t D_caaaar;
  subr_t D_caaadr;
  subr_t D_caadar;
  subr_t D_caaddr;
  subr_t D_cadaar;
  subr_t D_cadadr;
  subr_t D_caddar;
  subr_t D_cadddr;
  subr_t D_cdaaar;
  subr_t D_cdaadr;
  subr_t D_cdadar;
  subr_t D_cdaddr;
  subr_t D_cddaar;
  subr_t D_cddadr;
  subr_t D_cdddar;
  subr_t D_cddddr;
  subr_t D_cons;
  subr_t D_tree_equal;
  subr_t D_endp;
  subr_t D_list_length;
  subr_t D_list_length_dotted;
  subr_t D_list_length_proper;
  subr_t D_list_length_in_bounds_p;
  subr_t D_proper_list_length_in_bounds_p;
  subr_t D_nth;
  subr_t D_first;
  subr_t D_second;
  subr_t D_third;
  subr_t D_fourth;
  subr_t D_fifth;
  subr_t D_sixth;
  subr_t D_seventh;
  subr_t D_eighth;
  subr_t D_ninth;
  subr_t D_tenth;
  subr_t D_rest;
  subr_t D_nthcdr;
  subr_t D_conses_p;
  subr_t D_last;
  subr_t D_list;
  subr_t D_liststar;
  subr_t D_make_list;
  subr_t D_append;
  subr_t D_copy_list;
  subr_t D_copy_alist;
  subr_t D_copy_tree;
  subr_t D_revappend;
  subr_t D_nconc;
  subr_t D_nreconc;
  subr_t D_list_nreverse;
  subr_t D_butlast;
  subr_t D_nbutlast;
  subr_t D_ldiff;
  subr_t D_rplaca;
  subr_t D_prplaca;
  subr_t D_rplacd;
  subr_t D_prplacd;
  subr_t D_subst;
  subr_t D_subst_if;
  subr_t D_subst_if_not;
  subr_t D_nsubst;
  subr_t D_nsubst_if;
  subr_t D_nsubst_if_not;
  subr_t D_sublis;
  subr_t D_nsublis;
  subr_t D_memq;
  subr_t D_member;
  subr_t D_member_if;
  subr_t D_member_if_not;
  subr_t D_tailp;
  subr_t D_adjoin;
  subr_t D_acons;
  subr_t D_pairlis;
  subr_t D_assoc;
  subr_t D_assoc_if;
  subr_t D_assoc_if_not;
  subr_t D_rassoc;
  subr_t D_rassoc_if;
  subr_t D_rassoc_if_not;
  subr_t D_list_upd;
  subr_t D_list_endtest;
  subr_t D_list_fe_init;
  subr_t D_list_access;
  subr_t D_list_access_set;
  subr_t D_list_elt;
  subr_t D_list_set_elt;
  subr_t D_list_init_start;
  subr_t D_list_fe_init_end;
  subr_t D_lisp_implementation_type;
  subr_t D_lisp_implementation_version;
  subr_t D_version;
  subr_t D_machinetype;
  subr_t D_machine_version;
  subr_t D_operating_system_type;
  subr_t D_operating_system_version;
  subr_t D_get_env;
  subr_t D_set_env;
  subr_t D_software_type;
  subr_t D_software_version;
  subr_t D_identity;
  subr_t D_address_of;
  subr_t D_code_address_of;
  subr_t D_process_id;
  subr_t D_ansi;
  subr_t D_set_ansi;
  subr_t D_module_info;
  subr_t D_argv;
  subr_t D_current_language;
  subr_t D_set_current_language;
  subr_t D_text;
  subr_t D_machine_instance;
  subr_t D_get_internal_real_time;
  subr_t D_get_internal_run_time;
  subr_t D_get_universal_time;
  subr_t D_default_time_zone;
  subr_t D_psleep;
  subr_t D_pptime;
  subr_t D_delta4;
  subr_t D_make_symbol;
  subr_t D_find_package;
  subr_t D_pfind_package;
  subr_t D_package_name;
  subr_t D_package_nicknames;
  subr_t D_rename_package;
  subr_t D_package_use_list;
  subr_t D_package_used_by_list;
  subr_t D_package_shadowing_symbols;
  subr_t D_package_lock;
  subr_t D_package_shortest_name;
  subr_t D_package_case_sensitive_p;
  subr_t D_package_case_inverted_p;
  subr_t D_package_documentation;
  subr_t D_set_package_documentation;
  subr_t D_set_package_case_inverted_p;
  subr_t D_set_package_case_sensitive_p;
  subr_t D_set_package_lock;
  subr_t D_symbol_value_lock;
  subr_t D_check_package_lock;
  subr_t D_list_all_packages;
  subr_t D_intern;
  subr_t D_cs_intern;
  subr_t D_find_symbol;
  subr_t D_cs_find_symbol;
  subr_t D_unintern;
  subr_t D_export;
  subr_t D_unexport;
  subr_t D_re_export;
  subr_t D_import;
  subr_t D_shadowing_import;
  subr_t D_shadow;
  subr_t D_cs_shadow;
  subr_t D_use_package;
  subr_t D_unuse_package;
  subr_t D_make_package;
  subr_t D_cs_make_package;
  subr_t D_pin_package;
  subr_t D_delete_package;
  subr_t D_find_all_symbols;
  subr_t D_cs_find_all_symbols;
  subr_t D_map_symbols;
  subr_t D_map_external_symbols;
  subr_t D_map_all_symbols;
  subr_t D_package_iterator;
  subr_t D_package_iterate;
  subr_t D_parse_namestring;
  subr_t D_pathname;
  subr_t D_pathnamehost;
  subr_t D_pathnamedevice;
  subr_t D_pathnamedirectory;
  subr_t D_pathnamename;
  subr_t D_pathnametype;
  subr_t D_pathnameversion;
  subr_t D_logical_pathname;
  subr_t D_translate_logical_pathname;
  subr_t D_file_namestring;
  subr_t D_directory_namestring;
  subr_t D_host_namestring;
  subr_t D_merge_pathnames;
  subr_t D_enough_namestring;
  subr_t D_make_pathname;
  subr_t D_make_logical_pathname;
  subr_t D_user_homedir_pathname;
  subr_t D_wild_pathname_p;
  subr_t D_pathname_match_p;
  subr_t D_translate_pathname;
  subr_t D_absolute_pathname;
  subr_t D_namestring;
  subr_t D_truename;
  subr_t D_probe_file;
  subr_t D_probe_pathname;
  subr_t D_probe_directory;
  subr_t D_delete_file;
  subr_t D_rename_file;
  subr_t D_open;
  subr_t D_directory;
  subr_t D_cd;
  subr_t D_make_directory;
  subr_t D_delete_directory;
  subr_t D_rename_directory;
  subr_t D_ensure_directories_exist;
  subr_t D_file_write_date;
  subr_t D_file_author;
  subr_t D_execute;
  subr_t D_shell;
  subr_t D_launch;
  subr_t D_savemem;
  subr_t D_dynload_modules;
  subr_t D_program_name;
  subr_t D_lib_directory;
  subr_t D_set_lib_directory;
  subr_t D_eq;
  subr_t D_eql;
  subr_t D_equal;
  subr_t D_equalp;
  subr_t D_consp;
  subr_t D_atom;
  subr_t D_symbolp;
  subr_t D_stringp;
  subr_t D_numberp;
  subr_t D_compiled_function_p;
  subr_t D_pcompiled_function_p;
  subr_t D_null;
  subr_t D_not;
  subr_t D_closurep;
  subr_t D_listp;
  subr_t D_proper_list_p;
  subr_t D_bytep;
  subr_t D_integerp;
  subr_t D_fixnump;
  subr_t D_rationalp;
  subr_t D_floatp;
  subr_t D_short_float_p;
  subr_t D_single_float_p;
  subr_t D_double_float_p;
  subr_t D_long_float_p;
  subr_t D_realp;
  subr_t D_complexp;
  subr_t D_streamp;
  subr_t D_built_in_stream_p;
  subr_t D_random_state_p;
  subr_t D_readtablep;
  subr_t D_hash_table_p;
  subr_t D_pathnamep;
  subr_t D_logical_pathname_p;
  subr_t D_characterp;
  subr_t D_functionp;
  subr_t D_packagep;
  subr_t D_arrayp;
  subr_t D_simple_array_p;
  subr_t D_bit_vector_p;
  subr_t D_vectorp;
  subr_t D_simple_vector_p;
  subr_t D_simple_string_p;
  subr_t D_simple_bit_vector_p;
  subr_t D_type_of;
  subr_t D_defclos;
  subr_t D_potential_class_p;
  subr_t D_defined_class_p;
  subr_t D_class_of;
  subr_t D_find_class;
  subr_t D_typep_class;
  subr_t D_expand_deftype;
  subr_t D_coerce;
  subr_t D_note_new_structure_class;
  subr_t D_note_new_standard_class;
  subr_t D_heap_statistics;
  subr_t D_gc_statistics;
  subr_t D_list_statistics;
  subr_t D_heap_statistics_statistics;
  subr_t D_gc_statistics_statistics;
  subr_t D_record_ref;
  subr_t D_record_store;
  subr_t D_record_length;
  subr_t D_pstructure_ref;
  subr_t D_structure_ref;
  subr_t D_structure_store;
  subr_t D_make_structure;
  subr_t D_copy_structure;
  subr_t D_structure_type_p;
  subr_t D_closure_name;
  subr_t D_set_closure_name;
  subr_t D_closure_codevec;
  subr_t D_closure_consts;
  subr_t D_closure_const;
  subr_t D_set_closure_const;
  subr_t D_make_closure;
  subr_t D_make_constant_initfunction;
  subr_t D_constant_initfunction_p;
  subr_t D_closure_set_seclass;
  subr_t D_closure_documentation;
  subr_t D_closure_set_documentation;
  subr_t D_closure_lambda_list;
  subr_t D_set_funcallable_instance_function;
  subr_t D_copy_generic_function;
  subr_t D_generic_function_effective_method_function;
  subr_t D_make_load_time_eval;
  subr_t D_make_symbol_macro;
  subr_t D_symbol_macro_p;
  subr_t D_symbol_macro_expand;
  subr_t D_make_global_symbol_macro;
  subr_t D_global_symbol_macro_definition;
  subr_t D_make_macro;
  subr_t D_macrop;
  subr_t D_macro_expander;
  subr_t D_macro_lambda_list;
  subr_t D_make_function_macro;
  subr_t D_function_macro_p;
  subr_t D_function_macro_function;
  subr_t D_function_macro_expander;
  subr_t D_finalize;
  subr_t D_structure_object_p;
  subr_t D_std_instance_p;
  subr_t D_funcallable_instance_p;
  subr_t D_allocate_metaobject_instance;
  subr_t D_allocate_std_instance;
  subr_t D_allocate_funcallable_instance;
  subr_t D_pallocate_instance;
  subr_t D_pslot_value_using_class;
  subr_t D_pset_slot_value_using_class;
  subr_t D_pslot_boundp_using_class;
  subr_t D_pslot_makunbound_using_class;
  subr_t D_slot_value;
  subr_t D_set_slot_value;
  subr_t D_slot_boundp;
  subr_t D_slot_makunbound;
  subr_t D_slot_exists_p;
  subr_t D_standard_instance_access;
  subr_t D_set_standard_instance_access;
  subr_t D_punbound;
  subr_t D_pshared_initialize;
  subr_t D_preinitialize_instance;
  subr_t D_pinitialize_instance;
  subr_t D_pmake_instance;
  subr_t D_pchange_class;
  subr_t D_make_weak_pointer;
  subr_t D_weak_pointer_p;
  subr_t D_weak_pointer_value;
  subr_t D_set_weak_pointer_value;
  subr_t D_make_weak_list;
  subr_t D_weak_list_p;
  subr_t D_weak_list_list;
  subr_t D_set_weak_list_list;
  subr_t D_make_weak_and_relation;
  subr_t D_weak_and_relation_p;
  subr_t D_weak_and_relation_list;
  subr_t D_make_weak_or_relation;
  subr_t D_weak_or_relation_p;
  subr_t D_weak_or_relation_list;
  subr_t D_make_weak_mapping;
  subr_t D_weak_mapping_p;
  subr_t D_weak_mapping_pair;
  subr_t D_weak_mapping_value;
  subr_t D_set_weak_mapping_value;
  subr_t D_make_weak_and_mapping;
  subr_t D_weak_and_mapping_p;
  subr_t D_weak_and_mapping_pair;
  subr_t D_weak_and_mapping_value;
  subr_t D_set_weak_and_mapping_value;
  subr_t D_make_weak_or_mapping;
  subr_t D_weak_or_mapping_p;
  subr_t D_weak_or_mapping_pair;
  subr_t D_weak_or_mapping_value;
  subr_t D_set_weak_or_mapping_value;
  subr_t D_make_weak_alist;
  subr_t D_weak_alist_p;
  subr_t D_weak_alist_type;
  subr_t D_weak_alist_contents;
  subr_t D_set_weak_alist_contents;
  subr_t D_weak_alist_assoc;
  subr_t D_weak_alist_rassoc;
  subr_t D_weak_alist_value;
  subr_t D_set_weak_alist_value;
  subr_t D_sequencep;
  subr_t D_defseq;
  subr_t D_elt;
  subr_t D_setelt;
  subr_t D_subseq;
  subr_t D_copy_seq;
  subr_t D_length;
  subr_t D_reverse;
  subr_t D_nreverse;
  subr_t D_make_sequence;
  subr_t D_coerced_subseq;
  subr_t D_concatenate;
  subr_t D_map;
  subr_t D_map_into;
  subr_t D_some;
  subr_t D_every;
  subr_t D_notany;
  subr_t D_notevery;
  subr_t D_reduce;
  subr_t D_fill;
  subr_t D_replace;
  subr_t D_remove;
  subr_t D_remove_if;
  subr_t D_remove_if_not;
  subr_t D_delete;
  subr_t D_delete_if;
  subr_t D_delete_if_not;
  subr_t D_remove_duplicates;
  subr_t D_delete_duplicates;
  subr_t D_substitute;
  subr_t D_substitute_if;
  subr_t D_substitute_if_not;
  subr_t D_nsubstitute;
  subr_t D_nsubstitute_if;
  subr_t D_nsubstitute_if_not;
  subr_t D_find;
  subr_t D_find_if;
  subr_t D_find_if_not;
  subr_t D_position;
  subr_t D_position_if;
  subr_t D_position_if_not;
  subr_t D_count;
  subr_t D_count_if;
  subr_t D_count_if_not;
  subr_t D_mismatch;
  subr_t D_search;
  subr_t D_sort;
  subr_t D_stable_sort;
  subr_t D_merge;
  subr_t D_read_char_sequence;
  subr_t D_write_char_sequence;
  subr_t D_read_byte_sequence;
  subr_t D_write_byte_sequence;
  subr_t D_symbol_stream;
  subr_t D_make_synonym_stream;
  subr_t D_synonym_stream_p;
  subr_t D_synonym_stream_symbol;
  subr_t D_make_broadcast_stream;
  subr_t D_broadcast_stream_p;
  subr_t D_broadcast_stream_streams;
  subr_t D_make_concatenated_stream;
  subr_t D_concatenated_stream_p;
  subr_t D_concatenated_stream_streams;
  subr_t D_make_two_way_stream;
  subr_t D_two_way_stream_p;
  subr_t D_two_way_stream_input_stream;
  subr_t D_two_way_stream_output_stream;
  subr_t D_make_echo_stream;
  subr_t D_echo_stream_p;
  subr_t D_echo_stream_input_stream;
  subr_t D_echo_stream_output_stream;
  subr_t D_make_string_input_stream;
  subr_t D_string_input_stream_index;
  subr_t D_make_string_output_stream;
  subr_t D_get_output_stream_string;
  subr_t D_make_string_push_stream;
  subr_t D_string_stream_p;
  subr_t D_string_stream_string;
  subr_t D_make_buffered_input_stream;
  subr_t D_buffered_input_stream_index;
  subr_t D_make_buffered_output_stream;
  subr_t D_generic_stream_controller;
  subr_t D_make_generic_stream;
  subr_t D_generic_stream_p;
  subr_t D_make_keyboard_stream;
  subr_t D_terminal_raw;
  subr_t D_make_window;
  subr_t D_window_size;
  subr_t D_window_cursor_position;
  subr_t D_set_window_cursor_position;
  subr_t D_clear_window;
  subr_t D_clear_window_to_eot;
  subr_t D_clear_window_to_eol;
  subr_t D_delete_window_line;
  subr_t D_insert_window_line;
  subr_t D_highlight_on;
  subr_t D_highlight_off;
  subr_t D_window_cursor_on;
  subr_t D_window_cursor_off;
  subr_t D_file_stream_p;
  subr_t D_make_pipe_input_stream;
  subr_t D_make_pipe_output_stream;
  subr_t D_make_pipe_io_stream;
  subr_t D_make_x11socket_stream;
  subr_t D_read_n_bytes;
  subr_t D_write_n_bytes;
  subr_t D_socket_server_close;
  subr_t D_socket_server;
  subr_t D_socket_server_port;
  subr_t D_socket_server_host;
  subr_t D_socket_accept;
  subr_t D_socket_wait;
  subr_t D_socket_status;
  subr_t D_socket_connect;
  subr_t D_socket_stream_port;
  subr_t D_socket_stream_host;
  subr_t D_socket_stream_peer;
  subr_t D_socket_stream_local;
  subr_t D_socket_options;
  subr_t D_socket_stream_shutdown;
  subr_t D_make_stream;
  subr_t D_stream_handles;
  subr_t D_built_in_stream_open_p;
  subr_t D_input_stream_p;
  subr_t D_output_stream_p;
  subr_t D_stream_element_type_eq;
  subr_t D_built_in_stream_element_type;
  subr_t D_built_in_stream_set_element_type;
  subr_t D_stream_external_format;
  subr_t D_set_stream_external_format;
  subr_t D_interactive_stream_p;
  subr_t D_built_in_stream_close;
  subr_t D_read_byte;
  subr_t D_read_byte_lookahead;
  subr_t D_read_byte_will_hang_p;
  subr_t D_read_byte_no_hang;
  subr_t D_read_integer;
  subr_t D_read_float;
  subr_t D_write_byte;
  subr_t D_write_integer;
  subr_t D_write_float;
  subr_t D_file_position;
  subr_t D_file_length;
  subr_t D_file_string_length;
  subr_t D_line_number;
  subr_t D_stream_fasl_p;
  subr_t D_defgray;
  subr_t D_putd;
  subr_t D_find_subr;
  subr_t D_proclaim_constant;
  subr_t D_proclaim_symbol_macro;
  subr_t D_get;
  subr_t D_getf;
  subr_t D_putf;
  subr_t D_remf;
  subr_t D_get_properties;
  subr_t D_putplist;
  subr_t D_put;
  subr_t D_remprop;
  subr_t D_symbol_package;
  subr_t D_symbol_plist;
  subr_t D_symbol_name;
  subr_t D_cs_symbol_name;
  subr_t D_keywordp;
  subr_t D_gensym;
  subr_t D_gentemp;
  subr_t D_decimal_string;
  subr_t D_zerop;
  subr_t D_plusp;
  subr_t D_minusp;
  subr_t D_oddp;
  subr_t D_evenp;
  subr_t D_numequal;
  subr_t D_numunequal;
  subr_t D_smaller;
  subr_t D_greater;
  subr_t D_ltequal;
  subr_t D_gtequal;
  subr_t D_max;
  subr_t D_min;
  subr_t D_plus;
  subr_t D_minus;
  subr_t D_star;
  subr_t D_slash;
  subr_t D_plus_one;
  subr_t D_minus_one;
  subr_t D_conjugate;
  subr_t D_gcd;
  subr_t D_xgcd;
  subr_t D_lcm;
  subr_t D_exp;
  subr_t D_expt;
  subr_t D_log;
  subr_t D_sqrt;
  subr_t D_isqrt;
  subr_t D_abs;
  subr_t D_phase;
  subr_t D_signum;
  subr_t D_sin;
  subr_t D_cos;
  subr_t D_tan;
  subr_t D_cis;
  subr_t D_asin;
  subr_t D_acos;
  subr_t D_atan;
  subr_t D_sinh;
  subr_t D_cosh;
  subr_t D_tanh;
  subr_t D_asinh;
  subr_t D_acosh;
  subr_t D_atanh;
  subr_t D_float;
  subr_t D_rational;
  subr_t D_rationalize;
  subr_t D_numerator;
  subr_t D_denominator;
  subr_t D_floor;
  subr_t D_ceiling;
  subr_t D_truncate;
  subr_t D_round;
  subr_t D_mod;
  subr_t D_rem;
  subr_t D_ffloor;
  subr_t D_fceiling;
  subr_t D_ftruncate;
  subr_t D_fround;
  subr_t D_decode_float;
  subr_t D_scale_float;
  subr_t D_float_scale_exponent;
  subr_t D_float_radix;
  subr_t D_float_sign;
  subr_t D_float_digits;
  subr_t D_float_precision;
  subr_t D_integer_decode_float;
  subr_t D_complex;
  subr_t D_realpart;
  subr_t D_imagpart;
  subr_t D_logior;
  subr_t D_logxor;
  subr_t D_logand;
  subr_t D_logeqv;
  subr_t D_lognand;
  subr_t D_lognor;
  subr_t D_logandc1;
  subr_t D_logandc2;
  subr_t D_logorc1;
  subr_t D_logorc2;
  subr_t D_boole;
  subr_t D_lognot;
  subr_t D_logtest;
  subr_t D_logbitp;
  subr_t D_ash;
  subr_t D_logcount;
  subr_t D_integer_length;
  subr_t D_byte;
  subr_t D_bytesize;
  subr_t D_byteposition;
  subr_t D_ldb;
  subr_t D_ldb_test;
  subr_t D_mask_field;
  subr_t D_dpb;
  subr_t D_deposit_field;
  subr_t D_random;
  subr_t D_random_posfixnum;
  subr_t D_make_random_state;
  subr_t D_factorial;
  subr_t D_exquo;
  subr_t D_mod_expt;
  subr_t D_long_float_digits;
  subr_t D_set_long_float_digits;
  subr_t D_log2;
  subr_t D_log10;
  subr_t D_sizeof;
  subr_t D_bitsizeof;
  subr_t D_validp;
  subr_t D_set_validp;
  subr_t D_foreign_pointer;
  subr_t D_set_foreign_pointer;
  subr_t D_unsigned_foreign_address;
  subr_t D_foreign_address_unsigned;
  subr_t D_foreign_address;
  subr_t D_foreign_pointer_info;
  subr_t D_open_foreign_library;
  subr_t D_close_foreign_library;
  subr_t D_parse_foreign_inttype;
  subr_t D_foreign_function;
  subr_t D_find_foreign_variable;
  subr_t D_foreign_variable;
  subr_t D_foreign_value;
  subr_t D_set_foreign_value;
  subr_t D_foreign_type;
  subr_t D_element;
  subr_t D_deref;
  subr_t D_slot;
  subr_t D_cast;
  subr_t D_offset;
  subr_t D_read_memory_as;
  subr_t D_write_memory_as;
  subr_t D_exec_on_stack;
  subr_t D_call_with_foreign_string;
  subr_t D_foreign_allocate;
  subr_t D_foreign_free;
  subr_t D_find_foreign_function;
  subr_t D_foreign_call_out;
} subr_tab_data;
#define subr_tab  subr_tab_data
#define subr_tab_ptr_as_object(subr_addr)  ((object)((UBYTE*)(subr_addr)+(2)))
#define L_help_(name)  ((object)((UBYTE*)(&subr_tab_data.name)+(2)))
#define L(name) L_help_(D_##name)
typedef const void * Pseudofun;
extern struct symbol_tab_ {
  VAROBJECTS_ALIGNMENT_DUMMY_DECL
  symbol_ S_nil;
  symbol_ S_t;
  symbol_ S_eval_when;
  symbol_ S_quote;
  symbol_ S_function;
  symbol_ S_setq;
  symbol_ S_psetq;
  symbol_ S_progn;
  symbol_ S_prog1;
  symbol_ S_prog2;
  symbol_ S_let;
  symbol_ S_letstar;
  symbol_ S_locally;
  symbol_ S_compiler_let;
  symbol_ S_progv;
  symbol_ S_flet;
  symbol_ S_labels;
  symbol_ S_macrolet;
  symbol_ S_function_macro_let;
  symbol_ S_symbol_macrolet;
  symbol_ S_if;
  symbol_ S_when;
  symbol_ S_unless;
  symbol_ S_cond;
  symbol_ S_case;
  symbol_ S_block;
  symbol_ S_return_from;
  symbol_ S_tagbody;
  symbol_ S_go;
  symbol_ S_multiple_value_list;
  symbol_ S_multiple_value_call;
  symbol_ S_multiple_value_prog1;
  symbol_ S_multiple_value_bind;
  symbol_ S_multiple_value_setq;
  symbol_ S_catch;
  symbol_ S_unwind_protect;
  symbol_ S_throw;
  symbol_ S_declare;
  symbol_ S_the;
  symbol_ S_load_time_value;
  symbol_ S_and;
  symbol_ S_or;
  symbol_ S_funtabref;
  symbol_ S_subr_info;
  symbol_ S_special_variable_p;
  symbol_ S_add_implicit_block;
  symbol_ S_function_block_name;
  symbol_ S_copy_simple_vector;
  symbol_ S_vector;
  symbol_ S_aref;
  symbol_ S_store;
  symbol_ S_svref;
  symbol_ S_svstore;
  symbol_ S_psvstore;
  symbol_ S_row_major_aref;
  symbol_ S_row_major_store;
  symbol_ S_array_element_type;
  symbol_ S_array_rank;
  symbol_ S_array_dimension;
  symbol_ S_array_dimensions;
  symbol_ S_array_total_size;
  symbol_ S_array_in_bounds_p;
  symbol_ S_array_row_major_index;
  symbol_ S_adjustable_array_p;
  symbol_ S_array_displacement;
  symbol_ S_bit;
  symbol_ S_sbit;
  symbol_ S_bit_and;
  symbol_ S_bit_ior;
  symbol_ S_bit_xor;
  symbol_ S_bit_eqv;
  symbol_ S_bit_nand;
  symbol_ S_bit_nor;
  symbol_ S_bit_andc1;
  symbol_ S_bit_andc2;
  symbol_ S_bit_orc1;
  symbol_ S_bit_orc2;
  symbol_ S_bit_not;
  symbol_ S_array_has_fill_pointer_p;
  symbol_ S_fill_pointer;
  symbol_ S_set_fill_pointer;
  symbol_ S_vector_push;
  symbol_ S_vector_pop;
  symbol_ S_vector_push_extend;
  symbol_ S_make_array;
  symbol_ S_adjust_array;
  symbol_ S_vector_init;
  symbol_ S_vector_upd;
  symbol_ S_vector_endtest;
  symbol_ S_vector_fe_init;
  symbol_ S_vector_fe_upd;
  symbol_ S_vector_fe_endtest;
  symbol_ S_vector_length;
  symbol_ S_vector_init_start;
  symbol_ S_vector_fe_init_end;
  symbol_ S_make_bit_vector;
  symbol_ S_string_info;
  symbol_ S_standard_char_p;
  symbol_ S_graphic_char_p;
  symbol_ S_char_width;
  symbol_ S_string_char_p;
  symbol_ S_alpha_char_p;
  symbol_ S_upper_case_p;
  symbol_ S_lower_case_p;
  symbol_ S_both_case_p;
  symbol_ S_digit_char_p;
  symbol_ S_alphanumericp;
  symbol_ S_char_eq;
  symbol_ S_char_noteq;
  symbol_ S_char_less;
  symbol_ S_char_greater;
  symbol_ S_char_ltequal;
  symbol_ S_char_gtequal;
  symbol_ S_char_equal;
  symbol_ S_char_not_equal;
  symbol_ S_char_lessp;
  symbol_ S_char_greaterp;
  symbol_ S_char_not_greaterp;
  symbol_ S_char_not_lessp;
  symbol_ S_char_code;
  symbol_ S_code_char;
  symbol_ S_character;
  symbol_ S_char_upcase;
  symbol_ S_char_downcase;
  symbol_ S_digit_char;
  symbol_ S_char_int;
  symbol_ S_int_char;
  symbol_ S_char_name;
  symbol_ S_char_invertcase;
  symbol_ S_string_invertcase;
  symbol_ S_nstring_invertcase;
  symbol_ S_char;
  symbol_ S_schar;
  symbol_ S_store_char;
  symbol_ S_store_schar;
  symbol_ S_string_eq;
  symbol_ S_cs_string_eq;
  symbol_ S_string_noteq;
  symbol_ S_cs_string_noteq;
  symbol_ S_string_less;
  symbol_ S_cs_string_less;
  symbol_ S_string_greater;
  symbol_ S_cs_string_greater;
  symbol_ S_string_ltequal;
  symbol_ S_cs_string_ltequal;
  symbol_ S_string_gtequal;
  symbol_ S_cs_string_gtequal;
  symbol_ S_string_equal;
  symbol_ S_string_not_equal;
  symbol_ S_string_lessp;
  symbol_ S_string_greaterp;
  symbol_ S_string_not_greaterp;
  symbol_ S_string_not_lessp;
  symbol_ S_search_string_eq;
  symbol_ S_search_string_equal;
  symbol_ S_make_string;
  symbol_ S_string_both_trim;
  symbol_ S_string_width;
  symbol_ S_nstring_upcase;
  symbol_ S_string_upcase;
  symbol_ S_nstring_downcase;
  symbol_ S_string_downcase;
  symbol_ S_nstring_capitalize;
  symbol_ S_string_capitalize;
  symbol_ S_string;
  symbol_ S_cs_string;
  symbol_ S_name_char;
  symbol_ S_substring;
  symbol_ S_string_concat;
  symbol_ S_exit;
  symbol_ S_symbol_value;
  symbol_ S_symbol_function;
  symbol_ S_fdefinition;
  symbol_ S_boundp;
  symbol_ S_fboundp;
  symbol_ S_special_operator_p;
  symbol_ S_set;
  symbol_ S_makunbound;
  symbol_ S_fmakunbound;
  symbol_ S_apply;
  symbol_ S_funcall;
  symbol_ S_mapcar;
  symbol_ S_maplist;
  symbol_ S_mapc;
  symbol_ S_mapl;
  symbol_ S_mapcan;
  symbol_ S_mapcon;
  symbol_ S_mapcap;
  symbol_ S_maplap;
  symbol_ S_values;
  symbol_ S_values_list;
  symbol_ S_driver;
  symbol_ S_unwind_to_driver;
  symbol_ S_macro_function;
  symbol_ S_macroexpand;
  symbol_ S_macroexpand_1;
  symbol_ S_proclaim;
  symbol_ S_eval;
  symbol_ S_evalhook;
  symbol_ S_applyhook;
  symbol_ S_constantp;
  symbol_ S_global_symbol_macro_p;
  symbol_ S_function_side_effect;
  symbol_ S_function_name_p;
  symbol_ S_check_function_name;
  symbol_ S_check_symbol;
  symbol_ S_parse_body;
  symbol_ S_keyword_test;
  symbol_ S_xor;
  symbol_ S_read_form;
  symbol_ S_read_eval_print;
  symbol_ S_initial_break_driver;
  symbol_ S_load;
  symbol_ S_frame_up;
  symbol_ S_frame_down;
  symbol_ S_the_frame;
  symbol_ S_same_env_as;
  symbol_ S_eval_at;
  symbol_ S_eval_frame_p;
  symbol_ S_driver_frame_p;
  symbol_ S_trap_eval_frame;
  symbol_ S_redo_eval_frame;
  symbol_ S_return_from_eval_frame;
  symbol_ S_describe_frame;
  symbol_ S_show_stack;
  symbol_ S_crash;
  symbol_ S_proom;
  symbol_ S_gc;
  symbol_ S_make_encoding;
  symbol_ S_encodingp;
  symbol_ S_charset_typep;
  symbol_ S_encoding_line_terminator;
  symbol_ S_encoding_charset;
  symbol_ S_charset_range;
  symbol_ S_default_file_encoding;
  symbol_ S_set_default_file_encoding;
  symbol_ S_pathname_encoding;
  symbol_ S_set_pathname_encoding;
  symbol_ S_terminal_encoding;
  symbol_ S_set_terminal_encoding;
  symbol_ S_foreign_encoding;
  symbol_ S_set_foreign_encoding;
  symbol_ S_misc_encoding;
  symbol_ S_set_misc_encoding;
  symbol_ S_convert_string_from_bytes;
  symbol_ S_convert_string_to_bytes;
  symbol_ S_error;
  symbol_ S_defclcs;
  symbol_ S_cerror_of_type;
  symbol_ S_error_of_type;
  symbol_ S_invoke_debugger;
  symbol_ S_clcs_signal;
  symbol_ S_make_hash_table;
  symbol_ S_gethash;
  symbol_ S_puthash;
  symbol_ S_remhash;
  symbol_ S_maphash;
  symbol_ S_clrhash;
  symbol_ S_hash_table_count;
  symbol_ S_hash_table_rehash_size;
  symbol_ S_hash_table_rehash_threshold;
  symbol_ S_hash_table_size;
  symbol_ S_hash_table_test;
  symbol_ S_fasthash_stable_p;
  symbol_ S_stablehash_stable_p;
  symbol_ S_hash_table_iterator;
  symbol_ S_hash_table_iterate;
  symbol_ S_hash_table_weak_p;
  symbol_ S_set_hash_table_weak_p;
  symbol_ S_hash_table_warn_if_needs_rehash_after_gc;
  symbol_ S_set_hash_table_warn_if_needs_rehash_after_gc;
  symbol_ S_class_gethash;
  symbol_ S_class_tuple_gethash;
  symbol_ S_sxhash;
  symbol_ S_defio;
  symbol_ S_copy_readtable;
  symbol_ S_set_syntax_from_char;
  symbol_ S_set_macro_character;
  symbol_ S_get_macro_character;
  symbol_ S_make_dispatch_macro_character;
  symbol_ S_set_dispatch_macro_character;
  symbol_ S_get_dispatch_macro_character;
  symbol_ S_readtable_case;
  symbol_ S_set_readtable_case;
  symbol_ S_lpar_reader;
  symbol_ S_rpar_reader;
  symbol_ S_quote_reader;
  symbol_ S_function_reader;
  symbol_ S_string_reader;
  symbol_ S_line_comment_reader;
  symbol_ S_comment_reader;
  symbol_ S_char_reader;
  symbol_ S_binary_reader;
  symbol_ S_octal_reader;
  symbol_ S_hexadecimal_reader;
  symbol_ S_radix_reader;
  symbol_ S_complex_reader;
  symbol_ S_uninterned_reader;
  symbol_ S_bit_vector_reader;
  symbol_ S_vector_reader;
  symbol_ S_array_reader;
  symbol_ S_read_eval_reader;
  symbol_ S_load_eval_reader;
  symbol_ S_label_definition_reader;
  symbol_ S_label_reference_reader;
  symbol_ S_not_readable_reader;
  symbol_ S_syntax_error_reader;
  symbol_ S_featurep;
  symbol_ S_feature_reader;
  symbol_ S_not_feature_reader;
  symbol_ S_structure_reader;
  symbol_ S_closure_reader;
  symbol_ S_clisp_pathname_reader;
  symbol_ S_ansi_pathname_reader;
  symbol_ S_unix_executable_reader;
  symbol_ S_readL;
  symbol_ S_read_preserving_whitespace;
  symbol_ S_read_delimited_list;
  symbol_ S_read_line;
  symbol_ S_read_char;
  symbol_ S_unread_char;
  symbol_ S_peek_char;
  symbol_ S_listenL;
  symbol_ S_read_char_will_hang_p;
  symbol_ S_read_char_no_hang;
  symbol_ S_clear_input;
  symbol_ S_read_from_string;
  symbol_ S_parse_integer;
  symbol_ S_print_structure;
  symbol_ S_writeL;
  symbol_ S_prin1;
  symbol_ S_print;
  symbol_ S_pprint;
  symbol_ S_pprint_dispatch;
  symbol_ S_pprint_indent;
  symbol_ S_pprint_newline;
  symbol_ S_ppprint_logical_block;
  symbol_ S_pcirclep;
  symbol_ S_princ;
  symbol_ S_write_to_string;
  symbol_ S_prin1_to_string;
  symbol_ S_princ_to_string;
  symbol_ S_write_char;
  symbol_ S_write_string;
  symbol_ S_write_line;
  symbol_ S_terpri;
  symbol_ S_fresh_line;
  symbol_ S_elastic_newline;
  symbol_ S_finish_output;
  symbol_ S_force_output;
  symbol_ S_clear_output;
  symbol_ S_write_unreadable;
  symbol_ S_line_position;
  symbol_ S_whitespacep;
  symbol_ S_write_spaces;
  symbol_ S_car;
  symbol_ S_cdr;
  symbol_ S_caar;
  symbol_ S_cadr;
  symbol_ S_cdar;
  symbol_ S_cddr;
  symbol_ S_caaar;
  symbol_ S_caadr;
  symbol_ S_cadar;
  symbol_ S_caddr;
  symbol_ S_cdaar;
  symbol_ S_cdadr;
  symbol_ S_cddar;
  symbol_ S_cdddr;
  symbol_ S_caaaar;
  symbol_ S_caaadr;
  symbol_ S_caadar;
  symbol_ S_caaddr;
  symbol_ S_cadaar;
  symbol_ S_cadadr;
  symbol_ S_caddar;
  symbol_ S_cadddr;
  symbol_ S_cdaaar;
  symbol_ S_cdaadr;
  symbol_ S_cdadar;
  symbol_ S_cdaddr;
  symbol_ S_cddaar;
  symbol_ S_cddadr;
  symbol_ S_cdddar;
  symbol_ S_cddddr;
  symbol_ S_cons;
  symbol_ S_tree_equal;
  symbol_ S_endp;
  symbol_ S_list_length;
  symbol_ S_list_length_dotted;
  symbol_ S_list_length_proper;
  symbol_ S_list_length_in_bounds_p;
  symbol_ S_proper_list_length_in_bounds_p;
  symbol_ S_nth;
  symbol_ S_first;
  symbol_ S_second;
  symbol_ S_third;
  symbol_ S_fourth;
  symbol_ S_fifth;
  symbol_ S_sixth;
  symbol_ S_seventh;
  symbol_ S_eighth;
  symbol_ S_ninth;
  symbol_ S_tenth;
  symbol_ S_rest;
  symbol_ S_nthcdr;
  symbol_ S_conses_p;
  symbol_ S_last;
  symbol_ S_list;
  symbol_ S_liststar;
  symbol_ S_make_list;
  symbol_ S_append;
  symbol_ S_copy_list;
  symbol_ S_copy_alist;
  symbol_ S_copy_tree;
  symbol_ S_revappend;
  symbol_ S_nconc;
  symbol_ S_nreconc;
  symbol_ S_list_nreverse;
  symbol_ S_butlast;
  symbol_ S_nbutlast;
  symbol_ S_ldiff;
  symbol_ S_rplaca;
  symbol_ S_prplaca;
  symbol_ S_rplacd;
  symbol_ S_prplacd;
  symbol_ S_subst;
  symbol_ S_subst_if;
  symbol_ S_subst_if_not;
  symbol_ S_nsubst;
  symbol_ S_nsubst_if;
  symbol_ S_nsubst_if_not;
  symbol_ S_sublis;
  symbol_ S_nsublis;
  symbol_ S_memq;
  symbol_ S_member;
  symbol_ S_member_if;
  symbol_ S_member_if_not;
  symbol_ S_tailp;
  symbol_ S_adjoin;
  symbol_ S_acons;
  symbol_ S_pairlis;
  symbol_ S_assoc;
  symbol_ S_assoc_if;
  symbol_ S_assoc_if_not;
  symbol_ S_rassoc;
  symbol_ S_rassoc_if;
  symbol_ S_rassoc_if_not;
  symbol_ S_list_upd;
  symbol_ S_list_endtest;
  symbol_ S_list_fe_init;
  symbol_ S_list_access;
  symbol_ S_list_access_set;
  symbol_ S_list_elt;
  symbol_ S_list_set_elt;
  symbol_ S_list_init_start;
  symbol_ S_list_fe_init_end;
  symbol_ S_lisp_implementation_type;
  symbol_ S_lisp_implementation_version;
  symbol_ S_version;
  symbol_ S_machinetype;
  symbol_ S_machine_version;
  symbol_ S_operating_system_type;
  symbol_ S_operating_system_version;
  symbol_ S_get_env;
  symbol_ S_set_env;
  symbol_ S_software_type;
  symbol_ S_software_version;
  symbol_ S_identity;
  symbol_ S_address_of;
  symbol_ S_code_address_of;
  symbol_ S_process_id;
  symbol_ S_ansi;
  symbol_ S_set_ansi;
  symbol_ S_module_info;
  symbol_ S_Kffi;
  symbol_ S_argv;
  symbol_ S_current_language;
  symbol_ S_set_current_language;
  symbol_ S_text;
  symbol_ S_machine_instance;
  symbol_ S_get_internal_real_time;
  symbol_ S_get_internal_run_time;
  symbol_ S_get_universal_time;
  symbol_ S_default_time_zone;
  symbol_ S_psleep;
  symbol_ S_pptime;
  symbol_ S_delta4;
  symbol_ S_make_symbol;
  symbol_ S_find_package;
  symbol_ S_pfind_package;
  symbol_ S_package_name;
  symbol_ S_package_nicknames;
  symbol_ S_rename_package;
  symbol_ S_package_use_list;
  symbol_ S_package_used_by_list;
  symbol_ S_package_shadowing_symbols;
  symbol_ S_package_lock;
  symbol_ S_package_shortest_name;
  symbol_ S_package_case_sensitive_p;
  symbol_ S_package_case_inverted_p;
  symbol_ S_package_documentation;
  symbol_ S_set_package_documentation;
  symbol_ S_set_package_lock;
  symbol_ S_set_package_case_inverted_p;
  symbol_ S_set_package_case_sensitive_p;
  symbol_ S_symbol_value_lock;
  symbol_ S_check_package_lock;
  symbol_ S_list_all_packages;
  symbol_ S_intern;
  symbol_ S_cs_intern;
  symbol_ S_find_symbol;
  symbol_ S_cs_find_symbol;
  symbol_ S_unintern;
  symbol_ S_export;
  symbol_ S_unexport;
  symbol_ S_re_export;
  symbol_ S_import;
  symbol_ S_shadowing_import;
  symbol_ S_shadow;
  symbol_ S_cs_shadow;
  symbol_ S_use_package;
  symbol_ S_unuse_package;
  symbol_ S_make_package;
  symbol_ S_cs_make_package;
  symbol_ S_pin_package;
  symbol_ S_delete_package;
  symbol_ S_find_all_symbols;
  symbol_ S_cs_find_all_symbols;
  symbol_ S_map_symbols;
  symbol_ S_map_external_symbols;
  symbol_ S_map_all_symbols;
  symbol_ S_package_iterator;
  symbol_ S_package_iterate;
  symbol_ S_parse_namestring;
  symbol_ S_pathname;
  symbol_ S_pathnamehost;
  symbol_ S_pathnamedevice;
  symbol_ S_pathnamedirectory;
  symbol_ S_pathnamename;
  symbol_ S_pathnametype;
  symbol_ S_pathnameversion;
  symbol_ S_logical_pathname;
  symbol_ S_translate_logical_pathname;
  symbol_ S_file_namestring;
  symbol_ S_directory_namestring;
  symbol_ S_host_namestring;
  symbol_ S_merge_pathnames;
  symbol_ S_enough_namestring;
  symbol_ S_make_pathname;
  symbol_ S_make_logical_pathname;
  symbol_ S_user_homedir_pathname;
  symbol_ S_wild_pathname_p;
  symbol_ S_pathname_match_p;
  symbol_ S_translate_pathname;
  symbol_ S_absolute_pathname;
  symbol_ S_namestring;
  symbol_ S_truename;
  symbol_ S_probe_file;
  symbol_ S_probe_pathname;
  symbol_ S_probe_directory;
  symbol_ S_delete_file;
  symbol_ S_rename_file;
  symbol_ S_file_error;
  symbol_ S_open;
  symbol_ S_reopen_open_file;
  symbol_ S_closeL;
  symbol_ S_directory;
  symbol_ S_cd;
  symbol_ S_make_directory;
  symbol_ S_delete_directory;
  symbol_ S_rename_directory;
  symbol_ S_ensure_directories_exist;
  symbol_ S_file_write_date;
  symbol_ S_file_author;
  symbol_ S_execute;
  symbol_ S_shell;
  symbol_ S_launch;
  symbol_ S_savemem;
  symbol_ S_dynload_modules;
  symbol_ S_loading_message;
  symbol_ S_load_level;
  symbol_ S_program_name;
  symbol_ S_lib_directory;
  symbol_ S_set_lib_directory;
  symbol_ S_user_lib_directory;
  symbol_ S_eq;
  symbol_ S_eql;
  symbol_ S_equal;
  symbol_ S_equalp;
  symbol_ S_consp;
  symbol_ S_atom;
  symbol_ S_symbolp;
  symbol_ S_stringp;
  symbol_ S_numberp;
  symbol_ S_compiled_function_p;
  symbol_ S_pcompiled_function_p;
  symbol_ S_null;
  symbol_ S_not;
  symbol_ S_closurep;
  symbol_ S_listp;
  symbol_ S_proper_list_p;
  symbol_ S_bytep;
  symbol_ S_integerp;
  symbol_ S_fixnump;
  symbol_ S_rationalp;
  symbol_ S_floatp;
  symbol_ S_short_float_p;
  symbol_ S_single_float_p;
  symbol_ S_double_float_p;
  symbol_ S_long_float_p;
  symbol_ S_realp;
  symbol_ S_complexp;
  symbol_ S_streamp;
  symbol_ S_built_in_stream_p;
  symbol_ S_random_state_p;
  symbol_ S_readtablep;
  symbol_ S_hash_table_p;
  symbol_ S_pathnamep;
  symbol_ S_logical_pathname_p;
  symbol_ S_characterp;
  symbol_ S_functionp;
  symbol_ S_packagep;
  symbol_ S_arrayp;
  symbol_ S_simple_array_p;
  symbol_ S_bit_vector_p;
  symbol_ S_vectorp;
  symbol_ S_simple_vector_p;
  symbol_ S_simple_string_p;
  symbol_ S_simple_bit_vector_p;
  symbol_ S_type_of;
  symbol_ S_defclos;
  symbol_ S_potential_class_p;
  symbol_ S_defined_class_p;
  symbol_ S_class_of;
  symbol_ S_find_class;
  symbol_ S_typep_class;
  symbol_ S_expand_deftype;
  symbol_ S_coerce;
  symbol_ S_note_new_structure_class;
  symbol_ S_note_new_standard_class;
  symbol_ S_heap_statistics;
  symbol_ S_gc_statistics;
  symbol_ S_list_statistics;
  symbol_ S_heap_statistics_statistics;
  symbol_ S_gc_statistics_statistics;
  symbol_ S_record_ref;
  symbol_ S_record_store;
  symbol_ S_record_length;
  symbol_ S_pstructure_ref;
  symbol_ S_structure_ref;
  symbol_ S_structure_store;
  symbol_ S_make_structure;
  symbol_ S_copy_structure;
  symbol_ S_structure_type_p;
  symbol_ S_closure_name;
  symbol_ S_set_closure_name;
  symbol_ S_closure_codevec;
  symbol_ S_closure_consts;
  symbol_ S_closure_const;
  symbol_ S_set_closure_const;
  symbol_ S_make_closure;
  symbol_ S_make_constant_initfunction;
  symbol_ S_constant_initfunction_p;
  symbol_ S_closure_set_seclass;
  symbol_ S_closure_documentation;
  symbol_ S_closure_set_documentation;
  symbol_ S_closure_lambda_list;
  symbol_ S_set_funcallable_instance_function;
  symbol_ S_copy_generic_function;
  symbol_ S_generic_function_effective_method_function;
  symbol_ S_make_load_time_eval;
  symbol_ S_make_symbol_macro;
  symbol_ S_symbol_macro_p;
  symbol_ S_symbol_macro_expand;
  symbol_ S_make_global_symbol_macro;
  symbol_ S_global_symbol_macro_definition;
  symbol_ S_make_macro;
  symbol_ S_macrop;
  symbol_ S_macro_expander;
  symbol_ S_macro_lambda_list;
  symbol_ S_make_function_macro;
  symbol_ S_function_macro_p;
  symbol_ S_function_macro_function;
  symbol_ S_function_macro_expander;
  symbol_ S_finalize;
  symbol_ S_structure_object_p;
  symbol_ S_std_instance_p;
  symbol_ S_funcallable_instance_p;
  symbol_ S_allocate_metaobject_instance;
  symbol_ S_allocate_std_instance;
  symbol_ S_allocate_funcallable_instance;
  symbol_ S_pallocate_instance;
  symbol_ S_pslot_value_using_class;
  symbol_ S_pset_slot_value_using_class;
  symbol_ S_pslot_boundp_using_class;
  symbol_ S_pslot_makunbound_using_class;
  symbol_ S_slot_value;
  symbol_ S_set_slot_value;
  symbol_ S_slot_boundp;
  symbol_ S_slot_makunbound;
  symbol_ S_slot_exists_p;
  symbol_ S_standard_instance_access;
  symbol_ S_set_standard_instance_access;
  symbol_ S_punbound;
  symbol_ S_pshared_initialize;
  symbol_ S_preinitialize_instance;
  symbol_ S_pinitialize_instance;
  symbol_ S_pmake_instance;
  symbol_ S_pchange_class;
  symbol_ S_make_weak_pointer;
  symbol_ S_weak_pointer_p;
  symbol_ S_weak_pointer_value;
  symbol_ S_set_weak_pointer_value;
  symbol_ S_make_weak_list;
  symbol_ S_weak_list_p;
  symbol_ S_weak_list_list;
  symbol_ S_set_weak_list_list;
  symbol_ S_make_weak_and_relation;
  symbol_ S_weak_and_relation_p;
  symbol_ S_weak_and_relation_list;
  symbol_ S_make_weak_or_relation;
  symbol_ S_weak_or_relation_p;
  symbol_ S_weak_or_relation_list;
  symbol_ S_make_weak_mapping;
  symbol_ S_weak_mapping_p;
  symbol_ S_weak_mapping_pair;
  symbol_ S_weak_mapping_value;
  symbol_ S_set_weak_mapping_value;
  symbol_ S_make_weak_and_mapping;
  symbol_ S_weak_and_mapping_p;
  symbol_ S_weak_and_mapping_pair;
  symbol_ S_weak_and_mapping_value;
  symbol_ S_set_weak_and_mapping_value;
  symbol_ S_make_weak_or_mapping;
  symbol_ S_weak_or_mapping_p;
  symbol_ S_weak_or_mapping_pair;
  symbol_ S_weak_or_mapping_value;
  symbol_ S_set_weak_or_mapping_value;
  symbol_ S_make_weak_alist;
  symbol_ S_weak_alist_p;
  symbol_ S_weak_alist_type;
  symbol_ S_weak_alist_contents;
  symbol_ S_set_weak_alist_contents;
  symbol_ S_weak_alist_assoc;
  symbol_ S_weak_alist_rassoc;
  symbol_ S_weak_alist_value;
  symbol_ S_set_weak_alist_value;
  symbol_ S_sequencep;
  symbol_ S_defseq;
  symbol_ S_elt;
  symbol_ S_setelt;
  symbol_ S_subseq;
  symbol_ S_copy_seq;
  symbol_ S_length;
  symbol_ S_reverse;
  symbol_ S_nreverse;
  symbol_ S_make_sequence;
  symbol_ S_coerced_subseq;
  symbol_ S_concatenate;
  symbol_ S_map;
  symbol_ S_map_into;
  symbol_ S_some;
  symbol_ S_every;
  symbol_ S_notany;
  symbol_ S_notevery;
  symbol_ S_reduce;
  symbol_ S_fill;
  symbol_ S_replace;
  symbol_ S_remove;
  symbol_ S_remove_if;
  symbol_ S_remove_if_not;
  symbol_ S_delete;
  symbol_ S_delete_if;
  symbol_ S_delete_if_not;
  symbol_ S_remove_duplicates;
  symbol_ S_delete_duplicates;
  symbol_ S_substitute;
  symbol_ S_substitute_if;
  symbol_ S_substitute_if_not;
  symbol_ S_nsubstitute;
  symbol_ S_nsubstitute_if;
  symbol_ S_nsubstitute_if_not;
  symbol_ S_find;
  symbol_ S_find_if;
  symbol_ S_find_if_not;
  symbol_ S_position;
  symbol_ S_position_if;
  symbol_ S_position_if_not;
  symbol_ S_count;
  symbol_ S_count_if;
  symbol_ S_count_if_not;
  symbol_ S_mismatch;
  symbol_ S_search;
  symbol_ S_sort;
  symbol_ S_stable_sort;
  symbol_ S_merge;
  symbol_ S_read_char_sequence;
  symbol_ S_write_char_sequence;
  symbol_ S_read_byte_sequence;
  symbol_ S_write_byte_sequence;
  symbol_ S_sequence_count_ansi;
  symbol_ S_symbol_stream;
  symbol_ S_make_synonym_stream;
  symbol_ S_synonym_stream_p;
  symbol_ S_synonym_stream_symbol;
  symbol_ S_make_broadcast_stream;
  symbol_ S_broadcast_stream_p;
  symbol_ S_broadcast_stream_streams;
  symbol_ S_make_concatenated_stream;
  symbol_ S_concatenated_stream_p;
  symbol_ S_concatenated_stream_streams;
  symbol_ S_make_two_way_stream;
  symbol_ S_two_way_stream_p;
  symbol_ S_two_way_stream_input_stream;
  symbol_ S_two_way_stream_output_stream;
  symbol_ S_make_echo_stream;
  symbol_ S_echo_stream_p;
  symbol_ S_echo_stream_input_stream;
  symbol_ S_echo_stream_output_stream;
  symbol_ S_make_string_input_stream;
  symbol_ S_string_input_stream_index;
  symbol_ S_make_string_output_stream;
  symbol_ S_get_output_stream_string;
  symbol_ S_make_string_push_stream;
  symbol_ S_string_stream_p;
  symbol_ S_string_stream_string;
  symbol_ S_make_buffered_input_stream;
  symbol_ S_buffered_input_stream_index;
  symbol_ S_make_buffered_output_stream;
  symbol_ S_generic_stream_controller;
  symbol_ S_make_generic_stream;
  symbol_ S_generic_stream_p;
  symbol_ S_file_stream_p;
  symbol_ S_make_keyboard_stream;
  symbol_ S_terminal_raw;
  symbol_ S_make_window;
  symbol_ S_window_size;
  symbol_ S_window_cursor_position;
  symbol_ S_set_window_cursor_position;
  symbol_ S_clear_window;
  symbol_ S_clear_window_to_eot;
  symbol_ S_clear_window_to_eol;
  symbol_ S_delete_window_line;
  symbol_ S_insert_window_line;
  symbol_ S_highlight_on;
  symbol_ S_highlight_off;
  symbol_ S_window_cursor_on;
  symbol_ S_window_cursor_off;
  symbol_ S_make_pipe_input_stream;
  symbol_ S_make_pipe_output_stream;
  symbol_ S_make_pipe_io_stream;
  symbol_ S_make_x11socket_stream;
  symbol_ S_read_n_bytes;
  symbol_ S_write_n_bytes;
  symbol_ S_x11_socket_stream;
  symbol_ S_socket_server;
  symbol_ S_socket_server_close;
  symbol_ S_socket_server_port;
  symbol_ S_socket_server_host;
  symbol_ S_socket_accept;
  symbol_ S_socket_wait;
  symbol_ S_socket_status;
  symbol_ S_socket_connect;
  symbol_ S_socket_stream_port;
  symbol_ S_socket_stream_host;
  symbol_ S_socket_stream_peer;
  symbol_ S_socket_stream_local;
  symbol_ S_socket_options;
  symbol_ S_socket_stream_shutdown;
  symbol_ S_make_stream;
  symbol_ S_stream_handles;
  symbol_ S_built_in_stream_open_p;
  symbol_ S_input_stream_p;
  symbol_ S_output_stream_p;
  symbol_ S_stream_element_type_eq;
  symbol_ S_built_in_stream_element_type;
  symbol_ S_built_in_stream_set_element_type;
  symbol_ S_stream_external_format;
  symbol_ S_set_stream_external_format;
  symbol_ S_interactive_stream_p;
  symbol_ S_built_in_stream_close;
  symbol_ S_read_byte;
  symbol_ S_read_byte_lookahead;
  symbol_ S_read_byte_will_hang_p;
  symbol_ S_read_byte_no_hang;
  symbol_ S_read_integer;
  symbol_ S_read_float;
  symbol_ S_write_byte;
  symbol_ S_write_integer;
  symbol_ S_write_float;
  symbol_ S_file_position;
  symbol_ S_file_length;
  symbol_ S_file_string_length;
  symbol_ S_line_number;
  symbol_ S_stream_fasl_p;
  symbol_ S_defgray;
  symbol_ S_putd;
  symbol_ S_find_subr;
  symbol_ S_proclaim_constant;
  symbol_ S_proclaim_symbol_macro;
  symbol_ S_get;
  symbol_ S_getf;
  symbol_ S_putf;
  symbol_ S_remf;
  symbol_ S_get_properties;
  symbol_ S_putplist;
  symbol_ S_put;
  symbol_ S_remprop;
  symbol_ S_symbol_package;
  symbol_ S_symbol_plist;
  symbol_ S_symbol_name;
  symbol_ S_cs_symbol_name;
  symbol_ S_keywordp;
  symbol_ S_gensym;
  symbol_ S_gentemp;
  symbol_ S_plist;
  symbol_ S_decimal_string;
  symbol_ S_zerop;
  symbol_ S_plusp;
  symbol_ S_minusp;
  symbol_ S_oddp;
  symbol_ S_evenp;
  symbol_ S_numequal;
  symbol_ S_numunequal;
  symbol_ S_smaller;
  symbol_ S_greater;
  symbol_ S_ltequal;
  symbol_ S_gtequal;
  symbol_ S_max;
  symbol_ S_min;
  symbol_ S_plus;
  symbol_ S_minus;
  symbol_ S_star;
  symbol_ S_slash;
  symbol_ S_plus_one;
  symbol_ S_minus_one;
  symbol_ S_conjugate;
  symbol_ S_gcd;
  symbol_ S_xgcd;
  symbol_ S_lcm;
  symbol_ S_exp;
  symbol_ S_expt;
  symbol_ S_log;
  symbol_ S_sqrt;
  symbol_ S_isqrt;
  symbol_ S_abs;
  symbol_ S_phase;
  symbol_ S_signum;
  symbol_ S_sin;
  symbol_ S_cos;
  symbol_ S_tan;
  symbol_ S_cis;
  symbol_ S_asin;
  symbol_ S_acos;
  symbol_ S_atan;
  symbol_ S_sinh;
  symbol_ S_cosh;
  symbol_ S_tanh;
  symbol_ S_asinh;
  symbol_ S_acosh;
  symbol_ S_atanh;
  symbol_ S_float;
  symbol_ S_rational;
  symbol_ S_rationalize;
  symbol_ S_numerator;
  symbol_ S_denominator;
  symbol_ S_floor;
  symbol_ S_ceiling;
  symbol_ S_truncate;
  symbol_ S_round;
  symbol_ S_mod;
  symbol_ S_rem;
  symbol_ S_ffloor;
  symbol_ S_fceiling;
  symbol_ S_ftruncate;
  symbol_ S_fround;
  symbol_ S_decode_float;
  symbol_ S_scale_float;
  symbol_ S_float_scale_exponent;
  symbol_ S_float_radix;
  symbol_ S_float_sign;
  symbol_ S_float_digits;
  symbol_ S_float_precision;
  symbol_ S_integer_decode_float;
  symbol_ S_complex;
  symbol_ S_realpart;
  symbol_ S_imagpart;
  symbol_ S_logior;
  symbol_ S_logxor;
  symbol_ S_logand;
  symbol_ S_logeqv;
  symbol_ S_lognand;
  symbol_ S_lognor;
  symbol_ S_logandc1;
  symbol_ S_logandc2;
  symbol_ S_logorc1;
  symbol_ S_logorc2;
  symbol_ S_boole;
  symbol_ S_lognot;
  symbol_ S_logtest;
  symbol_ S_logbitp;
  symbol_ S_ash;
  symbol_ S_logcount;
  symbol_ S_integer_length;
  symbol_ S_byte;
  symbol_ S_bytesize;
  symbol_ S_byteposition;
  symbol_ S_ldb;
  symbol_ S_ldb_test;
  symbol_ S_mask_field;
  symbol_ S_dpb;
  symbol_ S_deposit_field;
  symbol_ S_random;
  symbol_ S_random_posfixnum;
  symbol_ S_make_random_state;
  symbol_ S_factorial;
  symbol_ S_exquo;
  symbol_ S_mod_expt;
  symbol_ S_long_float_digits;
  symbol_ S_set_long_float_digits;
  symbol_ S_log2;
  symbol_ S_log10;
  symbol_ S_sizeof;
  symbol_ S_bitsizeof;
  symbol_ S_validp;
  symbol_ S_set_validp;
  symbol_ S_set_foreign_pointer;
  symbol_ S_unsigned_foreign_address;
  symbol_ S_foreign_address_unsigned;
  symbol_ S_foreign_pointer_info;
  symbol_ S_open_foreign_library;
  symbol_ S_Krequire;
  symbol_ S_close_foreign_library;
  symbol_ S_parse_foreign_inttype;
  symbol_ S_find_foreign_variable;
  symbol_ S_foreign_value;
  symbol_ S_set_foreign_value;
  symbol_ S_foreign_type;
  symbol_ S_element;
  symbol_ S_deref;
  symbol_ S_slot;
  symbol_ S_cast;
  symbol_ S_offset;
  symbol_ S_read_memory_as;
  symbol_ S_write_memory_as;
  symbol_ S_exec_on_stack;
  symbol_ S_call_with_foreign_string;
  symbol_ S_foreign_allocate;
  symbol_ S_foreign_free;
  symbol_ S_find_foreign_function;
  symbol_ S_foreign_call_out;
  symbol_ S_Kallow_other_keys;
  symbol_ S_Kadjustable;
  symbol_ S_Kelement_type;
  symbol_ S_Kinitial_element;
  symbol_ S_Kinitial_contents;
  symbol_ S_Kfill_pointer;
  symbol_ S_Kdisplaced_to;
  symbol_ S_Kdisplaced_index_offset;
  symbol_ S_Kstart1;
  symbol_ S_Kend1;
  symbol_ S_Kstart2;
  symbol_ S_Kend2;
  symbol_ S_Kstart;
  symbol_ S_Kend;
  symbol_ S_Kno_hang;
  symbol_ S_Kinteractive;
  symbol_ S_Kpreserve_whitespace;
  symbol_ S_Kradix;
  symbol_ S_Kjunk_allowed;
  symbol_ S_Kcase;
  symbol_ S_Klevel;
  symbol_ S_Klength;
  symbol_ S_Klines;
  symbol_ S_Kmiser_width;
  symbol_ S_Kpprint_dispatch;
  symbol_ S_Klinear;
  symbol_ S_Kfill;
  symbol_ S_Kmiser;
  symbol_ S_Kmandatory;
  symbol_ S_Kblock;
  symbol_ S_Kcurrent;
  symbol_ S_Kgensym;
  symbol_ S_Kescape;
  symbol_ S_Kbase;
  symbol_ S_Karray;
  symbol_ S_Kcircle;
  symbol_ S_Kpretty;
  symbol_ S_Kclosure;
  symbol_ S_Kreadably;
  symbol_ S_Kright_margin;
  symbol_ S_Kstream;
  symbol_ S_Kidentity;
  symbol_ S_Ktest;
  symbol_ S_Ktest_not;
  symbol_ S_Kkey;
  symbol_ S_Knicknames;
  symbol_ S_Kuse;
  symbol_ S_Kcase_sensitive;
  symbol_ S_Kcase_inverted;
  symbol_ S_Kupdate;
  symbol_ S_Kup;
  symbol_ S_Kback;
  symbol_ S_Kfrom_end;
  symbol_ S_Kinitial_value;
  symbol_ S_Kcount;
  symbol_ S_Ksize;
  symbol_ S_Krehash_size;
  symbol_ S_Krehash_threshold;
  symbol_ S_Kkey_type;
  symbol_ S_Kvalue_type;
  symbol_ S_Kwarn_if_needs_rehash_after_gc;
  symbol_ S_Kweak;
  symbol_ S_Kkey_and_value;
  symbol_ S_Kkey_or_value;
  symbol_ S_Kvalue;
  symbol_ S_Kdefaults;
  symbol_ S_Kdevice;
  symbol_ S_Kdirectory;
  symbol_ S_Kname;
  symbol_ S_Ktype;
  symbol_ S_Kversion;
  symbol_ S_Khost;
  symbol_ S_Kall;
  symbol_ S_Kmerge;
  symbol_ S_Kdirection;
  symbol_ S_Kif_exists;
  symbol_ S_Kif_does_not_exist;
  symbol_ S_Kkeep;
  symbol_ S_Kdiscard;
  symbol_ S_Kexternal_format;
  symbol_ S_Kbuffered;
  symbol_ S_Kfull;
  symbol_ S_Kabort;
  symbol_ S_Kverbose;
  symbol_ S_Kexecute;
  symbol_ S_Kcompile_toplevel;
  symbol_ S_Kload_toplevel;
  symbol_ S_Keof;
  symbol_ S_Kinput_available;
  symbol_ S_Kline_position;
  symbol_ S_Klittle;
  symbol_ S_Kbig;
  symbol_ S_Kcharset;
  symbol_ S_Kline_terminator;
  symbol_ S_Kunix;
  symbol_ S_Kmac;
  symbol_ S_Kdos;
  symbol_ S_Kinput_error_action;
  symbol_ S_Koutput_error_action;
  symbol_ S_Kansi_cl;
  symbol_ S_Kextra_file_types;
  symbol_ S_Kfunction;
  symbol_ S_Koverride;
  symbol_ S_Kwait;
  symbol_ S_Kterminal;
  symbol_ S_Kpipe;
  symbol_ S_Karguments;
  symbol_ S_Kpriority;
  symbol_ S_Khigh;
  symbol_ S_Knormal;
  symbol_ S_Klow;
  symbol_ S_Ktimeout;
  symbol_ S_Kinterface;
  symbol_ S_Kbacklog;
  symbol_ S_Kso_debug;
  symbol_ S_Kso_acceptconn;
  symbol_ S_Kso_broadcast;
  symbol_ S_Kso_reuseaddr;
  symbol_ S_Kso_dontroute;
  symbol_ S_Kso_keepalive;
  symbol_ S_Kso_error;
  symbol_ S_Kso_linger;
  symbol_ S_Kso_oobinline;
  symbol_ S_Kso_type;
  symbol_ S_Kso_rcvbuf;
  symbol_ S_Kso_sndbuf;
  symbol_ S_Kso_rcvlowat;
  symbol_ S_Kso_sndlowat;
  symbol_ S_Kso_rcvtimeo;
  symbol_ S_Kso_sndtimeo;
  symbol_ S_Kread_only;
  symbol_ S_Kcode;
  symbol_ S_Kconstants;
  symbol_ S_Kseclass;
  symbol_ S_Klambda_list;
  symbol_ S_Kdocumentation;
  symbol_ S_Kjitc_p;
  symbol_ S_standard_char;
  symbol_ S_string_char;
  symbol_ S_base_char;
  symbol_ S_array_rank_limit;
  symbol_ S_array_dimension_limit;
  symbol_ S_string_dimension_limit;
  symbol_ S_array_total_size_limit;
  symbol_ S_subtype_integer;
  symbol_ S_char_cod_limit;
  symbol_ S_base_char_cod_limit;
  symbol_ S_designator;
  symbol_ S_make_trampoline;
  symbol_ S_symbolmacro;
  symbol_ S_make_instance;
  symbol_ S_shared_initialize;
  symbol_ S_reinitialize_instance;
  symbol_ S_initialize_instance;
  symbol_ S_update_instance_frc;
  symbol_ S_class_slots;
  symbol_ S_slot_definition_location;
  symbol_ S_slot_definition_name;
  symbol_ S_structure_object;
  symbol_ S_class;
  symbol_ S_slot_missing;
  symbol_ S_slot_unbound;
  symbol_ S_standard_object;
  symbol_ S_reinitialize_instance_table;
  symbol_ S_make_instance_table;
  symbol_ S_initial_reinitialize_instance;
  symbol_ S_initial_initialize_instance;
  symbol_ S_initial_make_instance;
  symbol_ S_allocate_instance;
  symbol_ S_finalize_inheritance;
  symbol_ S_class_version_compute_slotlists;
  symbol_ S_constant_initfunction;
  symbol_ S_fasthash_eq;
  symbol_ S_stablehash_eq;
  symbol_ S_eq_hashfunction;
  symbol_ S_fasthash_eql;
  symbol_ S_stablehash_eql;
  symbol_ S_eql_hashfunction;
  symbol_ S_fasthash_equal;
  symbol_ S_stablehash_equal;
  symbol_ S_equal_hashfunction;
  symbol_ S_structure_stablehash;
  symbol_ S_warn_on_hashtable_needing_rehash_after_gc;
  symbol_ S_simple_vector;
  symbol_ S_simple_string;
  symbol_ S_base_string;
  symbol_ S_simple_base_string;
  symbol_ S_bit_vector;
  symbol_ S_simple_bit_vector;
  symbol_ S_array;
  symbol_ S_simple_array;
  symbol_ S_sequence;
  symbol_ S_subtype_sequence;
  symbol_ S_package_error;
  symbol_ S_Kinternal;
  symbol_ S_Kexternal;
  symbol_ S_Kinherited;
  symbol_ S_do_symbols;
  symbol_ S_do_external_symbols;
  symbol_ S_packagestar;
  symbol_ S_internal_time_units_per_second;
  symbol_ S_encode_universal_time;
  symbol_ S_use_clcs;
  symbol_ S_recursive_error_count;
  symbol_ S_error_handler;
  symbol_ S_simple_condition;
  symbol_ S_simple_serious_condition;
  symbol_ S_simple_error;
  symbol_ S_simple_program_error;
  symbol_ S_simple_source_program_error;
  symbol_ S_simple_control_error;
  symbol_ S_simple_arithmetic_error;
  symbol_ S_simple_division_by_zero;
  symbol_ S_simple_floating_point_overflow;
  symbol_ S_simple_floating_point_underflow;
  symbol_ S_simple_cell_error;
  symbol_ S_simple_unbound_variable;
  symbol_ S_simple_undefined_function;
  symbol_ S_simple_unbound_slot;
  symbol_ S_simple_type_error;
  symbol_ S_simple_keyword_error;
  symbol_ S_simple_charset_type_error;
  symbol_ S_simple_argument_list_dotted;
  symbol_ S_simple_package_error;
  symbol_ S_simple_print_not_readable;
  symbol_ S_simple_parse_error;
  symbol_ S_simple_stream_error;
  symbol_ S_simple_end_of_file;
  symbol_ S_simple_reader_error;
  symbol_ S_simple_file_error;
  symbol_ S_simple_storage_condition;
  symbol_ S_simple_interrupt_condition;
  symbol_ S_simple_warning;
  symbol_ S_os_error;
  symbol_ S_os_file_error;
  symbol_ S_os_stream_error;
  symbol_ S_strerror;
  symbol_ S_Kinstance;
  symbol_ S_Kdatum;
  symbol_ S_Kexpected_type;
  symbol_ S_Kpackage;
  symbol_ S_Kobject;
  symbol_ S_Kpathname;
  symbol_ S_Kdetail;
  symbol_ S_Koperation;
  symbol_ S_Koperands;
  symbol_ S_format;
  symbol_ S_debugger_hook;
  symbol_ S_coerce_to_condition;
  symbol_ S_cerror;
  symbol_ S_check_value;
  symbol_ S_correctable_error;
  symbol_ S_prompt_for_new_value;
  symbol_ S_continue;
  symbol_ S_break_on_signals;
  symbol_ S_safe_typep;
  symbol_ S_done_signaling;
  symbol_ S_penl;
  symbol_ S_stream_read_byte;
  symbol_ S_stream_read_byte_lookahead;
  symbol_ S_stream_read_byte_sequence;
  symbol_ S_stream_write_byte;
  symbol_ S_stream_write_byte_sequence;
  symbol_ S_stream_read_char;
  symbol_ S_stream_unread_char;
  symbol_ S_stream_peek_char;
  symbol_ S_stream_read_char_sequence;
  symbol_ S_stream_write_char;
  symbol_ S_stream_write_char_sequence;
  symbol_ S_stream_read_line;
  symbol_ S_stream_read_char_will_hang_p;
  symbol_ S_stream_clear_input;
  symbol_ S_stream_finish_output;
  symbol_ S_stream_force_output;
  symbol_ S_stream_clear_output;
  symbol_ S_stream_line_column;
  symbol_ S_stream_position;
  symbol_ S_stream_listen;
  symbol_ S_generic_stream_rdch;
  symbol_ S_generic_stream_pkch;
  symbol_ S_generic_stream_read_char_will_hang_p;
  symbol_ S_generic_stream_clear_input;
  symbol_ S_generic_stream_wrch;
  symbol_ S_generic_stream_wrss;
  symbol_ S_generic_stream_finish_output;
  symbol_ S_generic_stream_force_output;
  symbol_ S_generic_stream_clear_output;
  symbol_ S_generic_stream_rdby;
  symbol_ S_generic_stream_wrby;
  symbol_ S_generic_stream_close;
  symbol_ S_generic_stream;
  symbol_ S_Kchar;
  symbol_ S_Kbits;
  symbol_ S_make_input_character;
  symbol_ S_make_char;
  symbol_ S_keyboard_input;
  symbol_ S_input_character;
  symbol_ S_input_character_char;
  symbol_ S_completion;
  symbol_ S_conversion_failure;
  symbol_ S_terminal_io;
  symbol_ S_key_bindings;
  symbol_ S_query_io;
  symbol_ S_debug_io;
  symbol_ S_standard_input;
  symbol_ S_standard_output;
  symbol_ S_error_output;
  symbol_ S_trace_output;
  symbol_ S_stream_element_type;
  symbol_ S_lastchar;
  symbol_ S_fasl;
  symbol_ S_datum;
  symbol_ S_default_pathname_defaults;
  symbol_ S_merge_pathnames_ansi;
  symbol_ S_print_pathnames_ansi;
  symbol_ S_print_space_char_ansi;
  symbol_ S_print_empty_arrays_ansi;
  symbol_ S_print_unreadable_ansi;
  symbol_ S_parse_namestring_ansi;
  symbol_ S_parse_namestring_dot_file;
  symbol_ S_type_error;
  symbol_ S_logpathname_translations;
  symbol_ S_Kwild;
  symbol_ S_Kwild_inferiors;
  symbol_ S_Krelative;
  symbol_ S_Kabsolute;
  symbol_ S_Knewest;
  symbol_ S_Kunspecific;
  symbol_ S_Kcommon;
  symbol_ S_Kinput;
  symbol_ S_Kinput_immutable;
  symbol_ S_Koutput;
  symbol_ S_Kio;
  symbol_ S_Kprobe;
  symbol_ S_unsigned_byte;
  symbol_ S_signed_byte;
  symbol_ S_Kdefault;
  symbol_ S_Knext;
  symbol_ S_canonicalize_type;
  symbol_ S_subtypep;
  symbol_ S_Kerror;
  symbol_ S_Knew_version;
  symbol_ S_Krename;
  symbol_ S_Krename_and_delete;
  symbol_ S_Koverwrite;
  symbol_ S_Kappend;
  symbol_ S_Ksupersede;
  symbol_ S_Kcreate;
  symbol_ S_Kcopy;
  symbol_ S_warn;
  symbol_ S_Kignore;
  symbol_ S_with_output_to_string;
  symbol_ S_integer;
  symbol_ S_hash_table;
  symbol_ S_random_state;
  symbol_ S_reader_error;
  symbol_ S_read_base;
  symbol_ S_read_suppress;
  symbol_ S_read_eval;
  symbol_ S_readtablestar;
  symbol_ S_features;
  symbol_ S_read_preserve_whitespace;
  symbol_ S_read_line_number;
  symbol_ S_read_recursive_p;
  symbol_ S_read_reference_table;
  symbol_ S_backquote_level;
  symbol_ S_backquote_reader;
  symbol_ S_comma_reader;
  symbol_ S_reading_array;
  symbol_ S_reading_struct;
  symbol_ S_compiling;
  symbol_ S_make_init_form;
  symbol_ S_make_byte;
  symbol_ S_Kupcase;
  symbol_ S_Kdowncase;
  symbol_ S_Kpreserve;
  symbol_ S_Kinvert;
  symbol_ S_Kcapitalize;
  symbol_ S_print_case;
  symbol_ S_print_level;
  symbol_ S_print_length;
  symbol_ S_print_gensym;
  symbol_ S_print_escape;
  symbol_ S_print_radix;
  symbol_ S_print_base;
  symbol_ S_print_array;
  symbol_ S_print_circle;
  symbol_ S_print_pretty;
  symbol_ S_print_closure;
  symbol_ S_print_readably;
  symbol_ S_print_lines;
  symbol_ S_print_miser_width;
  symbol_ S_print_pprint_dispatch;
  symbol_ S_print_right_margin;
  symbol_ S_print_rpars;
  symbol_ S_print_indent_lists;
  symbol_ S_print_pretty_fill;
  symbol_ S_print_circle_table;
  symbol_ S_print_symbol_package_prefix_shortest;
  symbol_ S_prin_level;
  symbol_ S_prin_lines;
  symbol_ S_prin_line_prefix;
  symbol_ S_prin_miserp;
  symbol_ S_prin_pprinter;
  symbol_ S_prin_indentation;
  symbol_ S_prin_bqlevel;
  symbol_ S_prin_stream;
  symbol_ S_prin_linelength;
  symbol_ S_prin_l1;
  symbol_ S_prin_lm;
  symbol_ S_prin_rpar;
  symbol_ S_prin_traillength;
  symbol_ S_prin_prev_traillength;
  symbol_ S_prin_jblocks;
  symbol_ S_prin_jbstrings;
  symbol_ S_prin_jbmodus;
  symbol_ S_prin_jblpos;
  symbol_ S_format_tabulate;
  symbol_ S_stream_start_s_expression;
  symbol_ S_stream_end_s_expression;
  symbol_ S_load_forms;
  symbol_ S_terminal_read_open_object;
  symbol_ S_terminal_read_stream;
  symbol_ S_backquote;
  symbol_ S_splice;
  symbol_ S_nsplice;
  symbol_ S_unquote;
  symbol_ S_structure_print;
  symbol_ S_defstruct_description;
  symbol_ S_print_object;
  symbol_ S_trace_values;
  symbol_ S_setf_function;
  symbol_ S_lambda;
  symbol_ S_LLoptional;
  symbol_ S_LLkey;
  symbol_ S_LLallow_other_keys;
  symbol_ S_LLrest;
  symbol_ S_LLaux;
  symbol_ S_LLbody;
  symbol_ S_macro;
  symbol_ S_special;
  symbol_ S_notspecial;
  symbol_ S_implementation_dependent;
  symbol_ S_source;
  symbol_ S_optimize;
  symbol_ S_declaration;
  symbol_ S_note_optimize;
  symbol_ S_check_not_type;
  symbol_ S_compile_lambda;
  symbol_ S_expand_lambdabody_main;
  symbol_ S_compile;
  symbol_ S_evalhookstar;
  symbol_ S_applyhookstar;
  symbol_ S_macroexpand_hook;
  symbol_ S_lambda_parameters_limit;
  symbol_ S_call_arguments_limit;
  symbol_ S_multiple_values_limit;
  symbol_ S_jmpbuf_size;
  symbol_ S_big_endian;
  symbol_ S_Klambda;
  symbol_ S_keyword;
  symbol_ S_plus2;
  symbol_ S_plus3;
  symbol_ S_star2;
  symbol_ S_star3;
  symbol_ S_slash2;
  symbol_ S_slash3;
  symbol_ S_driverstar;
  symbol_ S_break_driver;
  symbol_ S_break_count;
  symbol_ S_recurse_count_standard_output;
  symbol_ S_recurse_count_debug_io;
  symbol_ S_frame_limit_down;
  symbol_ S_frame_limit_up;
  symbol_ S_setf;
  symbol_ S_psetf;
  symbol_ S_multiple_value_setf;
  symbol_ S_make_macro_expander;
  symbol_ S_make_funmacro_expander;
  symbol_ S_type_for_discrimination;
  symbol_ S_pthe;
  symbol_ S_compile_form;
  symbol_ S_otherwise;
  symbol_ S_inline;
  symbol_ S_notinline;
  symbol_ S_get_funname_symbol;
  symbol_ S_inlinable;
  symbol_ S_constant_inline;
  symbol_ S_constant_notinline;
  symbol_ S_constant_inlinable;
  symbol_ S_boolean;
  symbol_ S_symbol;
  symbol_ S_address;
  symbol_ S_file_stream;
  symbol_ S_synonym_stream;
  symbol_ S_broadcast_stream;
  symbol_ S_concatenated_stream;
  symbol_ S_two_way_stream;
  symbol_ S_echo_stream;
  symbol_ S_string_stream;
  symbol_ S_stream;
  symbol_ S_package;
  symbol_ S_readtable;
  symbol_ S_special_operator;
  symbol_ S_load_time_eval;
  symbol_ S_symbol_macro;
  symbol_ S_global_symbol_macro;
  symbol_ S_function_macro;
  symbol_ S_encoding;
  symbol_ S_foreign_pointer;
  symbol_ S_foreign_address;
  symbol_ S_foreign_variable;
  symbol_ S_foreign_function;
  symbol_ S_weak_pointer;
  symbol_ S_weak_list;
  symbol_ S_weak_alist;
  symbol_ S_weak_mapping;
  symbol_ S_finalizer;
  symbol_ S_internal_weak_list;
  symbol_ S_weak_and_relation;
  symbol_ S_weak_or_relation;
  symbol_ S_weak_and_mapping;
  symbol_ S_weak_or_mapping;
  symbol_ S_internal_weak_alist;
  symbol_ S_internal_weak_hashed_alist;
  symbol_ S_compiled_function;
  symbol_ S_frame_pointer;
  symbol_ S_read_label;
  symbol_ S_system_internal;
  symbol_ S_fixnum;
  symbol_ S_bignum;
  symbol_ S_ratio;
  symbol_ S_short_float;
  symbol_ S_single_float;
  symbol_ S_double_float;
  symbol_ S_long_float;
  symbol_ S_standard_generic_function;
  symbol_ S_closclass;
  symbol_ S_typep;
  symbol_ S_deftype_expander;
  symbol_ S_deftype_depth_limit;
  symbol_ S_coerce_fixnum_char_ansi;
  symbol_ S_gc_statistics_star;
  symbol_ S_recurse_count_gc_statistics;
  symbol_ S_traced_definition;
  symbol_ S_gensym_counter;
  symbol_ S_pprint_first_newline;
  symbol_ S_inhibit_floating_point_underflow;
  symbol_ S_warn_on_floating_point_contagion;
  symbol_ S_floating_point_contagion_ansi;
  symbol_ S_warn_on_floating_point_rational_contagion;
  symbol_ S_floating_point_rational_contagion_ansi;
  symbol_ S_phase_ansi;
  symbol_ S_loop_ansi;
  symbol_ S_defun_accept_specialized_lambda_list;
  symbol_ S_specialized_lambda_list_to_ordinary;
  symbol_ S_pi;
  symbol_ S_number;
  symbol_ S_real;
  symbol_ S_most_positive_fixnum;
  symbol_ S_most_negative_fixnum;
  symbol_ S_most_positive_short_float;
  symbol_ S_least_positive_short_float;
  symbol_ S_least_negative_short_float;
  symbol_ S_most_negative_short_float;
  symbol_ S_most_positive_single_float;
  symbol_ S_least_positive_single_float;
  symbol_ S_least_negative_single_float;
  symbol_ S_most_negative_single_float;
  symbol_ S_most_positive_double_float;
  symbol_ S_least_positive_double_float;
  symbol_ S_least_negative_double_float;
  symbol_ S_most_negative_double_float;
  symbol_ S_most_positive_long_float;
  symbol_ S_least_positive_long_float;
  symbol_ S_least_negative_long_float;
  symbol_ S_most_negative_long_float;
  symbol_ S_least_positive_normalized_long_float;
  symbol_ S_least_negative_normalized_long_float;
  symbol_ S_short_float_epsilon;
  symbol_ S_single_float_epsilon;
  symbol_ S_double_float_epsilon;
  symbol_ S_long_float_epsilon;
  symbol_ S_short_float_negative_epsilon;
  symbol_ S_single_float_negative_epsilon;
  symbol_ S_double_float_negative_epsilon;
  symbol_ S_long_float_negative_epsilon;
  symbol_ S_default_float_format;
  symbol_ S_read_default_float_format;
  symbol_ S_write_float_decimal;
  symbol_ S_random_state_star;
  symbol_ S_base64;
  symbol_ S_unicode_16;
  symbol_ S_unicode_16_big_endian;
  symbol_ S_unicode_16_little_endian;
  symbol_ S_unicode_32;
  symbol_ S_unicode_32_big_endian;
  symbol_ S_unicode_32_little_endian;
  symbol_ S_utf_8;
  symbol_ S_java;
  symbol_ S_ascii;
  symbol_ S_iso8859_1;
  symbol_ S_iso8859_2;
  symbol_ S_iso8859_3;
  symbol_ S_iso8859_4;
  symbol_ S_iso8859_5;
  symbol_ S_iso8859_6;
  symbol_ S_iso8859_7;
  symbol_ S_iso8859_8;
  symbol_ S_iso8859_9;
  symbol_ S_iso8859_10;
  symbol_ S_iso8859_13;
  symbol_ S_iso8859_14;
  symbol_ S_iso8859_15;
  symbol_ S_iso8859_16;
  symbol_ S_koi8_r;
  symbol_ S_koi8_u;
  symbol_ S_mac_arabic;
  symbol_ S_mac_centraleurope;
  symbol_ S_mac_croatian;
  symbol_ S_mac_cyrillic;
  symbol_ S_mac_dingbat;
  symbol_ S_mac_greek;
  symbol_ S_mac_hebrew;
  symbol_ S_mac_iceland;
  symbol_ S_mac_roman;
  symbol_ S_mac_romania;
  symbol_ S_mac_symbol;
  symbol_ S_mac_thai;
  symbol_ S_mac_turkish;
  symbol_ S_mac_ukraine;
  symbol_ S_cp437_ms;
  symbol_ S_cp437_ibm;
  symbol_ S_cp737;
  symbol_ S_cp775;
  symbol_ S_cp850;
  symbol_ S_cp852_ms;
  symbol_ S_cp852_ibm;
  symbol_ S_cp855;
  symbol_ S_cp857;
  symbol_ S_cp860_ms;
  symbol_ S_cp860_ibm;
  symbol_ S_cp861_ms;
  symbol_ S_cp861_ibm;
  symbol_ S_cp862_ms;
  symbol_ S_cp862_ibm;
  symbol_ S_cp863_ms;
  symbol_ S_cp863_ibm;
  symbol_ S_cp864_ms;
  symbol_ S_cp864_ibm;
  symbol_ S_cp865_ms;
  symbol_ S_cp865_ibm;
  symbol_ S_cp866;
  symbol_ S_cp869_ms;
  symbol_ S_cp869_ibm;
  symbol_ S_cp874_ms;
  symbol_ S_cp874_ibm;
  symbol_ S_cp1250;
  symbol_ S_cp1251;
  symbol_ S_cp1252;
  symbol_ S_cp1253;
  symbol_ S_cp1254;
  symbol_ S_cp1256;
  symbol_ S_cp1257;
  symbol_ S_hp_roman8;
  symbol_ S_jisx0201;
  symbol_ S_ucs_2;
  symbol_ S_ucs_4;
  symbol_ S_macintosh;
  symbol_ S_windows_1250;
  symbol_ S_windows_1251;
  symbol_ S_windows_1252;
  symbol_ S_windows_1253;
  symbol_ S_windows_1254;
  symbol_ S_windows_1256;
  symbol_ S_windows_1257;
  symbol_ S_koi8_ru;
  symbol_ S_cp1255;
  symbol_ S_cp1258;
  symbol_ S_euc_jp;
  symbol_ S_shift_jis;
  symbol_ S_cp932;
  symbol_ S_iso_2022_jp;
  symbol_ S_iso_2022_jp_2;
  symbol_ S_iso_2022_jp_1;
  symbol_ S_euc_cn;
  symbol_ S_hz;
  symbol_ S_gbk;
  symbol_ S_cp936;
  symbol_ S_gb18030;
  symbol_ S_euc_tw;
  symbol_ S_big5;
  symbol_ S_cp950;
  symbol_ S_big5_hkscs;
  symbol_ S_iso_2022_cn;
  symbol_ S_iso_2022_cn_ext;
  symbol_ S_euc_kr;
  symbol_ S_cp949;
  symbol_ S_iso_2022_kr;
  symbol_ S_johab;
  symbol_ S_armscii_8;
  symbol_ S_georgian_academy;
  symbol_ S_georgian_ps;
  symbol_ S_tis_620;
  symbol_ S_mulelao_1;
  symbol_ S_cp1133;
  symbol_ S_viscii;
  symbol_ S_tcvn;
  symbol_ S_utf_16;
  symbol_ S_utf_7;
  symbol_ S_windows_1255;
  symbol_ S_windows_1258;
  symbol_ S_english;
  symbol_ S_german;
  symbol_ S_french;
  symbol_ S_spanish;
  symbol_ S_dutch;
  symbol_ S_russian;
  symbol_ S_danish;
  symbol_ S_swedish;
  symbol_ S_init_hooks;
  symbol_ S_fini_hooks;
  symbol_ S_quiet;
  symbol_ S_norc;
  symbol_ S_script;
  symbol_ S_image_doc;
  symbol_ S_main_loop;
  symbol_ S_Klisting;
  symbol_ S_Koutput_file;
  symbol_ S_compile_file;
  symbol_ S_load_compiling;
  symbol_ S_load_verbose;
  symbol_ S_load_print;
  symbol_ S_load_echo;
  symbol_ S_load_paths;
  symbol_ S_compile_print;
  symbol_ S_compile_verbose;
  symbol_ S_saveinitmem_verbose;
  symbol_ S_report_error_print_backtrace;
  symbol_ S_args;
  symbol_ S_appease_cerror;
  symbol_ S_exitunconditionally;
  symbol_ S_exitonerror;
  symbol_ S_abortonerror;
  symbol_ S_interrupt_condition;
  symbol_ S_serious_condition;
  symbol_ S_set_global_handler;
  symbol_ S_global_handler;
  symbol_ S_wait_keypress;
  symbol_ S_disassemble_use_live_process;
  symbol_ S_disassemble_closures;
  symbol_ S_uchar;
  symbol_ S_short;
  symbol_ S_ushort;
  symbol_ S_int;
  symbol_ S_uint;
  symbol_ S_long;
  symbol_ S_ulong;
  symbol_ S_uint8;
  symbol_ S_sint8;
  symbol_ S_uint16;
  symbol_ S_sint16;
  symbol_ S_uint32;
  symbol_ S_sint32;
  symbol_ S_uint64;
  symbol_ S_sint64;
  symbol_ S_c_pointer;
  symbol_ S_c_string;
  symbol_ S_c_struct;
  symbol_ S_c_union;
  symbol_ S_c_array;
  symbol_ S_c_array_max;
  symbol_ S_c_function;
  symbol_ S_c_ptr;
  symbol_ S_c_ptr_null;
  symbol_ S_c_array_ptr;
  symbol_ S_fv_flag_readonly;
  symbol_ S_fv_flag_malloc_free;
  symbol_ S_ff_flag_alloca;
  symbol_ S_ff_flag_malloc_free;
  symbol_ S_ff_flag_out;
  symbol_ S_ff_flag_in_out;
  symbol_ S_ff_language_asm;
  symbol_ S_ff_language_c;
  symbol_ S_ff_language_ansi_c;
  symbol_ S_ff_language_stdcall;
  symbol_ S_foreign_call_in;
} symbol_tab_data;
#define S(name) S_help_(S_##name)
#define symbol_tab  symbol_tab_data
#define S_help_(name)  ((object)((UBYTE*)(&symbol_tab_data.name)+(2)))
#define NIL  ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2)))
#define T  ((object)((UBYTE*)(&symbol_tab_data.S_t)+(2)))
extern struct object_tab_ {
  gcv_object_t all_weakpointers;
  gcv_object_t all_finalizers;
  gcv_object_t pending_finalizers;
  gcv_object_t default_file_encoding;
  gcv_object_t terminal_encoding;
  gcv_object_t internal_encoding;
  gcv_object_t pathname_encoding;
  gcv_object_t foreign_encoding;
  gcv_object_t foreign_8bit_encoding;
  gcv_object_t misc_encoding;
  gcv_object_t type_line_terminator;
  gcv_object_t type_input_error_action;
  gcv_object_t type_output_error_action;
  gcv_object_t charname_0_1;
  gcv_object_t charname_7_1;
  gcv_object_t charname_8_1;
  gcv_object_t charname_9_1;
  gcv_object_t charname_10_1;
  gcv_object_t charname_10_2;
  gcv_object_t charname_10_3;
  gcv_object_t charname_12_1;
  gcv_object_t charname_12_2;
  gcv_object_t charname_13_1;
  gcv_object_t charname_27_1;
  gcv_object_t charname_32_1;
  gcv_object_t charname_127_1;
  gcv_object_t charname_127_2;
  gcv_object_t charname_0;
  gcv_object_t charname_1;
  gcv_object_t charname_2;
  gcv_object_t charname_3;
  gcv_object_t charname_4;
  gcv_object_t charname_5;
  gcv_object_t charname_6;
  gcv_object_t charname_7;
  gcv_object_t charname_8;
  gcv_object_t charname_9;
  gcv_object_t charname_10;
  gcv_object_t charname_11;
  gcv_object_t charname_12;
  gcv_object_t charname_13;
  gcv_object_t charname_14;
  gcv_object_t charname_15;
  gcv_object_t charname_16;
  gcv_object_t charname_17;
  gcv_object_t charname_18;
  gcv_object_t charname_19;
  gcv_object_t charname_20;
  gcv_object_t charname_21;
  gcv_object_t charname_22;
  gcv_object_t charname_23;
  gcv_object_t charname_24;
  gcv_object_t charname_25;
  gcv_object_t charname_26;
  gcv_object_t charname_27;
  gcv_object_t charname_28;
  gcv_object_t charname_29;
  gcv_object_t charname_30;
  gcv_object_t charname_31;
  gcv_object_t charname_32;
  gcv_object_t charname_127;
  gcv_object_t type_vector_with_fill_pointer;
  gcv_object_t type_eq_hashfunction;
  gcv_object_t type_eql_hashfunction;
  gcv_object_t type_equal_hashfunction;
  gcv_object_t type_weak_ht;
  gcv_object_t constant_initfunction_code;
  gcv_object_t endless_loop_code;
  gcv_object_t type_weak_alist;
  gcv_object_t seq_types;
  gcv_object_t type_recognizable_sequence_type;
  gcv_object_t kwpair_start;
  gcv_object_t kwpair_end;
  gcv_object_t kwpair_start1;
  gcv_object_t kwpair_end1;
  gcv_object_t kwpair_start2;
  gcv_object_t kwpair_end2;
  gcv_object_t class_version_standard_class;
  gcv_object_t class_version_structure_class;
  gcv_object_t class_version_built_in_class;
  gcv_object_t class_defined_class;
  gcv_object_t class_potential_class;
  gcv_object_t class_array;
  gcv_object_t class_bit_vector;
  gcv_object_t class_character;
  gcv_object_t class_complex;
  gcv_object_t class_cons;
  gcv_object_t class_float;
  gcv_object_t class_function;
  gcv_object_t class_hash_table;
  gcv_object_t class_integer;
  gcv_object_t class_list;
  gcv_object_t class_null;
  gcv_object_t class_package;
  gcv_object_t class_pathname;
  gcv_object_t class_logical_pathname;
  gcv_object_t class_random_state;
  gcv_object_t class_ratio;
  gcv_object_t class_readtable;
  gcv_object_t class_stream;
  gcv_object_t class_file_stream;
  gcv_object_t class_synonym_stream;
  gcv_object_t class_broadcast_stream;
  gcv_object_t class_concatenated_stream;
  gcv_object_t class_two_way_stream;
  gcv_object_t class_echo_stream;
  gcv_object_t class_string_stream;
  gcv_object_t class_string;
  gcv_object_t class_symbol;
  gcv_object_t class_t;
  gcv_object_t class_vector;
  gcv_object_t type_designator_character;
  gcv_object_t type_designator_function;
  gcv_object_t structure_class_count_max;
  gcv_object_t standard_class_count_max;
  gcv_object_t hs_t;
  gcv_object_t hs_cons;
  gcv_object_t hs_null;
  gcv_object_t hs_symbol;
  gcv_object_t hs_simple_bit_vector;
  gcv_object_t hs_simple_2bit_vector;
  gcv_object_t hs_simple_4bit_vector;
  gcv_object_t hs_simple_8bit_vector;
  gcv_object_t hs_simple_16bit_vector;
  gcv_object_t hs_simple_32bit_vector;
  gcv_object_t hs_simple_nilvector;
  gcv_object_t hs_simple_string;
  gcv_object_t hs_simple_vector;
  gcv_object_t hs_bit_vector;
  gcv_object_t hs_2bit_vector;
  gcv_object_t hs_4bit_vector;
  gcv_object_t hs_8bit_vector;
  gcv_object_t hs_16bit_vector;
  gcv_object_t hs_32bit_vector;
  gcv_object_t hs_nilvector;
  gcv_object_t hs_string;
  gcv_object_t hs_vector;
  gcv_object_t hs_simple_array;
  gcv_object_t hs_array;
  gcv_object_t hs_function;
  gcv_object_t hs_file_stream;
  gcv_object_t hs_synonym_stream;
  gcv_object_t hs_broadcast_stream;
  gcv_object_t hs_concatenated_stream;
  gcv_object_t hs_two_way_stream;
  gcv_object_t hs_echo_stream;
  gcv_object_t hs_string_stream;
  gcv_object_t hs_stream;
  gcv_object_t hs_hash_table;
  gcv_object_t hs_package;
  gcv_object_t hs_readtable;
  gcv_object_t hs_pathname;
  gcv_object_t hs_logical_pathname;
  gcv_object_t hs_random_state;
  gcv_object_t hs_byte;
  gcv_object_t hs_special_operator;
  gcv_object_t hs_load_time_eval;
  gcv_object_t hs_symbol_macro;
  gcv_object_t hs_global_symbol_macro;
  gcv_object_t hs_macro;
  gcv_object_t hs_function_macro;
  gcv_object_t hs_big_read_label;
  gcv_object_t hs_encoding;
  gcv_object_t hs_foreign_pointer;
  gcv_object_t hs_foreign_address;
  gcv_object_t hs_foreign_variable;
  gcv_object_t hs_foreign_function;
  gcv_object_t hs_realloc_simple_string;
  gcv_object_t hs_realloc_instance;
  gcv_object_t hs_weakpointer;
  gcv_object_t hs_weak_list;
  gcv_object_t hs_weak_alist;
  gcv_object_t hs_weakmapping;
  gcv_object_t hs_finalizer;
  gcv_object_t hs_socket_server;
  gcv_object_t hs_internal_weak_list;
  gcv_object_t hs_weak_and_relation;
  gcv_object_t hs_weak_or_relation;
  gcv_object_t hs_weak_and_mapping;
  gcv_object_t hs_weak_or_mapping;
  gcv_object_t hs_internal_weak_alist;
  gcv_object_t hs_internal_weak_hashed_alist;
  gcv_object_t hs_system_function;
  gcv_object_t hs_bignum;
  gcv_object_t hs_ratio;
  gcv_object_t hs_single_float;
  gcv_object_t hs_double_float;
  gcv_object_t hs_long_float;
  gcv_object_t hs_complex;
  gcv_object_t gc_statistics_list;
  gcv_object_t all_packages;
  gcv_object_t keyword_package;
  gcv_object_t charset_package;
  gcv_object_t default_package;
  gcv_object_t use_default;
  gcv_object_t modern_user_package;
  gcv_object_t gensym_prefix;
  gcv_object_t gentemp_prefix;
  gcv_object_t gentemp_counter;
  gcv_object_t lisp_implementation_type_string;
  gcv_object_t lisp_implementation_package_version;
  gcv_object_t lisp_implementation_version_built_string;
  gcv_object_t lisp_implementation_version_string;
  gcv_object_t memory_image_timestamp;
  gcv_object_t memory_image_host;
  gcv_object_t version;
  gcv_object_t machine_type_string;
  gcv_object_t machine_version_string;
  gcv_object_t machine_instance_string;
  gcv_object_t operating_system_type_string;
  gcv_object_t operating_system_version_string;
  gcv_object_t software_type;
  gcv_object_t c_compiler_version;
  gcv_object_t argv;
  gcv_object_t current_language;
  gcv_object_t ansi;
  gcv_object_t error_string1;
  gcv_object_t error_types;
  gcv_object_t type_function_name;
  gcv_object_t type_uint8;
  gcv_object_t type_sint8;
  gcv_object_t type_uint16;
  gcv_object_t type_sint16;
  gcv_object_t type_uint32;
  gcv_object_t type_sint32;
  gcv_object_t type_uint64;
  gcv_object_t type_sint64;
  gcv_object_t type_array_index;
  gcv_object_t type_array_length;
  gcv_object_t type_array_bit;
  gcv_object_t type_posfixnum;
  gcv_object_t type_negfixnum;
  gcv_object_t type_posbignum;
  gcv_object_t type_negbignum;
  gcv_object_t type_posfixnum1;
  gcv_object_t type_array_rank;
  gcv_object_t type_radix;
  gcv_object_t type_end_index;
  gcv_object_t type_posinteger;
  gcv_object_t type_stringsymchar;
  gcv_object_t type_proper_list;
  gcv_object_t type_svector2;
  gcv_object_t type_svector5;
  gcv_object_t type_climb_mode;
  gcv_object_t type_hashtable_test;
  gcv_object_t type_hashtable_size;
  gcv_object_t type_hashtable_rehash_size;
  gcv_object_t type_hashtable_rehash_threshold;
  gcv_object_t type_boole;
  gcv_object_t type_not_digit;
  gcv_object_t type_rtcase;
  gcv_object_t type_peektype;
  gcv_object_t type_printcase;
  gcv_object_t type_pprint_newline;
  gcv_object_t type_pprint_indent;
  gcv_object_t type_random_arg;
  gcv_object_t type_packname;
  gcv_object_t type_posint16;
  gcv_object_t type_string_integer;
  gcv_object_t type_stringsize;
  gcv_object_t type_uint8_vector;
  gcv_object_t type_position;
  gcv_object_t type_host;
  gcv_object_t type_version;
  gcv_object_t type_direction;
  gcv_object_t type_if_exists;
  gcv_object_t type_if_does_not_exist;
  gcv_object_t type_directory_not_exist;
  gcv_object_t type_external_format;
  gcv_object_t type_pathname_field_key;
  gcv_object_t type_socket_option;
  gcv_object_t type_logical_pathname;
  gcv_object_t type_builtin_stream;
  gcv_object_t lib_dir;
  gcv_object_t type_designator_pathname;
  gcv_object_t type_priority;
  gcv_object_t empty_logical_pathname;
  gcv_object_t handler_for_parse_error;
  gcv_object_t type_logical_pathname_string;
  gcv_object_t default_logical_pathname_host;
  gcv_object_t empty_string;
  gcv_object_t wild_string;
  gcv_object_t colon_string;
  gcv_object_t semicolon_string;
  gcv_object_t slash_string;
  gcv_object_t dot_string;
  gcv_object_t dotdot_string;
  gcv_object_t dotdotdot_string;
  gcv_object_t backupextend_string;
  gcv_object_t wildwild_string;
  gcv_object_t directory_absolute;
  gcv_object_t user_homedir;
  gcv_object_t command_shell;
  gcv_object_t command_shell_option;
  gcv_object_t user_shell;
  gcv_object_t open_files;
  gcv_object_t files_to_close;
  gcv_object_t source_file_type;
  gcv_object_t compiled_file_type;
  gcv_object_t listing_file_type;
  gcv_object_t class_fundamental_stream;
  gcv_object_t class_fundamental_input_stream;
  gcv_object_t class_fundamental_output_stream;
  gcv_object_t type_input_stream;
  gcv_object_t type_output_stream;
  gcv_object_t type_string_with_fill_pointer;
  gcv_object_t handler_for_charset_type_error;
  gcv_object_t handler_for_error;
  gcv_object_t setf_stream_element_type;
  gcv_object_t type_endianness;
  gcv_object_t type_open_file_stream;
  gcv_object_t strmtype_ubyte8;
  gcv_object_t standard_input_file_stream;
  gcv_object_t standard_output_file_stream;
  gcv_object_t standard_error_file_stream;
  gcv_object_t type_buffered_arg;
  gcv_object_t rtcase_0;
  gcv_object_t rtcase_1;
  gcv_object_t rtcase_2;
  gcv_object_t rtcase_3;
  gcv_object_t standard_readtable;
  gcv_object_t dispatch_reader;
  gcv_object_t dispatch_reader_index;
  gcv_object_t charname_prefix;
  gcv_object_t handler_for_arithmetic_error;
  gcv_object_t tildeA;
  gcv_object_t printstring_array;
  gcv_object_t printstring_fill_pointer;
  gcv_object_t printstring_address;
  gcv_object_t printstring_system;
  gcv_object_t printstring_frame_pointer;
  gcv_object_t printstring_read_label;
  gcv_object_t printstring_unbound;
  gcv_object_t printstring_unbound_readably;
  gcv_object_t printstring_special_reference;
  gcv_object_t printstring_implementation_dependent;
  gcv_object_t printstring_disabled_pointer;
  gcv_object_t printstring_dot;
  gcv_object_t printstring_eof;
  gcv_object_t printstring_deleted;
  gcv_object_t printstring_package;
  gcv_object_t printstring_readtable;
  gcv_object_t pathname_slotlist;
  gcv_object_t byte_slotlist;
  gcv_object_t printstring_symbolmacro;
  gcv_object_t printstring_globalsymbolmacro;
  gcv_object_t printstring_macro;
  gcv_object_t printstring_functionmacro;
  gcv_object_t printstring_encoding;
  gcv_object_t printstring_invalid;
  gcv_object_t printstring_fpointer;
  gcv_object_t printstring_faddress;
  gcv_object_t printstring_fvariable;
  gcv_object_t printstring_ffunction;
  gcv_object_t printstring_weakpointer;
  gcv_object_t printstring_broken_weakpointer;
  gcv_object_t printstring_weak_list;
  gcv_object_t printstring_weak_alist;
  gcv_object_t printstring_weakmapping;
  gcv_object_t printstring_broken_weakmapping;
  gcv_object_t printstring_finalizer;
  gcv_object_t printstring_socket_server;
  gcv_object_t printstring_internal_weak_list;
  gcv_object_t printstring_weak_and_relation;
  gcv_object_t printstring_broken_weak_and_relation;
  gcv_object_t printstring_weak_or_relation;
  gcv_object_t printstring_broken_weak_or_relation;
  gcv_object_t printstring_weak_and_mapping;
  gcv_object_t printstring_broken_weak_and_mapping;
  gcv_object_t printstring_weak_or_mapping;
  gcv_object_t printstring_broken_weak_or_mapping;
  gcv_object_t printstring_internal_weak_alist;
  gcv_object_t printstring_internal_weak_hashed_alist;
  gcv_object_t printstring_closure;
  gcv_object_t printstring_compiled_closure;
  gcv_object_t printstring_subr;
  gcv_object_t printstring_addon_subr;
  gcv_object_t printstring_fsubr;
  gcv_object_t printstring_closed;
  gcv_object_t printstring_input;
  gcv_object_t printstring_output;
  gcv_object_t printstring_io;
  gcv_object_t printstring_buffered_00;
  gcv_object_t printstring_buffered_01;
  gcv_object_t printstring_buffered_10;
  gcv_object_t printstring_buffered_11;
  gcv_object_t printstring_strmtype_synonym;
  gcv_object_t printstring_strmtype_broad;
  gcv_object_t printstring_strmtype_concat;
  gcv_object_t printstring_strmtype_twoway;
  gcv_object_t printstring_strmtype_echo;
  gcv_object_t printstring_strmtype_str_in;
  gcv_object_t printstring_strmtype_str_out;
  gcv_object_t printstring_strmtype_str_push;
  gcv_object_t printstring_strmtype_pphelp;
  gcv_object_t printstring_strmtype_buff_in;
  gcv_object_t printstring_strmtype_buff_out;
  gcv_object_t printstring_strmtype_generic;
  gcv_object_t printstring_strmtype_file;
  gcv_object_t printstring_strmtype_keyboard;
  gcv_object_t printstring_strmtype_terminal;
  gcv_object_t printstring_strmtype_window;
  gcv_object_t printstring_strmtype_pipe_in;
  gcv_object_t printstring_strmtype_pipe_out;
  gcv_object_t printstring_strmtype_x11socket;
  gcv_object_t printstring_strmtype_socket;
  gcv_object_t printstring_strmtype_twoway_socket;
  gcv_object_t printstring_stream;
  gcv_object_t FF_zero;
  gcv_object_t FF_one;
  gcv_object_t FF_minusone;
  gcv_object_t DF_zero;
  gcv_object_t DF_one;
  gcv_object_t DF_minusone;
  gcv_object_t LF_digits;
  gcv_object_t SF_pi;
  gcv_object_t FF_pi;
  gcv_object_t DF_pi;
  gcv_object_t pi;
  gcv_object_t LF_pi;
  gcv_object_t LF_ln2;
  gcv_object_t LF_ln10;
  gcv_object_t top_decl_env;
  gcv_object_t declaration_types;
  gcv_object_t newline_string;
  gcv_object_t prompt_string;
  gcv_object_t breakprompt_string;
  gcv_object_t showstack_string_lisp_obj;
  gcv_object_t showstack_string_bindung;
  gcv_object_t showstack_string_zuord;
  gcv_object_t showstack_string_zuordtag;
  gcv_object_t showstack_string_VENV_frame;
  gcv_object_t showstack_string_FENV_frame;
  gcv_object_t showstack_string_BENV_frame;
  gcv_object_t showstack_string_GENV_frame;
  gcv_object_t showstack_string_DENV_frame;
  gcv_object_t seclass_no_se;
  gcv_object_t seclass_read;
  gcv_object_t seclass_rd_sig;
  gcv_object_t seclass_write;
  gcv_object_t seclass_default;
  gcv_object_t unknown_error;
  gcv_object_t oomst_error;
  gcv_object_t fp_zero;
  gcv_object_t foreign_variable_table;
  gcv_object_t foreign_function_table;
  gcv_object_t foreign_inttype_table;
  gcv_object_t type_foreign_variable;
  gcv_object_t type_foreign_function;
  gcv_object_t foreign_libraries;
  gcv_object_t foreign_callin_table;
  gcv_object_t foreign_callin_vector;
  gcv_object_t token_buff_1;
  gcv_object_t token_buff_2;
  gcv_object_t displaced_string;
} object_tab;
#define GLO(name)  (object_tab.name)
#define PROT_READ  0x01
#define PROT_READ_WRITE  (0x01 | 0x02)
#define handle_fault_range(p,s,e) ((void)(p),(void)(s),(void)(e))
extern uintWL module_count;
typedef struct { const char* packname; const char* symname; } subr_initdata_t;
typedef struct { const char* initstring; } object_initdata_t;
typedef struct module_t { const char* name; subr_t* stab; const uintC* stab_size; gcv_object_t* otab; const uintC* otab_size; bool initialized; const subr_initdata_t* stab_initdata; const object_initdata_t* otab_initdata; void (*initfunction1) (struct module_t *); void (*initfunction2) (struct module_t *); void (*finifunction) (struct module_t *); struct module_t * next; } module_t;
BEGIN_DECLS
extern void add_module(module_t * new_module);
END_DECLS
#define STACK_(n)  (STACK[-1-(sintP)(n)])
#define skipSTACKop  -=
#define STACKop  -
#define pushSTACK(obj)  ((STACK[-1-(sintP)(-1)]) = (obj), STACK -= -1)
#define popSTACK()  (STACK -= 1, (STACK[-1-(sintP)(-1)]))
#define skipSTACK(n)  (STACK -= (sintP)(n))
#define STACK_0  (STACK_(0))
#define STACK_1  (STACK_(1))
#define STACK_2  (STACK_(2))
#define STACK_3  (STACK_(3))
#define STACK_4  (STACK_(4))
#define STACK_5  (STACK_(5))
#define STACK_6  (STACK_(6))
#define STACK_7  (STACK_(7))
#define STACK_8  (STACK_(8))
#define STACK_9  (STACK_(9))
#define STACK_10  (STACK_(10))
extern uintWL mv_count;
extern object mv_space [127];
#define value1 mv_space[0]
#define value2  mv_space[1]
#define value3  mv_space[2]
#define value4  mv_space[3]
#define value5  mv_space[4]
#define value6  mv_space[5]
#define value7  mv_space[6]
#define value8  mv_space[7]
#define value9  mv_space[8]
#define STACK_to_mv(countx)  do { uintWL count = (countx); mv_count = count; if (count == 0) mv_space[0] = ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))); else { object* mvp = &mv_space[count]; do { if (!(sizeof(count)==sizeof(uintL))) { dotimes_called_with_count_of_wrong_size(); }; { count = (count); do {{ *--mvp = (STACK -= 1, (STACK[-1-(sintP)(-1)])); }} while (--count != 0); }; } while(0); } } while(0)
extern p_backtrace_t back_trace;
#define subr_self  back_trace->bt_function
#define args_end_pointer STACK
#define makebottomword(type,size)  (gcv_object_t)((oint)(type)+((oint)(size)<<6))
#define framecode(bottomword)  ((oint)(bottomword) & 0x3F)
#define framebottomword(type,top_of_frame,bot_of_frame)  (gcv_object_t)((oint)(type)+((oint)((uintP)(bot_of_frame)-(uintP)(top_of_frame))<<6))
#define finish_frame(frametype)  ((STACK[-1-(sintP)(-1)]) = (gcv_object_t)((oint)(frametype_frame_info)+((oint)((uintP)(STACK - -1)-(uintP)(top_of_frame))<<6)), (STACK -= (sintP)(-1)))
extern Values funcall(object fun, uintWL argcount);
extern object n_char_to_string(const char* charptr, uintL len, object encoding);
extern object asciz_to_string(const char * asciz, object encoding);
extern object ascii_to_string(const char * asciz);
extern object string_to_asciz(object obj, object encoding);
#define TheAsciz(obj)  ((char*)(&((Sbvector)((oint)(obj)-2))->data[0]))
#define with_string_0_help_(string,encoding,ascizvar,statement,ascizvar_len,ascizvar_offset,ascizvar_string,ascizvar_bytelen,ascizvar_data,asserter,notreached)  do { uintL ascizvar_len; uintL ascizvar_offset; object ascizvar_string = unpack_string_ro(string,&ascizvar_len,&ascizvar_offset); const chart* ptr1; if ((((ascizvar_string) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))))))) { if ((ascizvar_len) > 0) error_nilarray_retrieve(); ptr1= ((void*) 0L); } else if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 2) { ptr1= (const chart*) &((S32string)((oint)(ascizvar_string)-2))->data[ascizvar_offset]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((ascizvar_len)*sizeof(chart)); if ((ascizvar_len) > 0) { if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 1) copy_16bit_32bit(&((S16string)((oint)(ascizvar_string)-2))->data[ascizvar_offset],(cint32*)_unpacked_,ascizvar_len); else if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 0) copy_8bit_32bit(&((S8string)((oint)(ascizvar_string)-2))->data[ascizvar_offset],(cint32*)_unpacked_,ascizvar_len); else notreached; } ptr1= (const chart*) _unpacked_; }; {uintL ascizvar_bytelen = ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcslen)-0))))(encoding,ptr1,(ptr1)+(ascizvar_len)); uintB ascizvar_data[ascizvar_bytelen+1]; do { const chart* _srcptr = (ptr1); const chart* _srcendptr = _srcptr+(ascizvar_len); uintB* _destptr = (&ascizvar_data[0]); uintB* _destendptr = _destptr+(ascizvar_bytelen); ((void (*) (object, object, const chart**, const chart*, uintB**, uintB*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcstombs)-0))))(encoding,(gcv_object_t)((oint)(0)+0),&_srcptr,_srcendptr,&_destptr,_destendptr); asserter((_srcptr == _srcendptr) && (_destptr == _destendptr)); } while(0); ascizvar_data[ascizvar_bytelen] = '\0'; {char* ascizvar = (char*) &ascizvar_data[0]; statement} ; }} while(0)
#define with_sstring_0_help_(string,encoding,ascizvar,statement,ascizvar_len,ascizvar_string,ascizvar_bytelen,ascizvar_data,asserter,notreached)  do { object ascizvar_string = (string); while ((((sintB)((((Record)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) == Rectype_reallocstring)) (ascizvar_string) = ((Sistring)((oint)(ascizvar_string)-2))->data; {uintL ascizvar_len = ((((Sstring)((oint)(ascizvar_string)-2)))->tfl >> 10); const chart* ptr1; if ((((ascizvar_string) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))))))) { if ((ascizvar_len) > 0) error_nilarray_retrieve(); ptr1= ((void*) 0L); } else if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 2) { ptr1= (const chart*) &((S32string)((oint)(ascizvar_string)-2))->data[0]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((ascizvar_len)*sizeof(chart)); if ((ascizvar_len) > 0) { if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 1) copy_16bit_32bit(&((S16string)((oint)(ascizvar_string)-2))->data[0],(cint32*)_unpacked_,ascizvar_len); else if (((((sintB)((((Sstring)((oint)(ascizvar_string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 0) copy_8bit_32bit(&((S8string)((oint)(ascizvar_string)-2))->data[0],(cint32*)_unpacked_,ascizvar_len); else notreached; } ptr1= (const chart*) _unpacked_; }; {uintL ascizvar_bytelen = ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcslen)-0))))(encoding,ptr1,(ptr1)+(ascizvar_len)); uintB ascizvar_data[ascizvar_bytelen+1]; do { const chart* _srcptr = (ptr1); const chart* _srcendptr = _srcptr+(ascizvar_len); uintB* _destptr = (&ascizvar_data[0]); uintB* _destendptr = _destptr+(ascizvar_bytelen); ((void (*) (object, object, const chart**, const chart*, uintB**, uintB*)) ((Pseudofun)((void*)((oint)(((Encoding)((oint)(encoding)-2))->enc_wcstombs)-0))))(encoding,(gcv_object_t)((oint)(0)+0),&_srcptr,_srcendptr,&_destptr,_destendptr); asserter((_srcptr == _srcendptr) && (_destptr == _destendptr)); } while(0); ascizvar_data[ascizvar_bytelen] = '\0'; {char* ascizvar = (char*) &ascizvar_data[0]; statement} ; }}} while(0)
#define with_string_0(string,encoding,ascizvar,statement) with_string_0_help_(string,encoding,ascizvar,statement,ascizvar##_len,ascizvar##_offset,ascizvar##_string,ascizvar##_bytelen,ascizvar##_data,ASSERT,NOTREACHED)
#define with_sstring_0(string,encoding,ascizvar,statement) with_sstring_0_help_(string,encoding,ascizvar,statement,ascizvar##_len,ascizvar##_string,ascizvar##_bytelen,ascizvar##_data,ASSERT,NOTREACHED)
extern object data_to_sbvector(uintB atype, uintL vec_len, const void *data, uintL byte_len);
#define data_to_sb8vector(data,bytelen)  data_to_sbvector(3,bytelen,data,bytelen)
extern uintL vector_length(object vector);
extern object vectorof(uintWL len);
extern object array_displace_check(object array, uintV size, uintL* index);
#define simple_nilarray_p(obj)  (((obj) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))))))
_Noreturn extern void  error_nilarray_retrieve(void);
extern uintBWL array_atype(object array);
extern uintL array_rank(object array);
extern void get_array_dimensions(object array, uintL rank, uintL* dimensions);
extern void copy_8bit_16bit(const uint8* src, uint16* dest, uintL len);
extern void copy_8bit_32bit(const uint8* src, uint32* dest, uintL len);
extern void copy_16bit_8bit(const uint16* src, uint8* dest, uintL len);
extern void copy_16bit_16bit(const uint16* src, uint16* dest, uintL len);
extern void copy_16bit_32bit(const uint16* src, uint32* dest, uintL len);
extern void copy_32bit_8bit(const uint32* src, uint8* dest, uintL len);
extern void copy_32bit_16bit(const uint32* src, uint16* dest, uintL len);
#define unpack_sstring_alloca_help_(string,len,offset,charptr_assignment,notreached)  if ((((string) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2))))))) { if ((len) > 0) error_nilarray_retrieve(); charptr_assignment ((void*) 0L); } else if (((((sintB)((((Sstring)((oint)(string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 2) { charptr_assignment (const chart*) &((S32string)((oint)(string)-2))->data[offset]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((len)*sizeof(chart)); if ((len) > 0) { if (((((sintB)((((Sstring)((oint)(string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 1) copy_16bit_32bit(&((S16string)((oint)(string)-2))->data[offset],(cint32*)_unpacked_,len); else if (((((sintB)((((Sstring)((oint)(string)-2)))->tfl & 0xFF)) - Rectype_S8string) >> 1) == 0) copy_8bit_32bit(&((S8string)((oint)(string)-2))->data[offset],(cint32*)_unpacked_,len); else notreached; } charptr_assignment (const chart*) _unpacked_; }
#define unpack_sstring_alloca(s,l,o,c) unpack_sstring_alloca_help_(s,l,o,c,NOTREACHED)
extern object unpack_string_ro(object string, uintL* len, uintL* offset);
extern _Bool string_equal(object string1, object string2);
typedef struct stringarg { object string; uintL offset; uintL index; uintL len; } stringarg;
extern void test_vector_limits(stringarg* arg);
extern object string_concat(uintWL argcount);
extern object gethash(object obj, object ht, _Bool allowgc);
extern object copy_list(object old_list);
extern uintL llength1(object obj, object* last);
extern object nreverse(object list);
extern object deleteq(object list, object obj);
extern _Bool endp(object obj);
extern object listof(uintWL len);
extern object memq(const object obj, const object lis);
typedef struct { long c_const; gcv_object_t *l_const; } c_lisp_pair_t;
typedef struct { const c_lisp_pair_t *table; const unsigned int size; const long default_value; const bool have_default_value_p;  const char *name; } c_lisp_map_t;
extern long map_lisp_to_c(object obj, const c_lisp_map_t *map);
extern object map_c_to_lisp(long val, const c_lisp_map_t *map);
extern object map_c_to_list(long val, const c_lisp_map_t *map);
extern long map_list_to_c(object obj, const c_lisp_map_t *map);
extern void push_string_array(char **arr);
extern object safe_to_string(const char *asciz);
typedef enum { condition=0, serious_condition=1, error_condition=2, program_error=3, source_program_error=4, control_error=5, arithmetic_error=6, division_by_zero=7, floating_point_overflow=8, floating_point_underflow=9, cell_error=10, unbound_variable=11, undefined_function=12, unbound_slot=13, type_error=14, keyword_error=15, charset_type_error=16, package_error=18, print_not_readable=19, parse_error=20, stream_error=21, end_of_file=22, reader_error=23, file_error=24, storage_condition=25, interrupt_condition=26, warning=27 } condition_t;
_Noreturn extern void  error(condition_t errortype, const char * errorstring);
extern void check_value(condition_t errortype, const char * errorstring);
_Noreturn extern void  OS_error_arg(object etype, object arg);
#define OS_file_error(path) OS_error_arg(S(os_file_error),path)
_Noreturn extern void  OS_filestream_error(object stream);
extern object check_classname(object obj, object classname);
extern object check_fpointer_replacement(object obj, _Bool restart_p);
#ifndef COMPILE_STANDALONE
static inline object check_fpointer (object obj, bool restart_p) { if (!(fpointerp(obj) && fp_validp(TheFpointer(obj)))) obj = check_fpointer_replacement(obj,restart_p); return obj; }
#endif
extern object check_list_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_list (object obj) { if (!((((obj) == (((object)((UBYTE*)(&symbol_tab_data.S_nil)+(2)))))) || (((oint)(obj) & 7) == (2+0)))) obj = check_list_replacement(obj); return obj; }
#endif
_Noreturn extern void  error_proper_list_dotted(object caller, object obj);
extern object check_array_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_array (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_vector) <= Rectype_mdarray - Rectype_vector))) obj = check_array_replacement(obj); return obj; }
#endif
extern object check_vector_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_vector) <= Rectype_string - Rectype_vector))) obj = check_vector_replacement(obj); return obj; }
#endif
extern object check_byte_vector_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
#endif
extern object check_posfixnum_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_posfixnum (object obj) { if (!(((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000))) obj = check_posfixnum_replacement(obj); return obj; }
#endif
extern object check_pos_integer_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_pos_integer (object obj) { if (!(((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || ((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)))&&!(!((((oint)(obj) & (1UL<<(1))) == 0) ? ((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0 : ((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)))) obj = check_pos_integer_replacement(obj); return obj; }
#endif
extern object check_string_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_string (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((uintB)(((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) - Rectype_S8string) <= Rectype_string - Rectype_S8string))) obj = check_string_replacement(obj); return obj; }
#endif
_Noreturn extern void  error_string_integer(object obj);
_Noreturn extern void  error_plist_odd(object plist);
_Noreturn extern void  error_key_odd(uintWL argcount, object caller);
_Noreturn extern void  error_key_badkw(object fun, object key, object val, object kwlist);
_Noreturn extern void  error_c_integer(object obj, int tcode, _Bool signedp);
#define error_uint8(obj)  error_c_integer(obj,0,1)
#define error_sint8(obj)  error_c_integer(obj,0,1)
#define error_uint16(obj)  error_c_integer(obj,1,0)
#define error_sint16(obj)  error_c_integer(obj,1,1)
#define error_uint32(obj)  error_c_integer(obj,2,0)
#define error_sint32(obj)  error_c_integer(obj,2,1)
#define error_uint64(obj)  error_c_integer(obj,3,0)
#define error_sint64(obj)  error_c_integer(obj,3,1)
#define error_uint error_uint32
#define error_sint error_sint32
#define error_ulong error_uint32
#define error_slong error_sint32
extern object check_c_integer_replacement(object obj, int tcode, _Bool signedp);
#define check_uint8_replacement(obj)  check_c_integer_replacement(obj,0,0)
#ifndef COMPILE_STANDALONE
static inline object check_uint8 (object obj) { if (!(((oint)(obj) & ~((oint)0xFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) obj = check_c_integer_replacement(obj,0,0); return obj; }
#endif
#define check_sint8_replacement(obj)  check_c_integer_replacement(obj,0,1)
#ifndef COMPILE_STANDALONE
static inline object check_sint8 (object obj) { if (!((((oint)(obj) ^ ((((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))^(oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) & ~((oint)0x7F << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) obj = check_c_integer_replacement(obj,0,1); return obj; }
#endif
#define check_uint16_replacement(obj)  check_c_integer_replacement(obj,1,0)
#ifndef COMPILE_STANDALONE
static inline object check_uint16 (object obj) { if (!(((oint)(obj) & ~((oint)0xFFFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) obj = check_c_integer_replacement(obj,1,0); return obj; }
#endif
#define check_sint16_replacement(obj)  check_c_integer_replacement(obj,1,1)
#ifndef COMPILE_STANDALONE
static inline object check_sint16 (object obj) { if (!((((oint)(obj) ^ ((((oint)(obj) & (1UL<<(((0 + 2)+0)))) == 0) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000) | (1UL<<((0 + 2)))) << 0) + ((oint)(aint)((2UL<<((24)-1))-1) << 5))))^(oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) & ~((oint)0x7FFF << 5)) == (oint)(((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)(0) << 5)))))) obj = check_c_integer_replacement(obj,1,1); return obj; }
#endif
#define check_uint32_replacement(obj)  check_c_integer_replacement(obj,2,0)
#ifndef COMPILE_STANDALONE
static inline object check_uint32 (object obj) { if (!((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((33) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((33) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(32%32))))))) obj = check_c_integer_replacement(obj,2,0); return obj; }
#endif
#define check_sint32_replacement(obj)  check_c_integer_replacement(obj,2,1)
#ifndef COMPILE_STANDALONE
static inline object check_sint32 (object obj) { if (!((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((32) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((32) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(31%32))))))) obj = check_c_integer_replacement(obj,2,1); return obj; }
#endif
#define check_uint64_replacement(obj)  check_c_integer_replacement(obj,3,0)
#ifndef COMPILE_STANDALONE
static inline object check_uint64 (object obj) { if (!((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((65) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((65) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(64%32))))))) obj = check_c_integer_replacement(obj,3,0); return obj; }
#endif
#define check_sint64_replacement(obj)  check_c_integer_replacement(obj,3,1)
#ifndef COMPILE_STANDALONE
static inline object check_sint64 (object obj) { if (!((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((64) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((64) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(63%32))))))) obj = check_c_integer_replacement(obj,3,1); return obj; }
#endif
extern object check_uint_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_uint (object obj) { if (!((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((33) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((33) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(32%32))))))) obj = check_uint_replacement(obj); return obj; }
#endif
extern object check_sint_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_sint (object obj) { if (!((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((32) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((32) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(31%32))))))) obj = check_sint_replacement(obj); return obj; }
#endif
extern object check_ulong_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_ulong (object obj) { if (!((((oint)(obj) & ((7 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum) && (((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((33) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((33) + (32) - 1) / (32))) || (((Bignum)((oint)(obj)-2))->data[0] < (uintD)(1UL<<(32%32))))))) obj = check_ulong_replacement(obj); return obj; }
#endif
extern object check_slong_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_slong (object obj) { if (!((((oint)(obj) & ((6 << 2) | 0xE0000003)) == ((0 << 2) + 0xC0000000)) || (((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Bignum)) && (((((Bignum)((oint)(obj)-2)))->tfl >> 16) <= (((32) + (32) - 1) / (32))) && ((((((Bignum)((oint)(obj)-2)))->tfl >> 16) < (((32) + (32) - 1) / (32))) || ((((Bignum)((oint)(obj)-2))->data[0] ^ ((((((((Record)((oint)(obj)-2)))->tfl >> 8) & 0xFF) & (1UL<<(7))) == 0) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(31%32))))))) obj = check_slong_replacement(obj); return obj; }
#endif
extern object check_ffloat_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_ffloat (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Ffloat))) obj = check_ffloat_replacement(obj); return obj; }
#endif
extern object check_dfloat_replacement(object obj);
#ifndef COMPILE_STANDALONE
static inline object check_dfloat (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && (((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) == Rectype_Dfloat))) obj = check_dfloat_replacement(obj); return obj; }
#endif
extern object find_package(object string);
extern uintBWL intern(object string, object pack, object* sym_);
extern object intern_keyword(object string);
extern object file_stream_truename(object s);
extern object physical_namestring(object obj);
extern object pathname_to_OSdir(object pathname, _Bool use_default);
extern object OSdir_to_pathname(const char* path);
extern int handle_dup(int old_handle);
extern int handle_dup2(int old_handle, int new_handle);
typedef enum { DIRECTION_PROBE=0, DIRECTION_INPUT=1, DIRECTION_INPUT_IMMUTABLE=3, DIRECTION_OUTPUT=4, DIRECTION_IO=5} direction_t;
extern direction_t check_direction(object dir);
typedef enum { IF_DOES_NOT_EXIST_UNBOUND, IF_DOES_NOT_EXIST_ERROR, IF_DOES_NOT_EXIST_NIL, IF_DOES_NOT_EXIST_CREATE } if_does_not_exist_t;
extern if_does_not_exist_t check_if_does_not_exist(object if_not_exist);
extern object if_does_not_exist_symbol(if_does_not_exist_t if_not_exist);
typedef enum { IF_EXISTS_UNBOUND, IF_EXISTS_ERROR, IF_EXISTS_NIL, IF_EXISTS_RENAME, IF_EXISTS_RENAME_AND_DELETE, IF_EXISTS_SUPERSEDE, IF_EXISTS_APPEND, IF_EXISTS_OVERWRITE } if_exists_t;
extern if_exists_t check_if_exists(object if_exists);
extern object if_exists_symbol(if_exists_t if_exists);
extern _Bool typep_class(object obj, object clazz);
extern _Bool typep_classname(object obj, object classname);
typedef void map_sequence_function_t (void* arg, object element);
extern void map_sequence(object obj, map_sequence_function_t* fun, void* arg);
extern struct timeval * sec_usec(object sec, object usec, struct timeval *tv);
extern object sec_usec_number(uint32 sec, uint32 usec, _Bool abs_p);
extern void builtin_stream_close(const gcv_object_t* stream_, uintB abort);
extern int stream_lend_handle(gcv_object_t *stream_, _Bool inputp, int * handletype);
extern object open_file_stream_handle(object stream, int *fd, _Bool permissive_p);
extern off_t handle_length(gcv_object_t *stream_, int fd);
extern uintL read_byte_array(const gcv_object_t* stream_, const gcv_object_t* bytearray_, uintL start, uintL len, perseverance_t persev);
extern uintL write_byte_array(const gcv_object_t* stream_, const gcv_object_t* bytearray_, uintL start, uintL len, perseverance_t persev);
extern object make_file_stream(direction_t direction, _Bool append_flag,_Bool handle_fresh);
extern void stream_handles(object obj, _Bool check_open, _Bool* char_p, int* in_sock, int* out_sock);
extern object addr_to_string(int af, const void *addr);
extern object string_to_addr(const char *name);
extern struct hostent* resolve_host(object arg);
extern object L_to_I(sint32 val);
extern object UL_to_I(uintL val);
extern object L2_to_I(sint32 val_hi, uint32 val_lo);
extern object UL2_to_I(uint32 val_hi, uint32 val_lo);
#define uint8_to_I(val)  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((uint8)(val)) << 5)))
#define sint8_to_I(val)  L_to_I((sint32)(sint8)(val))
#define uint16_to_I(val)  ((gcv_object_t)(((oint)(tint)(((0 << 2) + 0xC0000000)) << 0) + ((oint)(aint)((uint16)(val)) << 5)))
#define sint16_to_I(val)  L_to_I((sint32)(sint16)(val))
#define uint32_to_I(val)  UL_to_I((uint32)(val))
#define sint32_to_I(val)  L_to_I((sint32)(val))
#define uint64_to_I(val)  UL2_to_I((uint32)((val)>>32),(uint32)(val))
#define sint64_to_I(val)  L2_to_I((sint32)((val)>>32),(uint32)(val))
#define uint_to_I(val)  UL_to_I((uint32)(val))
#define sint_to_I(val)  L_to_I((sint32)(val))
#define ulong_to_I(val)  UL_to_I((uint32)(val))
#define slong_to_I(val)  L_to_I((sint32)(val))
extern uintL I_to_UL(object obj);
extern sintL I_to_L(object obj);
extern uint64 I_to_UQ(object obj);
extern sint64 I_to_Q(object obj);
#define I_to_uint8(obj)  (uint8)((oint)(obj) >> 5)
#define I_to_sint8(obj)  (sint8)((oint)(obj) >> 5)
#define I_to_uint16(obj)  (uint16)((oint)(obj) >> 5)
#define I_to_sint16(obj)  (sint16)((oint)(obj) >> 5)
#define I_to_uint32(obj)  I_to_UL(obj)
#define I_to_sint32(obj)  I_to_L(obj)
#define I_to_uint64(obj)  I_to_UQ(obj)
#define I_to_sint64(obj)  I_to_Q(obj)
#define I_to_uint  I_to_uint32
#define I_to_sint  I_to_sint32
#define I_to_ulong  I_to_uint32
#define I_to_slong  I_to_sint32
extern object UDS_to_I(uintD* MSDptr, uintWL len);
extern object DS_to_I(const uintD* MSDptr, uintWL len);
extern uintL I_integer_length(object x);
extern object LEbytes_to_UI(uintL bytesize, const uintB* bufferptr);
extern object LEbytes_to_I(uintL bytesize, const uintB* bufferptr);
extern _Bool UI_to_LEbytes(object obj, uintL bitsize, uintB* bufferptr);
extern _Bool I_to_LEbytes(object obj, uintL bitsize, uintB* bufferptr);
extern object c_float_to_FF(const ffloatjanus* val_);
extern void FF_to_c_float(object obj, ffloatjanus* val_);
extern object c_double_to_DF(const dfloatjanus* val_);
extern void DF_to_c_double(object obj, dfloatjanus* val_);
extern double to_double(object obj);
extern int to_int(object obj);
#define HAVE_FFI
extern object make_faddress(object base, uintP offset);
extern void register_foreign_variable(void* address, const char * name, uintBWL flags, uintL size);
extern void register_foreign_function(void* address, const char * name, uintWL flags);
extern void register_foreign_inttype(const char * name_asciz, uintL size, _Bool signed_p);
extern object convert_from_foreign(object fvd, const void* data);
typedef void* converter_malloc_t (void* old_data, uintL size, uintL alignment, void** state);
extern converter_malloc_t nomalloc;
extern converter_malloc_t mallocing;
extern void convert_to_foreign(object fvd, object obj, void* data, converter_malloc_t *converter_malloc, void** state);
#define unprotect_heap_range(vo,access)  
#define pin_varobject_with_pc(pc,vo)  
#define pin_varobject(vo)  
#define unpin_varobject(vo)  
#define with_pinned_varobject(vo,code)  code
#define unpin_varobjects(count)  
#define WITH_OS_MUTEX_LOCK(stack_count,mutex,body)  do { body; } while(0);
#define WITH_LISP_MUTEX_LOCK(stack_count,keep_mv_space,pmutex,body)  do { body; } while(0);
#define START_WRITING_TO_SUBPROCESS  writing_to_subprocess=1
#define STOP_WRITING_TO_SUBPROCESS  writing_to_subprocess=0
#define LISPFUNN(name,req_count)  LISPFUN(name,sec,req_count,0,norest,nokey,0,NIL)
#define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords)  Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args
#define subr_norest_function_args  (void)
#define subr_rest_function_args  (uintC argcount, object* rest_args_pointer)
#define LISPFUN_F(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords)  { gcv_nullobj, 268566568UL, gcv_nullobj, gcv_nullobj, (lisp_function_t)(&C_##name), 0, req_count, opt_count, (uintB)subr_##rest_flag, (uintB)subr_##key_flag, key_count, sec, 0},
#define LISPFUN  LISPFUN_B
#ifndef COMPILE_STANDALONE
static inline unsigned int check_uint_defaulted (object obj, unsigned int defolt) { return missingp(obj) ? defolt : I_to_uint(check_uint(obj)); }
#endif
#define check_uint_default0(obj) check_uint_defaulted(obj,0)
#define size_to_I uint32_to_I
#define ssize_to_I sint32_to_I
#define off_to_I sint64_to_I
#undef PACKAGE_BUGREPORT
#undef PACKAGE_NAME
#undef PACKAGE_STRING
#undef PACKAGE_TARNAME
#undef PACKAGE_VERSION
#undef PACKAGE_URL
#define DEFMODULE(module_name,package_name)
#define DEFUN(funname,lambdalist,signature) LISPFUN signature
#define DEFUNF DEFUN
#define DEFUNN DEFUN
#define DEFUNR DEFUN
#define DEFUNW DEFUN
#define DEFUND DEFUN
#define DEFVAR(varname)

#endif /* _CLISP_H */
