/usr/lib/clisp-2.49.60+/linkkit/clisp.h

#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__
#define __x86_64__ 1
#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__
/* #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__
/* #undef __powerpc__ */
#endif
#ifndef __powerpc64__
/* #undef __powerpc64__ */
#endif
#ifndef __powerpc64_elfv2__
/* #undef __powerpc64_elfv2__ */
#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 */

/* symbols are prefixed by an underscore in assembly language */
/* #undef ASM_UNDERSCORE */

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

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

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

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

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

/* what is your caddr_t type? */
#define CADDR_T caddr_t

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

/* Define to one of `_getb67', `GETB67', `getb67' for Cray-2 and Cray-YMP
   systems. This function is required for `alloca.c' support on those systems.
   */
/* #undef CRAY_STACKSEG_END */

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

/* Define to 1 if the C locale may have encoding errors. */
#define C_LOCALE_MAYBE_EILSEQ 1

/* 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 'double' underflow raises an exception. */
/* #undef DOUBLE_UNDERFLOW_EXCEPTION */

/* the real value of ELOOP even if it is hidden in <errno.h> */
#define ELOOP_VALUE ELOOP

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

/* 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; double
   d[FLEXIBLE_ARRAY_MEMBER]; };', the struct hack can be used with pre-C99
   compilers. When computing the size of such an object, don't use 'sizeof
   (struct s)' as it overestimates the size. Use 'offsetof (struct s, d)'
   instead. Don't use 'offsetof (struct s, d[0])', as this doesn't work with
   MSVC and with C++ compilers. */
#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 nl_langinfo (YESEXPR) returns a non-empty string. */
#define FUNC_NL_LANGINFO_YESEXPR_WORKS 1

/* Define if gettimeofday clobbers the localtime buffer. */
/* #undef GETTIMEOFDAY_CLOBBERS_LOCALTIME */

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

/* 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 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 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 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 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 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 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 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 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 secure_getenv should be tested. */
#define GNULIB_TEST_SECURE_GETENV 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 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 strptime should be tested. */
#define GNULIB_TEST_STRPTIME 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 wcrtomb should be tested. */
#define GNULIB_TEST_WCRTOMB 1

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

/* Define to 1 if you have <alloca.h> and it should be used (not on Ultrix).
   */
#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 <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()) */
#define HAVE_BUILTIN_STRLEN /**/

/* 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 CFLocaleCopyCurrent in the
   CoreFoundation framework. */
/* #undef HAVE_CFLOCALECOPYCURRENT */

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

/* 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 `getc_unlocked', and to 0 if you
   don't. */
#define HAVE_DECL_GETC_UNLOCKED 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. */
/* #undef HAVE_DECL_ISBLANK */

/* 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 `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 `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. */
#define HAVE_DLVSYM 1

/* Define to 1 if you have the 'dup2' function. */
#define HAVE_DUP2 1

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

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

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

/* 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 `fork' function. */
#define HAVE_FORK 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

/* Define to 1 if you have the `getegid' function. */
#define HAVE_GETEGID 1

/* Define to 1 if you have the `geteuid' function. */
#define HAVE_GETEUID 1

/* Define to 1 if you have the `getgid' function. */
#define HAVE_GETGID 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 `getpagesize' function. */
#define HAVE_GETPAGESIZE 1

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

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

/* 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 to 1 if you have the `getuid' function. */
#define HAVE_GETUID 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 `issetugid' function. */
/* #undef HAVE_ISSETUGID */

/* 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 to 1 if you have the `dgc' library (-ldgc). */
/* #undef HAVE_LIBDGC */

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

/* 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 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 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. */
#define HAVE_MALLOC_H 1

/* Define if the 'malloc' function is POSIX compliant. */
#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 `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 <memory.h> header file. */
#define HAVE_MEMORY_H 1

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

/* 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 `mkdtemp' function. */
#define HAVE_MKDTEMP 1

/* Define to 1 if you have the `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_ANON works */
#define HAVE_MMAP_ANON /**/

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

/* mmaping of the special device /dev/zero works */
#define HAVE_MMAP_DEVZERO /**/

/* mmaping of the special device /dev/zero works, but only on addresses < 2^29
   */
/* #undef HAVE_MMAP_DEVZERO_SUN4_29 */

/* 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 `msync' function. */
#define HAVE_MSYNC 1

/* 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 you have the <OS.h> header file. */
/* #undef HAVE_OS_H */

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

/* 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 the <pthread.h> defines PTHREAD_MUTEX_RECURSIVE. */
#define HAVE_PTHREAD_MUTEX_RECURSIVE 1

/* 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. */
/* #undef HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER */

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

/* Define to 1 if accept is declared even after undefining macros. */
#define HAVE_RAW_DECL_ACCEPT 1

/* Define to 1 if accept4 is declared even after undefining macros. */
#define HAVE_RAW_DECL_ACCEPT4 1

/* Define to 1 if atoll is declared even after undefining macros. */
#define HAVE_RAW_DECL_ATOLL 1

/* Define to 1 if bind is declared even after undefining macros. */
#define HAVE_RAW_DECL_BIND 1

/* Define to 1 if btowc is declared even after undefining macros. */
#define HAVE_RAW_DECL_BTOWC 1

/* Define to 1 if canonicalize_file_name is declared even after undefining
   macros. */
#define HAVE_RAW_DECL_CANONICALIZE_FILE_NAME 1

/* Define to 1 if chdir is declared even after undefining macros. */
#define HAVE_RAW_DECL_CHDIR 1

/* Define to 1 if chown is declared even after undefining macros. */
#define HAVE_RAW_DECL_CHOWN 1

/* Define to 1 if connect is declared even after undefining macros. */
#define HAVE_RAW_DECL_CONNECT 1

/* Define to 1 if dup is declared even after undefining macros. */
#define HAVE_RAW_DECL_DUP 1

/* Define to 1 if dup2 is declared even after undefining macros. */
#define HAVE_RAW_DECL_DUP2 1

/* Define to 1 if dup3 is declared even after undefining macros. */
#define HAVE_RAW_DECL_DUP3 1

/* Define to 1 if duplocale is declared even after undefining macros. */
#define HAVE_RAW_DECL_DUPLOCALE 1

/* Define to 1 if endusershell is declared even after undefining macros. */
#define HAVE_RAW_DECL_ENDUSERSHELL 1

/* Define to 1 if environ is declared even after undefining macros. */
#define HAVE_RAW_DECL_ENVIRON 1

/* Define to 1 if euidaccess is declared even after undefining macros. */
#define HAVE_RAW_DECL_EUIDACCESS 1

/* Define to 1 if faccessat is declared even after undefining macros. */
#define HAVE_RAW_DECL_FACCESSAT 1

/* Define to 1 if fchdir is declared even after undefining macros. */
#define HAVE_RAW_DECL_FCHDIR 1

/* Define to 1 if fchmodat is declared even after undefining macros. */
#define HAVE_RAW_DECL_FCHMODAT 1

/* Define to 1 if fchownat is declared even after undefining macros. */
#define HAVE_RAW_DECL_FCHOWNAT 1

/* Define to 1 if fcntl is declared even after undefining macros. */
#define HAVE_RAW_DECL_FCNTL 1

/* Define to 1 if fdatasync is declared even after undefining macros. */
#define HAVE_RAW_DECL_FDATASYNC 1

/* Define to 1 if ffs is declared even after undefining macros. */
#define HAVE_RAW_DECL_FFS 1

/* Define to 1 if ffsl is declared even after undefining macros. */
#define HAVE_RAW_DECL_FFSL 1

/* Define to 1 if ffsll is declared even after undefining macros. */
#define HAVE_RAW_DECL_FFSLL 1

/* Define to 1 if fstat is declared even after undefining macros. */
#define HAVE_RAW_DECL_FSTAT 1

/* Define to 1 if fstatat is declared even after undefining macros. */
#define HAVE_RAW_DECL_FSTATAT 1

/* Define to 1 if fsync is declared even after undefining macros. */
#define HAVE_RAW_DECL_FSYNC 1

/* Define to 1 if ftruncate is declared even after undefining macros. */
#define HAVE_RAW_DECL_FTRUNCATE 1

/* Define to 1 if futimens is declared even after undefining macros. */
#define HAVE_RAW_DECL_FUTIMENS 1

/* Define to 1 if getcwd is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETCWD 1

/* Define to 1 if getdomainname is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETDOMAINNAME 1

/* Define to 1 if getdtablesize is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETDTABLESIZE 1

/* Define to 1 if getgroups is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETGROUPS 1

/* Define to 1 if gethostname is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETHOSTNAME 1

/* Define to 1 if getloadavg is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETLOADAVG 1

/* Define to 1 if getlogin is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETLOGIN 1

/* Define to 1 if getlogin_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETLOGIN_R 1

/* Define to 1 if getpagesize is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETPAGESIZE 1

/* Define to 1 if getpeername is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETPEERNAME 1

/* Define to 1 if getsockname is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETSOCKNAME 1

/* Define to 1 if getsockopt is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETSOCKOPT 1

/* Define to 1 if getsubopt is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETSUBOPT 1

/* Define to 1 if gettimeofday is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETTIMEOFDAY 1

/* Define to 1 if getusershell is declared even after undefining macros. */
#define HAVE_RAW_DECL_GETUSERSHELL 1

/* Define to 1 if grantpt is declared even after undefining macros. */
#define HAVE_RAW_DECL_GRANTPT 1

/* Define to 1 if group_member is declared even after undefining macros. */
#define HAVE_RAW_DECL_GROUP_MEMBER 1

/* Define to 1 if inet_ntop is declared even after undefining macros. */
#define HAVE_RAW_DECL_INET_NTOP 1

/* Define to 1 if inet_pton is declared even after undefining macros. */
#define HAVE_RAW_DECL_INET_PTON 1

/* Define to 1 if initstate is declared even after undefining macros. */
#define HAVE_RAW_DECL_INITSTATE 1

/* Define to 1 if initstate_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_INITSTATE_R 1

/* Define to 1 if ioctl is declared even after undefining macros. */
#define HAVE_RAW_DECL_IOCTL 1

/* Define to 1 if isatty is declared even after undefining macros. */
#define HAVE_RAW_DECL_ISATTY 1

/* Define to 1 if iswctype is declared even after undefining macros. */
#define HAVE_RAW_DECL_ISWCTYPE 1

/* Define to 1 if lchmod is declared even after undefining macros. */
#define HAVE_RAW_DECL_LCHMOD 1

/* Define to 1 if lchown is declared even after undefining macros. */
#define HAVE_RAW_DECL_LCHOWN 1

/* Define to 1 if link is declared even after undefining macros. */
#define HAVE_RAW_DECL_LINK 1

/* Define to 1 if linkat is declared even after undefining macros. */
#define HAVE_RAW_DECL_LINKAT 1

/* Define to 1 if listen is declared even after undefining macros. */
#define HAVE_RAW_DECL_LISTEN 1

/* Define to 1 if lseek is declared even after undefining macros. */
#define HAVE_RAW_DECL_LSEEK 1

/* Define to 1 if lstat is declared even after undefining macros. */
#define HAVE_RAW_DECL_LSTAT 1

/* Define to 1 if mbrlen is declared even after undefining macros. */
#define HAVE_RAW_DECL_MBRLEN 1

/* Define to 1 if mbrtowc is declared even after undefining macros. */
#define HAVE_RAW_DECL_MBRTOWC 1

/* Define to 1 if mbsinit is declared even after undefining macros. */
#define HAVE_RAW_DECL_MBSINIT 1

/* Define to 1 if mbsnrtowcs is declared even after undefining macros. */
#define HAVE_RAW_DECL_MBSNRTOWCS 1

/* Define to 1 if mbsrtowcs is declared even after undefining macros. */
#define HAVE_RAW_DECL_MBSRTOWCS 1

/* Define to 1 if memmem is declared even after undefining macros. */
#define HAVE_RAW_DECL_MEMMEM 1

/* Define to 1 if mempcpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_MEMPCPY 1

/* Define to 1 if memrchr is declared even after undefining macros. */
#define HAVE_RAW_DECL_MEMRCHR 1

/* Define to 1 if mkdirat is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKDIRAT 1

/* Define to 1 if mkdtemp is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKDTEMP 1

/* Define to 1 if mkfifo is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKFIFO 1

/* Define to 1 if mkfifoat is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKFIFOAT 1

/* Define to 1 if mknod is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKNOD 1

/* Define to 1 if mknodat is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKNODAT 1

/* Define to 1 if mkostemp is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKOSTEMP 1

/* Define to 1 if mkostemps is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKOSTEMPS 1

/* Define to 1 if mkstemp is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKSTEMP 1

/* Define to 1 if mkstemps is declared even after undefining macros. */
#define HAVE_RAW_DECL_MKSTEMPS 1

/* Define to 1 if nl_langinfo is declared even after undefining macros. */
#define HAVE_RAW_DECL_NL_LANGINFO 1

/* Define to 1 if openat is declared even after undefining macros. */
#define HAVE_RAW_DECL_OPENAT 1

/* Define to 1 if pipe is declared even after undefining macros. */
#define HAVE_RAW_DECL_PIPE 1

/* Define to 1 if pipe2 is declared even after undefining macros. */
#define HAVE_RAW_DECL_PIPE2 1

/* Define to 1 if posix_openpt is declared even after undefining macros. */
#define HAVE_RAW_DECL_POSIX_OPENPT 1

/* Define to 1 if pread is declared even after undefining macros. */
#define HAVE_RAW_DECL_PREAD 1

/* Define to 1 if pselect is declared even after undefining macros. */
#define HAVE_RAW_DECL_PSELECT 1

/* Define to 1 if pthread_sigmask is declared even after undefining macros. */
#define HAVE_RAW_DECL_PTHREAD_SIGMASK 1

/* Define to 1 if ptsname is declared even after undefining macros. */
#define HAVE_RAW_DECL_PTSNAME 1

/* Define to 1 if ptsname_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_PTSNAME_R 1

/* Define to 1 if pwrite is declared even after undefining macros. */
#define HAVE_RAW_DECL_PWRITE 1

/* Define to 1 if qsort_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_QSORT_R 1

/* Define to 1 if random is declared even after undefining macros. */
#define HAVE_RAW_DECL_RANDOM 1

/* Define to 1 if random_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_RANDOM_R 1

/* Define to 1 if rawmemchr is declared even after undefining macros. */
#define HAVE_RAW_DECL_RAWMEMCHR 1

/* Define to 1 if readlink is declared even after undefining macros. */
#define HAVE_RAW_DECL_READLINK 1

/* Define to 1 if readlinkat is declared even after undefining macros. */
#define HAVE_RAW_DECL_READLINKAT 1

/* Define to 1 if realpath is declared even after undefining macros. */
#define HAVE_RAW_DECL_REALPATH 1

/* Define to 1 if recv is declared even after undefining macros. */
#define HAVE_RAW_DECL_RECV 1

/* Define to 1 if recvfrom is declared even after undefining macros. */
#define HAVE_RAW_DECL_RECVFROM 1

/* Define to 1 if rmdir is declared even after undefining macros. */
#define HAVE_RAW_DECL_RMDIR 1

/* Define to 1 if rpmatch is declared even after undefining macros. */
#define HAVE_RAW_DECL_RPMATCH 1

/* Define to 1 if secure_getenv is declared even after undefining macros. */
#define HAVE_RAW_DECL_SECURE_GETENV 1

/* Define to 1 if select is declared even after undefining macros. */
#define HAVE_RAW_DECL_SELECT 1

/* Define to 1 if send is declared even after undefining macros. */
#define HAVE_RAW_DECL_SEND 1

/* Define to 1 if sendto is declared even after undefining macros. */
#define HAVE_RAW_DECL_SENDTO 1

/* Define to 1 if setenv is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETENV 1

/* Define to 1 if sethostname is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETHOSTNAME 1

/* Define to 1 if setlocale is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETLOCALE 1

/* Define to 1 if setsockopt is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETSOCKOPT 1

/* Define to 1 if setstate is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETSTATE 1

/* Define to 1 if setstate_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETSTATE_R 1

/* Define to 1 if setusershell is declared even after undefining macros. */
#define HAVE_RAW_DECL_SETUSERSHELL 1

/* Define to 1 if shutdown is declared even after undefining macros. */
#define HAVE_RAW_DECL_SHUTDOWN 1

/* Define to 1 if sigaction is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGACTION 1

/* Define to 1 if sigaddset is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGADDSET 1

/* Define to 1 if sigdelset is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGDELSET 1

/* Define to 1 if sigemptyset is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGEMPTYSET 1

/* Define to 1 if sigfillset is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGFILLSET 1

/* Define to 1 if sigismember is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGISMEMBER 1

/* Define to 1 if sigpending is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGPENDING 1

/* Define to 1 if sigprocmask is declared even after undefining macros. */
#define HAVE_RAW_DECL_SIGPROCMASK 1

/* Define to 1 if sleep is declared even after undefining macros. */
#define HAVE_RAW_DECL_SLEEP 1

/* Define to 1 if socket is declared even after undefining macros. */
#define HAVE_RAW_DECL_SOCKET 1

/* Define to 1 if srandom is declared even after undefining macros. */
#define HAVE_RAW_DECL_SRANDOM 1

/* Define to 1 if srandom_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_SRANDOM_R 1

/* Define to 1 if stat is declared even after undefining macros. */
#define HAVE_RAW_DECL_STAT 1

/* Define to 1 if stpcpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_STPCPY 1

/* Define to 1 if stpncpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_STPNCPY 1

/* Define to 1 if strcasecmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRCASECMP 1

/* Define to 1 if strcasestr is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRCASESTR 1

/* Define to 1 if strchrnul is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRCHRNUL 1

/* Define to 1 if strdup is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRDUP 1

/* Define to 1 if strerror_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRERROR_R 1

/* Define to 1 if strncasecmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRNCASECMP 1

/* Define to 1 if strncat is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRNCAT 1

/* Define to 1 if strndup is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRNDUP 1

/* Define to 1 if strnlen is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRNLEN 1

/* Define to 1 if strpbrk is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRPBRK 1

/* Define to 1 if strsep is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRSEP 1

/* Define to 1 if strsignal is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRSIGNAL 1

/* Define to 1 if strtod is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRTOD 1

/* Define to 1 if strtok_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRTOK_R 1

/* Define to 1 if strtoll is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRTOLL 1

/* Define to 1 if strtoull is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRTOULL 1

/* Define to 1 if strverscmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_STRVERSCMP 1

/* Define to 1 if symlink is declared even after undefining macros. */
#define HAVE_RAW_DECL_SYMLINK 1

/* Define to 1 if symlinkat is declared even after undefining macros. */
#define HAVE_RAW_DECL_SYMLINKAT 1

/* Define to 1 if towctrans is declared even after undefining macros. */
#define HAVE_RAW_DECL_TOWCTRANS 1

/* Define to 1 if truncate is declared even after undefining macros. */
#define HAVE_RAW_DECL_TRUNCATE 1

/* Define to 1 if ttyname_r is declared even after undefining macros. */
#define HAVE_RAW_DECL_TTYNAME_R 1

/* Define to 1 if uname is declared even after undefining macros. */
#define HAVE_RAW_DECL_UNAME 1

/* Define to 1 if unlink is declared even after undefining macros. */
#define HAVE_RAW_DECL_UNLINK 1

/* Define to 1 if unlinkat is declared even after undefining macros. */
#define HAVE_RAW_DECL_UNLINKAT 1

/* Define to 1 if unlockpt is declared even after undefining macros. */
#define HAVE_RAW_DECL_UNLOCKPT 1

/* Define to 1 if unsetenv is declared even after undefining macros. */
#define HAVE_RAW_DECL_UNSETENV 1

/* Define to 1 if usleep is declared even after undefining macros. */
#define HAVE_RAW_DECL_USLEEP 1

/* Define to 1 if utimensat is declared even after undefining macros. */
#define HAVE_RAW_DECL_UTIMENSAT 1

/* Define to 1 if waitpid is declared even after undefining macros. */
#define HAVE_RAW_DECL_WAITPID 1

/* Define to 1 if wcpcpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCPCPY 1

/* Define to 1 if wcpncpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCPNCPY 1

/* Define to 1 if wcrtomb is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCRTOMB 1

/* Define to 1 if wcscasecmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCASECMP 1

/* Define to 1 if wcscat is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCAT 1

/* Define to 1 if wcschr is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCHR 1

/* Define to 1 if wcscmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCMP 1

/* Define to 1 if wcscoll is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCOLL 1

/* Define to 1 if wcscpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCPY 1

/* Define to 1 if wcscspn is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSCSPN 1

/* Define to 1 if wcsdup is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSDUP 1

/* Define to 1 if wcsftime is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSFTIME 1

/* Define to 1 if wcslen is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSLEN 1

/* Define to 1 if wcsncasecmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNCASECMP 1

/* Define to 1 if wcsncat is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNCAT 1

/* Define to 1 if wcsncmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNCMP 1

/* Define to 1 if wcsncpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNCPY 1

/* Define to 1 if wcsnlen is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNLEN 1

/* Define to 1 if wcsnrtombs is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSNRTOMBS 1

/* Define to 1 if wcspbrk is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSPBRK 1

/* Define to 1 if wcsrchr is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSRCHR 1

/* Define to 1 if wcsrtombs is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSRTOMBS 1

/* Define to 1 if wcsspn is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSSPN 1

/* Define to 1 if wcsstr is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSSTR 1

/* Define to 1 if wcstok is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSTOK 1

/* Define to 1 if wcswidth is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSWIDTH 1

/* Define to 1 if wcsxfrm is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCSXFRM 1

/* Define to 1 if wctob is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCTOB 1

/* Define to 1 if wctrans is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCTRANS 1

/* Define to 1 if wctype is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCTYPE 1

/* Define to 1 if wcwidth is declared even after undefining macros. */
#define HAVE_RAW_DECL_WCWIDTH 1

/* Define to 1 if wmemchr is declared even after undefining macros. */
#define HAVE_RAW_DECL_WMEMCHR 1

/* Define to 1 if wmemcmp is declared even after undefining macros. */
#define HAVE_RAW_DECL_WMEMCMP 1

/* Define to 1 if wmemcpy is declared even after undefining macros. */
#define HAVE_RAW_DECL_WMEMCPY 1

/* Define to 1 if wmemmove is declared even after undefining macros. */
#define HAVE_RAW_DECL_WMEMMOVE 1

/* Define to 1 if wmemset is declared even after undefining macros. */
#define HAVE_RAW_DECL_WMEMSET 1

/* Define to 1 if _Exit is declared even after undefining macros. */
#define HAVE_RAW_DECL__EXIT 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 */
#define 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 you have run the test for working tzset. */
#define HAVE_RUN_TZSET_TEST 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 <search.h> header file. */
#define HAVE_SEARCH_H 1

/* Define to 1 if you have the `secure_getenv' function. */
#define HAVE_SECURE_GETENV 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. */
#define HAVE_SETRESGID 1

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

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

/* Define to 1 if you have the `setrlimit' function. */
#define HAVE_SETRLIMIT 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 <sgtty.h> header file. */
#define HAVE_SGTTY_H 1

/* have <sys/shm.h> and <sys/ipc.h> and shared memory works */
#define HAVE_SHM /**/

/* 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. */
/* #undef HAVE_SIGNED_SIG_ATOMIC_T */

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

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

/* 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 */
/* #undef 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 <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 `strdup' function. */
#define HAVE_STRDUP 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 you have the `strtod_l' function. */
#define HAVE_STRTOD_L 1

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

/* 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 `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. */
#define HAVE_STRVERSCMP 1

/* 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/ipc.h> header file. */
#define HAVE_SYS_IPC_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/procfs.h> header file. */
#define HAVE_SYS_PROCFS_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/shm.h> header file. */
#define HAVE_SYS_SHM_H 1

/* 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/sysmacros.h> header file. */
#define HAVE_SYS_SYSMACROS_H 1

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

/* 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

/* have tcgetattr(), either as a function or as a macro defined by <termios.h>
   */
#define HAVE_TCGETATTR /**/

/* <termios.h> defines TCSAFLUSH */
#define HAVE_TCSAFLUSH /**/

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

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

/* 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 `tzset' function. */
#define HAVE_TZSET 1

/* 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 `usleep' function. */
#define HAVE_USLEEP 1

/* have 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 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 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 `wmemchr' function. */
#define HAVE_WMEMCHR 1

/* Define to 1 if you have the `wmemcpy' function. */
#define HAVE_WMEMCPY 1

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

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

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

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

/* Define to 1 if O_NOFOLLOW works. */
#define HAVE_WORKING_O_NOFOLLOW 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. */
/* #undef HAVE_XLOCALE_H */

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

/* 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 `__secure_getenv' function. */
/* #undef HAVE___SECURE_GETENV */

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

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

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

/* type of `argument' in ioctl() declaration, if not superseded by dots */
/* #undef IOCTL_ARGUMENT_T */

/* declaration of ioctl() needs dots */
#define IOCTL_DOTS /**/

/* type of `request' in ioctl() declaration */
#define IOCTL_REQUEST_T unsigned long

/* 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 0

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

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

/* 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 0x000055A7CD000000UL

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

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

/* 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 to 1 if mkfifo does not reject trailing slash */
/* #undef MKFIFO_TRAILING_SLASH_BUG */

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

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

/* 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 */
/* #undef NEED_SYS_FILIO_H */

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

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

/* 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.60+ (2017-06-25)"

/* 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 "http://www.gnu.org/software/clisp/"

/* Define to the version of this package. */
#define PACKAGE_VERSION "2.49.60+ (2017-06-25)"

/* type of `pid' in waitpid() declaration */
#define PID_T pid_t

/* 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'. */
/* #undef 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. */
/* #undef READLINK_TRAILING_SLASH_BUG */

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

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

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

/* type of `resource' in setrlimit() declaration */
#define RLIMIT_RESOURCE_T enum __rlimit_resource

/* type of `who' in getrusage() declaration */
#define RUSAGE_WHO_T int

/* 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

/* declaration of setrlimit() needs const */
#define SETRLIMIT_CONST const

/* 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 0x00007F8519000000UL

/* attaching removed (but alive!) shared memory segments works */
#define SHM_RMID_VALID /**/

/* 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 */
/* #undef 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'. */
/* #undef SIG_ATOMIC_T_SUFFIX */

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

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

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

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

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

/* 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 you have the ANSI C header files. */
#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 if tzset clobbers localtime's static buffer. */
/* #undef TZSET_CLOBBERS_LOCALTIME */

/* 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 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. */
#define USE_POSIX_THREADS_WEAK 1

/* Define if the GNU Pth multithreading library can be used. */
/* #undef USE_PTH_THREADS */

/* Define if references to the GNU Pth multithreading library should be made
   weak. */
/* #undef USE_PTH_THREADS_WEAK */

/* Define if the old Solaris multithreading library can be used. */
/* #undef USE_SOLARIS_THREADS */

/* Define if references to the old Solaris multithreading library should be
   made weak. */
/* #undef USE_SOLARIS_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 GNU extensions on systems that have them.  */
#ifndef _GNU_SOURCE
# define _GNU_SOURCE 1
#endif
/* Enable threading extensions 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 if necessary.  HP-UX 11.11 defines
   mbstate_t only if _XOPEN_SOURCE is defined to 500, regardless of
   whether compiling with -Ae or -D_HPUX_SOURCE=1.  */
#ifndef _XOPEN_SOURCE
/* # undef _XOPEN_SOURCE */
#endif
/* Enable general extensions on Solaris.  */
#ifndef __EXTENSIONS__
# define __EXTENSIONS__ 1
#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))

/* closedir() return value is void or unusable */
/* #undef VOID_CLOSEDIR */

/* 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'. */
/* #undef WCHAR_T_SUFFIX */

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

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

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

/* Define to l, ll, u, ul, ull, etc., as suitable for constants of type
   'wint_t'. */
/* #undef 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
/* #  undef WORDS_BIGENDIAN */
# endif
#endif

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

/* Enable large inode numbers on Mac OS X 10.5. */
#define _DARWIN_USE_64_BIT_INODE 1

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

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

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

/* Define to 1 if on MINIX. */
/* #undef _MINIX */

/* Define to 1 to make NetBSD features available. MINIX 3 needs this. */
/* #undef _NETBSD_SOURCE */

/* The _Noreturn keyword of C11.  */
#if ! (defined _Noreturn \
       || (defined __STDC_VERSION__ && 201112 <= __STDC_VERSION__))
# if (3 <= __GNUC__ || (__GNUC__ == 2 && 8 <= __GNUC_MINOR__) \
      || 0x5110 <= __SUNPRO_C)
#  define _Noreturn __attribute__ ((__noreturn__))
# elif defined _MSC_VER && 1200 <= _MSC_VER
#  define _Noreturn __declspec (noreturn)
# else
#  define _Noreturn
# endif
#endif


/* Define to 2 if the system does not provide POSIX.1 features except with
   this defined. */
/* #undef _POSIX_1_SOURCE */

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

/* Define to 1 if you need to in order for 'stat' and other things to work. */
/* #undef _POSIX_SOURCE */

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

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

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

/* Define to 1 if type `char' is unsigned and you are not using gcc.  */
#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 */

/* 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
   <http://lists.gnu.org/archive/html/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.  This bug is known to occur on:

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

     DragonFly; see
     http://muscles.dragonflybsd.org/bulk/bleeding-edge-potential/latest-per-pkg/ah-tty-0.3.12.log

     FreeBSD; see:
     http://lists.gnu.org/archive/html/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 <http://trac.macports.org/ticket/41033>.
   Assume DragonFly and FreeBSD will be similar.  */
#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 a replacement function name for fnmatch(). */
/* #undef fnmatch */

/* 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 */

/* 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 to `int' if <sys/types.h> does not define. */
/* #undef pid_t */

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* Define to rpl_regfree if the replacement should be used. */
/* #undef 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 directly.  */
#define restrict __restrict
/* Work around a bug in Sun C++: it does not support _Restrict or
   __restrict__, even though the corresponding Sun C compiler ends up with
   "#define restrict _Restrict" or "#define restrict __restrict__" in the
   previous line.  Perhaps some future version of Sun C++ will work with
   restrict; if so, hopefully it defines __RESTRICT like Sun C does.  */
#if defined __SUNPRO_CC && !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 */

/* Define as a marker that can be attached to declarations that might not
    be used.  This helps to reduce warnings, such as from
    GCC -Wunused-parameter.  */
#if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7)
# define _GL_UNUSED __attribute__ ((__unused__))
#else
# define _GL_UNUSED
#endif
/* The name _UNUSED_PARAMETER_ is an earlier spelling, although the name
   is a misnomer outside of parameter lists.  */
#define _UNUSED_PARAMETER_ _GL_UNUSED

/* gcc supports the "unused" attribute on possibly unused labels, and
   g++ has since version 4.5.  Note to support C++ as well as C,
   _GL_UNUSED_LABEL should be used with a trailing ;  */
#if !defined __cplusplus || __GNUC__ > 4 \
    || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5)
# define _GL_UNUSED_LABEL _GL_UNUSED
#else
# define _GL_UNUSED_LABEL
#endif

/* The __pure__ attribute was added in gcc 2.96.  */
#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96)
# define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__))
#else
# define _GL_ATTRIBUTE_PURE /* empty */
#endif

/* The __const__ attribute was added in gcc 2.95.  */
#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 95)
# define _GL_ATTRIBUTE_CONST __attribute__ ((__const__))
#else
# define _GL_ATTRIBUTE_CONST /* empty */
#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 64
#define long_long_bitsize 64
#define pointer_bitsize 64
#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 8
#define alignment_long 8
#define sizeof_long_long 8
#define alignment_long_long 8
#define sizeof_float 4
#define alignment_float 4
#define sizeof_double 8
#define alignment_double 8
#define short_little_endian
#define int_little_endian
#define long_little_endian
#define long_long_little_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  0
#define DYNAMIC_TABLES  0
#define modexp  
#define modimp  extern
#define VALUES_IF(C)  do { mv_space[0] = (C) ? ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_t))+((oint)(tint)(( (1UL<<(2)) ))<<48)))) : ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))); mv_count = 1; } while (0)
#define VALUES0  do { mv_space[0] = ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))); 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 int SLONG;
typedef unsigned int ULONG;
typedef long SLONGLONG;
typedef unsigned long ULONGLONG;
#include <stdbool.h>
#undef NULL
#define NULL  ((void *)0)
#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 uint16 uintW;
typedef sint32 sintL;
typedef uint32 uintL;
typedef sint64 sintP;
typedef uint64 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*
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 uint16 tint;
typedef uint64 aint;
typedef uint64 uintV;
typedef sint64 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 typecode(expr)  ((tint)((oint)(expr) >> 48))
#define mtypecode(expr)  (*((tint*)&(expr)+3))
#define type_untype_object(type,address)  (gcv_object_t)(((UBYTE*)((address))+((oint)(tint)(type)<<48)))
#define upointer(obj)  ((aint)((oint)(obj) >> 0) & (aint)(0x0000FFFFFFFFFFFFUL >> 0))
#define type_pointer_object(type,address)  (gcv_object_t)(((UBYTE*)((address))+((oint)(tint)(type)<<48)))
#define type_constpointer_object(type,address)  (gcv_object_t)(((UBYTE*)((address))+((oint)(tint)(type)<<48)))
#define type_data_object(type,address)  ((gcv_object_t)(((oint)(tint)(type) << 48) + (oint)(aint)(address)))
#define type_zero_oint(obj)  ((oint)(tint)(obj) << 48)
#define varobjects_misaligned  0
#define VAROBJECTS_ALIGNMENT_DUMMY_DECL  
#define varobject_alignment  8
#define gcinvariant_type_p(type)  ((((type)>>(0+1))<0x14) && (((1UL<<((type)>>(0+1))) & 0xFFF4FFFCUL) == 0))
#define gcinvariant_type_sum(type)  gcinvariant_type_sum(type)
#define gcinvariant_type_aux(type)  gcinvariant_type_aux(type)
#define gcinvariant_object_p(obj)  ((((((tint)((oint)(obj) >> 48)))>>(0+1))<0x14) && (((1UL<<((((tint)((oint)(obj) >> 48)))>>(0+1))) & 0xFFF4FFFCUL) == 0))
#define gcinvariant_oint_p(obj_o)  (((((tint)((obj_o) >> 48) & (0xFFFF000000000000UL >> 48))>>(0+1))<0x14) && (((1UL<<(((tint)((obj_o) >> 48) & (0xFFFF000000000000UL >> 48))>>(0+1))) & 0xFFF4FFFCUL) == 0))
#define pointable_unchecked(obj)  ((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL)))
#define pointable_address_unchecked(obj_o)  ((aint)(obj_o) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))
#define pointable(obj) pointable_unchecked(obj)
extern _Bool inside_gc;
typedef uintP hfint;
#define VAROBJECT_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header;
#define RECORD_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; sintB rectype; uintB recflags; uintW reclength;
typedef struct { RECORD_HEADER gcv_object_t recdata[unspecified]; } record_;
typedef record_ * Record;
#define record_type(ptr)  ((ptr)->rectype)
#define Record_type(obj)  ((((Record)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(1)) )|( (1UL<<(3)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2)) )|( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->rectype)
#define record_flags(ptr)  ((ptr)->recflags)
#define record_flags_set(ptr,bits)  ((ptr)->recflags |= (bits))
#define Record_flags(obj)  ((((Record)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(1)) )|( (1UL<<(3)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2)) )|( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->recflags)
#define VRECORD_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; uintL length;
typedef struct { VRECORD_HEADER } vrecord_;
typedef vrecord_ * Vrecord;
#define vrecord_length(ptr)  ((ptr)->length)
#define SRECORD_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; sintB rectype; uintB recflags; uintW reclength;
typedef struct { SRECORD_HEADER gcv_object_t recdata[unspecified]; } srecord_;
typedef srecord_ * Srecord;
#define srecord_length(ptr)  ((ptr)->reclength)
#define XRECORD_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; sintB rectype; uintB recflags; uintB reclength; uintB recxlength;
#define Rectype_Closure -3
#define Rectype_Structure -2
#define Rectype_Instance -1
#define Rectype_Hashtable 0
#define Rectype_Ratio 1
#define Rectype_Complex 2
#define Rectype_Package 3
#define Rectype_Readtable 4
#define Rectype_Pathname 5
#define Rectype_Logpathname 6
#define Rectype_Random_State 7
#define Rectype_Stream 8
#define Rectype_Byte 9
#define Rectype_Subr 10
#define Rectype_Fsubr 11
#define Rectype_Loadtimeeval 12
#define Rectype_Symbolmacro 13
#define Rectype_GlobalSymbolmacro 14
#define Rectype_Macro 15
#define Rectype_FunctionMacro 16
#define Rectype_BigReadLabel 17
#define Rectype_Encoding 18
#define Rectype_Fpointer 19
#define Rectype_Faddress 20
#define Rectype_Fvariable 21
#define Rectype_Ffunction 22
#define Rectype_Weakpointer 23
#define Rectype_MutableWeakList 24
#define Rectype_MutableWeakAlist 25
#define Rectype_Weakmapping 26
#define Rectype_Finalizer 27
#define Rectype_Socket_Server 28
#define Rectype_WeakList 30
#define Rectype_WeakAnd 31
#define Rectype_WeakOr 32
#define Rectype_WeakAndMapping 33
#define Rectype_WeakOrMapping 34
#define Rectype_WeakAlist_Key 35
#define Rectype_WeakAlist_Value 36
#define Rectype_WeakAlist_Either 37
#define Rectype_WeakAlist_Both 38
#define Rectype_WeakHashedAlist_Key 39
#define Rectype_WeakHashedAlist_Value 40
#define Rectype_WeakHashedAlist_Either 41
#define Rectype_WeakHashedAlist_Both 42
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)(( (1UL<<(1)) )) << 48) + (oint)(aint)((aint)(cint)(int_from_int_char))))
#define char_int(char_from_char_int)  ((cint)(((aint)((oint)(char_from_char_int) >> 0) & (aint)(0x0000FFFFFFFFFFFFUL >> 0))))
typedef cint chart;
#define as_cint(ch)  (ch)
#define as_chart(c)  (c)
#define code_char(ch)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(1)) )) << 48) + (oint)(aint)((aint)(cint)((ch)))))
#define char_code(obj)  (((cint)(((aint)((oint)(obj) >> 0) & (aint)(0x0000FFFFFFFFFFFFUL >> 0)))))
typedef uint8 cint8;
typedef uint16 cint16;
typedef uint32 cint32;
#define fixnum(x)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(x)))
#define Fixnum_0  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))
#define Fixnum_1  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(1)))
#define Fixnum_minus1  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1)))
#define posfixnum_to_V(obj)  ((uintV)(((oint)(obj)&((oint)(2UL<<((48+0)-1))-1))>>0))
#define fixnum_to_V(obj)  (((sintV)(oint)(obj) << (64-1-(0+48))) >> (64-1-(0+48)+0))
#define fixnum_inc(obj,delta)  ((object)((UBYTE*)(obj)+((soint)(delta) << 0)))
#define posfixnum(x)  ((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0))))+((soint)(x) << 0)))
#define negfixnum(x)  ((object)((UBYTE*)(((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))+((soint)(1) << 0))))+((soint)(x) << 0)))
#define sfixnum(x)  ((x)>=0 ? ((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0))))+((soint)(x) << 0))) : ((object)((UBYTE*)(((object)((UBYTE*)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))+((soint)(1) << 0))))+((soint)(x) << 0))))
typedef struct { VAROBJECT_HEADER uintC length; uintD data[unspecified]; } bignum_;
typedef bignum_ * Bignum;
#define bignum_length(ptr)  ((ptr)->length)
#define Bignum_length(obj)  ((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length)
typedef uint32 ffloat;
typedef union { ffloat eksplicit; } ffloatjanus;
typedef uint64 dfloat;
typedef union { dfloat eksplicit; double machine_double; } dfloatjanus;
#define sarray_length(ptr)  ((ptr)->length)
#define Sarray_length(obj)  ((((Sarray)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) )|( (1UL<<(4)) |(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(1)) )|( (1UL<<(4)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(2)) )|( (1UL<<(4)) |(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )|( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length)
typedef struct { VRECORD_HEADER uint8  data[unspecified]; } sbvector_;
typedef sbvector_ * Sbvector;
#define sbvector_length(ptr)  ((ptr)->length)
#define Sbvector_length(obj)  ((((Sbvector)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) )|( (1UL<<(4)) |(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(1)) )|( (1UL<<(4)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(2)) )|( (1UL<<(4)) |(1UL<<(2)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length)
#define SSTRING_HEADER  union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; uintL tfl;
typedef struct { SSTRING_HEADER } sstring_;
typedef sstring_ * Sstring;
#define STRUCT_SSTRING(cint_type)  struct { union { gcv_object_t _GCself; hfint flags[sizeof(gcv_object_t)/sizeof(hfint)]; } header; 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 >> 6)
#define Sstring_length(obj)  ((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 6)
#define sstring_eltype(ptr)  (((ptr)->tfl >> 4) & 3)
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
#define Array_type_simple_bit_vector(atype)  (( (1UL<<(4)) ) + ((atype)<<0) + ((atype)&((1UL<<(0+1))-(1UL<<(1)))) + ((atype)&((1UL<<(1+1))-(1UL<<(2)))))
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*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_mblen) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_mblen)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))
#define Encoding_wcslen(encoding)  ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))
#define Encoding_wcstombs(encoding)  ((void (*) (object, object, const chart**, const chart*, uintB**, uintB*)) ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))
#define cslen(encoding,src,srclen)  ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(encoding,src,(src)+(srclen))
#define cstombs_help_(encoding,src,srclen,dest,destlen,A)  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*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(encoding,(gcv_object_t)(((UBYTE*)((0))+((oint)(tint)((0))<<48))),&_srcptr,_srcendptr,&_destptr,_destendptr); A((_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)->recflags) & (1UL<<(7))) == 0)
#define mark_fp_invalid(ptr)  ((ptr)->recflags |= ((1UL<<(7))))
#define mark_fp_valid(ptr)  ((ptr)->recflags &= ~((1UL<<(7))))
#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)->recflags)
#define closure_instancep(ptr)  (((ptr)->recflags) & (1UL<<(7)))
#define Closure_instancep(obj)  (((((Closure)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->recflags) & (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)(((UBYTE*)((ptr))+((oint)(tint)((0))<<48)))
#define make_system(data)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(1))|(1UL<<(0)))) << 48) + (oint)(aint)((1LL<<(48-1)) | (1UL<<(0)) | (((2LL<<((48)-1))-1) & (data)))))
#define unbound  ((gcv_object_t)(((oint)(tint)(( (1UL<<(1))|(1UL<<(0)))) << 48) + (oint)(aint)((1LL<<(48-1)) | (1UL<<(0)) | (((2LL<<((48)-1))-1) & (0xFFFFFFUL)))))
#define nullobj  (gcv_object_t)(((UBYTE*)((0))+((oint)(tint)((0))<<48)))
#define gcv_nullobj  (gcv_object_t)(((UBYTE*)((0))+((oint)(tint)((0))<<48)))
#define cgci_pointable(obj)  (oint)(obj)
#define pgci_pointable(obj)  (oint)(obj)
#define ngci_pointable(obj)  (oint)(obj)
#define TheCons(obj)  ((Cons)(((0==0) && ((((oint)(tint)(((1UL<<(6)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSymbol(obj)  ((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheBignum(obj)  ((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSbvector(obj)  ((Sbvector)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) )|( (1UL<<(4)) |(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(1)) )|( (1UL<<(4)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(2)) )|( (1UL<<(4)) |(1UL<<(2)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheS8string(obj)  ((S8string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheS16string(obj)  ((S16string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheS32string(obj)  ((S32string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSstring(obj)  ((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSvector(obj)  ((Svector)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheRecord(obj)  ((Record)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(1)) )|( (1UL<<(3)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2)) )|( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSrecord(obj)  ((Srecord)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(1)) )|( (1UL<<(3))|(1UL<<(2)) )|( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheEncoding(obj)  ((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheFpointer(obj)  ((Fpointer)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheStructure(obj)  ((Structure)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheClosure(obj)  ((Closure)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheInstance(obj)  ((Instance)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheSubr(obj)  ((Subr)(((0==0) && ((((oint)(tint)(( (1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheMachine(obj)  ((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define TheMachineCode(obj)  ((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))
#define ThePseudofun(obj)  ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))
#define Car(obj)  (((Cons)(((0==0) && ((((oint)(tint)(((1UL<<(6)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->car)
#define Cdr(obj)  (((Cons)(((0==0) && ((((oint)(tint)(((1UL<<(6)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->cdr)
#define Symbol_function(obj)  (((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->symfunction)
#define Symbol_plist(obj)  (((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->proplist)
#define Symbol_name(obj)  (((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->pname)
#define Symbol_package(obj)  (((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->homepackage)
#define eq(obj1,obj2)  ((obj1) == (obj2))
#define Symbol_value(obj)  (((Symbol)(((0==0) && ((((oint)(tint)(( (1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->symvalue)
#define nullp(obj)  (((obj) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))))))
#define boundp(obj)  (!((obj) == (((gcv_object_t)(((oint)(tint)(( (1UL<<(1))|(1UL<<(0)))) << 48) + (oint)(aint)((1LL<<(48-1)) | (1UL<<(0)) | (((2LL<<((48)-1))-1) & (0xFFFFFFUL))))))))
#define missingp(obj)  (!(!((obj) == (((gcv_object_t)(((oint)(tint)(( (1UL<<(1))|(1UL<<(0)))) << 48) + (oint)(aint)((1LL<<(48-1)) | (1UL<<(0)) | (((2LL<<((48)-1))-1) & (0xFFFFFFUL)))))))) || (((obj) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48))))))))
#define consp(obj)  ((((oint)(obj)) & (1UL<<((6+48)))))
#define mconsp(obj)  ((*((tint*)&(obj)+3)) & (1UL<<(6)))
#define atomp(obj)  (!(((oint)(obj)) & (1UL<<((6+48)))))
#define matomp(obj)  (((*((tint*)&(obj)+3)) & (1UL<<(6)))==0)
#define listp(obj)  ((((obj) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48))))))) || ((((oint)(obj)) & (1UL<<((6+48))))))
#define symbolp(obj)  (((tint)((oint)(obj) >> 48)) == ( (1UL<<(2)) ))
#define vectorp(obj)  ((tint)(((tint)((oint)(obj) >> 48)) - ( (1UL<<(4)) )) <= (tint)(( (1UL<<(4))|(1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0))) - ( (1UL<<(4)) )))
#define simple_vector_p(obj)  (((tint)((oint)(obj) >> 48)) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1))|(1UL<<(0))))
#define general_vector_p(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(3))) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1))|(1UL<<(0))))
#define simple_string_p(obj)  (((tint)((oint)(obj) >> 48)) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) ))
#define stringp(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(3))) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) ))
#define simple_bit_vector_p(atype,obj)  (((tint)((oint)(obj) >> 48)) == (( (1UL<<(4)) ) + ((atype)<<0) + ((atype)&((1UL<<(0+1))-(1UL<<(1)))) + ((atype)&((1UL<<(1+1))-(1UL<<(2))))))
#define bit_vector_p(atype,obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(3))) == (( (1UL<<(4)) ) + ((atype)<<0) + ((atype)&((1UL<<(0+1))-(1UL<<(1)))) + ((atype)&((1UL<<(1+1))-(1UL<<(2))))))
#define arrayp(obj)  ((tint)(((tint)((oint)(obj) >> 48)) - ( (1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))) <= (tint)(( (1UL<<(4))|(1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0))) - ( (1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))))
#define instancep(obj)  (((tint)((oint)(obj) >> 48))==( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0))) || (((tint)((oint)(obj) >> 48))==( (1UL<<(3)) |(1UL<<(0))) && (((((Closure)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->recflags) & (1UL<<(7)))))
#define orecordp(obj)  (((tint)((oint)(obj) >> 48))==( (1UL<<(3))|(1UL<<(2)) ))
#define structurep(obj)  (((tint)((oint)(obj) >> 48))==( (1UL<<(3)) |(1UL<<(1)) ))
#define fpointerp(obj)  ((((tint)((oint)(obj) >> 48))==( (1UL<<(3))|(1UL<<(2)) )) && (((((Record)(((0==0) && ((((oint)(tint)(( (1UL<<(3)) |(1UL<<(0)))|( (1UL<<(3)) |(1UL<<(1)) )|( (1UL<<(3)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2)) )|( (1UL<<(3))|(1UL<<(2)) |(1UL<<(0)))|( (1UL<<(3))|(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->rectype) == Rectype_Fpointer))
#define charp(obj)  (((tint)((oint)(obj) >> 48))==( (1UL<<(1)) ))
#define integerp(obj)  ((((tint)((oint)(obj) >> 48)) & ~((( (1UL<<(5)) )|( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) & ~(( (1UL<<(5)) )&( (1UL<<(5)) |(1UL<<(2)) ))) ) == (( (1UL<<(5)) )&( (1UL<<(5)) |(1UL<<(2)) )))
#define fixnump(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) ))
#define posfixnump(obj)  (((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) ))
#define bignump(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2)) ))
#define posbignump(obj)  (((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) |(1UL<<(2)) ))
#define single_float_p(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2))|(1UL<<(1)) ))
#define double_float_p(obj)  ((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(3)) |(1UL<<(1)) ))
#define positivep(obj)  (!(((oint)(obj)) & (1UL<<((0+48)))))
#define R_minusp(obj)  ((((oint)(obj)) & (1UL<<((0+48)))))
#define FN_positivep(obj)  (!(((oint)(obj)) & (1UL<<((0+48)))))
#define BN_positivep(obj)  (!(((oint)(obj)) & (1UL<<((0+48)))))
#define uint8_p(obj)  (((oint)(obj) & ~((oint)0xFF << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define sint8_p(obj)  ((((oint)(obj) ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7F << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define uint16_p(obj)  (((oint)(obj) & ~((oint)0xFFFF << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define sint16_p(obj)  ((((oint)(obj) ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7FFF << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define uint32_p(obj)  (((oint)(obj) & ~((oint)0xFFFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define sint32_p(obj)  ((((oint)(obj) ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7FFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))
#define uint64_p(obj)  ((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) )) || ((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((65) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((65) + (32) - 1) / (32))) || (((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0] < (uintD)(1UL<<(64%32))))))
#define sint64_p(obj)  (((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) )) || (((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((64) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((64) + (32) - 1) / (32))) || ((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0] ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(63%32))))))
#define uint_p  uint32_p
#define sint_p  sint32_p
#define ulong_p  uint64_p
#define slong_p  sint64_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)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uintL)(handle))))
#define asciz_length(a)  ((uintL)__builtin_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_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_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_parse_foreign_inttype;
  subr_t D_foreign_function;
  subr_t D_sizeof;
  subr_t D_bitsizeof;
  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_t D_open_foreign_library;
  subr_t D_close_foreign_library;
  subr_t D_foreign_pointer_info;
} subr_tab_data;
#define subr_tab  subr_tab_data
#define subr_tab_ptr_as_object(subr_addr)  ((gcv_object_t)(((UBYTE*)((subr_addr))+((oint)(tint)(( (1UL<<(0))))<<48))))
#define L_help_(name)  ((gcv_object_t)(((UBYTE*)((&subr_tab_data.name))+((oint)(tint)(( (1UL<<(0))))<<48))))
#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_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_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_special_variable_p;
  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_validp;
  symbol_ S_set_validp;
  symbol_ S_set_foreign_pointer;
  symbol_ S_parse_foreign_inttype;
  symbol_ S_sizeof;
  symbol_ S_bitsizeof;
  symbol_ S_find_foreign_variable;
  symbol_ S_unsigned_foreign_address;
  symbol_ S_foreign_address_unsigned;
  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_open_foreign_library;
  symbol_ S_Krequire;
  symbol_ S_close_foreign_library;
  symbol_ S_foreign_pointer_info;
  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_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_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_euc_cn;
  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_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)  ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.name))+((oint)(tint)(( (1UL<<(2)) ))<<48))))
#define NIL  ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48))))
#define T  ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_t))+((oint)(tint)(( (1UL<<(2)) ))<<48))))
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 gc_count;
  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_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 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_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 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  0x1
#define PROT_READ_WRITE  (0x1 | 0x2)
extern _Bool handle_fault_range(int prot, aint start_address, aint end_address);
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] = ((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))); 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 framecode(bottomword)  (*((tint*)&(bottomword)+3))
#define framebottomword(type,top_of_frame,bot_of_frame)  (gcv_object_t)(((UBYTE*)((top_of_frame))+((oint)(tint)(type)<<48)))
#define finish_frame(frametype)  ((STACK[-1-(sintP)(-1)]) = ((gcv_object_t)(((UBYTE*)((top_of_frame))+((oint)(tint)(frametype_frame_info)<<48)))), STACK -= -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)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) )|( (1UL<<(4)) |(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(1)) )|( (1UL<<(4)) |(1UL<<(1))|(1UL<<(0)))|( (1UL<<(4)) |(1UL<<(2)) )|( (1UL<<(4)) |(1UL<<(2)) |(1UL<<(0)))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0]))
#define with_string_0_help_(string,encoding,ascizvar,statement,ascizvar_len,ascizvar_offset,ascizvar_string,ascizvar_bytelen,ascizvar_data,A,NR)  do { uintL ascizvar_len; uintL ascizvar_offset; object ascizvar_string = unpack_string_ro(string,&ascizvar_len,&ascizvar_offset); const chart* ptr1; if ((((ascizvar_string) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))))))) { if ((ascizvar_len) > 0) error_nilarray_retrieve(); ptr1= ((void *)0); } else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 2) { ptr1= (const chart*) &((S32string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[ascizvar_offset]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((ascizvar_len)*sizeof(chart)); if ((ascizvar_len) > 0) { if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 1) copy_16bit_32bit(&((S16string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[ascizvar_offset],(cint32*)_unpacked_,ascizvar_len); else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 0) copy_8bit_32bit(&((S8string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[ascizvar_offset],(cint32*)_unpacked_,ascizvar_len); else NR; } ptr1= (const chart*) _unpacked_; }; { uintL ascizvar_bytelen = ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(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*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(encoding,(gcv_object_t)(((UBYTE*)((0))+((oint)(tint)((0))<<48))),&_srcptr,_srcendptr,&_destptr,_destendptr); A((_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,A,NR)  do { object ascizvar_string = (string); while ((((tint)((oint)(ascizvar_string) >> 48)) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) ) && (((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl & 7) & (1UL<<(2))) )) (ascizvar_string) = ((Sistring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data; { uintL ascizvar_len = ((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 6); const chart* ptr1; if ((((ascizvar_string) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))))))) { if ((ascizvar_len) > 0) error_nilarray_retrieve(); ptr1= ((void *)0); } else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 2) { ptr1= (const chart*) &((S32string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((ascizvar_len)*sizeof(chart)); if ((ascizvar_len) > 0) { if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 1) copy_16bit_32bit(&((S16string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0],(cint32*)_unpacked_,ascizvar_len); else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 0) copy_8bit_32bit(&((S8string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(ascizvar_string) : (void*)(aint)((void*)((aint)((oint)(ascizvar_string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0],(cint32*)_unpacked_,ascizvar_len); else NR; } ptr1= (const chart*) _unpacked_; }; { uintL ascizvar_bytelen = ((uintL (*) (object, const chart*, const chart*)) ((Pseudofun)((void*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcslen)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(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*)(((0==0) && ((((oint)(tint)((0)) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs) : (void*)(aint)((void*)((aint)((oint)(((Encoding)(((0==0) && ((((oint)(tint)(( (1UL<<(3))|(1UL<<(2)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(encoding) : (void*)(aint)((void*)((aint)((oint)(encoding)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->enc_wcstombs)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))))(encoding,(gcv_object_t)(((UBYTE*)((0))+((oint)(tint)((0))<<48))),&_srcptr,_srcendptr,&_destptr,_destendptr); A((_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) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))))))
_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,uu)  if ((((string) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48)))))))) { if ((len) > 0) error_nilarray_retrieve(); charptr_assignment ((void *)0); } else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 2) { charptr_assignment (const chart*) &((S32string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[offset]; } else { chart* _unpacked_ = (chart*)__builtin_alloca((len)*sizeof(chart)); if ((len) > 0) { if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 1) copy_16bit_32bit(&((S16string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[offset],(cint32*)_unpacked_,len); else if ((((((Sstring)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->tfl >> 4) & 3) == 0) copy_8bit_32bit(&((S8string)(((0==0) && ((((oint)(tint)(( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) )) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(string) : (void*)(aint)((void*)((aint)((oint)(string)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[offset],(cint32*)_unpacked_,len); else uu; } 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) == (((gcv_object_t)(((UBYTE*)((&symbol_tab_data.S_nil))+((oint)(tint)(( (1UL<<(2)) ))<<48))))))) || ((((oint)(obj)) & (1UL<<((6+48))))))) 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 (!((tint)(((tint)((oint)(obj) >> 48)) - ( (1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))) <= (tint)(( (1UL<<(4))|(1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0))) - ( (1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0)))))) 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 (!((tint)(((tint)((oint)(obj) >> 48)) - ( (1UL<<(4)) )) <= (tint)(( (1UL<<(4))|(1UL<<(3))|(1UL<<(2))|(1UL<<(1))|(1UL<<(0))) - ( (1UL<<(4)) )))) 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 (!((((tint)((oint)(obj) >> 48)) & ~(1UL<<(3))) == (( (1UL<<(4)) ) + ((3)<<0) + ((3)&((1UL<<(0+1))-(1UL<<(1)))) + ((3)&((1UL<<(1+1))-(1UL<<(2))))))) 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 (!(((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) ))) 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 (!(((((tint)((oint)(obj) >> 48)) & ~((( (1UL<<(5)) )|( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) & ~(( (1UL<<(5)) )&( (1UL<<(5)) |(1UL<<(2)) ))) ) == (( (1UL<<(5)) )&( (1UL<<(5)) |(1UL<<(2)) )))&&!((((oint)(obj)) & (1UL<<((0+48))))))) 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 (!((((tint)((oint)(obj) >> 48)) & ~(1UL<<(3))) == ( (1UL<<(4)) |(1UL<<(2))|(1UL<<(1)) ))) 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_uint64
#define error_slong error_sint64
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 << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7F << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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 << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7FFF << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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) & ~((oint)0xFFFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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) ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7FFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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 (!((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) )) || ((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((65) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((65) + (32) - 1) / (32))) || (((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->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 (!(((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) )) || (((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((64) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((64) + (32) - 1) / (32))) || ((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0] ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? (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) & ~((oint)0xFFFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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) ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? 0 : (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) ) | (1UL<<(0))) << 48) + (oint)(aint)((2LL<<((48)-1))-1))))^(oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) & ~((oint)0x7FFFFFFFUL << 0)) == (oint)(((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)(0)))))) 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 (!((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) )) || ((((tint)((oint)(obj) >> 48)) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((65) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((65) + (32) - 1) / (32))) || (((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0] < (uintD)(1UL<<(64%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 (!(((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) )) || (((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2)) )) && (((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) <= (((64) + (32) - 1) / (32))) && ((((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) ))))->length) < (((64) + (32) - 1) / (32))) || ((((Bignum)(((0==0) && ((((oint)(tint)(( (1UL<<(5)) |(1UL<<(2)) )|(1UL<<(0))) << 48) & ~0UL) == 0) ? (void*)(aint)(oint)(obj) : (void*)(aint)((void*)((aint)((oint)(obj)) & ((aint)0x0000FFFFFFFFFFFFUL | ~~0UL))) )))->data[0] ^ ((!(((oint)(obj)) & (1UL<<((0+48))))) ? (uintD)0 : ~(uintD)0)) < (uintD)(1UL<<(63%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 (!((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(2))|(1UL<<(1)) ))) 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 (!((((tint)((oint)(obj) >> 48)) & ~(1UL<<(0))) == ( (1UL<<(5)) |(1UL<<(3)) |(1UL<<(1)) ))) 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(uint64 sec, uint64 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);
#define UL_to_I(val)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uintL)(val))))
#define L2_to_I(val_hi,val_lo)  Q_to_I(((sint64)(sint32)(val_hi)<<32)|(sint64)(uint32)(val_lo))
#define UL2_to_I(val_hi,val_lo)  UQ_to_I(((uint64)(uint32)(val_hi)<<32)|(uint64)(uint32)(val_lo))
extern object Q_to_I(sint64 val);
extern object UQ_to_I(uint64 val);
#define uint8_to_I(val)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uint8)(val))))
#define sint8_to_I(val)  L_to_I((sint32)(sint8)(val))
#define uint16_to_I(val)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uint16)(val))))
#define sint16_to_I(val)  L_to_I((sint32)(sint16)(val))
#define uint32_to_I(val)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uintL)((uint32)(val)))))
#define sint32_to_I(val)  L_to_I((sint32)(val))
#define uint64_to_I(val)  UQ_to_I((uint64)(val))
#define sint64_to_I(val)  Q_to_I((sint64)(val))
#define uint_to_I(val)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uintL)((uint32)(val)))))
#define sint_to_I(val)  L_to_I((sint32)(val))
#define ulong_to_I(val)  UQ_to_I((uint64)(val))
#define slong_to_I(val)  Q_to_I((sint64)(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) >> 0)
#define I_to_sint8(obj)  (sint8)((oint)(obj) >> 0)
#define I_to_uint16(obj)  (uint16)((oint)(obj) >> 0)
#define I_to_sint16(obj)  (sint16)((oint)(obj) >> 0)
#define I_to_uint32(obj)  (uint32)((oint)(obj) >> 0)
#define I_to_sint32(obj)  (sint32)((oint)(obj) >> 0)
#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_uint64
#define I_to_slong  I_to_sint64
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 }, 10UL,0UL,2UL,0x18UL, 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 uint64_to_I
#define ssize_to_I sint64_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 */
clisp 1:2.49.20170913-4build1 / usr / lib / clisp-2.49.60+ / linkkit / clisp.h
