Package: gcc-4.0
Version: gcc-4.0
Severity: serious

On arm only, gcc cannot handle C identifiers like:

static void L1__GET_$ENVIRONMENT__defmacro()

reporting:

gcc  -g -Wall -DVOL=volatile -fsigned-char -pipe -pg -g -mlong-calls   -I/home/camm/gcl-2.6.7/o -c gcl_defmacro.c
In file included from gcl_defmacro.c:3:
gcl_defmacro.h:2: error: stray '$' in program
gcl_defmacro.h:2: error: syntax error before 'ENVIRONMENT__defmacro'
gcl_defmacro.h:2: warning: type defaults to 'int' in declaration of 'ENVIRONMENT__defmacro'
gcl_defmacro.h:2: warning: data definition has no type or storage class
gcl_defmacro.h:67: error: stray '$' in program
gcl_defmacro.h:67: error: 'L1__GET_' undeclared here (not in a function)
gcl_defmacro.h:67: error: syntax error before 'ENVIRONMENT__defmacro'
gcl_defmacro.c:7: error: stray '$' in program
gcl_defmacro.c:7: error: syntax error before 'ENVIRONMENT__defmacro'
gcl_defmacro.c:8: warning: return type defaults to 'int'
gcl_defmacro.c: In function 'ENVIRONMENT__defmacro':
gcl_defmacro.c:61: warning: 'return' with no value, in function returning non-void
gcl_defmacro.c:63: warning: control reaches end of non-void function
make: *** [gcl_defmacro.o] Error 1

Here is the preprocessed source:

=============================================================================
# 1 "gcl_defmacro.c"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "gcl_defmacro.c"

# 1 "../h/cmpinclude.h" 1
# 174 "../h/cmpinclude.h"
# 1 "/usr/include/math.h" 1 3 4
# 27 "/usr/include/math.h" 3 4
# 1 "/usr/include/features.h" 1 3 4
# 308 "/usr/include/features.h" 3 4
# 1 "/usr/include/sys/cdefs.h" 1 3 4
# 309 "/usr/include/features.h" 2 3 4
# 331 "/usr/include/features.h" 3 4
# 1 "/usr/include/gnu/stubs.h" 1 3 4
# 332 "/usr/include/features.h" 2 3 4
# 28 "/usr/include/math.h" 2 3 4





# 1 "/usr/include/bits/huge_val.h" 1 3 4
# 34 "/usr/include/math.h" 2 3 4
# 46 "/usr/include/math.h" 3 4
# 1 "/usr/include/bits/mathdef.h" 1 3 4
# 47 "/usr/include/math.h" 2 3 4
# 70 "/usr/include/math.h" 3 4
# 1 "/usr/include/bits/mathcalls.h" 1 3 4
# 53 "/usr/include/bits/mathcalls.h" 3 4


extern double acos (double __x) __attribute__ ((__nothrow__)); extern double __acos (double __x) __attribute__ ((__nothrow__));

extern double asin (double __x) __attribute__ ((__nothrow__)); extern double __asin (double __x) __attribute__ ((__nothrow__));

extern double atan (double __x) __attribute__ ((__nothrow__)); extern double __atan (double __x) __attribute__ ((__nothrow__));

extern double atan2 (double __y, double __x) __attribute__ ((__nothrow__)); extern double __atan2 (double __y, double __x) __attribute__ ((__nothrow__));


extern double cos (double __x) __attribute__ ((__nothrow__)); extern double __cos (double __x) __attribute__ ((__nothrow__));

extern double sin (double __x) __attribute__ ((__nothrow__)); extern double __sin (double __x) __attribute__ ((__nothrow__));

extern double tan (double __x) __attribute__ ((__nothrow__)); extern double __tan (double __x) __attribute__ ((__nothrow__));




extern double cosh (double __x) __attribute__ ((__nothrow__)); extern double __cosh (double __x) __attribute__ ((__nothrow__));

extern double sinh (double __x) __attribute__ ((__nothrow__)); extern double __sinh (double __x) __attribute__ ((__nothrow__));

extern double tanh (double __x) __attribute__ ((__nothrow__)); extern double __tanh (double __x) __attribute__ ((__nothrow__));

# 87 "/usr/include/bits/mathcalls.h" 3 4


extern double acosh (double __x) __attribute__ ((__nothrow__)); extern double __acosh (double __x) __attribute__ ((__nothrow__));

extern double asinh (double __x) __attribute__ ((__nothrow__)); extern double __asinh (double __x) __attribute__ ((__nothrow__));

extern double atanh (double __x) __attribute__ ((__nothrow__)); extern double __atanh (double __x) __attribute__ ((__nothrow__));







extern double exp (double __x) __attribute__ ((__nothrow__)); extern double __exp (double __x) __attribute__ ((__nothrow__));


extern double frexp (double __x, int *__exponent) __attribute__ ((__nothrow__)); extern double __frexp (double __x, int *__exponent) __attribute__ ((__nothrow__));


extern double ldexp (double __x, int __exponent) __attribute__ ((__nothrow__)); extern double __ldexp (double __x, int __exponent) __attribute__ ((__nothrow__));


extern double log (double __x) __attribute__ ((__nothrow__)); extern double __log (double __x) __attribute__ ((__nothrow__));


extern double log10 (double __x) __attribute__ ((__nothrow__)); extern double __log10 (double __x) __attribute__ ((__nothrow__));


extern double modf (double __x, double *__iptr) __attribute__ ((__nothrow__)); extern double __modf (double __x, double *__iptr) __attribute__ ((__nothrow__));

# 127 "/usr/include/bits/mathcalls.h" 3 4


extern double expm1 (double __x) __attribute__ ((__nothrow__)); extern double __expm1 (double __x) __attribute__ ((__nothrow__));


extern double log1p (double __x) __attribute__ ((__nothrow__)); extern double __log1p (double __x) __attribute__ ((__nothrow__));


extern double logb (double __x) __attribute__ ((__nothrow__)); extern double __logb (double __x) __attribute__ ((__nothrow__));

# 152 "/usr/include/bits/mathcalls.h" 3 4


extern double pow (double __x, double __y) __attribute__ ((__nothrow__)); extern double __pow (double __x, double __y) __attribute__ ((__nothrow__));


extern double sqrt (double __x) __attribute__ ((__nothrow__)); extern double __sqrt (double __x) __attribute__ ((__nothrow__));





extern double hypot (double __x, double __y) __attribute__ ((__nothrow__)); extern double __hypot (double __x, double __y) __attribute__ ((__nothrow__));






extern double cbrt (double __x) __attribute__ ((__nothrow__)); extern double __cbrt (double __x) __attribute__ ((__nothrow__));








extern double ceil (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __ceil (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern double fabs (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __fabs (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern double floor (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __floor (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern double fmod (double __x, double __y) __attribute__ ((__nothrow__)); extern double __fmod (double __x, double __y) __attribute__ ((__nothrow__));




extern int __isinf (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern int __finite (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));





extern int isinf (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern int finite (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern double drem (double __x, double __y) __attribute__ ((__nothrow__)); extern double __drem (double __x, double __y) __attribute__ ((__nothrow__));



extern double significand (double __x) __attribute__ ((__nothrow__)); extern double __significand (double __x) __attribute__ ((__nothrow__));





extern double copysign (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __copysign (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__));

# 231 "/usr/include/bits/mathcalls.h" 3 4
extern int __isnan (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));



extern int isnan (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern double j0 (double) __attribute__ ((__nothrow__)); extern double __j0 (double) __attribute__ ((__nothrow__));
extern double j1 (double) __attribute__ ((__nothrow__)); extern double __j1 (double) __attribute__ ((__nothrow__));
extern double jn (int, double) __attribute__ ((__nothrow__)); extern double __jn (int, double) __attribute__ ((__nothrow__));
extern double y0 (double) __attribute__ ((__nothrow__)); extern double __y0 (double) __attribute__ ((__nothrow__));
extern double y1 (double) __attribute__ ((__nothrow__)); extern double __y1 (double) __attribute__ ((__nothrow__));
extern double yn (int, double) __attribute__ ((__nothrow__)); extern double __yn (int, double) __attribute__ ((__nothrow__));






extern double erf (double) __attribute__ ((__nothrow__)); extern double __erf (double) __attribute__ ((__nothrow__));
extern double erfc (double) __attribute__ ((__nothrow__)); extern double __erfc (double) __attribute__ ((__nothrow__));
extern double lgamma (double) __attribute__ ((__nothrow__)); extern double __lgamma (double) __attribute__ ((__nothrow__));

# 265 "/usr/include/bits/mathcalls.h" 3 4
extern double gamma (double) __attribute__ ((__nothrow__)); extern double __gamma (double) __attribute__ ((__nothrow__));






extern double lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__)); extern double __lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__));







extern double rint (double __x) __attribute__ ((__nothrow__)); extern double __rint (double __x) __attribute__ ((__nothrow__));


extern double nextafter (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __nextafter (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__));





extern double remainder (double __x, double __y) __attribute__ ((__nothrow__)); extern double __remainder (double __x, double __y) __attribute__ ((__nothrow__));



extern double scalbn (double __x, int __n) __attribute__ ((__nothrow__)); extern double __scalbn (double __x, int __n) __attribute__ ((__nothrow__));



extern int ilogb (double __x) __attribute__ ((__nothrow__)); extern int __ilogb (double __x) __attribute__ ((__nothrow__));
# 71 "/usr/include/math.h" 2 3 4
# 93 "/usr/include/math.h" 3 4
# 1 "/usr/include/bits/mathcalls.h" 1 3 4
# 53 "/usr/include/bits/mathcalls.h" 3 4


extern float acosf (float __x) __attribute__ ((__nothrow__)); extern float __acosf (float __x) __attribute__ ((__nothrow__));

extern float asinf (float __x) __attribute__ ((__nothrow__)); extern float __asinf (float __x) __attribute__ ((__nothrow__));

extern float atanf (float __x) __attribute__ ((__nothrow__)); extern float __atanf (float __x) __attribute__ ((__nothrow__));

extern float atan2f (float __y, float __x) __attribute__ ((__nothrow__)); extern float __atan2f (float __y, float __x) __attribute__ ((__nothrow__));


extern float cosf (float __x) __attribute__ ((__nothrow__)); extern float __cosf (float __x) __attribute__ ((__nothrow__));

extern float sinf (float __x) __attribute__ ((__nothrow__)); extern float __sinf (float __x) __attribute__ ((__nothrow__));

extern float tanf (float __x) __attribute__ ((__nothrow__)); extern float __tanf (float __x) __attribute__ ((__nothrow__));




extern float coshf (float __x) __attribute__ ((__nothrow__)); extern float __coshf (float __x) __attribute__ ((__nothrow__));

extern float sinhf (float __x) __attribute__ ((__nothrow__)); extern float __sinhf (float __x) __attribute__ ((__nothrow__));

extern float tanhf (float __x) __attribute__ ((__nothrow__)); extern float __tanhf (float __x) __attribute__ ((__nothrow__));

# 87 "/usr/include/bits/mathcalls.h" 3 4


extern float acoshf (float __x) __attribute__ ((__nothrow__)); extern float __acoshf (float __x) __attribute__ ((__nothrow__));

extern float asinhf (float __x) __attribute__ ((__nothrow__)); extern float __asinhf (float __x) __attribute__ ((__nothrow__));

extern float atanhf (float __x) __attribute__ ((__nothrow__)); extern float __atanhf (float __x) __attribute__ ((__nothrow__));







extern float expf (float __x) __attribute__ ((__nothrow__)); extern float __expf (float __x) __attribute__ ((__nothrow__));


extern float frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__)); extern float __frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__));


extern float ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__)); extern float __ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__));


extern float logf (float __x) __attribute__ ((__nothrow__)); extern float __logf (float __x) __attribute__ ((__nothrow__));


extern float log10f (float __x) __attribute__ ((__nothrow__)); extern float __log10f (float __x) __attribute__ ((__nothrow__));


extern float modff (float __x, float *__iptr) __attribute__ ((__nothrow__)); extern float __modff (float __x, float *__iptr) __attribute__ ((__nothrow__));

# 127 "/usr/include/bits/mathcalls.h" 3 4


extern float expm1f (float __x) __attribute__ ((__nothrow__)); extern float __expm1f (float __x) __attribute__ ((__nothrow__));


extern float log1pf (float __x) __attribute__ ((__nothrow__)); extern float __log1pf (float __x) __attribute__ ((__nothrow__));


extern float logbf (float __x) __attribute__ ((__nothrow__)); extern float __logbf (float __x) __attribute__ ((__nothrow__));

# 152 "/usr/include/bits/mathcalls.h" 3 4


extern float powf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __powf (float __x, float __y) __attribute__ ((__nothrow__));


extern float sqrtf (float __x) __attribute__ ((__nothrow__)); extern float __sqrtf (float __x) __attribute__ ((__nothrow__));





extern float hypotf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __hypotf (float __x, float __y) __attribute__ ((__nothrow__));






extern float cbrtf (float __x) __attribute__ ((__nothrow__)); extern float __cbrtf (float __x) __attribute__ ((__nothrow__));








extern float ceilf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __ceilf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern float fabsf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __fabsf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern float floorf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __floorf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern float fmodf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __fmodf (float __x, float __y) __attribute__ ((__nothrow__));




extern int __isinff (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern int __finitef (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));





extern int isinff (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern int finitef (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern float dremf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __dremf (float __x, float __y) __attribute__ ((__nothrow__));



extern float significandf (float __x) __attribute__ ((__nothrow__)); extern float __significandf (float __x) __attribute__ ((__nothrow__));





extern float copysignf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __copysignf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__));

# 231 "/usr/include/bits/mathcalls.h" 3 4
extern int __isnanf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));



extern int isnanf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__));


extern float j0f (float) __attribute__ ((__nothrow__)); extern float __j0f (float) __attribute__ ((__nothrow__));
extern float j1f (float) __attribute__ ((__nothrow__)); extern float __j1f (float) __attribute__ ((__nothrow__));
extern float jnf (int, float) __attribute__ ((__nothrow__)); extern float __jnf (int, float) __attribute__ ((__nothrow__));
extern float y0f (float) __attribute__ ((__nothrow__)); extern float __y0f (float) __attribute__ ((__nothrow__));
extern float y1f (float) __attribute__ ((__nothrow__)); extern float __y1f (float) __attribute__ ((__nothrow__));
extern float ynf (int, float) __attribute__ ((__nothrow__)); extern float __ynf (int, float) __attribute__ ((__nothrow__));






extern float erff (float) __attribute__ ((__nothrow__)); extern float __erff (float) __attribute__ ((__nothrow__));
extern float erfcf (float) __attribute__ ((__nothrow__)); extern float __erfcf (float) __attribute__ ((__nothrow__));
extern float lgammaf (float) __attribute__ ((__nothrow__)); extern float __lgammaf (float) __attribute__ ((__nothrow__));

# 265 "/usr/include/bits/mathcalls.h" 3 4
extern float gammaf (float) __attribute__ ((__nothrow__)); extern float __gammaf (float) __attribute__ ((__nothrow__));






extern float lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__)); extern float __lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__));







extern float rintf (float __x) __attribute__ ((__nothrow__)); extern float __rintf (float __x) __attribute__ ((__nothrow__));


extern float nextafterf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __nextafterf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__));





extern float remainderf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __remainderf (float __x, float __y) __attribute__ ((__nothrow__));



extern float scalbnf (float __x, int __n) __attribute__ ((__nothrow__)); extern float __scalbnf (float __x, int __n) __attribute__ ((__nothrow__));



extern int ilogbf (float __x) __attribute__ ((__nothrow__)); extern int __ilogbf (float __x) __attribute__ ((__nothrow__));
# 94 "/usr/include/math.h" 2 3 4
# 130 "/usr/include/math.h" 3 4
extern int signgam;
# 257 "/usr/include/math.h" 3 4
typedef enum
{
  _IEEE_ = -1,
  _SVID_,
  _XOPEN_,
  _POSIX_,
  _ISOC_
} _LIB_VERSION_TYPE;




extern _LIB_VERSION_TYPE _LIB_VERSION;
# 282 "/usr/include/math.h" 3 4
struct exception

  {
    int type;
    char *name;
    double arg1;
    double arg2;
    double retval;
  };




extern int matherr (struct exception *__exc);
# 438 "/usr/include/math.h" 3 4

# 175 "../h/cmpinclude.h" 2
# 257 "../h/cmpinclude.h"
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stdarg.h" 1 3 4
# 43 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stdarg.h" 3 4
typedef __builtin_va_list __gnuc_va_list;
# 105 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stdarg.h" 3 4
typedef __gnuc_va_list va_list;
# 258 "../h/cmpinclude.h" 2


# 1 "/usr/include/setjmp.h" 1 3 4
# 28 "/usr/include/setjmp.h" 3 4


# 1 "/usr/include/bits/setjmp.h" 1 3 4
# 28 "/usr/include/bits/setjmp.h" 3 4
typedef int __jmp_buf[22];
# 31 "/usr/include/setjmp.h" 2 3 4
# 1 "/usr/include/bits/sigset.h" 1 3 4
# 23 "/usr/include/bits/sigset.h" 3 4
typedef int __sig_atomic_t;




typedef struct
  {
    unsigned long int __val[(1024 / (8 * sizeof (unsigned long int)))];
  } __sigset_t;
# 32 "/usr/include/setjmp.h" 2 3 4




typedef struct __jmp_buf_tag
  {




    __jmp_buf __jmpbuf;
    int __mask_was_saved;
    __sigset_t __saved_mask;
  } jmp_buf[1];




extern int setjmp (jmp_buf __env) __attribute__ ((__nothrow__));







extern int __sigsetjmp (struct __jmp_buf_tag __env[1], int __savemask) __attribute__ ((__nothrow__));




extern int _setjmp (struct __jmp_buf_tag __env[1]) __attribute__ ((__nothrow__));
# 76 "/usr/include/setjmp.h" 3 4




extern void longjmp (struct __jmp_buf_tag __env[1], int __val)
     __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__));







extern void _longjmp (struct __jmp_buf_tag __env[1], int __val)
     __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__));







typedef struct __jmp_buf_tag sigjmp_buf[1];
# 108 "/usr/include/setjmp.h" 3 4
extern void siglongjmp (sigjmp_buf __env, int __val)
     __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__));



# 261 "../h/cmpinclude.h" 2
# 1 "/usr/include/stdio.h" 1 3 4
# 30 "/usr/include/stdio.h" 3 4




# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 214 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 3 4
typedef unsigned int size_t;
# 35 "/usr/include/stdio.h" 2 3 4

# 1 "/usr/include/bits/types.h" 1 3 4
# 28 "/usr/include/bits/types.h" 3 4
# 1 "/usr/include/bits/wordsize.h" 1 3 4
# 29 "/usr/include/bits/types.h" 2 3 4


# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 32 "/usr/include/bits/types.h" 2 3 4


typedef unsigned char __u_char;
typedef unsigned short int __u_short;
typedef unsigned int __u_int;
typedef unsigned long int __u_long;


typedef signed char __int8_t;
typedef unsigned char __uint8_t;
typedef signed short int __int16_t;
typedef unsigned short int __uint16_t;
typedef signed int __int32_t;
typedef unsigned int __uint32_t;




__extension__ typedef signed long long int __int64_t;
__extension__ typedef unsigned long long int __uint64_t;







__extension__ typedef long long int __quad_t;
__extension__ typedef unsigned long long int __u_quad_t;
# 129 "/usr/include/bits/types.h" 3 4
# 1 "/usr/include/bits/typesizes.h" 1 3 4
# 130 "/usr/include/bits/types.h" 2 3 4






__extension__ typedef __u_quad_t __dev_t;
__extension__ typedef unsigned int __uid_t;
__extension__ typedef unsigned int __gid_t;
__extension__ typedef unsigned long int __ino_t;
__extension__ typedef __u_quad_t __ino64_t;
__extension__ typedef unsigned int __mode_t;
__extension__ typedef unsigned int __nlink_t;
__extension__ typedef long int __off_t;
__extension__ typedef __quad_t __off64_t;
__extension__ typedef int __pid_t;
__extension__ typedef struct { int __val[2]; } __fsid_t;
__extension__ typedef long int __clock_t;
__extension__ typedef unsigned long int __rlim_t;
__extension__ typedef __u_quad_t __rlim64_t;
__extension__ typedef unsigned int __id_t;
__extension__ typedef long int __time_t;
__extension__ typedef unsigned int __useconds_t;
__extension__ typedef long int __suseconds_t;

__extension__ typedef int __daddr_t;
__extension__ typedef long int __swblk_t;
__extension__ typedef int __key_t;


__extension__ typedef int __clockid_t;


__extension__ typedef int __timer_t;


__extension__ typedef long int __blksize_t;




__extension__ typedef long int __blkcnt_t;
__extension__ typedef __quad_t __blkcnt64_t;


__extension__ typedef unsigned long int __fsblkcnt_t;
__extension__ typedef __u_quad_t __fsblkcnt64_t;


__extension__ typedef unsigned long int __fsfilcnt_t;
__extension__ typedef __u_quad_t __fsfilcnt64_t;

__extension__ typedef int __ssize_t;



typedef __off64_t __loff_t;
typedef __quad_t *__qaddr_t;
typedef char *__caddr_t;


__extension__ typedef int __intptr_t;


__extension__ typedef unsigned int __socklen_t;
# 37 "/usr/include/stdio.h" 2 3 4









typedef struct _IO_FILE FILE;





# 62 "/usr/include/stdio.h" 3 4
typedef struct _IO_FILE __FILE;
# 72 "/usr/include/stdio.h" 3 4
# 1 "/usr/include/libio.h" 1 3 4
# 32 "/usr/include/libio.h" 3 4
# 1 "/usr/include/_G_config.h" 1 3 4
# 14 "/usr/include/_G_config.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 326 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 3 4
typedef long int wchar_t;
# 355 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 3 4
typedef unsigned int wint_t;
# 15 "/usr/include/_G_config.h" 2 3 4
# 24 "/usr/include/_G_config.h" 3 4
# 1 "/usr/include/wchar.h" 1 3 4
# 48 "/usr/include/wchar.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 49 "/usr/include/wchar.h" 2 3 4

# 1 "/usr/include/bits/wchar.h" 1 3 4
# 51 "/usr/include/wchar.h" 2 3 4
# 76 "/usr/include/wchar.h" 3 4
typedef struct
{
  int __count;
  union
  {
    wint_t __wch;
    char __wchb[4];
  } __value;
} __mbstate_t;
# 25 "/usr/include/_G_config.h" 2 3 4

typedef struct
{
  __off_t __pos;
  __mbstate_t __state;
} _G_fpos_t;
typedef struct
{
  __off64_t __pos;
  __mbstate_t __state;
} _G_fpos64_t;
# 44 "/usr/include/_G_config.h" 3 4
# 1 "/usr/include/gconv.h" 1 3 4
# 28 "/usr/include/gconv.h" 3 4
# 1 "/usr/include/wchar.h" 1 3 4
# 48 "/usr/include/wchar.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 49 "/usr/include/wchar.h" 2 3 4
# 29 "/usr/include/gconv.h" 2 3 4


# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 32 "/usr/include/gconv.h" 2 3 4





enum
{
  __GCONV_OK = 0,
  __GCONV_NOCONV,
  __GCONV_NODB,
  __GCONV_NOMEM,

  __GCONV_EMPTY_INPUT,
  __GCONV_FULL_OUTPUT,
  __GCONV_ILLEGAL_INPUT,
  __GCONV_INCOMPLETE_INPUT,

  __GCONV_ILLEGAL_DESCRIPTOR,
  __GCONV_INTERNAL_ERROR
};



enum
{
  __GCONV_IS_LAST = 0x0001,
  __GCONV_IGNORE_ERRORS = 0x0002
};



struct __gconv_step;
struct __gconv_step_data;
struct __gconv_loaded_object;
struct __gconv_trans_data;



typedef int (*__gconv_fct) (struct __gconv_step *, struct __gconv_step_data *,
       __const unsigned char **, __const unsigned char *,
       unsigned char **, size_t *, int, int);


typedef wint_t (*__gconv_btowc_fct) (struct __gconv_step *, unsigned char);


typedef int (*__gconv_init_fct) (struct __gconv_step *);
typedef void (*__gconv_end_fct) (struct __gconv_step *);



typedef int (*__gconv_trans_fct) (struct __gconv_step *,
      struct __gconv_step_data *, void *,
      __const unsigned char *,
      __const unsigned char **,
      __const unsigned char *, unsigned char **,
      size_t *);


typedef int (*__gconv_trans_context_fct) (void *, __const unsigned char *,
       __const unsigned char *,
       unsigned char *, unsigned char *);


typedef int (*__gconv_trans_query_fct) (__const char *, __const char ***,
     size_t *);


typedef int (*__gconv_trans_init_fct) (void **, const char *);
typedef void (*__gconv_trans_end_fct) (void *);

struct __gconv_trans_data
{

  __gconv_trans_fct __trans_fct;
  __gconv_trans_context_fct __trans_context_fct;
  __gconv_trans_end_fct __trans_end_fct;
  void *__data;
  struct __gconv_trans_data *__next;
};



struct __gconv_step
{
  struct __gconv_loaded_object *__shlib_handle;
  __const char *__modname;

  int __counter;

  char *__from_name;
  char *__to_name;

  __gconv_fct __fct;
  __gconv_btowc_fct __btowc_fct;
  __gconv_init_fct __init_fct;
  __gconv_end_fct __end_fct;



  int __min_needed_from;
  int __max_needed_from;
  int __min_needed_to;
  int __max_needed_to;


  int __stateful;

  void *__data;
};



struct __gconv_step_data
{
  unsigned char *__outbuf;
  unsigned char *__outbufend;



  int __flags;



  int __invocation_counter;



  int __internal_use;

  __mbstate_t *__statep;
  __mbstate_t __state;



  struct __gconv_trans_data *__trans;
};



typedef struct __gconv_info
{
  size_t __nsteps;
  struct __gconv_step *__steps;
  __extension__ struct __gconv_step_data __data [];
} *__gconv_t;
# 45 "/usr/include/_G_config.h" 2 3 4
typedef union
{
  struct __gconv_info __cd;
  struct
  {
    struct __gconv_info __cd;
    struct __gconv_step_data __data;
  } __combined;
} _G_iconv_t;

typedef int _G_int16_t __attribute__ ((__mode__ (__HI__)));
typedef int _G_int32_t __attribute__ ((__mode__ (__SI__)));
typedef unsigned int _G_uint16_t __attribute__ ((__mode__ (__HI__)));
typedef unsigned int _G_uint32_t __attribute__ ((__mode__ (__SI__)));
# 33 "/usr/include/libio.h" 2 3 4
# 166 "/usr/include/libio.h" 3 4
struct _IO_jump_t; struct _IO_FILE;
# 176 "/usr/include/libio.h" 3 4
typedef void _IO_lock_t;





struct _IO_marker {
  struct _IO_marker *_next;
  struct _IO_FILE *_sbuf;



  int _pos;
# 199 "/usr/include/libio.h" 3 4
};


enum __codecvt_result
{
  __codecvt_ok,
  __codecvt_partial,
  __codecvt_error,
  __codecvt_noconv
};
# 267 "/usr/include/libio.h" 3 4
struct _IO_FILE {
  int _flags;




  char* _IO_read_ptr;
  char* _IO_read_end;
  char* _IO_read_base;
  char* _IO_write_base;
  char* _IO_write_ptr;
  char* _IO_write_end;
  char* _IO_buf_base;
  char* _IO_buf_end;

  char *_IO_save_base;
  char *_IO_backup_base;
  char *_IO_save_end;

  struct _IO_marker *_markers;

  struct _IO_FILE *_chain;

  int _fileno;



  int _flags2;

  __off_t _old_offset;



  unsigned short _cur_column;
  signed char _vtable_offset;
  char _shortbuf[1];



  _IO_lock_t *_lock;
# 315 "/usr/include/libio.h" 3 4
  __off64_t _offset;





  void *__pad1;
  void *__pad2;

  int _mode;

  char _unused2[15 * sizeof (int) - 2 * sizeof (void *)];

};


typedef struct _IO_FILE _IO_FILE;


struct _IO_FILE_plus;

extern struct _IO_FILE_plus _IO_2_1_stdin_;
extern struct _IO_FILE_plus _IO_2_1_stdout_;
extern struct _IO_FILE_plus _IO_2_1_stderr_;
# 354 "/usr/include/libio.h" 3 4
typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes);







typedef __ssize_t __io_write_fn (void *__cookie, __const char *__buf,
     size_t __n);







typedef int __io_seek_fn (void *__cookie, __off64_t *__pos, int __w);


typedef int __io_close_fn (void *__cookie);
# 406 "/usr/include/libio.h" 3 4
extern int __underflow (_IO_FILE *) __attribute__ ((__nothrow__));
extern int __uflow (_IO_FILE *) __attribute__ ((__nothrow__));
extern int __overflow (_IO_FILE *, int) __attribute__ ((__nothrow__));
extern wint_t __wunderflow (_IO_FILE *) __attribute__ ((__nothrow__));
extern wint_t __wuflow (_IO_FILE *) __attribute__ ((__nothrow__));
extern wint_t __woverflow (_IO_FILE *, wint_t) __attribute__ ((__nothrow__));
# 444 "/usr/include/libio.h" 3 4
extern int _IO_getc (_IO_FILE *__fp) __attribute__ ((__nothrow__));
extern int _IO_putc (int __c, _IO_FILE *__fp) __attribute__ ((__nothrow__));
extern int _IO_feof (_IO_FILE *__fp) __attribute__ ((__nothrow__));
extern int _IO_ferror (_IO_FILE *__fp) __attribute__ ((__nothrow__));

extern int _IO_peekc_locked (_IO_FILE *__fp) __attribute__ ((__nothrow__));





extern void _IO_flockfile (_IO_FILE *) __attribute__ ((__nothrow__));
extern void _IO_funlockfile (_IO_FILE *) __attribute__ ((__nothrow__));
extern int _IO_ftrylockfile (_IO_FILE *) __attribute__ ((__nothrow__));
# 474 "/usr/include/libio.h" 3 4
extern int _IO_vfscanf (_IO_FILE * __restrict, const char * __restrict,
   __gnuc_va_list, int *__restrict) __attribute__ ((__nothrow__));
extern int _IO_vfprintf (_IO_FILE *__restrict, const char *__restrict,
    __gnuc_va_list) __attribute__ ((__nothrow__));
extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t) __attribute__ ((__nothrow__));
extern size_t _IO_sgetn (_IO_FILE *, void *, size_t) __attribute__ ((__nothrow__));

extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int) __attribute__ ((__nothrow__));
extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int) __attribute__ ((__nothrow__));

extern void _IO_free_backup_area (_IO_FILE *) __attribute__ ((__nothrow__));
# 73 "/usr/include/stdio.h" 2 3 4
# 86 "/usr/include/stdio.h" 3 4


typedef _G_fpos_t fpos_t;




# 138 "/usr/include/stdio.h" 3 4
# 1 "/usr/include/bits/stdio_lim.h" 1 3 4
# 139 "/usr/include/stdio.h" 2 3 4



extern struct _IO_FILE *stdin;
extern struct _IO_FILE *stdout;
extern struct _IO_FILE *stderr;







extern int remove (__const char *__filename) __attribute__ ((__nothrow__));

extern int rename (__const char *__old, __const char *__new) __attribute__ ((__nothrow__));









extern FILE *tmpfile (void);
# 178 "/usr/include/stdio.h" 3 4
extern char *tmpnam (char *__s) __attribute__ ((__nothrow__));





extern char *tmpnam_r (char *__s) __attribute__ ((__nothrow__));
# 196 "/usr/include/stdio.h" 3 4
extern char *tempnam (__const char *__dir, __const char *__pfx)
     __attribute__ ((__nothrow__)) __attribute__ ((__malloc__));








extern int fclose (FILE *__stream);




extern int fflush (FILE *__stream);

# 221 "/usr/include/stdio.h" 3 4
extern int fflush_unlocked (FILE *__stream);
# 235 "/usr/include/stdio.h" 3 4






extern FILE *fopen (__const char *__restrict __filename,
      __const char *__restrict __modes);




extern FILE *freopen (__const char *__restrict __filename,
        __const char *__restrict __modes,
        FILE *__restrict __stream);
# 262 "/usr/include/stdio.h" 3 4

# 273 "/usr/include/stdio.h" 3 4
extern FILE *fdopen (int __fd, __const char *__modes) __attribute__ ((__nothrow__));
# 294 "/usr/include/stdio.h" 3 4



extern void setbuf (FILE *__restrict __stream, char *__restrict __buf) __attribute__ ((__nothrow__));



extern int setvbuf (FILE *__restrict __stream, char *__restrict __buf,
      int __modes, size_t __n) __attribute__ ((__nothrow__));





extern void setbuffer (FILE *__restrict __stream, char *__restrict __buf,
         size_t __size) __attribute__ ((__nothrow__));


extern void setlinebuf (FILE *__stream) __attribute__ ((__nothrow__));








extern int fprintf (FILE *__restrict __stream,
      __const char *__restrict __format, ...);




extern int printf (__const char *__restrict __format, ...);

extern int sprintf (char *__restrict __s,
      __const char *__restrict __format, ...) __attribute__ ((__nothrow__));





extern int vfprintf (FILE *__restrict __s, __const char *__restrict __format,
       __gnuc_va_list __arg);




extern int vprintf (__const char *__restrict __format, __gnuc_va_list __arg);

extern int vsprintf (char *__restrict __s, __const char *__restrict __format,
       __gnuc_va_list __arg) __attribute__ ((__nothrow__));





extern int snprintf (char *__restrict __s, size_t __maxlen,
       __const char *__restrict __format, ...)
     __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 4)));

extern int vsnprintf (char *__restrict __s, size_t __maxlen,
        __const char *__restrict __format, __gnuc_va_list __arg)
     __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 0)));

# 388 "/usr/include/stdio.h" 3 4





extern int fscanf (FILE *__restrict __stream,
     __const char *__restrict __format, ...);




extern int scanf (__const char *__restrict __format, ...);

extern int sscanf (__const char *__restrict __s,
     __const char *__restrict __format, ...) __attribute__ ((__nothrow__));

# 430 "/usr/include/stdio.h" 3 4





extern int fgetc (FILE *__stream);
extern int getc (FILE *__stream);





extern int getchar (void);

# 454 "/usr/include/stdio.h" 3 4
extern int getc_unlocked (FILE *__stream);
extern int getchar_unlocked (void);
# 465 "/usr/include/stdio.h" 3 4
extern int fgetc_unlocked (FILE *__stream);











extern int fputc (int __c, FILE *__stream);
extern int putc (int __c, FILE *__stream);





extern int putchar (int __c);

# 498 "/usr/include/stdio.h" 3 4
extern int fputc_unlocked (int __c, FILE *__stream);







extern int putc_unlocked (int __c, FILE *__stream);
extern int putchar_unlocked (int __c);






extern int getw (FILE *__stream);


extern int putw (int __w, FILE *__stream);








extern char *fgets (char *__restrict __s, int __n, FILE *__restrict __stream);






extern char *gets (char *__s);

# 578 "/usr/include/stdio.h" 3 4





extern int fputs (__const char *__restrict __s, FILE *__restrict __stream);





extern int puts (__const char *__s);






extern int ungetc (int __c, FILE *__stream);






extern size_t fread (void *__restrict __ptr, size_t __size,
       size_t __n, FILE *__restrict __stream);




extern size_t fwrite (__const void *__restrict __ptr, size_t __size,
        size_t __n, FILE *__restrict __s);

# 631 "/usr/include/stdio.h" 3 4
extern size_t fread_unlocked (void *__restrict __ptr, size_t __size,
         size_t __n, FILE *__restrict __stream);
extern size_t fwrite_unlocked (__const void *__restrict __ptr, size_t __size,
          size_t __n, FILE *__restrict __stream);








extern int fseek (FILE *__stream, long int __off, int __whence);




extern long int ftell (FILE *__stream);




extern void rewind (FILE *__stream);

# 686 "/usr/include/stdio.h" 3 4






extern int fgetpos (FILE *__restrict __stream, fpos_t *__restrict __pos);




extern int fsetpos (FILE *__stream, __const fpos_t *__pos);
# 709 "/usr/include/stdio.h" 3 4

# 718 "/usr/include/stdio.h" 3 4


extern void clearerr (FILE *__stream) __attribute__ ((__nothrow__));

extern int feof (FILE *__stream) __attribute__ ((__nothrow__));

extern int ferror (FILE *__stream) __attribute__ ((__nothrow__));




extern void clearerr_unlocked (FILE *__stream) __attribute__ ((__nothrow__));
extern int feof_unlocked (FILE *__stream) __attribute__ ((__nothrow__));
extern int ferror_unlocked (FILE *__stream) __attribute__ ((__nothrow__));








extern void perror (__const char *__s);






# 1 "/usr/include/bits/sys_errlist.h" 1 3 4
# 27 "/usr/include/bits/sys_errlist.h" 3 4
extern int sys_nerr;
extern __const char *__const sys_errlist[];
# 748 "/usr/include/stdio.h" 2 3 4




extern int fileno (FILE *__stream) __attribute__ ((__nothrow__));




extern int fileno_unlocked (FILE *__stream) __attribute__ ((__nothrow__));
# 767 "/usr/include/stdio.h" 3 4
extern FILE *popen (__const char *__command, __const char *__modes);





extern int pclose (FILE *__stream);





extern char *ctermid (char *__s) __attribute__ ((__nothrow__));
# 807 "/usr/include/stdio.h" 3 4
extern void flockfile (FILE *__stream) __attribute__ ((__nothrow__));



extern int ftrylockfile (FILE *__stream) __attribute__ ((__nothrow__));


extern void funlockfile (FILE *__stream) __attribute__ ((__nothrow__));
# 834 "/usr/include/stdio.h" 3 4

# 262 "../h/cmpinclude.h" 2
# 272 "../h/cmpinclude.h"
enum type {
  t_cons,
  t_start = 0,
  t_fixnum,
  t_bignum,
  t_ratio,
  t_shortfloat,
  t_longfloat,
  t_complex,
  t_character,
  t_symbol,
  t_package,
  t_hashtable,
  t_array,
  t_vector,
  t_string,
  t_bitvector,
  t_structure,
  t_stream,
  t_random,
  t_readtable,
  t_pathname,
  t_cfun,
  t_cclosure,
  t_sfun,
  t_gfun,
  t_vfun,
  t_afun,
  t_closure,
  t_cfdata,
  t_spice,
  t_end,
  t_contiguous,
  t_relocatable,
  t_other
};


enum signals_allowed_values {
  sig_none,
  sig_normal,
  sig_try_to_delay,
  sig_safe,
  sig_at_read,
  sig_use_signals_allowed_value

};
# 327 "../h/cmpinclude.h"
typedef unsigned long int mp_limb_t;



typedef mp_limb_t * mp_ptr;

typedef struct
{
  int _mp_alloc;

  int _mp_size;


  mp_limb_t *_mp_d;
} __mpz_struct;

typedef __mpz_struct MP_INT;
# 412 "../h/cmpinclude.h"
typedef int bool;
typedef long fixnum;
typedef unsigned long ufixnum;
typedef float shortfloat;
typedef double longfloat;
typedef unsigned short fatchar;
# 433 "../h/cmpinclude.h"
typedef union lispunion *object;

typedef union int_object iobject;
union int_object {object o; int i;};
# 448 "../h/cmpinclude.h"
struct fixnum_struct {
  unsigned char t,flag; char s,m;
 fixnum FIXVAL;
};





extern
struct fixnum_struct small_fixnum_table[2*1024];




struct shortfloat_struct {
   unsigned char t,flag; char s,m;
 shortfloat SFVAL;
};



struct longfloat_struct {
   unsigned char t,flag; char s,m;
 longfloat LFVAL;
};
# 493 "../h/cmpinclude.h"
struct bignum {
   unsigned char t,flag; char s,m;

  __mpz_struct big_mpz_t;




};

struct ratio {
  unsigned char t,flag; char s,m;
 object rat_den;

 object rat_num;

};

struct complex {
  unsigned char t,flag; char s,m;
 object cmp_real;

 object cmp_imag;

};

struct character {
   unsigned char t,flag; char s,m;
 unsigned short ch_code;
 unsigned char ch_font;
 unsigned char ch_bits;
};



extern
struct character character_table1[256+128];






enum stype {
 stp_ordinary,
 stp_constant,
        stp_special
};
# 551 "../h/cmpinclude.h"
struct symbol {
  unsigned char t,flag; char s,m;
 object s_dbind;
 void (*s_sfdef)();

 char *st_self;


 int st_fillp;

 object s_gfdef;



 object s_plist;
 object s_hpack;

 short s_stype;

 short s_mflag;
};
extern
struct symbol Cnil_body, Ct_body;

struct package {
  unsigned char t,flag; char s,m;
 object p_name;

 object p_nicknames;

 object p_shadowings;
 object p_uselist;
 object p_usedbylist;
 object *p_internal;
 object *p_external;
 int p_internal_size;
 int p_external_size;
 int p_internal_fp;
        int p_external_fp;
 struct package
  *p_link;
};
# 605 "../h/cmpinclude.h"
extern struct package *pack_pointer;

struct cons {
  unsigned char t,flag; char s,m;
 object c_cdr;
 object c_car;
};

enum httest {
 htt_eq,
 htt_eql,
 htt_equal
};

struct htent {
 object hte_key;
 object hte_value;
};

struct hashtable {
  unsigned char t,flag; char s,m;
 struct htent
  *ht_self;
 object ht_rhsize;
 object ht_rhthresh;
 int ht_nent;
 int ht_size;
 short ht_test;

};

enum aelttype {
 aet_object,
 aet_ch,
 aet_bit,
 aet_fix,
 aet_sf,
 aet_lf,
 aet_char,
        aet_uchar,
 aet_short,
 aet_ushort,
 aet_last
   };

struct array {
  unsigned char t,flag; char s,m;
 object a_displaced;
 short a_rank;
 short a_elttype;
 object *a_self;
 short a_adjustable;
 short a_offset;
 int a_dim;
 int *a_dims;

};



struct vector {
  unsigned char t,flag; char s,m;
 object v_displaced;
 short v_hasfillp;
 short v_elttype;

 object *v_self;
 int v_fillp;


 int v_dim;
 short v_adjustable;
 short v_offset;
};

struct string {
  unsigned char t,flag; char s,m;
 object st_displaced;
 short st_hasfillp;
 short st_adjustable;
 char *st_self;
 int st_fillp;


 int st_dim;


};

struct ustring {
  unsigned char t,flag; char s,m;
 object ust_displaced;
 short ust_hasfillp;
 short ust_adjustable;
 unsigned char *ust_self;
 int ust_fillp;

 int ust_dim;


};
# 719 "../h/cmpinclude.h"
struct bitvector {
  unsigned char t,flag; char s,m;
 object bv_displaced;
 short bv_hasfillp;
 short bv_elttype;
 char *bv_self;
 int bv_fillp;


 int bv_dim;

 short bv_adjustable;
 short bv_offset;


};

struct fixarray {
  unsigned char t,flag; char s,m;
 object fixa_displaced;
 short fixa_rank;
 short fixa_elttype;
 fixnum *fixa_self;
 short fixa_adjustable;
 short fixa_offset;
 int fixa_dim;
 int *fixa_dims;

};

struct sfarray {
  unsigned char t,flag; char s,m;
 object sfa_displaced;
 short sfa_rank;
 short sfa_elttype;
 shortfloat
  *sfa_self;
 short sfa_adjustable;
 short sfa_offset;
 int sfa_dim;

 int *sfa_dims;



};

struct lfarray {
  unsigned char t,flag; char s,m;
 object lfa_displaced;
 short lfa_rank;
 short lfa_elttype;
 longfloat
  *lfa_self;
 short lfa_adjustable;
 short lfa_offset;
 int lfa_dim;
 int *lfa_dims;


};

struct structure {
  unsigned char t,flag; char s,m;
 object str_def;
 object *str_self;
};

struct s_data {object name;
        int length;
        object raw;
        object included;
        object includes;
        object staticp;
        object print_function;
        object slot_descriptions;
        object slot_position;
        int size;
        object has_holes;
      };
# 807 "../h/cmpinclude.h"
enum smmode {
 smm_input,
 smm_output,
 smm_io,
 smm_probe,
 smm_synonym,
 smm_broadcast,
 smm_concatenated,
 smm_two_way,
 smm_echo,
 smm_string_input,
 smm_string_output,
 smm_user_defined,
 smm_socket
};
# 846 "../h/cmpinclude.h"
struct stream {
  unsigned char t,flag; char s,m;
 FILE *sm_fp;
 object sm_object0;
 object sm_object1;
 int sm_int0;
 int sm_int1;
 char *sm_buffer;
 char sm_mode;
        unsigned char sm_flags;
        short sm_fd;

};
# 869 "../h/cmpinclude.h"
enum gcl_sm_flags {
  gcl_sm_blocking=1,
  gcl_sm_tcp_async,
  gcl_sm_input,
  gcl_sm_output,
  gcl_sm_had_error


};
# 900 "../h/cmpinclude.h"
struct random {
   unsigned char t,flag; char s,m;
 unsigned rnd_value;
};

enum chattrib {
 cat_whitespace,
 cat_terminating,
 cat_non_terminating,
 cat_single_escape,
 cat_multiple_escape,
 cat_constituent
};

struct rtent {
 enum chattrib rte_chattrib;
 object rte_macro;
 object *rte_dtab;





};

struct readtable {
   unsigned char t,flag; char s,m;
 struct rtent *rt_self;
};

struct pathname {
  unsigned char t,flag; char s,m;
 object pn_host;
 object pn_device;
 object pn_directory;
 object pn_name;
 object pn_type;
 object pn_version;
};

struct cfun {
  unsigned char t,flag; char s,m;
 object cf_name;
 void (*cf_self)();
 object cf_data;

};

struct cclosure {
  unsigned char t,flag; char s,m;
 object cc_name;
 void (*cc_self)();
 object cc_env;
 object cc_data;

 int cc_envdim;
 object *cc_turbo;
};

struct closure {
 unsigned char t,flag; char s,m;
 object cl_name;
 object (*cl_self)();
 object cl_data;
 int cl_argd;
 int cl_envdim;
 object *cl_env;
};

struct sfun {
  unsigned char t,flag; char s,m;
 object sfn_name;
 object (*sfn_self)();
 object sfn_data;
 int sfn_argd;

       };

struct vfun {
  unsigned char t,flag; char s,m;
 object vfn_name;
 object (*vfn_self)();
 object vfn_data;
 unsigned short vfn_minargs;
 unsigned short vfn_maxargs;
       };
struct cfdata {
     unsigned char t,flag; char s,m;
     char *cfd_start;
     int cfd_size;
     int cfd_fillp;
     object *cfd_self;
   };

struct spice {
  unsigned char t,flag; char s,m;
 int spc_dummy;
};




struct dummy {
 unsigned char t,flag; char s,m;
};




union lispunion {
 struct fixnum_struct
   FIX;
 struct bignum big;
 struct ratio rat;
 struct shortfloat_struct
   SF;
 struct longfloat_struct
   LF;
 struct complex cmp;
 struct character
   ch;
 struct symbol s;
 struct package p;
 struct cons c;
 struct hashtable
   ht;
 struct array a;
 struct vector v;
 struct string st;
 struct ustring ust;
 struct bitvector
   bv;
 struct structure
   str;
 struct stream sm;
 struct random rnd;
 struct readtable
   rt;
 struct pathname pn;
 struct cfun cf;
 struct cclosure cc;
 struct closure cl;
 struct sfun sfn;
 struct vfun vfn;
 struct cfdata cfd;
 struct spice spc;

 struct dummy d;

 struct fixarray fixa;
 struct sfarray sfa;
 struct lfarray lfa;
};






struct freelist {
 unsigned char t,flag; char s,m;
 unsigned long f_link;
};
# 1082 "../h/cmpinclude.h"
struct typemanager {
 enum type
  tm_type;
 short tm_size;
 short tm_nppage;
 object tm_free;

 long tm_nfree;
 long tm_nused;
 long tm_npage;
 long tm_maxpage;
 char *tm_name;
 int tm_gbccount;
 object tm_alt_free;
 long tm_alt_nfree;
 short tm_sgc;

 short tm_sgc_minfree;

 short tm_sgc_max;
 short tm_min_grow;
 short tm_max_grow;
 short tm_growth_percent;
 short tm_percent_free;
        short tm_distinct;
        float tm_adjgbccnt;
        long tm_opt_maxpage;
};





extern struct typemanager tm_table[ 32 ];






struct contblock {
 int cb_size;
 struct contblock
  *cb_link;
};




extern struct contblock *cb_pointer;




extern struct contblock *old_cb_pointer;
# 1150 "../h/cmpinclude.h"
extern long ncb;







extern
long holepage;





extern
char *rb_start;
extern char *rb_end;
extern char *rb_limit;
extern char *rb_pointer;
extern char *rb_start1;
extern char *rb_pointer1;

extern char *heap_end;
extern char *core_end;
extern
char *tmp_alloc;
# 1215 "../h/cmpinclude.h"
extern
fixnum FIXtemp;
# 1236 "../h/cmpinclude.h"
enum ftype {f_object,f_fixnum};
extern
char *alloca_val;
# 1254 "../h/cmpinclude.h"
object make_si_sfun();
extern object MVloc[10];
# 1297 "../h/cmpinclude.h"
struct call_data {
  object fun;
  int argd;
  int nvalues;
  object values[50];
  double double_return;
};
extern struct call_data fcall;
# 1333 "../h/cmpinclude.h"
object funcall_cfun(void(*)(),int,...);
object clear_compiler_properties();
extern object sSlambda_block_expanded;
# 1368 "../h/cmpinclude.h"
void raise_pending_signals();

extern unsigned int signals_allowed, signals_pending ;

extern struct symbol Dotnil_body;
# 1430 "../h/cmpinclude.h"
extern object *vs_org;
extern object *vs_limit;

extern object *vs_base;
extern object *vs_top;
# 1494 "../h/cmpinclude.h"
struct bds_bd {
 object bds_sym;
 object bds_val;
};


typedef struct bds_bd *bds_ptr;

extern bds_ptr bds_org;

extern bds_ptr bds_limit;

extern bds_ptr bds_top;
# 1566 "../h/cmpinclude.h"
typedef struct invocation_history {
 object ihs_function;
 object *ihs_base;
} *ihs_ptr;

extern ihs_ptr ihs_org;

extern ihs_ptr ihs_limit;

extern ihs_ptr ihs_top;
# 1606 "../h/cmpinclude.h"
enum fr_class {
 FRS_CATCH,
 FRS_CATCHALL,
 FRS_PROTECT
};

extern int in_signal_handler;
struct frame {
 jmp_buf frs_jmpbuf;
 object *frs_lex;
 bds_ptr frs_bds_top;
 char frs_class;
 char frs_in_signal_handler;
 object frs_val;
 ihs_ptr frs_ihs;
};

typedef struct frame *frame_ptr;
# 1642 "../h/cmpinclude.h"
extern frame_ptr frs_org;

extern frame_ptr frs_limit;

extern frame_ptr frs_top;
# 1668 "../h/cmpinclude.h"
extern bool nlj_active;
extern frame_ptr nlj_fr;
extern object nlj_tag;
# 1688 "../h/cmpinclude.h"
extern object *lex_env;
# 1769 "../h/cmpinclude.h"
extern int *cs_org;
extern int *cs_limit;
# 1789 "../h/cmpinclude.h"
struct bind_temp {
 object bt_var;
 object bt_spp;
 object bt_init;
 object bt_aux;
};
# 1972 "../h/cmpinclude.h"
char *alloc_page();
object alloc_object();
void *malloc(size_t);
void *realloc(void *,size_t);

void *alloc_contblock(size_t);
void *alloc_relblock(size_t);





object fLrow_major_aref();
object fSaset1();
extern object sLarray_dimension_limit;
extern object sLarray_total_size_limit;
object fSmake_array1();
# 1997 "../h/cmpinclude.h"
extern int backq_level;
extern object sLlistA;
extern object sLappend;
extern object sLnconc;





object make_integer_clear();
object stretch_big();
object copy_big();
object copy_to_big();
object big_minus();
object big_plus();
object big_times();
object normalize_big_to_object();
double big_to_double();
extern struct bignum big_fixnum1_body,big_fixnum2_body;
extern object big_fixnum1,big_fixnum2;
object maybe_replace_big();





extern object ANDoptional;
extern object ANDrest;
extern object ANDkey;
extern object ANDallow_other_keys;
extern object ANDaux;
extern object sKallow_other_keys;
object find_special();
object let_bind();
object letA_bind();




object make_cfun();
object MF();




object make_macro();
object make_cclosure_new();


extern object STreturn;
extern object STspace;
extern object STrubout;
extern object STpage;
extern object STtab;
extern object STbackspace;
extern object STlinefeed;
extern object STnewline;
object coerce_to_character();




char object_to_char();
char *object_to_string();
float object_to_float();
double object_to_double();


extern object sKerror;
extern object sKwrong_type_argument;
extern object sKcatch;
extern object sKprotect;
extern object sKcatchall;
extern object sKtoo_few_arguments;
extern object sKtoo_many_arguments;
extern object sKunexpected_keyword;
extern object sKinvalid_form;
extern object sKunbound_variable;
extern object sKinvalid_variable;
extern object sKundefined_function;
extern object sKinvalid_function;
extern object sKpackage_error;
object wrong_type_argument();
extern object sSuniversal_error_handler;


extern object sLapply;
extern object sLfuncall;
object simple_lispcall();
object simple_lispcall_no_event();
object simple_symlispcall();
object simple_symlispcall_no_event();
extern object Vevalhook;
extern object Vapplyhook;
object ieval();
object ifuncall(object,int,...);
object ifuncall1();
object ifuncall2();
object ifuncall3();
object fcalln1(object,...);

object Ieval();
object Imacro_expand1();




extern object sKabort;
extern object sKappend;
extern object sKcreate;
extern object sKdefault;
extern object sKdirection;
extern object sKelement_type;
extern object sKif_does_not_exist;
extern object sKif_exists;
extern object sKinput;
extern object sKio;
extern object sKnew_version;
extern object sKoutput;
extern object sKoverwrite;
extern object sKprint;
extern object sKprobe;
extern object sKrename;
extern object sKrename_and_delete;
extern object sKset_default_pathname;
extern object sKsupersede;
extern object sKverbose;

extern object sLAstandard_inputA;
extern object sLAstandard_outputA;
extern object sLAerror_outputA;
extern object sLAquery_ioA;
extern object sLAdebug_ioA;
extern object sLAterminal_ioA;
extern object sLAtrace_outputA;
extern object terminal_io;
extern object standard_io;

extern object sLAload_verboseA;
extern object FASL_string;

object open_stream();


object make_string_input_stream();
object make_string_output_stream();

object read_fasl_data();






FILE *backup_fopen();



frame_ptr frs_sch();
frame_ptr frs_sch_catch();


extern bool GBC_enable;




object assoc_eq();
object lex_tag_sch();
object lex_block_sch();


extern object sKtest;
extern object sKtest_not;
extern object sKkey;
extern object sKrev;
object car();
object cdr();
object kar();
object kdr();
object caar();
object cadr();
object cdar();
object cddr();
object caaar();
object caadr();
object cadar();
object caddr();
object cdaar();
object cdadr();
object cddar();
object cdddr();
object caaaar();
object caaadr();
object caadar();
object caaddr();
object cadaar();
object cadadr();
object caddar();
object cadddr();
object cdaaar();
object cdaadr();
object cdadar();
object cdaddr();
object cddaar();
object cddadr();
object cdddar();
object cddddr();
object nth();
object nthcdr();
object make_cons();
object list(int,...);
object listA(int,...);
object append();
object copy_list();
object make_list();
object nconc();
object sublis1();


extern object sLAmacroexpand_hookA;
extern object sSdefmacroA;
object macro_expand();


extern char* system_directory;
extern int ARGC;
extern char **ARGV;
void error();



object vs_overflow(void);

extern object sSAsystem_directoryA;




extern bool initflag,raw_image;

char *merge_system_directory();


extern object sLquote;

extern object sLlambda;

extern object sLlambda_block;
extern object sLlambda_closure;
extern object sLlambda_block_closure;

extern object sLfunction;
extern object sLmacro;
extern object sLtag;
extern object sLblock;







extern object shortfloat_zero;
extern object longfloat_zero;

object make_fixnum1(long);
object make_ratio();
object make_shortfloat();
object make_longfloat();
object make_complex();
double number_to_double();
long fixint(object);





object bignum2();
object bignum3();

object complex_plus();
object number_plus();
object number_negate();
object number_minus();
object number_times();
object number_divide();
object number_expt();
object integer_divide1();
object get_gcd();
object get_lcm();
object one_plus();
object one_minus();
object fixnum_add();
object fixnum_sub();
object new_bignum();


object double_to_integer();


object shift_integer();


extern object lisp_package;
extern object user_package;



extern object keyword_package;
extern object system_package;
extern object sLApackageA;
extern object sKinternal;
extern object sKexternal;
extern object sKinherited;
extern object sKnicknames;
extern object sKuse;
extern int intern_flag;
extern object uninterned_list;



object find_package();

object current_package();
object intern();
object find_symbol();


extern object Vdefault_pathname_defaults;
extern object sKwild;
extern object sKnewest;
extern object sKstart;
extern object sKend;
extern object sKjunk_allowed;
extern object sKhost;
extern object sKdevice;
extern object sKdirectory;
extern object sKname;
extern object sKtype;
extern object sKversion;
extern object sKdefaults;
extern object sKroot;
extern object sKcurrent;
extern object sKparent;
extern object sKper;

object coerce_to_pathname();

object merge_pathnames();
object namestring();
object coerce_to_namestring();



int eql(),equal(),eq();


extern object sKupcase;
extern object sKdowncase;
extern object sKcapitalize;
extern object sKstream;
extern object sKreadably;
extern object sKescape;
extern object sKpretty;
extern object sKcircle;
extern object sKbase;
extern object sKradix;
extern object sKcase;
extern object sKgensym;
extern object sKlevel;
extern object sKlength;
extern object sKarray;
extern object sLAprint_readablyA;
extern object sLAprint_escapeA;
extern object sLAprint_prettyA;
extern object sLAprint_circleA;
extern object sLAprint_baseA;
extern object sLAprint_radixA;
extern object sLAprint_caseA;
extern object sLAprint_gensymA;
extern object sLAprint_levelA;
extern object sLAprint_lengthA;
extern object sLAprint_arrayA;
extern object *PRINTvs_top;
extern object *PRINTvs_limit;
extern object PRINTstream;
extern bool PRINTreadably;
extern bool PRINTescape;
extern bool PRINTpretty;
extern bool PRINTcircle;
extern int PRINTbase;
extern bool PRINTradix;
extern object PRINTcase;
extern bool PRINTgensym;
extern int PRINTlevel;
extern int PRINTlength;
extern bool PRINTarray;
extern void (*write_ch_fun)(int);
object princ();
object prin1();
object print();
object terpri();
extern object sSpretty_print_format;
extern int line_length;


extern object standard_readtable;
extern object Vreadtable;
extern object sLAread_default_float_formatA;
extern object sLAread_baseA;
extern object sLAread_suppressA;
extern object READtable;

extern int READdefault_float_format;
extern int READbase;
extern bool READsuppress;
extern object siSsharp_comma;
extern bool escape_flag;
extern object delimiting_char;
extern bool detect_eos_flag;

extern bool dot_flag;
extern bool preserving_whitespace_flag;
extern object default_dispatch_macro;
extern object big_register_0;
extern int sharp_eq_context_max;
object read_char();
object read_char1(object,object);
object peek_char();

object read_object_non_recursive();
object standard_read_object_non_recursive();
object read_object();





object read_fasl_vector();


extern object sharing_table;


object symbol_function();



object alloc_simple_vector();
object alloc_simple_bitvector();
object elt();
object elt_set();
object reverse();
object nreverse();


extern object sSs_data;
object structure_ref();
object structure_set();
object structure_to_list();


object alloc_simple_string();
object make_simple_string();
object copy_simple_string();
object coerce_to_string();
extern int string_sign, string_boundary;


extern object string_register;
extern object gensym_prefix;

extern object sLgensym_counter;
extern object gentemp_prefix;
extern int gentemp_counter;
extern object token;
object make_symbol();
object make_ordinary();
object make_special();
object make_constant();
object make_si_ordinary();
object make_si_special();
object make_si_constant();
object make_keyword();
object symbol_value();
object symbol_name();
object getf();
object get();
object putf();
object putprop();
object sputprop();
object remprop();
object gensym();
# 2506 "../h/cmpinclude.h"
extern object sLspecial,sLdeclare;
extern object sSvariable_documentation;
extern object sSfunction_documentation;


extern object sLcommon,sLnull,sLcons,sLlist,sLsymbol,sLarray,sLvector,sLbit_vector,sLstring;
extern object sLsequence,sLsimple_array,sLsimple_vector,sLsimple_bit_vector,sLsimple_string;
extern object sLcompiled_function,sLpathname,sLcharacter,sLnumber,sLrational,sLfloat,sLstring_char;
extern object sLinteger,sLratio,sLshort_float,sLstandard_char,sLfixnum,sLpositive_fixnum, sLcomplex;
extern object sLsingle_float,sLpackage,sLbignum,sLrandom_state,sLdouble_float,sLstream,sLbit,sLreadtable;
extern object sLlong_float,sLhash_table,sLstructure,sLboolean;
# 2533 "../h/cmpinclude.h"
extern object sLsatisfies;
extern object sLmember;
extern object sLnot;
extern object sLor;
extern object sLand;
extern object sLvalues;
extern object sLmod;
extern object sLsigned_byte;
extern object sLunsigned_byte;
extern object sLsigned_char;
extern object sLunsigned_char;
extern object sLsigned_short;
extern object sLunsigned_short;
extern object sLA;
extern object sLplusp;
extern object TSor_symbol_string;
extern object TSor_string_symbol;
extern object TSor_symbol_string_package;
extern object TSnon_negative_integer;
extern object TSpositive_number;
extern object TSor_integer_float;
extern object TSor_rational_float;



extern object TSor_pathname_string_symbol_stream;

extern int interrupt_flag;
extern int interrupt_enable;


extern object CMPtemp;
extern object CMPtemp1;
extern object CMPtemp2;
extern object CMPtemp3;

extern object sLAlink_arrayA;


object Icall_proc();
float Icall_proc_float();

float Icall_proc_float();
object ImakeStructure();
object list_vector();
object list_vector_new();
object Iapply_ap();
object IisFboundp();
object IapplyVector();
object c_apply_n();
extern object sSPmemory;
extern object sSPinit;
object sLfset();
object MakeAfun();
extern object Cstd_key_defaults[];
extern object call_proc0();


object fLrow_major_aref();
object Icheck_one_type();


object Iis_fixnum();
object Iapply_fun_n(object,int,int,...);
object Iapply_fun_n1(object (*)(),int,int,...);
object Iapply_fun_n2(object,int,int,...);
object Ifuncall_n(object,int,...);
object Ivs_values();
object Icheck_one_type();
object fSincorrect_type();
extern object fLbye (fixnum exitc);
extern object fLquit (fixnum exitc);
extern object sSAno_initA;
extern object fLidentity (object x0);
extern object fSgcl_compile_time (void);
extern object fSldb1 (fixnum a,fixnum b, fixnum c);
extern object fLlisp_implementation_version (void);
extern object sSAlisp_maxpagesA;
extern object sSAsystem_directoryA;
extern object sSAmultiply_stacksA;
extern object sStop_level;
extern object sSAcommand_argsA;
extern object sSAafter_gbc_hookA;
extern object sSAignore_maximum_pagesA;
extern object sSAoptimize_maximum_pagesA;
extern object sSAnotify_optimize_maximum_pagesA;
extern object fSallocated (object typ);
extern object fSreset_number_used (object typ);
extern object fSstaticp (object x);
extern object fSallocate_sgc (object type,fixnum min,fixnum max,fixnum free_percent);
extern object fSallocate_growth (object type,fixnum min,fixnum max,fixnum percent,fixnum percent_free);
extern object fSallocate_contiguous_pages (fixnum npages,...);
extern object fSallocated_contiguous_pages (void);
extern object fSmaximum_contiguous_pages (void);
extern object fSallocate_relocatable_pages (fixnum npages,...);
extern object fSallocate (object type,fixnum npages,...);
extern object fSallocated_relocatable_pages (void);
extern object fSget_hole_size (void);
extern object fSgprof_start (void);
extern object fSgprof_set (fixnum dstart,fixnum dend);
extern object fSgprof_quit (void);
extern object fSset_hole_size (fixnum npages,...);
extern object fLgbc (object x0);
extern object sSAnotify_gbcA;
extern object sSAgbc_messageA;
extern object sLcommon;
extern object sLnull;
extern object sLcons;
extern object sLlist;
extern object sLsymbol;
extern object sLarray;
extern object sLvector;
extern object sLbit_vector;
extern object sLstring;
extern object sLsequence;
extern object sLsimple_array;
extern object sLsimple_vector;
extern object sLsimple_bit_vector;
extern object sLsimple_string;
extern object sLfunction;
extern object sLcompiled_function;
extern object sLpathname;
extern object sLcharacter;
extern object sLnumber;
extern object sLrational;
extern object sLfloat;
extern object sLstring_char;
extern object sLinteger;
extern object sLratio;
extern object sLshort_float;
extern object sLstandard_char;
extern object sLboolean;
extern object sLfixnum;
extern object sLpositive_fixnum;
extern object sLcomplex;
extern object sLsingle_float;
extern object sLpackage;
extern object sLbignum;
extern object sLrandom_state;
extern object sLdouble_float;
extern object sLstream;
extern object sLbit;
extern object sLreadtable;
extern object sLlong_float;
extern object sLhash_table;
extern object sLkeyword;
extern object sLstructure;
extern object sLsatisfies;
extern object sLmember;
extern object sLnot;
extern object sLor;
extern object sLand;
extern object sLvalues;
extern object sLmod;
extern object sLsigned_byte;
extern object sLunsigned_byte;
extern object sLsigned_char;
extern object sLunsigned_char;
extern object sLsigned_short;
extern object sLunsigned_short;
extern object sLA;
extern object sLplusp;
extern object sSchar_size;
extern object sSshort_size;
extern object fLfuncall (object fun,...);
extern object fLapply (object fun,...);
extern object fLeval (object x0);
extern object fLconstantp (object x0);
extern object sSlambda_block_expanded;
extern object sSAbreak_pointsA;
extern object sSAbreak_stepA;
extern object fLmacroexpand (object form,...);
extern object sLfuncall;
extern object sLAmacroexpand_hookA;
extern object sSdefmacroA;
extern object sSAinhibit_macro_specialA;
extern object fLnull (object x0);
extern object fLnot (object x0);
extern object fLsymbolp (object x0);
extern object fLatom (object x0);
extern object fLconsp (object x0);
extern object fLlistp (object x0);
extern object fLnumberp (object x0);
extern object fLintegerp (object x0);
extern object fLrationalp (object x0);
extern object fLrealp (object x0);
extern object fLfloatp (object x0);
extern object fLcomplexp (object x0);
extern object fLcharacterp (object x0);
extern object fLstringp (object x0);
extern object fLbit_vector_p (object x0);
extern object fLvectorp (object x0);
extern object fLsimple_string_p (object x0);
extern object fLsimple_bit_vector_p (object x0);
extern object fLsimple_vector_p (object x0);
extern object fLarrayp (object x0);
extern object fLpackagep (object x0);
extern object fLfunctionp (object x0);
extern object fLcompiled_function_p (object x0);
extern object fLcommonp (object x0);
extern object fLeq (object x0,object x1);
extern object fLeql (object x0,object x1);
extern object fLequal (object x0,object x1);
extern object fLequalp (object x0,object x1);
extern object fScontains_sharp_comma (object x0);
extern object fSspicep (object x0);
extern object fSfixnump (object x0);
extern object fLset (object symbol,object value);
extern object fSfset (object sym,object function);
extern object fLmakunbound (object sym);
extern object fLfmakunbound (object sym);
extern object sSclear_compiler_properties;
extern object fSclear_compiler_properties (object x0,object x1);
extern object sLaref;
extern object sLcar;
extern object sLcdr;
extern object sLchar;
extern object sLdecf;
extern object sLelt;
extern object sLfill_pointer;
extern object sLget;
extern object sLgetf;
extern object sLgethash;
extern object sLincf;
extern object sLpop;
extern object sLpush;
extern object sLschar;
extern object sLsetf;
extern object sSsetf_lambda;
extern object sSstructure_access;
extern object sLsvref;
extern object sStraced;
extern object sLvector;
extern object sKallow_other_keys;
extern object fSerror_set (volatile object x0);
extern object sLgensym_counter;
extern object fSmc (object name,object address);
extern object fSmfsfun (object name,object address,object argd);
extern object fSmfvfun (object name,object address,object argd);
extern object fSmfvfun_key (object symbol,object address,object argd,object keys);
extern object fSmf (object name,object addr);
extern object fSmm (object name,object addr);
extern object fScompiled_function_name (object fun);
extern object fSturbo_closure (object funobj);
extern object fSspecialp (object sym);
extern object sSdebug;
extern object fSdefvar1 (object sym,object val,...);
extern object fSdebug (object sym,object val);
extern object fSsetvv (object index,object val);
extern object sSPmemory;
extern object sSPinit;
extern object fSinit_cmp_anon (void);
extern object sKexternal;
extern object sKinherited;
extern object sKinternal;
extern object sKnicknames;
extern object sKuse;
extern object sLApackageA;
extern object fSset_gmp_allocate_relocatable (object flag);
extern object fSallocate_bigger_fixnum_range (fixnum min,fixnum max);
extern object fScmod (object num);
extern object fScplus (object x0,object x1);
extern object fSctimes (object x0,object x1);
extern object fScdifference (object x0,object x1);
extern object fLnth (fixnum index,object list);
extern object fLfirst (object x);
extern object fLsecond (object x);
extern object fLthird (object x);
extern object fLfourth (object x);
extern object fLfifth (object x);
extern object fLsixth (object x);
extern object fLseventh (object x);
extern object fLeighth (object x);
extern object fLninth (object x);
extern object fLtenth (object x);
extern object fSnext_hash_table_entry (object table,object ind);
extern object fLhash_table_test (object table);
extern object fLhash_table_size (object table);
extern object sLarray_rank_limit;
extern object sLarray_dimension_limit;
extern object sLarray_total_size_limit;
extern object sLbit;
extern object fLaref (object x,fixnum i, ...);
extern object fLsvref (object x,ufixnum i);
extern object fLrow_major_aref (object x,fixnum i);
extern object fSaset1 (object x, fixnum i,object val);
extern object fSaset (object x,object ii,object y, ...);
extern object fSsvset (object x,fixnum i,object val);
extern object fSmake_vector1 (fixnum n,fixnum elt_type,object staticp,...);
extern object fSget_aelttype (object x);
extern object fSmake_vector (object x0,object x1,object x2,object x3,object x4,object x5,object x6,...);
extern object fSmake_array1 (fixnum elt_type,object staticp,object initial_element,object displaced_to,fixnum displaced_index_offset, object dimensions);
extern object fScopy_array_portion (object x,object y,fixnum i1,fixnum i2,object n1o);
extern object fSfill_pointer_set (object x,fixnum i);
extern object fLfill_pointer (object x);
extern object fLarray_has_fill_pointer_p (object x);
extern object fLarray_element_type (object x);
extern object fLadjustable_array_p (object x);
extern object fSdisplaced_array_p (object x);
extern object fLarray_rank (object x);
extern object fLarray_dimension (object x,fixnum i);
extern object fSreplace_array (object old,object new);
extern object fLarray_total_size (object x);
extern object fSaset_by_cursor (object array,object val,object cursor);
extern object sSAmatch_dataA;
extern object sSAcase_fold_searchA;
extern object fSmatch_beginning (fixnum i);
extern object fSmatch_end (fixnum i);
extern object fScompile_regexp (object p);
extern object fSstring_match (object pattern,object string,...);
extern object sSs_data;
extern object sLcompile;
extern object sKcompile_toplevel;
extern object sLdeclare;
extern object sLeval;
extern object sKexecute;
extern object sSfunction_documentation;
extern object sLload;
extern object sKload_toplevel;
extern object sLprogn;
extern object sLtypep;
extern object sLvalues;
extern object sSvariable_documentation;
extern object sLwarn;
extern object sSAallow_gzipped_fileA;
extern object sSAcollect_binary_modulesA;
extern object sSAbinary_modulesA;
extern object sKmyaddr;
extern object sKmyport;
extern object sKasync;
extern object sKhost;
extern object sKserver;
extern object sKdaemon;
extern object sKpersistent;
extern object sSsocket;
extern object sLAstandard_inputA;
extern object sLAstandard_outputA;
extern object sLAerror_outputA;
extern object sLAterminal_ioA;
extern object sLAquery_ioA;
extern object sLAdebug_ioA;
extern object sLAtrace_outputA;
extern object sSAignore_eof_on_terminal_ioA;
extern object sSAload_pathnameA;
extern object sLAload_verboseA;
extern object sKabort;
extern object sKappend;
extern object sKcreate;
extern object sKdefault;
extern object sKdirection;
extern object sKelement_type;
extern object sKerror;
extern object sKif_does_not_exist;
extern object sKif_exists;
extern object sKinput;
extern object sKio;
extern object sKnew_version;
extern object sKoutput;
extern object sKoverwrite;
extern object sKprint;
extern object sKprobe;
extern object sKrename;
extern object sKrename_and_delete;
extern object sKset_default_pathname;
extern object sKsupersede;
extern object sKverbose;
extern object sLAread_default_float_formatA;
extern object sLAread_baseA;
extern object sLAread_suppressA;
extern object sSY;
extern object sSYB;
extern object sSYZ;
extern object sLlistA;
extern object sLappend;
extern object sLnconc;
extern object sLapply;
extern object sLvector;
extern object sKupcase;
extern object sKdowncase;
extern object sKcapitalize;
extern object sKstream;
extern object sKescape;
extern object sKreadably;
extern object sKpretty;
extern object sKcircle;
extern object sKbase;
extern object sKradix;
extern object sKcase;
extern object sKgensym;
extern object sKlevel;
extern object sKlength;
extern object sKarray;
extern object sLAprint_escapeA;
extern object sLAprint_readablyA;
extern object sLAprint_prettyA;
extern object sLAprint_circleA;
extern object sLAprint_baseA;
extern object sLAprint_radixA;
extern object sLAprint_caseA;
extern object sLAprint_gensymA;
extern object sLAprint_levelA;
extern object sLAprint_lengthA;
extern object sLAprint_arrayA;
extern object sSAprint_packageA;
extern object sSAprint_structureA;
extern object sSpretty_print_format;
extern object sSAprint_nansA;
extern object fLformat (object strm, object control,...);
extern object sSAindent_formatted_outputA;
extern object fSsetenv (object variable,object value);
extern object fLdelete_file (object path);
extern object fLerror (object fmt_string,...);
extern object fLspecific_error (object error_name,object fmt_string,...);
extern object fLspecific_correctable_error (object error_name,object fmt_string,...);
extern object fLcerror (object continue_fmt_string,object fmt_string,...);
extern object fSihs_top (void);
extern object fSihs_fun (object x0);
extern object fSihs_vs (object x0);
extern object fSfrs_top (void);
extern object fSfrs_vs (object x0);
extern object fSfrs_bds (object x0);
extern object fSfrs_class (object x0);
extern object fSfrs_tag (object x0);
extern object fSfrs_ihs (object x0);
extern object fSbds_top (void);
extern object fSbds_var (object x0);
extern object fSbds_val (object x0);
extern object fSvs_top (void);
extern object fSvs (object x0);
extern object fSsch_frs_base (object x0,object x1);
extern object fSinternal_super_go (object tag,object x1,object x2);
extern object sSuniversal_error_handler;
extern object fSuniversal_error_handler (object x0,object x1,object x2,object x3,object error_fmt_string);
extern object sSterminal_interrupt;
extern object sKwrong_type_argument;
extern object sKtoo_few_arguments;
extern object sKtoo_many_arguments;
extern object sKunexpected_keyword;
extern object sKinvalid_form;
extern object sKunbound_variable;
extern object sKinvalid_variable;
extern object sKundefined_function;
extern object sKinvalid_function;
extern object sKpackage_error;
extern object sKcatch;
extern object sKprotect;
extern object sKcatchall;
extern object fLget_universal_time (void);
extern object fLget_internal_real_time (void);
extern object sSAdefault_time_zoneA;
extern object fSgetpid (void);
extern object fSuse_fast_links (object flag,...);
extern object sScdefn;
extern object sLAlink_arrayA;
extern object sSAplt_tableA;
extern object fSprofile (object start_address,object scale);
extern object fSfunction_start (object funobj);
extern object fSset_up_combined (object first,...);
extern object fSdisplay_profile (object start_addr,object scal);
extern object fSarray_adress (object array);
extern object sSAprofile_arrayA;
extern object sSAinterrupt_enableA;
extern object sSsigusr1_interrupt;
extern object sSsigio_interrupt;
extern object sSsignal_safety_required (fixnum signo,fixnum safety);
extern object fSallow_signal (fixnum n);
extern object fSinitfun (object sym,object addr_ind,object argd,...);
extern object fSinitmacro (object first,...);
extern object fSset_key_struct (object key_struct_ind);
extern object fSinvoke (object x);
extern object fSopen_named_socket (fixnum port);
extern object fSclose_fd (fixnum fd);
extern object fSclose_sfd (object sfd);
extern object fSaccept_socket_connection (object named_socket);
extern object fShostname_to_hostid (object host);
extern object fSgethostname (void);
extern object fShostid_to_hostname (object host_id);
extern object fScheck_fd_for_input (fixnum fd,fixnum timeout);
extern object fSclear_connection (fixnum fd);
extern object fSconnection_state_fd (object sfd);
extern object fSour_write (object sfd,object buffer,fixnum nbytes);
extern object fSour_read_with_offset (object fd,object buffer,fixnum offset,fixnum nbytes,fixnum timeout);
extern object fSprint_to_string1 (object str,object x,object the_code);
extern object fSset_sigio_for_fd (fixnum fd);
extern object fSreset_string_input_stream (object strm,object string,fixnum start,fixnum end);
extern object fScheck_state_input (object osfd,fixnum timeout);
extern object fSclear_connection_state (object osfd);
extern object fSgetpeername (object sock);
extern object fSgetsockname (object sock);
extern object fSset_blocking (object sock,object setBlocking);
extern object sSAreadline_prefixA;
# 3070 "../h/cmpinclude.h"
object make_integer();
# 3142 "../h/cmpinclude.h"
enum F_arg_flags
{ F_requires_nargs,


  F_caller_sets_one_val,
# 3158 "../h/cmpinclude.h"
  F_requires_fun_passed,


  F_end
  };
enum F_arg_types
{ F_object,
  F_int,
  F_double_ptr,
  F_shortfloat
  };







extern object MVloc[10];
# 3185 "../h/cmpinclude.h"
# 1 "/usr/include/stdlib.h" 1 3 4
# 33 "/usr/include/stdlib.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 34 "/usr/include/stdlib.h" 2 3 4


# 96 "/usr/include/stdlib.h" 3 4


typedef struct
  {
    int quot;
    int rem;
  } div_t;



typedef struct
  {
    long int quot;
    long int rem;
  } ldiv_t;



# 140 "/usr/include/stdlib.h" 3 4
extern size_t __ctype_get_mb_cur_max (void) __attribute__ ((__nothrow__));




extern double atof (__const char *__nptr)
     __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));

extern int atoi (__const char *__nptr)
     __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));

extern long int atol (__const char *__nptr)
     __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));





__extension__ extern long long int atoll (__const char *__nptr)
     __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));





extern double strtod (__const char *__restrict __nptr,
        char **__restrict __endptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

# 181 "/usr/include/stdlib.h" 3 4


extern long int strtol (__const char *__restrict __nptr,
   char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

extern unsigned long int strtoul (__const char *__restrict __nptr,
      char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




__extension__
extern long long int strtoq (__const char *__restrict __nptr,
        char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

__extension__
extern unsigned long long int strtouq (__const char *__restrict __nptr,
           char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





__extension__
extern long long int strtoll (__const char *__restrict __nptr,
         char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

__extension__
extern unsigned long long int strtoull (__const char *__restrict __nptr,
     char **__restrict __endptr, int __base)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

# 277 "/usr/include/stdlib.h" 3 4
extern double __strtod_internal (__const char *__restrict __nptr,
     char **__restrict __endptr, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
extern float __strtof_internal (__const char *__restrict __nptr,
    char **__restrict __endptr, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
extern long double __strtold_internal (__const char *__restrict __nptr,
           char **__restrict __endptr,
           int __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));

extern long int __strtol_internal (__const char *__restrict __nptr,
       char **__restrict __endptr,
       int __base, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern unsigned long int __strtoul_internal (__const char *__restrict __nptr,
          char **__restrict __endptr,
          int __base, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




__extension__
extern long long int __strtoll_internal (__const char *__restrict __nptr,
      char **__restrict __endptr,
      int __base, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



__extension__
extern unsigned long long int __strtoull_internal (__const char *
         __restrict __nptr,
         char **__restrict __endptr,
         int __base, int __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 424 "/usr/include/stdlib.h" 3 4
extern char *l64a (long int __n) __attribute__ ((__nothrow__));


extern long int a64l (__const char *__s)
     __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));




# 1 "/usr/include/sys/types.h" 1 3 4
# 29 "/usr/include/sys/types.h" 3 4






typedef __u_char u_char;
typedef __u_short u_short;
typedef __u_int u_int;
typedef __u_long u_long;
typedef __quad_t quad_t;
typedef __u_quad_t u_quad_t;
typedef __fsid_t fsid_t;




typedef __loff_t loff_t;



typedef __ino_t ino_t;
# 62 "/usr/include/sys/types.h" 3 4
typedef __dev_t dev_t;




typedef __gid_t gid_t;




typedef __mode_t mode_t;




typedef __nlink_t nlink_t;




typedef __uid_t uid_t;





typedef __off_t off_t;
# 100 "/usr/include/sys/types.h" 3 4
typedef __pid_t pid_t;




typedef __id_t id_t;




typedef __ssize_t ssize_t;





typedef __daddr_t daddr_t;
typedef __caddr_t caddr_t;





typedef __key_t key_t;
# 133 "/usr/include/sys/types.h" 3 4
# 1 "/usr/include/time.h" 1 3 4
# 74 "/usr/include/time.h" 3 4


typedef __time_t time_t;



# 92 "/usr/include/time.h" 3 4
typedef __clockid_t clockid_t;
# 104 "/usr/include/time.h" 3 4
typedef __timer_t timer_t;
# 134 "/usr/include/sys/types.h" 2 3 4
# 147 "/usr/include/sys/types.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 148 "/usr/include/sys/types.h" 2 3 4



typedef unsigned long int ulong;
typedef unsigned short int ushort;
typedef unsigned int uint;
# 191 "/usr/include/sys/types.h" 3 4
typedef int int8_t __attribute__ ((__mode__ (__QI__)));
typedef int int16_t __attribute__ ((__mode__ (__HI__)));
typedef int int32_t __attribute__ ((__mode__ (__SI__)));
typedef int int64_t __attribute__ ((__mode__ (__DI__)));


typedef unsigned int u_int8_t __attribute__ ((__mode__ (__QI__)));
typedef unsigned int u_int16_t __attribute__ ((__mode__ (__HI__)));
typedef unsigned int u_int32_t __attribute__ ((__mode__ (__SI__)));
typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__)));

typedef int register_t __attribute__ ((__mode__ (__word__)));
# 213 "/usr/include/sys/types.h" 3 4
# 1 "/usr/include/endian.h" 1 3 4
# 37 "/usr/include/endian.h" 3 4
# 1 "/usr/include/bits/endian.h" 1 3 4
# 38 "/usr/include/endian.h" 2 3 4
# 214 "/usr/include/sys/types.h" 2 3 4


# 1 "/usr/include/sys/select.h" 1 3 4
# 31 "/usr/include/sys/select.h" 3 4
# 1 "/usr/include/bits/select.h" 1 3 4
# 32 "/usr/include/sys/select.h" 2 3 4


# 1 "/usr/include/bits/sigset.h" 1 3 4
# 35 "/usr/include/sys/select.h" 2 3 4



typedef __sigset_t sigset_t;





# 1 "/usr/include/time.h" 1 3 4
# 118 "/usr/include/time.h" 3 4
struct timespec
  {
    __time_t tv_sec;
    long int tv_nsec;
  };
# 45 "/usr/include/sys/select.h" 2 3 4

# 1 "/usr/include/bits/time.h" 1 3 4
# 69 "/usr/include/bits/time.h" 3 4
struct timeval
  {
    __time_t tv_sec;
    __suseconds_t tv_usec;
  };
# 47 "/usr/include/sys/select.h" 2 3 4


typedef __suseconds_t suseconds_t;





typedef long int __fd_mask;
# 67 "/usr/include/sys/select.h" 3 4
typedef struct
  {






    __fd_mask __fds_bits[1024 / (8 * sizeof (__fd_mask))];


  } fd_set;






typedef __fd_mask fd_mask;
# 99 "/usr/include/sys/select.h" 3 4

# 109 "/usr/include/sys/select.h" 3 4
extern int select (int __nfds, fd_set *__restrict __readfds,
     fd_set *__restrict __writefds,
     fd_set *__restrict __exceptfds,
     struct timeval *__restrict __timeout);
# 128 "/usr/include/sys/select.h" 3 4

# 217 "/usr/include/sys/types.h" 2 3 4


# 1 "/usr/include/sys/sysmacros.h" 1 3 4
# 29 "/usr/include/sys/sysmacros.h" 3 4
__extension__
extern __inline unsigned int gnu_dev_major (unsigned long long int __dev)
     __attribute__ ((__nothrow__));
__extension__
extern __inline unsigned int gnu_dev_minor (unsigned long long int __dev)
     __attribute__ ((__nothrow__));
__extension__
extern __inline unsigned long long int gnu_dev_makedev (unsigned int __major,
       unsigned int __minor)
     __attribute__ ((__nothrow__));


__extension__ extern __inline unsigned int
__attribute__ ((__nothrow__)) gnu_dev_major (unsigned long long int __dev)
{
  return ((__dev >> 8) & 0xfff) | ((unsigned int) (__dev >> 32) & ~0xfff);
}

__extension__ extern __inline unsigned int
__attribute__ ((__nothrow__)) gnu_dev_minor (unsigned long long int __dev)
{
  return (__dev & 0xff) | ((unsigned int) (__dev >> 12) & ~0xff);
}

__extension__ extern __inline unsigned long long int
__attribute__ ((__nothrow__)) gnu_dev_makedev (unsigned int __major, unsigned int __minor)
{
  return ((__minor & 0xff) | ((__major & 0xfff) << 8)
   | (((unsigned long long int) (__minor & ~0xff)) << 12)
   | (((unsigned long long int) (__major & ~0xfff)) << 32));
}
# 220 "/usr/include/sys/types.h" 2 3 4
# 231 "/usr/include/sys/types.h" 3 4
typedef __blkcnt_t blkcnt_t;



typedef __fsblkcnt_t fsblkcnt_t;



typedef __fsfilcnt_t fsfilcnt_t;
# 266 "/usr/include/sys/types.h" 3 4
# 1 "/usr/include/bits/pthreadtypes.h" 1 3 4
# 23 "/usr/include/bits/pthreadtypes.h" 3 4
# 1 "/usr/include/bits/sched.h" 1 3 4
# 83 "/usr/include/bits/sched.h" 3 4
struct __sched_param
  {
    int __sched_priority;
  };
# 24 "/usr/include/bits/pthreadtypes.h" 2 3 4

typedef int __atomic_lock_t;


struct _pthread_fastlock
{
  long int __status;
  __atomic_lock_t __spinlock;

};



typedef struct _pthread_descr_struct *_pthread_descr;





typedef struct __pthread_attr_s
{
  int __detachstate;
  int __schedpolicy;
  struct __sched_param __schedparam;
  int __inheritsched;
  int __scope;
  size_t __guardsize;
  int __stackaddr_set;
  void *__stackaddr;
  size_t __stacksize;
} pthread_attr_t;





__extension__ typedef long long __pthread_cond_align_t;




typedef struct
{
  struct _pthread_fastlock __c_lock;
  _pthread_descr __c_waiting;
  char __padding[48 - sizeof (struct _pthread_fastlock)
   - sizeof (_pthread_descr) - sizeof (__pthread_cond_align_t)];
  __pthread_cond_align_t __align;
} pthread_cond_t;



typedef struct
{
  int __dummy;
} pthread_condattr_t;


typedef unsigned int pthread_key_t;





typedef struct
{
  int __m_reserved;
  int __m_count;
  _pthread_descr __m_owner;
  int __m_kind;
  struct _pthread_fastlock __m_lock;
} pthread_mutex_t;



typedef struct
{
  int __mutexkind;
} pthread_mutexattr_t;



typedef int pthread_once_t;
# 152 "/usr/include/bits/pthreadtypes.h" 3 4
typedef unsigned long int pthread_t;
# 267 "/usr/include/sys/types.h" 2 3 4



# 434 "/usr/include/stdlib.h" 2 3 4






extern long int random (void) __attribute__ ((__nothrow__));


extern void srandom (unsigned int __seed) __attribute__ ((__nothrow__));





extern char *initstate (unsigned int __seed, char *__statebuf,
   size_t __statelen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2)));



extern char *setstate (char *__statebuf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));







struct random_data
  {
    int32_t *fptr;
    int32_t *rptr;
    int32_t *state;
    int rand_type;
    int rand_deg;
    int rand_sep;
    int32_t *end_ptr;
  };

extern int random_r (struct random_data *__restrict __buf,
       int32_t *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));

extern int srandom_r (unsigned int __seed, struct random_data *__buf)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2)));

extern int initstate_r (unsigned int __seed, char *__restrict __statebuf,
   size_t __statelen,
   struct random_data *__restrict __buf)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4)));

extern int setstate_r (char *__restrict __statebuf,
         struct random_data *__restrict __buf)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));






extern int rand (void) __attribute__ ((__nothrow__));

extern void srand (unsigned int __seed) __attribute__ ((__nothrow__));




extern int rand_r (unsigned int *__seed) __attribute__ ((__nothrow__));







extern double drand48 (void) __attribute__ ((__nothrow__));
extern double erand48 (unsigned short int __xsubi[3]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));


extern long int lrand48 (void) __attribute__ ((__nothrow__));
extern long int nrand48 (unsigned short int __xsubi[3])
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));


extern long int mrand48 (void) __attribute__ ((__nothrow__));
extern long int jrand48 (unsigned short int __xsubi[3])
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));


extern void srand48 (long int __seedval) __attribute__ ((__nothrow__));
extern unsigned short int *seed48 (unsigned short int __seed16v[3])
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
extern void lcong48 (unsigned short int __param[7]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





struct drand48_data
  {
    unsigned short int __x[3];
    unsigned short int __old_x[3];
    unsigned short int __c;
    unsigned short int __init;
    unsigned long long int __a;
  };


extern int drand48_r (struct drand48_data *__restrict __buffer,
        double *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));
extern int erand48_r (unsigned short int __xsubi[3],
        struct drand48_data *__restrict __buffer,
        double *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));


extern int lrand48_r (struct drand48_data *__restrict __buffer,
        long int *__restrict __result)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));
extern int nrand48_r (unsigned short int __xsubi[3],
        struct drand48_data *__restrict __buffer,
        long int *__restrict __result)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));


extern int mrand48_r (struct drand48_data *__restrict __buffer,
        long int *__restrict __result)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));
extern int jrand48_r (unsigned short int __xsubi[3],
        struct drand48_data *__restrict __buffer,
        long int *__restrict __result)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));


extern int srand48_r (long int __seedval, struct drand48_data *__buffer)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2)));

extern int seed48_r (unsigned short int __seed16v[3],
       struct drand48_data *__buffer) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));

extern int lcong48_r (unsigned short int __param[7],
        struct drand48_data *__buffer)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));









extern void *malloc (size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__));

extern void *calloc (size_t __nmemb, size_t __size)
     __attribute__ ((__nothrow__)) __attribute__ ((__malloc__));







extern void *realloc (void *__ptr, size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__));

extern void free (void *__ptr) __attribute__ ((__nothrow__));




extern void cfree (void *__ptr) __attribute__ ((__nothrow__));



# 1 "/usr/include/alloca.h" 1 3 4
# 25 "/usr/include/alloca.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 26 "/usr/include/alloca.h" 2 3 4







extern void *alloca (size_t __size) __attribute__ ((__nothrow__));






# 607 "/usr/include/stdlib.h" 2 3 4




extern void *valloc (size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__));
# 620 "/usr/include/stdlib.h" 3 4


extern void abort (void) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__));



extern int atexit (void (*__func) (void)) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





extern int on_exit (void (*__func) (int __status, void *__arg), void *__arg)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));






extern void exit (int __status) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__));

# 652 "/usr/include/stdlib.h" 3 4


extern char *getenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




extern char *__secure_getenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





extern int putenv (char *__string) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





extern int setenv (__const char *__name, __const char *__value, int __replace)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2)));


extern int unsetenv (__const char *__name) __attribute__ ((__nothrow__));






extern int clearenv (void) __attribute__ ((__nothrow__));
# 691 "/usr/include/stdlib.h" 3 4
extern char *mktemp (char *__template) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 702 "/usr/include/stdlib.h" 3 4
extern int mkstemp (char *__template) __attribute__ ((__nonnull__ (1)));
# 721 "/usr/include/stdlib.h" 3 4
extern char *mkdtemp (char *__template) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));








extern int system (__const char *__command);

# 749 "/usr/include/stdlib.h" 3 4
extern char *realpath (__const char *__restrict __name,
         char *__restrict __resolved) __attribute__ ((__nothrow__));






typedef int (*__compar_fn_t) (__const void *, __const void *);









extern void *bsearch (__const void *__key, __const void *__base,
        size_t __nmemb, size_t __size, __compar_fn_t __compar)
     __attribute__ ((__nonnull__ (1, 2, 5)));



extern void qsort (void *__base, size_t __nmemb, size_t __size,
     __compar_fn_t __compar) __attribute__ ((__nonnull__ (1, 4)));



extern int abs (int __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));
extern long int labs (long int __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__));












extern div_t div (int __numer, int __denom)
     __attribute__ ((__nothrow__)) __attribute__ ((__const__));
extern ldiv_t ldiv (long int __numer, long int __denom)
     __attribute__ ((__nothrow__)) __attribute__ ((__const__));

# 814 "/usr/include/stdlib.h" 3 4
extern char *ecvt (double __value, int __ndigit, int *__restrict __decpt,
     int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4)));




extern char *fcvt (double __value, int __ndigit, int *__restrict __decpt,
     int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4)));




extern char *gcvt (double __value, int __ndigit, char *__buf)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3)));




extern char *qecvt (long double __value, int __ndigit,
      int *__restrict __decpt, int *__restrict __sign)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4)));
extern char *qfcvt (long double __value, int __ndigit,
      int *__restrict __decpt, int *__restrict __sign)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4)));
extern char *qgcvt (long double __value, int __ndigit, char *__buf)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3)));




extern int ecvt_r (double __value, int __ndigit, int *__restrict __decpt,
     int *__restrict __sign, char *__restrict __buf,
     size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5)));
extern int fcvt_r (double __value, int __ndigit, int *__restrict __decpt,
     int *__restrict __sign, char *__restrict __buf,
     size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5)));

extern int qecvt_r (long double __value, int __ndigit,
      int *__restrict __decpt, int *__restrict __sign,
      char *__restrict __buf, size_t __len)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5)));
extern int qfcvt_r (long double __value, int __ndigit,
      int *__restrict __decpt, int *__restrict __sign,
      char *__restrict __buf, size_t __len)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5)));







extern int mblen (__const char *__s, size_t __n) __attribute__ ((__nothrow__));


extern int mbtowc (wchar_t *__restrict __pwc,
     __const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__));


extern int wctomb (char *__s, wchar_t __wchar) __attribute__ ((__nothrow__));



extern size_t mbstowcs (wchar_t *__restrict __pwcs,
   __const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__));

extern size_t wcstombs (char *__restrict __s,
   __const wchar_t *__restrict __pwcs, size_t __n)
     __attribute__ ((__nothrow__));








extern int rpmatch (__const char *__response) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 954 "/usr/include/stdlib.h" 3 4
extern int getloadavg (double __loadavg[], int __nelem)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));






# 3186 "../h/cmpinclude.h" 2
extern char *alloca_val;
# 3196 "../h/cmpinclude.h"
object on_stack_cons();
object on_stack_list(int,...);

object on_stack_list_vector_new(int,object,va_list);
object on_stack_make_list();
# 3236 "../h/cmpinclude.h"
object make_integer();
# 3267 "../h/cmpinclude.h"
typedef MP_INT * GEN;

int obj_to_mpz(object,MP_INT *);
int obj_to_mpz1(object,MP_INT *,void *);
int mpz_to_mpz(MP_INT *,MP_INT *);
int mpz_to_mpz1(MP_INT *,MP_INT *,void *);
void isetq_fix(MP_INT *,int);
MP_INT * otoi(object x);
# 3312 "../h/cmpinclude.h"
typedef struct regexp {
 char *startp[10];
 char *endp[10];
 char regstart;
 char reganch;
 char *regmust;
 int regmlen;
 unsigned char regmaybe_boyer;
 char program[1];
} regexp;
# 3331 "../h/cmpinclude.h"
extern void regsub (regexp *prog, char *source, char *dest);

extern void regerror (char *msg);



                    extern char *alloc_page (long n);
                     extern void add_page_to_freelist (char *p, struct typemanager *tm);
                     extern object type_name (int t);
                     extern object alloc_object (enum type t);
                     extern object make_cons (object a, object d);
                     extern object on_stack_cons (object x, object y);
                     extern object fSallocated (object typ);
                     extern object fSreset_number_used (object typ);
                     extern void insert_contblock (char *p, int s);
                     extern void insert_maybe_sgc_contblock (char *p, int s);
                     extern void set_maxpage (void);
                     extern void gcl_init_alloc (void);
                     extern object fSstaticp (object x);
                     extern object fSallocate_sgc (object type,fixnum min,fixnum max,fixnum free_percent);
                     extern object fSallocate_growth (object type,fixnum min,fixnum max,fixnum percent,fixnum percent_free);
                     extern object fSallocated_contiguous_pages (void);
                     extern object fSmaximum_contiguous_pages (void);
                     extern object fSallocated_relocatable_pages (void);
                     extern object fSget_hole_size (void);
                      extern void gcl_init_alloc_function (void);
                      extern void free (void *ptr);
                    extern void Laref (void);
                     extern object fLsvref (object x, ufixnum i);
                     extern object fLrow_major_aref (object x,fixnum i);
                     extern object fSaset1 (object x,fixnum i, object val);
                     extern void siLaset (void);
                     extern void siLsvset (void);
                     extern object fSsvset (object x,fixnum i, object val);
                     extern object fSget_aelttype (object x);
                     extern void siLmake_vector (void);
                     extern object fSmake_array1 (fixnum elt_type, object staticp, object initial_element, object displaced_to,fixnum displaced_index_offset, object dimensions);
                  extern object fSmake_vector1_1 (fixnum n,fixnum elt_type,object staticp);
                     extern void adjust_displaced (object x, long diff);
                     extern void gset (void *p1, void *val, int n, int typ);
                     extern object fScopy_array_portion (object x, object y,fixnum i1,fixnum i2, object n1);
                     extern void array_allocself (object x, int staticp, object dflt);
                     extern void siLfill_pointer_set (void);
                     extern object fSfill_pointer_set (object x,fixnum i);
                     extern void Lfill_pointer (void);
                     extern object fLfill_pointer (object x);
                     extern object fLarray_has_fill_pointer_p (object x);
                     extern void Larray_element_type (void);
                     extern object fLarray_element_type (object x);
                     extern void Ladjustable_array_p (void);
                     extern object fLadjustable_array_p (object x);
                      extern void siLdisplaced_array_p (void);
                      extern object fSdisplaced_array_p (object x);
                      extern void Larray_rank (void);
                      extern object fLarray_rank (object x);
                      extern void Larray_dimension (void);
                      extern object fLarray_dimension (object x,fixnum i);
                      extern void siLreplace_array (void);
                      extern object fSreplace_array (object old, object new);
                      extern object fLarray_total_size (object x);
                      extern object fSaset_by_cursor (object array, object val, object cursor);
                      extern void gcl_init_array_function (void);
                         extern void setq (object sym, object val);
                          extern void Lset (void);
                          extern object fLset (object symbol, object value);
                          extern void siLfset (void);
                          extern object fSfset (object sym, object function);
                          extern object fLmakunbound (object sym);
                          extern void Lfmakunbound (void);
                          extern object fLfmakunbound (object sym);
                          extern object clear_compiler_properties (object sym, object code);
                          extern object fSclear_compiler_properties (object x0, object x1);
                          extern void gcl_init_assignment (void);
                     extern int backq_car (object x);
                     extern void gcl_init_backq (void);
                  extern void bds_unwind (bds_ptr new_bds_top);
                  extern object fSset_gmp_allocate_relocatable (object flag);
                      extern void gcl_init_big1 (void);
                       extern object new_bignum (void);
                       extern object make_integer (__mpz_struct *u);
                       extern int big_compare (object x, object y);
                       extern object normalize_big_to_object (object x);
                       extern void add_int_big (int i, object x);
                       extern void mul_int_big (int i, object x);
                       extern object normalize_big (object x);
                       extern object big_minus (object x);
                       extern double big_to_double (object x);
                       extern object maybe_replace_big (object x);
                       extern object bignum2 (unsigned int h, unsigned int l);
                       extern void integer_quotient_remainder_1 (object x, object y, object *qp, object *rp);
                       extern object coerce_big_to_string (object x, int printbase);
                       extern void gcl_init_big (void);
                  extern int big_sign (object x);
                  extern void set_big_sign (object x, int sign);
                  extern void zero_big (object x);
                   extern void lambda_bind (object *arg_top);
                    extern void bind_var (object var, object val, object spp);
                    extern object find_special (object body, struct bind_temp *start, struct bind_temp *end);
                    extern object let_bind (object body, struct bind_temp *start, struct bind_temp *end);
                    extern object letA_bind (object body, struct bind_temp *start, struct bind_temp *end);
                    extern void parse_key (object *base, bool rest, bool allow_other_keys, register int n, ... );
                    extern void check_other_key (object l, int n, ...);
struct key {short n,allow_other_keys;
     iobject *defaults;
     iobject keys[1];
    };

                    extern int parse_key_new_new (int n, object *base, struct key *keys, object first, va_list ap);
                    extern int parse_key_rest_new (object rest, int n, object *base, struct key *keys, object first, va_list ap);
                    extern void set_key_struct (struct key *ks, object data);
                    extern void gcl_init_bind (void);
                     extern void gcl_init_block (void);
                     extern void *bsearch (const void *key, const void *base, size_t nel, size_t keysize, int (*compar) (const void *,const void *));



                    extern object fSerror_set (object x0);
                     extern void gcl_init_catch (void);
                   extern object make_cfun (void (*self)(), object name, object data, char *start, int size);
                   extern object make_sfun (object name, object (*self)(), int argd, object data);
                   extern object make_cclosure_new (void (*self)(), object name, object env, object data);
                    extern object make_cclosure (void (*self)(), object name, object env, object data, char *start, int size);
                    extern object fSmc (object name, object address);
                    extern object fSmfsfun (object name, object address, object argd);
                    extern object fSmfvfun (object name, object address, object argd);
                    extern object fSmfvfun_key (object symbol, object address, object argd, object keys);
                    extern object fSmf (object name, object addr);
                    extern object fSmm (object name, object addr);
                    extern object make_function_internal (char *s, void(*f)());
                    extern object make_si_sfun_internal (char *s, object (*f)(), int argd);
                    extern object make_si_function_internal (char *s, void (*f) ());
                    extern object make_special_form_internal (char *s, void (*f)());
                    extern object fScompiled_function_name (object fun);
                    extern void turbo_closure (object fun);
                    extern object fSturbo_closure (object funobj);
                    extern void gcl_init_cfun (void);
                    extern object fScmod (object num);
                    extern object fScplus (object x0, object x1);
                    extern object fSctimes (object x0, object x1);
                    extern object fScdifference (object x0, object x1);
                    extern void gcl_init_cmac (void);
                     extern void siLspecialp (void);
                     extern object fSspecialp (object sym);
                     extern object fSdebug (object sym, object val);
                     extern object fSsetvv (object index, object val);
                     extern void gcl_init_cmpaux (void);


                      extern int object_to_int (object x);
                      extern char *object_to_string (object x);
typedef int (*FUNC)();
                      extern void call_init (int init_address, object memory, object fasl_vec, FUNC fptr);
                      extern void do_init (object *statVV);
                      extern void gcl_init_or_load1 (void (*fn) (void), char *file);
                           extern void gcl_init_conditional (void);
                    extern void terminal_interrupt (int correctable);
                     extern void Lerror (void);
                     extern void Lcerror (void);
                     extern void FEerror (char *s, int num, ... );
                     extern void FEwrong_type_argument (object type, object value);
                     extern void FEtoo_few_arguments (object *base, object *top);
                     extern void FEtoo_few_argumentsF (object args);
                     extern void FEtoo_many_arguments (object *base, object *top);
                     extern void FEtoo_many_argumentsF (object args);
                     extern void FEunexpected_keyword (object key);
                     extern void FEinvalid_form (char *s, object form);
                     extern void FEunbound_variable (object sym);
                     extern void FEinvalid_variable (char *s, object obj);
                     extern void FEundefined_function (object fname);
                     extern void FEinvalid_function (object obj);
                     extern object CEerror (char *error_str, char *cont_str, int num, object arg1, object arg2, object arg3, object arg4);
                     extern object fSihs_top (void);
                     extern object fSihs_fun (object x0);
                     extern object fSihs_vs (object x0);
                     extern object fSfrs_top (void);
                     extern object fSfrs_vs (object x0);
                     extern object fSfrs_bds (object x0);
                     extern object fSfrs_class (object x0);
                     extern object fSfrs_tag (object x0);
                     extern object fSfrs_ihs (object x0);
                     extern object fSbds_top (void);
                     extern object fSbds_var (object x0);
                     extern object fSbds_val (object x0);
                     extern object fSvs_top (void);
                     extern object fSvs (object x0);
                     extern object fSsch_frs_base (object x0, object x1);
                     extern object fSinternal_super_go (object tag, object x1, object x2);
                     extern object fSuniversal_error_handler (object x0, object x1, object x2, object x3, object error_fmt_string);
                     extern void check_arg_failed (int n);
                     extern void too_few_arguments (void);
                     extern void too_many_arguments (void);
                     extern void ck_larg_exactly (int n, object x);
                     extern void invalid_macro_call (void);
                     extern object wrong_type_argument (object typ, object obj);
                     extern void illegal_declare (object form);
                     extern void not_a_string_or_symbol (object x);
                     extern void not_a_symbol (object obj);
                     extern int not_a_variable (object obj);
                     extern void illegal_index (object x, object i);
                     extern void check_socket (object x);
                     extern void check_stream (object strm);
                     extern void check_arg_range (int n, int m);
                     extern void gcl_init_error (void);
                    extern void funcall (object fun);
                    extern void lispcall (object *funp, int narg);
                    extern void symlispcall (object sym, object *base, int narg);
                    extern object simple_lispcall (object *funp, int narg);
                    extern object simple_symlispcall (object sym, object *base, int narg);
                    extern void super_funcall (object fun);
                    extern void super_funcall_no_event (object fun);
                    extern object Ieval (object form);
                    extern void eval (object form);
                     extern void Leval (void);
                     extern object fLeval (object x0);
                     extern void Levalhook (void);
                     extern void Lconstantp (void);
                     extern object fLconstantp (object x0);
                     extern object ieval (object x);
                     extern object ifuncall1 (object fun, object arg1);
                     extern object ifuncall2 (object fun, object arg1, object arg2);
                     extern object ifuncall3 (object fun, object arg1, object arg2, object arg3);
typedef void (*funcvoid)(void);
                     extern void gcl_init_eval (void);
                        extern object read_fasl_vector (object in);
                         extern object fSprofile (object start_address, object scale);
                         extern object fSfunction_start (object funobj);
                          extern object fSdisplay_profile (object start_addr, object scal);
                          extern object fSarray_adress (object array);
                          extern void gcl_init_fat_string (void);
                   extern void gcl_init_sfasl (void);
                   extern object fLformat_1(object strm, object control,object x);
                       extern void Lformat (void);
                       extern void gcl_init_format (void);
                    extern void unwind (frame_ptr fr, object tag);
                    extern frame_ptr frs_sch (object frame_id);
                    extern frame_ptr frs_sch_catch (object frame_id);
                      extern void call_or_link (object sym, void **link);
                      extern void call_or_link_closure (object sym, void **link, void **ptr);
                       extern object c_apply_n (object (*fn)(), int n, object *x);
                       extern object call_proc0 (object sym, void *link);
                       extern int clear_stack (object *beg, object *limit);
                       extern void gcl_init_links (void);
                   extern void enter_mark_origin (object *p);
                   extern void GBC (enum type t);
                    extern object fLgbc (object x0);
                    extern int sgc_count_type (int t);
                    extern int sgc_start (void);
                     extern int sgc_quit (void);
                     extern void make_writable (unsigned long beg, unsigned long i);



                     extern void memory_protect (int on);
                     extern void perm_writable (char *p, long n);
                     extern void system_error (void);
                    extern void gcl_init_GBC (void);
                         extern void malloc_init (char *start, void (*warnfun) ( ));
                         extern int malloc_usable_size (char *mem);




                         extern int get_lim_data (void);
                        extern int read_some (char *buf, int n, int start_ch, int copy);

                         extern void gcl_init_iteration (void);
                  extern void let_var_list (object var_list);
                   extern void gcl_init_let (void);
                  extern object assoc_eq (object key, object alist);
                  extern void lex_fun_bind (object name, object fun);
                  extern void lex_macro_bind (object name, object exp_fun);
                  extern void lex_tag_bind (object tag, object id);
                  extern void lex_block_bind (object name, object id);
                  extern object lex_tag_sch (object tag);
                   extern object lex_block_sch (object name);
                   extern void gcl_init_lex (void);
# 3623 "../h/cmpinclude.h"
                      extern object Imacro_expand1 (object exp_fun, object form);
                      extern void Lmacroexpand (void);
                      extern void Lmacroexpand_1 (void);
                      extern object macro_expand (object form);
                      extern void gcl_init_macros (void);
                    extern int main (int argc, char **argv, char **envp);
                    extern void install_segmentation_catcher (void);
                    extern void error (char *s);
                    extern object vs_overflow (void);
                    extern void bds_overflow (void);
                    extern void frs_overflow (void);
                    extern void ihs_overflow (void);
                    extern void segmentation_catcher (int);
                    extern void Lby (void);
                    extern void Lquit(void);
                    extern void Lexit(void);
                    extern int c_trace (void);
                    extern void siLreset_stack_limits (void);
                    extern void Lidentity(void);
                    extern object fLidentity (object x0);
                    extern void Llisp_implementation_version(void);
                    extern object fLlisp_implementation_version (void);
                      extern object MakeAfun (object (*addr)(object,object), unsigned int argd, object data);
                       extern object fSset_key_struct (object key_struct_ind);
                       extern void SI_makefun (char *strg, object (*fn) ( ), unsigned int argd);
                       extern void LISP_makefun (char *strg, object (*fn) ( ), unsigned int argd);
                       extern object fSinvoke (object x);
                      extern void gcl_init_mapfun (void);
                       extern void Lvalues (void);
                       extern void Lvalues_list (void);
                        extern void gcl_init_multival (void);
                        extern object IapplyVector (object fun, int nargs, object *base);
                        extern void Iinvoke_c_function_from_value_stack (object (*f)(), int fargd);
                       extern int CreateSocket (int port, char *host, int server, char *myaddr, int myport, int async);
                       extern object fSgetpeername (object sock);
                       extern object fSgetsockname (object sock);
                       extern object fSset_blocking (object sock, object setBlocking);
                       extern int getOneChar (FILE *fp);
                       extern void ungetCharGclSocket (int c, object strm);

                       extern void tcpCloseSocket (int fd);
                       extern int TcpOutputProc (int fd, char *buf, int toWrite, int *errorCodePtr);

                       extern int getCharGclSocket (object strm, object block);
                        extern object fixnum_add (fixnum i, fixnum j);
                        extern object fixnum_sub (fixnum i, fixnum j);
                         extern object number_plus (object x, object y);
                         extern object one_plus (object x);
                         extern object number_minus (object x, object y);
                         extern object one_minus (object x);
                         extern object number_negate (object x);
                         extern object number_times (object x, object y);
                         extern object number_divide (object x, object y);
                         extern object integer_divide1 (object x, object y);
                         extern object get_gcd (object x, object y);
                         extern void Lplus (void);
                         extern void Lminus (void);
                         extern void Ltimes (void);
                         extern void Ldivide (void);
                          extern void gcl_init_num_arith (void);
                      extern object double_to_integer (double d);
                      extern void Lfloat (void);
                      extern void Lnumerator (void);
                      extern void Ldenominator (void);
                      extern void Lfloor (void);
                      extern void Lceiling (void);
                      extern void Ltruncate (void);
                      extern void Lround (void);
                      extern void Lmod (void);
                      extern void Lfloat_radix (void);
                       extern void Linteger_decode_float (void);
                       extern void Lcomplex (void);
                       extern void Lrealpart (void);
                       extern void Limagpart (void);
                       extern void gcl_init_num_co (void);
                       extern int number_compare (object x, object y);
                        extern void Lmonotonically_increasing (void);
                        extern void Lmonotonically_nondecreasing (void);
                        extern void Lmonotonically_nonincreasing (void);
                        extern void Lmin (void);
                        extern void gcl_init_num_comp (void);
                       extern object shift_integer (object x, int w);
                       extern void Llogior (void);
                       extern void Llogxor (void);
                       extern void Llogand (void);
                       extern void Lboole (void);
                       extern void Llogbitp (void);
                       extern void Lash (void);
                       extern void Linteger_length (void);
                       extern void gcl_init_num_log (void);
                       extern void siLbit_array_op (void);
                       extern int number_zerop (object x);
                       extern int number_plusp (object x);
                        extern int number_minusp (object x);
                        extern int number_oddp (object x);
                        extern int number_evenp (object x);
                        extern void gcl_init_num_pred (void);
                        extern void Lrandom (void);
                        extern void gcl_init_num_rand (void);
                       extern object number_expt (object x, object y);
                        extern void Lexp (void);
                        extern void Llog (void);
                        extern void Lsqrt (void);
                        extern void Lsin (void);
                        extern void Lcos (void);
                        extern void Latan (void);
                        extern void gcl_init_num_sfun (void);
                     extern long int fixint (object x);
                     extern int fixnnint (object x);
                     extern object fSallocate_bigger_fixnum_range (fixnum min,fixnum max);
                     extern object make_fixnum1 (long i);
                      extern object make_ratio (object num, object den);
                      extern object make_shortfloat (double f);
                      extern object make_longfloat (longfloat f);
                      extern object make_complex (object r, object i);
                      extern double number_to_double (object x);
                      extern void gcl_init_number (void);

                        extern object fLnot (object x0);
                        extern void Lsymbolp (void);
                        extern object fLsymbolp (object x0);
                        extern object fLatom (object x0);
                        extern object fLconsp (object x0);
                        extern object fLlistp (object x0);
                         extern object fLnumberp (object x0);
                         extern object fLintegerp (object x0);
                         extern object fLrationalp (object x0);
                         extern object fLrealp (object x0);
                         extern object fLfloatp (object x0);
                         extern void Lcomplexp (void);
                         extern object fLcomplexp (object x0);
                         extern object fLcharacterp (object x0);
                         extern object fLstringp (object x0);
                         extern object fLbit_vector_p (object x0);
                         extern object fLvectorp (object x0);
                         extern void Lsimple_string_p (void);
                         extern object fLsimple_string_p (object x0);
                         extern void Lsimple_bit_vector_p (void);
                         extern object fLsimple_bit_vector_p (object x0);
                         extern void Lsimple_vector_p (void);
                         extern object fLsimple_vector_p (object x0);
                         extern object fLarrayp (object x0);
                         extern void Lpackagep (void);
                         extern object fLpackagep (object x0);
                         extern void Lfunctionp (void);
                         extern object fLfunctionp (object x0);
                         extern void Lcompiled_function_p (void);
                         extern object fLcompiled_function_p (object x0);
                         extern object fLcommonp (object x0);
                         extern object fLeq (object x0, object x1);
                         extern int eql (object x, object y);
                         extern object fLeql (object x0, object x1);
                         extern int equal (register object x, register object y);
                         extern object fLequal (object x0, object x1);
                         extern bool equalp (object x, object y);
                         extern object fLequalp (object x0, object x1);
                         extern bool contains_sharp_comma (object x);
                         extern object fScontains_sharp_comma (object x0);
                         extern object fSspicep (object x0);
                         extern object fSfixnump (object x0);
                         extern void gcl_init_predicate_function (void);
                   extern void Ftagbody (object body);
                    extern void Fprogn (object body);
                    extern void gcl_init_prog (void);
                        extern void Lfboundp (void);
                        extern object symbol_function (object sym);
                        extern void Lsymbol_function (void);
                         extern void Lsymbol_value (void);
                         extern void Lboundp (void);
                         extern void Lmacro_function (void);
                         extern void Lspecial_form_p (void);
                         extern void gcl_init_reference (void);

                       extern void regerror (char *s);
                      extern object fSmatch_beginning (fixnum i);
                      extern object fSmatch_end (fixnum i);
                   extern void Lsave (void);
# 1 "/usr/include/unistd.h" 1 3 4
# 28 "/usr/include/unistd.h" 3 4

# 171 "/usr/include/unistd.h" 3 4
# 1 "/usr/include/bits/posix_opt.h" 1 3 4
# 172 "/usr/include/unistd.h" 2 3 4
# 195 "/usr/include/unistd.h" 3 4
# 1 "/usr/lib/gcc/arm-linux-gnu/4.0.2/include/stddef.h" 1 3 4
# 196 "/usr/include/unistd.h" 2 3 4
# 236 "/usr/include/unistd.h" 3 4
typedef __intptr_t intptr_t;






typedef __socklen_t socklen_t;
# 256 "/usr/include/unistd.h" 3 4
extern int access (__const char *__name, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 287 "/usr/include/unistd.h" 3 4
extern __off_t lseek (int __fd, __off_t __offset, int __whence) __attribute__ ((__nothrow__));
# 305 "/usr/include/unistd.h" 3 4
extern int close (int __fd);






extern ssize_t read (int __fd, void *__buf, size_t __nbytes);





extern ssize_t write (int __fd, __const void *__buf, size_t __n);
# 369 "/usr/include/unistd.h" 3 4
extern int pipe (int __pipedes[2]) __attribute__ ((__nothrow__));
# 378 "/usr/include/unistd.h" 3 4
extern unsigned int alarm (unsigned int __seconds) __attribute__ ((__nothrow__));
# 390 "/usr/include/unistd.h" 3 4
extern unsigned int sleep (unsigned int __seconds);






extern __useconds_t ualarm (__useconds_t __value, __useconds_t __interval)
     __attribute__ ((__nothrow__));






extern int usleep (__useconds_t __useconds);
# 414 "/usr/include/unistd.h" 3 4
extern int pause (void);



extern int chown (__const char *__file, __uid_t __owner, __gid_t __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int fchown (int __fd, __uid_t __owner, __gid_t __group) __attribute__ ((__nothrow__));




extern int lchown (__const char *__file, __uid_t __owner, __gid_t __group)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




extern int chdir (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int fchdir (int __fd) __attribute__ ((__nothrow__));
# 448 "/usr/include/unistd.h" 3 4
extern char *getcwd (char *__buf, size_t __size) __attribute__ ((__nothrow__));
# 461 "/usr/include/unistd.h" 3 4
extern char *getwd (char *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




extern int dup (int __fd) __attribute__ ((__nothrow__));


extern int dup2 (int __fd, int __fd2) __attribute__ ((__nothrow__));


extern char **__environ;







extern int execve (__const char *__path, char *__const __argv[],
     char *__const __envp[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 492 "/usr/include/unistd.h" 3 4
extern int execv (__const char *__path, char *__const __argv[])
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int execle (__const char *__path, __const char *__arg, ...)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int execl (__const char *__path, __const char *__arg, ...)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int execvp (__const char *__file, char *__const __argv[])
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




extern int execlp (__const char *__file, __const char *__arg, ...)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));




extern int nice (int __inc) __attribute__ ((__nothrow__));




extern void _exit (int __status) __attribute__ ((__noreturn__));





# 1 "/usr/include/bits/confname.h" 1 3 4
# 26 "/usr/include/bits/confname.h" 3 4
enum
  {
    _PC_LINK_MAX,

    _PC_MAX_CANON,

    _PC_MAX_INPUT,

    _PC_NAME_MAX,

    _PC_PATH_MAX,

    _PC_PIPE_BUF,

    _PC_CHOWN_RESTRICTED,

    _PC_NO_TRUNC,

    _PC_VDISABLE,

    _PC_SYNC_IO,

    _PC_ASYNC_IO,

    _PC_PRIO_IO,

    _PC_SOCK_MAXBUF,

    _PC_FILESIZEBITS,

    _PC_REC_INCR_XFER_SIZE,

    _PC_REC_MAX_XFER_SIZE,

    _PC_REC_MIN_XFER_SIZE,

    _PC_REC_XFER_ALIGN,

    _PC_ALLOC_SIZE_MIN,

    _PC_SYMLINK_MAX,

    _PC_2_SYMLINKS

  };


enum
  {
    _SC_ARG_MAX,

    _SC_CHILD_MAX,

    _SC_CLK_TCK,

    _SC_NGROUPS_MAX,

    _SC_OPEN_MAX,

    _SC_STREAM_MAX,

    _SC_TZNAME_MAX,

    _SC_JOB_CONTROL,

    _SC_SAVED_IDS,

    _SC_REALTIME_SIGNALS,

    _SC_PRIORITY_SCHEDULING,

    _SC_TIMERS,

    _SC_ASYNCHRONOUS_IO,

    _SC_PRIORITIZED_IO,

    _SC_SYNCHRONIZED_IO,

    _SC_FSYNC,

    _SC_MAPPED_FILES,

    _SC_MEMLOCK,

    _SC_MEMLOCK_RANGE,

    _SC_MEMORY_PROTECTION,

    _SC_MESSAGE_PASSING,

    _SC_SEMAPHORES,

    _SC_SHARED_MEMORY_OBJECTS,

    _SC_AIO_LISTIO_MAX,

    _SC_AIO_MAX,

    _SC_AIO_PRIO_DELTA_MAX,

    _SC_DELAYTIMER_MAX,

    _SC_MQ_OPEN_MAX,

    _SC_MQ_PRIO_MAX,

    _SC_VERSION,

    _SC_PAGESIZE,


    _SC_RTSIG_MAX,

    _SC_SEM_NSEMS_MAX,

    _SC_SEM_VALUE_MAX,

    _SC_SIGQUEUE_MAX,

    _SC_TIMER_MAX,




    _SC_BC_BASE_MAX,

    _SC_BC_DIM_MAX,

    _SC_BC_SCALE_MAX,

    _SC_BC_STRING_MAX,

    _SC_COLL_WEIGHTS_MAX,

    _SC_EQUIV_CLASS_MAX,

    _SC_EXPR_NEST_MAX,

    _SC_LINE_MAX,

    _SC_RE_DUP_MAX,

    _SC_CHARCLASS_NAME_MAX,


    _SC_2_VERSION,

    _SC_2_C_BIND,

    _SC_2_C_DEV,

    _SC_2_FORT_DEV,

    _SC_2_FORT_RUN,

    _SC_2_SW_DEV,

    _SC_2_LOCALEDEF,


    _SC_PII,

    _SC_PII_XTI,

    _SC_PII_SOCKET,

    _SC_PII_INTERNET,

    _SC_PII_OSI,

    _SC_POLL,

    _SC_SELECT,

    _SC_UIO_MAXIOV,

    _SC_IOV_MAX = _SC_UIO_MAXIOV,

    _SC_PII_INTERNET_STREAM,

    _SC_PII_INTERNET_DGRAM,

    _SC_PII_OSI_COTS,

    _SC_PII_OSI_CLTS,

    _SC_PII_OSI_M,

    _SC_T_IOV_MAX,



    _SC_THREADS,

    _SC_THREAD_SAFE_FUNCTIONS,

    _SC_GETGR_R_SIZE_MAX,

    _SC_GETPW_R_SIZE_MAX,

    _SC_LOGIN_NAME_MAX,

    _SC_TTY_NAME_MAX,

    _SC_THREAD_DESTRUCTOR_ITERATIONS,

    _SC_THREAD_KEYS_MAX,

    _SC_THREAD_STACK_MIN,

    _SC_THREAD_THREADS_MAX,

    _SC_THREAD_ATTR_STACKADDR,

    _SC_THREAD_ATTR_STACKSIZE,

    _SC_THREAD_PRIORITY_SCHEDULING,

    _SC_THREAD_PRIO_INHERIT,

    _SC_THREAD_PRIO_PROTECT,

    _SC_THREAD_PROCESS_SHARED,


    _SC_NPROCESSORS_CONF,

    _SC_NPROCESSORS_ONLN,

    _SC_PHYS_PAGES,

    _SC_AVPHYS_PAGES,

    _SC_ATEXIT_MAX,

    _SC_PASS_MAX,


    _SC_XOPEN_VERSION,

    _SC_XOPEN_XCU_VERSION,

    _SC_XOPEN_UNIX,

    _SC_XOPEN_CRYPT,

    _SC_XOPEN_ENH_I18N,

    _SC_XOPEN_SHM,


    _SC_2_CHAR_TERM,

    _SC_2_C_VERSION,

    _SC_2_UPE,


    _SC_XOPEN_XPG2,

    _SC_XOPEN_XPG3,

    _SC_XOPEN_XPG4,


    _SC_CHAR_BIT,

    _SC_CHAR_MAX,

    _SC_CHAR_MIN,

    _SC_INT_MAX,

    _SC_INT_MIN,

    _SC_LONG_BIT,

    _SC_WORD_BIT,

    _SC_MB_LEN_MAX,

    _SC_NZERO,

    _SC_SSIZE_MAX,

    _SC_SCHAR_MAX,

    _SC_SCHAR_MIN,

    _SC_SHRT_MAX,

    _SC_SHRT_MIN,

    _SC_UCHAR_MAX,

    _SC_UINT_MAX,

    _SC_ULONG_MAX,

    _SC_USHRT_MAX,


    _SC_NL_ARGMAX,

    _SC_NL_LANGMAX,

    _SC_NL_MSGMAX,

    _SC_NL_NMAX,

    _SC_NL_SETMAX,

    _SC_NL_TEXTMAX,


    _SC_XBS5_ILP32_OFF32,

    _SC_XBS5_ILP32_OFFBIG,

    _SC_XBS5_LP64_OFF64,

    _SC_XBS5_LPBIG_OFFBIG,


    _SC_XOPEN_LEGACY,

    _SC_XOPEN_REALTIME,

    _SC_XOPEN_REALTIME_THREADS,


    _SC_ADVISORY_INFO,

    _SC_BARRIERS,

    _SC_BASE,

    _SC_C_LANG_SUPPORT,

    _SC_C_LANG_SUPPORT_R,

    _SC_CLOCK_SELECTION,

    _SC_CPUTIME,

    _SC_THREAD_CPUTIME,

    _SC_DEVICE_IO,

    _SC_DEVICE_SPECIFIC,

    _SC_DEVICE_SPECIFIC_R,

    _SC_FD_MGMT,

    _SC_FIFO,

    _SC_PIPE,

    _SC_FILE_ATTRIBUTES,

    _SC_FILE_LOCKING,

    _SC_FILE_SYSTEM,

    _SC_MONOTONIC_CLOCK,

    _SC_MULTI_PROCESS,

    _SC_SINGLE_PROCESS,

    _SC_NETWORKING,

    _SC_READER_WRITER_LOCKS,

    _SC_SPIN_LOCKS,

    _SC_REGEXP,

    _SC_REGEX_VERSION,

    _SC_SHELL,

    _SC_SIGNALS,

    _SC_SPAWN,

    _SC_SPORADIC_SERVER,

    _SC_THREAD_SPORADIC_SERVER,

    _SC_SYSTEM_DATABASE,

    _SC_SYSTEM_DATABASE_R,

    _SC_TIMEOUTS,

    _SC_TYPED_MEMORY_OBJECTS,

    _SC_USER_GROUPS,

    _SC_USER_GROUPS_R,

    _SC_2_PBS,

    _SC_2_PBS_ACCOUNTING,

    _SC_2_PBS_LOCATE,

    _SC_2_PBS_MESSAGE,

    _SC_2_PBS_TRACK,

    _SC_SYMLOOP_MAX,

    _SC_STREAMS,

    _SC_2_PBS_CHECKPOINT,


    _SC_V6_ILP32_OFF32,

    _SC_V6_ILP32_OFFBIG,

    _SC_V6_LP64_OFF64,

    _SC_V6_LPBIG_OFFBIG,


    _SC_HOST_NAME_MAX,

    _SC_TRACE,

    _SC_TRACE_EVENT_FILTER,

    _SC_TRACE_INHERIT,

    _SC_TRACE_LOG,


    _SC_LEVEL1_ICACHE_SIZE,

    _SC_LEVEL1_ICACHE_ASSOC,

    _SC_LEVEL1_ICACHE_LINESIZE,

    _SC_LEVEL1_DCACHE_SIZE,

    _SC_LEVEL1_DCACHE_ASSOC,

    _SC_LEVEL1_DCACHE_LINESIZE,

    _SC_LEVEL2_CACHE_SIZE,

    _SC_LEVEL2_CACHE_ASSOC,

    _SC_LEVEL2_CACHE_LINESIZE,

    _SC_LEVEL3_CACHE_SIZE,

    _SC_LEVEL3_CACHE_ASSOC,

    _SC_LEVEL3_CACHE_LINESIZE,

    _SC_LEVEL4_CACHE_SIZE,

    _SC_LEVEL4_CACHE_ASSOC,

    _SC_LEVEL4_CACHE_LINESIZE,



    _SC_IPV6 = _SC_LEVEL1_ICACHE_SIZE + 50,

    _SC_RAW_SOCKETS

  };


enum
  {
    _CS_PATH,


    _CS_V6_WIDTH_RESTRICTED_ENVS,


    _CS_GNU_LIBC_VERSION,

    _CS_GNU_LIBPTHREAD_VERSION,


    _CS_LFS_CFLAGS = 1000,

    _CS_LFS_LDFLAGS,

    _CS_LFS_LIBS,

    _CS_LFS_LINTFLAGS,

    _CS_LFS64_CFLAGS,

    _CS_LFS64_LDFLAGS,

    _CS_LFS64_LIBS,

    _CS_LFS64_LINTFLAGS,


    _CS_XBS5_ILP32_OFF32_CFLAGS = 1100,

    _CS_XBS5_ILP32_OFF32_LDFLAGS,

    _CS_XBS5_ILP32_OFF32_LIBS,

    _CS_XBS5_ILP32_OFF32_LINTFLAGS,

    _CS_XBS5_ILP32_OFFBIG_CFLAGS,

    _CS_XBS5_ILP32_OFFBIG_LDFLAGS,

    _CS_XBS5_ILP32_OFFBIG_LIBS,

    _CS_XBS5_ILP32_OFFBIG_LINTFLAGS,

    _CS_XBS5_LP64_OFF64_CFLAGS,

    _CS_XBS5_LP64_OFF64_LDFLAGS,

    _CS_XBS5_LP64_OFF64_LIBS,

    _CS_XBS5_LP64_OFF64_LINTFLAGS,

    _CS_XBS5_LPBIG_OFFBIG_CFLAGS,

    _CS_XBS5_LPBIG_OFFBIG_LDFLAGS,

    _CS_XBS5_LPBIG_OFFBIG_LIBS,

    _CS_XBS5_LPBIG_OFFBIG_LINTFLAGS,


    _CS_POSIX_V6_ILP32_OFF32_CFLAGS,

    _CS_POSIX_V6_ILP32_OFF32_LDFLAGS,

    _CS_POSIX_V6_ILP32_OFF32_LIBS,

    _CS_POSIX_V6_ILP32_OFF32_LINTFLAGS,

    _CS_POSIX_V6_ILP32_OFFBIG_CFLAGS,

    _CS_POSIX_V6_ILP32_OFFBIG_LDFLAGS,

    _CS_POSIX_V6_ILP32_OFFBIG_LIBS,

    _CS_POSIX_V6_ILP32_OFFBIG_LINTFLAGS,

    _CS_POSIX_V6_LP64_OFF64_CFLAGS,

    _CS_POSIX_V6_LP64_OFF64_LDFLAGS,

    _CS_POSIX_V6_LP64_OFF64_LIBS,

    _CS_POSIX_V6_LP64_OFF64_LINTFLAGS,

    _CS_POSIX_V6_LPBIG_OFFBIG_CFLAGS,

    _CS_POSIX_V6_LPBIG_OFFBIG_LDFLAGS,

    _CS_POSIX_V6_LPBIG_OFFBIG_LIBS,

    _CS_POSIX_V6_LPBIG_OFFBIG_LINTFLAGS

  };
# 531 "/usr/include/unistd.h" 2 3 4


extern long int pathconf (__const char *__path, int __name)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));


extern long int fpathconf (int __fd, int __name) __attribute__ ((__nothrow__));


extern long int sysconf (int __name) __attribute__ ((__nothrow__)) __attribute__ ((__const__));



extern size_t confstr (int __name, char *__buf, size_t __len) __attribute__ ((__nothrow__));




extern __pid_t getpid (void) __attribute__ ((__nothrow__));


extern __pid_t getppid (void) __attribute__ ((__nothrow__));




extern __pid_t getpgrp (void) __attribute__ ((__nothrow__));
# 567 "/usr/include/unistd.h" 3 4
extern __pid_t __getpgid (__pid_t __pid) __attribute__ ((__nothrow__));
# 576 "/usr/include/unistd.h" 3 4
extern int setpgid (__pid_t __pid, __pid_t __pgid) __attribute__ ((__nothrow__));
# 593 "/usr/include/unistd.h" 3 4
extern int setpgrp (void) __attribute__ ((__nothrow__));
# 610 "/usr/include/unistd.h" 3 4
extern __pid_t setsid (void) __attribute__ ((__nothrow__));







extern __uid_t getuid (void) __attribute__ ((__nothrow__));


extern __uid_t geteuid (void) __attribute__ ((__nothrow__));


extern __gid_t getgid (void) __attribute__ ((__nothrow__));


extern __gid_t getegid (void) __attribute__ ((__nothrow__));




extern int getgroups (int __size, __gid_t __list[]) __attribute__ ((__nothrow__));
# 643 "/usr/include/unistd.h" 3 4
extern int setuid (__uid_t __uid) __attribute__ ((__nothrow__));




extern int setreuid (__uid_t __ruid, __uid_t __euid) __attribute__ ((__nothrow__));




extern int seteuid (__uid_t __uid) __attribute__ ((__nothrow__));






extern int setgid (__gid_t __gid) __attribute__ ((__nothrow__));




extern int setregid (__gid_t __rgid, __gid_t __egid) __attribute__ ((__nothrow__));




extern int setegid (__gid_t __gid) __attribute__ ((__nothrow__));
# 695 "/usr/include/unistd.h" 3 4
extern __pid_t fork (void) __attribute__ ((__nothrow__));






extern __pid_t vfork (void) __attribute__ ((__nothrow__));





extern char *ttyname (int __fd) __attribute__ ((__nothrow__));



extern int ttyname_r (int __fd, char *__buf, size_t __buflen)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2)));



extern int isatty (int __fd) __attribute__ ((__nothrow__));





extern int ttyslot (void) __attribute__ ((__nothrow__));




extern int link (__const char *__from, __const char *__to)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));



extern int symlink (__const char *__from, __const char *__to)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));




extern int readlink (__const char *__restrict __path, char *__restrict __buf,
       size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));



extern int unlink (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));


extern int rmdir (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern __pid_t tcgetpgrp (int __fd) __attribute__ ((__nothrow__));


extern int tcsetpgrp (int __fd, __pid_t __pgrp_id) __attribute__ ((__nothrow__));






extern char *getlogin (void);
# 774 "/usr/include/unistd.h" 3 4
extern int setlogin (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 783 "/usr/include/unistd.h" 3 4
# 1 "/usr/include/getopt.h" 1 3 4
# 59 "/usr/include/getopt.h" 3 4
extern char *optarg;
# 73 "/usr/include/getopt.h" 3 4
extern int optind;




extern int opterr;



extern int optopt;
# 152 "/usr/include/getopt.h" 3 4
extern int getopt (int ___argc, char *const *___argv, const char *__shortopts)
       __attribute__ ((__nothrow__));
# 784 "/usr/include/unistd.h" 2 3 4







extern int gethostname (char *__name, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));






extern int sethostname (__const char *__name, size_t __len)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern int sethostid (long int __id) __attribute__ ((__nothrow__));





extern int getdomainname (char *__name, size_t __len)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
extern int setdomainname (__const char *__name, size_t __len)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





extern int vhangup (void) __attribute__ ((__nothrow__));


extern int revoke (__const char *__file) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));







extern int profil (unsigned short int *__sample_buffer, size_t __size,
     size_t __offset, unsigned int __scale)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));





extern int acct (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern char *getusershell (void) __attribute__ ((__nothrow__));
extern void endusershell (void) __attribute__ ((__nothrow__));
extern void setusershell (void) __attribute__ ((__nothrow__));





extern int daemon (int __nochdir, int __noclose) __attribute__ ((__nothrow__));






extern int chroot (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));



extern char *getpass (__const char *__prompt) __attribute__ ((__nonnull__ (1)));
# 869 "/usr/include/unistd.h" 3 4
extern int fsync (int __fd);






extern long int gethostid (void);


extern void sync (void) __attribute__ ((__nothrow__));




extern int getpagesize (void) __attribute__ ((__nothrow__)) __attribute__ ((__const__));




extern int getdtablesize (void) __attribute__ ((__nothrow__));




extern int truncate (__const char *__file, __off_t __length)
     __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
# 916 "/usr/include/unistd.h" 3 4
extern int ftruncate (int __fd, __off_t __length) __attribute__ ((__nothrow__));
# 936 "/usr/include/unistd.h" 3 4
extern int brk (void *__addr) __attribute__ ((__nothrow__));





extern void *sbrk (intptr_t __delta) __attribute__ ((__nothrow__));
# 957 "/usr/include/unistd.h" 3 4
extern long int syscall (long int __sysno, ...) __attribute__ ((__nothrow__));
# 980 "/usr/include/unistd.h" 3 4
extern int lockf (int __fd, int __cmd, __off_t __len);
# 1011 "/usr/include/unistd.h" 3 4
extern int fdatasync (int __fildes) __attribute__ ((__nothrow__));
# 1043 "/usr/include/unistd.h" 3 4

# 3801 "../h/cmpinclude.h" 2


                        extern object structure_ref (object x, object name, int i);
                         extern object structure_set (object x, object name, int i, object v);
                         extern object structure_to_list (object x);
                         extern void siLmake_structure (void);
                         extern void siLstructure_set (void);
                         extern void siLlist_nth (void);
                         extern void gcl_init_structure_function (void);
                        extern void gcl_init_toplevel (void);
                       extern void check_type_integer (object *p);
                       extern void check_type_non_negative_integer (object *p);
                       extern void check_type_rational (object *p);
                       extern void check_type_float (object *p);
                       extern void check_type_or_rational_float (object *p);
                        extern void check_type_number (object *p);
                        extern void check_type_character (object *p);
                        extern void check_type_symbol (object *p);
                        extern void check_type_or_symbol_string (object *p);
                        extern void check_type_or_string_symbol (object *p);
                        extern void check_type_package (object *p);
                        extern void check_type_string (object *p);
                        extern void check_type_cons (object *p);
                        extern void check_type_stream (object *p);
                        extern void check_type_readtable (object *p);
                        extern void check_type_or_Pathname_string_symbol (object *p);
                        extern void check_type_or_pathname_string_symbol_stream (object *p);
                        extern void check_type_random_state (object *p);
                        extern void check_type_hash_table (object *p);
                        extern void check_type_array (object *p);
                        extern void check_type (object x, int t);
                        extern void Ltype_of (void);
                        extern void gcl_init_typespec (void);
                        extern void gcl_init_typespec_function (void);
                             extern int write_segment (int new, register char *ptr, register char *end);
                       extern int write_segment (int new, register char *ptr, register char *end);
                       extern int write_segment (int new, register char *ptr, register char *end);
                        extern void gcl_init_unixfasl (void);
                        extern char *getwd (char *buffer);
                        extern void coerce_to_filename (object pathname, char *p);
                        extern bool file_exists (object file);
                        extern FILE *backup_fopen (char *filename, char *option);
                        extern FILE *fopen_not_dir (char *filename, char *option);
                        extern int file_len (FILE *fp);
                        extern object truename (object);
                        extern void Ltruename (void);
                        extern object fSsetenv (object variable, object value);
                        extern object fLdelete_file (object path);
                        extern void Lprobe_file (void);
                        extern void Ldirectory (void);
                        extern void gcl_init_unixfsys (void);
                        extern void gcl_init_unixsave (void);
                      extern object fSgetpid (void);
                      extern void gcl_init_unixsys (void);
                       extern int runtime (void);
                       extern object unix_time_to_universal_time (int i);
                       extern object fLget_universal_time (void);
                        extern object fLget_internal_real_time (void);
                        extern void gcl_init_unixtime (void);
                       extern object user_init (void);
                       extern int user_match (const char *,int n);
                   extern void gcl_signal (int signo, void (*handler) ( ));
                   extern int unblock_signals (int n, int m);
                    extern void unblock_sigusr_sigio (void);
                    extern void install_default_signals (void);
                     extern void gcl_init_safety (void);
                     extern object sSsignal_safety_required (fixnum signo,fixnum safety);



                     extern void main_signal_handler (int signo, int a, int b);

                     extern void raise_pending_signals (int cond);
                     extern object fSallow_signal (fixnum n);
                    extern object IisSymbol (object f);
                    extern object IisFboundp (object f);
                    extern object IisArray (object f);
                    extern object Iis_fixnum (object f);
                    extern object Iapply_ap_new (object (*f) ( ), object first, va_list ap);
                     extern object Icheck_one_type (object x, enum type t);
                     extern object fSincorrect_type (object val, object type);
                     extern object Ivs_values (void);
                     extern char *lisp_copy_to_null_terminated (object string, char *buf, int n);



extern int readline_on;
void
gcl_init_readline_function(void);


void
gcl_init_init(void);


void
gcl_init_symbol(void);

void
gcl_init_package(void);

void
gcl_init_character(void);

void
gcl_init_read(void);

void
gcl_init_pathname(void);

void
gcl_init_print(void);

void
gcl_init_character_function(void);

void
gcl_init_file_function(void);

void
gcl_init_list_function(void);

void
gcl_init_package_function(void);

void
gcl_init_pathname_function(void);

void
gcl_init_print_function(void);

void
gcl_init_read_function(void);

void
gcl_init_sequence_function(void);

void
gcl_init_string_function(void);

void
gcl_init_symbol_function(void);

void
gcl_init_socket_function(void);

void
gcl_init_hash(void);

void
import(object,object);

void
export(object,object);

void
NewInit(void);

void
gcl_init_system(object);

void
set_up_string_register(char *);

bool
endp1(object);

void
stack_cons(void);

bool
char_equal(object,object);

bool
string_equal(object,object);

bool
string_eq(object,object);

bool
remf(object *,object);

bool
keywordp(object);

int
pack_hash(object);

void
load(char *);

bool
member_eq(object,object);

void
delete_eq(object,object *);

int
length(object);

int
rl_getc_em(FILE *);

void
setupPRINTdefault(object);

void
write_str(char *);

void
write_object(object,int);

void
cleanupPRINT(void);

int
fasload(object);

int
readc_stream(object);

void
unreadc_stream(int,object);

void
end_of_stream(object);

bool
stream_at_end(object);

int
digitp(int,int);

bool
char_eq(object,object);

bool
listen_stream(object);

void
get_string_start_end(object,object,object,int *,int *);

int
file_column(object);

int
writec_stream(int,object);

int
digit_weight(int,int);

void
flush_stream(object);

void
writestr_stream(char *,object);

void
write_string(object,object);

void
edit_double(int, double, int *, char *, int *);

void
sethash(object,object,object);

int
file_position(object);

int
file_position_set(object, int);

void
princ_str(char *s, object);

void
close_stream(object);

void
build_symbol_table(void);

void
gcl_init_file(void);

object
aset1(object,fixnum,object);

void
dfprintf(FILE *,char *,...);

void
Lmake_list(void);

void
Llast(void);

void
Lgensym(void);

void
Lldiff(void);

void
Lintern(void);

void
Lgensym(void);

void
Lldiff(void);

void
Lgensym(void);

void
Lintern(void);

void
Lintern(void);

void
Lreconc(void);

void
Lmember(void);

void
Ladjoin(void);

void
Llist(void);

void
Lappend(void);

void
Lread(void);

void
Lread_char(void);

void
Lchar_eq(void);

void
Lwrite_char(void);

void
Lforce_output(void);

void
Lchar_neq(void);

void
Llist(void);

void
Lwrite(void);

void
Lfresh_line(void);

void
Lsymbol_package(void);

void
Lfind_package(void);

void
Lfind_symbol(void);

void
Lpackage_name(void);

void
Lsymbol_plist(void);

void
Lpackage_nicknames(void);

void
Lpackage_use_list(void);

void
Lpackage_used_by_list(void);

void
Lstandard_char_p(void);

void
Lstring_char_p(void);

void
Lchar_code(void);

void
Lchar_bits(void);

void
Lchar_font(void);

void
Lread_line(void);

void
siLpackage_internal(void);

void
siLpackage_external(void);

void
Llist_all_packages(void);

void
Lgensym(void);

void
Lread(void);

void
Lwrite(void);

void
Lstring_equal(void);

void
Lclose(void);

void
Lnamestring(void);

void
Lmake_echo_stream(void);

void
Lmake_broadcast_stream(void);

void
Lmake_two_way_stream(void);

void
Lbutlast(void);

void
Ladjoin(void);

void
Lstring_downcase(void);

void
Lmember(void);

void
Lgensym(void);

void
Llist_all_packages(void);

void
Lfind_symbol(void);

void
Lstring_equal(void);

void
Lfind_package(void);

void
siLpackage_internal(void);

void
siLpackage_external(void);

void
Lpackage_use_list(void);

void
Lreconc(void);

void
Lstandard_char_p(void);

void
Lstring_char_p(void);

void
Lcharacter(void);

void
Llength(void);

void
Lreconc(void);

void
Llength(void);

void
Lgensym(void);

void
Llist_length(void);

void
Lgensym(void);

void
Lbutlast(void);

void
Lnconc(void);

void
Lfind_package(void);

void
Lpackage_name(void);

void
Llist(void);

void
Lfresh_line(void);

void
Lread_char(void);

void
Lunread_char(void);

void
Lread_line(void);

void
Lread(void);

void
Lforce_output(void);

void
Lwrite(void);

void
Lmember(void);

void
siLpackage_internal(void);

void
siLpackage_external(void);

void
Lmake_pathname(void);

void
Lnamestring(void);

void
Lclose(void);

void
Lgensym(void);

void
Lfresh_line(void);

void
Llist(void);

void
Lread_char(void);

void
Lchar_eq(void);

void
Lfinish_output(void);

void
Lchar_neq(void);

void
Lwrite(void);

void
Lgensym(void);

void
Lmember(void);

void
Lappend(void);

void
Lcopy_tree(void);

void
Ladjoin(void);

void
Lgetf(void);

void
Lsubst(void);

void
Lsymbol_package(void);

void
Lcopy_list(void);

void
Lintern(void);

void
Lfind_package(void);

void
LlistA(void);

void
Llist(void);

void
Lgetf(void);

void
Lstreamp(void);

void
Lpeek_char(void);

void
Lread_char(void);

void
Lread_line(void);

void
Lset_macro_character(void);

void
Lclrhash(void);

void
siLhash_set(void);

void
Lgethash(void);

void
Lremhash(void);

void
Llist_all_packages(void);

void
Lintern(void);

void
Lunintern(void);

void
Lsubseq(void);

void
Lsymbol_package(void);

void
Lfind_package(void);

void
siLpackage_internal(void);

void
siLpackage_external(void);

void
Lread_char(void);

void
Lfile_length(void);

void
Lfile_position(void);

void
Lclose(void);

void
Lsubseq(void);

void
Lnamestring(void);

void
Lmerge_pathnames(void);

void
Lcopy_list(void);

void
Lread_line(void);

void
Lgensym(void);

void
Lcopy_list(void);

void
Lintern(void);

void
Lappend(void);

void
Lgensym(void);

void
Lcopy_list(void);

void
Lmember(void);

void
Lintern(void);

void
Lappend(void);

void
Lfind_package(void);

void
Lpackage_name(void);

void
Lpackage_nicknames(void);

void
Lpackage_use_list(void);

void
siLpackage_external(void);

void
siLpackage_internal(void);

void
Lsymbol_package(void);

void
Lappend(void);

void
Lgentemp(void);

void
Lgensym(void);

void
Lassoc(void);

void
Ladjoin(void);

void
Lstring_eq(void);

void
Lmember(void);

void
Lgethash(void);

void
Lfinish_output(void);

void
Lread(void);

void
Lmake_hash_table(void);

void
siLhash_set(void);

void
Lrevappend(void);

void
Lreconc(void);

void
Lcopy_list(void);

void
LlistA(void);

void
Lfind_package(void);

void
siLpackage_internal(void);

void
siLpackage_external(void);

void
princ_char(int,object);

void
Ldigit_char_p(void);

void
Lwrite_byte(void);
# 4627 "../h/cmpinclude.h"
void
unlink_loaded_files(void);

void
FEpackage_error(object,const char *s);

int
system_time_zone_helper(void);

object
call_proc_new(object,void **,int,object,va_list);

object
call_vproc_new(object,void *,object,va_list);

void
funcall_with_catcher(object, object);

void
siLset_symbol_plist(void);

void
Lhash_table_p(void);

void
Lreadtablep(void);

int
fixnum_expt(int, int);

void
check_alist(object);

void
ck_larg_at_least(int,object);

void
vfun_wrong_number_of_args(object);


void Lgensym(void);
void Lsubseq(void);
void Lminusp(void);
void Linteger_decode_float(void);
void Lminus(void);
void Lint_char(void);
void Lchar_int(void);
void Lall_different(void);
void Lcopy_seq(void);
void Lkeywordp(void);
void Lname_char(void);
void Lchar_name(void);
void Lrassoc_if(void);
void Lmake_list(void);
void Lhost_namestring(void);
void Lmake_echo_stream(void);
void Lnth(void);
void Lsin(void);
void Lnumerator(void);
void Larray_rank(void);
void Lcaar(void);
void Lboth_case_p(void);
void Lnull(void);
void Lrename_file(void);
void Lfile_author(void);
void Lstring_capitalize(void);
void Lmacroexpand(void);
void Lnconc(void);
void Lboole(void);
void Ltailp(void);
void Lconsp(void);
void Llistp(void);
void Lmapcan(void);
void Llength(void);
void Lrassoc(void);
void Lpprint(void);
void Lpathname_host(void);
void Lnsubst_if_not(void);
void Lfile_position(void);
void Lstring_l(void);
void Lreverse(void);
void Lstreamp(void);
void siLputprop(void);
void Lremprop(void);
void Lsymbol_package(void);
void Lnstring_upcase(void);
void Lstring_ge(void);
void Lrealpart(void);
void Lnbutlast(void);
void Larray_dimension(void);
void Lcdr(void);
void Leql(void);
void Llog(void);
void Ldirectory(void);
void Lstring_not_equal(void);
void Lshadowing_import(void);
void Lmapc(void);
void Lmapl(void);
void Lmakunbound(void);
void Lcons(void);
void Llist(void);
void Luse_package(void);
void Lfile_length(void);
void Lmake_symbol(void);
void Lstring_right_trim(void);
void Lenough_namestring(void);
void Lprint(void);
void Lcddaar(void);
void Lcdadar(void);
void Lcdaadr(void);
void Lcaddar(void);
void Lcadadr(void);
void Lcaaddr(void);
void Lset_macro_character(void);
void Lforce_output(void);
void Lnthcdr(void);
void Llogior(void);
void Lchar_downcase(void);
void Lstring_char_p(void);
void Lstream_element_type(void);
void Lpackage_used_by_list(void);
void Ldivide(void);
void Lmaphash(void);
void Lstring_eq(void);
void Lpairlis(void);
void Lsymbolp(void);
void Lchar_not_lessp(void);
void Lone_plus(void);
void Lby(void);
void Lnsubst_if(void);
void Lcopy_list(void);
void Ltan(void);
void Lset(void);
void Lfunctionp(void);
void Lwrite_byte(void);
void Llast(void);
void Lmake_string(void);
void Lcaaar(void);
void Llist_length(void);
void Lcdddr(void);
void Lprin1(void);
void Lprinc(void);
void Llower_case_p(void);
void Lchar_le(void);
void Lstring_equal(void);
void Lclear_output(void);
void CERROR(void);
void Lterpri(void);
void Lnsubst(void);
void Lunuse_package(void);
void Lstring_not_greaterp(void);
void Lstring_g(void);
void Lfinish_output(void);
void Lspecial_form_p(void);
void Lstringp(void);
void Lget_internal_run_time(void);
void Ltruncate(void);
void Lcode_char(void);
void Lchar_code(void);
void Lsimple_string_p(void);
void Lrevappend(void);
void Lhash_table_count(void);
void Lpackage_use_list(void);
void Lrem(void);
void Lmin(void);
void Lapplyhook(void);
void Lexp(void);
void Lchar_lessp(void);
void Lcdar(void);
void Lcadr(void);
void Llist_all_packages(void);
void Lcdr(void);
void Lcopy_symbol(void);
void Lacons(void);
void Ladjustable_array_p(void);
void Lsvref(void);
void Lapply(void);
void Ldecode_float(void);
void Lsubst_if_not(void);
void Lrplaca(void);
void Lsymbol_plist(void);
void Lwrite_string(void);
void Llogeqv(void);
void Lstring(void);
void Lstring_upcase(void);
void Lceiling(void);
void Lgethash(void);
void Ltype_of(void);
void Lbutlast(void);
void Lone_minus(void);
void Lmake_hash_table(void);
void Lstring_neq(void);
void Lmonotonically_nondecreasing(void);
void Lmake_broadcast_stream(void);
void Limagpart(void);
void Lintegerp(void);
void Lread_char(void);
void Lpeek_char(void);
void Lchar_font(void);
void Lstring_greaterp(void);
void Loutput_stream_p(void);
void Lash(void);
void Llcm(void);
void Lelt(void);
void Lcos(void);
void Lnstring_downcase(void);
void Lcopy_alist(void);
void Latan(void);
void Ldelete_file(void);
void Lfloat_radix(void);
void Lsymbol_name(void);
void Lclear_input(void);
void Lfind_symbol(void);
void Lchar_l(void);
void Lhash_table_p(void);
void Levenp(void);
void siLcmod(void);
void siLcplus(void);
void siLctimes(void);
void siLcdifference(void);
void Lzerop(void);
void Lcaaaar(void);
void Lchar_ge(void);
void Lcdddar(void);
void Lcddadr(void);
void Lcdaddr(void);
void Lcadddr(void);
void Lfill_pointer(void);
void Lmapcar(void);
void Lfloatp(void);
void Lshadow(void);
void Lmacroexpand_1(void);
void Lsxhash(void);
void Llisten(void);
void Larrayp(void);
void Lmake_pathname(void);
void Lpathname_type(void);
void Lfuncall(void);
void Lclrhash(void);
void Lgraphic_char_p(void);
void Lfboundp(void);
void Lnsublis(void);
void Lchar_not_equal(void);
void Lmacro_function(void);
void Lsubst_if(void);
void Lcomplexp(void);
void Lread_line(void);
void Lpathnamep(void);
void Lmax(void);
void Lin_package(void);
void Lreadtablep(void);
void Lfloat_sign(void);
void Lcharacterp(void);
void Lread(void);
void Lnamestring(void);
void Lunread_char(void);
void Lcdaar(void);
void Lcadar(void);
void Lcaadr(void);
void Lchar_eq(void);
void Lalpha_char_p(void);
void Lstring_trim(void);
void Lmake_package(void);
void Lclose(void);
void Ldenominator(void);
void Lfloat(void);
void Lcar(void);
void Lround(void);
void Lsubst(void);
void Lupper_case_p(void);
void Larray_element_type(void);
void Ladjoin(void);
void Llogand(void);
void Lmapcon(void);
void Lintern(void);
void Lvalues(void);
void Lexport(void);
void Ltimes(void);
void Lmonotonically_increasing(void);
void Lcomplex(void);
void Lset_syntax_from_char(void);
void Lchar_bit(void);
void Linteger_length(void);
void Lpackagep(void);
void Linput_stream_p(void);
void Lmonotonically_nonincreasing(void);
void Lpathname(void);
void Leq(void);
void Lmake_char(void);
void Lfile_namestring(void);
void Lcharacter(void);
void Lsymbol_function(void);
void Lconstantp(void);
void Lchar_equal(void);
void Ltree_equal(void);
void Lcddr(void);
void Lgetf(void);
void Lsave(void);
void Lmake_random_state(void);
void Lchar_not_greaterp(void);
void Lexpt(void);
void Lsqrt(void);
void Lscale_float(void);
void Lchar_g(void);
void Lldiff(void);
void Lassoc_if_not(void);
void Lbit_vector_p(void);
void Lnstring_capitalize(void);
void Lsymbol_value(void);
void Lrplacd(void);
void Lboundp(void);
void Lequalp(void);
void Lsimple_bit_vector_p(void);
void Lmember_if_not(void);
void Lmake_two_way_stream(void);
void Lparse_integer(void);
void Lplus(void);
void Lall_the_same(void);
void Lgentemp(void);
void Lrename_package(void);
void Lcommonp(void);
void Lnumberp(void);
void Lcopy_readtable(void);
void Lrandom_state_p(void);
void Ldirectory_namestring(void);
void Lstandard_char_p(void);
void Ltruename(void);
void Lidentity(void);
void Lnreverse(void);
void Lpathname_device(void);
void Lunintern(void);
void Lunexport(void);
void Lfloat_precision(void);
void Lstring_downcase(void);
void Lcar(void);
void Lconjugate(void);
void Lnull(void);
void Lread_char_no_hang(void);
void Lfresh_line(void);
void Lwrite_char(void);
void Lparse_namestring(void);
void Lstring_not_lessp(void);
void Lchar(void);
void Laref(void);
void Lpackage_nicknames(void);
void Lendp(void);
void Loddp(void);
void Lchar_upcase(void);
void LlistA(void);
void Lvalues_list(void);
void Lequal(void);
void Ldigit_char_p(void);
void ERROR(void);
void Lchar_neq(void);
void Lpathname_directory(void);
void Lcdaaar(void);
void Lcadaar(void);
void Lcaadar(void);
void Lcaaadr(void);
void Lcddddr(void);
void Lget_macro_character(void);
void Lformat(void);
void Lcompiled_function_p(void);
void Lsublis(void);
void Lpathname_name(void);
void Limport(void);
void Llogxor(void);
void Lrassoc_if_not(void);
void Lchar_greaterp(void);
void Lmake_synonym_stream(void);
void Lalphanumericp(void);
void Lremhash(void);
void Lreconc(void);
void Lmonotonically_decreasing(void);
void Llogbitp(void);
void Lmaplist(void);
void Lvectorp(void);
void Lassoc_if(void);
void Lget_properties(void);
void Lstring_le(void);
void Levalhook(void);
void Lfile_write_date(void);
void Llogcount(void);
void Lmerge_pathnames(void);
void Lmember_if(void);
void Lread_byte(void);
void Lsimple_vector_p(void);
void Lchar_bits(void);
void Lcopy_tree(void);
void Lgcd(void);
void Lby(void);
void Lget(void);
void Lmod(void);
void Ldigit_char(void);
void Lprobe_file(void);
void Lstring_left_trim(void);
void Lpathname_version(void);
void Lwrite_line(void);
void Leval(void);
void Latom(void);
void Lcddar(void);
void Lcdadr(void);
void Lcaddr(void);
void Lfmakunbound(void);
void Lsleep(void);
void Lpackage_name(void);
void Lfind_package(void);
void Lassoc(void);
void Lset_char_bit(void);
void Lfloor(void);
void Lwrite(void);
void Lplusp(void);
void Lfloat_digits(void);
void Lread_delimited_list(void);
void Lappend(void);
void Lmember(void);
void Lstring_lessp(void);
void Lrandom(void);
void siLspecialp(void);
void siLoutput_stream_string(void);
void siLstructurep(void);
void siLcopy_stream(void);
void siLinit_system(void);
void siLstring_to_object(void);
void siLreset_stack_limits(void);
void siLdisplaced_array_p(void);
void siLrplaca_nthcdr(void);
void siLlist_nth(void);
void siLmake_vector(void);
void siLaset(void);
void siLsvset(void);
void siLfill_pointer_set(void);
void siLreplace_array(void);
void siLfset(void);
void siLhash_set(void);
void Lboole(void);
void siLpackage_internal(void);
void siLpackage_external(void);
void siLelt_set(void);
void siLchar_set(void);
void siLmake_structure(void);
void siLstructure_name(void);
void siLstructure_ref(void);
void siLstructure_set(void);
void siLput_f(void);
void siLrem_f(void);
void siLset_symbol_plist(void);
void siLbit_array_op(void);

object
cmod(object);
object
ctimes(object,object);
object
cdifference(object,object);
object
cplus(object,object);

object
Icall_error_handler(object,object,int,...);

void *
gcl_gmp_alloc(size_t);

int
my_plt(const char *,unsigned long *);

int
parse_plt(void);

int
sgc_count_read_only_type(int);

int
gcl_isnormal_double(double);

int
gcl_isnormal_float(float);


void
memprotect_test_reset(void);
# 5129 "../h/cmpinclude.h"
void
gprof_cleanup(void);
# 3 "gcl_defmacro.c" 2
# 1 "gcl_defmacro.h" 1

static void L1__GET_$ENVIRONMENT__defmacro();
static void L11__FIND_DOC__defmacro();
static void L12__FIND_DECLARATIONS__defmacro();

static object LI2__DEFMACROA__defmacro();




static object LI3__DM_VL__defmacro();




static object LI4__DM_V__defmacro();




static object LI5__DM_NTH__defmacro();




static object LI6__DM_NTH_CDR__defmacro();




static object LI7__DM_BAD_KEY__defmacro();




static object LI8__DM_TOO_FEW_ARGUMENTS__defmacro();




static object LI9__DM_TOO_MANY_ARGUMENTS__defmacro();




static object LI10__DM_KEY_NOT_ALLOWED__defmacro();
# 65 "gcl_defmacro.h"
static char * VVi[63]={

(char *)(L1__GET_$ENVIRONMENT__defmacro),
(char *)(LI2__DEFMACROA__defmacro),
(char *)(LI3__DM_VL__defmacro),
(char *)(LI4__DM_V__defmacro),
(char *)(LI5__DM_NTH__defmacro),
(char *)(LI6__DM_NTH_CDR__defmacro),
(char *)(LI7__DM_BAD_KEY__defmacro),
(char *)(LI8__DM_TOO_FEW_ARGUMENTS__defmacro),
(char *)(LI9__DM_TOO_MANY_ARGUMENTS__defmacro),
(char *)(LI10__DM_KEY_NOT_ALLOWED__defmacro),
(char *)(L11__FIND_DOC__defmacro),
(char *)(L12__FIND_DECLARATIONS__defmacro)
};

static void LnkT61();
static void (*Lnk61)() = LnkT61;
static object LnkTLI60(object,...);
static object (*LnkLI60)() = (object (*)()) LnkTLI60;
static object LnkTLI59(object,...);
static object (*LnkLI59)() = (object (*)()) LnkTLI59;
static object LnkTLI58(object,...);
static object (*LnkLI58)() = (object (*)()) LnkTLI58;
static object LnkTLI57(object,...);
static object (*LnkLI57)() = (object (*)()) LnkTLI57;
static object LnkTLI56(object,...);
static object (*LnkLI56)() = (object (*)()) LnkTLI56;
static void LnkT55();
static void (*Lnk55)() = LnkT55;
static void LnkT54();
static void (*Lnk54)() = LnkT54;
# 4 "gcl_defmacro.c" 2
void init_gcl_defmacro(){do_init(((object *)VVi));}


static void L1__GET_$ENVIRONMENT__defmacro()
{register object *base=vs_base;
 register object *sup=base+3; object V5;
 if(vs_base+(3) >= vs_limit) vs_overflow();;
 {register object V1;
 if (vs_top - vs_base != (1)) check_arg_failed(1);
 V1=(base[0]);
 vs_top=sup;
 goto TTL;
TTL:;
 {object V2;
 V2= ((object)&Cnil_body);
 {register object V3;
 if(((enum type)(((object)((V1)))->d.t))==t_cons||((V1))==((object)&Cnil_body)){
 goto T3;}
 V3= ((object)&Cnil_body);
 goto T2;
 goto T3;
T3:;
 {register object V4;
 V4= (V1);
 goto T6;
T6:;
 if(((enum type)(((object)((V4)))->d.t))==t_cons){
 goto T7;}
 V3= ((object)&Cnil_body);
 goto T2;
 goto T7;
T7:;
 if(!((((object *)VVi)[0])==(car((V4))))){
 goto T11;}
 V3= (V4);
 goto T2;
 goto T11;
T11:;
 V4= cdr((V4));
 goto T6;}
 goto T2;
T2:;
 if(((V3))==((object)&Cnil_body)){
 goto T17;}
 V2= cadr((V3));
 base[1]= (V1);
 base[2]= (V3);
 vs_top=(vs_base=base+1)+2;
 Lldiff();
 vs_top=sup;
 V5= vs_base[0];
 V1= append(V5,cddr((V3)));
 goto T17;
T17:;
 base[1]= (V1);
 base[2]= (V2);
 vs_top=(vs_base=base+1)+2;
 return;}}
 }
}


static object LI2__DEFMACROA__defmacro(V9,V10,V11)

object V9;object V10;register object V11;
{ register object *base=vs_top; object V29 ,V24 ,V23 ,V22; register object *sup=vs_top+5;vs_top=sup; if(vs_base+(5) >= vs_limit) vs_overflow();;
 if (bds_top >= bds_limit) bds_overflow();
 goto TTL;
TTL:;
 {object V12;
 object V13;
 object V14;
 object V15;
 object V16;
 object V17;
 do {bds_ptr _b = bds_top+1; (_b)->bds_sym = (((object *)VVi)[1]); _b->bds_val = (((object *)VVi)[1])->s.s_dbind; (((object *)VVi)[1])->s.s_dbind = (((object)&Cnil_body)); bds_top=_b;} while (0);
 do {bds_ptr _b = bds_top+1; (_b)->bds_sym = (((object *)VVi)[2]); _b->bds_val = (((object *)VVi)[2])->s.s_dbind; (((object *)VVi)[2])->s.s_dbind = (((object)&Cnil_body)); bds_top=_b;} while (0);
 do {bds_ptr _b = bds_top+1; (_b)->bds_sym = (((object *)VVi)[3]); _b->bds_val = (((object *)VVi)[3])->s.s_dbind; (((object *)VVi)[3])->s.s_dbind = (((object)&Cnil_body)); bds_top=_b;} while (0);
 V12= ((object)&Cnil_body);
 V13= ((object)&Cnil_body);
 V14= ((object)&Cnil_body);
 V15= ((object)&Cnil_body);
 V16= ((object)&Cnil_body);
 V17= ((object)&Cnil_body);
 {object V18;
 V18= (((enum type)(((object)((V10)))->d.t))==t_cons||((V10))==((object)&Cnil_body)?((object)&Ct_body):((object)&Cnil_body));
 if(((V18))==((object)&Cnil_body)){
 goto T37;}
 goto T34;
 goto T37;
T37:;
 if(!(((enum type)(((object)((V10)))->d.t))==t_symbol)){
 goto T40;}
 V10= list(2,((object *)VVi)[4],(V10));
 goto T34;
 goto T40;
T40:;
 base[3]= ((object *)VVi)[5];
 base[4]= (V10);
 vs_top=(vs_base=base+3)+2;
 Lerror();
 vs_top=sup;}
 goto T34;
T34:;
 base[3]= (V11);
 base[4]= ((object)&Cnil_body);
 vs_top=(vs_base=base+3)+2;
 (void) (*Lnk54)();
 if(vs_base<vs_top){
 V12= vs_base[0];
 vs_base++;
 }else{
 V12= ((object)&Cnil_body);}
 if(vs_base<vs_top){
 V13= vs_base[0];
 vs_base++;
 }else{
 V13= ((object)&Cnil_body);}
 if(vs_base<vs_top){
 V11= vs_base[0];
 }else{
 V11= ((object)&Cnil_body);}
 vs_top=sup;
 if(!(((enum type)(((object)((V10)))->d.t))==t_cons||((V10))==((object)&Cnil_body))){
 goto T51;}
 if(!((car((V10)))==(((object *)VVi)[6]))){
 goto T51;}
 V14= cadr((V10));
 V10= cddr((V10));
 goto T49;
 goto T51;
T51:;
 vs_base=vs_top;
 Lgensym();
 vs_top=sup;
 V14= vs_base[0];
 goto T49;
T49:;
 base[3]= (V10);
 vs_top=(vs_base=base+3)+1;
 (void) (*Lnk55)();
 if(vs_base<vs_top){
 V10= vs_base[0];
 vs_base++;
 }else{
 V10= ((object)&Cnil_body);}
 if(vs_base<vs_top){
 V16= vs_base[0];
 }else{
 V16= ((object)&Cnil_body);}
 vs_top=sup;
 V17= (V16);
 if((V16)!=((object)&Cnil_body)){
 goto T64;}
 vs_base=vs_top;
 Lgensym();
 vs_top=sup;
 V16= vs_base[0];
 goto T64;
T64:;
 (((object *)VVi)[1]->s.s_dbind)= list(3,((object *)VVi)[7],(V16),(V14));
 V15= (*(LnkLI56))((V10),(V14),((object)&Ct_body));
 {register object V19;
 register object V20;
 V19= (((object *)VVi)[2]->s.s_dbind);
 V20= car((V19));
 goto T74;
T74:;
 if(!((((enum type)(((object)((V19)))->d.t))==t_cons ? 0 : (((V19))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, ((V19))),0))))){
 goto T75;}
 goto T70;
 goto T75;
T75:;
 {object V21;
 V22= list(3,((object *)VVi)[9],car((V20)),((object *)VVi)[10]);
 V23= list(3,((object *)VVi)[12],car((V20)),((object *)VVi)[13]);
 V24= make_cons( V23,((object)&Cnil_body));
 V21= list(3,((object *)VVi)[8], V22,list(4,((object *)VVi)[11], V24,((object *)VVi)[14],list(3,((object *)VVi)[8],list(3,((object *)VVi)[15],((object *)VVi)[16],list(2,((object *)VVi)[17],cdr((V20)))),((object *)VVi)[18])));
 V11= make_cons((V21),(V11));}
 V19= cdr((V19));
 V20= car((V19));
 goto T74;}
 goto T70;
T70:;
 {register object V25;
 register object V26;
 V25= (((object *)VVi)[3]->s.s_dbind);
 V26= car((V25));
 goto T91;
T91:;
 if(!((((enum type)(((object)((V25)))->d.t))==t_cons ? 0 : (((V25))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, ((V25))),0))))){
 goto T92;}
 goto T87;
 goto T92;
T92:;
 {object V27;
 V27= list(3,((object *)VVi)[8],list(2,((object *)VVi)[19],(*(LnkLI57))(cdr((V26)),car((V26)))),((object *)VVi)[20]);
 V11= make_cons((V27),(V11));}
 V25= cdr((V25));
 V26= car((V25));
 goto T91;}
 goto T87;
T87:;
 if(((V17))!=((object)&Cnil_body)){
 goto T104;}
 {object V28;
 V28= list(2,((object *)VVi)[21],list(2,((object *)VVi)[22],(V16)));
 V11= make_cons((V28),(V11));}
 goto T104;
T104:;
 V29= reverse((((object *)VVi)[1]->s.s_dbind));
 {object V30 = list(3,(V12),(V15),listA(4,((object *)VVi)[23],(V9), V29,append((V13),(V11))));
 ((bds_top->bds_sym)->s.s_dbind = bds_top->bds_val, --bds_top);
 ((bds_top->bds_sym)->s.s_dbind = bds_top->bds_val, --bds_top);
 ((bds_top->bds_sym)->s.s_dbind = bds_top->bds_val, --bds_top);
 vs_top=base ; return(V30);}}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI3__DM_VL__defmacro(V34,V35,V36)

register object V34;register object V35;object V36;
{ register object *base=vs_top; object V83 ,V82 ,V81 ,V79 ,V78 ,V77 ,V76 ,V70 ,V69 ,V68 ,V55 ,V54; register object *sup=vs_top+2;vs_top=sup; if(vs_base+(2) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 {register object V37;
 object V38;
 object V39;
 object V40;
 object V41;
 object V42;
 object V43;
 object V44;
 object V45;
 register object V46;
 object V47;
 if(((V36))==((object)&Cnil_body)){
 goto T111;}
 V46= (object)(small_fixnum_table+1024 +(1));
 goto T109;
 goto T111;
T111:;
 V46= (object)(small_fixnum_table+1024 +(0));
 goto T109;
T109:;
 V37= ((object)&Cnil_body);
 V38= ((object)&Cnil_body);
 V39= ((object)&Cnil_body);
 V40= ((object)&Cnil_body);
 V41= ((object)&Cnil_body);
 V42= ((object)&Cnil_body);
 V43= ((object)&Cnil_body);
 V44= ((object)&Cnil_body);
 V45= ((object)&Cnil_body);
 V47= ((object)&Cnil_body);
 goto T114;
T114:;
 if(((enum type)(((object)((V34)))->d.t))==t_cons){
 goto T115;}
 if(((V34))==((object)&Cnil_body)){
 goto T118;}
 if(((V38))==((object)&Cnil_body)){
 goto T121;}
 (void)((*(LnkLI58))(((object *)VVi)[4]));
 goto T121;
T121:;
 {object V48;
 V48= list(2,(V34),(*(LnkLI57))((V46),(V35)));
 setq(((object *)VVi)[1],make_cons((V48),symbol_value(((object *)VVi)[1])));}
 V45= ((object)&Ct_body);
 goto T118;
T118:;
 if(((V42))==((object)&Cnil_body)){
 goto T128;}
 if(((V43))!=((object)&Cnil_body)){
 goto T128;}
 {object V49;
 V49= make_cons((V42),(V44));
 setq(((object *)VVi)[2],make_cons((V49),symbol_value(((object *)VVi)[2])));}
 goto T128;
T128:;
 if(((V45))!=((object)&Cnil_body)){
 goto T135;}
 {object V50;
 V50= make_cons((V35),(V46));
 setq(((object *)VVi)[3],make_cons((V50),symbol_value(((object *)VVi)[3])));}
 goto T135;
T135:;
 {object V51 = (V47);
 vs_top=base ; return(V51);}
 goto T115;
T115:;
 {register object V52;
 V52= car((V34));
 if(!(((V52))==(((object *)VVi)[24]))){
 goto T144;}
 if(((V37))==((object)&Cnil_body)){
 goto T146;}
 (void)((*(LnkLI58))(((object *)VVi)[24]));
 goto T146;
T146:;
 V37= ((object)&Ct_body);
 {object V53;
 V53= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T144;
T144:;
 if(((V52))==(((object *)VVi)[4])){
 goto T154;}
 if(!(((V52))==(((object *)VVi)[25]))){
 goto T155;}
 goto T154;
T154:;
 if(((V38))==((object)&Cnil_body)){
 goto T159;}
 (void)((*(LnkLI58))((V52)));
 goto T159;
T159:;
 V54= cadr((V34));
 V55= (*(LnkLI57))((V46),(V35));
 (void)((*(LnkLI59))( V54, V55));
 V38= ((object)&Ct_body);
 V37= ((object)&Ct_body);
 V45= ((object)&Ct_body);
 V34= cddr((V34));
 if(!(((V52))==(((object *)VVi)[25]))){
 goto T141;}
 if(((V36))==((object)&Cnil_body)){
 goto T175;}
 V47= one_minus((V46));
 goto T173;
 goto T175;
T175:;
 V47= (V46);
 goto T173;
T173:;
 goto T141;
 goto T155;
T155:;
 if(!(((V52))==(((object *)VVi)[26]))){
 goto T178;}
 if(((V39))==((object)&Cnil_body)){
 goto T180;}
 (void)((*(LnkLI58))(((object *)VVi)[26]));
 goto T180;
T180:;
 vs_base=vs_top;
 Lgensym();
 vs_top=sup;
 V42= vs_base[0];
 {object V56;
 V56= list(2,(V42),(*(LnkLI57))((V46),(V35)));
 setq(((object *)VVi)[1],make_cons((V56),symbol_value(((object *)VVi)[1])));}
 V39= ((object)&Ct_body);
 V38= ((object)&Ct_body);
 V37= ((object)&Ct_body);
 V45= ((object)&Ct_body);
 {object V57;
 V57= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T178;
T178:;
 if(!(((V52))==(((object *)VVi)[27]))){
 goto T200;}
 if(((V39))==((object)&Cnil_body)){
 goto T203;}
 if(((V40))==((object)&Cnil_body)){
 goto T202;}
 goto T203;
T203:;
 (void)((*(LnkLI58))(((object *)VVi)[27]));
 goto T202;
T202:;
 V40= ((object)&Ct_body);
 V43= ((object)&Ct_body);
 {object V58;
 V58= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T200;
T200:;
 if(!(((V52))==(((object *)VVi)[7]))){
 goto T215;}
 if(((V41))==((object)&Cnil_body)){
 goto T217;}
 (void)((*(LnkLI58))(((object *)VVi)[7]));
 goto T217;
T217:;
 V41= ((object)&Ct_body);
 V40= ((object)&Ct_body);
 V39= ((object)&Ct_body);
 V38= ((object)&Ct_body);
 V37= ((object)&Ct_body);
 {object V59;
 V59= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T215;
T215:;
 if(((V41))==((object)&Cnil_body)){
 goto T234;}
 {object V60;
 object V61;
 V60= ((object)&Cnil_body);
 V61= ((object)&Cnil_body);
 if(!(((enum type)(((object)((V52)))->d.t))==t_symbol)){
 goto T239;}
 V60= (V52);
 goto T237;
 goto T239;
T239:;
 V60= car((V52));
 if((((enum type)(((object)(cdr((V52))))->d.t))==t_cons ? 0 : ((cdr((V52)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cdr((V52)))),0)))){
 goto T237;}
 V61= cadr((V52));
 goto T237;
T237:;
 (void)((*(LnkLI59))((V60),(V61)));}
 {object V62;
 V62= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T234;
T234:;
 if(((V39))==((object)&Cnil_body)){
 goto T251;}
 {object V63;
 object V64;
 object V65;
 object V66;
 object V67;
 vs_base=vs_top;
 Lgensym();
 vs_top=sup;
 V63= vs_base[0];
 V64= ((object)&Cnil_body);
 V65= ((object)&Cnil_body);
 V66= ((object)&Cnil_body);
 V67= ((object)&Cnil_body);
 if(!(((enum type)(((object)((V52)))->d.t))==t_symbol)){
 goto T257;}
 V64= (V52);
 base[0]= coerce_to_string((V52));
 base[1]= ((object *)VVi)[28];
 vs_top=(vs_base=base+0)+2;
 Lintern();
 vs_top=sup;
 V65= vs_base[0];
 goto T255;
 goto T257;
T257:;
 if(!(((enum type)(((object)(car((V52))))->d.t))==t_symbol)){
 goto T266;}
 V64= car((V52));
 base[0]= coerce_to_string(car((V52)));
 base[1]= ((object *)VVi)[28];
 vs_top=(vs_base=base+0)+2;
 Lintern();
 vs_top=sup;
 V65= vs_base[0];
 goto T264;
 goto T266;
T266:;
 V64= cadar((V52));
 V65= caar((V52));
 goto T264;
T264:;
 if((((enum type)(((object)(cdr((V52))))->d.t))==t_cons ? 0 : ((cdr((V52)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cdr((V52)))),0)))){
 goto T255;}
 V66= cadr((V52));
 if((((enum type)(((object)(cddr((V52))))->d.t))==t_cons ? 0 : ((cddr((V52)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cddr((V52)))),0)))){
 goto T255;}
 V67= caddr((V52));
 goto T255;
T255:;
 V68= list(4,((object *)VVi)[9],(V42),(V65),((object *)VVi)[29]);
 (void)((*(LnkLI59))((V63), V68));
 V69= list(4,((object *)VVi)[30],list(3,((object *)VVi)[31],(V63),((object *)VVi)[32]),(V66),(V63));
 (void)((*(LnkLI59))((V64), V69));
 if(((V67))==((object)&Cnil_body)){
 goto T285;}
 V70= list(2,((object *)VVi)[33],list(3,((object *)VVi)[31],(V63),((object *)VVi)[34]));
 (void)((*(LnkLI59))((V67), V70));
 goto T285;
T285:;
 V44= make_cons(V65,(V44));}
 {object V72;
 V72= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T251;
T251:;
 if(((V37))==((object)&Cnil_body)){
 goto T293;}
 {object V73;
 object V74;
 object V75;
 V73= ((object)&Cnil_body);
 V74= ((object)&Cnil_body);
 V75= ((object)&Cnil_body);
 if(!(((enum type)(((object)((V52)))->d.t))==t_symbol)){
 goto T298;}
 V73= (V52);
 goto T296;
 goto T298;
T298:;
 V73= car((V52));
 if((((enum type)(((object)(cdr((V52))))->d.t))==t_cons ? 0 : ((cdr((V52)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cdr((V52)))),0)))){
 goto T296;}
 V74= cadr((V52));
 if((((enum type)(((object)(cddr((V52))))->d.t))==t_cons ? 0 : ((cddr((V52)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cddr((V52)))),0)))){
 goto T296;}
 V75= caddr((V52));
 goto T296;
T296:;
 V76= (*(LnkLI57))((V46),(V35));
 V77= (*(LnkLI60))((V46),(V35));
 V78= list(4,((object *)VVi)[30], V76, V77,(V74));
 (void)((*(LnkLI59))((V73), V78));
 if(((V75))==((object)&Cnil_body)){
 goto T295;}
 V79= list(2,((object *)VVi)[33],list(2,((object *)VVi)[35],(*(LnkLI57))((V46),(V35))));
 (void)((*(LnkLI59))((V75), V79));}
 goto T295;
T295:;
 V46= number_plus((V46),(object)(small_fixnum_table+1024 +(1)));
 {object V80;
 V80= car((V34));
 V34= cdr((V34));
 goto T141;}
 goto T293;
T293:;
 V81= (*(LnkLI57))((V46),(V35));
 V82= (*(LnkLI60))((V46),(V35));
 V83= list(4,((object *)VVi)[30], V81, V82,((object *)VVi)[36]);
 (void)((*(LnkLI59))((V52), V83));
 V46= number_plus((V46),(object)(small_fixnum_table+1024 +(1)));
 {object V84;
 V84= car((V34));
 V34= cdr((V34));}}
 goto T141;
T141:;
 goto T114;}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI4__DM_V__defmacro(V87,V88)

register object V87;register object V88;
{ register object *base=vs_top; register object *sup=vs_top+1;vs_top=sup; if(vs_base+(1) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 if(!(((enum type)(((object)((V87)))->d.t))==t_symbol)){
 goto T327;}
 {object V89;
 if(((V88))==((object)&Cnil_body)){
 goto T331;}
 V89= list(2,(V87),(V88));
 goto T329;
 goto T331;
T331:;
 V89= (V87);
 goto T329;
T329:;
 setq(((object *)VVi)[1],make_cons((V89),symbol_value(((object *)VVi)[1])));
 {object V90 = symbol_value(((object *)VVi)[1]);
 vs_top=base ; return(V90);}}
 goto T327;
T327:;
 {object V91;
 vs_base=vs_top;
 Lgensym();
 vs_top=sup;
 V91= vs_base[0];
 {object V92;
 if(((V88))==((object)&Cnil_body)){
 goto T338;}
 V92= list(2,(V91),(V88));
 goto T336;
 goto T338;
T338:;
 V92= (V91);
 goto T336;
T336:;
 setq(((object *)VVi)[1],make_cons((V92),symbol_value(((object *)VVi)[1])));}
 {object V93 = (*(LnkLI56))((V87),(V91),((object)&Cnil_body));
 vs_top=base ; return(V93);}}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI5__DM_NTH__defmacro(V96,V97)

object V96;register object V97;
{ register object *base=vs_top; register object *sup=vs_top+2;vs_top=sup; if(vs_base+(2) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 {register object V98;
 object V99;
 base[0]= (V96);
 base[1]= (object)(small_fixnum_table+1024 +(4));
 vs_top=(vs_base=base+0)+2;
 Lfloor();
 if(vs_base>=vs_top){vs_top=sup;goto T344;}
 V98= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T345;}
 V99= vs_base[0];
 vs_top=sup;
 goto T346;
 goto T344;
T344:;
 V98= ((object)&Cnil_body);
 goto T345;
T345:;
 V99= ((object)&Cnil_body);
 goto T346;
T346:;
 if(!(number_compare((V98),(object)(small_fixnum_table+1024 +(0)))<0)){
 goto T349;}
 {long V100;
 V100= (long)0;
 goto T347;}
 goto T349;
T349:;
 if(!(number_compare((V98),((object *)VVi)[37])<=0)){
 goto T353;}
 {register long V101;
 V101= ((V98))->FIX.FIXVAL;
 {register long V102;
 V102= (long)0;
 goto T358;
T358:;
 if(!((V102)>=(V101))){
 goto T359;}
 goto T347;
 goto T359;
T359:;
 V97= list(2,((object *)VVi)[38],(V97));
 V102= (long)(V102)+1;
 goto T358;}}
 goto T353;
T353:;
 {register object V103;
 V103= (V98);
 {register object V104;
 V104= (object)(small_fixnum_table+1024 +(0));
 goto T370;
T370:;
 if(!(number_compare((V104),(V103))>=0)){
 goto T371;}
 goto T347;
 goto T371;
T371:;
 V97= list(2,((object *)VVi)[38],(V97));
 V104= one_plus((V104));
 goto T370;}}
 goto T347;
T347:;
 {object V105= (V99);
 if(!eql(V105,((object *)VVi)[39]))goto T380;
 {object V106 = list(2,((object *)VVi)[40],(V97));
 vs_top=base ; return(V106);}
 goto T380;
T380:;
 if(!eql(V105,((object *)VVi)[41]))goto T381;
 {object V107 = list(2,((object *)VVi)[42],(V97));
 vs_top=base ; return(V107);}
 goto T381;
T381:;
 if(!eql(V105,((object *)VVi)[43]))goto T382;
 {object V108 = list(2,((object *)VVi)[44],(V97));
 vs_top=base ; return(V108);}
 goto T382;
T382:;
 if(!eql(V105,((object *)VVi)[45]))goto T383;
 {object V109 = list(2,((object *)VVi)[46],(V97));
 vs_top=base ; return(V109);}
 goto T383;
T383:;
 {object V110 = ((object)&Cnil_body);
 vs_top=base ; return(V110);}}}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI6__DM_NTH_CDR__defmacro(V113,V114)

object V113;register object V114;
{ register object *base=vs_top; register object *sup=vs_top+2;vs_top=sup; if(vs_base+(2) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 {register object V115;
 object V116;
 base[0]= (V113);
 base[1]= (object)(small_fixnum_table+1024 +(4));
 vs_top=(vs_base=base+0)+2;
 Lfloor();
 if(vs_base>=vs_top){vs_top=sup;goto T387;}
 V115= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T388;}
 V116= vs_base[0];
 vs_top=sup;
 goto T389;
 goto T387;
T387:;
 V115= ((object)&Cnil_body);
 goto T388;
T388:;
 V116= ((object)&Cnil_body);
 goto T389;
T389:;
 if(!(number_compare((V115),(object)(small_fixnum_table+1024 +(0)))<0)){
 goto T392;}
 {long V117;
 V117= (long)0;
 goto T390;}
 goto T392;
T392:;
 if(!(number_compare((V115),((object *)VVi)[37])<=0)){
 goto T396;}
 {register long V118;
 V118= ((V115))->FIX.FIXVAL;
 {register long V119;
 V119= (long)0;
 goto T401;
T401:;
 if(!((V119)>=(V118))){
 goto T402;}
 goto T390;
 goto T402;
T402:;
 V114= list(2,((object *)VVi)[38],(V114));
 V119= (long)(V119)+1;
 goto T401;}}
 goto T396;
T396:;
 {register object V120;
 V120= (V115);
 {register object V121;
 V121= (object)(small_fixnum_table+1024 +(0));
 goto T413;
T413:;
 if(!(number_compare((V121),(V120))>=0)){
 goto T414;}
 goto T390;
 goto T414;
T414:;
 V114= list(2,((object *)VVi)[38],(V114));
 V121= one_plus((V121));
 goto T413;}}
 goto T390;
T390:;
 {object V122= (V116);
 if(!eql(V122,((object *)VVi)[39]))goto T423;
 {object V123 = (V114);
 vs_top=base ; return(V123);}
 goto T423;
T423:;
 if(!eql(V122,((object *)VVi)[41]))goto T424;
 {object V124 = list(2,((object *)VVi)[47],(V114));
 vs_top=base ; return(V124);}
 goto T424;
T424:;
 if(!eql(V122,((object *)VVi)[43]))goto T425;
 {object V125 = list(2,((object *)VVi)[48],(V114));
 vs_top=base ; return(V125);}
 goto T425;
T425:;
 if(!eql(V122,((object *)VVi)[45]))goto T426;
 {object V126 = list(2,((object *)VVi)[49],(V114));
 vs_top=base ; return(V126);}
 goto T426;
T426:;
 {object V127 = ((object)&Cnil_body);
 vs_top=base ; return(V127);}}}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI7__DM_BAD_KEY__defmacro(V129)

object V129;
{ register object *base=vs_top; register object *sup=vs_top+2;vs_top=sup; if(vs_base+(2) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 base[0]= ((object *)VVi)[50];
 base[1]= (V129);
 vs_top=(vs_base=base+0)+2;
 Lerror();
 vs_top=sup;
 {object V130 = vs_base[0];
 vs_top=base ; return(V130);}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI8__DM_TOO_FEW_ARGUMENTS__defmacro()

{ register object *base=vs_top; register object *sup=vs_top+1;vs_top=sup; if(vs_base+(1) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 base[0]= ((object *)VVi)[51];
 vs_top=(vs_base=base+0)+1;
 Lerror();
 vs_top=sup;
 {object V131 = vs_base[0];
 vs_top=base ; return(V131);}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI9__DM_TOO_MANY_ARGUMENTS__defmacro()

{ register object *base=vs_top; register object *sup=vs_top+1;vs_top=sup; if(vs_base+(1) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 base[0]= ((object *)VVi)[52];
 vs_top=(vs_base=base+0)+1;
 Lerror();
 vs_top=sup;
 {object V132 = vs_base[0];
 vs_top=base ; return(V132);}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static object LI10__DM_KEY_NOT_ALLOWED__defmacro(V134)

object V134;
{ register object *base=vs_top; register object *sup=vs_top+2;vs_top=sup; if(vs_base+(2) >= vs_limit) vs_overflow();;
 goto TTL;
TTL:;
 base[0]= ((object *)VVi)[53];
 base[1]= (V134);
 vs_top=(vs_base=base+0)+2;
 Lerror();
 vs_top=sup;
 {object V135 = vs_base[0];
 vs_top=base ; return(V135);}
 base[0]=base[0];
 return ((object)&Cnil_body);
}


static void L11__FIND_DOC__defmacro()
{register object *base=vs_base;
 register object *sup=base+5;
 if(vs_base+(5) >= vs_limit) vs_overflow();;
 {register object V136;
 object V137;
 if (vs_top - vs_base != (2)) check_arg_failed(2);
 V136=(base[0]);
 V137=(base[1]);
 vs_top=sup;
 goto TTL;
TTL:;
 if(!((((enum type)(((object)((V136)))->d.t))==t_cons ? 0 : (((V136))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, ((V136))),0))))){
 goto T434;}
 base[2]= ((object)&Cnil_body);
 base[3]= ((object)&Cnil_body);
 base[4]= ((object)&Cnil_body);
 vs_top=(vs_base=base+2)+3;
 return;
 goto T434;
T434:;
 {register object V138;
 base[2]= car((V136));
 vs_top=(vs_base=base+2)+1;
 Lmacroexpand();
 vs_top=sup;
 V138= vs_base[0];
 if(!(((enum type)(((object)((V138)))->d.t))==t_string)){
 goto T442;}
 if((((enum type)(((object)(cdr((V136))))->d.t))==t_cons ? 0 : ((cdr((V136)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cdr((V136)))),0)))){
 goto T444;}
 if(((V137))==((object)&Cnil_body)){
 goto T445;}
 goto T444;
T444:;
 base[2]= ((object)&Cnil_body);
 base[3]= ((object)&Cnil_body);
 base[4]= make_cons((V138),cdr((V136)));
 vs_top=(vs_base=base+2)+3;
 return;
 goto T445;
T445:;
 {object V139;
 object V140;
 object V141;
 base[2]= cdr((V136));
 base[3]= ((object)&Ct_body);
 vs_top=(vs_base=base+2)+2;
 (void) (*Lnk54)();
 if(vs_base>=vs_top){vs_top=sup;goto T455;}
 V139= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T456;}
 V140= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T457;}
 V141= vs_base[0];
 vs_top=sup;
 goto T458;
 goto T455;
T455:;
 V139= ((object)&Cnil_body);
 goto T456;
T456:;
 V140= ((object)&Cnil_body);
 goto T457;
T457:;
 V141= ((object)&Cnil_body);
 goto T458;
T458:;
 base[2]= (V138);
 base[3]= (V140);
 base[4]= (V141);
 vs_top=(vs_base=base+2)+3;
 return;}
 goto T442;
T442:;
 if(!(((enum type)(((object)((V138)))->d.t))==t_cons)){
 goto T463;}
 if(!((car((V138)))==(((object *)VVi)[21]))){
 goto T463;}
 {object V142;
 object V143;
 object V144;
 base[2]= cdr((V136));
 base[3]= (V137);
 vs_top=(vs_base=base+2)+2;
 (void) (*Lnk54)();
 if(vs_base>=vs_top){vs_top=sup;goto T470;}
 V142= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T471;}
 V143= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T472;}
 V144= vs_base[0];
 vs_top=sup;
 goto T473;
 goto T470;
T470:;
 V142= ((object)&Cnil_body);
 goto T471;
T471:;
 V143= ((object)&Cnil_body);
 goto T472;
T472:;
 V144= ((object)&Cnil_body);
 goto T473;
T473:;
 base[2]= (V142);
 base[3]= make_cons((V138),(V143));
 base[4]= (V144);
 vs_top=(vs_base=base+2)+3;
 return;}
 goto T463;
T463:;
 base[2]= ((object)&Cnil_body);
 base[3]= ((object)&Cnil_body);
 base[4]= make_cons((V138),cdr((V136)));
 vs_top=(vs_base=base+2)+3;
 return;}
 }
}


static void L12__FIND_DECLARATIONS__defmacro()
{register object *base=vs_base;
 register object *sup=base+3;
 if(vs_base+(3) >= vs_limit) vs_overflow();;
 {register object V145;
 if (vs_top - vs_base != (1)) check_arg_failed(1);
 V145=(base[0]);
 vs_top=sup;
 goto TTL;
TTL:;
 if(!((((enum type)(((object)((V145)))->d.t))==t_cons ? 0 : (((V145))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, ((V145))),0))))){
 goto T481;}
 base[1]= ((object)&Cnil_body);
 base[2]= ((object)&Cnil_body);
 vs_top=(vs_base=base+1)+2;
 return;
 goto T481;
T481:;
 {register object V146;
 base[1]= car((V145));
 vs_top=(vs_base=base+1)+1;
 Lmacroexpand();
 vs_top=sup;
 V146= vs_base[0];
 if(!(((enum type)(((object)((V146)))->d.t))==t_string)){
 goto T488;}
 if(!((((enum type)(((object)(cdr((V145))))->d.t))==t_cons ? 0 : ((cdr((V145)))==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (cdr((V145)))),0))))){
 goto T491;}
 base[1]= ((object)&Cnil_body);
 base[2]= make_cons((V146),((object)&Cnil_body));
 vs_top=(vs_base=base+1)+2;
 return;
 goto T491;
T491:;
 {object V147;
 object V148;
 base[1]= cdr((V145));
 vs_top=(vs_base=base+1)+1;
 (void) (*Lnk61)();
 if(vs_base>=vs_top){vs_top=sup;goto T497;}
 V147= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T498;}
 V148= vs_base[0];
 vs_top=sup;
 goto T499;
 goto T497;
T497:;
 V147= ((object)&Cnil_body);
 goto T498;
T498:;
 V148= ((object)&Cnil_body);
 goto T499;
T499:;
 base[1]= make_cons((V146),(V147));
 base[2]= (V148);
 vs_top=(vs_base=base+1)+2;
 return;}
 goto T488;
T488:;
 if(!(((enum type)(((object)((V146)))->d.t))==t_cons)){
 goto T503;}
 if(!((car((V146)))==(((object *)VVi)[21]))){
 goto T503;}
 {object V149;
 object V150;
 base[1]= cdr((V145));
 vs_top=(vs_base=base+1)+1;
 (void) (*Lnk61)();
 if(vs_base>=vs_top){vs_top=sup;goto T509;}
 V149= vs_base[0];
 vs_base++;
 if(vs_base>=vs_top){vs_top=sup;goto T510;}
 V150= vs_base[0];
 vs_top=sup;
 goto T511;
 goto T509;
T509:;
 V149= ((object)&Cnil_body);
 goto T510;
T510:;
 V150= ((object)&Cnil_body);
 goto T511;
T511:;
 base[1]= make_cons((V146),(V149));
 base[2]= (V150);
 vs_top=(vs_base=base+1)+2;
 return;}
 goto T503;
T503:;
 base[1]= ((object)&Cnil_body);
 base[2]= make_cons((V146),cdr((V145)));
 vs_top=(vs_base=base+1)+2;
 return;}
 }
}
static void LnkT61(){ call_or_link(((object *)VVi)[61],(void **)(void *)&Lnk61);}
static object LnkTLI60(object first,...){object V1;va_list ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[60],(void **)(void *)&LnkLI60,2,first,ap);__builtin_va_end(ap);return V1;}
static object LnkTLI59(object first,...){object V1;va_list ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[59],(void **)(void *)&LnkLI59,2,first,ap);__builtin_va_end(ap);return V1;}
static object LnkTLI58(object first,...){object V1;va_list ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[58],(void **)(void *)&LnkLI58,1,first,ap);__builtin_va_end(ap);return V1;}
static object LnkTLI57(object first,...){object V1;va_list ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[57],(void **)(void *)&LnkLI57,2,first,ap);__builtin_va_end(ap);return V1;}
static object LnkTLI56(object first,...){object V1;va_list ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[56],(void **)(void *)&LnkLI56,3,first,ap);__builtin_va_end(ap);return V1;}
static void LnkT55(){ call_or_link(((object *)VVi)[55],(void **)(void *)&Lnk55);}
static void LnkT54(){ call_or_link(((object *)VVi)[54],(void **)(void *)&Lnk54);}
=============================================================================

Take care,



-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.4.25
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)