[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] Re: sibling call optimization
|
From: |
Camm Maguire |
|
Subject: |
Re: [Gcl-devel] Re: sibling call optimization |
|
Date: |
07 May 2004 17:39:03 -0400 |
|
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetiings!
Jim Wilson <address@hidden> writes:
> On Thu, 2004-05-06 at 08:00, Camm Maguire wrote:
> > Thanks! -fno-inline-functions restored the sibling call. Is this
> > 'inline overrides sibling' behavior intentional?
>
> I seriously doubt it, but it is hard to say without a testcase. It
> would be reasonable to submit a bugzilla bug report if you find a
> testcase.
>
OK. The full cpp output providing a testcase is included below. I
will endeavor to file a bugzilla report on it (never done this before)
> > Is there any way
> > that I can write the call itself in a way to prevent inlining in that
> > instance? I.e. to let the callee be inlined elsewhere, but to prevent
> > it where I want the sibcall?
>
> __attribute__ ((noinline)) will prevent it from being inlined
> everywhere. Since I don't know why inlining and sibcalls aren't working
> together, I can't suggest a work around for this specific problem.
>
OK, if you do see a per call as opposed to a per function workaround,
I'd be appreciative.
> > I noticed there was a long thread about defining some attribute and/or
> > warning regarding sibling call optimization a few years ago.
>
> I don't recall that discussion, so I can't comment on it. It would
> probably be reasonable to have something like -Wsibcall patterned after
> the existing -Winline option. I don't know of anyone planning to do
> anything like that though.
OK may look into it if time permits.
Take care,
=============================================================================
# 1 "f.c"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "f.c"
# 1 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h" 1
# 171 "/fix/k/camm/gcl/gcl-2.6.1a/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
# 295 "/usr/include/features.h" 3 4
# 1 "/usr/include/sys/cdefs.h" 1 3 4
# 296 "/usr/include/features.h" 2 3 4
# 318 "/usr/include/features.h" 3 4
# 1 "/usr/include/gnu/stubs.h" 1 3 4
# 319 "/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
# 39 "/usr/include/bits/huge_val.h" 3 4
static union { unsigned char __c[8]; double __d; } __huge_val = { { 0, 0, 0, 0,
0, 0, 0xf0, 0x7f } };
# 34 "/usr/include/math.h" 2 3 4
# 1 "/usr/include/bits/mathdef.h" 1 3 4
# 41 "/usr/include/math.h" 2 3 4
# 65 "/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) ; extern double __acos (double __x) ;
extern double asin (double __x) ; extern double __asin (double __x) ;
extern double atan (double __x) ; extern double __atan (double __x) ;
extern double atan2 (double __y, double __x) ; extern double __atan2 (double
__y, double __x) ;
extern double cos (double __x) ; extern double __cos (double __x) ;
extern double sin (double __x) ; extern double __sin (double __x) ;
extern double tan (double __x) ; extern double __tan (double __x) ;
extern double cosh (double __x) ; extern double __cosh (double __x) ;
extern double sinh (double __x) ; extern double __sinh (double __x) ;
extern double tanh (double __x) ; extern double __tanh (double __x) ;
# 87 "/usr/include/bits/mathcalls.h" 3 4
extern double acosh (double __x) ; extern double __acosh (double __x) ;
extern double asinh (double __x) ; extern double __asinh (double __x) ;
extern double atanh (double __x) ; extern double __atanh (double __x) ;
extern double exp (double __x) ; extern double __exp (double __x) ;
extern double frexp (double __x, int *__exponent) ; extern double __frexp
(double __x, int *__exponent) ;
extern double ldexp (double __x, int __exponent) ; extern double __ldexp
(double __x, int __exponent) ;
extern double log (double __x) ; extern double __log (double __x) ;
extern double log10 (double __x) ; extern double __log10 (double __x) ;
extern double modf (double __x, double *__iptr) ; extern double __modf (double
__x, double *__iptr) ;
# 127 "/usr/include/bits/mathcalls.h" 3 4
extern double expm1 (double __x) ; extern double __expm1 (double __x) ;
extern double log1p (double __x) ; extern double __log1p (double __x) ;
extern double logb (double __x) ; extern double __logb (double __x) ;
# 152 "/usr/include/bits/mathcalls.h" 3 4
extern double pow (double __x, double __y) ; extern double __pow (double __x,
double __y) ;
extern double sqrt (double __x) ; extern double __sqrt (double __x) ;
extern double hypot (double __x, double __y) ; extern double __hypot (double
__x, double __y) ;
extern double cbrt (double __x) ; extern double __cbrt (double __x) ;
extern double ceil (double __x) ; extern double __ceil (double __x) ;
extern double fabs (double __x) ; extern double __fabs (double __x) ;
extern double floor (double __x) ; extern double __floor (double __x) ;
extern double fmod (double __x, double __y) ; extern double __fmod (double __x,
double __y) ;
extern int __isinf (double __value) ;
extern int __finite (double __value) ;
extern int isinf (double __value) ;
extern int finite (double __value) ;
extern double drem (double __x, double __y) ; extern double __drem (double __x,
double __y) ;
extern double significand (double __x) ; extern double __significand (double
__x) ;
extern double copysign (double __x, double __y) ; extern double __copysign
(double __x, double __y) ;
# 231 "/usr/include/bits/mathcalls.h" 3 4
extern int __isnan (double __value) ;
extern int isnan (double __value) ;
extern double j0 (double) ; extern double __j0 (double) ;
extern double j1 (double) ; extern double __j1 (double) ;
extern double jn (int, double) ; extern double __jn (int, double) ;
extern double y0 (double) ; extern double __y0 (double) ;
extern double y1 (double) ; extern double __y1 (double) ;
extern double yn (int, double) ; extern double __yn (int, double) ;
extern double erf (double) ; extern double __erf (double) ;
extern double erfc (double) ; extern double __erfc (double) ;
extern double lgamma (double) ; extern double __lgamma (double) ;
# 265 "/usr/include/bits/mathcalls.h" 3 4
extern double gamma (double) ; extern double __gamma (double) ;
extern double lgamma_r (double, int *__signgamp) ; extern double __lgamma_r
(double, int *__signgamp) ;
extern double rint (double __x) ; extern double __rint (double __x) ;
extern double nextafter (double __x, double __y) ; extern double __nextafter
(double __x, double __y) ;
extern double remainder (double __x, double __y) ; extern double __remainder
(double __x, double __y) ;
extern double scalbn (double __x, int __n) ; extern double __scalbn (double
__x, int __n) ;
extern int ilogb (double __x) ; extern int __ilogb (double __x) ;
# 66 "/usr/include/math.h" 2 3 4
# 88 "/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) ; extern float __acosf (float __x) ;
extern float asinf (float __x) ; extern float __asinf (float __x) ;
extern float atanf (float __x) ; extern float __atanf (float __x) ;
extern float atan2f (float __y, float __x) ; extern float __atan2f (float __y,
float __x) ;
extern float cosf (float __x) ; extern float __cosf (float __x) ;
extern float sinf (float __x) ; extern float __sinf (float __x) ;
extern float tanf (float __x) ; extern float __tanf (float __x) ;
extern float coshf (float __x) ; extern float __coshf (float __x) ;
extern float sinhf (float __x) ; extern float __sinhf (float __x) ;
extern float tanhf (float __x) ; extern float __tanhf (float __x) ;
# 87 "/usr/include/bits/mathcalls.h" 3 4
extern float acoshf (float __x) ; extern float __acoshf (float __x) ;
extern float asinhf (float __x) ; extern float __asinhf (float __x) ;
extern float atanhf (float __x) ; extern float __atanhf (float __x) ;
extern float expf (float __x) ; extern float __expf (float __x) ;
extern float frexpf (float __x, int *__exponent) ; extern float __frexpf (float
__x, int *__exponent) ;
extern float ldexpf (float __x, int __exponent) ; extern float __ldexpf (float
__x, int __exponent) ;
extern float logf (float __x) ; extern float __logf (float __x) ;
extern float log10f (float __x) ; extern float __log10f (float __x) ;
extern float modff (float __x, float *__iptr) ; extern float __modff (float
__x, float *__iptr) ;
# 127 "/usr/include/bits/mathcalls.h" 3 4
extern float expm1f (float __x) ; extern float __expm1f (float __x) ;
extern float log1pf (float __x) ; extern float __log1pf (float __x) ;
extern float logbf (float __x) ; extern float __logbf (float __x) ;
# 152 "/usr/include/bits/mathcalls.h" 3 4
extern float powf (float __x, float __y) ; extern float __powf (float __x,
float __y) ;
extern float sqrtf (float __x) ; extern float __sqrtf (float __x) ;
extern float hypotf (float __x, float __y) ; extern float __hypotf (float __x,
float __y) ;
extern float cbrtf (float __x) ; extern float __cbrtf (float __x) ;
extern float ceilf (float __x) ; extern float __ceilf (float __x) ;
extern float fabsf (float __x) ; extern float __fabsf (float __x) ;
extern float floorf (float __x) ; extern float __floorf (float __x) ;
extern float fmodf (float __x, float __y) ; extern float __fmodf (float __x,
float __y) ;
extern int __isinff (float __value) ;
extern int __finitef (float __value) ;
extern int isinff (float __value) ;
extern int finitef (float __value) ;
extern float dremf (float __x, float __y) ; extern float __dremf (float __x,
float __y) ;
extern float significandf (float __x) ; extern float __significandf (float __x)
;
extern float copysignf (float __x, float __y) ; extern float __copysignf (float
__x, float __y) ;
# 231 "/usr/include/bits/mathcalls.h" 3 4
extern int __isnanf (float __value) ;
extern int isnanf (float __value) ;
extern float j0f (float) ; extern float __j0f (float) ;
extern float j1f (float) ; extern float __j1f (float) ;
extern float jnf (int, float) ; extern float __jnf (int, float) ;
extern float y0f (float) ; extern float __y0f (float) ;
extern float y1f (float) ; extern float __y1f (float) ;
extern float ynf (int, float) ; extern float __ynf (int, float) ;
extern float erff (float) ; extern float __erff (float) ;
extern float erfcf (float) ; extern float __erfcf (float) ;
extern float lgammaf (float) ; extern float __lgammaf (float) ;
# 265 "/usr/include/bits/mathcalls.h" 3 4
extern float gammaf (float) ; extern float __gammaf (float) ;
extern float lgammaf_r (float, int *__signgamp) ; extern float __lgammaf_r
(float, int *__signgamp) ;
extern float rintf (float __x) ; extern float __rintf (float __x) ;
extern float nextafterf (float __x, float __y) ; extern float __nextafterf
(float __x, float __y) ;
extern float remainderf (float __x, float __y) ; extern float __remainderf
(float __x, float __y) ;
extern float scalbnf (float __x, int __n) ; extern float __scalbnf (float __x,
int __n) ;
extern int ilogbf (float __x) ; extern int __ilogbf (float __x) ;
# 89 "/usr/include/math.h" 2 3 4
# 109 "/usr/include/math.h" 3 4
# 1 "/usr/include/bits/mathcalls.h" 1 3 4
# 53 "/usr/include/bits/mathcalls.h" 3 4
extern long double acosl (long double __x) ; extern long double __acosl (long
double __x) ;
extern long double asinl (long double __x) ; extern long double __asinl (long
double __x) ;
extern long double atanl (long double __x) ; extern long double __atanl (long
double __x) ;
extern long double atan2l (long double __y, long double __x) ; extern long
double __atan2l (long double __y, long double __x) ;
extern long double cosl (long double __x) ; extern long double __cosl (long
double __x) ;
extern long double sinl (long double __x) ; extern long double __sinl (long
double __x) ;
extern long double tanl (long double __x) ; extern long double __tanl (long
double __x) ;
extern long double coshl (long double __x) ; extern long double __coshl (long
double __x) ;
extern long double sinhl (long double __x) ; extern long double __sinhl (long
double __x) ;
extern long double tanhl (long double __x) ; extern long double __tanhl (long
double __x) ;
# 87 "/usr/include/bits/mathcalls.h" 3 4
extern long double acoshl (long double __x) ; extern long double __acoshl (long
double __x) ;
extern long double asinhl (long double __x) ; extern long double __asinhl (long
double __x) ;
extern long double atanhl (long double __x) ; extern long double __atanhl (long
double __x) ;
extern long double expl (long double __x) ; extern long double __expl (long
double __x) ;
extern long double frexpl (long double __x, int *__exponent) ; extern long
double __frexpl (long double __x, int *__exponent) ;
extern long double ldexpl (long double __x, int __exponent) ; extern long
double __ldexpl (long double __x, int __exponent) ;
extern long double logl (long double __x) ; extern long double __logl (long
double __x) ;
extern long double log10l (long double __x) ; extern long double __log10l (long
double __x) ;
extern long double modfl (long double __x, long double *__iptr) ; extern long
double __modfl (long double __x, long double *__iptr) ;
# 127 "/usr/include/bits/mathcalls.h" 3 4
extern long double expm1l (long double __x) ; extern long double __expm1l (long
double __x) ;
extern long double log1pl (long double __x) ; extern long double __log1pl (long
double __x) ;
extern long double logbl (long double __x) ; extern long double __logbl (long
double __x) ;
# 152 "/usr/include/bits/mathcalls.h" 3 4
extern long double powl (long double __x, long double __y) ; extern long double
__powl (long double __x, long double __y) ;
extern long double sqrtl (long double __x) ; extern long double __sqrtl (long
double __x) ;
extern long double hypotl (long double __x, long double __y) ; extern long
double __hypotl (long double __x, long double __y) ;
extern long double cbrtl (long double __x) ; extern long double __cbrtl (long
double __x) ;
extern long double ceill (long double __x) ; extern long double __ceill (long
double __x) ;
extern long double fabsl (long double __x) ; extern long double __fabsl (long
double __x) ;
extern long double floorl (long double __x) ; extern long double __floorl (long
double __x) ;
extern long double fmodl (long double __x, long double __y) ; extern long
double __fmodl (long double __x, long double __y) ;
extern int __isinfl (long double __value) ;
extern int __finitel (long double __value) ;
extern int isinfl (long double __value) ;
extern int finitel (long double __value) ;
extern long double dreml (long double __x, long double __y) ; extern long
double __dreml (long double __x, long double __y) ;
extern long double significandl (long double __x) ; extern long double
__significandl (long double __x) ;
extern long double copysignl (long double __x, long double __y) ; extern long
double __copysignl (long double __x, long double __y) ;
# 231 "/usr/include/bits/mathcalls.h" 3 4
extern int __isnanl (long double __value) ;
extern int isnanl (long double __value) ;
extern long double j0l (long double) ; extern long double __j0l (long double) ;
extern long double j1l (long double) ; extern long double __j1l (long double) ;
extern long double jnl (int, long double) ; extern long double __jnl (int, long
double) ;
extern long double y0l (long double) ; extern long double __y0l (long double) ;
extern long double y1l (long double) ; extern long double __y1l (long double) ;
extern long double ynl (int, long double) ; extern long double __ynl (int, long
double) ;
extern long double erfl (long double) ; extern long double __erfl (long double)
;
extern long double erfcl (long double) ; extern long double __erfcl (long
double) ;
extern long double lgammal (long double) ; extern long double __lgammal (long
double) ;
# 265 "/usr/include/bits/mathcalls.h" 3 4
extern long double gammal (long double) ; extern long double __gammal (long
double) ;
extern long double lgammal_r (long double, int *__signgamp) ; extern long
double __lgammal_r (long double, int *__signgamp) ;
extern long double rintl (long double __x) ; extern long double __rintl (long
double __x) ;
extern long double nextafterl (long double __x, long double __y) ; extern long
double __nextafterl (long double __x, long double __y) ;
extern long double remainderl (long double __x, long double __y) ; extern long
double __remainderl (long double __x, long double __y) ;
extern long double scalbnl (long double __x, int __n) ; extern long double
__scalbnl (long double __x, int __n) ;
extern int ilogbl (long double __x) ; extern int __ilogbl (long double __x) ;
# 110 "/usr/include/math.h" 2 3 4
# 125 "/usr/include/math.h" 3 4
extern int signgam;
# 252 "/usr/include/math.h" 3 4
typedef enum
{
_IEEE_ = -1,
_SVID_,
_XOPEN_,
_POSIX_,
_ISOC_
} _LIB_VERSION_TYPE;
extern _LIB_VERSION_TYPE _LIB_VERSION;
# 277 "/usr/include/math.h" 3 4
struct exception
{
int type;
char *name;
double arg1;
double arg2;
double retval;
};
extern int matherr (struct exception *__exc);
# 423 "/usr/include/math.h" 3 4
# 172 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h" 2
# 246 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
# 1 "/usr/lib/gcc-lib/i486-linux/3.3.3/include/stdarg.h" 1 3 4
# 43 "/usr/lib/gcc-lib/i486-linux/3.3.3/include/stdarg.h" 3 4
typedef __builtin_va_list __gnuc_va_list;
# 105 "/usr/lib/gcc-lib/i486-linux/3.3.3/include/stdarg.h" 3 4
typedef __gnuc_va_list va_list;
# 247 "/fix/k/camm/gcl/gcl-2.6.1a/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
# 38 "/usr/include/bits/setjmp.h" 3 4
typedef int __jmp_buf[6];
# 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) ;
extern int __sigsetjmp (struct __jmp_buf_tag __env[1], int __savemask) ;
extern int _setjmp (struct __jmp_buf_tag __env[1]) ;
# 76 "/usr/include/setjmp.h" 3 4
extern void longjmp (struct __jmp_buf_tag __env[1], int __val)
;
extern void _longjmp (struct __jmp_buf_tag __env[1], int __val)
;
typedef struct __jmp_buf_tag sigjmp_buf[1];
# 108 "/usr/include/setjmp.h" 3 4
extern void siglongjmp (sigjmp_buf __env, int __val)
;
# 250 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h" 2
# 1 "/usr/include/stdio.h" 1 3 4
# 30 "/usr/include/stdio.h" 3 4
# 1 "/usr/lib/gcc-lib/i486-linux/3.3.3/include/stddef.h" 1 3 4
# 213 "/usr/lib/gcc-lib/i486-linux/3.3.3/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-lib/i486-linux/3.3.3/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;
# 62 "/usr/include/bits/types.h" 3 4
typedef struct
{
long __val[2];
} __quad_t;
typedef struct
{
__u_long __val[2];
} __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
typedef unsigned long long int __dev_t;
typedef unsigned int __uid_t;
typedef unsigned int __gid_t;
typedef unsigned long int __ino_t;
typedef unsigned long long int __ino64_t;
typedef unsigned int __mode_t;
typedef unsigned int __nlink_t;
typedef long int __off_t;
typedef long long int __off64_t;
typedef int __pid_t;
typedef struct { int __val[2]; } __fsid_t;
typedef long int __clock_t;
typedef unsigned long int __rlim_t;
typedef unsigned long long int __rlim64_t;
typedef unsigned int __id_t;
typedef long int __time_t;
typedef unsigned int __useconds_t;
typedef long int __suseconds_t;
typedef int __daddr_t;
typedef long int __swblk_t;
typedef int __key_t;
typedef int __clockid_t;
typedef int __timer_t;
typedef long int __blksize_t;
typedef long int __blkcnt_t;
typedef long long int __blkcnt64_t;
typedef unsigned long int __fsblkcnt_t;
typedef unsigned long long int __fsblkcnt64_t;
typedef unsigned long int __fsfilcnt_t;
typedef unsigned long long int __fsfilcnt64_t;
typedef int __ssize_t;
typedef __off64_t __loff_t;
typedef __quad_t *__qaddr_t;
typedef char *__caddr_t;
typedef int __intptr_t;
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-lib/i486-linux/3.3.3/include/stddef.h" 1 3 4
# 325 "/usr/lib/gcc-lib/i486-linux/3.3.3/include/stddef.h" 3 4
typedef long int wchar_t;
# 354 "/usr/lib/gcc-lib/i486-linux/3.3.3/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-lib/i486-linux/3.3.3/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-lib/i486-linux/3.3.3/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-lib/i486-linux/3.3.3/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;
struct __gconv_step_data __data [1];
} *__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 ;
typedef int _G_int32_t ;
typedef unsigned int _G_uint16_t ;
typedef unsigned int _G_uint32_t ;
# 33 "/usr/include/libio.h" 2 3 4
# 163 "/usr/include/libio.h" 3 4
struct _IO_jump_t; struct _IO_FILE;
# 173 "/usr/include/libio.h" 3 4
typedef void _IO_lock_t;
struct _IO_marker {
struct _IO_marker *_next;
struct _IO_FILE *_sbuf;
int _pos;
# 196 "/usr/include/libio.h" 3 4
};
enum __codecvt_result
{
__codecvt_ok,
__codecvt_partial,
__codecvt_error,
__codecvt_noconv
};
# 264 "/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;
# 312 "/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_;
# 351 "/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);
# 403 "/usr/include/libio.h" 3 4
extern int __underflow (_IO_FILE *) ;
extern int __uflow (_IO_FILE *) ;
extern int __overflow (_IO_FILE *, int) ;
extern wint_t __wunderflow (_IO_FILE *) ;
extern wint_t __wuflow (_IO_FILE *) ;
extern wint_t __woverflow (_IO_FILE *, wint_t) ;
# 433 "/usr/include/libio.h" 3 4
extern int _IO_getc (_IO_FILE *__fp) ;
extern int _IO_putc (int __c, _IO_FILE *__fp) ;
extern int _IO_feof (_IO_FILE *__fp) ;
extern int _IO_ferror (_IO_FILE *__fp) ;
extern int _IO_peekc_locked (_IO_FILE *__fp) ;
extern void _IO_flockfile (_IO_FILE *) ;
extern void _IO_funlockfile (_IO_FILE *) ;
extern int _IO_ftrylockfile (_IO_FILE *) ;
# 463 "/usr/include/libio.h" 3 4
extern int _IO_vfscanf (_IO_FILE * , const char * ,
__gnuc_va_list, int *) ;
extern int _IO_vfprintf (_IO_FILE *, const char *,
__gnuc_va_list) ;
extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t) ;
extern size_t _IO_sgetn (_IO_FILE *, void *, size_t) ;
extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int) ;
extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int) ;
extern void _IO_free_backup_area (_IO_FILE *) ;
# 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) ;
extern int rename (const char *__old, const char *__new) ;
extern FILE *tmpfile (void);
# 178 "/usr/include/stdio.h" 3 4
extern char *tmpnam (char *__s) ;
extern char *tmpnam_r (char *__s) ;
# 196 "/usr/include/stdio.h" 3 4
extern char *tempnam (const char *__dir, const char *__pfx)
;
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 * __filename,
const char * __modes);
extern FILE *freopen (const char * __filename,
const char * __modes,
FILE * __stream);
# 262 "/usr/include/stdio.h" 3 4
# 273 "/usr/include/stdio.h" 3 4
extern FILE *fdopen (int __fd, const char *__modes) ;
# 294 "/usr/include/stdio.h" 3 4
extern void setbuf (FILE * __stream, char * __buf) ;
extern int setvbuf (FILE * __stream, char * __buf,
int __modes, size_t __n) ;
extern void setbuffer (FILE * __stream, char * __buf,
size_t __size) ;
extern void setlinebuf (FILE *__stream) ;
extern int fprintf (FILE * __stream,
const char * __format, ...);
extern int printf (const char * __format, ...);
extern int sprintf (char * __s,
const char * __format, ...) ;
extern int vfprintf (FILE * __s, const char * __format,
__gnuc_va_list __arg);
extern int vprintf (const char * __format, __gnuc_va_list __arg);
extern int vsprintf (char * __s, const char * __format,
__gnuc_va_list __arg) ;
extern int snprintf (char * __s, size_t __maxlen,
const char * __format, ...)
;
extern int vsnprintf (char * __s, size_t __maxlen,
const char * __format, __gnuc_va_list __arg)
;
# 388 "/usr/include/stdio.h" 3 4
extern int fscanf (FILE * __stream,
const char * __format, ...);
extern int scanf (const char * __format, ...);
extern int sscanf (const char * __s,
const char * __format, ...) ;
# 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 * __s, int __n, FILE * __stream);
extern char *gets (char *__s);
# 578 "/usr/include/stdio.h" 3 4
extern int fputs (const char * __s, FILE * __stream);
extern int puts (const char *__s);
extern int ungetc (int __c, FILE *__stream);
extern size_t fread (void * __ptr, size_t __size,
size_t __n, FILE * __stream);
extern size_t fwrite (const void * __ptr, size_t __size,
size_t __n, FILE * __s);
# 631 "/usr/include/stdio.h" 3 4
extern size_t fread_unlocked (void * __ptr, size_t __size,
size_t __n, FILE * __stream);
extern size_t fwrite_unlocked (const void * __ptr, size_t __size,
size_t __n, FILE * __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 * __stream, fpos_t * __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) ;
extern int feof (FILE *__stream) ;
extern int ferror (FILE *__stream) ;
extern void clearerr_unlocked (FILE *__stream) ;
extern int feof_unlocked (FILE *__stream) ;
extern int ferror_unlocked (FILE *__stream) ;
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) ;
extern int fileno_unlocked (FILE *__stream) ;
# 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) ;
# 807 "/usr/include/stdio.h" 3 4
extern void flockfile (FILE *__stream) ;
extern int ftrylockfile (FILE *__stream) ;
extern void funlockfile (FILE *__stream) ;
# 831 "/usr/include/stdio.h" 3 4
# 251 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h" 2
# 261 "/fix/k/camm/gcl/gcl-2.6.1a/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
};
# 316 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 401 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
typedef int bool;
typedef long fixnum;
typedef unsigned long ufixnum;
typedef float shortfloat;
typedef double longfloat;
typedef unsigned short fatchar;
# 422 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
typedef union lispunion *object;
typedef union int_object iobject;
union int_object {object o; int i;};
# 437 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 482 "/fix/k/camm/gcl/gcl-2.6.1a/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
};
# 540 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 594 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 708 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 796 "/fix/k/camm/gcl/gcl-2.6.1a/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
};
# 835 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 858 "/fix/k/camm/gcl/gcl-2.6.1a/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
};
# 889 "/fix/k/camm/gcl/gcl-2.6.1a/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;
};
# 1071 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
struct typemanager {
enum type
tm_type;
short tm_size;
short tm_nppage;
object tm_free;
int tm_nfree;
int tm_nused;
int tm_npage;
int tm_maxpage;
char *tm_name;
int tm_gbccount;
object tm_alt_free;
int 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;
};
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;
# 1138 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern int ncb;
extern
int 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;
# 1203 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern
fixnum FIXtemp;
# 1224 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
enum ftype {f_object,f_fixnum};
extern
char *alloca_val;
# 1242 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
object make_si_sfun();
extern object MVloc[10];
# 1285 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
struct call_data {
object fun;
int argd;
int nvalues;
object values[50];
double double_return;
};
extern struct call_data fcall;
# 1321 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
object funcall_cfun(void(*)(),int,...);
object clear_compiler_properties();
extern object sSlambda_block_expanded;
# 1356 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
void raise_pending_signals();
extern unsigned int signals_allowed, signals_pending ;
extern struct symbol Dotnil_body;
# 1418 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern object *vs_org;
extern object *vs_limit;
extern object *vs_base;
extern object *vs_top;
# 1482 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 1554 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 1594 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 1630 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern frame_ptr frs_org;
extern frame_ptr frs_limit;
extern frame_ptr frs_top;
# 1656 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern bool nlj_active;
extern frame_ptr nlj_fr;
extern object nlj_tag;
# 1676 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern object *lex_env;
# 1757 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern int *cs_org;
extern int *cs_limit;
# 1777 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
struct bind_temp {
object bt_var;
object bt_spp;
object bt_init;
object bt_aux;
};
# 1960 "/fix/k/camm/gcl/gcl-2.6.1a/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();
# 1985 "/fix/k/camm/gcl/gcl-2.6.1a/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;
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();
# 2494 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 2521 "/fix/k/camm/gcl/gcl-2.6.1a/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 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,fixnum i,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 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 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;
# 3052 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
object make_integer();
# 3124 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
enum F_arg_flags
{ F_requires_nargs,
F_caller_sets_one_val,
# 3140 "/fix/k/camm/gcl/gcl-2.6.1a/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];
char *alloca();
extern char *alloca_val;
# 3177 "/fix/k/camm/gcl/gcl-2.6.1a/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();
# 3217 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
object make_integer();
# 3248 "/fix/k/camm/gcl/gcl-2.6.1a/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);
# 3295 "/fix/k/camm/gcl/gcl-2.6.1a/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;
# 3314 "/fix/k/camm/gcl/gcl-2.6.1a/h/cmpinclude.h"
extern void regsub (regexp *prog, char *source, char *dest);
extern void regerror (char *msg);
extern char *alloc_page (int 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, int 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 (int beg, int i);
extern void memory_protect (int on);
extern void perm_writable (char *p, int 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);
# 3606 "/fix/k/camm/gcl/gcl-2.6.1a/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 (int i, int j);
extern object fixnum_sub (int i, int 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
# 189 "/usr/include/unistd.h" 3 4
typedef __ssize_t ssize_t;
# 1 "/usr/lib/gcc-lib/i486-linux/3.3.3/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) ;
# 286 "/usr/include/unistd.h" 3 4
extern __off_t lseek (int __fd, __off_t __offset, int __whence) ;
# 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]) ;
# 378 "/usr/include/unistd.h" 3 4
extern unsigned int alarm (unsigned int __seconds) ;
# 390 "/usr/include/unistd.h" 3 4
extern unsigned int sleep (unsigned int __seconds);
extern __useconds_t ualarm (__useconds_t __value, __useconds_t __interval)
;
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)
;
extern int fchown (int __fd, __uid_t __owner, __gid_t __group) ;
extern int lchown (const char *__file, __uid_t __owner, __gid_t __group)
;
extern int chdir (const char *__path) ;
extern int fchdir (int __fd) ;
# 448 "/usr/include/unistd.h" 3 4
extern char *getcwd (char *__buf, size_t __size) ;
# 461 "/usr/include/unistd.h" 3 4
extern char *getwd (char *__buf) ;
extern int dup (int __fd) ;
extern int dup2 (int __fd, int __fd2) ;
extern char **__environ;
extern int execve (const char *__path, char *const __argv[],
char *const __envp[]) ;
# 492 "/usr/include/unistd.h" 3 4
extern int execv (const char *__path, char *const __argv[]) ;
extern int execle (const char *__path, const char *__arg, ...) ;
extern int execl (const char *__path, const char *__arg, ...) ;
extern int execvp (const char *__file, char *const __argv[]) ;
extern int execlp (const char *__file, const char *__arg, ...) ;
extern int nice (int __inc) ;
extern void _exit (int __status) ;
# 1 "/usr/include/bits/confname.h" 1 3 4
# 25 "/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
};
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
};
# 526 "/usr/include/unistd.h" 2 3 4
extern long int pathconf (const char *__path, int __name) ;
extern long int fpathconf (int __fd, int __name) ;
extern long int sysconf (int __name) ;
extern size_t confstr (int __name, char *__buf, size_t __len) ;
extern __pid_t getpid (void) ;
extern __pid_t getppid (void) ;
extern __pid_t getpgrp (void) ;
# 561 "/usr/include/unistd.h" 3 4
extern __pid_t __getpgid (__pid_t __pid) ;
# 570 "/usr/include/unistd.h" 3 4
extern int setpgid (__pid_t __pid, __pid_t __pgid) ;
# 587 "/usr/include/unistd.h" 3 4
extern int setpgrp (void) ;
# 605 "/usr/include/unistd.h" 3 4
extern __pid_t setsid (void) ;
extern __uid_t getuid (void) ;
extern __uid_t geteuid (void) ;
extern __gid_t getgid (void) ;
extern __gid_t getegid (void) ;
extern int getgroups (int __size, __gid_t __list[]) ;
# 638 "/usr/include/unistd.h" 3 4
extern int setuid (__uid_t __uid) ;
extern int setreuid (__uid_t __ruid, __uid_t __euid) ;
extern int seteuid (__uid_t __uid) ;
extern int setgid (__gid_t __gid) ;
extern int setregid (__gid_t __rgid, __gid_t __egid) ;
extern int setegid (__gid_t __gid) ;
# 690 "/usr/include/unistd.h" 3 4
extern __pid_t fork (void) ;
extern __pid_t vfork (void) ;
extern char *ttyname (int __fd) ;
extern int ttyname_r (int __fd, char *__buf, size_t __buflen) ;
extern int isatty (int __fd) ;
extern int ttyslot (void) ;
extern int link (const char *__from, const char *__to) ;
extern int symlink (const char *__from, const char *__to) ;
extern int readlink (const char * __path, char * __buf,
size_t __len) ;
extern int unlink (const char *__name) ;
extern int rmdir (const char *__path) ;
extern __pid_t tcgetpgrp (int __fd) ;
extern int tcsetpgrp (int __fd, __pid_t __pgrp_id) ;
extern char *getlogin (void);
# 766 "/usr/include/unistd.h" 3 4
extern int setlogin (const char *__name) ;
# 775 "/usr/include/unistd.h" 3 4
# 1 "/usr/include/getopt.h" 1 3 4
# 55 "/usr/include/getopt.h" 3 4
extern char *optarg;
# 69 "/usr/include/getopt.h" 3 4
extern int optind;
extern int opterr;
extern int optopt;
# 153 "/usr/include/getopt.h" 3 4
extern int getopt (int ___argc, char *const *___argv, const char *__shortopts)
;
# 776 "/usr/include/unistd.h" 2 3 4
extern int gethostname (char *__name, size_t __len) ;
extern int sethostname (const char *__name, size_t __len) ;
extern int sethostid (long int __id) ;
extern int getdomainname (char *__name, size_t __len) ;
extern int setdomainname (const char *__name, size_t __len) ;
extern int vhangup (void) ;
extern int revoke (const char *__file) ;
extern int profil (unsigned short int *__sample_buffer, size_t __size,
size_t __offset, unsigned int __scale) ;
extern int acct (const char *__name) ;
extern char *getusershell (void) ;
extern void endusershell (void) ;
extern void setusershell (void) ;
extern int daemon (int __nochdir, int __noclose) ;
extern int chroot (const char *__path) ;
extern char *getpass (const char *__prompt);
# 857 "/usr/include/unistd.h" 3 4
extern int fsync (int __fd);
extern long int gethostid (void);
extern void sync (void) ;
extern int getpagesize (void) ;
extern int truncate (const char *__file, __off_t __length) ;
# 893 "/usr/include/unistd.h" 3 4
extern int ftruncate (int __fd, __off_t __length) ;
# 909 "/usr/include/unistd.h" 3 4
extern int getdtablesize (void) ;
# 918 "/usr/include/unistd.h" 3 4
extern int brk (void *__addr) ;
extern void *sbrk (intptr_t __delta) ;
# 939 "/usr/include/unistd.h" 3 4
extern long int syscall (long int __sysno, ...) ;
# 962 "/usr/include/unistd.h" 3 4
extern int lockf (int __fd, int __cmd, __off_t __len);
# 993 "/usr/include/unistd.h" 3 4
extern int fdatasync (int __fildes) ;
# 1024 "/usr/include/unistd.h" 3 4
# 3784 "/fix/k/camm/gcl/gcl-2.6.1a/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 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);
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_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);
# 4605 "/fix/k/camm/gcl/gcl-2.6.1a/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);
void
memprotect_test_reset(void);
# 3 "f.c" 2
# 1 "f.h" 1
static void L3();
static void L4();
static object LI1();
static object LI2();
# 20 "f.h"
static char * VVi[5]={
(char *)(LI1),
(char *)(LI2),
(char *)(L3),
(char *)(L4)
};
static void LnkT3();
static void (*Lnk3)() = LnkT3;
static void LnkT2();
static void (*Lnk2)() = LnkT2;
static object LnkTLI1(object,...);
static object (*LnkLI1)() = (object (*)()) LnkTLI1;
static object LnkTLI0(object,...);
static object (*LnkLI0)() = (object (*)()) LnkTLI0;
# 4 "f.c" 2
void init_f(){do_init(((object *)VVi));}
static object LI1(V3,V4)
object V3;object V4;
{
goto TTL;
TTL:;
return((LnkLI0==LI2 ? ((volatile object (*)())LI2)( (V4),(V3) ) :
LnkLI0( (V4),(V3) ) ));
return ((object)&Cnil_body);
}
static object LI2(V7,V8)
object V7;object V8;
{
goto TTL;
TTL:;
return((LnkLI1==LI1 ? ((volatile object (*)())LI1)( (V8),(V7) ) :
LnkLI1( (V8),(V7) ) ));
return ((object)&Cnil_body);
}
static void L3()
{register object *base=vs_base;
register object *sup=base+0;
if (vs_top >= vs_limit) vs_overflow();
vs_top=sup;
goto TTL;
TTL:;
vs_base=vs_top;
(Lnk2==L4 ? ((volatile object (*)())L4)( ) : Lnk2( ) );
return;
}
static void L4()
{register object *base=vs_base;
register object *sup=base+0;
if (vs_top >= vs_limit) vs_overflow();
vs_top=sup;
goto TTL;
TTL:;
vs_base=vs_top;
(Lnk3==L3 ? ((volatile object (*)())L3)( ) : Lnk3( ) );
return;
}
static void LnkT3(){ call_or_link(((object *)VVi)[3],(void **)(void *)&Lnk3);}
static void LnkT2(){ call_or_link(((object *)VVi)[2],(void **)(void *)&Lnk2);}
static object LnkTLI1(object first,...){object V1;va_list
ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[1],(void
**)(void *)&LnkLI1,2,first,ap);__builtin_va_end(ap);return V1;}
static object LnkTLI0(object first,...){object V1;va_list
ap;__builtin_va_start(ap,first);V1=call_proc_new(((object *)VVi)[0],(void
**)(void *)&LnkLI0,2,first,ap);__builtin_va_end(ap);return V1;}
=============================================================================
> --
> Jim Wilson, GNU Tools Support, http://www.SpecifixInc.com
>
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
- [Gcl-devel] Re: SLIME, Camm Maguire, 2004/05/03
- Re: [Gcl-devel] Re: SLIME, Eric Merritt, 2004/05/03
- Re: [Gcl-devel] Re: SLIME, Camm Maguire, 2004/05/03
- Re: [Gcl-devel] Re: SLIME, Eric Merritt, 2004/05/03
- [Gcl-devel] sibling call optimization, Camm Maguire, 2004/05/04
- [Gcl-devel] Re: sibling call optimization, Andrew Pinski, 2004/05/04
- Re: [Gcl-devel] Re: sibling call optimization, Camm Maguire, 2004/05/05
- Re: [Gcl-devel] Re: sibling call optimization, Jim Wilson, 2004/05/06
- Re: [Gcl-devel] Re: sibling call optimization, Camm Maguire, 2004/05/06
- Re: [Gcl-devel] Re: sibling call optimization, Jim Wilson, 2004/05/06
- Re: [Gcl-devel] Re: sibling call optimization,
Camm Maguire <=
- Re: [Gcl-devel] Re: sibling call optimization, Jim Wilson, 2004/05/07
- Re: [Gcl-devel] Re: sibling call optimization, Jim Wilson, 2004/05/07
- Re: [Gcl-devel] Re: SLIME, Camm Maguire, 2004/05/06
- Re: [Gcl-devel] Re: SLIME, Eric Merritt, 2004/05/06