#ifndef _CLISP_H
#define _CLISP_H

/* config.h */
#define CADDR_T caddr_t
#define CLISP_SOCKLEN_T socklen_t
#define CODE_ADDRESS_RANGE 0x0000000000000000UL
#define CONNECT_ADDRLEN_T unsigned int
#define CONNECT_CONST const
#define CONNECT_NAME_T struct sockaddr *
#define ELOOP_VALUE ELOOP
#define ENABLE_NLS 1
#define GNULIB_MALLOC_GNU 1
#define HAVE_ALLOCA 1
#define HAVE_ALLOCA_H 1
#define HAVE_ARPA_INET_H 1
#define HAVE_AVCALL_H 1
#define HAVE_BTOWC 1
#define HAVE_CALLBACK_H 1
#define HAVE_CONNECT 1
#define HAVE_DCGETTEXT 1
#define HAVE_DECL_ENVIRON 1
#define HAVE_DECL_GETC_UNLOCKED 1
#define HAVE_DECL_ISBLANK 1
#define HAVE_DECL_RL_ALREADY_PROMPTED 1
#define HAVE_DECL_RL_GNU_READLINE_P 1
#define HAVE_DECL_RL_READLINE_NAME 1
#define HAVE_DLADDR 1
#define HAVE_DLCLOSE 1
#define HAVE_DLERROR 1
#define HAVE_DLFCN_H 1
#define HAVE_DLOPEN 1
#define HAVE_DLSYM 1
#define HAVE_DLVSYM 1
#define HAVE_FCHMOD 1
#define HAVE_FIONREAD /**/
#define HAVE_FLOCK 1
#define HAVE_FORK 1
#define HAVE_FSYNC 1
#define HAVE_FTIME 1
#define HAVE_GETCWD 1
#define HAVE_GETDTABLESIZE 1
#define HAVE_GETHOSTBYNAME /**/
#define HAVE_GETHOSTENT 1
#define HAVE_GETHOSTNAME 1
#define HAVE_GETPAGESIZE 1
#define HAVE_GETRESGID 1
#define HAVE_GETRESUID 1
#define HAVE_GETRLIMIT 1
#define HAVE_GETRUSAGE /**/
#define HAVE_GETSOCKOPT 1
#define HAVE_GETTEXT 1
#define HAVE_GETTIMEOFDAY 1
#define HAVE_ICONV 1
#define HAVE_INET_ADDR 1
#define HAVE_INET_NTOP 1
#define HAVE_INET_PTON 1
#define HAVE_INTTYPES_H 1
#define HAVE_IOCTL 1
#define HAVE_IPV4 /**/
#define HAVE_IPV6 /**/
#define HAVE_ISBLANK 1
#define HAVE_ISWCNTRL 1
#define HAVE_ISWCTYPE 1
#define HAVE_LANGINFO_CODESET 1
#define HAVE_LC_MESSAGES 1
#define HAVE_LIBINTL_H 1
#define HAVE_LIBSIGSEGV 1
#define HAVE_LOCALE_H 1
#define HAVE_LONG_LONG_INT 1
#define HAVE_LSTAT /**/
#define HAVE_MALLOC 1
#define HAVE_MALLOC_POSIX 1
#define HAVE_MAP_ANONYMOUS 1
#define HAVE_MBRTOWC 1
#define HAVE_MBSINIT 1
#define HAVE_MBSRTOWCS 1
#define HAVE_MBSTATE_T 1
#define HAVE_MEMCHR 1
#define HAVE_MEMORY_H 1
#define HAVE_MEMPCPY 1
#define HAVE_MEMSET 1
#define HAVE_MMAP /**/
#define HAVE_MMAP_ANON /**/
#define HAVE_MMAP_ANONYMOUS /**/
#define HAVE_MMAP_DEVZERO /**/
#define HAVE_MPROTECT 1
#define HAVE_MSYNC 1
#define HAVE_MUNMAP 1
#define HAVE_NETDB_H 1
#define HAVE_NETINET_IN_H 1
#define HAVE_NETINET_TCP_H 1
#define HAVE_NICE 1
#define HAVE_POLL 1
#define HAVE_PUTENV 1
#define HAVE_READDIR_R 1
#define HAVE_READLINE /**/
#define HAVE_READLINE_READLINE_H 1
#define HAVE_READLINK 1
#define HAVE_REALPATH 1
#define HAVE_RELIABLE_FIONREAD /**/
#define HAVE_RELIABLE_POLL /**/
#define HAVE_RELIABLE_SELECT /**/
#define HAVE_RL_FILENAME_COMPLETION_FUNCTION 1
#define HAVE_SELECT 1
#define HAVE_SETENV 1
#define HAVE_SETITIMER 1
#define HAVE_SETPGID 1
#define HAVE_SETREGID 1
#define HAVE_SETRESGID 1
#define HAVE_SETRESUID 1
#define HAVE_SETREUID 1
#define HAVE_SETRLIMIT 1
#define HAVE_SETSID 1
#define HAVE_SETSOCKOPT 1
#define HAVE_SGTTY_H 1
#define HAVE_SHM /**/
#define HAVE_SHUTDOWN 1
#define HAVE_SIGACTION 1
#define HAVE_SIGINTERRUPT 1
#define HAVE_STDBOOL_H 1
#define HAVE_STDINT_H 1
#define HAVE_STDLIB_H 1
#define HAVE_STRERROR 1
#define HAVE_STRINGS_H 1
#define HAVE_STRING_H 1
#define HAVE_STRUCT_RANDOM_DATA 1
#define HAVE_STRUCT_STAT_ST_BLKSIZE 1
#define HAVE_STRUCT_STAT_ST_BLOCKS 1
#define HAVE_STRUCT_STAT_ST_RDEV 1
#define HAVE_SYSCONF 1
#define HAVE_SYS_FILE_H 1
#define HAVE_SYS_IPC_H 1
#define HAVE_SYS_MMAN_H 1
#define HAVE_SYS_RESOURCE_H 1
#define HAVE_SYS_SELECT_H /**/
#define HAVE_SYS_SHM_H 1
#define HAVE_SYS_STAT_H 1
#define HAVE_SYS_SYSMACROS_H 1
#define HAVE_SYS_TIMES_H 1
#define HAVE_SYS_TIME_H 1
#define HAVE_SYS_TYPES_H 1
#define HAVE_SYS_UN_H 1
#define HAVE_SYS_UTSNAME_H 1
#define HAVE_TCGETATTR /**/
#define HAVE_TCSAFLUSH /**/
#define HAVE_TERMIOS_H 1
#define HAVE_TERMIO_H 1
#define HAVE_TIME_H 1
#define HAVE_UALARM 1
#define HAVE_UNAME 1
#define HAVE_UNISTD_H 1
#define HAVE_UNSETENV 1
#define HAVE_UNSIGNED_LONG_LONG_INT 1
#define HAVE_USLEEP 1
#define HAVE_VFORK 1
#define HAVE_WCHAR_H 1
#define HAVE_WCRTOMB 1
#define HAVE_WCSCOLL 1
#define HAVE_WCTYPE_H 1
#define HAVE_WINT_T 1
#define HAVE_WMEMCHR 1
#define HAVE_WMEMCPY 1
#define HAVE_WMEMPCPY 1
#define HAVE_WORKING_FORK 1
#define HAVE_WORKING_MPROTECT /**/
#define HAVE_WORKING_VFORK 1
#define HAVE__BOOL 1
#define HAVE__JMP /**/
#define ICONV_CONST 
#define INET_ADDR_CONST const
#define INET_ADDR_SUFFIX /**/
#define IOCTL_DOTS /**/
#define IOCTL_REQUEST_T unsigned long
#define MALLOC_ADDRESS_RANGE 0x0000000000000000UL
#define NEED_SYS_IOCTL_H /**/
#define PACKAGE "clisp"
#define PACKAGE_BUGREPORT "http://clisp.cons.org/"
#define PACKAGE_NAME "GNU CLISP"
#define PACKAGE_STRING "GNU CLISP 2.48 (2009-07-28)"
#define PACKAGE_TARNAME "clisp"
#define PACKAGE_VERSION "2.48 (2009-07-28)"
#define PID_T pid_t
#define READLINE_CONST const
#define READLINE_FILE_COMPLETE rl_filename_completion_function
#define RET_INET_ADDR_TYPE unsigned int
#define RLIMIT_RESOURCE_T enum __rlimit_resource
#define RUSAGE_WHO_T int
#define SELECT_CONST 
#define SELECT_SET_T fd_set
#define SELECT_WIDTH_T int
#define SETRLIMIT_CONST const
#define SETSOCKOPT_ARG_T void*
#define SETSOCKOPT_CONST const
#define SETSOCKOPT_OPTLEN_T unsigned int
#define SHLIB_ADDRESS_RANGE 0x00007F695E000000UL
#define SHM_RMID_VALID /**/
#define SIZEOF_DEV_T 8
#define SIZEOF_INO_T 8
#define SIZEOF_OFF_T 8
#define SIZEOF_RLIM_T 8
#define SIZEOF_STRUCT_TIMEVAL 16
#define STACK_ADDRESS_RANGE 0x00007FFF32000000UL
#define STDC_HEADERS 1
#define UNSETENV_POSIX 0
#define VALID_FILENAME_CHAR ((ch >= 1) && (ch != 47))
#define VERSION "2.48 (2009-07-28)"
#define WINSIZE_NEED_SYS_IOCTL_H /**/
#if defined AC_APPLE_UNIVERSAL_BUILD
# if defined __BIG_ENDIAN__
#  define WORDS_BIGENDIAN 1
# endif
#else
# ifndef WORDS_BIGENDIAN
# endif
#endif
#define _REGEX_LARGE_OFFSETS 1
#ifndef __CHAR_UNSIGNED__
#endif
#ifndef _ALL_SOURCE
# define _ALL_SOURCE 1
#endif
#ifndef _GNU_SOURCE
# define _GNU_SOURCE 1
#endif
#ifndef _POSIX_PTHREAD_SEMANTICS
# define _POSIX_PTHREAD_SEMANTICS 1
#endif
#ifndef _TANDEM_SOURCE
# define _TANDEM_SOURCE 1
#endif
#ifndef __EXTENSIONS__
# define __EXTENSIONS__ 1
#endif
#ifndef __cplusplus
#endif
#if defined __APPLE__ && defined __MACH__ && __APPLE_CC__ >= 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__
# define __GNUC_STDC_INLINE__ 1
#endif
#define re_comp rpl_re_comp
#define re_compile_fastmap rpl_re_compile_fastmap
#define re_compile_pattern rpl_re_compile_pattern
#define re_exec rpl_re_exec
#define re_match rpl_re_match
#define re_match_2 rpl_re_match_2
#define re_search rpl_re_search
#define re_search_2 rpl_re_search_2
#define re_set_registers rpl_re_set_registers
#define re_set_syntax rpl_re_set_syntax
#define re_syntax_options rpl_re_syntax_options
#define regcomp rpl_regcomp
#define regerror rpl_regerror
#define regexec rpl_regexec
#define regfree rpl_regfree
#define restrict __restrict
#if defined __SUNPRO_CC && !defined __RESTRICT
# define _Restrict
#endif
#if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7)
# define _UNUSED_PARAMETER_ __attribute__ ((__unused__))
#else
# define _UNUSED_PARAMETER_
#endif

/* 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 BIG_ENDIAN_P  0
#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 nonreturning_function(storclass,funname,arguments)  storclass void __attribute__((__noreturn__)) funname arguments
#define NOTREACHED  error_notreached(__FILE__,__LINE__)
#define ASSERT(expr)  do { if (!(expr)) NOTREACHED; } while(0)
#define alloca __builtin_alloca
#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;
#define uintC  uintWL
typedef uint32 uintD;
typedef enum { persev_full=0, persev_partial=1, persev_immediate=2, persev_bonus=3 } perseverance_t;
#include <stdlib.h>
#include <sys/types.h>
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);
#define unused  (void)
nonreturning_function(extern, 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 uint48 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_Byte 8
#define Rectype_Subr 9
#define Rectype_Fsubr 10
#define Rectype_Loadtimeeval 11
#define Rectype_Symbolmacro 12
#define Rectype_GlobalSymbolmacro 13
#define Rectype_Macro 14
#define Rectype_FunctionMacro 15
#define Rectype_BigReadLabel 16
#define Rectype_Encoding 17
#define Rectype_Fpointer 18
#define Rectype_Faddress 19
#define Rectype_Fvariable 20
#define Rectype_Ffunction 21
#define Rectype_Weakpointer 22
#define Rectype_MutableWeakList 23
#define Rectype_MutableWeakAlist 24
#define Rectype_Weakmapping 25
#define Rectype_Finalizer 26
#define Rectype_Socket_Server 27
#define Rectype_WeakList 29
#define Rectype_WeakAnd 30
#define Rectype_WeakOr 31
#define Rectype_WeakAndMapping 32
#define Rectype_WeakOrMapping 33
#define Rectype_WeakAlist_Key 34
#define Rectype_WeakAlist_Value 35
#define Rectype_WeakAlist_Either 36
#define Rectype_WeakAlist_Both 37
#define Rectype_WeakHashedAlist_Key 38
#define Rectype_WeakHashedAlist_Value 39
#define Rectype_WeakHashedAlist_Either 40
#define Rectype_WeakHashedAlist_Both 41
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; } 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_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_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(type,statement)  do { ; type statement; ; } while(0)
#define GC_SAFE_SYSTEM_CALL(type,statement)  do { ; ; ;;; type statement; ; ; ;;; } while(0)
nonreturning_function(extern, 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 (FOREIGN foreign);
#define allocate_handle(handle)  ((gcv_object_t)(((oint)(tint)(( (1UL<<(5)) )) << 48) + (oint)(aint)((uintL)(handle))))
#define asciz_length(a)  ((uintL)strlen(a))
extern void* clisp_malloc (size_t size);
extern void* clisp_realloc (void *ptr, size_t size);
extern void begin_want_sigcld (void);
extern void end_want_sigcld (void);
extern bool writing_to_subprocess;
extern struct subr_tab_ {
  VAROBJECTS_ALIGNMENT_DUMMY_DECL
  subr_t D_funtabref;
  subr_t D_subr_info;
  subr_t D_special_variable_p;
  subr_t D_add_implicit_block;
  subr_t D_function_block_name;
  subr_t D_copy_simple_vector;
  subr_t D_vector;
  subr_t D_aref;
  subr_t D_store;
  subr_t D_svref;
  subr_t D_svstore;
  subr_t D_psvstore;
  subr_t D_row_major_aref;
  subr_t D_row_major_store;
  subr_t D_array_element_type;
  subr_t D_array_rank;
  subr_t D_array_dimension;
  subr_t D_array_dimensions;
  subr_t D_array_total_size;
  subr_t D_array_in_bounds_p;
  subr_t D_array_row_major_index;
  subr_t D_adjustable_array_p;
  subr_t D_array_displacement;
  subr_t D_bit;
  subr_t D_sbit;
  subr_t D_bit_and;
  subr_t D_bit_ior;
  subr_t D_bit_xor;
  subr_t D_bit_eqv;
  subr_t D_bit_nand;
  subr_t D_bit_nor;
  subr_t D_bit_andc1;
  subr_t D_bit_andc2;
  subr_t D_bit_orc1;
  subr_t D_bit_orc2;
  subr_t D_bit_not;
  subr_t D_array_has_fill_pointer_p;
  subr_t D_fill_pointer;
  subr_t D_set_fill_pointer;
  subr_t D_vector_push;
  subr_t D_vector_pop;
  subr_t D_vector_push_extend;
  subr_t D_make_array;
  subr_t D_adjust_array;
  subr_t D_vector_init;
  subr_t D_vector_upd;
  subr_t D_vector_endtest;
  subr_t D_vector_fe_init;
  subr_t D_vector_fe_upd;
  subr_t D_vector_fe_endtest;
  subr_t D_vector_length;
  subr_t D_vector_init_start;
  subr_t D_vector_fe_init_end;
  subr_t D_make_bit_vector;
  subr_t D_string_info;
  subr_t D_standard_char_p;
  subr_t D_graphic_char_p;
  subr_t D_char_width;
  subr_t D_string_char_p;
  subr_t D_alpha_char_p;
  subr_t D_upper_case_p;
  subr_t D_lower_case_p;
  subr_t D_both_case_p;
  subr_t D_digit_char_p;
  subr_t D_alphanumericp;
  subr_t D_char_eq;
  subr_t D_char_noteq;
  subr_t D_char_less;
  subr_t D_char_greater;
  subr_t D_char_ltequal;
  subr_t D_char_gtequal;
  subr_t D_char_equal;
  subr_t D_char_not_equal;
  subr_t D_char_lessp;
  subr_t D_char_greaterp;
  subr_t D_char_not_greaterp;
  subr_t D_char_not_lessp;
  subr_t D_char_code;
  subr_t D_code_char;
  subr_t D_character;
  subr_t D_char_upcase;
  subr_t D_char_downcase;
  subr_t D_digit_char;
  subr_t D_char_int;
  subr_t D_int_char;
  subr_t D_char_name;
  subr_t D_char_invertcase;
  subr_t D_char;
  subr_t D_schar;
  subr_t D_store_char;
  subr_t D_store_schar;
  subr_t D_string_eq;
  subr_t D_cs_string_eq;
  subr_t D_string_noteq;
  subr_t D_cs_string_noteq;
  subr_t D_string_less;
  subr_t D_cs_string_less;
  subr_t D_string_greater;
  subr_t D_cs_string_greater;
  subr_t D_string_ltequal;
  subr_t D_cs_string_ltequal;
  subr_t D_string_gtequal;
  subr_t D_cs_string_gtequal;
  subr_t D_string_equal;
  subr_t D_string_not_equal;
  subr_t D_string_lessp;
  subr_t D_string_greaterp;
  subr_t D_string_not_greaterp;
  subr_t D_string_not_lessp;
  subr_t D_search_string_eq;
  subr_t D_search_string_equal;
  subr_t D_make_string;
  subr_t D_string_both_trim;
  subr_t D_string_width;
  subr_t D_nstring_upcase;
  subr_t D_string_upcase;
  subr_t D_nstring_downcase;
  subr_t D_string_downcase;
  subr_t D_nstring_capitalize;
  subr_t D_string_capitalize;
  subr_t D_nstring_invertcase;
  subr_t D_string_invertcase;
  subr_t D_string;
  subr_t D_cs_string;
  subr_t D_name_char;
  subr_t D_substring;
  subr_t D_string_concat;
  subr_t D_exit;
  subr_t D_symbol_value;
  subr_t D_symbol_function;
  subr_t D_fdefinition;
  subr_t D_boundp;
  subr_t D_fboundp;
  subr_t D_special_operator_p;
  subr_t D_set;
  subr_t D_makunbound;
  subr_t D_fmakunbound;
  subr_t D_apply;
  subr_t D_funcall;
  subr_t D_mapcar;
  subr_t D_maplist;
  subr_t D_mapc;
  subr_t D_mapl;
  subr_t D_mapcan;
  subr_t D_mapcon;
  subr_t D_mapcap;
  subr_t D_maplap;
  subr_t D_values;
  subr_t D_values_list;
  subr_t D_driver;
  subr_t D_unwind_to_driver;
  subr_t D_macro_function;
  subr_t D_macroexpand;
  subr_t D_macroexpand_1;
  subr_t D_proclaim;
  subr_t D_eval;
  subr_t D_evalhook;
  subr_t D_applyhook;
  subr_t D_constantp;
  subr_t D_global_symbol_macro_p;
  subr_t D_function_side_effect;
  subr_t D_function_name_p;
  subr_t D_check_function_name;
  subr_t D_check_symbol;
  subr_t D_parse_body;
  subr_t D_keyword_test;
  subr_t D_xor;
  subr_t D_read_form;
  subr_t D_read_eval_print;
  subr_t D_initial_break_driver;
  subr_t D_load;
  subr_t D_frame_up;
  subr_t D_frame_down;
  subr_t D_the_frame;
  subr_t D_same_env_as;
  subr_t D_eval_at;
  subr_t D_eval_frame_p;
  subr_t D_driver_frame_p;
  subr_t D_trap_eval_frame;
  subr_t D_redo_eval_frame;
  subr_t D_return_from_eval_frame;
  subr_t D_describe_frame;
  subr_t D_show_stack;
  subr_t D_crash;
  subr_t D_proom;
  subr_t D_gc;
  subr_t D_make_encoding;
  subr_t D_encodingp;
  subr_t D_charset_typep;
  subr_t D_encoding_line_terminator;
  subr_t D_encoding_charset;
  subr_t D_charset_range;
  subr_t D_default_file_encoding;
  subr_t D_set_default_file_encoding;
  subr_t D_pathname_encoding;
  subr_t D_set_pathname_encoding;
  subr_t D_terminal_encoding;
  subr_t D_set_terminal_encoding;
  subr_t D_foreign_encoding;
  subr_t D_set_foreign_encoding;
  subr_t D_misc_encoding;
  subr_t D_set_misc_encoding;
  subr_t D_convert_string_from_bytes;
  subr_t D_convert_string_to_bytes;
  subr_t D_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_read;
  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_listen;
  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_write;
  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_sleep;
  subr_t D_time;
  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_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_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_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_read;
  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_listen;
  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_write;
  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_sleep;
  symbol_ S_time;
  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_close;
  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_program_name;
  symbol_ S_lib_directory;
  symbol_ S_set_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_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_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_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_os_error;
  symbol_ S_simple_storage_condition;
  symbol_ S_simple_interrupt_condition;
  symbol_ S_simple_warning;
  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_danish;
  symbol_ S_german;
  symbol_ S_french;
  symbol_ S_spanish;
  symbol_ S_dutch;
  symbol_ S_russian;
  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 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 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_write;
  gcv_object_t seclass_default;
  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 uintC 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 *); } module_t;
extern module_t modules[];
#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 uintC 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 { count--; if (count > 0) { object* mvp = &mv_space[1+count]; do { ; { count = (count); do {{ *--mvp = (STACK -= 1, (STACK[-1-(sintP)(-1)])); }} while (--count != 0); }; } while(0); } mv_space[0] = (STACK -= 1, (STACK[-1-(sintP)(-1)])); } } 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, uintC 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 uintL vector_length (object vector);
extern object vectorof (uintC 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)))))))
nonreturning_function(extern, 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,u)  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 u; } 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 (uintC 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 (uintC 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 bool use_default_function_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, os_error=25, storage_condition=26, interrupt_condition=27, warning=28 } condition_t;
nonreturning_function(extern, error, (condition_t errortype, const char * errorstring));
extern void check_value (condition_t errortype, const char * errorstring);
nonreturning_function(extern, OS_error_arg, (object etype, object arg));
#define OS_file_error(path) OS_error_arg(S(simple_file_error),path)
nonreturning_function(extern, 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
nonreturning_function(extern, 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
nonreturning_function(extern, error_string_integer, (object obj));
nonreturning_function(extern, error_plist_odd, (object plist));
nonreturning_function(extern, error_key_odd, (uintC argcount, object caller));
nonreturning_function(extern, error_key_badkw, (object fun, object key, object val, object kwlist));
nonreturning_function(extern, 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 physical_namestring (object obj);
extern object pathname_to_OSdir (object pathname, bool use_default);
extern object OSdir_to_pathname (const char* path);
extern Handle handle_dup (Handle old_handle);
extern Handle handle_dup2 (Handle old_handle, Handle 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 Handle stream_lend_handle (gcv_object_t *stream_, bool inputp, int * handletype);
extern object open_file_stream_handle (object stream, Handle *fd, bool permissive_p);
extern off_t handle_length (gcv_object_t *stream_, Handle 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 file_stream_truename (object s);
extern object make_file_stream (direction_t direction, bool append_flag,bool handle_fresh);/*+6 arguments on the STACK!*/
extern void stream_handles (object obj, bool check_open, bool* char_p, SOCKET* in_sock, SOCKET* out_sock);
extern object addr_to_string (short type, char *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, uintC len);
extern object DS_to_I (const uintD* MSDptr, uintC 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);
extern converter_malloc_t mallocing, nomalloc;
extern void convert_to_foreign (object fvd, object obj, void* data, converter_malloc_t *converter_malloc);
#define unprotect_heap_range(vo,access)  
#define pin_varobject_with_pc(pc,vo)  
#define pin_varobject(vo)  
#define unpin_varobject(vo)  
#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 }, 9UL,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
#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 */
