#define char_code(x) ((object)x)->ch.ch_code
#define code_char(x) (object)((character_table1+128)+((unsigned char)(x)))
#define endp(x) (({register object _z=(object)(x); (!(((ufixnum)(_z))>=0x80000000) && (!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) && _z!=((object)&Cnil_body));}) ? 0 : ((x)==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (x)),0)))
#define eql(x,y) ({register object _a=(x);register object _b=(y);_a==_b || (!((((ufixnum)(_a))>=0x80000000)||_a==((object)&Cnil_body))&&!((((ufixnum)(_b))>=0x80000000)||_b==((object)&Cnil_body))&&eql1(_a,_b));})
#define equal(x,y) ({register object _a=(x);register object _b=(y);_a==_b || (!((((ufixnum)(_a))>=0x80000000)||_a==((object)&Cnil_body))&&!((((ufixnum)(_b))>=0x80000000)||_b==((object)&Cnil_body))&&equal1(_a,_b));})
#define equalp(x,y) ({register object _a=(x);register object _b=(y);_a==_b || (_a!=((object)&Cnil_body)&&_b!=((object)&Cnil_body)&&equalp1(_a,_b));})
#define fix(x) ({register object _q2=(x);register fixnum _q3; _q3=(((ufixnum)(_q2))>=0x80000000) ? (((fixnum)(_q2))-(0x80000000 +(0x40000000>>1))) : (_q2)->FIX.FIXVAL;_q3;})
#define lf(x) (x)->LF.LFVAL
#define make_fixnum(x) ({register fixnum _q1=(x);register object _q4; _q4=(!(((_q1)+(0x40000000>>1))&-0x40000000)) ? ((object)((_q1)+(0x80000000 +(0x40000000>>1)))) : make_fixnum1(_q1);_q4;})
#define CMPmake_fixnum(x) ({register fixnum _q1=(x);register object _q4; _q4=(!(((_q1)+(0x40000000>>1))&-0x40000000)) ? ((object)((_q1)+(0x80000000 +(0x40000000>>1)))) : make_fixnum1(_q1);_q4;})
#define small_fixnum(x) ({register fixnum _q1=(x);register object _q4; _q4=(!(((_q1)+(0x40000000>>1))&-0x40000000)) ? ((object)((_q1)+(0x80000000 +(0x40000000>>1)))) : make_fixnum1(_q1);_q4;})
#define type_of(x) ({register object _z=(object)(x); ((((ufixnum)(_z))>=0x80000000) ? t_fixnum : ((!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) ? (_z==((object)&Cnil_body) ? t_symbol : t_cons) : _z->d.t));})
#define STREF(a,b,c) (*((a *)(((char *)((b)->str.str_self))+(c))))
#define STSET(a,b,c,val) do{;(*((a *)(((char *)((b)->str.str_self))+(c)))) = (val);} while(0)
#define immnum_bool(a,b,c) immnum_boole(fixint(a),b,c)
#define immnum_ior(x,y) immnum_boole(07,x,y)
#define immnum_and(x,y) immnum_boole(01,x,y)
#define immnum_xor(x,y) immnum_boole(06,x,y)
#define immnum_not(x) immnum_boole(014,x,x)
#define immnum_nand(x,y) immnum_boole(016,x,y)
#define immnum_nor(x,y) immnum_boole(010,x,y)
#define immnum_eqv(x,y) immnum_boole(011,x,y)
#define immnum_andc1(x,y) immnum_boole(04,x,y)
#define immnum_andc2(x,y) immnum_boole(02,x,y)
#define immnum_orc1(x,y) immnum_boole(015,x,y)
#define immnum_orc2(x,y) immnum_boole(013,x,y)
#define listp(x) ({register object _z=(object)(x); (!(((ufixnum)(_z))>=0x80000000) && (!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)));})
#define sf(x) (x)->SF.SFVAL
#define atom(x) ({register object _z=(object)(x); ((((ufixnum)(_z))>=0x80000000) || !(!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) || _z==((object)&Cnil_body));})
#define consp(x) ({register object _z=(object)(x); (!(((ufixnum)(_z))>=0x80000000) && (!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) && _z!=((object)&Cnil_body));})
#define OBJNULL ((void *)0)
#define Cnil ((object)&Cnil_body)
#define Ct ((object)&Ct_body)
#define bds_check if (bds_top >= bds_limit) bds_overflow()
#define bds_unwind1 ((bds_top->bds_sym)->s.s_dbind = bds_top->bds_val, --bds_top)
#define bds_bind(a,b) ({object _sym=(a),_val=(b);bds_ptr _b=++bds_top;(_b)->bds_sym=_sym;(_b)->bds_val=_sym->s.s_dbind;_sym->s.s_dbind=_val;})
#define va_arg(a,b) __builtin_va_arg(a,b)
#define va_start(a,b) __builtin_va_start(a,b)
#define va_end(a) __builtin_va_end(a)
#define ON_STACK_CONS(x,y) (alloca_val=__builtin_alloca((sizeof(struct cons))), on_stack_cons(x,y))
#define frs_pop() frs_top--
#define frs_push(a,b) do { frame_ptr _frs_top = frs_top +1; if (_frs_top >= frs_limit) frs_overflow(); _frs_top->frs_lex = lex_env; _frs_top->frs_bds_top = bds_top; _frs_top->frs_class = (a); _frs_top->frs_in_signal_handler = in_signal_handler; _frs_top->frs_val = (b); _frs_top->frs_ihs = ihs_top; frs_top=_frs_top; _setjmp3(((void *)_frs_top->frs_jmpbuf), ((void *)0)); } while (0)
#define vs_push(x) (*vs_top++ = (x))
#define vs_reserve(x) if(vs_base+(x) >= vs_limit) vs_overflow();
#define vs_head vs_top[-1]
#define vs_pop (*--vs_top)
#define vs_check if (vs_top >= vs_limit) vs_overflow()
#define ihs_check if (ihs_top >= ihs_limit) ihs_overflow()
#define alloc_frame_id() alloc_object(t_spice)
#define complex _Complex
#define I (__extension__ 1.0iF)
#define NOT_SPECIAL ((void (*)())((object)&Cnil_body))
#define VOL volatile
#define compiled_functionp(x) compiled_functionp(x)
#define mpz_even_p(x) (! (((x)->_mp_size != 0) & ((int) ((x)->_mp_d[0]))))
#define mpz_odd_p(x) (((x)->_mp_size != 0) & ((int) ((x)->_mp_d[0])))
#define mpz_sgn(x) ((x)->_mp_size < 0 ? -1 : (x)->_mp_size > 0)
#define NULL ((void *)0)
#define FALSE 0
#define TRUE 1
#define is_imm_fixnum(x) (((ufixnum)(x))>=0x80000000)
#define aref1 fLrow_major_aref
#define VFUN_NARGS fcall.argd
#define KEYTYPE void *
#define S_DATA(x) ((struct s_data *)((x)->str.str_self))
#define MMcons(x,y) make_cons((x),(y))
#define MMcar(x) (x)->c.c_car
#define MMcdr(x) (x)->c.c_cdr
#define fcalln ((object (*)())fcalln1)
#define CMPcar(x) (x)->c.c_car
#define CMPcdr(x) (x)->c.c_cdr
#define CMPcaar(x) (x)->c.c_car->c.c_car
#define CMPcadr(x) (x)->c.c_cdr->c.c_car
#define CMPcdar(x) (x)->c.c_car->c.c_cdr
#define CMPcddr(x) (x)->c.c_cdr->c.c_cdr
#define CMPcaaar(x) (x)->c.c_car->c.c_car->c.c_car
#define CMPcaadr(x) (x)->c.c_cdr->c.c_car->c.c_car
#define CMPcadar(x) (x)->c.c_car->c.c_cdr->c.c_car
#define CMPcaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car
#define CMPcdaar(x) (x)->c.c_car->c.c_car->c.c_cdr
#define CMPcdadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr
#define CMPcddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr
#define CMPcdddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr
#define CMPcaaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_car
#define CMPcaaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_car
#define CMPcaadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_car
#define CMPcaaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_car
#define CMPcadaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_car
#define CMPcadadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_car
#define CMPcaddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_car
#define CMPcadddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car
#define CMPcdaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_cdr
#define CMPcdaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_cdr
#define CMPcdadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_cdr
#define CMPcdaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr
#define CMPcddaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_cdr
#define CMPcddadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr
#define CMPcdddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_cdr
#define CMPcddddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr
#define ALLOCA_CONS(x) (alloca_val=__builtin_alloca(((x)*sizeof(struct cons))))
#define check_arg(x) if (vs_top - vs_base != (x)) check_arg_failed(x)
#define endp_prop(x) (({register object _z=(object)(x); (!(((ufixnum)(_z))>=0x80000000) && (!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) && _z!=((object)&Cnil_body));}) ? 0 : ((x)==((object)&Cnil_body) ? 1 : (FEwrong_type_argument(sLlist, (x)),0)))
#define fix_imm_fixnum(x) (((fixnum)(x))-(0x80000000 +(0x40000000>>1)))
#define make_imm_fixnum(x) ((object)((x)+(0x80000000 +(0x40000000>>1))))
#define gethash_with_check(x,y) ({object _b=(y);while (({register object _z=(object)(_b); ((((ufixnum)(_z))>=0x80000000) ? t_fixnum : ((!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) ? (_z==((object)&Cnil_body) ? t_symbol : t_cons) : _z->d.t));})!=t_hashtable) _b=wrong_type_argument(sLhash_table,_b);gethash(x,_b);})
#define sethash_with_check(x,y,z) ({object _b=(y);while (({register object _z=(object)(_b); ((((ufixnum)(_z))>=0x80000000) ? t_fixnum : ((!(_z)->d.e || (((ufixnum)((*(object *)(_z))))>=0x80000000)) ? (_z==((object)&Cnil_body) ? t_symbol : t_cons) : _z->d.t));})!=t_hashtable) _b=wrong_type_argument(sLhash_table,_b);sethash(x,_b,z);})
#define ON_STACK_LIST_VECTOR_NEW on_stack_list_vector_new
#define ON_STACK_MAKE_LIST on_stack_make_list
#define SAFE_CDR(x) x
#define Scons sLcons
#define EQ(x,y) ((x)==(y))
#define aset aset1
#define stp_ordinary 0
#define SIGNED_CHAR(x) (((char ) -1) < (char )0 ? (char) x : (x >= (1<<(8 -1)) ? x - (((int)(1<<(8 -1))) << 1) : (char ) x))
typedef __builtin_va_list __gnuc_va_list;
typedef __gnuc_va_list va_list;
void __attribute__((__cdecl__)) __debugbreak(void);
extern __inline__ __attribute__((__always_inline__,__gnu_inline__)) void __attribute__((__cdecl__)) __debugbreak(void)
{
  __asm__ __volatile__("int {$}3":);
}
const char *__mingw_get_crt_info (void);
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_contiguous,
  t_end=t_contiguous,
  t_relocatable,
  t_other
};
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;
typedef __mpz_struct * mpz_t;
typedef enum
{
  GMP_RAND_ALG_DEFAULT = 0,
  GMP_RAND_ALG_LC = GMP_RAND_ALG_DEFAULT
} gmp_randalg_t;
typedef struct {
  mpz_t _mp_a;
  unsigned long int _mp_c;
  mpz_t _mp_m;
  unsigned long int _mp_m2exp;
} __gmp_randata_lc;
typedef struct
{
  mpz_t _mp_seed;
  gmp_randalg_t _mp_alg;
  union {
    __gmp_randata_lc *_mp_lc;
  } _mp_algdata;
} __gmp_randstate_struct;
typedef __gmp_randstate_struct gmp_randstate_t[1];
typedef int bool;
typedef long long lfixnum;
typedef unsigned long long ulfixnum;
typedef long fixnum;
typedef unsigned long ufixnum;
typedef float shortfloat;
typedef double longfloat;
typedef union lispunion *object;
struct fixnum_struct {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  fixnum FIXVAL;
};
struct shortfloat_struct {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  shortfloat SFVAL;
};
struct longfloat_struct {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  longfloat LFVAL;
  object pad;
};
struct bignum {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  __mpz_struct big_mpz_t;
};
struct ratio {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object rat_den;
  object rat_num;
  object pad;
};
struct ocomplex {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object cmp_real;
  object cmp_imag;
  object pad;
};
struct character {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  unsigned short ch_code;
  unsigned char ch_font;
  unsigned char ch_bits;
};
struct symbol {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object s_dbind;
  void (*s_sfdef) ();
  char *s_self;
  int s_fillp;
  object s_gfdef;
  object s_plist;
  object s_hpack;
  short s_stype;
  short s_mflag;
  object pad;
};
struct package {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  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;
  object pad;
};
struct cons {
  object c_cdr;
  object c_car;
};
struct htent {
  object hte_key;
  object hte_value;
};
struct hashtable {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  struct htent *ht_self;
  object ht_rhsize;
  object ht_rhthresh;
  int ht_nent;
  int ht_size;
  short ht_test;
  object pad;
};
struct array {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object a_displaced;
  short a_rank;
  short a_elttype;
  object *a_self;
  short a_adjustable;
  short a_offset;
  int a_dim;
  int *a_dims;
  object pad;
};
struct vector {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object v_displaced;
  short v_hasfillp;
  short v_elttype;
  object *v_self;
  int v_fillp;
  int v_dim;
  short v_adjustable;
  short v_offset;
  object pad;
};
struct string {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object st_displaced;
  short st_hasfillp;
  short st_adjustable;
  char *st_self;
  int st_fillp;
  int st_dim;
};
struct ustring {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object ust_displaced;
  short ust_hasfillp;
  short ust_adjustable;
  unsigned char *ust_self;
  int ust_fillp;
  int ust_dim;
};
struct bitvector {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object bv_displaced;
  short bv_hasfillp;
  short bv_elttype;
  char *bv_self;
  int bv_fillp;
  int bv_dim;
  short bv_adjustable;
  short bv_offset;
  object pad;
};
struct fixarray {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object fixa_displaced;
  short fixa_rank;
  short fixa_elttype;
  fixnum *fixa_self;
  short fixa_adjustable;
  short fixa_offset;
  int fixa_dim;
  int *fixa_dims;
  object pad;
};
struct sfarray {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object sfa_displaced;
  short sfa_rank;
  short sfa_elttype;
  shortfloat *sfa_self;
  short sfa_adjustable;
  short sfa_offset;
  int sfa_dim;
  int *sfa_dims;
  object pad;
};
struct lfarray {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object lfa_displaced;
  short lfa_rank;
  short lfa_elttype;
  longfloat *lfa_self;
  short lfa_adjustable;
  short lfa_offset;
  int lfa_dim;
  int *lfa_dims;
  object pad;
};
struct s_data {
  object name;
  fixnum length;
  object raw;
  object included;
  object includes;
  object staticp;
  object print_function;
  object slot_descriptions;
  object slot_position;
  fixnum size;
  object has_holes;
};
struct structure {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object str_def;
  object *str_self;
  object pad;
};
struct stream {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  void *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;
};
struct random {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  __gmp_randstate_struct rnd_state;
};
struct readtable {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  struct rtent *rt_self;
};
struct pathname {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object pn_host;
  object pn_device;
  object pn_directory;
  object pn_name;
  object pn_type;
  object pn_version;
  object pad;
};
struct cfun {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object cf_name;
  void (*cf_self) ();
  object cf_data;
};
struct cclosure {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object cc_name;
  void (*cc_self) ();
  object cc_env;
  object cc_data;
  int cc_envdim;
  object *cc_turbo;
  object pad;
};
struct closure {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object cl_name;
  object (*cl_self) ();
  object cl_data;
  int cl_argd;
  int cl_envdim;
  object *cl_env;
};
struct sfun {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object sfn_name;
  object (*sfn_self) ();
  object sfn_data;
  int sfn_argd;
  object pad;
};
struct vfun {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  object vfn_name;
  object (*vfn_self) ();
  object vfn_data;
  unsigned short vfn_minargs;
  unsigned short vfn_maxargs;
  object pad;
};
struct cfdata {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  char *cfd_start;
  int cfd_size;
  int cfd_fillp;
  object *cfd_self;
  object pad;
};
struct spice {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
  int spc_dummy;
};
struct dummy {
  ufixnum e:1,m:1,f:1,s:1,tt:4,t:5,st:3,w:16;
};
struct ff {
  ufixnum ff;
};
struct fstpw {
  ufixnum emfs:4, tp:9, st:3,w:16;
};
union fstp
{
  ufixnum ff;
  struct fstpw t;
};
struct mark {
  ufixnum e:1, mf:2,s:1,tt:4,t:5,x:19;
};
struct typew {
  ufixnum emf:3, s:1,tt:4,t:5,x:19;
};
struct sgcm {
  ufixnum e:1,mfs:3, tt:4,t:5,x:19;
};
union lispunion {
  struct fixnum_struct FIX;
  struct bignum big;
  struct ratio rat;
  struct shortfloat_struct SF;
  struct longfloat_struct LF;
  struct ocomplex 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 fstpw fstp;
  struct ff ff;
  struct mark md;
  struct sgcm smd;
  struct typew td;
  fixnum fw;
  void *vw;
  struct fixarray fixa;
  struct sfarray sfa;
  struct lfarray lfa;
};
extern union lispunion Cnil_body __attribute__ ((aligned (8)));
extern union lispunion Ct_body __attribute__ ((aligned (8)));
struct call_data {
  object fun;
  int argd;
  int nvalues;
  object values[50];
  double double_return;
};
extern struct call_data fcall;
extern union lispunion character_table1[256+128] __attribute__ ((aligned (8)));
extern object Cstd_key_defaults[15];
extern char *alloca_val;
extern object keyword_package;
extern object sLlist;
extern object sLstring;
extern object sLcons;
extern object sLhash_table;
extern object MVloc[10];
extern object *vs_org,*vs_limit;
extern object *vs_base;
extern object *vs_top;
struct bds_bd {
 object bds_sym;
 object bds_val;
};
typedef struct bds_bd *bds_ptr;
extern bds_ptr bds_org,bds_limit;
extern bds_ptr bds_top;
typedef struct invocation_history {
 object ihs_function;
 object *ihs_base;
} *ihs_ptr;
extern ihs_ptr ihs_org,ihs_limit;
extern ihs_ptr ihs_top;
enum fr_class {
 FRS_CATCH,
 FRS_CATCHALL,
 FRS_PROTECT
};
extern int in_signal_handler;
struct frame {
  char frs_jmpbuf[64];
  object *frs_lex;
  bds_ptr frs_bds_top;
  object frs_val;
  ihs_ptr frs_ihs;
  char frs_class;
  char frs_in_signal_handler;
  char frs_pad[6];
};
typedef struct frame *frame_ptr;
extern frame_ptr frs_org,frs_limit;
extern frame_ptr frs_top;
extern bool nlj_active;
extern frame_ptr nlj_fr;
extern object nlj_tag;
extern object *lex_env;
bool eql1(object,object);
bool equal1(object,object);
bool equalp1(object,object);
bool file_exists(object);
bool integer_bitp(object,object);
double big_to_double(object);
frame_ptr frs_sch_catch(object);
frame_ptr frs_sch(object);
int length(object);
int number_compare(object,object);
int number_evenp(object);
int number_minusp(object);
int number_oddp(object);
int number_plusp(object);
int number_zerop(object);
long int fixint(object);
object alloc_object(enum type);
object call_proc_new(object,void **,int,object,va_list);
object coerce_to_string();
object elt(object,int);
object fixnum_big_shift(fixnum,fixnum);
object fixnum_times(fixnum,fixnum);
object fSsputprop(object,object,object);
object get(object,object,object);
object get_gcd(object,object);
object get_lcm(object,object);
object integer_count(object);
object integer_length(object);
object integer_shift(object,object);
object listA(int,...);
object list(int,...);
object log_op2(fixnum,object,object);
object make_cons(object,object);
object make_fixnum1(long);
object make_list(int);
object make_longfloat(longfloat);
object make_shortfloat(double);
object make_simple_string(const char *);
object number_abs(object);
object number_divide(object, object);
object number_dpb(object,object,object);
object number_dpf(object,object,object);
object number_ldb(object,object);
object number_ldbt(object,object);
object number_minus(object,object);
object number_negate(object);
object number_plus(object,object);
object number_signum(object);
object number_times(object,object);
object princ(object,object);
object read_char1(object,object);
object structure_ref(object,object,fixnum);
object structure_set(object,object,fixnum,object);
object symbol_function(object);
object symbol_name(object);
object symbol_value(object);
object terpri(object);
object vs_overflow(void);
void bds_overflow(void);
void bds_unwind(bds_ptr);
void do_init(object *);
void frs_overflow(void);
void intdivrem(object,object,fixnum,object *,object *);
void princ_char(int,object);
void princ_str(char *,object);
void princ_str(char *,object);
void sethash(object,object,object);
void setq(object,object);
void super_funcall_no_event(object);
void unwind(frame_ptr,object) __attribute__ ((noreturn));
int object_to_int(object);
fixnum object_to_fixnum(object);
char object_to_char(object);
void not_a_symbol(object);
object number_expt(object,object);
object fLrow_major_aref(object,fixnum);
object car(object);
object cdr(object);
object caar(object);
object cadr(object);
object cdar(object);
object cddr(object);
object caaar(object);
object caadr(object);
object cadar(object);
object caddr(object);
object cdaar(object);
object cdadr(object);
object cddar(object);
object cdddr(object);
object caaaar(object);
object caaadr(object);
object caadar(object);
object caaddr(object);
object cadaar(object);
object cadadr(object);
object caddar(object);
object cadddr(object);
object cdaaar(object);
object cdaadr(object);
object cdadar(object);
object cdaddr(object);
object cddaar(object);
object cddadr(object);
object cdddar(object);
object cddddr(object);
object fcalln1(object,...);
object append(object,object);
object aset1(object,fixnum,object);
void call_or_link(object,void **);
object call_proc0(object,void *);
object call_vproc_new(object,void *,object,va_list);
void check_arg_failed (int);
void check_other_key (object,int, ...);
object elt_set(object,int,object);
void FEerror(char *,int,...);
void FEwrong_type_argument(object,object);
void funcall(object);
object getf(object,object,object);
struct htent * gethash(object,object);
void invalid_macro_call(void);
long labs(long);
object list_vector_new(int,object,va_list);
object make_cclosure_new(void (*)(),object,object,object);
object nconc(object,object);
object nreverse(object);
object one_plus(object);
object one_minus(object);
void parse_key(object *,bool,bool,int,...);
int parse_key_new_new();
int parse_key_rest_new();
object prin1(object,object);
object print(object,object);
object putprop(object,object,object);
object remprop(object,object);
object reverse(object);
object simple_symlispcall(object,object *,int);
object sputprop(object,object,object);
void symlispcall(object,object *,int);
void too_few_arguments(void);
void too_many_arguments(void);
object wrong_type_argument(object,object);
bool oeql(object,object);
void call_or_link_closure(object,void **,void **);
void check_alist(object);
void lispcall(object *,int);
object make_cclosure(void (*)(),object,object,object,char *,int);
object simple_lispcall(object *,int);
object sublis1(object,object,bool(*)());
void turbo_closure(object);
char * object_to_string(object);
object on_stack_cons(object,object);
object on_stack_list(int,...);
object on_stack_list_vector_new(int,object,va_list);
object on_stack_make_list(int);
object read_byte1(object,object);
int not_a_variable(object);
object cmod(object);
object ctimes(object,object);
object cdifference(object,object);
object cplus(object,object);
void funcall_with_catcher(object,object);
void check_type_symbol(object *);
void ck_larg_exactly(int, object);
double cos(double);
double sin(double);
double sqrt(double);
double tan(double);
int gcl_feof(void *);
int gcl_getc(void *);
int gcl_putc(int,void *);
int setjmp();
int _setjmp();
void vfun_wrong_number_of_args(object);
void ihs_overflow (void);
double object_to_double(object);
void gcl_init_or_load1(void (*)(void),const char *);
char *gcl_gets(char *,int);
int gcl_puts(const char *);
extern inline fixnum
lnabs(fixnum x) {return x<0 ? ~x : x;}
extern inline char
clz(ufixnum x) {
  return x ? __builtin_clzl(x) : sizeof(x)*8;
}
extern inline char
ctz(ufixnum x) {
  return __builtin_ctzl(x);
}
extern inline char
fixnum_length(fixnum x) {return sizeof(x)*8-clz(lnabs(x));}
extern inline object
immnum_length(object x) {return is_imm_fixnum(x) ? make_imm_fixnum(fixnum_length(fix_imm_fixnum(x))) : integer_length(x);}
extern inline char
fixnum_popcount(ufixnum x) {
  x-=0x55555555UL&(x>>1);
  x=(x&0x33333333UL)+((x>>2)&0x33333333UL);
  x=0x0F0F0F0FUL&(x+(x>>4));
  x+=x>>8;
  x+=x>>16;
  return x&0x3F;
}
extern inline char
fixnum_count(fixnum x) {return fixnum_popcount(lnabs(x));}
extern inline object
immnum_count(object x) {return is_imm_fixnum(x) ? make_imm_fixnum(fixnum_count(fix_imm_fixnum(x))) : integer_count(x);}
extern inline bool
fixnum_mul_safe_abs(fixnum x,fixnum y) {return clz(x)+clz(y)>sizeof(x)*8+1;}
extern inline object
safe_mul_abs(fixnum x,fixnum y) {return fixnum_mul_safe_abs(x,y) ? make_fixnum(x*y) : fixnum_times(x,y);}
extern inline bool
fixnum_mul_safe(fixnum x,fixnum y) {return fixnum_mul_safe_abs(labs(x),labs(y));}
extern inline object
safe_mul(fixnum x,fixnum y) {return fixnum_mul_safe(x,y) ? make_fixnum(x*y) : fixnum_times(x,y);}
extern inline object
immnum_times(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? safe_mul(fix_imm_fixnum(x),fix_imm_fixnum(y)) : number_times(x,y);}
extern inline object
immnum_plus(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? make_fixnum(fix_imm_fixnum(x)+fix_imm_fixnum(y)) : number_plus(x,y);}
extern inline object
immnum_minus(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? make_fixnum(fix_imm_fixnum(x)-fix_imm_fixnum(y)) : number_minus(x,y);}
extern inline object
immnum_negate(object x) {return is_imm_fixnum(x) ? make_fixnum(-fix_imm_fixnum(x)) : number_negate(x);}
extern inline fixnum
fixnum_boole(fixnum op,fixnum x,fixnum y) {
  switch(op) {
  case 0: return 0;
  case 017: return -1;
  case 03: return x;
  case 05: return y;
  case 014: return ~x;
  case 012: return ~y;
  case 01: return x&y;
  case 07: return x|y;
  case 06: return x^y;
  case 011: return ~(x^y);
  case 016: return ~(x&y);
  case 010: return ~(x|y);
  case 04:return ~x&y;
  case 02:return x&~y;
  case 015: return ~x|y;
  case 013: return x|~y;
  }
  return 0;
}
extern inline object
immnum_boole(fixnum o,object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? make_imm_fixnum(fixnum_boole(o,fix_imm_fixnum(x),fix_imm_fixnum(y))) : log_op2(o,x,y);}
extern inline fixnum
fixnum_div(fixnum x,fixnum y,fixnum d) {
  fixnum z=x/y;
  if (d && x!=y*z && (x*d>0 ? y>0 : y<0))
    z+=d;
  return z;
}
extern inline fixnum
fixnum_rem(fixnum x,fixnum y,fixnum d) {
  fixnum z=x%y;
  if (d && z && (x*d>0 ? y>0 : y<0))
    z+=y;
  return z;
}
extern inline object
immnum_truncate(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y))&&y!=make_fixnum(0) ? make_imm_fixnum(fixnum_div(fix_imm_fixnum(x),fix_imm_fixnum(y),0)) : (intdivrem(x,y,0,&x,NULL),x);}
extern inline object
immnum_floor(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y))&&y!=make_fixnum(0) ? make_imm_fixnum(fixnum_div(fix_imm_fixnum(x),fix_imm_fixnum(y),-1)) : (intdivrem(x,y,-1,&x,NULL),x);}
extern inline object
immnum_ceiling(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y))&&y!=make_fixnum(0) ? make_imm_fixnum(fixnum_div(fix_imm_fixnum(x),fix_imm_fixnum(y),1)) : (intdivrem(x,y,1,&x,NULL),x);}
extern inline object
immnum_mod(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y))&&y!=make_fixnum(0) ? make_imm_fixnum(fixnum_rem(fix_imm_fixnum(x),fix_imm_fixnum(y),-1)) : (intdivrem(x,y,-1,NULL,&y),y);}
extern inline object
immnum_rem(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y))&&y!=make_fixnum(0) ? make_imm_fixnum(fixnum_rem(fix_imm_fixnum(x),fix_imm_fixnum(y),0)) : (intdivrem(x,y,0,NULL,&y),y);}
extern inline fixnum
fixnum_rshft(fixnum x,fixnum y) {
  return y>=sizeof(x)*8 ? (x<0 ? -1 : 0) : x>>y;
}
extern inline object
fixnum_lshft(fixnum x,fixnum y) {
  return clz(labs(x))>y ? make_fixnum(x<<y) : (x ? fixnum_big_shift(x,y) : make_fixnum(0));
}
extern inline object
fixnum_shft(fixnum x,fixnum y) {
  return y<0 ? make_fixnum(fixnum_rshft(x,-y)) : fixnum_lshft(x,y);
}
extern inline object
immnum_shft(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? fixnum_shft(fix_imm_fixnum(x),fix_imm_fixnum(y)) : integer_shift(x,y);}
extern inline bool
fixnum_bitp(fixnum p,fixnum x) {return fixnum_rshft(x,p)&0x1;}
extern inline bool
immnum_bitp(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? fixnum_bitp(fix_imm_fixnum(x),fix_imm_fixnum(y)) : integer_bitp(x,y);}
extern inline bool
immnum_lt(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x < y) : (number_compare(x,y) < 0);}
extern inline bool
immnum_le(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x <= y) : (number_compare(x,y) <= 0);}
extern inline bool
immnum_eq(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x == y) : (number_compare(x,y) == 0);}
extern inline bool
immnum_ne(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x != y) : (number_compare(x,y) != 0);}
extern inline bool
immnum_gt(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x > y) : (number_compare(x,y) > 0);}
extern inline bool
immnum_ge(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? (x >= y) : (number_compare(x,y) >= 0);}
extern inline bool
immnum_minusp(object x) {return is_imm_fixnum(x) ? ((ufixnum)x)<((ufixnum)make_fixnum(0)) : number_minusp(x);}
extern inline bool
immnum_plusp(object x) {return is_imm_fixnum(x) ? ((ufixnum)x)>((ufixnum)make_fixnum(0)) : number_plusp(x);}
extern inline bool
immnum_zerop(object x) {return is_imm_fixnum(x) ? ((ufixnum)x)==((ufixnum)make_fixnum(0)) : number_zerop(x);}
extern inline bool
immnum_evenp(object x) {return is_imm_fixnum(x) ? !(((ufixnum)x)&0x1) : number_evenp(x);}
extern inline bool
immnum_oddp(object x) {return is_imm_fixnum(x) ? (((ufixnum)x)&0x1) : number_oddp(x);}
extern inline object
immnum_signum(object x) {
  ufixnum ux=(ufixnum)x,uz=((ufixnum)make_fixnum(0));
  return is_imm_fixnum(x) ? (ux<uz ? make_imm_fixnum(-1) : (ux==uz ? make_imm_fixnum(0) : make_imm_fixnum(1))) : number_signum(x);
}
extern inline object
immnum_abs(object x) {return is_imm_fixnum(x) ? make_fixnum(labs(fix_imm_fixnum(x))) : number_abs(x);}
extern inline fixnum
fixnum_ldb(fixnum s,fixnum p,fixnum i) {
  return ((1UL<<s)-1)&fixnum_rshft(i,p);
}
extern inline object
immnum_ldb(object x,object i) {
  if (is_imm_fixnum(i))
    if (({register object _z=(object)(x); (!is_imm_fixnum(_z) && (!(_z)->d.e || is_imm_fixnum((*(object *)(_z)))) && _z!=Cnil);})) {
      object s=x->c.c_car,p=x->c.c_cdr;
      if (is_imm_fixnum(((ufixnum)s)&((ufixnum)p))) {
 fixnum fs=fix_imm_fixnum(s),fp=fix_imm_fixnum(p);
 if (fs+fp<sizeof(fs)*8)
   return make_fixnum(fixnum_ldb(fs,fp,fix_imm_fixnum(i)));
      }
    }
  return number_ldb(x,i);
}
extern inline bool
immnum_ldbt(object x,object i) {
  if (is_imm_fixnum(i))
    if (({register object _z=(object)(x); (!is_imm_fixnum(_z) && (!(_z)->d.e || is_imm_fixnum((*(object *)(_z)))) && _z!=Cnil);})) {
      object s=x->c.c_car,p=x->c.c_cdr;
      if (is_imm_fixnum(((ufixnum)s)&((ufixnum)p))) {
 fixnum fs=fix_imm_fixnum(s),fp=fix_imm_fixnum(p);
 if (fs+fp<sizeof(fs)*8)
   return fixnum_ldb(fs,fp,fix_imm_fixnum(i));
      }
    }
  return number_ldbt(x,i)!=Cnil;
}
extern inline fixnum
fixnum_dpb(fixnum s,fixnum p,fixnum n,fixnum i) {
  fixnum z=(1UL<<s)-1;
  return (i&~(z<<p))|((n&z)<<p);
}
extern inline object
immnum_dpb(object n,object x,object i) {
  if (is_imm_fixnum(((ufixnum)n)&((ufixnum)i)))
    if (({register object _z=(object)(x); (!is_imm_fixnum(_z) && (!(_z)->d.e || is_imm_fixnum((*(object *)(_z)))) && _z!=Cnil);})) {
      object s=x->c.c_car,p=x->c.c_cdr;
      if (is_imm_fixnum(((ufixnum)s)&((ufixnum)p))) {
 fixnum fs=fix_imm_fixnum(s),fp=fix_imm_fixnum(p);
 if (fs+fp<sizeof(fs)*8)
   return make_fixnum(fixnum_dpb(fs,fp,fix_imm_fixnum(n),fix_imm_fixnum(i)));
      }
    }
  return number_dpb(n,x,i);
}
extern inline fixnum
fixnum_dpf(fixnum s,fixnum p,fixnum n,fixnum i) {
  fixnum z=((1UL<<s)-1)<<p;
  return (i&~z)|(n&z);
}
extern inline object
immnum_dpf(object n,object x,object i) {
  if (is_imm_fixnum(((ufixnum)n)&((ufixnum)i)))
    if (({register object _z=(object)(x); (!is_imm_fixnum(_z) && (!(_z)->d.e || is_imm_fixnum((*(object *)(_z)))) && _z!=Cnil);})) {
      object s=x->c.c_car,p=x->c.c_cdr;
      if (is_imm_fixnum(((ufixnum)s)&((ufixnum)p))) {
 fixnum fs=fix_imm_fixnum(s),fp=fix_imm_fixnum(p);
 if (fs+fp<sizeof(fs)*8)
   return make_fixnum(fixnum_dpf(fs,fp,fix_imm_fixnum(n),fix_imm_fixnum(i)));
      }
    }
  return number_dpf(n,x,i);
}
extern inline object
immnum_max(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? ((ufixnum)x>=(ufixnum)y ? x : y) : (number_compare(x,y)>=0?x:y);}
extern inline object
immnum_min(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? ((ufixnum)x<=(ufixnum)y ? x : y) : (number_compare(x,y)<=0?x:y);}
extern inline bool
immnum_logt(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? fixnum_boole(01,fix_imm_fixnum(x),fix_imm_fixnum(y))!=0 : !number_zerop(log_op2(01,x,y));}
extern inline fixnum
fixnum_gcd(fixnum x,fixnum y) {
  fixnum t;
  char tx,ty;
  if (!x) return y;
  if (!y) return x;
  tx=ctz(x);
  ty=ctz(y);
  tx=tx<ty ? tx : ty;
  x>>=tx;
  y>>=tx;
  t=x&0x1 ? -y : x>>1;
  do {
    t>>=ctz(t);
    if (t>0) x=t; else y=-t;
    t=x-y;
  } while (t);
  return x<<tx;
}
extern inline object
immnum_gcd(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? make_imm_fixnum(fixnum_gcd(labs(fix_imm_fixnum(x)),labs(fix_imm_fixnum(y)))) : get_gcd(x,y);}
extern inline object
fixnum_lcm(fixnum x,fixnum y) {
  fixnum g=fixnum_gcd(x,y);
  return g ? safe_mul_abs(x,fixnum_div(y,g,0)) : make_fixnum(0);
}
extern inline object
immnum_lcm(object x,object y) {return is_imm_fixnum(((ufixnum)x)&((ufixnum)y)) ? fixnum_lcm(labs(fix_imm_fixnum(x)),labs(fix_imm_fixnum(y))) : get_lcm(x,y);}

#include "gnuplot.h"
void init_code(){do_init((void *)VV);}
/*	macro definition for WRITE-FONT-TYPE	*/

static void L1()
{register object *base=vs_base;
	register object *sup=base+VM1; VC1
	vs_reserve(VM1);
	check_arg(2);vs_top=sup;
	{object V1=base[0]->c.c_cdr;
	if(!endp(V1))invalid_macro_call();}
	base[2]= ((object)VV[0]);
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	function definition for $MULTIPLOT_MODE	*/

static void L2()
{register object *base=vs_base;
	register object *sup=base+VM2; VC2
	vs_reserve(VM2);
	{object V2;
	check_arg(1);
	V2=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	if((symbol_value(((object)VV[1])))!=Cnil){
	goto T2;}
	{object V3= (V2);
	if((V3!= ((object)VV[886])))goto T4;
	base[1]= ((object)VV[2]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk887)();
	vs_top=sup;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T10;}
	V4= ((object)VV[6]);
	goto T8;
	goto T10;
T10:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V5= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V6= vs_base[0];
	V4= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V5,V6));
	goto T8;
T8:;
	V7= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[3]),V4));
	(void)((*(LnkLI888))(/* INLINE-ARGS */V7));
	setq(((object)VV[9]),Ct);
	base[1]= Ct;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T4;
T4:;
	if((V3!= ((object)VV[889])))goto T20;
	base[1]= ((object)VV[2]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk887)();
	vs_top=sup;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T26;}
	V8= ((object)VV[6]);
	goto T24;
	goto T26;
T26:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V9= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V10= vs_base[0];
	V8= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V9,V10));
	goto T24;
T24:;
	V11= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[10]),V8));
	(void)((*(LnkLI888))(/* INLINE-ARGS */V11));
	setq(((object)VV[9]),Ct);
	base[1]= Ct;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T20;
T20:;
	if((V3!= ((object)VV[2])))goto T36;
	V12= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[11])));
	(void)((*(LnkLI888))(/* INLINE-ARGS */V12));
	setq(((object)VV[9]),Cnil);
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T36;
T36:;
	base[1]= (VFUN_NARGS=2,(*(LnkLI890))(((object)VV[12]),(V2)));
	vs_top=(vs_base=base+1)+1;
	return;}
	goto T2;
T2:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	macro definition for UPDATE-RANGE	*/

static void L3()
{register object *base=vs_base;
	register object *sup=base+VM3; VC3
	vs_reserve(VM3);
	check_arg(2);vs_top=sup;
	{object V13=base[0]->c.c_cdr;
	if(endp(V13))invalid_macro_call();
	base[2]= (V13->c.c_car);
	V13=V13->c.c_cdr;
	if(endp(V13))invalid_macro_call();
	base[3]= (V13->c.c_car);
	V13=V13->c.c_cdr;
	if(endp(V13))invalid_macro_call();
	base[4]= (V13->c.c_car);
	V13=V13->c.c_cdr;
	if(!endp(V13))invalid_macro_call();}
	V14= list(2,((object)VV[14]),list(2,((object)VV[15]),base[2]));
	V15= list(3,((object)VV[17]),base[2],((object)VV[18]));
	V16= list(2,small_fixnum(0),list(3,((object)VV[16]),/* INLINE-ARGS */V15,list(4,((object)VV[19]),base[3],base[4],small_fixnum(0))));
	V17= list(3,((object)VV[17]),base[2],((object)VV[18]));
	V18= list(3,((object)VV[20]),base[3],list(2,((object)VV[21]),list(2,((object)VV[15]),base[2])));
	base[5]= list(4,((object)VV[13]),/* INLINE-ARGS */V14,/* INLINE-ARGS */V16,list(2,small_fixnum(3),list(3,((object)VV[16]),/* INLINE-ARGS */V17,list(4,((object)VV[19]),/* INLINE-ARGS */V18,list(3,((object)VV[22]),base[4],list(2,((object)VV[23]),list(2,((object)VV[15]),base[2]))),small_fixnum(0)))));
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	function definition for UPDATE-RANGES-2D	*/

static void L4()
{register object *base=vs_base;
	register object *sup=base+VM4; VC4
	vs_reserve(VM4);
	{register object V19;
	register object V20;
	register object V21;
	register object V22;
	check_arg(4);
	V19=(base[0]);
	V20=(base[1]);
	V21=(base[2]);
	V22=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[4]= ((object)VV[24]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T41;}
	base[4]= ((object)VV[25]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V23= vs_base[0];switch((long)length(V23)){
	case 0:
	goto T47;
T47:;
	{object V25;
	object V26;
	V25= symbol_value(((object)VV[18]));
	V26= list(3,(V19),(V20),small_fixnum(0));
	(void)((sethash_with_check(((object)VV[25]),(V25),(V26)),(V26)));
	goto T39;}
	case 3:
	goto T48;
T48:;
	{object V28;
	object V29;
	V28= symbol_value(((object)VV[18]));
	base[4]= ((object)VV[25]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V30= vs_base[0];
	V31= immnum_min((V19),car(V30));
	base[4]= ((object)VV[25]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V32= vs_base[0];
	V29= list(3,/* INLINE-ARGS */V31,immnum_max((V20),cadr(V32)),small_fixnum(0));
	(void)((sethash_with_check(((object)VV[25]),(V28),(V29)),(V29)));
	goto T39;}
	default:
	goto T49;
T49:;
	goto T39;}
	goto T39;
	goto T41;
T41:;
	base[4]= ((object)VV[26]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V33= vs_base[0];switch((long)length(V33)){
	case 0:
	goto T61;
T61:;
	{object V35;
	object V36;
	V35= symbol_value(((object)VV[18]));
	V36= list(3,(V19),(V20),small_fixnum(0));
	(void)((sethash_with_check(((object)VV[26]),(V35),(V36)),(V36)));
	goto T39;}
	case 3:
	goto T62;
T62:;
	{object V38;
	object V39;
	V38= symbol_value(((object)VV[18]));
	base[4]= ((object)VV[26]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V40= vs_base[0];
	V41= immnum_min((V19),car(V40));
	base[4]= ((object)VV[26]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V42= vs_base[0];
	V39= list(3,/* INLINE-ARGS */V41,immnum_max((V20),cadr(V42)),small_fixnum(0));
	(void)((sethash_with_check(((object)VV[26]),(V38),(V39)),(V39)));
	goto T39;}
	default:
	goto T63;
T63:;
	goto T39;}
	goto T39;
T39:;
	base[4]= ((object)VV[27]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T73;}
	base[4]= ((object)VV[28]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V43= vs_base[0];switch((long)length(V43)){
	case 0:
	goto T79;
T79:;
	{object V45;
	object V46;
	V45= symbol_value(((object)VV[18]));
	V46= list(3,(V21),(V22),small_fixnum(0));
	base[4]= (sethash_with_check(((object)VV[28]),(V45),(V46)),(V46));
	vs_top=(vs_base=base+4)+1;
	return;}
	case 3:
	goto T80;
T80:;
	{object V48;
	object V49;
	V48= symbol_value(((object)VV[18]));
	base[4]= ((object)VV[28]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V50= vs_base[0];
	V51= immnum_min((V21),car(V50));
	base[4]= ((object)VV[28]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V52= vs_base[0];
	V49= list(3,/* INLINE-ARGS */V51,immnum_max((V22),cadr(V52)),small_fixnum(0));
	base[4]= (sethash_with_check(((object)VV[28]),(V48),(V49)),(V49));
	vs_top=(vs_base=base+4)+1;
	return;}
	default:
	goto T81;
T81:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;}
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
	goto T73;
T73:;
	base[4]= ((object)VV[29]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V53= vs_base[0];switch((long)length(V53)){
	case 0:
	goto T93;
T93:;
	{object V55;
	object V56;
	V55= symbol_value(((object)VV[18]));
	V56= list(3,(V21),(V22),small_fixnum(0));
	base[4]= (sethash_with_check(((object)VV[29]),(V55),(V56)),(V56));
	vs_top=(vs_base=base+4)+1;
	return;}
	case 3:
	goto T94;
T94:;
	{object V58;
	object V59;
	V58= symbol_value(((object)VV[18]));
	base[4]= ((object)VV[29]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V60= vs_base[0];
	V61= immnum_min((V21),car(V60));
	base[4]= ((object)VV[29]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V62= vs_base[0];
	V59= list(3,/* INLINE-ARGS */V61,immnum_max((V22),cadr(V62)),small_fixnum(0));
	base[4]= (sethash_with_check(((object)VV[29]),(V58),(V59)),(V59));
	vs_top=(vs_base=base+4)+1;
	return;}
	default:
	goto T95;
T95:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;}
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
	}
}
/*	function definition for UPDATE-RANGES-3D	*/

static void L5()
{register object *base=vs_base;
	register object *sup=base+VM5; VC5
	vs_reserve(VM5);
	{object V63;
	object V64;
	object V65;
	object V66;
	register object V67;
	register object V68;
	check_arg(6);
	V63=(base[0]);
	V64=(base[1]);
	V65=(base[2]);
	V66=(base[3]);
	V67=(base[4]);
	V68=(base[5]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[6]= (V63);
	base[7]= (V64);
	base[8]= (V65);
	base[9]= (V66);
	vs_top=(vs_base=base+6)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[6]= ((object)VV[30]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V69= vs_base[0];switch((long)length(V69)){
	case 0:
	goto T112;
T112:;
	{object V71;
	object V72;
	V71= symbol_value(((object)VV[18]));
	V72= list(3,(V67),(V68),small_fixnum(0));
	base[6]= (sethash_with_check(((object)VV[30]),(V71),(V72)),(V72));
	vs_top=(vs_base=base+6)+1;
	return;}
	case 3:
	goto T113;
T113:;
	{object V74;
	object V75;
	V74= symbol_value(((object)VV[18]));
	base[6]= ((object)VV[30]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V76= vs_base[0];
	V77= immnum_min((V67),car(V76));
	base[6]= ((object)VV[30]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V78= vs_base[0];
	V75= list(3,/* INLINE-ARGS */V77,immnum_max((V68),cadr(V78)),small_fixnum(0));
	base[6]= (sethash_with_check(((object)VV[30]),(V74),(V75)),(V75));
	vs_top=(vs_base=base+6)+1;
	return;}
	default:
	goto T114;
T114:;
	base[6]= Cnil;
	vs_top=(vs_base=base+6)+1;
	return;}
	base[6]= Cnil;
	vs_top=(vs_base=base+6)+1;
	return;
	}
}
/*	macro definition for CHECK-EXTREMES-X	*/

static void L6()
{register object *base=vs_base;
	register object *sup=base+VM6; VC6
	vs_reserve(VM6);
	check_arg(2);vs_top=sup;
	{object V79=base[0]->c.c_cdr;
	if(!endp(V79))invalid_macro_call();}
	base[2]= ((object)VV[31]);
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	macro definition for CHECK-EXTREMES-Y	*/

static void L7()
{register object *base=vs_base;
	register object *sup=base+VM7; VC7
	vs_reserve(VM7);
	check_arg(2);vs_top=sup;
	{object V80=base[0]->c.c_cdr;
	if(!endp(V80))invalid_macro_call();}
	base[2]= ((object)VV[32]);
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	macro definition for CHECK-EXTREMES-Z	*/

static void L8()
{register object *base=vs_base;
	register object *sup=base+VM8; VC8
	vs_reserve(VM8);
	check_arg(2);vs_top=sup;
	{object V81=base[0]->c.c_cdr;
	if(!endp(V81))invalid_macro_call();}
	base[2]= ((object)VV[33]);
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	function definition for AXES-TO-PLOT	*/

static void L9()
{register object *base=vs_base;
	register object *sup=base+VM9; VC9
	vs_reserve(VM9);
	check_arg(0);
	vs_top=sup;
	goto TTL;
TTL:;
	base[0]= ((object)VV[24]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T125;}
	V82= ((object)VV[35]);
	goto T123;
	goto T125;
T125:;
	V82= ((object)VV[36]);
	goto T123;
T123:;
	base[0]= ((object)VV[27]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T130;}
	V83= ((object)VV[37]);
	goto T128;
	goto T130;
T130:;
	V83= ((object)VV[38]);
	goto T128;
T128:;
	base[0]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[34]),V82,V83));
	vs_top=(vs_base=base+0)+1;
	return;
}
/*	function definition for MAKE-GR-OBJECT	*/

static void L10()
{register object *base=vs_base;
	register object *sup=base+VM10; VC10
	vs_reserve(VM10);
	bds_check;
	{object V84;
	object V85;
	object V86;
	parse_key(vs_base,FALSE,FALSE,4,VV[74],VV[76],VV[77],VV[78]);vs_top=sup;
	bds_bind(((object)VV[39]),base[0]);
	V84=(base[1]);
	V85=(base[2]);
	V86=(base[3]);
	base[8]= ((object)VV[40]);
	base[9]= (((object)VV[39])->s.s_dbind);
	base[10]= (V84);
	base[11]= (V85);
	base[12]= (V86);
	vs_top=(vs_base=base+8)+5;
	siLmake_structure();
	bds_unwind1;
	return;
	}
}
/*	function definition for MAKE-OBJ-TITLE	*/

static void L11()
{register object *base=vs_base;
	register object *sup=base+VM11; VC11
	vs_reserve(VM11);
	{object V87;
	check_arg(1);
	V87=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(!(((long)length((V87)))>((long)80))){
	goto T138;}
	base[1]= (V87);
	base[2]= small_fixnum(0);
	base[3]= small_fixnum(75);
	vs_top=(vs_base=base+1)+3;
	Lsubseq();
	vs_top=sup;
	V88= vs_base[0];
	(void)((VFUN_NARGS=4,(*(LnkLI892))(((object)VV[41]),((object)VV[42]),V88,((object)VV[43]))));
	goto T138;
T138:;
	base[1]= (VFUN_NARGS=4,(*(LnkLI892))(((object)VV[41]),((object)VV[44]),(V87),((object)VV[45])));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	function definition for ERRORS	*/

static void L12()
{register object *base=vs_base;
	register object *sup=base+VM12; VC12
	vs_reserve(VM12);
	{register object V89;
	check_arg(1);
	V89=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	{register object V90;
	object V91;
	register object V92;
	object V93;
	object V94;
	object V95;
	object V96;
	object V97;
	object V98;
	register object V99;
	base[2]= ((object)VV[46]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V90= vs_base[0];
	base[2]= ((object)VV[47]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V91= vs_base[0];
	base[1]=MMcons(Cnil,Cnil);
	V92= Cnil;
	V93= Cnil;
	V94= Cnil;
	V95= Cnil;
	V96= Cnil;
	V97= Cnil;
	V98= Cnil;
	V99= Cnil;
	if(((*(LnkLI893))((V89)))==Cnil){
	goto T151;}
	V100= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V100,cdr((V89)))))==Cnil){
	goto T151;}
	(base[1]->c.c_car)= make_fixnum((long)(length(cdadr((V89)))));
	goto T149;
	goto T151;
T151:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[48]))));
	goto T149;
T149:;
	V101= 
	make_cclosure_new(LC97,Cnil,base[1],Cdata);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V101,cdr((V89)))))!=Cnil){
	goto T157;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[49]))));
	goto T157;
T157:;
	if(!(eql((V90),((object)VV[50])))){
	goto T163;}
	if(immnum_eq((base[1]->c.c_car),small_fixnum(3))){
	goto T162;}
	if(!(immnum_eq((base[1]->c.c_car),small_fixnum(4)))){
	goto T163;}
	goto T162;
T162:;
	if(((V91))!=Cnil){
	goto T170;}
	V99= ((object)VV[51]);
	goto T161;
	goto T170;
T170:;
	V99= ((object)VV[52]);
	goto T161;
	goto T163;
T163:;
	if(!(eql((V90),((object)VV[53])))){
	goto T175;}
	if(immnum_eq((base[1]->c.c_car),small_fixnum(3))){
	goto T174;}
	if(!(immnum_eq((base[1]->c.c_car),small_fixnum(4)))){
	goto T175;}
	goto T174;
T174:;
	if(((V91))!=Cnil){
	goto T182;}
	V99= ((object)VV[54]);
	goto T161;
	goto T182;
T182:;
	V99= ((object)VV[55]);
	goto T161;
	goto T175;
T175:;
	if(!(eql((V90),((object)VV[56])))){
	goto T187;}
	if(immnum_eq((base[1]->c.c_car),small_fixnum(4))){
	goto T186;}
	if(!(immnum_eq((base[1]->c.c_car),small_fixnum(6)))){
	goto T187;}
	goto T186;
T186:;
	if(((V91))!=Cnil){
	goto T194;}
	V99= ((object)VV[57]);
	goto T161;
	goto T194;
T194:;
	V99= ((object)VV[58]);
	goto T161;
	goto T187;
T187:;
	if(!(eql((V90),((object)VV[59])))){
	goto T199;}
	if(immnum_eq((base[1]->c.c_car),small_fixnum(4))){
	goto T198;}
	if(!(immnum_eq((base[1]->c.c_car),small_fixnum(6)))){
	goto T199;}
	goto T198;
T198:;
	V99= ((object)VV[60]);
	goto T161;
	goto T199;
T199:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[61]))));
	goto T161;
T161:;
	V102= list(2,(base[1]->c.c_car),small_fixnum(0));
	V94= make_cons(/* INLINE-ARGS */V102,Cnil);
	base[3]= ((object)VV[63]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V103= vs_base[0];
	if(!(eql((V90),((object)VV[59])))){
	goto T215;}
	base[2]= ((object)VV[65]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V105= vs_base[0];
	V104= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[64]),V105));
	goto T213;
	goto T215;
T215:;
	V104= ((object)VV[66]);
	goto T213;
T213:;
	base[2]= ((object)VV[67]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V106= vs_base[0];
	base[2]= ((object)VV[68]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V107= vs_base[0];
	base[3]= ((object)VV[69]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V108= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V109= vs_base[0];
	V93= (VFUN_NARGS=9,(*(LnkLI761))(Cnil,((object)VV[62]),V103,(V99),V104,V106,V107,V108,V109));
	V110= symbol_function(((object)VV[899]));
	base[2]= (V89);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V111= vs_base[0];
	V92= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V110,cdr(V111)));
	{object V112;
	object V113;
	V114= symbol_function(((object)VV[21]));
	V112= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V114,(V92)));
	V115= symbol_function(((object)VV[23]));
	V113= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V115,(V92)));
	V116= make_cons(((object)VV[70]),(V112));
	V95= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V116));
	V117= make_cons(((object)VV[71]),(V112));
	V96= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V117));
	V118= make_cons(((object)VV[72]),(V113));
	V97= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V118));
	V119= make_cons(((object)VV[73]),(V113));
	V98= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V119));}
	base[2]= (V95);
	base[3]= (V96);
	base[4]= (V97);
	base[5]= (V98);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[75]);
	base[4]= ((object)VV[76]);
	base[5]= (V93);
	base[6]= ((object)VV[77]);
	base[7]= (V94);
	base[8]= ((object)VV[78]);
	V120 = make_fixnum((long)(length((V92))));
	V121= immnum_times((base[1]->c.c_car),V120);
	base[10]= (V92);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk902)();
	vs_top=sup;
	V122= vs_base[0];
	V123= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V121,((object)VV[79]),((object)VV[80]),((object)VV[81]),V122));
	base[9]= make_cons(/* INLINE-ARGS */V123,Cnil);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for POINTS-COMMAND	*/

static void L13()
{register object *base=vs_base;
	register object *sup=base+VM13; VC13
	vs_reserve(VM13);
	check_arg(0);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V124;
	object V125;
	register object V126;
	base[0]= ((object)VV[47]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V124= vs_base[0];
	base[0]= ((object)VV[82]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V125= vs_base[0];
	base[0]= ((object)VV[83]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V126= vs_base[0];
	if(((V124))!=Cnil){
	goto T266;}
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V127= vs_base[0];
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V128= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V129= vs_base[0];
	base[0]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[84]),V127,(V125),(V126),V128,V129));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T266;
T266:;
	if(!(((V124))==(Ct))){
	goto T276;}
	if(immnum_eq((V125),((object)VV[85]))){
	goto T275;}
	if(!(immnum_eq((V126),small_fixnum(0)))){
	goto T276;}
	goto T275;
T275:;
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V130= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V131= vs_base[0];
	base[0]= ((object)VV[68]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V132= vs_base[0];
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V133= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V134= vs_base[0];
	base[0]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[86]),V130,V131,V132,V133,V134));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T276;
T276:;
	if(!(((V124))==(Ct))){
	goto T294;}
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V135= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V136= vs_base[0];
	base[0]= ((object)VV[68]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V137= vs_base[0];
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V138= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V139= vs_base[0];
	base[0]= (VFUN_NARGS=9,(*(LnkLI761))(Cnil,((object)VV[87]),V135,(V125),(V126),V136,V137,V138,V139));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T294;
T294:;
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V140= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V141= vs_base[0];
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V142= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V143= vs_base[0];
	base[0]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[88]),V140,V141,(V126),V142,V143));
	vs_top=(vs_base=base+0)+1;
	return;}
}
/*	function definition for POINTS-ARRAY-2D	*/

static void L14()
{register object *base=vs_base;
	register object *sup=base+VM14; VC14
	vs_reserve(VM14);
	{object V144;
	check_arg(1);
	V144=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V145;
	object V146;
	object V147;
	object V148;
	object V149;
	object V150;
	object V151;
	object V152;
	object V153;
	object V154;
	object V155;
	V150= (*(LnkLI905))((V144));
	V145= ((object)VV[89]);
	V146= ((object)VV[90]);
	V147= ((object)VV[91]);
	V148= ((object)VV[92]);
	V149= small_fixnum(-1);
	V151= Cnil;
	V152= Cnil;
	V153= Cnil;
	V154= Cnil;
	V155= Cnil;
	if(!(((long)length((V150)))==((long)2))){
	goto T319;}
	if(!(immnum_eq(cadr((V150)),small_fixnum(2)))){
	goto T319;}
	V151= car((V150));
	V155= Ct;
	goto T317;
	goto T319;
T319:;
	if(!(((long)length((V150)))==((long)2))){
	goto T327;}
	if(!(immnum_eq(car((V150)),small_fixnum(2)))){
	goto T327;}
	V151= cadr((V150));
	V155= Cnil;
	goto T317;
	goto T327;
T327:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[93]))));
	goto T317;
T317:;
	V156= immnum_times(small_fixnum(2),(V151));
	V154= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V156,((object)VV[79]),((object)VV[80])));
	{object V158;
	V158= small_fixnum(0);
	goto T338;
T338:;
	if(!(immnum_ge((V158),V151))){
	goto T340;}
	goto T339;
	goto T340;
T340:;
	if(((V155))==Cnil){
	goto T346;}
	base[1]= (VFUN_NARGS=3,(*(LnkLI906))((V144),(V158),small_fixnum(0)));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V152= vs_base[0];
	base[1]= (VFUN_NARGS=3,(*(LnkLI906))((V144),(V158),small_fixnum(1)));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V153= vs_base[0];
	goto T344;
	goto T346;
T346:;
	base[1]= (VFUN_NARGS=3,(*(LnkLI906))((V144),small_fixnum(0),(V158)));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V152= vs_base[0];
	base[1]= (VFUN_NARGS=3,(*(LnkLI906))((V144),small_fixnum(1),(V158)));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V153= vs_base[0];
	goto T344;
T344:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T358;}
	{object V159;
	object V160;
	V159= (V152);
	V160= (V153);
	V152= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V159),(V160)));
	V153= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V159),(V160)));}
	goto T358;
T358:;
	if(!(type_of((V152))==t_fixnum||
type_of((V152))==t_bignum||
type_of((V152))==t_ratio||
type_of((V152))==t_shortfloat||
type_of((V152))==t_longfloat||
type_of((V152))==t_complex)){
	goto T364;}
	if(!(immnum_lt((V152),(V145)))){
	goto T367;}
	V145= (V152);
	goto T367;
T367:;
	if(!(immnum_gt((V152),(V146)))){
	goto T364;}
	V146= (V152);
	goto T364;
T364:;
	if(!(type_of((V153))==t_fixnum||
type_of((V153))==t_bignum||
type_of((V153))==t_ratio||
type_of((V153))==t_shortfloat||
type_of((V153))==t_longfloat||
type_of((V153))==t_complex)){
	goto T374;}
	if(!(immnum_lt((V153),(V147)))){
	goto T377;}
	V147= (V153);
	goto T377;
T377:;
	if(!(immnum_gt((V153),(V148)))){
	goto T374;}
	V148= (V153);
	goto T374;
T374:;
	V149= immnum_plus((V149),small_fixnum(1));
	(void)(aset1((V154),fixint((V149)),(V152)));
	V149= immnum_plus((V149),small_fixnum(1));
	(void)(aset1((V154),fixint((V149)),(V153)));
	V158= immnum_plus((V158),make_fixnum(1));
	goto T338;
	goto T339;
T339:;
	goto T336;}
	goto T336;
T336:;
	base[1]= (V145);
	base[2]= (V146);
	base[3]= (V147);
	base[4]= (V148);
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[1]= ((object)VV[74]);
	base[2]= ((object)VV[97]);
	base[3]= ((object)VV[76]);
	vs_base=vs_top;
	(void) (*Lnk909)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[77]);
	base[6]= ((object)VV[98]);
	base[7]= ((object)VV[78]);
	base[8]= make_cons((V154),Cnil);
	vs_top=(vs_base=base+1)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for POINTS-ARRAY-1D	*/

static void L15()
{register object *base=vs_base;
	register object *sup=base+VM15; VC15
	vs_reserve(VM15);
	{object V161;
	object V162;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>2) too_many_arguments();
	V161=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T402;}
	V162=(base[1]);
	vs_top=sup;
	goto T403;
	goto T402;
T402:;
	V162= Cnil;
	goto T403;
T403:;
	{object V163;
	object V164;
	object V165;
	object V166;
	object V167;
	object V168;
	object V169;
	object V170;
	object V171;
	object V172;
	object V173;
	object V174;
	V168= (*(LnkLI905))((V161));
	V163= ((object)VV[99]);
	V164= ((object)VV[100]);
	V165= ((object)VV[101]);
	V166= ((object)VV[102]);
	V167= small_fixnum(-1);
	V169= Cnil;
	V170= Cnil;
	V171= Cnil;
	V172= Cnil;
	V173= Cnil;
	V174= Cnil;
	if(((V162))!=Cnil){
	goto T408;}
	if(!(((long)length((V168)))==((long)1))){
	goto T408;}
	V169= car((V168));
	{object V176;
	V176= small_fixnum(1);
	{object V178;
	object V179;
	V178= make_cons(Cnil,Cnil);
	V179= (V178);
	goto T420;
T420:;
	if(!(immnum_gt((V176),V169))){
	goto T422;}
	goto T421;
	goto T422;
T422:;{object V180;
	V180= (V179);
	base[2]= (V176);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V181= vs_base[0];
	V179= make_cons(V181,Cnil);
	if(type_of(V180)!=t_cons)FEwrong_type_argument(Scons,V180);
	(V180)->c.c_cdr = SAFE_CDR((V179));}
	V176= immnum_plus((V176),make_fixnum(1));
	goto T420;
	goto T421;
T421:;
	V175= cdr((V178));
	goto T416;
	V175= Cnil;
	goto T416;}}
	goto T416;
T416:;
	V170= (VFUN_NARGS=5,(*(LnkLI272))((V169),((object)VV[79]),((object)VV[80]),((object)VV[81]),V175));
	{object V184;
	V184= small_fixnum(0);
	{object V185;
	object V186;
	V185= make_cons(Cnil,Cnil);
	V186= (V185);
	goto T437;
T437:;
	if(!(immnum_ge((V184),V169))){
	goto T439;}
	goto T438;
	goto T439;
T439:;{object V187;
	V187= (V186);
	base[2]= fLrow_major_aref((V161),fixint((V184)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V188= vs_base[0];
	V186= make_cons(V188,Cnil);
	if(type_of(V187)!=t_cons)FEwrong_type_argument(Scons,V187);
	(V187)->c.c_cdr = SAFE_CDR((V186));}
	V184= immnum_plus((V184),make_fixnum(1));
	goto T437;
	goto T438;
T438:;
	V182= cdr((V185));
	goto T433;
	V182= Cnil;
	goto T433;}}
	goto T433;
T433:;
	V171= (VFUN_NARGS=5,(*(LnkLI272))((V169),((object)VV[79]),((object)VV[80]),((object)VV[81]),V182));
	goto T406;
	goto T408;
T408:;
	if(!(type_of((V162))==t_array||
type_of((V162))==t_vector||
type_of((V162))==t_string||
type_of((V162))==t_bitvector)){
	goto T450;}
	if(!(((long)length((V168)))==((long)1))){
	goto T450;}
	V189= (*(LnkLI905))((V162));
	if(!(equal((V168),/* INLINE-ARGS */V189))){
	goto T450;}
	V169= car((V168));
	V170= (V161);
	V171= (V162);
	goto T406;
	goto T450;
T450:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[103]))));
	goto T406;
T406:;
	V190= immnum_times(small_fixnum(2),(V169));
	V174= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V190,((object)VV[79]),((object)VV[80])));
	{object V192;
	V192= small_fixnum(0);
	goto T465;
T465:;
	if(!(immnum_ge((V192),V169))){
	goto T467;}
	goto T466;
	goto T467;
T467:;
	base[2]= fLrow_major_aref((V170),fixint((V192)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V172= vs_base[0];
	base[2]= fLrow_major_aref((V171),fixint((V192)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V173= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T477;}
	{object V193;
	object V194;
	V193= (V172);
	V194= (V173);
	V172= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V193),(V194)));
	V173= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V193),(V194)));}
	goto T477;
T477:;
	if(!(type_of((V172))==t_fixnum||
type_of((V172))==t_bignum||
type_of((V172))==t_ratio||
type_of((V172))==t_shortfloat||
type_of((V172))==t_longfloat||
type_of((V172))==t_complex)){
	goto T483;}
	if(!(immnum_lt((V172),(V163)))){
	goto T486;}
	V163= (V172);
	goto T486;
T486:;
	if(!(immnum_gt((V172),(V164)))){
	goto T483;}
	V164= (V172);
	goto T483;
T483:;
	if(!(type_of((V173))==t_fixnum||
type_of((V173))==t_bignum||
type_of((V173))==t_ratio||
type_of((V173))==t_shortfloat||
type_of((V173))==t_longfloat||
type_of((V173))==t_complex)){
	goto T493;}
	if(!(immnum_lt((V173),(V165)))){
	goto T496;}
	V165= (V173);
	goto T496;
T496:;
	if(!(immnum_gt((V173),(V166)))){
	goto T493;}
	V166= (V173);
	goto T493;
T493:;
	V167= immnum_plus((V167),small_fixnum(1));
	(void)(aset1((V174),fixint((V167)),(V172)));
	V167= immnum_plus((V167),small_fixnum(1));
	(void)(aset1((V174),fixint((V167)),(V173)));
	V192= immnum_plus((V192),make_fixnum(1));
	goto T465;
	goto T466;
T466:;
	goto T463;}
	goto T463;
T463:;
	base[2]= (V163);
	base[3]= (V164);
	base[4]= (V165);
	base[5]= (V166);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[97]);
	base[4]= ((object)VV[76]);
	vs_base=vs_top;
	(void) (*Lnk909)();
	vs_top=sup;
	base[5]= vs_base[0];
	base[6]= ((object)VV[77]);
	base[7]= ((object)VV[104]);
	base[8]= ((object)VV[78]);
	base[9]= make_cons((V174),Cnil);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for POINTS-LIST	*/

static void L16()
{register object *base=vs_base;
	register object *sup=base+VM16; VC16
	vs_reserve(VM16);
	{object V195;
	object V196;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>2) too_many_arguments();
	V195=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T521;}
	V196=(base[1]);
	vs_top=sup;
	goto T522;
	goto T521;
T521:;
	V196= Cnil;
	goto T522;
T522:;
	{object V197;
	object V198;
	object V199;
	object V200;
	object V201;
	object V202;
	object V203;
	V197= Cnil;
	V198= Cnil;
	V199= Cnil;
	V200= Cnil;
	V201= Cnil;
	V202= Cnil;
	V203= Cnil;
	if(((*(LnkLI893))((V195)))==Cnil){
	goto T526;}
	if(((V196))!=Cnil){
	goto T526;}
	V204= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V204,cdr((V195)))))==Cnil){
	goto T526;}
	{object V205;
	{object V206;
	object V207= cdr((V195));
	if(endp(V207)){
	V205= Cnil;
	goto T533;}
	base[2]=V206=MMcons(Cnil,Cnil);
	goto T534;
T534:;
	(V206->c.c_car)= cdr((V207->c.c_car));
	V207=MMcdr(V207);
	if(endp(V207)){
	V205= base[2];
	goto T533;}
	V206=MMcdr(V206)=MMcons(Cnil,Cnil);
	goto T534;}
	goto T533;
T533:;
	V208= symbol_function(((object)VV[900]));
	V209= symbol_function(((object)VV[21]));
	V210= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V209,(V205)));
	V197= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V208,/* INLINE-ARGS */V210));
	V211= symbol_function(((object)VV[900]));
	V212= symbol_function(((object)VV[23]));
	V213= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V212,(V205)));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V211,/* INLINE-ARGS */V213));
	goto T524;}
	goto T526;
T526:;
	if(((*(LnkLI911))((V195)))==Cnil){
	goto T544;}
	if(!(((long)length(cadr((V195))))==((long)3))){
	goto T544;}
	if(((V196))!=Cnil){
	goto T544;}
	{object V214;
	{object V215;
	object V216= cdr((V195));
	if(endp(V216)){
	V214= Cnil;
	goto T550;}
	base[2]=V215=MMcons(Cnil,Cnil);
	goto T551;
T551:;
	(V215->c.c_car)= cdr((V216->c.c_car));
	V216=MMcdr(V216);
	if(endp(V216)){
	V214= base[2];
	goto T550;}
	V215=MMcdr(V215)=MMcons(Cnil,Cnil);
	goto T551;}
	goto T550;
T550:;
	V217= symbol_function(((object)VV[900]));
	V218= symbol_function(((object)VV[21]));
	V219= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V218,(V214)));
	V197= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V217,/* INLINE-ARGS */V219));
	V220= symbol_function(((object)VV[900]));
	V221= symbol_function(((object)VV[23]));
	V222= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V221,(V214)));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V220,/* INLINE-ARGS */V222));
	goto T524;}
	goto T544;
T544:;
	if(((*(LnkLI893))((V195)))==Cnil){
	goto T561;}
	if(((V196))!=Cnil){
	goto T561;}
	V223= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI912))(V223,cdr((V195)))))==Cnil){
	goto T561;}
	{object V224;
	object V225;
	V225= make_fixnum((long)(length(cdr((V195)))));
	V224= small_fixnum(1);
	{object V226;
	object V227;
	V226= make_cons(Cnil,Cnil);
	V227= (V226);
	goto T574;
T574:;
	if(!(immnum_gt((V224),(V225)))){
	goto T576;}
	goto T575;
	goto T576;
T576:;{object V228;
	V228= (V227);
	base[2]= (V224);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V229= vs_base[0];
	V227= make_cons(V229,Cnil);
	if(type_of(V228)!=t_cons)FEwrong_type_argument(Scons,V228);
	(V228)->c.c_cdr = SAFE_CDR((V227));}
	V224= immnum_plus((V224),make_fixnum(1));
	goto T574;
	goto T575;
T575:;
	V197= cdr((V226));
	goto T569;
	V197= Cnil;
	goto T569;}}
	goto T569;
T569:;
	V230= symbol_function(((object)VV[900]));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V230,cdr((V195))));
	goto T524;
	goto T561;
T561:;
	if(((*(LnkLI911))((V195)))==Cnil){
	goto T589;}
	if(!(((long)length(cadr((V195))))==((long)2))){
	goto T589;}
	if(((V196))!=Cnil){
	goto T589;}
	{object V231;
	object V232;
	V232= make_fixnum((long)(length(cdr((V195)))));
	V231= small_fixnum(1);
	{object V233;
	object V234;
	V233= make_cons(Cnil,Cnil);
	V234= (V233);
	goto T601;
T601:;
	if(!(immnum_gt((V231),(V232)))){
	goto T603;}
	goto T602;
	goto T603;
T603:;{object V235;
	V235= (V234);
	base[2]= (V231);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V236= vs_base[0];
	V234= make_cons(V236,Cnil);
	if(type_of(V235)!=t_cons)FEwrong_type_argument(Scons,V235);
	(V235)->c.c_cdr = SAFE_CDR((V234));}
	V231= immnum_plus((V231),make_fixnum(1));
	goto T601;
	goto T602;
T602:;
	V197= cdr((V233));
	goto T596;
	V197= Cnil;
	goto T596;}}
	goto T596;
T596:;
	V237= symbol_function(((object)VV[900]));
	V238= symbol_function(((object)VV[23]));
	V239= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V238,cdr((V195))));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V237,/* INLINE-ARGS */V239));
	goto T524;
	goto T589;
T589:;
	if(((*(LnkLI911))((V195)))==Cnil){
	goto T617;}
	V240= (*(LnkLI913))((V195));
	if(!(immnum_eq(/* INLINE-ARGS */V240,small_fixnum(1)))){
	goto T617;}
	if(((V196))!=Cnil){
	goto T617;}
	{object V241;
	object V242;
	V242= make_fixnum((long)(length(cdadr((V195)))));
	V241= small_fixnum(1);
	{object V243;
	object V244;
	V243= make_cons(Cnil,Cnil);
	V244= (V243);
	goto T629;
T629:;
	if(!(immnum_gt((V241),(V242)))){
	goto T631;}
	goto T630;
	goto T631;
T631:;{object V245;
	V245= (V244);
	base[2]= (V241);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V246= vs_base[0];
	V244= make_cons(V246,Cnil);
	if(type_of(V245)!=t_cons)FEwrong_type_argument(Scons,V245);
	(V245)->c.c_cdr = SAFE_CDR((V244));}
	V241= immnum_plus((V241),make_fixnum(1));
	goto T629;
	goto T630;
T630:;
	V197= cdr((V243));
	goto T624;
	V197= Cnil;
	goto T624;}}
	goto T624;
T624:;
	V247= symbol_function(((object)VV[900]));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V247,cdadr((V195))));
	goto T524;
	goto T617;
T617:;
	if(((*(LnkLI893))((V195)))==Cnil){
	goto T644;}
	if(((*(LnkLI893))((V196)))==Cnil){
	goto T644;}
	if(!(((long)length((V195)))==((long)length((V196))))){
	goto T644;}
	V248= symbol_function(((object)VV[900]));
	V197= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V248,cdr((V195))));
	V249= symbol_function(((object)VV[900]));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V249,cdr((V196))));
	goto T524;
	goto T644;
T644:;
	if(((*(LnkLI911))((V195)))==Cnil){
	goto T656;}
	V250= (*(LnkLI913))((V195));
	if(!(immnum_eq(/* INLINE-ARGS */V250,small_fixnum(2)))){
	goto T656;}
	if(((V196))!=Cnil){
	goto T656;}
	V251= symbol_function(((object)VV[900]));
	V197= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V251,cdadr((V195))));
	V252= symbol_function(((object)VV[900]));
	V198= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V252,cdaddr((V195))));
	goto T524;
	goto T656;
T656:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[105]))));
	goto T524;
T524:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T667;}
	{object V253;
	object V254;
	V253= (V197);
	V254= (V198);
	{object V255;
	object V256= (V253);
	object V257= (V254);
	if(endp(V256)||endp(V257)){
	V197= Cnil;
	goto T671;}
	base[2]=V255=MMcons(Cnil,Cnil);
	goto T672;
T672:;
	base[3]= (V256->c.c_car);
	base[4]= (V257->c.c_car);
	vs_top=(vs_base=base+3)+2;
	{object _funobj = symbol_value(((object)VV[95]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V255->c.c_car)= vs_base[0];
	V256=MMcdr(V256);
	V257=MMcdr(V257);
	if(endp(V256)||endp(V257)){
	V197= base[2];
	goto T671;}
	V255=MMcdr(V255)=MMcons(Cnil,Cnil);
	goto T672;}
	goto T671;
T671:;
	{object V260;
	object V261= (V253);
	object V262= (V254);
	if(endp(V261)||endp(V262)){
	V198= Cnil;
	goto T676;}
	base[2]=V260=MMcons(Cnil,Cnil);
	goto T677;
T677:;
	base[3]= (V261->c.c_car);
	base[4]= (V262->c.c_car);
	vs_top=(vs_base=base+3)+2;
	{object _funobj = symbol_value(((object)VV[96]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V260->c.c_car)= vs_base[0];
	V261=MMcdr(V261);
	V262=MMcdr(V262);
	if(endp(V261)||endp(V262)){
	V198= base[2];
	goto T676;}
	V260=MMcdr(V260)=MMcons(Cnil,Cnil);
	goto T677;}
	goto T676;
T676:;}
	goto T667;
T667:;
	V265= make_cons(((object)VV[106]),(V197));
	V199= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V265));
	V266= make_cons(((object)VV[107]),(V197));
	V200= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V266));
	V267= make_cons(((object)VV[108]),(V198));
	V201= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V267));
	V268= make_cons(((object)VV[109]),(V198));
	V202= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V268));
	V269 = make_fixnum((long)(length((V197))));
	V270= immnum_times(small_fixnum(2),V269);
	{object V272;
	object V273= (V197);
	object V274= (V198);
	if(endp(V273)||endp(V274)){
	V271= Cnil;
	goto T691;}
	base[2]=V272=MMcons(Cnil,Cnil);
	goto T692;
T692:;
	(V272->c.c_cdr)= list(2,(V273->c.c_car),(V274->c.c_car));
	{object cdr_V272=MMcdr(V272);while(!endp(cdr_V272)) {cdr_V272=MMcdr(cdr_V272);V272=MMcdr(V272);}}
	V273=MMcdr(V273);
	V274=MMcdr(V274);
	if(endp(V273)||endp(V274)){
	base[2]=base[2]->c.c_cdr;
	V271= base[2];
	goto T691;}
	goto T692;}
	goto T691;
T691:;
	V203= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V270,((object)VV[79]),((object)VV[80]),((object)VV[81]),V271));
	base[2]= (V199);
	base[3]= (V200);
	base[4]= (V201);
	base[5]= (V202);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[97]);
	base[4]= ((object)VV[76]);
	vs_base=vs_top;
	(void) (*Lnk909)();
	vs_top=sup;
	base[5]= vs_base[0];
	base[6]= ((object)VV[77]);
	base[7]= ((object)VV[110]);
	base[8]= ((object)VV[78]);
	base[9]= make_cons((V203),Cnil);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for POINTS	*/

static void L17()
{register object *base=vs_base;
	register object *sup=base+VM17; VC17
	vs_reserve(VM17);
	{register object V275;
	object V276;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>2) too_many_arguments();
	V275=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T707;}
	V276=(base[1]);
	vs_top=sup;
	goto T708;
	goto T707;
T707:;
	V276= Cnil;
	goto T708;
T708:;
	if(!(type_of((V275))==t_array||
type_of((V275))==t_vector||
type_of((V275))==t_string||
type_of((V275))==t_bitvector)){
	goto T711;}
	V277= (*(LnkLI905))((V275));
	if(!(((long)length(/* INLINE-ARGS */V277))==((long)2))){
	goto T714;}
	base[2]= (V275);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk914)();
	return;
	goto T714;
T714:;
	base[2]= (V275);
	base[3]= (V276);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk915)();
	return;
	goto T711;
T711:;
	base[2]= (V275);
	base[3]= (V276);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk916)();
	return;
	}
}
/*	function definition for POINTS3D-COMMAND	*/

static void L18()
{register object *base=vs_base;
	register object *sup=base+VM18; VC18
	vs_reserve(VM18);
	check_arg(0);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V278;
	object V279;
	object V280;
	object V281;
	base[0]= ((object)VV[47]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V278= vs_base[0];
	base[0]= ((object)VV[82]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V279= vs_base[0];
	base[0]= ((object)VV[83]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V280= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T729;}
	V281= ((object)VV[112]);
	goto T727;
	goto T729;
T729:;
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V281= vs_base[0];
	goto T727;
T727:;
	if(((V278))!=Cnil){
	goto T734;}
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V282= vs_base[0];
	base[0]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[113]),V282,(V279),(V280),(V281)));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T734;
T734:;
	if(!(((V278))==(Ct))){
	goto T740;}
	if(immnum_eq((V279),((object)VV[114]))){
	goto T739;}
	if(!(immnum_eq((V280),small_fixnum(0)))){
	goto T740;}
	goto T739;
T739:;
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V283= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V284= vs_base[0];
	base[0]= ((object)VV[68]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V285= vs_base[0];
	base[1]= ((object)VV[69]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V286= vs_base[0];
	base[0]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[115]),V283,V284,V285,V286));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T740;
T740:;
	if(!(((V278))==(Ct))){
	goto T757;}
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V287= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V288= vs_base[0];
	base[0]= ((object)VV[68]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V289= vs_base[0];
	base[0]= (VFUN_NARGS=8,(*(LnkLI761))(Cnil,((object)VV[116]),V287,(V279),(V280),V288,V289,(V281)));
	vs_top=(vs_base=base+0)+1;
	return;
	goto T757;
T757:;
	base[1]= ((object)VV[63]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V290= vs_base[0];
	base[0]= ((object)VV[67]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V291= vs_base[0];
	base[0]= ((object)VV[68]);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V292= vs_base[0];
	base[0]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[117]),V290,V291,V292,(V281)));
	vs_top=(vs_base=base+0)+1;
	return;}
}
/*	function definition for POINTS3D	*/

static void L19()
{register object *base=vs_base;
	register object *sup=base+VM19; VC19
	vs_reserve(VM19);
	{object V293;
	object V294;
	object V295;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>3) too_many_arguments();
	V293=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T773;}
	V294=(base[1]);
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T774;}
	V295=(base[2]);
	vs_top=sup;
	goto T775;
	goto T773;
T773:;
	V294= Cnil;
	goto T774;
T774:;
	V295= Cnil;
	goto T775;
T775:;
	{object V296;
	object V297;
	object V298;
	object V299;
	object V300;
	object V301;
	object V302;
	object V303;
	object V304;
	object V305;
	object V306;
	object V307;
	V296= Cnil;
	V297= Cnil;
	V298= Cnil;
	V299= Cnil;
	V300= Cnil;
	V301= Cnil;
	V302= Cnil;
	V303= Cnil;
	V304= Cnil;
	V305= Cnil;
	V306= Cnil;
	V307= Cnil;
	base[3]= ((object)VV[118]);
	base[4]= ((object)VV[119]);
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(((*(LnkLI893))((V293)))==Cnil){
	goto T783;}
	V308= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V308,cdr((V293)))))==Cnil){
	goto T786;}
	if(((V294))!=Cnil){
	goto T786;}
	if(((V295))!=Cnil){
	goto T786;}
	{object V309;
	{object V310;
	object V311= cdr((V293));
	if(endp(V311)){
	V309= Cnil;
	goto T793;}
	base[3]=V310=MMcons(Cnil,Cnil);
	goto T794;
T794:;
	(V310->c.c_car)= cdr((V311->c.c_car));
	V311=MMcdr(V311);
	if(endp(V311)){
	V309= base[3];
	goto T793;}
	V310=MMcdr(V310)=MMcons(Cnil,Cnil);
	goto T794;}
	goto T793;
T793:;
	V312= symbol_function(((object)VV[900]));
	V313= symbol_function(((object)VV[21]));
	V314= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V313,(V309)));
	V297= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V312,/* INLINE-ARGS */V314));
	V315= symbol_function(((object)VV[900]));
	V316= symbol_function(((object)VV[23]));
	V317= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V316,(V309)));
	V298= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V315,/* INLINE-ARGS */V317));
	V318= symbol_function(((object)VV[900]));
	V319= symbol_function(((object)VV[918]));
	V320= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V319,(V309)));
	V299= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V318,/* INLINE-ARGS */V320));
	goto T781;}
	goto T786;
T786:;
	if(((*(LnkLI893))((V294)))==Cnil){
	goto T808;}
	if(((*(LnkLI893))((V295)))==Cnil){
	goto T808;}
	base[3]= make_fixnum((long)(length((V293))));
	base[4]= make_fixnum((long)(length((V294))));
	base[5]= make_fixnum((long)(length((V295))));
	vs_top=(vs_base=base+3)+3;
	Lall_the_same();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T808;}
	V321= symbol_function(((object)VV[900]));
	V297= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V321,cdr((V293))));
	V322= symbol_function(((object)VV[900]));
	V298= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V322,cdr((V294))));
	V323= symbol_function(((object)VV[900]));
	V299= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V323,cdr((V295))));
	goto T781;
	goto T808;
T808:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[120]))));
	goto T781;
	goto T783;
T783:;
	if(((*(LnkLI911))((V293)))==Cnil){
	goto T826;}
	if(!(((long)length(cadr((V293))))==((long)4))){
	goto T829;}
	if(((V294))!=Cnil){
	goto T829;}
	if(((V295))!=Cnil){
	goto T829;}
	{object V324;
	{object V325;
	object V326= cdr((V293));
	if(endp(V326)){
	V324= Cnil;
	goto T835;}
	base[3]=V325=MMcons(Cnil,Cnil);
	goto T836;
T836:;
	(V325->c.c_car)= cdr((V326->c.c_car));
	V326=MMcdr(V326);
	if(endp(V326)){
	V324= base[3];
	goto T835;}
	V325=MMcdr(V325)=MMcons(Cnil,Cnil);
	goto T836;}
	goto T835;
T835:;
	V327= symbol_function(((object)VV[900]));
	V328= symbol_function(((object)VV[21]));
	V329= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V328,(V324)));
	V297= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V327,/* INLINE-ARGS */V329));
	V330= symbol_function(((object)VV[900]));
	V331= symbol_function(((object)VV[23]));
	V332= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V331,(V324)));
	V298= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V330,/* INLINE-ARGS */V332));
	V333= symbol_function(((object)VV[900]));
	V334= symbol_function(((object)VV[918]));
	V335= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V334,(V324)));
	V299= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V333,/* INLINE-ARGS */V335));
	goto T781;}
	goto T829;
T829:;
	V336= (*(LnkLI913))((V293));
	if(!(immnum_eq(/* INLINE-ARGS */V336,small_fixnum(3)))){
	goto T850;}
	if(((V294))!=Cnil){
	goto T850;}
	if(((V295))!=Cnil){
	goto T850;}
	V337= symbol_function(((object)VV[900]));
	V297= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V337,cdadr((V293))));
	V338= symbol_function(((object)VV[900]));
	V298= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V338,cdaddr((V293))));
	V339= symbol_function(((object)VV[900]));
	V299= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V339,cdaddr(cdr((V293)))));
	goto T781;
	goto T850;
T850:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[121]))));
	goto T781;
	goto T826;
T826:;
	if(!(type_of((V293))==t_array||
type_of((V293))==t_vector||
type_of((V293))==t_string||
type_of((V293))==t_bitvector)){
	goto T865;}
	{object V340;
	V340= (*(LnkLI905))((V293));
	if(!(((long)length((V340)))==((long)2))){
	goto T869;}
	if(!(immnum_eq(car((V340)),small_fixnum(3)))){
	goto T869;}
	if(((V294))!=Cnil){
	goto T869;}
	if(((V295))!=Cnil){
	goto T869;}
	{object V341;
	object V342;
	V342= cadr((V340));
	V341= small_fixnum(0);
	{object V343;
	object V344;
	V343= make_cons(Cnil,Cnil);
	V344= (V343);
	goto T883;
T883:;
	if(!(immnum_ge((V341),(V342)))){
	goto T885;}
	goto T884;
	goto T885;
T885:;{object V345;
	V345= (V344);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),small_fixnum(0),(V341)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V346= vs_base[0];
	V344= make_cons(V346,Cnil);
	if(type_of(V345)!=t_cons)FEwrong_type_argument(Scons,V345);
	(V345)->c.c_cdr = SAFE_CDR((V344));}
	V341= immnum_plus((V341),make_fixnum(1));
	goto T883;
	goto T884;
T884:;
	V297= cdr((V343));
	goto T878;
	V297= Cnil;
	goto T878;}}
	goto T878;
T878:;
	{object V347;
	object V348;
	V348= cadr((V340));
	V347= small_fixnum(0);
	{object V349;
	object V350;
	V349= make_cons(Cnil,Cnil);
	V350= (V349);
	goto T901;
T901:;
	if(!(immnum_ge((V347),(V348)))){
	goto T903;}
	goto T902;
	goto T903;
T903:;{object V351;
	V351= (V350);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),small_fixnum(1),(V347)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V352= vs_base[0];
	V350= make_cons(V352,Cnil);
	if(type_of(V351)!=t_cons)FEwrong_type_argument(Scons,V351);
	(V351)->c.c_cdr = SAFE_CDR((V350));}
	V347= immnum_plus((V347),make_fixnum(1));
	goto T901;
	goto T902;
T902:;
	V298= cdr((V349));
	goto T896;
	V298= Cnil;
	goto T896;}}
	goto T896;
T896:;
	{object V353;
	object V354;
	V354= cadr((V340));
	V353= small_fixnum(0);
	{object V355;
	object V356;
	V355= make_cons(Cnil,Cnil);
	V356= (V355);
	goto T918;
T918:;
	if(!(immnum_ge((V353),(V354)))){
	goto T920;}
	goto T919;
	goto T920;
T920:;{object V357;
	V357= (V356);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),small_fixnum(2),(V353)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V358= vs_base[0];
	V356= make_cons(V358,Cnil);
	if(type_of(V357)!=t_cons)FEwrong_type_argument(Scons,V357);
	(V357)->c.c_cdr = SAFE_CDR((V356));}
	V353= immnum_plus((V353),make_fixnum(1));
	goto T918;
	goto T919;
T919:;
	V299= cdr((V355));
	goto T913;
	V299= Cnil;
	goto T913;}}
	goto T913;
T913:;
	goto T781;
	goto T869;
T869:;
	if(!(((long)length((V340)))==((long)2))){
	goto T931;}
	if(!(immnum_eq(cadr((V340)),small_fixnum(3)))){
	goto T931;}
	if(((V294))!=Cnil){
	goto T931;}
	if(((V295))!=Cnil){
	goto T931;}
	{object V359;
	object V360;
	V360= car((V340));
	V359= small_fixnum(0);
	{object V361;
	object V362;
	V361= make_cons(Cnil,Cnil);
	V362= (V361);
	goto T945;
T945:;
	if(!(immnum_ge((V359),(V360)))){
	goto T947;}
	goto T946;
	goto T947;
T947:;{object V363;
	V363= (V362);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),(V359),small_fixnum(0)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V364= vs_base[0];
	V362= make_cons(V364,Cnil);
	if(type_of(V363)!=t_cons)FEwrong_type_argument(Scons,V363);
	(V363)->c.c_cdr = SAFE_CDR((V362));}
	V359= immnum_plus((V359),make_fixnum(1));
	goto T945;
	goto T946;
T946:;
	V297= cdr((V361));
	goto T940;
	V297= Cnil;
	goto T940;}}
	goto T940;
T940:;
	{object V365;
	object V366;
	V366= car((V340));
	V365= small_fixnum(0);
	{object V367;
	object V368;
	V367= make_cons(Cnil,Cnil);
	V368= (V367);
	goto T963;
T963:;
	if(!(immnum_ge((V365),(V366)))){
	goto T965;}
	goto T964;
	goto T965;
T965:;{object V369;
	V369= (V368);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),(V365),small_fixnum(1)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V370= vs_base[0];
	V368= make_cons(V370,Cnil);
	if(type_of(V369)!=t_cons)FEwrong_type_argument(Scons,V369);
	(V369)->c.c_cdr = SAFE_CDR((V368));}
	V365= immnum_plus((V365),make_fixnum(1));
	goto T963;
	goto T964;
T964:;
	V298= cdr((V367));
	goto T958;
	V298= Cnil;
	goto T958;}}
	goto T958;
T958:;
	{object V371;
	object V372;
	V372= car((V340));
	V371= small_fixnum(0);
	{object V373;
	object V374;
	V373= make_cons(Cnil,Cnil);
	V374= (V373);
	goto T980;
T980:;
	if(!(immnum_ge((V371),(V372)))){
	goto T982;}
	goto T981;
	goto T982;
T982:;{object V375;
	V375= (V374);
	base[3]= (VFUN_NARGS=3,(*(LnkLI906))((V293),(V371),small_fixnum(2)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V376= vs_base[0];
	V374= make_cons(V376,Cnil);
	if(type_of(V375)!=t_cons)FEwrong_type_argument(Scons,V375);
	(V375)->c.c_cdr = SAFE_CDR((V374));}
	V371= immnum_plus((V371),make_fixnum(1));
	goto T980;
	goto T981;
T981:;
	V299= cdr((V373));
	goto T975;
	V299= Cnil;
	goto T975;}}
	goto T975;
T975:;
	goto T781;
	goto T931;
T931:;
	if(!(((long)length((V340)))==((long)1))){
	goto T993;}
	if(!(type_of((V294))==t_array||
type_of((V294))==t_vector||
type_of((V294))==t_string||
type_of((V294))==t_bitvector)){
	goto T993;}
	if(!(type_of((V295))==t_array||
type_of((V295))==t_vector||
type_of((V295))==t_string||
type_of((V295))==t_bitvector)){
	goto T993;}
	V377= (*(LnkLI905))((V294));
	if(!(equal((V340),/* INLINE-ARGS */V377))){
	goto T993;}
	V378= (*(LnkLI905))((V295));
	if(!(equal((V340),/* INLINE-ARGS */V378))){
	goto T993;}
	V379= symbol_function(((object)VV[900]));
	V297= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V379,(V293)));
	V380= symbol_function(((object)VV[900]));
	V298= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V380,(V294)));
	V381= symbol_function(((object)VV[900]));
	V299= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V381,(V295)));
	goto T781;
	goto T993;
T993:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[122]))));
	goto T781;}
	goto T865;
T865:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[123]))));
	goto T781;
T781:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T1011;}
	{object V382;
	object V383;
	object V384;
	V382= (V297);
	V383= (V298);
	V384= (V299);
	{object V385;
	object V386= (V382);
	object V387= (V383);
	object V388= (V384);
	if(endp(V386)||endp(V387)||endp(V388)){
	V297= Cnil;
	goto T1015;}
	base[3]=V385=MMcons(Cnil,Cnil);
	goto T1016;
T1016:;
	base[4]= (V386->c.c_car);
	base[5]= (V387->c.c_car);
	base[6]= (V388->c.c_car);
	vs_top=(vs_base=base+4)+3;
	{object _funobj = symbol_value(((object)VV[95]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V385->c.c_car)= vs_base[0];
	V386=MMcdr(V386);
	V387=MMcdr(V387);
	V388=MMcdr(V388);
	if(endp(V386)||endp(V387)||endp(V388)){
	V297= base[3];
	goto T1015;}
	V385=MMcdr(V385)=MMcons(Cnil,Cnil);
	goto T1016;}
	goto T1015;
T1015:;
	{object V392;
	object V393= (V382);
	object V394= (V383);
	object V395= (V384);
	if(endp(V393)||endp(V394)||endp(V395)){
	V298= Cnil;
	goto T1022;}
	base[3]=V392=MMcons(Cnil,Cnil);
	goto T1023;
T1023:;
	base[4]= (V393->c.c_car);
	base[5]= (V394->c.c_car);
	base[6]= (V395->c.c_car);
	vs_top=(vs_base=base+4)+3;
	{object _funobj = symbol_value(((object)VV[96]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V392->c.c_car)= vs_base[0];
	V393=MMcdr(V393);
	V394=MMcdr(V394);
	V395=MMcdr(V395);
	if(endp(V393)||endp(V394)||endp(V395)){
	V298= base[3];
	goto T1022;}
	V392=MMcdr(V392)=MMcons(Cnil,Cnil);
	goto T1023;}
	goto T1022;
T1022:;
	{object V399;
	object V400= (V382);
	object V401= (V383);
	object V402= (V384);
	if(endp(V400)||endp(V401)||endp(V402)){
	V299= Cnil;
	goto T1028;}
	base[3]=V399=MMcons(Cnil,Cnil);
	goto T1029;
T1029:;
	base[4]= (V400->c.c_car);
	base[5]= (V401->c.c_car);
	base[6]= (V402->c.c_car);
	vs_top=(vs_base=base+4)+3;
	{object _funobj = symbol_value(((object)VV[124]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V399->c.c_car)= vs_base[0];
	V400=MMcdr(V400);
	V401=MMcdr(V401);
	V402=MMcdr(V402);
	if(endp(V400)||endp(V401)||endp(V402)){
	V299= base[3];
	goto T1028;}
	V399=MMcdr(V399)=MMcons(Cnil,Cnil);
	goto T1029;}
	goto T1028;
T1028:;}
	goto T1011;
T1011:;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T1036;}
	V306= small_fixnum(3);
	V406 = make_fixnum((long)(length((V297))));
	V407= immnum_times((V306),V406);
	{object V409;
	object V410= (V297);
	object V411= (V298);
	object V412= (V299);
	if(endp(V410)||endp(V411)||endp(V412)){
	V408= Cnil;
	goto T1041;}
	base[3]=V409=MMcons(Cnil,Cnil);
	goto T1042;
T1042:;
	(V409->c.c_cdr)= list(3,(V410->c.c_car),(V411->c.c_car),(V412->c.c_car));
	{object cdr_V409=MMcdr(V409);while(!endp(cdr_V409)) {cdr_V409=MMcdr(cdr_V409);V409=MMcdr(V409);}}
	V410=MMcdr(V410);
	V411=MMcdr(V411);
	V412=MMcdr(V412);
	if(endp(V410)||endp(V411)||endp(V412)){
	base[3]=base[3]->c.c_cdr;
	V408= base[3];
	goto T1041;}
	goto T1042;}
	goto T1041;
T1041:;
	V296= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V407,((object)VV[79]),((object)VV[80]),((object)VV[81]),V408));
	goto T1034;
	goto T1036;
T1036:;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(1)))){
	goto T1045;}
	{object V413;
	object V414;
	V414= make_fixnum((long)(length((V297))));
	V413= small_fixnum(1);
	{object V415;
	object V416;
	V415= make_cons(Cnil,Cnil);
	V416= (V415);
	goto T1053;
T1053:;
	if(!(immnum_gt((V413),(V414)))){
	goto T1055;}
	goto T1054;
	goto T1055;
T1055:;{object V417;
	V417= (V416);
	base[3]= (V413);
	vs_top=(vs_base=base+3)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V418= vs_base[0];
	V416= make_cons(V418,Cnil);
	if(type_of(V417)!=t_cons)FEwrong_type_argument(Scons,V417);
	(V417)->c.c_cdr = SAFE_CDR((V416));}
	V413= immnum_plus((V413),make_fixnum(1));
	goto T1053;
	goto T1054;
T1054:;
	V307= cdr((V415));
	goto T1048;
	V307= Cnil;
	goto T1048;}}
	goto T1048;
T1048:;
	V306= small_fixnum(4);
	V419 = make_fixnum((long)(length((V297))));
	V420= immnum_times((V306),V419);
	{object V422;
	object V423= (V297);
	object V424= (V298);
	object V425= (V299);
	object V426= (V307);
	if(endp(V423)||endp(V424)||endp(V425)||endp(V426)){
	V421= Cnil;
	goto T1068;}
	base[3]=V422=MMcons(Cnil,Cnil);
	goto T1069;
T1069:;
	(V422->c.c_cdr)= list(4,(V423->c.c_car),(V424->c.c_car),(V425->c.c_car),(V426->c.c_car));
	{object cdr_V422=MMcdr(V422);while(!endp(cdr_V422)) {cdr_V422=MMcdr(cdr_V422);V422=MMcdr(V422);}}
	V423=MMcdr(V423);
	V424=MMcdr(V424);
	V425=MMcdr(V425);
	V426=MMcdr(V426);
	if(endp(V423)||endp(V424)||endp(V425)||endp(V426)){
	base[3]=base[3]->c.c_cdr;
	V421= base[3];
	goto T1068;}
	goto T1069;}
	goto T1068;
T1068:;
	V296= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V420,((object)VV[79]),((object)VV[80]),((object)VV[81]),V421));
	goto T1034;
	goto T1045;
T1045:;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(3)))){
	goto T1034;}
	{object V427;
	object V428= (V297);
	object V429= (V298);
	object V430= (V299);
	if(endp(V428)||endp(V429)||endp(V430)){
	V307= Cnil;
	goto T1074;}
	base[3]=V427=MMcons(Cnil,Cnil);
	goto T1075;
T1075:;
	base[4]= (V428->c.c_car);
	base[5]= (V429->c.c_car);
	base[6]= (V430->c.c_car);
	vs_top=(vs_base=base+4)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V427->c.c_car)= vs_base[0];
	V428=MMcdr(V428);
	V429=MMcdr(V429);
	V430=MMcdr(V430);
	if(endp(V428)||endp(V429)||endp(V430)){
	V307= base[3];
	goto T1074;}
	V427=MMcdr(V427)=MMcons(Cnil,Cnil);
	goto T1075;}
	goto T1074;
T1074:;
	V306= small_fixnum(4);
	V434 = make_fixnum((long)(length((V297))));
	V435= immnum_times((V306),V434);
	{object V437;
	object V438= (V297);
	object V439= (V298);
	object V440= (V299);
	object V441= (V307);
	if(endp(V438)||endp(V439)||endp(V440)||endp(V441)){
	V436= Cnil;
	goto T1083;}
	base[3]=V437=MMcons(Cnil,Cnil);
	goto T1084;
T1084:;
	(V437->c.c_cdr)= list(4,(V438->c.c_car),(V439->c.c_car),(V440->c.c_car),(V441->c.c_car));
	{object cdr_V437=MMcdr(V437);while(!endp(cdr_V437)) {cdr_V437=MMcdr(cdr_V437);V437=MMcdr(V437);}}
	V438=MMcdr(V438);
	V439=MMcdr(V439);
	V440=MMcdr(V440);
	V441=MMcdr(V441);
	if(endp(V438)||endp(V439)||endp(V440)||endp(V441)){
	base[3]=base[3]->c.c_cdr;
	V436= base[3];
	goto T1083;}
	goto T1084;}
	goto T1083;
T1083:;
	V296= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V435,((object)VV[79]),((object)VV[80]),((object)VV[81]),V436));
	goto T1034;
T1034:;
	V442= make_cons(((object)VV[126]),(V297));
	V300= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V442));
	V443= make_cons(((object)VV[127]),(V297));
	V301= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V443));
	V444= make_cons(((object)VV[128]),(V298));
	V302= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V444));
	V445= make_cons(((object)VV[129]),(V298));
	V303= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V445));
	V446= make_cons(((object)VV[130]),(V299));
	V304= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V446));
	V447= make_cons(((object)VV[131]),(V299));
	V305= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V447));
	base[3]= (V300);
	base[4]= (V301);
	base[5]= (V302);
	base[6]= (V303);
	base[7]= (V304);
	base[8]= (V305);
	vs_top=(vs_base=base+3)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[3]= ((object)VV[74]);
	base[4]= ((object)VV[97]);
	base[5]= ((object)VV[76]);
	vs_base=vs_top;
	(void) (*Lnk920)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[77]);
	V448= list(2,(V306),small_fixnum(0));
	base[8]= make_cons(/* INLINE-ARGS */V448,Cnil);
	base[9]= ((object)VV[78]);
	base[10]= make_cons((V296),Cnil);
	vs_top=(vs_base=base+3)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for POLYGON	*/

static void L20()
{register object *base=vs_base;
	register object *sup=base+VM20; VC20
	vs_reserve(VM20);
	{object V449;
	object V450;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>2) too_many_arguments();
	V449=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T1113;}
	V450=(base[1]);
	vs_top=sup;
	goto T1114;
	goto T1113;
T1113:;
	V450= Cnil;
	goto T1114;
T1114:;
	base[2]= ((object)VV[132]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1116;}
	base[2]= ((object)VV[133]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1116;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[134]))));
	goto T1116;
T1116:;
	{object V451;
	object V452;
	object V453;
	object V454;
	object V455;
	object V456;
	object V457;
	object V458;
	object V459;
	V451= Cnil;
	V452= Cnil;
	V453= Cnil;
	V454= Cnil;
	V455= Cnil;
	V456= Cnil;
	V457= Cnil;
	V458= Cnil;
	V459= Cnil;
	if(((*(LnkLI893))((V449)))==Cnil){
	goto T1125;}
	V460= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V460,cdr((V449)))))==Cnil){
	goto T1125;}
	if(((V450))!=Cnil){
	goto T1125;}
	{object V461;
	{object V462;
	object V463= cdr((V449));
	if(endp(V463)){
	V461= Cnil;
	goto T1132;}
	base[2]=V462=MMcons(Cnil,Cnil);
	goto T1133;
T1133:;
	(V462->c.c_car)= cdr((V463->c.c_car));
	V463=MMcdr(V463);
	if(endp(V463)){
	V461= base[2];
	goto T1132;}
	V462=MMcdr(V462)=MMcons(Cnil,Cnil);
	goto T1133;}
	goto T1132;
T1132:;
	V464= ((object)VV[921]);
	V454= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V464,(V461)));
	V465= ((object)VV[922]);
	V455= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V465,(V461)));
	goto T1123;}
	goto T1125;
T1125:;
	if(((*(LnkLI893))((V449)))==Cnil){
	goto T1141;}
	if(((*(LnkLI893))((V450)))==Cnil){
	goto T1141;}
	if(!(((long)length((V449)))==((long)length((V450))))){
	goto T1141;}
	V466= symbol_function(((object)VV[900]));
	V454= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V466,cdr((V449))));
	V467= symbol_function(((object)VV[900]));
	V455= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V467,cdr((V450))));
	goto T1123;
	goto T1141;
T1141:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[135]))));
	goto T1123;
T1123:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T1152;}
	{object V468;
	object V469;
	V468= (V454);
	V469= (V455);
	{object V470;
	object V471= (V468);
	object V472= (V469);
	if(endp(V471)||endp(V472)){
	V454= Cnil;
	goto T1156;}
	base[2]=V470=MMcons(Cnil,Cnil);
	goto T1157;
T1157:;
	base[3]= (V471->c.c_car);
	base[4]= (V472->c.c_car);
	vs_top=(vs_base=base+3)+2;
	{object _funobj = symbol_value(((object)VV[95]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V470->c.c_car)= vs_base[0];
	V471=MMcdr(V471);
	V472=MMcdr(V472);
	if(endp(V471)||endp(V472)){
	V454= base[2];
	goto T1156;}
	V470=MMcdr(V470)=MMcons(Cnil,Cnil);
	goto T1157;}
	goto T1156;
T1156:;
	{object V475;
	object V476= (V468);
	object V477= (V469);
	if(endp(V476)||endp(V477)){
	V455= Cnil;
	goto T1161;}
	base[2]=V475=MMcons(Cnil,Cnil);
	goto T1162;
T1162:;
	base[3]= (V476->c.c_car);
	base[4]= (V477->c.c_car);
	vs_top=(vs_base=base+3)+2;
	{object _funobj = symbol_value(((object)VV[96]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	(V475->c.c_car)= vs_base[0];
	V476=MMcdr(V476);
	V477=MMcdr(V477);
	if(endp(V476)||endp(V477)){
	V455= base[2];
	goto T1161;}
	V475=MMcdr(V475)=MMcons(Cnil,Cnil);
	goto T1162;}
	goto T1161;
T1161:;}
	goto T1152;
T1152:;
	V480= make_cons(((object)VV[136]),(V454));
	V456= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V480));
	V481= make_cons(((object)VV[137]),(V454));
	V457= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V481));
	V482= make_cons(((object)VV[138]),(V455));
	V458= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[20]),/* INLINE-ARGS */V482));
	V483= make_cons(((object)VV[139]),(V455));
	V459= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[22]),/* INLINE-ARGS */V483));
	base[2]= (V456);
	base[3]= (V457);
	base[4]= (V458);
	base[5]= (V459);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[2]= ((object)VV[132]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1181;}
	base[3]= ((object)VV[63]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V484= vs_base[0];
	base[2]= ((object)VV[67]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V485= vs_base[0];
	base[2]= ((object)VV[68]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V486= vs_base[0];
	base[3]= ((object)VV[69]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V487= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V488= vs_base[0];
	V451= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[140]),V484,V485,V486,V487,V488));
	V453= ((object)VV[141]);
	V489 = make_fixnum((long)(length((V454))));
	V490= immnum_times(small_fixnum(2),V489);
	V491= immnum_plus(/* INLINE-ARGS */V490,small_fixnum(2));
	{object V493;
	object V494= (V454);
	object V495= (V455);
	if(endp(V494)||endp(V495)){
	V492= Cnil;
	goto T1200;}
	base[2]=V493=MMcons(Cnil,Cnil);
	goto T1201;
T1201:;
	(V493->c.c_cdr)= list(2,(V494->c.c_car),(V495->c.c_car));
	{object cdr_V493=MMcdr(V493);while(!endp(cdr_V493)) {cdr_V493=MMcdr(cdr_V493);V493=MMcdr(V493);}}
	V494=MMcdr(V494);
	V495=MMcdr(V495);
	if(endp(V494)||endp(V495)){
	base[2]=base[2]->c.c_cdr;
	V492= base[2];
	goto T1200;}
	goto T1201;}
	goto T1200;
T1200:;
	V496= list(2,car((V454)),car((V455)));
	V497= append(V492,/* INLINE-ARGS */V496);
	V498= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V491,((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V497));
	V452= make_cons(/* INLINE-ARGS */V498,Cnil);
	goto T1179;
	goto T1181;
T1181:;
	base[2]= ((object)VV[133]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1204;}
	base[3]= ((object)VV[63]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V499= vs_base[0];
	base[3]= ((object)VV[143]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V500= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V501= vs_base[0];
	V451= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[142]),V499,V500,V501));
	V453= ((object)VV[144]);
	V502 = make_fixnum((long)(length((V454))));
	V503= immnum_times(small_fixnum(2),V502);
	{object V505;
	object V506= (V454);
	object V507= (V455);
	if(endp(V506)||endp(V507)){
	V504= Cnil;
	goto T1219;}
	base[2]=V505=MMcons(Cnil,Cnil);
	goto T1220;
T1220:;
	(V505->c.c_cdr)= list(2,(V506->c.c_car),(V507->c.c_car));
	{object cdr_V505=MMcdr(V505);while(!endp(cdr_V505)) {cdr_V505=MMcdr(cdr_V505);V505=MMcdr(V505);}}
	V506=MMcdr(V506);
	V507=MMcdr(V507);
	if(endp(V506)||endp(V507)){
	base[2]=base[2]->c.c_cdr;
	V504= base[2];
	goto T1219;}
	goto T1220;}
	goto T1219;
T1219:;
	V508= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V503,((object)VV[79]),((object)VV[80]),((object)VV[81]),V504));
	V452= make_cons(/* INLINE-ARGS */V508,Cnil);
	goto T1179;
	goto T1204;
T1204:;
	base[3]= ((object)VV[63]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V509= vs_base[0];
	base[3]= ((object)VV[143]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V510= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V511= vs_base[0];
	V512= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[145]),V509,V510,V511));
	base[2]= ((object)VV[67]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V513= vs_base[0];
	base[2]= ((object)VV[68]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V514= vs_base[0];
	base[3]= ((object)VV[69]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V515= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V516= vs_base[0];
	V451= list(2,/* INLINE-ARGS */V512,(VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[146]),V513,V514,V515,V516)));
	V453= ((object)VV[147]);
	V517 = make_fixnum((long)(length((V454))));
	V518= immnum_times(small_fixnum(2),V517);
	{object V520;
	object V521= (V454);
	object V522= (V455);
	if(endp(V521)||endp(V522)){
	V519= Cnil;
	goto T1242;}
	base[2]=V520=MMcons(Cnil,Cnil);
	goto T1243;
T1243:;
	(V520->c.c_cdr)= list(2,(V521->c.c_car),(V522->c.c_car));
	{object cdr_V520=MMcdr(V520);while(!endp(cdr_V520)) {cdr_V520=MMcdr(cdr_V520);V520=MMcdr(V520);}}
	V521=MMcdr(V521);
	V522=MMcdr(V522);
	if(endp(V521)||endp(V522)){
	base[2]=base[2]->c.c_cdr;
	V519= base[2];
	goto T1242;}
	goto T1243;}
	goto T1242;
T1242:;
	V523= (VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V518,((object)VV[79]),((object)VV[80]),((object)VV[81]),V519));
	V524 = make_fixnum((long)(length((V454))));
	V525= immnum_times(small_fixnum(2),V524);
	V526= immnum_plus(/* INLINE-ARGS */V525,small_fixnum(2));
	{object V528;
	object V529= (V454);
	object V530= (V455);
	if(endp(V529)||endp(V530)){
	V527= Cnil;
	goto T1245;}
	base[2]=V528=MMcons(Cnil,Cnil);
	goto T1246;
T1246:;
	(V528->c.c_cdr)= list(2,(V529->c.c_car),(V530->c.c_car));
	{object cdr_V528=MMcdr(V528);while(!endp(cdr_V528)) {cdr_V528=MMcdr(cdr_V528);V528=MMcdr(V528);}}
	V529=MMcdr(V529);
	V530=MMcdr(V530);
	if(endp(V529)||endp(V530)){
	base[2]=base[2]->c.c_cdr;
	V527= base[2];
	goto T1245;}
	goto T1246;}
	goto T1245;
T1245:;
	V531= list(2,car((V454)),car((V455)));
	V532= append(V527,/* INLINE-ARGS */V531);
	V452= list(2,/* INLINE-ARGS */V523,(VFUN_NARGS=5,(*(LnkLI272))(/* INLINE-ARGS */V526,((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V532)));
	goto T1179;
T1179:;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[148]);
	base[4]= ((object)VV[76]);
	base[5]= (V451);
	base[6]= ((object)VV[77]);
	base[7]= (V453);
	base[8]= ((object)VV[78]);
	base[9]= (V452);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for TRIANGLE	*/

static void L21()
{register object *base=vs_base;
	register object *sup=base+VM21; VC21
	vs_reserve(VM21);
	{register object V533;
	register object V534;
	register object V535;
	check_arg(3);
	V533=(base[0]);
	V534=(base[1]);
	V535=(base[2]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V533)))==Cnil){
	goto T1257;}
	V536= (*(LnkLI913))((V533));
	if(!(immnum_eq(/* INLINE-ARGS */V536,small_fixnum(2)))){
	goto T1257;}
	if(((*(LnkLI893))((V534)))==Cnil){
	goto T1257;}
	V537= (*(LnkLI913))((V534));
	if(!(immnum_eq(/* INLINE-ARGS */V537,small_fixnum(2)))){
	goto T1257;}
	if(((*(LnkLI893))((V535)))==Cnil){
	goto T1257;}
	V538= (*(LnkLI913))((V535));
	if(immnum_eq(/* INLINE-ARGS */V538,small_fixnum(2))){
	goto T1256;}
	goto T1257;
T1257:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[149]))));
	goto T1256;
T1256:;
	{object V539;
	object V540;
	object V541;
	object V542;
	object V543;
	object V544;
	object V545;
	base[3]= cadr((V533));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V539= vs_base[0];
	base[3]= caddr((V533));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V540= vs_base[0];
	base[3]= cadr((V534));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V541= vs_base[0];
	base[3]= caddr((V534));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V542= vs_base[0];
	base[3]= cadr((V535));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V543= vs_base[0];
	base[3]= caddr((V535));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V544= vs_base[0];
	V546= list(3,((object)VV[151]),(V539),(V540));
	V547= list(3,((object)VV[152]),(V541),(V542));
	V548= list(3,((object)VV[153]),(V543),(V544));
	base[3]= list(5,((object)VV[150]),/* INLINE-ARGS */V546,/* INLINE-ARGS */V547,/* INLINE-ARGS */V548,list(3,((object)VV[154]),(V539),(V540)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk148)();
	vs_top=sup;
	V545= vs_base[0];
	(void)(structure_set((V545),((object)VV[40]),(long)0,((object)VV[155])));
	base[3]= (V545);
	vs_top=(vs_base=base+3)+1;
	return;}
	}
}
/*	function definition for QUADRILATERAL	*/

static void L22()
{register object *base=vs_base;
	register object *sup=base+VM22; VC22
	vs_reserve(VM22);
	{register object V549;
	register object V550;
	register object V551;
	register object V552;
	check_arg(4);
	V549=(base[0]);
	V550=(base[1]);
	V551=(base[2]);
	V552=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V549)))==Cnil){
	goto T1285;}
	V553= (*(LnkLI913))((V549));
	if(!(immnum_eq(/* INLINE-ARGS */V553,small_fixnum(2)))){
	goto T1285;}
	if(((*(LnkLI893))((V550)))==Cnil){
	goto T1285;}
	V554= (*(LnkLI913))((V550));
	if(!(immnum_eq(/* INLINE-ARGS */V554,small_fixnum(2)))){
	goto T1285;}
	if(((*(LnkLI893))((V551)))==Cnil){
	goto T1285;}
	V555= (*(LnkLI913))((V551));
	if(!(immnum_eq(/* INLINE-ARGS */V555,small_fixnum(2)))){
	goto T1285;}
	if(((*(LnkLI893))((V552)))==Cnil){
	goto T1285;}
	V556= (*(LnkLI913))((V552));
	if(immnum_eq(/* INLINE-ARGS */V556,small_fixnum(2))){
	goto T1284;}
	goto T1285;
T1285:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[156]))));
	goto T1284;
T1284:;
	{object V557;
	object V558;
	object V559;
	object V560;
	object V561;
	object V562;
	object V563;
	object V564;
	object V565;
	base[4]= cadr((V549));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V557= vs_base[0];
	base[4]= caddr((V549));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V558= vs_base[0];
	base[4]= cadr((V550));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V559= vs_base[0];
	base[4]= caddr((V550));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V560= vs_base[0];
	base[4]= cadr((V551));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V561= vs_base[0];
	base[4]= caddr((V551));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V562= vs_base[0];
	base[4]= cadr((V552));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V563= vs_base[0];
	base[4]= caddr((V552));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V564= vs_base[0];
	V566= list(3,((object)VV[158]),(V557),(V558));
	V567= list(3,((object)VV[159]),(V559),(V560));
	V568= list(3,((object)VV[160]),(V561),(V562));
	V569= list(3,((object)VV[161]),(V563),(V564));
	base[4]= list(6,((object)VV[157]),/* INLINE-ARGS */V566,/* INLINE-ARGS */V567,/* INLINE-ARGS */V568,/* INLINE-ARGS */V569,list(3,((object)VV[162]),(V557),(V558)));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk148)();
	vs_top=sup;
	V565= vs_base[0];
	(void)(structure_set((V565),((object)VV[40]),(long)0,((object)VV[163])));
	base[4]= (V565);
	vs_top=(vs_base=base+4)+1;
	return;}
	}
}
/*	function definition for RECTANGLE	*/

static void L23()
{register object *base=vs_base;
	register object *sup=base+VM23; VC23
	vs_reserve(VM23);
	{register object V570;
	register object V571;
	check_arg(2);
	V570=(base[0]);
	V571=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V570)))==Cnil){
	goto T1321;}
	V572= (*(LnkLI913))((V570));
	if(!(immnum_eq(/* INLINE-ARGS */V572,small_fixnum(2)))){
	goto T1321;}
	if(((*(LnkLI893))((V571)))==Cnil){
	goto T1321;}
	V573= (*(LnkLI913))((V571));
	if(immnum_eq(/* INLINE-ARGS */V573,small_fixnum(2))){
	goto T1320;}
	goto T1321;
T1321:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[164]))));
	goto T1320;
T1320:;
	{object V574;
	object V575;
	object V576;
	object V577;
	object V578;
	base[2]= cadr((V570));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V574= vs_base[0];
	base[2]= caddr((V570));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V575= vs_base[0];
	base[2]= cadr((V571));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V576= vs_base[0];
	base[2]= caddr((V571));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V577= vs_base[0];
	V579= list(3,((object)VV[166]),(V574),(V575));
	V580= list(3,((object)VV[167]),(V576),(V575));
	V581= list(3,((object)VV[168]),(V576),(V577));
	V582= list(3,((object)VV[169]),(V574),(V577));
	base[2]= list(6,((object)VV[165]),/* INLINE-ARGS */V579,/* INLINE-ARGS */V580,/* INLINE-ARGS */V581,/* INLINE-ARGS */V582,list(3,((object)VV[170]),(V574),(V575)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk148)();
	vs_top=sup;
	V578= vs_base[0];
	(void)(structure_set((V578),((object)VV[40]),(long)0,((object)VV[171])));
	base[2]= (V578);
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for ELLIPSE	*/

static void L24()
{register object *base=vs_base;
	register object *sup=base+VM24; VC24
	vs_reserve(VM24);
	{object V583;
	object V584;
	object V585;
	object V586;
	object V587;
	object V588;
	check_arg(6);
	V583=(base[0]);
	V584=(base[1]);
	V585=(base[2]);
	V586=(base[3]);
	V587=(base[4]);
	V588=(base[5]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[6]= ((object)VV[132]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1340;}
	base[6]= ((object)VV[133]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1340;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[172]))));
	goto T1340;
T1340:;
	{object V589;
	object V590;
	object V591;
	object V592;
	object V593;
	object V594;
	object V595;
	object V596;
	object V597;
	object V598;
	object V599;
	object V600;
	object V601;
	object V602;
	object V603;
	object V604;
	object V605;
	object V606;
	object V607;
	object V608;
	object V609;
	base[6]= (V583);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V589= vs_base[0];
	base[6]= (V584);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V590= vs_base[0];
	base[6]= (V585);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V591= vs_base[0];
	base[6]= (V586);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V592= vs_base[0];
	base[6]= (V587);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V593= vs_base[0];
	base[6]= (V588);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V594= vs_base[0];
	base[6]= ((object)VV[173]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V595= vs_base[0];
	V596= ((object)VV[174]);
	V597= ((object)VV[175]);
	V598= ((object)VV[176]);
	V599= ((object)VV[177]);
	V600= Cnil;
	V601= Cnil;
	V602= Cnil;
	V603= Cnil;
	V604= Cnil;
	V605= Cnil;
	V606= Cnil;
	V607= Cnil;
	V608= Cnil;
	V609= Cnil;
	V610= symbol_function(((object)VV[925]));
	V611= list(6,(V589),(V590),(V591),(V592),(V593),(V594));
	if(((VFUN_NARGS=2,(*(LnkLI924))(V610,/* INLINE-ARGS */V611)))!=Cnil){
	goto T1362;}
	if(immnum_le((V591),((object)VV[178]))){
	goto T1362;}
	if(!(immnum_le((V592),((object)VV[179])))){
	goto T1361;}
	goto T1362;
T1362:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[180]))));
	goto T1361;
T1361:;
	V593= immnum_times(((object)VV[181]),(V593));
	V594= immnum_times(((object)VV[181]),(V594));
	V612= immnum_plus((V593),(V594));
	V603= immnum_min((V593),/* INLINE-ARGS */V612);
	V613= immnum_plus((V593),(V594));
	V604= immnum_max((V593),/* INLINE-ARGS */V613);
	base[6]= immnum_minus((V604),(V603));
	base[7]= immnum_minus((V595),small_fixnum(1));
	vs_top=(vs_base=base+6)+2;
	Ldivide();
	vs_top=sup;
	V605= vs_base[0];
	V608= (V603);
	goto T1385;
T1385:;
	base[6]= (V608);
	vs_top=(vs_base=base+6)+1;
	Lcos();
	vs_top=sup;
	V614= vs_base[0];
	V615= immnum_times((V591),V614);
	V606= immnum_plus((V589),/* INLINE-ARGS */V615);
	base[6]= (V608);
	vs_top=(vs_base=base+6)+1;
	Lsin();
	vs_top=sup;
	V616= vs_base[0];
	V617= immnum_times((V592),V616);
	V607= immnum_plus((V590),/* INLINE-ARGS */V617);
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T1395;}
	{object V618;
	object V619;
	V618= (V606);
	V619= (V607);
	V606= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V618),(V619)));
	V607= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V618),(V619)));}
	goto T1395;
T1395:;
	if(!(type_of((V606))==t_fixnum||
type_of((V606))==t_bignum||
type_of((V606))==t_ratio||
type_of((V606))==t_shortfloat||
type_of((V606))==t_longfloat||
type_of((V606))==t_complex)){
	goto T1401;}
	if(!(immnum_lt((V606),(V596)))){
	goto T1404;}
	V596= (V606);
	goto T1404;
T1404:;
	if(!(immnum_gt((V606),(V597)))){
	goto T1401;}
	V597= (V606);
	goto T1401;
T1401:;
	if(!(type_of((V607))==t_fixnum||
type_of((V607))==t_bignum||
type_of((V607))==t_ratio||
type_of((V607))==t_shortfloat||
type_of((V607))==t_longfloat||
type_of((V607))==t_complex)){
	goto T1411;}
	if(!(immnum_lt((V607),(V598)))){
	goto T1414;}
	V598= (V607);
	goto T1414;
T1414:;
	if(!(immnum_gt((V607),(V599)))){
	goto T1411;}
	V599= (V607);
	goto T1411;
T1411:;
	V620= list(2,(V606),(V607));
	V600= append(/* INLINE-ARGS */V620,(V600));
	if(!(immnum_ge((V608),(V604)))){
	goto T1423;}
	goto T1383;
	goto T1423;
T1423:;
	V608= immnum_plus((V608),(V605));
	if(!(immnum_ge((V608),(V604)))){
	goto T1386;}
	V608= (V604);
	goto T1386;
T1386:;
	goto T1385;
	goto T1383;
T1383:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T1432;}
	{object V621;
	object V622;
	V621= (V589);
	V622= (V590);
	V589= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V621),(V622)));
	V590= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V621),(V622)));}
	goto T1432;
T1432:;
	V596= immnum_min((V589),(V596));
	V597= immnum_max((V589),(V597));
	V598= immnum_min((V590),(V598));
	V599= immnum_max((V590),(V599));
	base[6]= (V596);
	base[7]= (V597);
	base[8]= (V598);
	base[9]= (V599);
	vs_top=(vs_base=base+6)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[6]= ((object)VV[132]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1453;}
	base[7]= ((object)VV[63]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V623= vs_base[0];
	base[6]= ((object)VV[67]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V624= vs_base[0];
	base[6]= ((object)VV[68]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V625= vs_base[0];
	base[7]= ((object)VV[69]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V626= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V627= vs_base[0];
	V609= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[182]),V623,V624,V625,V626,V627));
	V602= ((object)VV[183]);
	V628 = make_fixnum((long)(length((V600))));
	V629= (VFUN_NARGS=5,(*(LnkLI272))(V628,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V600)));
	V601= make_cons(/* INLINE-ARGS */V629,Cnil);
	goto T1451;
	goto T1453;
T1453:;
	base[6]= ((object)VV[133]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1473;}
	base[7]= ((object)VV[63]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V630= vs_base[0];
	base[7]= ((object)VV[143]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V631= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V632= vs_base[0];
	V609= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[184]),V630,(V589),(V590),V631,V632));
	V602= ((object)VV[185]);
	V633 = make_fixnum((long)(length((V600))));
	V634= (VFUN_NARGS=5,(*(LnkLI272))(V633,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V600)));
	V601= make_cons(/* INLINE-ARGS */V634,Cnil);
	goto T1451;
	goto T1473;
T1473:;
	base[7]= ((object)VV[63]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V635= vs_base[0];
	base[7]= ((object)VV[143]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V636= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V637= vs_base[0];
	V638= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[186]),V635,(V589),(V590),V636,V637));
	base[6]= ((object)VV[67]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V639= vs_base[0];
	base[6]= ((object)VV[68]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V640= vs_base[0];
	base[7]= ((object)VV[69]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V641= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V642= vs_base[0];
	V609= list(2,/* INLINE-ARGS */V638,(VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[187]),V639,V640,V641,V642)));
	V602= ((object)VV[188]);
	V643 = make_fixnum((long)(length((V600))));
	V644= (VFUN_NARGS=5,(*(LnkLI272))(V643,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V600)));
	V645 = make_fixnum((long)(length((V600))));
	V601= list(2,/* INLINE-ARGS */V644,(VFUN_NARGS=5,(*(LnkLI272))(V645,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V600))));
	goto T1451;
T1451:;
	base[6]= ((object)VV[74]);
	base[7]= ((object)VV[189]);
	base[8]= ((object)VV[76]);
	base[9]= (V609);
	base[10]= ((object)VV[77]);
	base[11]= (V602);
	base[12]= ((object)VV[78]);
	base[13]= (V601);
	vs_top=(vs_base=base+6)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for REPLACE-SUBSTRING	*/

static void L25()
{register object *base=vs_base;
	register object *sup=base+VM25; VC25
	vs_reserve(VM25);
	{register object V646;
	object V647;
	object V648;
	check_arg(3);
	V646=(base[0]);
	V647=(base[1]);
	V648=(base[2]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V649;
	vs_base=vs_top;
	(void) (*Lnk926)();
	vs_top=sup;
	V649= vs_base[0];
	{object V650;
	V650= make_fixnum((long)(length((V647))));
	{register object V651;
	V651= Cnil;
	{register object V652;
	V652= Cnil;
	V651= small_fixnum(0);
	goto T1520;
T1520:;
	V653= symbol_function(((object)VV[928]));
	V652= (VFUN_NARGS=6,(*(LnkLI927))((V647),(V646),((object)VV[190]),(V651),((object)VV[191]),V653));
	base[3]= (V646);
	base[4]= (V649);
	base[5]= ((object)VV[192]);
	base[6]= (V651);
	base[7]= ((object)VV[193]);
	if((V652)!=Cnil){
	base[8]= (V652);
	goto T1532;}
	base[8]= make_fixnum((long)(length((V646))));
	goto T1532;
T1532:;
	vs_top=(vs_base=base+3)+6;
	Lwrite_string();
	vs_top=sup;
	if(((V652))==Cnil){
	goto T1533;}
	base[3]= (V648);
	base[4]= (V649);
	vs_top=(vs_base=base+3)+2;
	Lwrite_string();
	vs_top=sup;
	goto T1533;
T1533:;
	if(((V652))!=Cnil){
	goto T1538;}
	goto T1521;
	goto T1538;
T1538:;
	V651= immnum_plus((V652),(V650));
	goto T1520;
	goto T1521;
T1521:;
	goto T1517;}}}
	goto T1517;
T1517:;
	base[3]= (V649);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk929)();
	return;}
	}
}
/*	function definition for LABEL	*/

static void L26()
{register object *base=vs_base;
	register object *sup=base+VM26; VC26
	vs_reserve(VM26);
	{object V654;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V654=(base[0]);
	vs_top=sup;
	{object V655;
	object V656;
	object V657;
	V655= make_fixnum((long)(length((V654))));
	V656= Cnil;
	V657= Cnil;
	if(!(immnum_eq((V655),small_fixnum(0)))){
	goto T1547;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[194]))));
	goto T1545;
	goto T1547;
T1547:;
	V658= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V658,(V654))))==Cnil){
	goto T1550;}
	V659= ((object)VV[930]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V659,(V654))))==Cnil){
	goto T1555;}
	V657= Ct;
	goto T1553;
	goto T1555;
T1555:;
	V660= ((object)VV[931]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V660,(V654))))==Cnil){
	goto T1560;}
	V657= Cnil;
	goto T1553;
	goto T1560;
T1560:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[195]))));
	goto T1553;
T1553:;
	if(((V657))==Cnil){
	goto T1565;}
	{register object V661;
	register object V662;
	object V663;
	V661= Cnil;
	V662= Cnil;
	V663= Cnil;
	{object V664;
	object V665;
	V664= (V654);
	V665= car((V664));
	goto T1570;
T1570:;
	if(!(endp_prop((V664)))){
	goto T1571;}
	goto T1545;
	goto T1571;
T1571:;
	base[2]= (V665);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V661= vs_base[0];
	base[2]= (V665);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk933)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V662= vs_base[0];
	base[1]= (*(LnkLI934))((V665));
	base[2]= ((object)VV[197]);
	base[3]= ((object)VV[198]);
	vs_top=(vs_base=base+1)+3;
	(void) (*Lnk935)();
	vs_top=sup;
	V666= vs_base[0];
	V663= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[196]),V666));
	if(!(type_of((V661))==t_shortfloat||type_of((V661))==t_longfloat)){
	goto T1590;}
	if(type_of((V662))==t_shortfloat||type_of((V662))==t_longfloat){
	goto T1589;}
	goto T1590;
T1590:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[199]))));
	goto T1589;
T1589:;
	base[1]= (V661);
	base[2]= (V661);
	base[3]= (V662);
	base[4]= (V662);
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	V667= list(3,(V661),(V662),(V663));
	V656= append(/* INLINE-ARGS */V667,(V656));
	V664= cdr((V664));
	V665= car((V664));
	goto T1570;}}
	goto T1565;
T1565:;
	{register object V668;
	register object V669;
	register object V670;
	object V671;
	V668= Cnil;
	V669= Cnil;
	V670= Cnil;
	V671= Cnil;
	{object V672;
	register object V673;
	V672= (V654);
	V673= car((V672));
	goto T1609;
T1609:;
	if(!(endp_prop((V672)))){
	goto T1610;}
	goto T1545;
	goto T1610;
T1610:;
	base[2]= (V673);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V668= vs_base[0];
	base[2]= (V673);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk933)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V669= vs_base[0];
	base[2]= (V673);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk936)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V670= vs_base[0];
	V674= (*(LnkLI934))((V673));
	V671= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[200]),/* INLINE-ARGS */V674));
	if(!(type_of((V668))==t_shortfloat||type_of((V668))==t_longfloat)){
	goto T1629;}
	if(!(type_of((V669))==t_shortfloat||type_of((V669))==t_longfloat)){
	goto T1629;}
	if(type_of((V670))==t_shortfloat||type_of((V670))==t_longfloat){
	goto T1628;}
	goto T1629;
T1629:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[201]))));
	goto T1628;
T1628:;
	base[1]= (V668);
	base[2]= (V668);
	base[3]= (V669);
	base[4]= (V669);
	base[5]= (V670);
	base[6]= (V670);
	vs_top=(vs_base=base+1)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	V675= list(4,(V668),(V669),(V670),(V671));
	V656= append(/* INLINE-ARGS */V675,(V656));
	V672= cdr((V672));
	V673= car((V672));
	goto T1609;}}
	goto T1550;
T1550:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[202]))));
	goto T1545;
T1545:;
	base[1]= ((object)VV[74]);
	base[2]= ((object)VV[203]);
	base[3]= ((object)VV[76]);
	base[5]= ((object)VV[205]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V678= vs_base[0];
	{object V677= V678;
	if((V677!= ((object)VV[937])))goto T1656;
	V676= ((object)VV[206]);
	goto T1653;
	goto T1656;
T1656:;
	if((V677!= ((object)VV[938])))goto T1657;
	V676= ((object)VV[207]);
	goto T1653;
	goto T1657;
T1657:;
	if((V677!= ((object)VV[939])))goto T1658;
	V676= ((object)VV[208]);
	goto T1653;
	goto T1658;
T1658:;
	V676= Cnil;}
	goto T1653;
T1653:;
	base[5]= ((object)VV[209]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V681= vs_base[0];
	{object V680= V681;
	if((V680!= ((object)VV[940])))goto T1662;
	V679= ((object)VV[210]);
	goto T1659;
	goto T1662;
T1662:;
	if((V680!= ((object)VV[941])))goto T1663;
	V679= ((object)VV[211]);
	goto T1659;
	goto T1663;
T1663:;
	V679= Cnil;}
	goto T1659;
T1659:;
	base[6]= ((object)VV[69]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V682= vs_base[0];
	if(((V657))==Cnil){
	goto T1669;}
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V684= vs_base[0];
	V683= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[212]),V684));
	goto T1667;
	goto T1669;
T1669:;
	V683= ((object)VV[213]);
	goto T1667;
T1667:;
	base[4]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[204]),V676,V679,V682,V683));
	base[5]= ((object)VV[77]);
	if(((V657))==Cnil){
	goto T1675;}
	base[6]= ((object)VV[214]);
	goto T1673;
	goto T1675;
T1675:;
	base[6]= ((object)VV[215]);
	goto T1673;
T1673:;
	base[7]= ((object)VV[78]);
	V685 = make_fixnum((long)(length((V656))));
	V686= (VFUN_NARGS=3,(*(LnkLI272))(V685,((object)VV[81]),(V656)));
	base[8]= make_cons(/* INLINE-ARGS */V686,Cnil);
	vs_top=(vs_base=base+1)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for BARS	*/

static void L27()
{register object *base=vs_base;
	register object *sup=base+VM27; VC27
	vs_reserve(VM27);
	{object V687;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V687=(base[0]);
	vs_top=sup;
	{object V688;
	register object V689;
	object V690;
	object V691;
	object V692;
	object V693;
	object V694;
	register object V695;
	register object V696;
	object V697;
	object V698;
	V688= make_fixnum((long)(length((V687))));
	V689= small_fixnum(-1);
	V690= ((object)VV[216]);
	V691= ((object)VV[217]);
	V692= ((object)VV[218]);
	V693= ((object)VV[219]);
	V694= Cnil;
	V695= Cnil;
	V696= Cnil;
	V697= Cnil;
	V698= Cnil;
	if(!(immnum_eq((V688),small_fixnum(0)))){
	goto T1680;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[220]))));
	goto T1680;
T1680:;
	V699= ((object)VV[942]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V699,(V687))))!=Cnil){
	goto T1683;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[221]))));
	goto T1683;
T1683:;
	V700= immnum_times(small_fixnum(3),(V688));
	V694= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V700,((object)VV[79]),((object)VV[80])));
	{register object V701;
	register object V702;
	V701= (V687);
	V702= car((V701));
	goto T1693;
T1693:;
	if(!(endp_prop((V701)))){
	goto T1694;}
	goto T1689;
	goto T1694;
T1694:;
	base[1]= (*(LnkLI934))((V702));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V695= vs_base[0];
	base[2]= (V702);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V696= vs_base[0];
	base[2]= (V702);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk933)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V697= vs_base[0];
	base[1]= (V697);
	base[2]= small_fixnum(2);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V698= vs_base[0];
	V689= immnum_plus((V689),small_fixnum(1));
	(void)(aset1((V694),fixint((V689)),(V695)));
	V689= immnum_plus((V689),small_fixnum(1));
	(void)(aset1((V694),fixint((V689)),(V696)));
	V689= immnum_plus((V689),small_fixnum(1));
	(void)(aset1((V694),fixint((V689)),(V697)));
	V703= immnum_minus((V695),(V698));
	V690= immnum_min((V690),/* INLINE-ARGS */V703);
	V704= immnum_plus((V695),(V698));
	V691= immnum_max((V691),/* INLINE-ARGS */V704);
	V692= immnum_min((V692),(V696));
	V693= immnum_max((V693),(V696));
	V701= cdr((V701));
	V702= car((V701));
	goto T1693;}
	goto T1689;
T1689:;
	base[1]= (V690);
	base[2]= (V691);
	base[3]= (V692);
	base[4]= (V693);
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[1]= ((object)VV[74]);
	base[2]= ((object)VV[222]);
	base[3]= ((object)VV[76]);
	base[6]= ((object)VV[63]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V705= vs_base[0];
	base[5]= ((object)VV[65]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V706= vs_base[0];
	base[5]= ((object)VV[67]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V707= vs_base[0];
	base[6]= ((object)VV[143]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V708= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V709= vs_base[0];
	base[4]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[223]),V705,V706,V707,V708,V709));
	base[5]= ((object)VV[77]);
	base[6]= ((object)VV[224]);
	base[7]= ((object)VV[78]);
	V710 = make_fixnum((long)(length((V694))));
	V711= (VFUN_NARGS=3,(*(LnkLI272))(V710,((object)VV[81]),(V694)));
	base[8]= make_cons(/* INLINE-ARGS */V711,Cnil);
	vs_top=(vs_base=base+1)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for VECT	*/

static void L28()
{register object *base=vs_base;
	register object *sup=base+VM28; VC28
	vs_reserve(VM28);
	{register object V712;
	register object V713;
	check_arg(2);
	V712=(base[0]);
	V713=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V712)))==Cnil){
	goto T1757;}
	V714= (*(LnkLI913))((V712));
	if(!(immnum_eq(/* INLINE-ARGS */V714,small_fixnum(2)))){
	goto T1757;}
	if(((*(LnkLI893))((V713)))==Cnil){
	goto T1757;}
	V715= (*(LnkLI913))((V713));
	if(immnum_eq(/* INLINE-ARGS */V715,small_fixnum(2))){
	goto T1756;}
	goto T1757;
T1757:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[225]))));
	goto T1756;
T1756:;
	{register object V716;
	register object V717;
	register object V718;
	register object V719;
	object V720;
	object V721;
	base[2]= cadr((V712));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V716= vs_base[0];
	base[2]= caddr((V712));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V717= vs_base[0];
	base[2]= cadr((V713));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V718= vs_base[0];
	base[2]= caddr((V713));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V719= vs_base[0];
	V720= Cnil;
	V721= Cnil;
	base[2]= ((object)VV[226]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1775;}
	if(immnum_ne((V718),small_fixnum(0))){
	goto T1776;}
	if(!(immnum_ne((V719),small_fixnum(0)))){
	goto T1775;}
	goto T1776;
T1776:;
	{object V722;
	V723= immnum_times((V718),(V718));
	V724= immnum_times((V719),(V719));
	base[2]= immnum_plus(/* INLINE-ARGS */V723,/* INLINE-ARGS */V724);
	vs_top=(vs_base=base+2)+1;
	Lsqrt();
	vs_top=sup;
	V722= vs_base[0];
	base[2]= (V718);
	base[3]= (V722);
	vs_top=(vs_base=base+2)+2;
	Ldivide();
	vs_top=sup;
	V718= vs_base[0];
	base[2]= (V719);
	base[3]= (V722);
	vs_top=(vs_base=base+2)+2;
	Ldivide();
	vs_top=sup;
	V719= vs_base[0];}
	goto T1775;
T1775:;
	base[2]= immnum_plus((V716),(V718));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V720= vs_base[0];
	base[2]= immnum_plus((V717),(V719));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V721= vs_base[0];
	base[2]= immnum_min((V716),(V720));
	base[3]= immnum_max((V716),(V720));
	base[4]= immnum_min((V717),(V721));
	base[5]= immnum_max((V717),(V721));
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[227]);
	base[4]= ((object)VV[76]);
	base[7]= ((object)VV[63]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V725= vs_base[0];
	base[6]= ((object)VV[229]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1812;}
	V726= ((object)VV[230]);
	goto T1810;
	goto T1812;
T1812:;
	V726= ((object)VV[231]);
	goto T1810;
T1810:;
	base[6]= ((object)VV[232]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V727= vs_base[0];
	base[6]= ((object)VV[233]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V728= vs_base[0];
	base[6]= ((object)VV[234]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V731= vs_base[0];
	{object V730= V731;
	if((V730!= ((object)VV[943])))goto T1822;
	V729= ((object)VV[235]);
	goto T1819;
	goto T1822;
T1822:;
	if((V730!= ((object)VV[944])))goto T1823;
	V729= ((object)VV[236]);
	goto T1819;
	goto T1823;
T1823:;
	if((V730!= ((object)VV[945])))goto T1824;
	V729= ((object)VV[237]);
	goto T1819;
	goto T1824;
T1824:;
	V729= Cnil;}
	goto T1819;
T1819:;
	base[6]= ((object)VV[67]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V732= vs_base[0];
	base[6]= ((object)VV[68]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V733= vs_base[0];
	base[7]= ((object)VV[69]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V734= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V735= vs_base[0];
	base[5]= (VFUN_NARGS=11,(*(LnkLI761))(Cnil,((object)VV[228]),V725,V726,V727,V728,V729,V732,V733,V734,V735));
	base[6]= ((object)VV[77]);
	base[7]= ((object)VV[238]);
	base[8]= ((object)VV[78]);
	V736= list(4,(V716),(V717),(V718),(V719));
	V737= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(4),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V736));
	base[9]= make_cons(/* INLINE-ARGS */V737,Cnil);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for VECT3D	*/

static void L29()
{register object *base=vs_base;
	register object *sup=base+VM29; VC29
	vs_reserve(VM29);
	{object V738;
	object V739;
	check_arg(2);
	V738=(base[0]);
	V739=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V738)))==Cnil){
	goto T1838;}
	V740= (*(LnkLI913))((V738));
	if(!(immnum_eq(/* INLINE-ARGS */V740,small_fixnum(3)))){
	goto T1838;}
	if(((*(LnkLI893))((V739)))==Cnil){
	goto T1838;}
	V741= (*(LnkLI913))((V739));
	if(immnum_eq(/* INLINE-ARGS */V741,small_fixnum(3))){
	goto T1837;}
	goto T1838;
T1838:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[239]))));
	goto T1837;
T1837:;
	{object V742;
	object V743;
	object V744;
	register object V745;
	register object V746;
	register object V747;
	object V748;
	object V749;
	object V750;
	base[2]= cadr((V738));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V742= vs_base[0];
	base[2]= caddr((V738));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V743= vs_base[0];
	base[2]= cadddr((V738));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V744= vs_base[0];
	base[2]= cadr((V739));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V745= vs_base[0];
	base[2]= caddr((V739));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V746= vs_base[0];
	base[2]= cadddr((V739));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V747= vs_base[0];
	V748= Cnil;
	V749= Cnil;
	V750= Cnil;
	base[2]= ((object)VV[226]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1861;}
	if(immnum_ne((V745),small_fixnum(0))){
	goto T1862;}
	if(immnum_ne((V746),small_fixnum(0))){
	goto T1862;}
	if(!(immnum_ne((V747),small_fixnum(0)))){
	goto T1861;}
	goto T1862;
T1862:;
	{object V751;
	base[3]= immnum_times((V745),(V745));
	base[4]= immnum_times((V746),(V746));
	base[5]= immnum_times((V747),(V747));
	vs_top=(vs_base=base+3)+3;
	Lplus();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	Lsqrt();
	vs_top=sup;
	V751= vs_base[0];
	base[2]= (V745);
	base[3]= (V751);
	vs_top=(vs_base=base+2)+2;
	Ldivide();
	vs_top=sup;
	V745= vs_base[0];
	base[2]= (V746);
	base[3]= (V751);
	vs_top=(vs_base=base+2)+2;
	Ldivide();
	vs_top=sup;
	V746= vs_base[0];
	base[2]= (V747);
	base[3]= (V751);
	vs_top=(vs_base=base+2)+2;
	Ldivide();
	vs_top=sup;
	V747= vs_base[0];}
	goto T1861;
T1861:;
	base[2]= immnum_plus((V742),(V745));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V748= vs_base[0];
	base[2]= immnum_plus((V743),(V746));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V749= vs_base[0];
	base[2]= immnum_plus((V744),(V747));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V750= vs_base[0];
	base[2]= immnum_min((V742),(V748));
	base[3]= immnum_max((V742),(V748));
	base[4]= immnum_min((V743),(V749));
	base[5]= immnum_max((V743),(V749));
	base[6]= immnum_min((V744),(V750));
	base[7]= immnum_max((V744),(V750));
	vs_top=(vs_base=base+2)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[2]= ((object)VV[74]);
	base[3]= ((object)VV[227]);
	base[4]= ((object)VV[76]);
	base[7]= ((object)VV[63]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V752= vs_base[0];
	base[6]= ((object)VV[229]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1912;}
	V753= ((object)VV[241]);
	goto T1910;
	goto T1912;
T1912:;
	V753= ((object)VV[242]);
	goto T1910;
T1910:;
	base[6]= ((object)VV[232]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V754= vs_base[0];
	base[6]= ((object)VV[233]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V755= vs_base[0];
	base[6]= ((object)VV[234]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V758= vs_base[0];
	{object V757= V758;
	if((V757!= ((object)VV[943])))goto T1922;
	V756= ((object)VV[243]);
	goto T1919;
	goto T1922;
T1922:;
	if((V757!= ((object)VV[944])))goto T1923;
	V756= ((object)VV[244]);
	goto T1919;
	goto T1923;
T1923:;
	if((V757!= ((object)VV[945])))goto T1924;
	V756= ((object)VV[245]);
	goto T1919;
	goto T1924;
T1924:;
	V756= Cnil;}
	goto T1919;
T1919:;
	base[6]= ((object)VV[67]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V759= vs_base[0];
	base[6]= ((object)VV[68]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V760= vs_base[0];
	base[7]= ((object)VV[69]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V761= vs_base[0];
	base[5]= (VFUN_NARGS=10,(*(LnkLI761))(Cnil,((object)VV[240]),V752,V753,V754,V755,V756,V759,V760,V761));
	base[6]= ((object)VV[77]);
	base[7]= ((object)VV[246]);
	base[8]= ((object)VV[78]);
	V762= list(6,(V742),(V743),(V744),(V745),(V746),(V747));
	V763= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(6),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V762));
	base[9]= make_cons(/* INLINE-ARGS */V763,Cnil);
	vs_top=(vs_base=base+2)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for EXPLICIT	*/

static void L30()
{register object *base=vs_base;
	register object *sup=base+VM30; VC30
	vs_reserve(VM30);
	bds_check;
	{object V764;
	object V765;
	object V766;
	check_arg(4);
	base[0]=MMcons(base[0],Cnil);
	V764=(base[1]);
	V765=(base[2]);
	V766=(base[3]);
	vs_top=sup;
	{object V767;
	object V768;
	object V769;
	object V770;
	object V771;
	object V772;
	object V773;
	object V774;
	register object V775;
	object V776;
	object V777;
	object V778;
	base[7]= ((object)VV[173]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V767= vs_base[0];
	base[7]= ((object)VV[248]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	bds_bind(((object)VV[247]),vs_base[0]);
	bds_bind(((object)VV[249]),Ct);
	base[7]= (V765);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V768= vs_base[0];
	base[7]= (V766);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V769= vs_base[0];
	base[7]= immnum_minus((V769),(V768));
	base[9]= (V767);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	base[8]= vs_base[0];
	base[9]= small_fixnum(2);
	vs_top=(vs_base=base+7)+3;
	Ldivide();
	vs_top=sup;
	V770= vs_base[0];
	V771= ((object)VV[250]);
	V772= ((object)VV[251]);
	bds_bind(((object)VV[252]),symbol_value(((object)VV[252])));
	V773= Cnil;
	V774= Cnil;
	V775= Cnil;
	V776= Cnil;
	V777= Cnil;
	V778= Cnil;
	if(!(immnum_lt((V769),(V768)))){
	goto T1957;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[253]))));
	goto T1957;
T1957:;
	V779= (*(LnkLI947))((base[0]->c.c_car));
	V780= cdr(/* INLINE-ARGS */V779);
	V781= make_cons((V764),Cnil);
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V780,/* INLINE-ARGS */V781)))!=Cnil){
	goto T1960;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[254]))));
	goto T1960;
T1960:;
	base[7]= ((object)VV[255]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	(((object)VV[252])->s.s_dbind)= vs_base[0];
	base[7]= (base[0]->c.c_car);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	(base[0]->c.c_car)= vs_base[0];
	if(!(type_of((base[0]->c.c_car))==t_shortfloat||type_of((base[0]->c.c_car))==t_longfloat)){
	goto T1971;}
	V776= list(4,(V768),(base[0]->c.c_car),(V769),(base[0]->c.c_car));
	goto T1969;
	goto T1971;
T1971:;
	V782= list(2,((object)VV[256]),(V764));
	(base[0]->c.c_car)= (VFUN_NARGS=2,(*(LnkLI948))((base[0]->c.c_car),/* INLINE-ARGS */V782));
	base[7]=make_cclosure_new(LC31,Cnil,base[0],Cdata);
	base[7]=MMcons(base[7],base[0]);
	{object V783;
	V784= immnum_times(small_fixnum(2),(V767));
	V783= immnum_plus(/* INLINE-ARGS */V784,make_fixnum(1));
	if(!(immnum_lt((V783),small_fixnum(0)))){
	goto T1979;}
	{long V785;
	V785= (long)0;
	goto T1976;}
	goto T1979;
T1979:;
	if(!(immnum_le((V783),((object)VV[257])))){
	goto T1983;}
	{register long V786;
	V786= fix((V783));
	{register long V787;
	V787= (long)0;
	goto T1988;
T1988:;
	if(!((V787)>=(V786))){
	goto T1989;}
	goto T1976;
	goto T1989;
T1989:;
	{object V788;
	V789 = make_fixnum(V787);
	V790= immnum_times(V789,(V770));
	V788= immnum_plus((V768),/* INLINE-ARGS */V790);
	V773= make_cons(V788,(V773));
	{object V792;
	base[8]= (V788);
	vs_top=(vs_base=base+8)+1;
	L31(base);
	vs_top=sup;
	V792= vs_base[0];
	V774= make_cons((V792),(V774));}}
	V787= (long)(V787)+1;
	goto T1988;}}
	goto T1983;
T1983:;
	{object V793;
	V793= small_fixnum(0);
	goto T2005;
T2005:;
	if(!(immnum_ge((V793),(V783)))){
	goto T2006;}
	goto T1976;
	goto T2006;
T2006:;
	{object V794;
	V795= immnum_times((V793),(V770));
	V794= immnum_plus((V768),/* INLINE-ARGS */V795);
	V773= make_cons(V794,(V773));
	{object V797;
	base[8]= (V794);
	vs_top=(vs_base=base+8)+1;
	L31(base);
	vs_top=sup;
	V797= vs_base[0];
	V774= make_cons((V797),(V774));}}
	V793= immnum_plus((V793),make_fixnum(1));
	goto T2005;}}
	goto T1976;
T1976:;
	V773= nreverse((V773));
	V774= nreverse((V774));
	{object V798;
	object V799;
	object V800;
	object V801;
	object V802;
	object V803;
	V799= cdr((V773));
	V800= cddr((V773));
	V802= cdr((V774));
	V803= cddr((V774));
	V798= (V773);
	V801= (V774);
	goto T2029;
T2029:;
	if(((V800))!=Cnil){
	goto T2030;}
	goto T1969;
	goto T2030;
T2030:;
	{object V804;
	V805= (base[7]->c.c_car);
	V804= (*(LnkLI949))(V805,car((V798)),car((V799)),car((V800)),car((V801)),car((V802)),car((V803)),(((object)VV[247])->s.s_dbind),((object)VV[258]));
	if(((V776))==Cnil){
	goto T2037;}
	V804= cddr((V804));
	goto T2037;
T2037:;
	{object V806;
	V806= (V804);
	goto T2042;
T2042:;
	if(((V806))!=Cnil){
	goto T2043;}
	goto T2034;
	goto T2043;
T2043:;
	V807= list(2,car((V806)),cadr((V806)));
	V776= append((V776),/* INLINE-ARGS */V807);
	V806= cddr((V806));
	goto T2042;}}
	goto T2034;
T2034:;
	V798= cddr((V798));
	V799= cddr((V799));
	V800= cddr((V800));
	V801= cddr((V801));
	V802= cddr((V802));
	V803= cddr((V803));
	goto T2029;}
	goto T1969;
T1969:;
	base[7]= ((object)VV[260]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T2061;}
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T2066;}
	V808 = make_fixnum((long)(length((V776))));
	V778= (VFUN_NARGS=1,(*(LnkLI272))(V808));
	V768= ((object)VV[261]);
	V769= ((object)VV[262]);
	{object V809;
	object V810;
	object V811;
	object V812;
	object V813;
	V809= Cnil;
	V810= Cnil;
	V811= Cnil;
	V812= Cnil;
	V813= small_fixnum(-1);
	{object V814;
	V814= (V776);
	goto T2075;
T2075:;
	if(((V814))!=Cnil){
	goto T2076;}
	goto T2064;
	goto T2076;
T2076:;
	V809= car((V814));
	V810= cadr((V814));
	V811= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V809),(V810)));
	V812= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V809),(V810)));
	if(!(immnum_gt((V811),(V769)))){
	goto T2088;}
	V769= (V811);
	goto T2088;
T2088:;
	if(!(immnum_lt((V811),(V768)))){
	goto T2092;}
	V768= (V811);
	goto T2092;
T2092:;
	if(!(immnum_gt((V812),(V772)))){
	goto T2096;}
	V772= (V812);
	goto T2096;
T2096:;
	if(!(immnum_lt((V812),(V771)))){
	goto T2100;}
	V771= (V812);
	goto T2100;
T2100:;
	V813= immnum_plus((V813),small_fixnum(1));
	(void)(aset1((V778),fixint((V813)),(V811)));
	V813= immnum_plus((V813),small_fixnum(1));
	(void)(aset1((V778),fixint((V813)),(V812)));
	V814= cddr((V814));
	goto T2075;}}
	goto T2066;
T2066:;
	{object V815;
	V815= cdr((V776));
	goto T2114;
T2114:;
	if(((V815))!=Cnil){
	goto T2115;}
	goto T2111;
	goto T2115;
T2115:;
	V775= car((V815));
	if(!(type_of((V775))==t_fixnum||
type_of((V775))==t_bignum||
type_of((V775))==t_ratio||
type_of((V775))==t_shortfloat||
type_of((V775))==t_longfloat||
type_of((V775))==t_complex)){
	goto T2121;}
	if(!(immnum_lt((V775),(V771)))){
	goto T2124;}
	V771= (V775);
	goto T2124;
T2124:;
	if(!(immnum_gt((V775),(V772)))){
	goto T2121;}
	V772= (V775);
	goto T2121;
T2121:;
	V815= cddr((V815));
	goto T2114;}
	goto T2111;
T2111:;
	V816 = make_fixnum((long)(length((V776))));
	V778= (VFUN_NARGS=3,(*(LnkLI272))(V816,((object)VV[81]),(V776)));
	goto T2064;
T2064:;
	base[7]= (V768);
	base[8]= (V769);
	base[9]= (V771);
	base[10]= (V772);
	vs_top=(vs_base=base+7)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[8]= ((object)VV[63]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V817= vs_base[0];
	base[7]= ((object)VV[67]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V818= vs_base[0];
	base[7]= ((object)VV[68]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V819= vs_base[0];
	base[8]= ((object)VV[69]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V820= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V821= vs_base[0];
	V777= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[263]),V817,V818,V819,V820,V821));
	base[7]= ((object)VV[74]);
	base[8]= ((object)VV[264]);
	base[9]= ((object)VV[76]);
	base[10]= (V777);
	base[11]= ((object)VV[77]);
	base[12]= ((object)VV[265]);
	base[13]= ((object)VV[78]);
	base[14]= make_cons((V778),Cnil);
	vs_top=(vs_base=base+7)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
	goto T2061;
T2061:;
	base[7]= ((object)VV[260]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V822= vs_base[0];
	if(!(equal(V822,Ct))){
	goto T2162;}
	{object V823;
	V823= cdr((V776));
	goto T2169;
T2169:;
	if(((V823))!=Cnil){
	goto T2170;}
	goto T2166;
	goto T2170;
T2170:;
	V775= car((V823));
	if(!(type_of((V775))==t_fixnum||
type_of((V775))==t_bignum||
type_of((V775))==t_ratio||
type_of((V775))==t_shortfloat||
type_of((V775))==t_longfloat||
type_of((V775))==t_complex)){
	goto T2176;}
	if(!(immnum_lt((V775),(V771)))){
	goto T2179;}
	V771= (V775);
	goto T2179;
T2179:;
	if(!(immnum_gt((V775),(V772)))){
	goto T2176;}
	V772= (V775);
	goto T2176;
T2176:;
	V823= cddr((V823));
	goto T2169;}
	goto T2166;
T2166:;
	base[7]= (V768);
	base[8]= (V769);
	base[9]= (V771);
	base[10]= (V772);
	vs_top=(vs_base=base+7)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	V824 = make_fixnum((long)(length((V776))));
	V778= (VFUN_NARGS=5,(*(LnkLI272))(V824,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V776)));
	base[8]= ((object)VV[63]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V825= vs_base[0];
	base[8]= ((object)VV[143]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V826= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V827= vs_base[0];
	V777= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[266]),V825,V826,V827));
	base[7]= ((object)VV[74]);
	base[8]= ((object)VV[264]);
	base[9]= ((object)VV[76]);
	base[10]= (V777);
	base[11]= ((object)VV[77]);
	base[12]= ((object)VV[267]);
	base[13]= ((object)VV[78]);
	base[14]= make_cons((V778),Cnil);
	vs_top=(vs_base=base+7)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
	goto T2162;
T2162:;
	{object V828;
	object V829;
	base[7]= Cnil;
	V828= Cnil;
	V829= small_fixnum(-1);
	base[8]= make_fixnum((long)(length((V776))));
	base[9]= small_fixnum(2);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V830= vs_base[0];
	V831= immnum_times(V830,small_fixnum(3));
	V778= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V831,((object)VV[79]),((object)VV[80])));
	base[8]= ((object)VV[260]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V832= vs_base[0];
	V833= list(2,((object)VV[268]),(V764));
	base[7]= (VFUN_NARGS=2,(*(LnkLI948))(V832,/* INLINE-ARGS */V833));
	{object V834;
	V834= (V776);
	goto T2224;
T2224:;
	if(((V834))!=Cnil){
	goto T2225;}
	goto T2213;
	goto T2225;
T2225:;
	V775= cadr((V834));
	base[8]= car((V834));
	vs_top=(vs_base=base+8)+1;
	L32(base);
	vs_top=sup;
	V828= vs_base[0];
	base[8]= (V772);
	base[9]= (V775);
	base[10]= (V828);
	vs_top=(vs_base=base+8)+3;
	Lmax();
	vs_top=sup;
	V772= vs_base[0];
	base[8]= (V771);
	base[9]= (V775);
	base[10]= (V828);
	vs_top=(vs_base=base+8)+3;
	Lmin();
	vs_top=sup;
	V771= vs_base[0];
	V829= immnum_plus((V829),small_fixnum(1));
	(void)(aset1((V778),fixint((V829)),car((V834))));
	V829= immnum_plus((V829),small_fixnum(1));
	(void)(aset1((V778),fixint((V829)),(V775)));
	V829= immnum_plus((V829),small_fixnum(1));
	(void)(aset1((V778),fixint((V829)),(V828)));
	V834= cddr((V834));
	goto T2224;}}
	goto T2213;
T2213:;
	base[7]= (V768);
	base[8]= (V769);
	base[9]= (V771);
	base[10]= (V772);
	vs_top=(vs_base=base+7)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[8]= ((object)VV[63]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V835= vs_base[0];
	base[8]= ((object)VV[143]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V836= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V837= vs_base[0];
	V777= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[269]),V835,V836,V837));
	base[7]= ((object)VV[74]);
	base[8]= ((object)VV[264]);
	base[9]= ((object)VV[76]);
	base[10]= (V777);
	base[11]= ((object)VV[77]);
	base[12]= ((object)VV[270]);
	base[13]= ((object)VV[78]);
	base[14]= make_cons((V778),Cnil);
	vs_top=(vs_base=base+7)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	macro definition for BUILD-POLYGON	*/

static void L33()
{register object *base=vs_base;
	register object *sup=base+VM31; VC31
	vs_reserve(VM31);
	check_arg(2);vs_top=sup;
	{object V838=base[0]->c.c_cdr;
	if(endp(V838))invalid_macro_call();
	base[2]= (V838->c.c_car);
	V838=V838->c.c_cdr;
	if(!endp(V838))invalid_macro_call();}
	{object V839;
	V840 = make_fixnum((long)(length(base[2])));
	V839= immnum_plus(V840,make_fixnum(-1));
	base[3]= list(3,((object)VV[271]),list(6,((object)VV[272]),(V839),((object)VV[79]),((object)VV[273]),((object)VV[81]),base[2]),((object)VV[274]));
	vs_top=(vs_base=base+3)+1;
	return;}
}
/*	function definition for REGION	*/

static void L34()
{register object *base=vs_base;
	register object *sup=base+VM32; VC32
	vs_reserve(VM32);
	{object V841;
	object V842;
	object V843;
	object V844;
	check_arg(7);
	V841=(base[2]);
	V842=(base[3]);
	V843=(base[5]);
	V844=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V845;
	object V846;
	object V847;
	object V848;
	object V849;
	object V850;
	object V851;
	object V852;
	object V853;
	object V854;
	object V855;
	register object V856;
	object V857;
	object V858;
	object V859;
	object V860;
	base[8]= ((object)VV[275]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V845= vs_base[0];
	base[8]= ((object)VV[276]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V846= vs_base[0];
	base[8]= (V841);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V847= vs_base[0];
	base[8]= (V842);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V848= vs_base[0];
	base[8]= (V843);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V849= vs_base[0];
	base[8]= (V844);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V850= vs_base[0];
	base[8]= immnum_minus((V848),(V847));
	base[9]= (V845);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V851= vs_base[0];
	base[8]= immnum_minus((V850),(V849));
	base[9]= (V846);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V852= vs_base[0];
	base[7]= immnum_times(((object)VV[277]),immnum_min((V851),(V852)));
	V861= immnum_plus((V845),make_fixnum(1));
	V862= list(2,/* INLINE-ARGS */V861,immnum_plus((V846),make_fixnum(1)));
	V853= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V862,((object)VV[79]),((object)VV[80])));
	V863= immnum_plus((V845),make_fixnum(1));
	V864= list(2,/* INLINE-ARGS */V863,immnum_plus((V846),make_fixnum(1)));
	V854= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V864,((object)VV[79]),((object)VV[80])));
	V865= immnum_plus((V845),make_fixnum(1));
	V866= list(2,/* INLINE-ARGS */V865,immnum_plus((V846),make_fixnum(1)));
	V855= (VFUN_NARGS=3,(*(LnkLI272))(/* INLINE-ARGS */V866,((object)VV[79]),((object)VV[278])));
	V856= Cnil;
	V857= Cnil;
	V858= Cnil;
	V859= Cnil;
	V860= Cnil;
	V867= (*(LnkLI947))(base[0]);
	V868= cdr(/* INLINE-ARGS */V867);
	V869= list(2,base[1],base[4]);
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V868,/* INLINE-ARGS */V869)))!=Cnil){
	goto T2303;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[279]))));
	goto T2303;
T2303:;
	{object V871;
	V871= small_fixnum(0);
	goto T2309;
T2309:;
	if(!(immnum_gt((V871),V845))){
	goto T2311;}
	goto T2310;
	goto T2311;
T2311:;
	{object V873;
	V873= small_fixnum(0);
	goto T2316;
T2316:;
	if(!(immnum_gt((V873),V846))){
	goto T2318;}
	goto T2317;
	goto T2318;
T2318:;
	V874= immnum_times((V871),(V851));
	V859= immnum_plus((V847),/* INLINE-ARGS */V874);
	V875= immnum_times((V873),(V852));
	V860= immnum_plus((V849),/* INLINE-ARGS */V875);
	(void)((VFUN_NARGS=4,(*(LnkLI908))((V853),(V871),(V873),(V859))));
	(void)((VFUN_NARGS=4,(*(LnkLI908))((V854),(V871),(V873),(V860))));
	base[8]= (V859);
	base[9]= (V860);
	vs_top=(vs_base=base+8)+2;
	L35(base);
	vs_top=sup;
	V876= vs_base[0];
	(void)((VFUN_NARGS=4,(*(LnkLI908))((V855),(V871),(V873),V876)));
	V873= immnum_plus((V873),make_fixnum(1));
	goto T2316;
	goto T2317;
T2317:;
	goto T2314;}
	goto T2314;
T2314:;
	V871= immnum_plus((V871),make_fixnum(1));
	goto T2309;
	goto T2310;
T2310:;
	goto T2307;}
	goto T2307;
T2307:;
	{object V878;
	V878= small_fixnum(0);
	goto T2336;
T2336:;
	if(!(immnum_ge((V878),V845))){
	goto T2338;}
	goto T2337;
	goto T2338;
T2338:;
	{object V880;
	V880= small_fixnum(0);
	goto T2343;
T2343:;
	if(!(immnum_ge((V880),V846))){
	goto T2345;}
	goto T2344;
	goto T2345;
T2345:;
	{object V881;
	object V882;
	object V883;
	object V884;
	object V885;
	object V886;
	object V887;
	object V888;
	object V889;
	object V890;
	object V891;
	object V892;
	register object V893;
	register object V894;
	object V895;
	V881= (VFUN_NARGS=3,(*(LnkLI906))((V853),(V878),(V880)));
	V882= (VFUN_NARGS=3,(*(LnkLI906))((V854),(V878),(V880)));
	V883= (VFUN_NARGS=3,(*(LnkLI906))((V855),(V878),(V880)));
	V896= immnum_plus((V878),make_fixnum(1));
	V884= (VFUN_NARGS=3,(*(LnkLI906))((V853),/* INLINE-ARGS */V896,(V880)));
	V897= immnum_plus((V878),make_fixnum(1));
	V885= (VFUN_NARGS=3,(*(LnkLI906))((V854),/* INLINE-ARGS */V897,(V880)));
	V898= immnum_plus((V878),make_fixnum(1));
	V886= (VFUN_NARGS=3,(*(LnkLI906))((V855),/* INLINE-ARGS */V898,(V880)));
	V899= immnum_plus((V878),make_fixnum(1));
	V900= immnum_plus((V880),make_fixnum(1));
	V887= (VFUN_NARGS=3,(*(LnkLI906))((V853),/* INLINE-ARGS */V899,/* INLINE-ARGS */V900));
	V901= immnum_plus((V878),make_fixnum(1));
	V902= immnum_plus((V880),make_fixnum(1));
	V888= (VFUN_NARGS=3,(*(LnkLI906))((V854),/* INLINE-ARGS */V901,/* INLINE-ARGS */V902));
	V903= immnum_plus((V878),make_fixnum(1));
	V904= immnum_plus((V880),make_fixnum(1));
	V889= (VFUN_NARGS=3,(*(LnkLI906))((V855),/* INLINE-ARGS */V903,/* INLINE-ARGS */V904));
	V905= immnum_plus((V880),make_fixnum(1));
	V890= (VFUN_NARGS=3,(*(LnkLI906))((V853),(V878),/* INLINE-ARGS */V905));
	V906= immnum_plus((V880),make_fixnum(1));
	V891= (VFUN_NARGS=3,(*(LnkLI906))((V854),(V878),/* INLINE-ARGS */V906));
	V907= immnum_plus((V880),make_fixnum(1));
	V892= (VFUN_NARGS=3,(*(LnkLI906))((V855),(V878),/* INLINE-ARGS */V907));
	V893= Cnil;
	V894= Cnil;
	V895= Cnil;
	if(((V883))==Cnil){
	goto T2362;}
	if(((V886))==Cnil){
	goto T2362;}
	if(((V889))==Cnil){
	goto T2362;}
	if(((V892))==Cnil){
	goto T2362;}
	{object V908;
	V909= list(8,(V881),(V882),(V884),(V885),(V887),(V888),(V890),(V891));
	V908= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V909));
	V856= make_cons((V908),(V856));
	goto T2348;}
	goto T2362;
T2362:;
	if(((V883))==Cnil){
	goto T2373;}
	if(((V886))==Cnil){
	goto T2373;}
	if(((V889))==Cnil){
	goto T2373;}
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V910;
	V911= list(10,(V881),(V882),(V884),(V885),(V887),(V888),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V910= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(10),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V911));
	V856= make_cons((V910),(V856));
	goto T2348;}
	goto T2373;
T2373:;
	if(((V892))==Cnil){
	goto T2394;}
	if(((V883))==Cnil){
	goto T2394;}
	if(((V886))==Cnil){
	goto T2394;}
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V912;
	V913= list(10,(V890),(V891),(V881),(V882),(V884),(V885),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V912= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(10),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V913));
	V856= make_cons((V912),(V856));
	goto T2348;}
	goto T2394;
T2394:;
	if(((V889))==Cnil){
	goto T2415;}
	if(((V892))==Cnil){
	goto T2415;}
	if(((V883))==Cnil){
	goto T2415;}
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V914;
	V915= list(10,(V887),(V888),(V890),(V891),(V881),(V882),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V914= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(10),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V915));
	V856= make_cons((V914),(V856));
	goto T2348;}
	goto T2415;
T2415:;
	if(((V886))==Cnil){
	goto T2436;}
	if(((V889))==Cnil){
	goto T2436;}
	if(((V892))==Cnil){
	goto T2436;}
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V916;
	V917= list(10,(V884),(V885),(V887),(V888),(V890),(V891),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V916= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(10),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V917));
	V856= make_cons((V916),(V856));
	goto T2348;}
	goto T2436;
T2436:;
	if(((V886))==Cnil){
	goto T2457;}
	if(((V889))==Cnil){
	goto T2457;}
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V918;
	V919= list(8,(V884),(V885),(V887),(V888),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V918= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V919));
	V856= make_cons((V918),(V856));
	goto T2348;}
	goto T2457;
T2457:;
	if(((V892))==Cnil){
	goto T2476;}
	if(((V883))==Cnil){
	goto T2476;}
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V920;
	V921= list(8,(V890),(V891),(V881),(V882),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V920= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V921));
	V856= make_cons((V920),(V856));
	goto T2348;}
	goto T2476;
T2476:;
	if(((V889))==Cnil){
	goto T2495;}
	if(((V892))==Cnil){
	goto T2495;}
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V922;
	V923= list(8,(V887),(V888),(V890),(V891),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V922= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V923));
	V856= make_cons((V922),(V856));
	goto T2348;}
	goto T2495;
T2495:;
	if(((V883))==Cnil){
	goto T2514;}
	if(((V886))==Cnil){
	goto T2514;}
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	{object V924;
	V925= list(8,(V881),(V882),(V884),(V885),car((V893)),cadr((V893)),car((V894)),cadr((V894)));
	V924= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V925));
	V856= make_cons((V924),(V856));
	goto T2348;}
	goto T2514;
T2514:;
	if(((V883))==Cnil){
	goto T2533;}
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V887);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	base[8]= (V881);
	base[9]= (V882);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V895= vs_base[0];
	{object V926;
	V927= list(8,(V881),(V882),car((V893)),cadr((V893)),car((V894)),cadr((V894)),car((V895)),cadr((V895)));
	V926= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V927));
	V856= make_cons((V926),(V856));
	goto T2348;}
	goto T2533;
T2533:;
	if(((V886))==Cnil){
	goto T2556;}
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	base[8]= (V884);
	base[9]= (V885);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V895= vs_base[0];
	{object V928;
	V929= list(8,(V884),(V885),car((V893)),cadr((V893)),car((V894)),cadr((V894)),car((V895)),cadr((V895)));
	V928= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V929));
	V856= make_cons((V928),(V856));
	goto T2348;}
	goto T2556;
T2556:;
	if(((V889))==Cnil){
	goto T2579;}
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V890);
	base[11]= (V891);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	base[8]= (V887);
	base[9]= (V888);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V895= vs_base[0];
	{object V930;
	V931= list(8,(V887),(V888),car((V893)),cadr((V893)),car((V894)),cadr((V894)),car((V895)),cadr((V895)));
	V930= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V931));
	V856= make_cons((V930),(V856));
	goto T2348;}
	goto T2579;
T2579:;
	if(((V892))==Cnil){
	goto T2348;}
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V881);
	base[11]= (V882);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V893= vs_base[0];
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V884);
	base[11]= (V885);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V894= vs_base[0];
	base[8]= (V890);
	base[9]= (V891);
	base[10]= (V887);
	base[11]= (V888);
	vs_top=(vs_base=base+8)+4;
	L36(base);
	vs_top=sup;
	V895= vs_base[0];
	{object V932;
	V933= list(8,(V890),(V891),car((V893)),cadr((V893)),car((V894)),cadr((V894)),car((V895)),cadr((V895)));
	V932= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(8),((object)VV[79]),((object)VV[80]),((object)VV[81]),/* INLINE-ARGS */V933));
	V856= make_cons((V932),(V856));}}
	goto T2348;
T2348:;
	V880= immnum_plus((V880),make_fixnum(1));
	goto T2343;
	goto T2344;
T2344:;
	goto T2341;}
	goto T2341;
T2341:;
	V878= immnum_plus((V878),make_fixnum(1));
	goto T2336;
	goto T2337;
T2337:;
	goto T2306;}
	goto T2306;
T2306:;
	base[9]= ((object)VV[63]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V934= vs_base[0];
	base[9]= ((object)VV[143]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V935= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V936= vs_base[0];
	V937= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[284]),V934,V935,V936));
	V939 = make_fixnum((long)(length((V856))));
	base[8]= immnum_minus(V939,small_fixnum(1));
	base[9]= ((object)VV[285]);
	base[12]= ((object)VV[143]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V940= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V941= vs_base[0];
	base[10]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[286]),V940,V941));
	vs_top=(vs_base=base+8)+3;
	Lmake_list();
	vs_top=sup;
	V938= vs_base[0];
	V857= make_cons(/* INLINE-ARGS */V937,V938);
	base[8]= (V847);
	base[9]= (V848);
	base[10]= (V849);
	base[11]= (V850);
	vs_top=(vs_base=base+8)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[8]= make_fixnum((long)(length((V856))));
	base[9]= ((object)VV[285]);
	base[10]= ((object)VV[287]);
	vs_top=(vs_base=base+8)+3;
	Lmake_list();
	vs_top=sup;
	V858= vs_base[0];
	base[8]= ((object)VV[74]);
	base[9]= ((object)VV[288]);
	base[10]= ((object)VV[76]);
	base[11]= (V857);
	base[12]= ((object)VV[77]);
	base[13]= (V858);
	base[14]= ((object)VV[78]);
	base[15]= (V856);
	vs_top=(vs_base=base+8)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for CONTAINS-ZEROS	*/

static void L37()
{register object *base=vs_base;
	register object *sup=base+VM33; VC33
	vs_reserve(VM33);
	{register object V942;
	register object V943;
	register object V944;
	check_arg(3);
	V942=(base[0]);
	V943=(base[1]);
	V944=(base[2]);
	vs_top=sup;
	goto TTL;
TTL:;
	V946= (VFUN_NARGS=3,(*(LnkLI906))((V944),(V942),(V943)));
	V947= immnum_plus((V942),make_fixnum(1));
	V948= (VFUN_NARGS=3,(*(LnkLI906))((V944),/* INLINE-ARGS */V947,(V943)));
	V949= immnum_times(/* INLINE-ARGS */V946,/* INLINE-ARGS */V948);
	if(immnum_gt(/* INLINE-ARGS */V949,small_fixnum(0))){
	goto T2663;}
	V945= Cnil;
	goto T2662;
	goto T2663;
T2663:;
	V950= (VFUN_NARGS=3,(*(LnkLI906))((V944),(V942),(V943)));
	V951= immnum_plus((V943),make_fixnum(1));
	V952= (VFUN_NARGS=3,(*(LnkLI906))((V944),(V942),/* INLINE-ARGS */V951));
	V953= immnum_times(/* INLINE-ARGS */V950,/* INLINE-ARGS */V952);
	if(immnum_gt(/* INLINE-ARGS */V953,small_fixnum(0))){
	goto T2665;}
	V945= Cnil;
	goto T2662;
	goto T2665;
T2665:;
	V954= (VFUN_NARGS=3,(*(LnkLI906))((V944),(V942),(V943)));
	V955= immnum_plus((V942),make_fixnum(1));
	V956= immnum_plus((V943),make_fixnum(1));
	V957= (VFUN_NARGS=3,(*(LnkLI906))((V944),/* INLINE-ARGS */V955,/* INLINE-ARGS */V956));
	V958= immnum_times(/* INLINE-ARGS */V954,/* INLINE-ARGS */V957);
	V945= (immnum_gt(/* INLINE-ARGS */V958,small_fixnum(0))?Ct:Cnil);
	goto T2662;
T2662:;
	base[3]= ((V945)==Cnil?Ct:Cnil);
	vs_top=(vs_base=base+3)+1;
	return;
	}
}
/*	function definition for SAMPLE-DATA	*/

static void L38()
{register object *base=vs_base;
	register object *sup=base+VM34; VC34
	vs_reserve(VM34);
	{object V959;
	object V960;
	object V961;
	object V962;
	object V963;
	object V964;
	object V965;
	check_arg(7);
	V959=(base[0]);
	V960=(base[1]);
	V961=(base[2]);
	V962=(base[3]);
	V963=(base[4]);
	V964=(base[5]);
	V965=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V966;
	object V967;
	object V968;
	base[7]= immnum_minus((V961),(V960));
	base[8]= (*(LnkLI934))((V965));
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	V966= vs_base[0];
	base[7]= immnum_minus((V963),(V962));
	base[9]= (V965);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	V967= vs_base[0];
	base[7]= ((object)VV[289]);
	base[8]= ((object)VV[290]);
	vs_top=(vs_base=base+7)+2;
	Lfloat();
	vs_top=sup;
	V968= vs_base[0];
	{object V969;
	register object V970;
	V969= (V960);
	V970= small_fixnum(0);
	goto T2678;
T2678:;
	V971= (*(LnkLI934))((V965));
	if(!(immnum_gt((V970),/* INLINE-ARGS */V971))){
	goto T2679;}
	base[7]= Cnil;
	vs_top=(vs_base=base+7)+1;
	return;
	goto T2679;
T2679:;
	{register object V972;
	register object V973;
	V972= (V962);
	V973= small_fixnum(0);
	goto T2685;
T2685:;
	base[7]= (V965);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	V974= vs_base[0];
	if(!(immnum_gt((V973),V974))){
	goto T2686;}
	goto T2683;
	goto T2686;
T2686:;
	{object V975;
	V975= (
	(type_of((V959)) == t_sfun ?(*(((V959))->sfn.sfn_self)):
	(fcall.fun=((V959)),fcall.argd=2,fcalln))((V969),(V972)));
	if(((V975))==(Ct)){
	goto T2694;}
	if(!(immnum_ge((V975),(V968)))){
	goto T2695;}
	goto T2694;
T2694:;
	(void)((VFUN_NARGS=4,(*(LnkLI908))((V964),(V970),(V973),small_fixnum(1))));
	goto T2692;
	goto T2695;
T2695:;
	(void)((VFUN_NARGS=4,(*(LnkLI908))((V964),(V970),(V973),small_fixnum(-1))));}
	goto T2692;
T2692:;
	V972= immnum_plus((V972),(V967));
	V973= immnum_plus((V973),make_fixnum(1));
	goto T2685;}
	goto T2683;
T2683:;
	V969= immnum_plus((V969),(V966));
	V970= immnum_plus((V970),make_fixnum(1));
	goto T2678;}}
	}
}
/*	function definition for PRINT-SEGMENT	*/

static void L39()
{register object *base=vs_base;
	register object *sup=base+VM35; VC35
	vs_reserve(VM35);
	{object V976;
	object V977;
	object V978;
	object V979;
	object V980;
	check_arg(5);
	V976=(base[0]);
	V977=(base[1]);
	V978=(base[2]);
	V979=(base[3]);
	V980=(base[4]);
	vs_top=sup;
	goto TTL;
TTL:;
	{register object V981;
	register object V982;
	object V983;
	object V984;
	object V985;
	object V986;
	V981= car((V976));
	V982= cadr((V976));
	V988= immnum_plus(car((V981)),caddr((V981)));
	base[5]= immnum_times((V978),/* INLINE-ARGS */V988);
	base[6]= small_fixnum(2);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V987= vs_base[0];
	V989= immnum_plus((V977),V987);
	V983= (*(LnkLI951))(/* INLINE-ARGS */V989,((object)VV[80]));
	V991= immnum_plus(cadr((V981)),cadddr((V981)));
	base[5]= immnum_times((V980),/* INLINE-ARGS */V991);
	base[6]= small_fixnum(2);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V990= vs_base[0];
	V992= immnum_plus((V979),V990);
	V984= (*(LnkLI951))(/* INLINE-ARGS */V992,((object)VV[80]));
	V994= immnum_plus(car((V982)),caddr((V982)));
	base[5]= immnum_times((V978),/* INLINE-ARGS */V994);
	base[6]= small_fixnum(2);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V993= vs_base[0];
	V995= immnum_plus((V977),V993);
	V985= (*(LnkLI951))(/* INLINE-ARGS */V995,((object)VV[80]));
	V997= immnum_plus(cadr((V982)),cadddr((V982)));
	base[5]= immnum_times((V980),/* INLINE-ARGS */V997);
	base[6]= small_fixnum(2);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V996= vs_base[0];
	V998= immnum_plus((V979),V996);
	V986= (*(LnkLI951))(/* INLINE-ARGS */V998,((object)VV[80]));
	V999= list(4,(V983),(V984),(V985),(V986));
	setq(((object)VV[274]),nconc(/* INLINE-ARGS */V999,symbol_value(((object)VV[274]))));
	base[5]= symbol_value(((object)VV[274]));
	vs_top=(vs_base=base+5)+1;
	return;}
	}
}
/*	function definition for PRINT-SQUARE	*/

static void L40()
{register object *base=vs_base;
	register object *sup=base+VM36; VC36
	vs_reserve(VM36);
	{object V1000;
	object V1001;
	object V1002;
	object V1003;
	object V1004;
	object V1005;
	check_arg(6);
	V1000=(base[0]);
	V1001=(base[1]);
	V1002=(base[2]);
	V1003=(base[3]);
	V1004=(base[4]);
	V1005=(base[5]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1006;
	object V1007;
	base[6]= immnum_minus((V1001),(V1000));
	base[7]= (*(LnkLI934))((V1005));
	vs_top=(vs_base=base+6)+2;
	Ldivide();
	vs_top=sup;
	V1006= vs_base[0];
	base[6]= immnum_minus((V1003),(V1002));
	base[8]= (V1005);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+6)+2;
	Ldivide();
	vs_top=sup;
	V1007= vs_base[0];
	{register object V1008;
	V1008= small_fixnum(0);
	goto T2734;
T2734:;
	V1009= (*(LnkLI934))((V1005));
	if(!(immnum_eq((V1008),/* INLINE-ARGS */V1009))){
	goto T2735;}
	base[6]= Cnil;
	vs_top=(vs_base=base+6)+1;
	return;
	goto T2735;
T2735:;
	{register object V1010;
	V1010= small_fixnum(0);
	goto T2741;
T2741:;
	base[6]= (V1005);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	V1011= vs_base[0];
	if(!(immnum_eq((V1010),V1011))){
	goto T2742;}
	goto T2739;
	goto T2742;
T2742:;
	base[6]= (V1008);
	base[7]= (V1010);
	base[8]= (V1004);
	vs_top=(vs_base=base+6)+3;
	(void) (*Lnk952)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T2748;}
	{register object V1012;
	V1012= Cnil;
	V1013= (VFUN_NARGS=3,(*(LnkLI906))((V1004),(V1008),(V1010)));
	V1014= immnum_plus((V1008),make_fixnum(1));
	V1015= (VFUN_NARGS=3,(*(LnkLI906))((V1004),/* INLINE-ARGS */V1014,(V1010)));
	V1016= immnum_times(/* INLINE-ARGS */V1013,/* INLINE-ARGS */V1015);
	if(!(immnum_lt(/* INLINE-ARGS */V1016,small_fixnum(0)))){
	goto T2754;}
	V1017= list(4,(V1008),(V1010),immnum_plus((V1008),make_fixnum(1)),(V1010));
	V1012= make_cons(/* INLINE-ARGS */V1017,(V1012));
	goto T2754;
T2754:;
	V1018= immnum_plus((V1008),make_fixnum(1));
	V1019= (VFUN_NARGS=3,(*(LnkLI906))((V1004),/* INLINE-ARGS */V1018,(V1010)));
	V1020= immnum_plus((V1008),make_fixnum(1));
	V1021= immnum_plus((V1010),make_fixnum(1));
	V1022= (VFUN_NARGS=3,(*(LnkLI906))((V1004),/* INLINE-ARGS */V1020,/* INLINE-ARGS */V1021));
	V1023= immnum_times(/* INLINE-ARGS */V1019,/* INLINE-ARGS */V1022);
	if(!(immnum_lt(/* INLINE-ARGS */V1023,small_fixnum(0)))){
	goto T2758;}
	V1024= immnum_plus((V1008),make_fixnum(1));
	V1025= immnum_plus((V1008),make_fixnum(1));
	V1026= list(4,/* INLINE-ARGS */V1024,(V1010),/* INLINE-ARGS */V1025,immnum_plus((V1010),make_fixnum(1)));
	V1012= make_cons(/* INLINE-ARGS */V1026,(V1012));
	goto T2758;
T2758:;
	V1027= immnum_plus((V1010),make_fixnum(1));
	V1028= (VFUN_NARGS=3,(*(LnkLI906))((V1004),(V1008),/* INLINE-ARGS */V1027));
	V1029= immnum_plus((V1008),make_fixnum(1));
	V1030= immnum_plus((V1010),make_fixnum(1));
	V1031= (VFUN_NARGS=3,(*(LnkLI906))((V1004),/* INLINE-ARGS */V1029,/* INLINE-ARGS */V1030));
	V1032= immnum_times(/* INLINE-ARGS */V1028,/* INLINE-ARGS */V1031);
	if(!(immnum_lt(/* INLINE-ARGS */V1032,small_fixnum(0)))){
	goto T2762;}
	V1033= immnum_plus((V1010),make_fixnum(1));
	V1034= immnum_plus((V1008),make_fixnum(1));
	V1035= list(4,(V1008),/* INLINE-ARGS */V1033,/* INLINE-ARGS */V1034,immnum_plus((V1010),make_fixnum(1)));
	V1012= make_cons(/* INLINE-ARGS */V1035,(V1012));
	goto T2762;
T2762:;
	V1036= (VFUN_NARGS=3,(*(LnkLI906))((V1004),(V1008),(V1010)));
	V1037= immnum_plus((V1010),make_fixnum(1));
	V1038= (VFUN_NARGS=3,(*(LnkLI906))((V1004),(V1008),/* INLINE-ARGS */V1037));
	V1039= immnum_times(/* INLINE-ARGS */V1036,/* INLINE-ARGS */V1038);
	if(!(immnum_lt(/* INLINE-ARGS */V1039,small_fixnum(0)))){
	goto T2766;}
	V1040= list(4,(V1008),(V1010),(V1008),immnum_plus((V1010),make_fixnum(1)));
	V1012= make_cons(/* INLINE-ARGS */V1040,(V1012));
	goto T2766;
T2766:;
	base[6]= (V1012);
	base[7]= (V1000);
	base[8]= (V1006);
	base[9]= (V1002);
	base[10]= (V1007);
	vs_top=(vs_base=base+6)+5;
	(void) (*Lnk953)();
	vs_top=sup;}
	goto T2748;
T2748:;
	V1010= immnum_plus((V1010),make_fixnum(1));
	goto T2741;}
	goto T2739;
T2739:;
	V1008= immnum_plus((V1008),make_fixnum(1));
	goto T2734;}}
	}
}
/*	function definition for IMP-PL-PREPARE-FACTOR	*/

static void L41()
{register object *base=vs_base;
	register object *sup=base+VM37; VC37
	vs_reserve(VM37);
	{register object V1041;
	check_arg(1);
	V1041=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI954))((V1041)))!=Cnil){
	goto T2781;}
	if(!(type_of((V1041))!=t_cons)){
	goto T2782;}
	goto T2781;
T2781:;
	base[1]= (V1041);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T2782;
T2782:;
	if(!((caar((V1041)))==(((object)VV[291])))){
	goto T2787;}
	base[1]= cadr((V1041));
	vs_top=(vs_base=base+1)+1;
	return;
	goto T2787;
T2787:;
	base[1]= (V1041);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	function definition for IMP-PL-PREPARE-EXPR	*/

static void L42()
{register object *base=vs_base;
	register object *sup=base+VM38; VC38
	vs_reserve(VM38);
	{register object V1042;
	check_arg(1);
	V1042=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	{register object V1043;
	base[2]= (V1042);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= (V1042);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk959)();
	vs_top=sup;
	V1044= vs_base[0];
	V1043= (VFUN_NARGS=1,(*(LnkLI956))(V1044));
	if(((*(LnkLI954))((V1042)))!=Cnil){
	goto T2795;}
	if(!(type_of((V1043))!=t_cons)){
	goto T2796;}
	goto T2795;
T2795:;
	base[1]= (V1043);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T2796;
T2796:;
	if(!((caar((V1043)))==(((object)VV[292])))){
	goto T2801;}
	{object V1046;
	object V1047= cdr((V1043));
	if(endp(V1047)){
	V1045= Cnil;
	goto T2803;}
	base[1]=V1046=MMcons(Cnil,Cnil);
	goto T2804;
T2804:;
	base[2]= (V1047->c.c_car);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk960)();
	vs_top=sup;
	(V1046->c.c_car)= vs_base[0];
	V1047=MMcdr(V1047);
	if(endp(V1047)){
	V1045= base[1];
	goto T2803;}
	V1046=MMcdr(V1046)=MMcons(Cnil,Cnil);
	goto T2804;}
	goto T2803;
T2803:;
	base[1]= make_cons(((object)VV[293]),V1045);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T2801;
T2801:;
	if(!((caar((V1042)))==(((object)VV[291])))){
	goto T2808;}
	base[1]= (V1043);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk960)();
	return;
	goto T2808;
T2808:;
	base[1]= (V1043);
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for IMPLICIT	*/

static void L43()
{register object *base=vs_base;
	register object *sup=base+VM39; VC39
	vs_reserve(VM39);
	bds_check;
	{object V1048;
	object V1049;
	object V1050;
	object V1051;
	object V1052;
	object V1053;
	object V1054;
	check_arg(7);
	V1048=(base[0]);
	V1049=(base[1]);
	V1050=(base[2]);
	V1051=(base[3]);
	V1052=(base[4]);
	V1053=(base[5]);
	V1054=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1055;
	object V1056;
	object V1057;
	object V1058;
	object V1059;
	object V1060;
	object V1061;
	object V1062;
	object V1063;
	object V1064;
	object V1065;
	object V1066;
	object V1067;
	bds_bind(((object)VV[249]),Ct);
	bds_bind(((object)VV[294]),symbol_value(((object)VV[294])));
	bds_bind(((object)VV[274]),Cnil);
	base[11]= (V1048);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[10]= vs_base[0];
	base[12]= (V1048);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+10)+2;
	(void) (*Lnk959)();
	vs_top=sup;
	V1055= vs_base[0];
	base[10]= ((object)VV[295]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1056= vs_base[0];
	base[10]= ((object)VV[296]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1057= vs_base[0];
	V1058= Cnil;
	V1059= Cnil;
	base[10]= (V1050);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1060= vs_base[0];
	base[10]= (V1051);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1061= vs_base[0];
	base[10]= (V1053);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1062= vs_base[0];
	base[10]= (V1054);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1063= vs_base[0];
	base[10]= immnum_minus((V1061),(V1060));
	base[11]= (*(LnkLI934))((V1056));
	vs_top=(vs_base=base+10)+2;
	Ldivide();
	vs_top=sup;
	V1064= vs_base[0];
	base[10]= immnum_minus((V1063),(V1062));
	base[12]= (V1056);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+10)+2;
	Ldivide();
	vs_top=sup;
	V1065= vs_base[0];
	V1068= (*(LnkLI934))((V1056));
	V1069= immnum_plus(/* INLINE-ARGS */V1068,make_fixnum(1));
	base[10]= (V1056);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	V1070= vs_base[0];
	V1071= list(2,/* INLINE-ARGS */V1069,immnum_plus(V1070,make_fixnum(1)));
	V1066= (VFUN_NARGS=1,(*(LnkLI272))(/* INLINE-ARGS */V1071));
	V1072= (*(LnkLI934))((V1057));
	V1073= immnum_plus(/* INLINE-ARGS */V1072,make_fixnum(1));
	base[10]= (V1057);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	V1074= vs_base[0];
	V1075= list(2,/* INLINE-ARGS */V1073,immnum_plus(V1074,make_fixnum(1)));
	V1067= (VFUN_NARGS=1,(*(LnkLI272))(/* INLINE-ARGS */V1075));
	V1076= (*(LnkLI947))((V1055));
	V1077= cdr(/* INLINE-ARGS */V1076);
	V1078= list(2,(V1049),(V1052));
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1077,/* INLINE-ARGS */V1078)))!=Cnil){
	goto T2843;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[297]))));
	goto T2843;
T2843:;
	base[10]= (V1055);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk961)();
	vs_top=sup;
	V1079= vs_base[0];
	V1080= list(3,((object)VV[298]),(V1049),(V1052));
	V1058= (VFUN_NARGS=2,(*(LnkLI948))(V1079,/* INLINE-ARGS */V1080));
	base[10]= (V1060);
	base[11]= (V1061);
	base[12]= (V1062);
	base[13]= (V1063);
	vs_top=(vs_base=base+10)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[10]= (V1058);
	base[11]= (V1060);
	base[12]= (V1061);
	base[13]= (V1062);
	base[14]= (V1063);
	base[15]= (V1066);
	base[16]= (V1056);
	vs_top=(vs_base=base+10)+7;
	(void) (*Lnk962)();
	vs_top=sup;
	{object V1081;
	V1081= small_fixnum(0);
	goto T2865;
T2865:;
	V1082= (*(LnkLI934))((V1056));
	if(!(immnum_eq((V1081),/* INLINE-ARGS */V1082))){
	goto T2866;}
	goto T2863;
	goto T2866;
T2866:;
	{register object V1083;
	V1083= small_fixnum(0);
	goto T2872;
T2872:;
	base[10]= (V1056);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	V1084= vs_base[0];
	if(!(immnum_eq((V1083),V1084))){
	goto T2873;}
	goto T2870;
	goto T2873;
T2873:;
	base[10]= (V1081);
	base[11]= (V1083);
	base[12]= (V1066);
	vs_top=(vs_base=base+10)+3;
	(void) (*Lnk952)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T2879;}
	{register object V1085;
	object V1086;
	register object V1087;
	object V1088;
	V1089= immnum_times((V1081),(V1064));
	V1085= immnum_plus((V1060),/* INLINE-ARGS */V1089);
	V1086= immnum_plus((V1085),(V1064));
	V1090= immnum_times((V1083),(V1065));
	V1087= immnum_plus((V1062),/* INLINE-ARGS */V1090);
	V1088= immnum_plus((V1087),(V1065));
	base[10]= (V1058);
	base[11]= (V1085);
	base[12]= (V1086);
	base[13]= (V1087);
	base[14]= (V1088);
	base[15]= (V1067);
	base[16]= (V1057);
	vs_top=(vs_base=base+10)+7;
	(void) (*Lnk962)();
	vs_top=sup;
	base[10]= (V1085);
	base[11]= (V1086);
	base[12]= (V1087);
	base[13]= (V1088);
	base[14]= (V1067);
	base[15]= (V1057);
	vs_top=(vs_base=base+10)+6;
	(void) (*Lnk963)();
	vs_top=sup;}
	goto T2879;
T2879:;
	V1083= immnum_plus((V1083),make_fixnum(1));
	goto T2872;}
	goto T2870;
T2870:;
	V1081= immnum_plus((V1081),make_fixnum(1));
	goto T2865;}
	goto T2863;
T2863:;
	base[11]= ((object)VV[63]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[10]= vs_base[0];
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1091= vs_base[0];
	base[10]= ((object)VV[67]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1092= vs_base[0];
	base[10]= ((object)VV[68]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1093= vs_base[0];
	base[11]= ((object)VV[69]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[10]= vs_base[0];
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1094= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V1095= vs_base[0];
	V1059= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[299]),V1091,V1092,V1093,V1094,V1095));
	base[10]= ((object)VV[74]);
	base[11]= ((object)VV[300]);
	base[12]= ((object)VV[76]);
	base[13]= (V1059);
	base[14]= ((object)VV[77]);
	base[15]= ((object)VV[301]);
	base[16]= ((object)VV[78]);
	V1096 = make_fixnum((long)(length((((object)VV[274])->s.s_dbind))));
	V1097= (VFUN_NARGS=5,(*(LnkLI272))(V1096,((object)VV[79]),((object)VV[80]),((object)VV[81]),(((object)VV[274])->s.s_dbind)));
	base[17]= make_cons(/* INLINE-ARGS */V1097,Cnil);
	vs_top=(vs_base=base+10)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for IMPLICIT3D	*/

static void L44()
{register object *base=vs_base;
	register object *sup=base+VM40; VC40
	vs_reserve(VM40);
	bds_check;
	{object V1098;
	object V1099;
	object V1100;
	object V1101;
	object V1102;
	object V1103;
	object V1104;
	object V1105;
	object V1106;
	object V1107;
	check_arg(10);
	V1098=(base[0]);
	V1099=(base[1]);
	V1100=(base[2]);
	V1101=(base[3]);
	V1102=(base[4]);
	V1103=(base[5]);
	V1104=(base[6]);
	V1105=(base[7]);
	V1106=(base[8]);
	V1107=(base[9]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1108;
	object V1109;
	object V1110;
	object V1111;
	object V1112;
	object V1113;
	object V1114;
	object V1115;
	object V1116;
	object V1117;
	base[11]= (V1100);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1108= vs_base[0];
	base[11]= (V1101);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1109= vs_base[0];
	base[11]= (V1103);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1110= vs_base[0];
	base[11]= (V1104);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1111= vs_base[0];
	base[11]= (V1106);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1112= vs_base[0];
	base[11]= (V1107);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1113= vs_base[0];
	bds_bind(((object)VV[274]),Cnil);
	V1114= Cnil;
	V1115= Cnil;
	V1116= Cnil;
	V1117= Cnil;
	V1118= (*(LnkLI947))((V1098));
	V1119= cdr(/* INLINE-ARGS */V1118);
	V1120= list(3,(V1099),(V1102),(V1105));
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1119,/* INLINE-ARGS */V1120)))!=Cnil){
	goto T2942;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[302]))));
	goto T2942;
T2942:;
	base[11]= ((object)VV[303]);
	base[12]= ((object)VV[304]);
	vs_top=(vs_base=base+11)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(99)))){
	goto T2948;}
	base[11]= list(4,((object)VV[305]),(V1099),(V1102),(V1105));
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk964)();
	vs_top=sup;
	goto T2948;
T2948:;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T2955;}
	V1116= small_fixnum(3);
	goto T2953;
	goto T2955;
T2955:;
	V1116= small_fixnum(4);
	goto T2953;
T2953:;
	base[11]= (V1098);
	base[12]= (V1099);
	base[13]= (V1108);
	base[14]= (V1109);
	base[15]= (V1102);
	base[16]= (V1110);
	base[17]= (V1111);
	base[18]= (V1105);
	base[19]= (V1112);
	base[20]= (V1113);
	vs_top=(vs_base=base+11)+10;
	(void) (*Lnk965)();
	vs_top=sup;
	V1117= vs_base[0];
	if(((V1117))!=Cnil){
	goto T2969;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[306]))));
	goto T2969;
T2969:;
	base[11]= (V1108);
	base[12]= (V1109);
	base[13]= (V1110);
	base[14]= (V1111);
	base[15]= (V1112);
	base[16]= (V1113);
	vs_top=(vs_base=base+11)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[12]= ((object)VV[63]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1121= vs_base[0];
	base[11]= ((object)VV[308]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1123= vs_base[0];
	if(!(equal(V1123,((object)VV[2])))){
	goto T2986;}
	V1122= ((object)VV[309]);
	goto T2984;
	goto T2986;
T2986:;
	V1122= ((object)VV[310]);
	goto T2984;
T2984:;
	base[11]= ((object)VV[67]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1124= vs_base[0];
	base[11]= ((object)VV[68]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1125= vs_base[0];
	base[12]= ((object)VV[69]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1126= vs_base[0];
	V1127= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[307]),V1121,V1122,V1124,V1125,V1126));
	base[12]= make_fixnum((long)(length((V1117))));
	base[13]= small_fixnum(3);
	vs_top=(vs_base=base+12)+2;
	Ldivide();
	vs_top=sup;
	V1129= vs_base[0];
	base[11]= immnum_minus(V1129,small_fixnum(1));
	base[12]= ((object)VV[285]);
	base[14]= ((object)VV[308]);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1131= vs_base[0];
	if(!(equal(V1131,((object)VV[2])))){
	goto T3006;}
	V1130= ((object)VV[312]);
	goto T3004;
	goto T3006;
T3006:;
	V1130= ((object)VV[313]);
	goto T3004;
T3004:;
	base[14]= ((object)VV[67]);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1132= vs_base[0];
	base[14]= ((object)VV[68]);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1133= vs_base[0];
	base[15]= ((object)VV[69]);
	vs_top=(vs_base=base+15)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[14]= vs_base[0];
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1134= vs_base[0];
	base[13]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[311]),V1130,V1132,V1133,V1134));
	vs_top=(vs_base=base+11)+3;
	Lmake_list();
	vs_top=sup;
	V1128= vs_base[0];
	V1115= make_cons(/* INLINE-ARGS */V1127,V1128);
	{register object V1135;
	V1135= (V1117);
	goto T3019;
T3019:;
	if(((V1135))!=Cnil){
	goto T3020;}
	goto T3017;
	goto T3020;
T3020:;
	{object V1136= (V1116);
	if(!eql(V1136,((object)VV[314])))goto T3025;
	{object V1137;
	base[11]= list(4,car((V1135)),cadr((V1135)),car((V1135)),caddr((V1135)));
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk902)();
	vs_top=sup;
	V1138= vs_base[0];
	V1137= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(12),((object)VV[79]),((object)VV[80]),((object)VV[81]),V1138));
	(((object)VV[274])->s.s_dbind)= make_cons((V1137),(((object)VV[274])->s.s_dbind));
	goto T3024;}
	goto T3025;
T3025:;
	if(!eql(V1136,((object)VV[315])))goto T3030;
	{register object V1139;
	object V1140;
	object V1141;
	object V1142;
	object V1143;
	object V1144;
	V1139= Cnil;
	V1140= Cnil;
	V1141= Cnil;
	V1142= Cnil;
	V1143= Cnil;
	V1144= Cnil;
	V1139= car((V1135));
	V1140= cadr((V1135));
	V1141= caddr((V1135));{object V1145;
	V1145= symbol_value(((object)VV[125]));
	V1142= (
	V1146 = V1145,
	(type_of(V1146) == t_sfun ?(*((V1146)->sfn.sfn_self)):
	(fcall.fun=(V1146),fcall.argd=3,fcalln))(car((V1139)),cadr((V1139)),caddr((V1139))));}{object V1147;
	V1147= symbol_value(((object)VV[125]));
	V1143= (
	V1148 = V1147,
	(type_of(V1148) == t_sfun ?(*((V1148)->sfn.sfn_self)):
	(fcall.fun=(V1148),fcall.argd=3,fcalln))(car((V1140)),cadr((V1140)),caddr((V1140))));}{object V1149;
	V1149= symbol_value(((object)VV[125]));
	V1144= (
	V1150 = V1149,
	(type_of(V1150) == t_sfun ?(*((V1150)->sfn.sfn_self)):
	(fcall.fun=(V1150),fcall.argd=3,fcalln))(car((V1141)),cadr((V1141)),caddr((V1141))));}
	{object V1151;
	base[11]= list(8,(V1139),(V1142),(V1140),(V1143),(V1139),(V1142),(V1141),(V1144));
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk902)();
	vs_top=sup;
	V1152= vs_base[0];
	V1151= (VFUN_NARGS=5,(*(LnkLI272))(small_fixnum(16),((object)VV[79]),((object)VV[80]),((object)VV[81]),V1152));
	(((object)VV[274])->s.s_dbind)= make_cons((V1151),(((object)VV[274])->s.s_dbind));
	goto T3024;}}
	goto T3030;
T3030:;}
	goto T3024;
T3024:;
	{object V1153;
	V1153= list(2,(V1116),small_fixnum(2));
	V1114= make_cons((V1153),(V1114));}
	V1135= cdddr((V1135));
	goto T3019;}
	goto T3017;
T3017:;
	base[11]= ((object)VV[74]);
	base[12]= ((object)VV[300]);
	base[13]= ((object)VV[76]);
	base[14]= (V1115);
	base[15]= ((object)VV[77]);
	base[16]= (V1114);
	base[17]= ((object)VV[78]);
	base[18]= (((object)VV[274])->s.s_dbind);
	vs_top=(vs_base=base+11)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	return;}
	}
}
/*	function definition for EXPLICIT3D	*/

static void L45()
{register object *base=vs_base;
	register object *sup=base+VM41; VC41
	vs_reserve(VM41);
	bds_check;
	{object V1154;
	object V1155;
	object V1156;
	object V1157;
	object V1158;
	object V1159;
	object V1160;
	check_arg(7);
	V1154=(base[0]);
	V1155=(base[1]);
	V1156=(base[2]);
	V1157=(base[3]);
	V1158=(base[4]);
	V1159=(base[5]);
	V1160=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1161;
	object V1162;
	object V1163;
	object V1164;
	object V1165;
	object V1166;
	object V1167;
	object V1168;
	register object V1169;
	object V1170;
	register object V1171;
	object V1172;
	object V1173;
	object V1174;
	object V1175;
	object V1176;
	object V1177;
	object V1178;
	object V1179;
	object V1180;
	object V1181;
	object V1182;
	object V1183;
	object V1184;
	base[9]= ((object)VV[316]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1161= vs_base[0];
	base[9]= ((object)VV[317]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1162= vs_base[0];
	base[9]= (V1156);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1163= vs_base[0];
	base[9]= (V1159);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1164= vs_base[0];
	base[9]= (V1157);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1165= vs_base[0];
	base[9]= (V1160);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1166= vs_base[0];
	base[9]= immnum_minus((V1165),(V1163));
	base[10]= (V1161);
	vs_top=(vs_base=base+9)+2;
	Ldivide();
	vs_top=sup;
	V1167= vs_base[0];
	base[9]= immnum_minus((V1166),(V1164));
	base[10]= (V1162);
	vs_top=(vs_base=base+9)+2;
	Ldivide();
	vs_top=sup;
	V1168= vs_base[0];
	V1169= ((object)VV[318]);
	V1170= ((object)VV[319]);
	V1171= ((object)VV[320]);
	V1172= ((object)VV[321]);
	V1173= ((object)VV[322]);
	V1174= ((object)VV[323]);
	V1175= ((object)VV[324]);
	V1176= ((object)VV[325]);
	V1177= ((object)VV[326]);
	V1178= ((object)VV[327]);
	V1179= ((object)VV[328]);
	bds_bind(((object)VV[252]),symbol_value(((object)VV[252])));
	V1180= immnum_plus((V1161),small_fixnum(1));
	V1181= immnum_plus((V1162),small_fixnum(1));
	bds_bind(((object)VV[249]),Ct);
	V1182= small_fixnum(-1);
	V1183= Cnil;
	V1184= Cnil;
	V1185= (*(LnkLI947))((V1154));
	V1186= cdr(/* INLINE-ARGS */V1185);
	V1187= list(2,(V1155),(V1158));
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1186,/* INLINE-ARGS */V1187)))!=Cnil){
	goto T3095;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[329]))));
	goto T3095;
T3095:;
	base[9]= ((object)VV[255]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	(((object)VV[252])->s.s_dbind)= vs_base[0];
	base[9]= ((object)VV[330]);
	base[10]= ((object)VV[331]);
	vs_top=(vs_base=base+9)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(99)))){
	goto T3104;}
	base[9]= list(3,((object)VV[332]),(V1155),(V1158));
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk964)();
	vs_top=sup;
	goto T3104;
T3104:;
	V1188= list(3,((object)VV[333]),(V1155),(V1158));
	V1154= (VFUN_NARGS=2,(*(LnkLI948))((V1154),/* INLINE-ARGS */V1188));
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3113;}
	V1183= small_fixnum(3);
	goto T3111;
	goto T3113;
T3113:;
	V1183= small_fixnum(4);
	goto T3111;
T3111:;
	base[9]= (V1183);
	base[10]= (V1180);
	base[11]= (V1181);
	vs_top=(vs_base=base+9)+3;
	Ltimes();
	vs_top=sup;
	V1189= vs_base[0];
	V1184= (VFUN_NARGS=1,(*(LnkLI272))(V1189));
	{object V1191;
	V1191= small_fixnum(0);
	V1172= (V1164);
	goto T3123;
T3123:;
	if(!(immnum_ge((V1191),V1181))){
	goto T3126;}
	goto T3124;
	goto T3126;
T3126:;
	V1170= (V1163);
	{object V1193;
	V1193= small_fixnum(0);
	goto T3134;
T3134:;
	if(!(immnum_ge((V1193),V1180))){
	goto T3136;}
	goto T3135;
	goto T3136;
T3136:;
	V1169= (V1170);
	V1171= (V1172);
	V1173= (
	(type_of((V1154)) == t_sfun ?(*(((V1154))->sfn.sfn_self)):
	(fcall.fun=((V1154)),fcall.argd=2,fcalln))((V1169),(V1171)));
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3146;}
	{object V1194;
	object V1195;
	object V1196;
	V1194= (V1169);
	V1195= (V1171);
	V1196= (V1173);
	V1169= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1194),(V1195),(V1196)));
	V1171= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1194),(V1195),(V1196)));
	V1173= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1194),(V1195),(V1196)));}
	goto T3146;
T3146:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3154;}
	if(!(type_of((V1169))==t_fixnum||
type_of((V1169))==t_bignum||
type_of((V1169))==t_ratio||
type_of((V1169))==t_shortfloat||
type_of((V1169))==t_longfloat||
type_of((V1169))==t_complex)){
	goto T3157;}
	if(!(immnum_lt((V1169),(V1174)))){
	goto T3160;}
	V1174= (V1169);
	goto T3160;
T3160:;
	if(!(immnum_gt((V1169),(V1175)))){
	goto T3157;}
	V1175= (V1169);
	goto T3157;
T3157:;
	if(!(type_of((V1171))==t_fixnum||
type_of((V1171))==t_bignum||
type_of((V1171))==t_ratio||
type_of((V1171))==t_shortfloat||
type_of((V1171))==t_longfloat||
type_of((V1171))==t_complex)){
	goto T3154;}
	if(!(immnum_lt((V1171),(V1176)))){
	goto T3169;}
	V1176= (V1171);
	goto T3169;
T3169:;
	if(!(immnum_gt((V1171),(V1177)))){
	goto T3154;}
	V1177= (V1171);
	goto T3154;
T3154:;
	if(!(type_of((V1173))==t_fixnum||
type_of((V1173))==t_bignum||
type_of((V1173))==t_ratio||
type_of((V1173))==t_shortfloat||
type_of((V1173))==t_longfloat||
type_of((V1173))==t_complex)){
	goto T3176;}
	if(!(immnum_lt((V1173),(V1178)))){
	goto T3179;}
	V1178= (V1173);
	goto T3179;
T3179:;
	if(!(immnum_gt((V1173),(V1179)))){
	goto T3176;}
	V1179= (V1173);
	goto T3176;
T3176:;
	V1182= immnum_plus((V1182),small_fixnum(1));
	(void)(aset1((V1184),fixint((V1182)),(V1169)));
	V1182= immnum_plus((V1182),small_fixnum(1));
	(void)(aset1((V1184),fixint((V1182)),(V1171)));
	V1182= immnum_plus((V1182),small_fixnum(1));
	(void)(aset1((V1184),fixint((V1182)),(V1173)));
	{object V1197= symbol_value(((object)VV[111]));
	if(!eql(V1197,((object)VV[334]))
	&& !eql(V1197,((object)VV[335])))goto T3193;
	V1182= immnum_plus((V1182),small_fixnum(1));
	base[9]= (V1169);
	base[10]= (V1171);
	vs_top=(vs_base=base+9)+2;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1198= vs_base[0];
	(void)(aset1((V1184),fixint((V1182)),V1198));
	goto T3192;
	goto T3193;
T3193:;
	if(!eql(V1197,((object)VV[314])))goto T3198;
	V1182= immnum_plus((V1182),small_fixnum(1));
	base[9]= (V1169);
	base[10]= (V1171);
	base[11]= (V1173);
	vs_top=(vs_base=base+9)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1199= vs_base[0];
	(void)(aset1((V1184),fixint((V1182)),V1199));
	goto T3192;
	goto T3198;
T3198:;}
	goto T3192;
T3192:;
	V1170= immnum_plus((V1170),(V1167));
	V1193= immnum_plus((V1193),make_fixnum(1));
	goto T3134;
	goto T3135;
T3135:;
	goto T3132;}
	goto T3132;
T3132:;
	V1172= immnum_plus((V1172),(V1168));
	V1191= immnum_plus((V1191),make_fixnum(1));
	goto T3123;
	goto T3124;
T3124:;
	goto T3121;}
	goto T3121;
T3121:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3210;}
	V1163= (V1174);
	V1165= (V1175);
	V1164= (V1176);
	V1166= (V1177);
	goto T3210;
T3210:;
	base[9]= (V1163);
	base[10]= (V1165);
	base[11]= (V1164);
	base[12]= (V1166);
	base[13]= (V1178);
	base[14]= (V1179);
	vs_top=(vs_base=base+9)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[9]= ((object)VV[74]);
	base[10]= ((object)VV[264]);
	base[11]= ((object)VV[76]);
	base[14]= ((object)VV[63]);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[13]= vs_base[0];
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1200= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3236;}
	V1201= ((object)VV[337]);
	goto T3234;
	goto T3236;
T3236:;
	V1201= ((object)VV[338]);
	goto T3234;
T3234:;
	base[13]= ((object)VV[67]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1202= vs_base[0];
	base[13]= ((object)VV[68]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1203= vs_base[0];
	base[14]= ((object)VV[69]);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[13]= vs_base[0];
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1204= vs_base[0];
	base[12]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[336]),V1200,V1201,V1202,V1203,V1204));
	base[13]= ((object)VV[77]);
	V1205= list(2,(V1183),(V1180));
	base[14]= make_cons(/* INLINE-ARGS */V1205,Cnil);
	base[15]= ((object)VV[78]);
	base[16]= make_cons((V1184),Cnil);
	vs_top=(vs_base=base+9)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for ELEVATION_GRID	*/

static void L46()
{register object *base=vs_base;
	register object *sup=base+VM42; VC42
	vs_reserve(VM42);
	bds_check;
	{object V1206;
	object V1207;
	object V1208;
	check_arg(5);
	V1206=(base[0]);
	V1207=(base[1]);
	V1208=(base[2]);
	bds_bind(((object)VV[339]),base[3]);
	bds_bind(((object)VV[340]),base[4]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1209;
	object V1210;
	object V1211;
	object V1212;
	object V1213;
	object V1214;
	object V1215;
	object V1216;
	object V1217;
	object V1218;
	object V1219;
	object V1220;
	object V1221;
	object V1222;
	base[5]= (V1207);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1209= vs_base[0];
	base[5]= (V1208);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1210= vs_base[0];
	base[5]= (((object)VV[339])->s.s_dbind);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1211= vs_base[0];
	base[5]= (((object)VV[340])->s.s_dbind);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1212= vs_base[0];
	V1213= ((object)VV[341]);
	V1214= ((object)VV[342]);
	V1215= ((object)VV[343]);
	V1216= ((object)VV[344]);
	V1217= ((object)VV[345]);
	V1218= ((object)VV[346]);
	V1219= Cnil;
	V1220= Cnil;
	V1221= Cnil;
	V1222= Cnil;
	base[5]= ((object)VV[347]);
	base[6]= ((object)VV[348]);
	vs_top=(vs_base=base+5)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(((*(LnkLI911))((V1206)))==Cnil){
	goto T3262;}
	{object V1223;
	object V1224;
	register object V1225;
	register object V1226;
	object V1227;
	object V1228;
	object V1229;
	object V1230;
	V1224= immnum_plus((V1210),(V1212));
	V1223= ((object)VV[349]);
	V1225= ((object)VV[350]);
	V1226= ((object)VV[351]);
	V1227= ((object)VV[352]);
	V1228= small_fixnum(-1);
	V1229= Cnil;
	V1230= Cnil;
	V1222= make_fixnum((long)(length(cdadr((V1206)))));
	V1221= make_fixnum((long)(length(cdr((V1206)))));
	base[5]= (V1211);
	base[6]= immnum_plus((V1222),make_fixnum(-1));
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1229= vs_base[0];
	base[5]= (V1212);
	base[6]= immnum_plus((V1221),make_fixnum(-1));
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1230= vs_base[0];
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3280;}
	V1219= small_fixnum(3);
	goto T3278;
	goto T3280;
T3280:;
	V1219= small_fixnum(4);
	goto T3278;
T3278:;
	base[5]= (V1222);
	base[6]= (V1221);
	base[7]= (V1219);
	vs_top=(vs_base=base+5)+3;
	Ltimes();
	vs_top=sup;
	V1231= vs_base[0];
	V1220= (VFUN_NARGS=3,(*(LnkLI272))(V1231,((object)VV[79]),((object)VV[80])));
	{object V1232;
	V1232= cdr((V1206));
	goto T3290;
T3290:;
	if(!(type_of((V1232))!=t_cons)){
	goto T3292;}
	goto T3291;
	goto T3292;
T3292:;
	V1223= (V1209);
	{object V1233;
	V1233= cdar((V1232));
	goto T3301;
T3301:;
	if(!(type_of((V1233))!=t_cons)){
	goto T3303;}
	goto T3302;
	goto T3303;
T3303:;
	V1225= (V1223);
	V1226= (V1224);
	base[5]= car((V1233));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1227= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3314;}
	{object V1234;
	object V1235;
	object V1236;
	V1234= (V1225);
	V1235= (V1226);
	V1236= (V1227);
	V1225= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1234),(V1235),(V1236)));
	V1226= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1234),(V1235),(V1236)));
	V1227= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1234),(V1235),(V1236)));}
	goto T3314;
T3314:;
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3322;}
	if(!(type_of((V1225))==t_fixnum||
type_of((V1225))==t_bignum||
type_of((V1225))==t_ratio||
type_of((V1225))==t_shortfloat||
type_of((V1225))==t_longfloat||
type_of((V1225))==t_complex)){
	goto T3325;}
	if(!(immnum_lt((V1225),(V1213)))){
	goto T3328;}
	V1213= (V1225);
	goto T3328;
T3328:;
	if(!(immnum_gt((V1225),(V1214)))){
	goto T3325;}
	V1214= (V1225);
	goto T3325;
T3325:;
	if(!(type_of((V1226))==t_fixnum||
type_of((V1226))==t_bignum||
type_of((V1226))==t_ratio||
type_of((V1226))==t_shortfloat||
type_of((V1226))==t_longfloat||
type_of((V1226))==t_complex)){
	goto T3322;}
	if(!(immnum_lt((V1226),(V1215)))){
	goto T3337;}
	V1215= (V1226);
	goto T3337;
T3337:;
	if(!(immnum_gt((V1226),(V1216)))){
	goto T3322;}
	V1216= (V1226);
	goto T3322;
T3322:;
	if(!(type_of((V1227))==t_fixnum||
type_of((V1227))==t_bignum||
type_of((V1227))==t_ratio||
type_of((V1227))==t_shortfloat||
type_of((V1227))==t_longfloat||
type_of((V1227))==t_complex)){
	goto T3344;}
	if(!(immnum_lt((V1227),(V1217)))){
	goto T3347;}
	V1217= (V1227);
	goto T3347;
T3347:;
	if(!(immnum_gt((V1227),(V1218)))){
	goto T3344;}
	V1218= (V1227);
	goto T3344;
T3344:;
	V1228= immnum_plus((V1228),small_fixnum(1));
	(void)(aset1((V1220),fixint((V1228)),(V1225)));
	V1228= immnum_plus((V1228),small_fixnum(1));
	(void)(aset1((V1220),fixint((V1228)),(V1226)));
	V1228= immnum_plus((V1228),small_fixnum(1));
	(void)(aset1((V1220),fixint((V1228)),(V1227)));
	{object V1237= symbol_value(((object)VV[111]));
	if(!eql(V1237,((object)VV[334])))goto T3361;
	V1228= immnum_plus((V1228),small_fixnum(1));
	base[5]= (V1225);
	base[6]= (V1226);
	vs_top=(vs_base=base+5)+2;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1238= vs_base[0];
	(void)(aset1((V1220),fixint((V1228)),V1238));
	goto T3360;
	goto T3361;
T3361:;
	if(!eql(V1237,((object)VV[314])))goto T3366;
	V1228= immnum_plus((V1228),small_fixnum(1));
	base[5]= (V1225);
	base[6]= (V1226);
	base[7]= (V1227);
	vs_top=(vs_base=base+5)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1239= vs_base[0];
	(void)(aset1((V1220),fixint((V1228)),V1239));
	goto T3360;
	goto T3366;
T3366:;}
	goto T3360;
T3360:;
	V1223= immnum_plus((V1223),(V1229));
	V1233= cdr((V1233));
	goto T3301;
	goto T3302;
T3302:;
	goto T3298;}
	goto T3298;
T3298:;
	V1224= immnum_minus((V1224),(V1230));
	V1232= cdr((V1232));
	goto T3290;
	goto T3291;
T3291:;
	goto T3260;}}
	goto T3262;
T3262:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[353]))));
	goto T3260;
T3260:;
	if(!(immnum_eq(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3378;}
	V1213= (V1209);
	V1214= immnum_plus((V1209),(V1211));
	V1215= (V1210);
	V1216= immnum_plus((V1210),(V1212));
	goto T3378;
T3378:;
	base[5]= (V1213);
	base[6]= (V1214);
	base[7]= (V1215);
	base[8]= (V1216);
	base[9]= (V1217);
	base[10]= (V1218);
	vs_top=(vs_base=base+5)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[5]= ((object)VV[74]);
	base[6]= ((object)VV[354]);
	base[7]= ((object)VV[76]);
	base[10]= ((object)VV[63]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[9]= vs_base[0];
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1240= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3404;}
	V1241= ((object)VV[356]);
	goto T3402;
	goto T3404;
T3404:;
	V1241= ((object)VV[357]);
	goto T3402;
T3402:;
	base[9]= ((object)VV[67]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1242= vs_base[0];
	base[9]= ((object)VV[68]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1243= vs_base[0];
	base[10]= ((object)VV[69]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[9]= vs_base[0];
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1244= vs_base[0];
	base[8]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[355]),V1240,V1241,V1242,V1243,V1244));
	base[9]= ((object)VV[77]);
	V1245= list(2,(V1219),(V1222));
	base[10]= make_cons(/* INLINE-ARGS */V1245,Cnil);
	base[11]= ((object)VV[78]);
	base[12]= make_cons((V1220),Cnil);
	vs_top=(vs_base=base+5)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for MESH	*/

static void L47()
{register object *base=vs_base;
	register object *sup=base+VM43; VC43
	vs_reserve(VM43);
	{object V1246;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V1246=(base[0]);
	vs_top=sup;
	{object V1247;
	register object V1248;
	register object V1249;
	register object V1250;
	object V1251;
	object V1252;
	object V1253;
	object V1254;
	object V1255;
	object V1256;
	object V1257;
	object V1258;
	object V1259;
	object V1260;
	object V1261;
	register object V1262;
	V1247= Cnil;
	V1248= Cnil;
	V1249= Cnil;
	V1250= Cnil;
	V1251= ((object)VV[358]);
	V1252= ((object)VV[359]);
	V1253= ((object)VV[360]);
	V1254= ((object)VV[361]);
	V1255= ((object)VV[362]);
	V1256= ((object)VV[363]);
	V1257= Cnil;
	V1258= Cnil;
	V1259= Cnil;
	V1260= Cnil;
	V1261= Cnil;
	V1262= small_fixnum(-1);
	if(!(((long)length((V1246)))==((long)5))){
	goto T3418;}
	if(((*(LnkLI911))(car((V1246))))==Cnil){
	goto T3418;}
	(void)(print(((object)VV[364]),Cnil));
	(void)(print(((object)VV[365]),Cnil));
	{object V1263;
	V1263= (V1246);
	 vs_top=base+1;
	 while(!endp(V1263))
	 {vs_push(car(V1263));V1263=cdr(V1263);}
	vs_base=base+1;}
	(void) (*Lnk354)();
	return;
	goto T3418;
T3418:;
	base[1]= ((object)VV[366]);
	base[2]= ((object)VV[367]);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(((long)length((V1246)))<((long)2)){
	goto T3429;}
	V1264= symbol_function(((object)VV[893]));
	if(((VFUN_NARGS=2,(*(LnkLI894))(V1264,(V1246))))!=Cnil){
	goto T3428;}
	goto T3429;
T3429:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[368]))));
	goto T3428;
T3428:;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3437;}
	V1259= small_fixnum(3);
	goto T3435;
	goto T3437;
T3437:;
	V1259= small_fixnum(4);
	goto T3435;
T3435:;
	V1257= make_fixnum((long)(length((V1246))));
	V1258= (*(LnkLI913))(car((V1246)));
	base[1]= (V1257);
	base[2]= (V1258);
	base[3]= (V1259);
	vs_top=(vs_base=base+1)+3;
	Ltimes();
	vs_top=sup;
	V1265= vs_base[0];
	V1247= (VFUN_NARGS=3,(*(LnkLI272))(V1265,((object)VV[79]),((object)VV[80])));
	V1261= small_fixnum(0);
	{object V1266;
	object V1267;
	V1266= (V1246);
	V1267= car((V1266));
	goto T3455;
T3455:;
	if(!(endp_prop((V1266)))){
	goto T3456;}
	goto T3451;
	goto T3456;
T3456:;
	V1261= immnum_plus((V1261),small_fixnum(1));
	V1260= small_fixnum(0);
	{object V1268;
	object V1269;
	V1268= cdr((V1267));
	V1269= car((V1268));
	goto T3468;
T3468:;
	if(!(endp_prop((V1268)))){
	goto T3469;}
	goto T3464;
	goto T3469;
T3469:;
	V1260= immnum_plus((V1260),small_fixnum(1));
	base[1]= (*(LnkLI934))((V1269));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1248= vs_base[0];
	base[2]= (V1269);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk932)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1249= vs_base[0];
	base[2]= (V1269);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk933)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1250= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3486;}
	{object V1270;
	object V1271;
	object V1272;
	V1270= (V1248);
	V1271= (V1249);
	V1272= (V1250);
	V1248= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1270),(V1271),(V1272)));
	V1249= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1270),(V1271),(V1272)));
	V1250= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1270),(V1271),(V1272)));}
	goto T3486;
T3486:;
	if(!(type_of((V1248))==t_fixnum||
type_of((V1248))==t_bignum||
type_of((V1248))==t_ratio||
type_of((V1248))==t_shortfloat||
type_of((V1248))==t_longfloat||
type_of((V1248))==t_complex)){
	goto T3494;}
	if(!(immnum_lt((V1248),(V1251)))){
	goto T3497;}
	V1251= (V1248);
	goto T3497;
T3497:;
	if(!(immnum_gt((V1248),(V1252)))){
	goto T3494;}
	V1252= (V1248);
	goto T3494;
T3494:;
	if(!(type_of((V1249))==t_fixnum||
type_of((V1249))==t_bignum||
type_of((V1249))==t_ratio||
type_of((V1249))==t_shortfloat||
type_of((V1249))==t_longfloat||
type_of((V1249))==t_complex)){
	goto T3504;}
	if(!(immnum_lt((V1249),(V1253)))){
	goto T3507;}
	V1253= (V1249);
	goto T3507;
T3507:;
	if(!(immnum_gt((V1249),(V1254)))){
	goto T3504;}
	V1254= (V1249);
	goto T3504;
T3504:;
	if(!(type_of((V1250))==t_fixnum||
type_of((V1250))==t_bignum||
type_of((V1250))==t_ratio||
type_of((V1250))==t_shortfloat||
type_of((V1250))==t_longfloat||
type_of((V1250))==t_complex)){
	goto T3514;}
	if(!(immnum_lt((V1250),(V1255)))){
	goto T3517;}
	V1255= (V1250);
	goto T3517;
T3517:;
	if(!(immnum_gt((V1250),(V1256)))){
	goto T3514;}
	V1256= (V1250);
	goto T3514;
T3514:;
	V1262= immnum_plus((V1262),small_fixnum(1));
	(void)(aset1((V1247),fixint((V1262)),(V1248)));
	V1262= immnum_plus((V1262),small_fixnum(1));
	(void)(aset1((V1247),fixint((V1262)),(V1249)));
	V1262= immnum_plus((V1262),small_fixnum(1));
	(void)(aset1((V1247),fixint((V1262)),(V1250)));
	{object V1273= symbol_value(((object)VV[111]));
	if(!eql(V1273,((object)VV[334])))goto T3531;
	V1262= immnum_plus((V1262),small_fixnum(1));
	base[1]= (V1261);
	base[2]= (V1260);
	vs_top=(vs_base=base+1)+2;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1274= vs_base[0];
	(void)(aset1((V1247),fixint((V1262)),V1274));
	goto T3530;
	goto T3531;
T3531:;
	if(!eql(V1273,((object)VV[314])))goto T3536;
	V1262= immnum_plus((V1262),small_fixnum(1));
	base[1]= (V1248);
	base[2]= (V1249);
	base[3]= (V1250);
	vs_top=(vs_base=base+1)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1275= vs_base[0];
	(void)(aset1((V1247),fixint((V1262)),V1275));
	goto T3530;
	goto T3536;
T3536:;}
	goto T3530;
T3530:;
	V1268= cdr((V1268));
	V1269= car((V1268));
	goto T3468;}
	goto T3464;
T3464:;
	V1266= cdr((V1266));
	V1267= car((V1266));
	goto T3455;}
	goto T3451;
T3451:;
	base[1]= (V1251);
	base[2]= (V1252);
	base[3]= (V1253);
	base[4]= (V1254);
	base[5]= (V1255);
	base[6]= (V1256);
	vs_top=(vs_base=base+1)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[1]= ((object)VV[74]);
	base[2]= ((object)VV[369]);
	base[3]= ((object)VV[76]);
	base[6]= ((object)VV[63]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1276= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3568;}
	V1277= ((object)VV[371]);
	goto T3566;
	goto T3568;
T3568:;
	V1277= ((object)VV[372]);
	goto T3566;
T3566:;
	base[5]= ((object)VV[67]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1278= vs_base[0];
	base[5]= ((object)VV[68]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1279= vs_base[0];
	base[6]= ((object)VV[69]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1280= vs_base[0];
	base[4]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[370]),V1276,V1277,V1278,V1279,V1280));
	base[5]= ((object)VV[77]);
	V1281= list(2,(V1259),(V1258));
	base[6]= make_cons(/* INLINE-ARGS */V1281,Cnil);
	base[7]= ((object)VV[78]);
	base[8]= make_cons((V1247),Cnil);
	vs_top=(vs_base=base+1)+8;
	(void) (*Lnk903)();
	return;}
	}
}
/*	function definition for TRIANGLE3D	*/

static void L48()
{register object *base=vs_base;
	register object *sup=base+VM44; VC44
	vs_reserve(VM44);
	{register object V1282;
	register object V1283;
	register object V1284;
	check_arg(3);
	V1282=(base[0]);
	V1283=(base[1]);
	V1284=(base[2]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V1282)))==Cnil){
	goto T3582;}
	V1285= (*(LnkLI913))((V1282));
	if(!(immnum_eq(/* INLINE-ARGS */V1285,small_fixnum(3)))){
	goto T3582;}
	if(((*(LnkLI893))((V1283)))==Cnil){
	goto T3582;}
	V1286= (*(LnkLI913))((V1283));
	if(!(immnum_eq(/* INLINE-ARGS */V1286,small_fixnum(3)))){
	goto T3582;}
	if(((*(LnkLI893))((V1284)))==Cnil){
	goto T3582;}
	V1287= (*(LnkLI913))((V1284));
	if(immnum_eq(/* INLINE-ARGS */V1287,small_fixnum(3))){
	goto T3581;}
	goto T3582;
T3582:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[373]))));
	goto T3581;
T3581:;
	{object V1288;
	object V1289;
	object V1290;
	object V1291;
	object V1292;
	object V1293;
	object V1294;
	object V1295;
	object V1296;
	object V1297;
	base[3]= cadr((V1282));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1288= vs_base[0];
	base[3]= caddr((V1282));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1289= vs_base[0];
	base[3]= cadddr((V1282));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1290= vs_base[0];
	base[3]= cadr((V1283));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1291= vs_base[0];
	base[3]= caddr((V1283));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1292= vs_base[0];
	base[3]= cadddr((V1283));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1293= vs_base[0];
	base[3]= cadr((V1284));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1294= vs_base[0];
	base[3]= caddr((V1284));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1295= vs_base[0];
	base[3]= cadddr((V1284));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1296= vs_base[0];
	V1298= list(4,((object)VV[375]),(V1288),(V1289),(V1290));
	base[3]= list(3,((object)VV[374]),/* INLINE-ARGS */V1298,list(4,((object)VV[376]),(V1288),(V1289),(V1290)));
	V1299= list(4,((object)VV[378]),(V1291),(V1292),(V1293));
	base[4]= list(3,((object)VV[377]),/* INLINE-ARGS */V1299,list(4,((object)VV[379]),(V1294),(V1295),(V1296)));
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk369)();
	vs_top=sup;
	V1297= vs_base[0];
	(void)(structure_set((V1297),((object)VV[40]),(long)0,((object)VV[155])));
	base[3]= (V1297);
	vs_top=(vs_base=base+3)+1;
	return;}
	}
}
/*	function definition for QUADRILATERAL3D	*/

static void L49()
{register object *base=vs_base;
	register object *sup=base+VM45; VC45
	vs_reserve(VM45);
	{register object V1300;
	register object V1301;
	register object V1302;
	register object V1303;
	check_arg(4);
	V1300=(base[0]);
	V1301=(base[1]);
	V1302=(base[2]);
	V1303=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI893))((V1300)))==Cnil){
	goto T3617;}
	V1304= (*(LnkLI913))((V1300));
	if(!(immnum_eq(/* INLINE-ARGS */V1304,small_fixnum(3)))){
	goto T3617;}
	if(((*(LnkLI893))((V1301)))==Cnil){
	goto T3617;}
	V1305= (*(LnkLI913))((V1301));
	if(!(immnum_eq(/* INLINE-ARGS */V1305,small_fixnum(3)))){
	goto T3617;}
	if(((*(LnkLI893))((V1302)))==Cnil){
	goto T3617;}
	V1306= (*(LnkLI913))((V1302));
	if(!(immnum_eq(/* INLINE-ARGS */V1306,small_fixnum(3)))){
	goto T3617;}
	if(((*(LnkLI893))((V1303)))==Cnil){
	goto T3617;}
	V1307= (*(LnkLI913))((V1303));
	if(immnum_eq(/* INLINE-ARGS */V1307,small_fixnum(3))){
	goto T3616;}
	goto T3617;
T3617:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[380]))));
	goto T3616;
T3616:;
	{object V1308;
	object V1309;
	object V1310;
	object V1311;
	object V1312;
	object V1313;
	object V1314;
	object V1315;
	object V1316;
	object V1317;
	object V1318;
	object V1319;
	object V1320;
	base[4]= cadr((V1300));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1308= vs_base[0];
	base[4]= caddr((V1300));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1309= vs_base[0];
	base[4]= cadddr((V1300));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1310= vs_base[0];
	base[4]= cadr((V1301));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1311= vs_base[0];
	base[4]= caddr((V1301));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1312= vs_base[0];
	base[4]= cadddr((V1301));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1313= vs_base[0];
	base[4]= cadr((V1302));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1314= vs_base[0];
	base[4]= caddr((V1302));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1315= vs_base[0];
	base[4]= cadddr((V1302));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1316= vs_base[0];
	base[4]= cadr((V1303));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1317= vs_base[0];
	base[4]= caddr((V1303));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1318= vs_base[0];
	base[4]= cadddr((V1303));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1319= vs_base[0];
	V1321= list(4,((object)VV[382]),(V1308),(V1309),(V1310));
	base[4]= list(3,((object)VV[381]),/* INLINE-ARGS */V1321,list(4,((object)VV[383]),(V1311),(V1312),(V1313)));
	V1322= list(4,((object)VV[385]),(V1314),(V1315),(V1316));
	base[5]= list(3,((object)VV[384]),/* INLINE-ARGS */V1322,list(4,((object)VV[386]),(V1317),(V1318),(V1319)));
	vs_top=(vs_base=base+4)+2;
	(void) (*Lnk369)();
	vs_top=sup;
	V1320= vs_base[0];
	(void)(structure_set((V1320),((object)VV[40]),(long)0,((object)VV[163])));
	base[4]= (V1320);
	vs_top=(vs_base=base+4)+1;
	return;}
	}
}
/*	function definition for PARAMETRIC	*/

static void L50()
{register object *base=vs_base;
	register object *sup=base+VM46; VC46
	vs_reserve(VM46);
	bds_check;
	{object V1323;
	object V1324;
	object V1325;
	object V1326;
	object V1327;
	check_arg(5);
	V1323=(base[0]);
	V1324=(base[1]);
	V1325=(base[2]);
	V1326=(base[3]);
	V1327=(base[4]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1328;
	object V1329;
	object V1330;
	object V1331;
	object V1332;
	object V1333;
	object V1334;
	register object V1335;
	object V1336;
	object V1337;
	object V1338;
	object V1339;
	register object V1340;
	register object V1341;
	base[7]= ((object)VV[173]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1328= vs_base[0];
	bds_bind(((object)VV[249]),Ct);
	base[7]= (V1326);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1329= vs_base[0];
	base[7]= (V1327);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1330= vs_base[0];
	V1331= ((object)VV[387]);
	V1332= ((object)VV[388]);
	V1333= ((object)VV[389]);
	V1334= ((object)VV[390]);
	bds_bind(((object)VV[252]),symbol_value(((object)VV[252])));
	base[7]= (V1326);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1335= vs_base[0];
	base[7]= immnum_minus((V1330),(V1329));
	base[8]= immnum_minus((V1328),small_fixnum(1));
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	V1336= vs_base[0];
	V1337= Cnil;
	V1338= Cnil;
	V1339= Cnil;
	V1340= Cnil;
	V1341= Cnil;
	if(!(immnum_lt((V1330),(V1329)))){
	goto T3681;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[391]))));
	goto T3681;
T3681:;
	V1342= (*(LnkLI947))((V1323));
	V1343= cdr(/* INLINE-ARGS */V1342);
	V1344= (*(LnkLI947))((V1324));
	V1345= append(/* INLINE-ARGS */V1343,cdr(/* INLINE-ARGS */V1344));
	V1346= make_cons((V1325),Cnil);
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1345,/* INLINE-ARGS */V1346)))!=Cnil){
	goto T3684;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[392]))));
	goto T3684;
T3684:;
	base[7]= ((object)VV[255]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	(((object)VV[252])->s.s_dbind)= vs_base[0];
	V1347= list(2,((object)VV[393]),(V1325));
	V1338= (VFUN_NARGS=2,(*(LnkLI948))((V1323),/* INLINE-ARGS */V1347));
	V1348= list(2,((object)VV[394]),(V1325));
	V1339= (VFUN_NARGS=2,(*(LnkLI948))((V1324),/* INLINE-ARGS */V1348));
	{object V1349;
	object V1350;
	V1349= make_cons(Cnil,Cnil);
	V1350= (V1349);
	goto T3699;
T3699:;
	base[8]= (V1335);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = (V1338);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1340= vs_base[0];
	base[8]= (V1335);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = (V1339);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1341= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3710;}
	{object V1351;
	object V1352;
	V1351= (V1340);
	V1352= (V1341);
	V1340= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=2,fcalln))((V1351),(V1352)));
	V1341= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=2,fcalln))((V1351),(V1352)));}
	goto T3710;
T3710:;
	if(!(type_of((V1340))==t_fixnum||
type_of((V1340))==t_bignum||
type_of((V1340))==t_ratio||
type_of((V1340))==t_shortfloat||
type_of((V1340))==t_longfloat||
type_of((V1340))==t_complex)){
	goto T3716;}
	if(!(immnum_lt((V1340),(V1331)))){
	goto T3719;}
	V1331= (V1340);
	goto T3719;
T3719:;
	if(!(immnum_gt((V1340),(V1332)))){
	goto T3716;}
	V1332= (V1340);
	goto T3716;
T3716:;
	if(!(type_of((V1341))==t_fixnum||
type_of((V1341))==t_bignum||
type_of((V1341))==t_ratio||
type_of((V1341))==t_shortfloat||
type_of((V1341))==t_longfloat||
type_of((V1341))==t_complex)){
	goto T3701;}
	if(!(immnum_lt((V1341),(V1333)))){
	goto T3728;}
	V1333= (V1341);
	goto T3728;
T3728:;
	if(!(immnum_gt((V1341),(V1334)))){
	goto T3701;}
	V1334= (V1341);
	goto T3701;
T3701:;{object V1353;
	V1353= (V1350);
	V1350= make_cons((V1340),Cnil);
	if(type_of(V1353)!=t_cons)FEwrong_type_argument(Scons,V1353);
	(V1353)->c.c_cdr = SAFE_CDR((V1350));}{object V1354;
	V1354= (V1350);
	V1350= make_cons((V1341),Cnil);
	if(type_of(V1354)!=t_cons)FEwrong_type_argument(Scons,V1354);
	(V1354)->c.c_cdr = SAFE_CDR((V1350));}
	if(!(immnum_ge((V1335),(V1330)))){
	goto T3739;}
	goto T3700;
	goto T3739;
T3739:;
	V1335= immnum_plus((V1335),(V1336));
	if(!(immnum_ge((V1335),(V1330)))){
	goto T3742;}
	V1335= (V1330);
	goto T3742;
T3742:;
	goto T3699;
	goto T3700;
T3700:;
	V1337= cdr((V1349));
	goto T3695;
	V1337= Cnil;
	goto T3695;}
	goto T3695;
T3695:;
	base[7]= (V1331);
	base[8]= (V1332);
	base[9]= (V1333);
	base[10]= (V1334);
	vs_top=(vs_base=base+7)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[7]= ((object)VV[74]);
	base[8]= ((object)VV[395]);
	base[9]= ((object)VV[76]);
	base[12]= ((object)VV[63]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1355= vs_base[0];
	base[11]= ((object)VV[67]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1356= vs_base[0];
	base[11]= ((object)VV[68]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1357= vs_base[0];
	base[12]= ((object)VV[69]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[11]= vs_base[0];
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1358= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk898)();
	vs_top=sup;
	V1359= vs_base[0];
	base[10]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[396]),V1355,V1356,V1357,V1358,V1359));
	base[11]= ((object)VV[77]);
	base[12]= ((object)VV[397]);
	base[13]= ((object)VV[78]);
	V1360 = make_fixnum((long)(length((V1337))));
	V1361= (VFUN_NARGS=3,(*(LnkLI272))(V1360,((object)VV[81]),(V1337)));
	base[14]= make_cons(/* INLINE-ARGS */V1361,Cnil);
	vs_top=(vs_base=base+7)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for POLAR	*/

static void L51()
{register object *base=vs_base;
	register object *sup=base+VM47; VC47
	vs_reserve(VM47);
	{object V1362;
	object V1363;
	object V1364;
	object V1365;
	check_arg(4);
	V1362=(base[0]);
	V1363=(base[1]);
	V1364=(base[2]);
	V1365=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1366;
	base[4]= list(3,((object)VV[398]),(V1362),list(2,((object)VV[399]),(V1363)));
	base[5]= list(3,((object)VV[400]),(V1362),list(2,((object)VV[401]),(V1363)));
	base[6]= (V1363);
	base[7]= (V1364);
	base[8]= (V1365);
	vs_top=(vs_base=base+4)+5;
	(void) (*Lnk395)();
	vs_top=sup;
	V1366= vs_base[0];
	(void)(structure_set((V1366),((object)VV[40]),(long)0,((object)VV[402])));
	base[4]= (V1366);
	vs_top=(vs_base=base+4)+1;
	return;}
	}
}
/*	function definition for SPHERICAL	*/

static void L52()
{register object *base=vs_base;
	register object *sup=base+VM48; VC48
	vs_reserve(VM48);
	{object V1367;
	object V1368;
	object V1369;
	object V1370;
	register object V1371;
	object V1372;
	object V1373;
	check_arg(7);
	V1367=(base[0]);
	V1368=(base[1]);
	V1369=(base[2]);
	V1370=(base[3]);
	V1371=(base[4]);
	V1372=(base[5]);
	V1373=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1374;
	V1375= list(2,((object)VV[404]),(V1371));
	base[7]= list(4,((object)VV[403]),(V1367),/* INLINE-ARGS */V1375,list(2,((object)VV[405]),(V1368)));
	V1376= list(2,((object)VV[407]),(V1371));
	base[8]= list(4,((object)VV[406]),(V1367),/* INLINE-ARGS */V1376,list(2,((object)VV[408]),(V1368)));
	base[9]= list(3,((object)VV[409]),(V1367),list(2,((object)VV[410]),(V1371)));
	base[10]= (V1368);
	base[11]= (V1369);
	base[12]= (V1370);
	base[13]= (V1371);
	base[14]= (V1372);
	base[15]= (V1373);
	vs_top=(vs_base=base+7)+9;
	(void) (*Lnk448)();
	vs_top=sup;
	V1374= vs_base[0];
	(void)(structure_set((V1374),((object)VV[40]),(long)0,((object)VV[411])));
	base[7]= (V1374);
	vs_top=(vs_base=base+7)+1;
	return;}
	}
}
/*	function definition for CYLINDRICAL	*/

static void L53()
{register object *base=vs_base;
	register object *sup=base+VM49; VC49
	vs_reserve(VM49);
	{object V1377;
	object V1378;
	object V1379;
	object V1380;
	object V1381;
	object V1382;
	object V1383;
	check_arg(7);
	V1377=(base[0]);
	V1378=(base[1]);
	V1379=(base[2]);
	V1380=(base[3]);
	V1381=(base[4]);
	V1382=(base[5]);
	V1383=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1384;
	base[7]= list(3,((object)VV[412]),(V1377),list(2,((object)VV[413]),(V1381)));
	base[8]= list(3,((object)VV[414]),(V1377),list(2,((object)VV[415]),(V1381)));
	base[9]= (V1378);
	base[10]= (V1378);
	base[11]= (V1379);
	base[12]= (V1380);
	base[13]= (V1381);
	base[14]= (V1382);
	base[15]= (V1383);
	vs_top=(vs_base=base+7)+9;
	(void) (*Lnk448)();
	vs_top=sup;
	V1384= vs_base[0];
	(void)(structure_set((V1384),((object)VV[40]),(long)0,((object)VV[416])));
	base[7]= (V1384);
	vs_top=(vs_base=base+7)+1;
	return;}
	}
}
/*	function definition for PARAMETRIC3D	*/

static void L54()
{register object *base=vs_base;
	register object *sup=base+VM50; VC50
	vs_reserve(VM50);
	bds_check;
	{object V1385;
	object V1386;
	object V1387;
	object V1388;
	object V1389;
	object V1390;
	check_arg(6);
	V1385=(base[0]);
	V1386=(base[1]);
	V1387=(base[2]);
	V1388=(base[3]);
	V1389=(base[4]);
	V1390=(base[5]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1391;
	object V1392;
	object V1393;
	object V1394;
	object V1395;
	object V1396;
	object V1397;
	object V1398;
	object V1399;
	object V1400;
	object V1401;
	register object V1402;
	object V1403;
	object V1404;
	object V1405;
	object V1406;
	object V1407;
	register object V1408;
	register object V1409;
	register object V1410;
	base[8]= ((object)VV[173]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1391= vs_base[0];
	bds_bind(((object)VV[249]),Ct);
	base[8]= (V1389);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1392= vs_base[0];
	base[8]= (V1390);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1393= vs_base[0];
	V1394= ((object)VV[417]);
	V1395= ((object)VV[418]);
	V1396= ((object)VV[419]);
	V1397= ((object)VV[420]);
	V1398= ((object)VV[421]);
	V1399= ((object)VV[422]);
	bds_bind(((object)VV[252]),symbol_value(((object)VV[252])));
	V1400= (V1392);
	base[8]= immnum_minus((V1393),(V1392));
	base[9]= immnum_minus((V1391),small_fixnum(1));
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1401= vs_base[0];
	V1402= small_fixnum(-1);
	V1403= Cnil;
	V1404= Cnil;
	V1405= Cnil;
	V1406= Cnil;
	V1407= Cnil;
	V1408= Cnil;
	V1409= Cnil;
	V1410= Cnil;
	V1411= (*(LnkLI947))((V1385));
	V1412= (*(LnkLI947))((V1386));
	V1413= (*(LnkLI947))((V1387));
	V1414= (VFUN_NARGS=3,(*(LnkLI532))(/* INLINE-ARGS */V1411,/* INLINE-ARGS */V1412,/* INLINE-ARGS */V1413));
	V1415= cdr(/* INLINE-ARGS */V1414);
	V1416= make_cons((V1388),Cnil);
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1415,/* INLINE-ARGS */V1416)))!=Cnil){
	goto T3827;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[423]))));
	goto T3827;
T3827:;
	base[8]= ((object)VV[255]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	(((object)VV[252])->s.s_dbind)= vs_base[0];
	base[8]= ((object)VV[424]);
	base[9]= ((object)VV[425]);
	vs_top=(vs_base=base+8)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(99)))){
	goto T3836;}
	base[8]= list(2,((object)VV[426]),(V1388));
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk964)();
	vs_top=sup;
	goto T3836;
T3836:;
	if(!(immnum_lt((V1393),(V1392)))){
	goto T3840;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[427]))));
	goto T3840;
T3840:;
	V1417= list(2,((object)VV[428]),(V1388));
	V1405= (VFUN_NARGS=2,(*(LnkLI948))((V1385),/* INLINE-ARGS */V1417));
	V1418= list(2,((object)VV[429]),(V1388));
	V1406= (VFUN_NARGS=2,(*(LnkLI948))((V1386),/* INLINE-ARGS */V1418));
	V1419= list(2,((object)VV[430]),(V1388));
	V1407= (VFUN_NARGS=2,(*(LnkLI948))((V1387),/* INLINE-ARGS */V1419));
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T3852;}
	V1403= small_fixnum(3);
	goto T3850;
	goto T3852;
T3852:;
	V1403= small_fixnum(4);
	goto T3850;
T3850:;
	V1420= immnum_times((V1403),(V1391));
	V1404= (VFUN_NARGS=1,(*(LnkLI272))(/* INLINE-ARGS */V1420));
	if(!(immnum_lt((V1391),small_fixnum(0)))){
	goto T3858;}
	{long V1421;
	V1421= (long)0;
	goto T3856;}
	goto T3858;
T3858:;
	if(!(immnum_le((V1391),((object)VV[257])))){
	goto T3862;}
	{register long V1422;
	V1422= fix((V1391));
	{register long V1423;
	V1423= (long)0;
	goto T3867;
T3867:;
	if(!((V1423)>=(V1422))){
	goto T3868;}
	goto T3856;
	goto T3868;
T3868:;
	V1408= (
	(type_of((V1405)) == t_sfun ?(*(((V1405))->sfn.sfn_self)):
	(fcall.fun=((V1405)),fcall.argd=1,fcalln))((V1400)));
	V1409= (
	(type_of((V1406)) == t_sfun ?(*(((V1406))->sfn.sfn_self)):
	(fcall.fun=((V1406)),fcall.argd=1,fcalln))((V1400)));
	V1410= (
	(type_of((V1407)) == t_sfun ?(*(((V1407))->sfn.sfn_self)):
	(fcall.fun=((V1407)),fcall.argd=1,fcalln))((V1400)));
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3878;}
	{object V1424;
	object V1425;
	object V1426;
	V1424= (V1408);
	V1425= (V1409);
	V1426= (V1410);
	V1408= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1424),(V1425),(V1426)));
	V1409= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1424),(V1425),(V1426)));
	V1410= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1424),(V1425),(V1426)));}
	goto T3878;
T3878:;
	if(!(type_of((V1408))==t_fixnum||
type_of((V1408))==t_bignum||
type_of((V1408))==t_ratio||
type_of((V1408))==t_shortfloat||
type_of((V1408))==t_longfloat||
type_of((V1408))==t_complex)){
	goto T3886;}
	if(!(immnum_lt((V1408),(V1394)))){
	goto T3889;}
	V1394= (V1408);
	goto T3889;
T3889:;
	if(!(immnum_gt((V1408),(V1395)))){
	goto T3886;}
	V1395= (V1408);
	goto T3886;
T3886:;
	if(!(type_of((V1409))==t_fixnum||
type_of((V1409))==t_bignum||
type_of((V1409))==t_ratio||
type_of((V1409))==t_shortfloat||
type_of((V1409))==t_longfloat||
type_of((V1409))==t_complex)){
	goto T3896;}
	if(!(immnum_lt((V1409),(V1396)))){
	goto T3899;}
	V1396= (V1409);
	goto T3899;
T3899:;
	if(!(immnum_gt((V1409),(V1397)))){
	goto T3896;}
	V1397= (V1409);
	goto T3896;
T3896:;
	if(!(type_of((V1410))==t_fixnum||
type_of((V1410))==t_bignum||
type_of((V1410))==t_ratio||
type_of((V1410))==t_shortfloat||
type_of((V1410))==t_longfloat||
type_of((V1410))==t_complex)){
	goto T3906;}
	if(!(immnum_lt((V1410),(V1398)))){
	goto T3909;}
	V1398= (V1410);
	goto T3909;
T3909:;
	if(!(immnum_gt((V1410),(V1399)))){
	goto T3906;}
	V1399= (V1410);
	goto T3906;
T3906:;
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1408)));
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1409)));
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1410)));
	{object V1427= symbol_value(((object)VV[111]));
	if(!eql(V1427,((object)VV[431]))
	&& !eql(V1427,((object)VV[335])))goto T3923;
	V1402= immnum_plus((V1402),small_fixnum(1));
	base[8]= (V1400);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1428= vs_base[0];
	(void)(aset1((V1404),fixint((V1402)),V1428));
	goto T3922;
	goto T3923;
T3923:;
	if(!eql(V1427,((object)VV[314])))goto T3927;
	V1402= immnum_plus((V1402),small_fixnum(1));
	base[8]= (V1408);
	base[9]= (V1409);
	base[10]= (V1410);
	vs_top=(vs_base=base+8)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1429= vs_base[0];
	(void)(aset1((V1404),fixint((V1402)),V1429));
	goto T3922;
	goto T3927;
T3927:;}
	goto T3922;
T3922:;
	V1400= immnum_plus((V1400),(V1401));
	V1423= (long)(V1423)+1;
	goto T3867;}}
	goto T3862;
T3862:;
	{object V1431;
	V1431= small_fixnum(0);
	goto T3940;
T3940:;
	if(!(immnum_ge((V1431),V1391))){
	goto T3941;}
	goto T3856;
	goto T3941;
T3941:;
	V1408= (
	(type_of((V1405)) == t_sfun ?(*(((V1405))->sfn.sfn_self)):
	(fcall.fun=((V1405)),fcall.argd=1,fcalln))((V1400)));
	V1409= (
	(type_of((V1406)) == t_sfun ?(*(((V1406))->sfn.sfn_self)):
	(fcall.fun=((V1406)),fcall.argd=1,fcalln))((V1400)));
	V1410= (
	(type_of((V1407)) == t_sfun ?(*(((V1407))->sfn.sfn_self)):
	(fcall.fun=((V1407)),fcall.argd=1,fcalln))((V1400)));
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T3951;}
	{object V1432;
	object V1433;
	object V1434;
	V1432= (V1408);
	V1433= (V1409);
	V1434= (V1410);
	V1408= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1432),(V1433),(V1434)));
	V1409= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1432),(V1433),(V1434)));
	V1410= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1432),(V1433),(V1434)));}
	goto T3951;
T3951:;
	if(!(type_of((V1408))==t_fixnum||
type_of((V1408))==t_bignum||
type_of((V1408))==t_ratio||
type_of((V1408))==t_shortfloat||
type_of((V1408))==t_longfloat||
type_of((V1408))==t_complex)){
	goto T3959;}
	if(!(immnum_lt((V1408),(V1394)))){
	goto T3962;}
	V1394= (V1408);
	goto T3962;
T3962:;
	if(!(immnum_gt((V1408),(V1395)))){
	goto T3959;}
	V1395= (V1408);
	goto T3959;
T3959:;
	if(!(type_of((V1409))==t_fixnum||
type_of((V1409))==t_bignum||
type_of((V1409))==t_ratio||
type_of((V1409))==t_shortfloat||
type_of((V1409))==t_longfloat||
type_of((V1409))==t_complex)){
	goto T3969;}
	if(!(immnum_lt((V1409),(V1396)))){
	goto T3972;}
	V1396= (V1409);
	goto T3972;
T3972:;
	if(!(immnum_gt((V1409),(V1397)))){
	goto T3969;}
	V1397= (V1409);
	goto T3969;
T3969:;
	if(!(type_of((V1410))==t_fixnum||
type_of((V1410))==t_bignum||
type_of((V1410))==t_ratio||
type_of((V1410))==t_shortfloat||
type_of((V1410))==t_longfloat||
type_of((V1410))==t_complex)){
	goto T3979;}
	if(!(immnum_lt((V1410),(V1398)))){
	goto T3982;}
	V1398= (V1410);
	goto T3982;
T3982:;
	if(!(immnum_gt((V1410),(V1399)))){
	goto T3979;}
	V1399= (V1410);
	goto T3979;
T3979:;
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1408)));
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1409)));
	V1402= immnum_plus((V1402),small_fixnum(1));
	(void)(aset1((V1404),fixint((V1402)),(V1410)));
	{object V1435= symbol_value(((object)VV[111]));
	if(!eql(V1435,((object)VV[431]))
	&& !eql(V1435,((object)VV[335])))goto T3996;
	V1402= immnum_plus((V1402),small_fixnum(1));
	base[8]= (V1400);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1436= vs_base[0];
	(void)(aset1((V1404),fixint((V1402)),V1436));
	goto T3995;
	goto T3996;
T3996:;
	if(!eql(V1435,((object)VV[314])))goto T4000;
	V1402= immnum_plus((V1402),small_fixnum(1));
	base[8]= (V1408);
	base[9]= (V1409);
	base[10]= (V1410);
	vs_top=(vs_base=base+8)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1437= vs_base[0];
	(void)(aset1((V1404),fixint((V1402)),V1437));
	goto T3995;
	goto T4000;
T4000:;}
	goto T3995;
T3995:;
	V1400= immnum_plus((V1400),(V1401));
	V1431= immnum_plus((V1431),make_fixnum(1));
	goto T3940;}
	goto T3856;
T3856:;
	base[8]= (V1394);
	base[9]= (V1395);
	base[10]= (V1396);
	base[11]= (V1397);
	base[12]= (V1398);
	base[13]= (V1399);
	vs_top=(vs_base=base+8)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[8]= ((object)VV[74]);
	base[9]= ((object)VV[395]);
	base[10]= ((object)VV[76]);
	base[13]= ((object)VV[63]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[12]= vs_base[0];
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1438= vs_base[0];
	base[12]= ((object)VV[67]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1439= vs_base[0];
	base[12]= ((object)VV[68]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1440= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T4031;}
	V1441= ((object)VV[433]);
	goto T4029;
	goto T4031;
T4031:;
	base[13]= ((object)VV[69]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[12]= vs_base[0];
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1441= vs_base[0];
	goto T4029;
T4029:;
	base[11]= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[432]),V1438,V1439,V1440,V1441));
	base[12]= ((object)VV[77]);
	V1442= list(2,(V1403),small_fixnum(0));
	base[13]= make_cons(/* INLINE-ARGS */V1442,Cnil);
	base[14]= ((object)VV[78]);
	base[15]= make_cons((V1404),Cnil);
	vs_top=(vs_base=base+8)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for PARAMETRIC_SURFACE	*/

static void L55()
{register object *base=vs_base;
	register object *sup=base+VM51; VC51
	vs_reserve(VM51);
	bds_check;
	{object V1443;
	object V1444;
	object V1445;
	object V1446;
	object V1447;
	object V1448;
	object V1449;
	object V1450;
	object V1451;
	check_arg(9);
	V1443=(base[0]);
	V1444=(base[1]);
	V1445=(base[2]);
	V1446=(base[3]);
	V1447=(base[4]);
	V1448=(base[5]);
	V1449=(base[6]);
	V1450=(base[7]);
	V1451=(base[8]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1452;
	object V1453;
	object V1454;
	object V1455;
	object V1456;
	object V1457;
	object V1458;
	object V1459;
	object V1460;
	object V1461;
	object V1462;
	object V1463;
	object V1464;
	object V1465;
	object V1466;
	object V1467;
	register object V1468;
	object V1469;
	object V1470;
	object V1471;
	object V1472;
	object V1473;
	register object V1474;
	register object V1475;
	register object V1476;
	object V1477;
	object V1478;
	base[11]= ((object)VV[316]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1452= vs_base[0];
	base[11]= ((object)VV[317]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1453= vs_base[0];
	bds_bind(((object)VV[249]),Ct);
	base[11]= (V1447);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1454= vs_base[0];
	base[11]= (V1448);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1455= vs_base[0];
	base[11]= (V1450);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1456= vs_base[0];
	base[11]= (V1451);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1457= vs_base[0];
	V1458= ((object)VV[434]);
	V1459= ((object)VV[435]);
	V1460= ((object)VV[436]);
	V1461= ((object)VV[437]);
	V1462= ((object)VV[438]);
	V1463= ((object)VV[439]);
	bds_bind(((object)VV[252]),symbol_value(((object)VV[252])));
	base[11]= immnum_minus((V1455),(V1454));
	base[12]= immnum_minus((V1452),small_fixnum(1));
	vs_top=(vs_base=base+11)+2;
	Ldivide();
	vs_top=sup;
	V1464= vs_base[0];
	base[11]= immnum_minus((V1457),(V1456));
	base[12]= immnum_minus((V1453),small_fixnum(1));
	vs_top=(vs_base=base+11)+2;
	Ldivide();
	vs_top=sup;
	V1465= vs_base[0];
	V1466= immnum_plus((V1452),small_fixnum(1));
	V1467= immnum_plus((V1453),small_fixnum(1));
	V1468= small_fixnum(-1);
	V1469= Cnil;
	V1470= Cnil;
	V1471= Cnil;
	V1472= Cnil;
	V1473= Cnil;
	V1474= Cnil;
	V1475= Cnil;
	V1476= Cnil;
	V1477= Cnil;
	V1478= Cnil;
	V1479= (*(LnkLI947))((V1443));
	V1480= (*(LnkLI947))((V1444));
	V1481= (*(LnkLI947))((V1445));
	V1482= (VFUN_NARGS=3,(*(LnkLI532))(/* INLINE-ARGS */V1479,/* INLINE-ARGS */V1480,/* INLINE-ARGS */V1481));
	V1483= cdr(/* INLINE-ARGS */V1482);
	V1484= list(2,(V1446),(V1449));
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1483,/* INLINE-ARGS */V1484)))!=Cnil){
	goto T4076;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[440]))));
	goto T4076;
T4076:;
	base[11]= ((object)VV[255]);
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	(((object)VV[252])->s.s_dbind)= vs_base[0];
	base[11]= ((object)VV[441]);
	base[12]= ((object)VV[442]);
	vs_top=(vs_base=base+11)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(99)))){
	goto T4085;}
	base[11]= list(3,((object)VV[443]),(V1446),(V1449));
	vs_top=(vs_base=base+11)+1;
	(void) (*Lnk964)();
	vs_top=sup;
	goto T4085;
T4085:;
	if(immnum_lt((V1455),(V1454))){
	goto T4090;}
	if(!(immnum_lt((V1457),(V1456)))){
	goto T4089;}
	goto T4090;
T4090:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[444]))));
	goto T4089;
T4089:;
	V1485= list(3,((object)VV[445]),(V1446),(V1449));
	V1471= (VFUN_NARGS=2,(*(LnkLI948))((V1443),/* INLINE-ARGS */V1485));
	V1486= list(3,((object)VV[446]),(V1446),(V1449));
	V1472= (VFUN_NARGS=2,(*(LnkLI948))((V1444),/* INLINE-ARGS */V1486));
	V1487= list(3,((object)VV[447]),(V1446),(V1449));
	V1473= (VFUN_NARGS=2,(*(LnkLI948))((V1445),/* INLINE-ARGS */V1487));
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T4103;}
	V1469= small_fixnum(3);
	goto T4101;
	goto T4103;
T4103:;
	V1469= small_fixnum(4);
	goto T4101;
T4101:;
	base[11]= (V1469);
	base[12]= (V1466);
	base[13]= (V1467);
	vs_top=(vs_base=base+11)+3;
	Ltimes();
	vs_top=sup;
	V1488= vs_base[0];
	V1470= (VFUN_NARGS=1,(*(LnkLI272))(V1488));
	{object V1490;
	V1490= small_fixnum(0);
	V1478= (V1456);
	goto T4113;
T4113:;
	if(!(immnum_ge((V1490),V1467))){
	goto T4116;}
	goto T4114;
	goto T4116;
T4116:;
	V1477= (V1454);
	{object V1492;
	V1492= small_fixnum(0);
	goto T4124;
T4124:;
	if(!(immnum_ge((V1492),V1466))){
	goto T4126;}
	goto T4125;
	goto T4126;
T4126:;
	V1474= (
	(type_of((V1471)) == t_sfun ?(*(((V1471))->sfn.sfn_self)):
	(fcall.fun=((V1471)),fcall.argd=2,fcalln))((V1477),(V1478)));
	V1475= (
	(type_of((V1472)) == t_sfun ?(*(((V1472))->sfn.sfn_self)):
	(fcall.fun=((V1472)),fcall.argd=2,fcalln))((V1477),(V1478)));
	V1476= (
	(type_of((V1473)) == t_sfun ?(*(((V1473))->sfn.sfn_self)):
	(fcall.fun=((V1473)),fcall.argd=2,fcalln))((V1477),(V1478)));
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T4136;}
	{object V1493;
	object V1494;
	object V1495;
	V1493= (V1474);
	V1494= (V1475);
	V1495= (V1476);
	V1474= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1493),(V1494),(V1495)));
	V1475= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1493),(V1494),(V1495)));
	V1476= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1493),(V1494),(V1495)));}
	goto T4136;
T4136:;
	if(!(type_of((V1474))==t_fixnum||
type_of((V1474))==t_bignum||
type_of((V1474))==t_ratio||
type_of((V1474))==t_shortfloat||
type_of((V1474))==t_longfloat||
type_of((V1474))==t_complex)){
	goto T4144;}
	if(!(immnum_lt((V1474),(V1458)))){
	goto T4147;}
	V1458= (V1474);
	goto T4147;
T4147:;
	if(!(immnum_gt((V1474),(V1459)))){
	goto T4144;}
	V1459= (V1474);
	goto T4144;
T4144:;
	if(!(type_of((V1475))==t_fixnum||
type_of((V1475))==t_bignum||
type_of((V1475))==t_ratio||
type_of((V1475))==t_shortfloat||
type_of((V1475))==t_longfloat||
type_of((V1475))==t_complex)){
	goto T4154;}
	if(!(immnum_lt((V1475),(V1460)))){
	goto T4157;}
	V1460= (V1475);
	goto T4157;
T4157:;
	if(!(immnum_gt((V1475),(V1461)))){
	goto T4154;}
	V1461= (V1475);
	goto T4154;
T4154:;
	if(!(type_of((V1476))==t_fixnum||
type_of((V1476))==t_bignum||
type_of((V1476))==t_ratio||
type_of((V1476))==t_shortfloat||
type_of((V1476))==t_longfloat||
type_of((V1476))==t_complex)){
	goto T4164;}
	if(!(immnum_lt((V1476),(V1462)))){
	goto T4167;}
	V1462= (V1476);
	goto T4167;
T4167:;
	if(!(immnum_gt((V1476),(V1463)))){
	goto T4164;}
	V1463= (V1476);
	goto T4164;
T4164:;
	V1468= immnum_plus((V1468),small_fixnum(1));
	(void)(aset1((V1470),fixint((V1468)),(V1474)));
	V1468= immnum_plus((V1468),small_fixnum(1));
	(void)(aset1((V1470),fixint((V1468)),(V1475)));
	V1468= immnum_plus((V1468),small_fixnum(1));
	(void)(aset1((V1470),fixint((V1468)),(V1476)));
	{object V1496= symbol_value(((object)VV[111]));
	if(!eql(V1496,((object)VV[334]))
	&& !eql(V1496,((object)VV[335])))goto T4181;
	V1468= immnum_plus((V1468),small_fixnum(1));
	base[11]= (V1477);
	base[12]= (V1478);
	vs_top=(vs_base=base+11)+2;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1497= vs_base[0];
	(void)(aset1((V1470),fixint((V1468)),V1497));
	goto T4180;
	goto T4181;
T4181:;
	if(!eql(V1496,((object)VV[314])))goto T4186;
	V1468= immnum_plus((V1468),small_fixnum(1));
	base[11]= (V1474);
	base[12]= (V1475);
	base[13]= (V1476);
	vs_top=(vs_base=base+11)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1498= vs_base[0];
	(void)(aset1((V1470),fixint((V1468)),V1498));
	goto T4180;
	goto T4186;
T4186:;}
	goto T4180;
T4180:;
	V1477= immnum_plus((V1477),(V1464));
	if(!(immnum_gt((V1477),(V1455)))){
	goto T4129;}
	V1477= (V1455);
	goto T4129;
T4129:;
	V1492= immnum_plus((V1492),make_fixnum(1));
	goto T4124;
	goto T4125;
T4125:;
	goto T4122;}
	goto T4122;
T4122:;
	V1478= immnum_plus((V1478),(V1465));
	if(!(immnum_gt((V1478),(V1457)))){
	goto T4119;}
	V1478= (V1457);
	goto T4119;
T4119:;
	V1490= immnum_plus((V1490),make_fixnum(1));
	goto T4113;
	goto T4114;
T4114:;
	goto T4111;}
	goto T4111;
T4111:;
	base[11]= (V1458);
	base[12]= (V1459);
	base[13]= (V1460);
	base[14]= (V1461);
	base[15]= (V1462);
	base[16]= (V1463);
	vs_top=(vs_base=base+11)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[11]= ((object)VV[74]);
	base[12]= ((object)VV[448]);
	base[13]= ((object)VV[76]);
	base[16]= ((object)VV[63]);
	vs_top=(vs_base=base+16)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+15)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1499= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T4222;}
	V1500= ((object)VV[450]);
	goto T4220;
	goto T4222;
T4222:;
	V1500= ((object)VV[451]);
	goto T4220;
T4220:;
	base[15]= ((object)VV[67]);
	vs_top=(vs_base=base+15)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1501= vs_base[0];
	base[15]= ((object)VV[68]);
	vs_top=(vs_base=base+15)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1502= vs_base[0];
	base[16]= ((object)VV[69]);
	vs_top=(vs_base=base+16)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+15)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1503= vs_base[0];
	base[14]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[449]),V1499,V1500,V1501,V1502,V1503));
	base[15]= ((object)VV[77]);
	V1504= list(2,(V1469),(V1466));
	base[16]= make_cons(/* INLINE-ARGS */V1504,Cnil);
	base[17]= ((object)VV[78]);
	base[18]= make_cons((V1470),Cnil);
	vs_top=(vs_base=base+11)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	macro definition for CHECK-TUBE-EXTREME	*/

static void L56()
{register object *base=vs_base;
	register object *sup=base+VM52; VC52
	vs_reserve(VM52);
	check_arg(2);vs_top=sup;
	{object V1505=base[0]->c.c_cdr;
	if(endp(V1505))invalid_macro_call();
	base[2]= (V1505->c.c_car);
	V1505=V1505->c.c_cdr;
	if(endp(V1505))invalid_macro_call();
	base[3]= (V1505->c.c_car);
	V1505=V1505->c.c_cdr;
	if(endp(V1505))invalid_macro_call();
	base[4]= (V1505->c.c_car);
	V1505=V1505->c.c_cdr;
	if(endp(V1505))invalid_macro_call();
	base[5]= (V1505->c.c_car);
	V1505=V1505->c.c_cdr;
	if(endp(V1505))invalid_macro_call();
	base[6]= (V1505->c.c_car);
	V1505=V1505->c.c_cdr;
	if(!endp(V1505))invalid_macro_call();}
	V1506= list(3,((object)VV[453]),list(3,((object)VV[454]),base[2],((object)VV[455])),((object)VV[456]));
	V1507= list(2,((object)VV[458]),base[3]);
	V1508= list(2,((object)VV[459]),base[4]);
	V1509= list(3,/* INLINE-ARGS */V1507,/* INLINE-ARGS */V1508,list(2,((object)VV[460]),base[5]));
	V1510= list(5,((object)VV[462]),((object)VV[95]),base[3],base[4],base[5]);
	V1511= list(5,((object)VV[462]),((object)VV[96]),base[3],base[4],base[5]);
	V1512= list(3,((object)VV[452]),((object)VV[461]),list(7,((object)VV[16]),((object)VV[458]),/* INLINE-ARGS */V1510,((object)VV[459]),/* INLINE-ARGS */V1511,((object)VV[460]),list(5,((object)VV[462]),((object)VV[124]),base[3],base[4],base[5])));
	V1513= list(2,small_fixnum(0),list(3,((object)VV[16]),base[6],((object)VV[463])));
	V1514= list(2,((object)VV[464]),list(3,((object)VV[16]),base[6],((object)VV[465])));
	V1515= list(5,((object)VV[13]),((object)VV[111]),/* INLINE-ARGS */V1513,/* INLINE-ARGS */V1514,list(2,small_fixnum(3),list(3,((object)VV[16]),base[6],((object)VV[466]))));
	base[7]= list(3,((object)VV[452]),/* INLINE-ARGS */V1506,list(5,((object)VV[457]),/* INLINE-ARGS */V1509,/* INLINE-ARGS */V1512,/* INLINE-ARGS */V1515,list(3,((object)VV[467]),((object)VV[468]),list(3,((object)VV[16]),((object)VV[469]),list(3,((object)VV[470]),((object)VV[469]),base[6])))));
	vs_top=(vs_base=base+7)+1;
	return;
}
/*	function definition for TUBE	*/

static void L57()
{register object *base=vs_base;
	register object *sup=base+VM53; VC53
	vs_reserve(VM53);
	bds_check;
	{object V1516;
	object V1517;
	object V1518;
	object V1519;
	object V1520;
	object V1521;
	object V1522;
	check_arg(7);
	V1516=(base[0]);
	V1517=(base[1]);
	V1518=(base[2]);
	V1519=(base[3]);
	V1520=(base[4]);
	V1521=(base[5]);
	V1522=(base[6]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1523;
	object V1524;
	object V1525;
	object V1526;
	object V1528;
	object V1529;
	object V1530;
	object V1531;
	object V1532;
	object V1533;
	object V1534;
	object V1535;
	object V1536;
	object V1537;
	object V1538;
	object V1539;
	object V1540;
	object V1541;
	object V1542;
	object V1543;
	object V1544;
	object V1545;
	object V1546;
	object V1547;
	object V1548;
	object V1549;
	object V1550;
	object V1551;
	object V1552;
	object V1553;
	object V1554;
	object V1555;
	register object V1556;
	register object V1557;
	register object V1558;
	object V1559;
	object V1560;
	object V1561;
	object V1562;
	object V1563;
	object V1564;
	object V1565;
	object V1566;
	object V1567;
	object V1568;
	object V1569;
	object V1570;
	base[8]= ((object)VV[316]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1523= vs_base[0];
	base[8]= ((object)VV[317]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1524= vs_base[0];
	bds_bind(((object)VV[249]),Ct);
	base[8]= (V1521);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1525= vs_base[0];
	base[8]= (V1522);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1526= vs_base[0];
	V1528= ((object)VV[472]);
	V1529= ((object)VV[473]);
	V1530= ((object)VV[474]);
	V1531= ((object)VV[475]);
	V1532= ((object)VV[476]);
	V1533= ((object)VV[477]);
	base[8]= immnum_minus((V1526),(V1525));
	base[9]= immnum_minus((V1523),small_fixnum(1));
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1534= vs_base[0];
	base[8]= ((object)VV[471]);
	base[9]= immnum_minus((V1524),small_fixnum(1));
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1535= vs_base[0];
	V1536= (V1525);
	V1537= Cnil;
	V1538= Cnil;
	V1539= Cnil;
	V1540= Cnil;
	V1541= Cnil;
	V1542= Cnil;
	V1543= Cnil;
	V1544= Cnil;
	V1545= Cnil;
	V1546= Cnil;
	V1547= Cnil;
	V1548= Cnil;
	V1549= Cnil;
	V1550= Cnil;
	V1551= Cnil;
	V1552= Cnil;
	V1553= Cnil;
	V1554= Cnil;
	V1555= Cnil;
	V1556= Cnil;
	V1557= Cnil;
	V1558= Cnil;
	V1559= Cnil;
	V1560= Cnil;
	V1561= Cnil;
	V1562= Cnil;
	V1563= Cnil;
	V1564= Cnil;
	V1565= Cnil;
	V1566= Cnil;
	V1567= Cnil;
	V1568= Cnil;
	V1569= Cnil;
	V1570= Cnil;
	if(!(immnum_lt((V1526),(V1525)))){
	goto T4290;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[478]))));
	goto T4290;
T4290:;
	V1571= (*(LnkLI947))((V1516));
	V1572= (*(LnkLI947))((V1517));
	V1573= (*(LnkLI947))((V1518));
	V1574= (*(LnkLI947))((V1519));
	V1575= (VFUN_NARGS=4,(*(LnkLI532))(/* INLINE-ARGS */V1571,/* INLINE-ARGS */V1572,/* INLINE-ARGS */V1573,/* INLINE-ARGS */V1574));
	V1576= cdr(/* INLINE-ARGS */V1575);
	V1577= make_cons((V1520),Cnil);
	if(((VFUN_NARGS=2,(*(LnkLI946))(/* INLINE-ARGS */V1576,/* INLINE-ARGS */V1577)))!=Cnil){
	goto T4293;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[479]))));
	goto T4293;
T4293:;
	base[8]= ((object)VV[480]);
	base[9]= ((object)VV[481]);
	vs_top=(vs_base=base+8)+2;
	(void) (*Lnk917)();
	vs_top=sup;
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(99)))){
	goto T4299;}
	base[8]= list(2,((object)VV[482]),(V1520));
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk964)();
	vs_top=sup;
	goto T4299;
T4299:;
	V1578= list(2,((object)VV[483]),(V1520));
	V1540= (VFUN_NARGS=2,(*(LnkLI948))((V1516),/* INLINE-ARGS */V1578));
	V1579= list(2,((object)VV[484]),(V1520));
	V1541= (VFUN_NARGS=2,(*(LnkLI948))((V1517),/* INLINE-ARGS */V1579));
	V1580= list(2,((object)VV[485]),(V1520));
	V1542= (VFUN_NARGS=2,(*(LnkLI948))((V1518),/* INLINE-ARGS */V1580));
	if(!(immnum_eq(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T4312;}
	V1537= small_fixnum(3);
	goto T4310;
	goto T4312;
T4312:;
	V1537= small_fixnum(4);
	goto T4310;
T4310:;
	V1581= list(2,((object)VV[486]),(V1520));
	V1543= (VFUN_NARGS=2,(*(LnkLI948))((V1519),/* INLINE-ARGS */V1581));
	goto T4318;
T4318:;
	if(!(immnum_eq((V1536),(V1525)))){
	goto T4323;}
	V1544= (
	(type_of((V1540)) == t_sfun ?(*(((V1540))->sfn.sfn_self)):
	(fcall.fun=((V1540)),fcall.argd=1,fcalln))((V1536)));
	V1545= (
	(type_of((V1541)) == t_sfun ?(*(((V1541))->sfn.sfn_self)):
	(fcall.fun=((V1541)),fcall.argd=1,fcalln))((V1536)));
	V1546= (
	(type_of((V1542)) == t_sfun ?(*(((V1542))->sfn.sfn_self)):
	(fcall.fun=((V1542)),fcall.argd=1,fcalln))((V1536)));
	V1570= immnum_plus((V1536),(V1534));
	base[8]= ((object)VV[487]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1582= vs_base[0];
	if(!(equal(cadr(V1582),((object)VV[488])))){
	goto T4333;}
	{object V1583;
	object V1584;
	object V1585;
	V1583= (V1544);
	V1584= (V1545);
	V1585= (V1546);
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T4338;}
	V1583= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	V1584= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	V1585= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	goto T4338;
T4338:;
	{object V1586= symbol_value(((object)VV[111]));
	if(!eql(V1586,((object)VV[489])))goto T4347;
	V1538= list(3,(V1583),(V1584),(V1585));
	goto T4346;
	goto T4347;
T4347:;
	if(!eql(V1586,((object)VV[431]))
	&& !eql(V1586,((object)VV[335])))goto T4349;
	base[8]= (V1536);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1587= vs_base[0];
	V1538= list(4,(V1583),(V1584),(V1585),V1587);
	goto T4346;
	goto T4349;
T4349:;
	if(!eql(V1586,((object)VV[314])))goto T4353;
	base[8]= (V1583);
	base[9]= (V1584);
	base[10]= (V1585);
	vs_top=(vs_base=base+8)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1588= vs_base[0];
	V1538= list(4,(V1583),(V1584),(V1585),V1588);
	goto T4346;
	goto T4353;
T4353:;}
	goto T4346;
T4346:;
	if(!(immnum_lt((V1524),small_fixnum(0)))){
	goto T4360;}
	{register long V1589;
	V1589= (long)0;
	goto T4333;}
	goto T4360;
T4360:;
	if(!(immnum_le((V1524),((object)VV[257])))){
	goto T4364;}
	{register long V1590;
	V1590= fix((V1524));
	{register long V1591;
	V1591= (long)0;
	goto T4369;
T4369:;
	if(!((V1591)>=(V1590))){
	goto T4370;}
	goto T4333;
	goto T4370;
T4370:;
	V1539= append((V1539),(V1538));
	V1591= (long)(V1591)+1;
	goto T4369;}}
	goto T4364;
T4364:;
	{object V1593;
	V1593= small_fixnum(0);
	goto T4381;
T4381:;
	if(!(immnum_ge((V1593),V1524))){
	goto T4382;}
	goto T4333;
	goto T4382;
T4382:;
	V1539= append((V1539),(V1538));
	V1593= immnum_plus((V1593),make_fixnum(1));
	goto T4381;}}
	goto T4333;
T4333:;
	base[8]= (V1570);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = (V1540);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1594= vs_base[0];
	V1547= immnum_minus(V1594,(V1544));
	base[8]= (V1570);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = (V1541);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1595= vs_base[0];
	V1548= immnum_minus(V1595,(V1545));
	base[8]= (V1570);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = (V1542);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1596= vs_base[0];
	V1549= immnum_minus(V1596,(V1546));
	goto T4321;
	goto T4323;
T4323:;
	V1564= (V1544);
	V1565= (V1545);
	V1566= (V1546);
	V1544= (
	(type_of((V1540)) == t_sfun ?(*(((V1540))->sfn.sfn_self)):
	(fcall.fun=((V1540)),fcall.argd=1,fcalln))((V1536)));
	V1545= (
	(type_of((V1541)) == t_sfun ?(*(((V1541))->sfn.sfn_self)):
	(fcall.fun=((V1541)),fcall.argd=1,fcalln))((V1536)));
	V1546= (
	(type_of((V1542)) == t_sfun ?(*(((V1542))->sfn.sfn_self)):
	(fcall.fun=((V1542)),fcall.argd=1,fcalln))((V1536)));
	V1547= immnum_minus((V1544),(V1564));
	V1548= immnum_minus((V1545),(V1565));
	V1549= immnum_minus((V1546),(V1566));
	goto T4321;
T4321:;
	V1560= (
	(type_of((V1543)) == t_sfun ?(*(((V1543))->sfn.sfn_self)):
	(fcall.fun=((V1543)),fcall.argd=1,fcalln))((V1536)));
	base[9]= immnum_times((V1547),(V1547));
	base[10]= immnum_times((V1548),(V1548));
	base[11]= immnum_times((V1549),(V1549));
	vs_top=(vs_base=base+9)+3;
	Lplus();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+8)+1;
	Lsqrt();
	vs_top=sup;
	V1559= vs_base[0];
	base[8]= (V1547);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1547= vs_base[0];
	base[8]= (V1548);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1548= vs_base[0];
	base[8]= (V1549);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1549= vs_base[0];
	if(!(immnum_eq((V1547),((object)VV[490])))){
	goto T4441;}
	V1550= ((object)VV[290]);
	V1551= ((object)VV[491]);
	V1552= ((object)VV[492]);
	goto T4439;
	goto T4441;
T4441:;
	if(!(immnum_eq((V1548),((object)VV[493])))){
	goto T4449;}
	V1550= ((object)VV[494]);
	V1551= ((object)VV[290]);
	V1552= ((object)VV[495]);
	goto T4439;
	goto T4449;
T4449:;
	if(!(immnum_eq((V1549),((object)VV[496])))){
	goto T4457;}
	V1550= ((object)VV[497]);
	V1551= ((object)VV[498]);
	V1552= ((object)VV[290]);
	goto T4439;
	goto T4457;
T4457:;
	base[8]= immnum_plus((V1548),(V1549));
	base[9]= (V1547);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1597= vs_base[0];
	V1550= immnum_negate(V1597);
	V1551= ((object)VV[290]);
	V1552= ((object)VV[290]);
	goto T4439;
T4439:;
	base[9]= immnum_times((V1550),(V1550));
	base[10]= immnum_times((V1551),(V1551));
	base[11]= immnum_times((V1552),(V1552));
	vs_top=(vs_base=base+9)+3;
	Lplus();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+8)+1;
	Lsqrt();
	vs_top=sup;
	V1559= vs_base[0];
	base[8]= (V1550);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1550= vs_base[0];
	base[8]= (V1551);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1551= vs_base[0];
	base[8]= (V1552);
	base[9]= (V1559);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	V1552= vs_base[0];
	if(!(immnum_gt((V1536),(V1525)))){
	goto T4490;}
	base[8]= immnum_times((V1567),(V1550));
	base[9]= immnum_times((V1568),(V1551));
	base[10]= immnum_times((V1569),(V1552));
	vs_top=(vs_base=base+8)+3;
	Lplus();
	vs_top=sup;
	V1598= vs_base[0];
	if(!(immnum_lt(V1598,small_fixnum(0)))){
	goto T4490;}
	V1550= immnum_negate((V1550));
	V1551= immnum_negate((V1551));
	V1552= immnum_negate((V1552));
	goto T4490;
T4490:;
	V1567= (V1550);
	V1568= (V1551);
	V1569= (V1552);
	V1599= immnum_times((V1548),(V1552));
	V1600= immnum_times((V1549),(V1551));
	V1553= immnum_minus(/* INLINE-ARGS */V1599,/* INLINE-ARGS */V1600);
	V1601= immnum_times((V1549),(V1550));
	V1602= immnum_times((V1547),(V1552));
	V1554= immnum_minus(/* INLINE-ARGS */V1601,/* INLINE-ARGS */V1602);
	V1603= immnum_times((V1547),(V1551));
	V1604= immnum_times((V1548),(V1550));
	V1555= immnum_minus(/* INLINE-ARGS */V1603,/* INLINE-ARGS */V1604);
	V1561= ((object)VV[499]);
	V1538= Cnil;
	{object V1606;
	V1606= small_fixnum(0);
	goto T4522;
T4522:;
	if(!(immnum_ge((V1606),V1524))){
	goto T4524;}
	goto T4523;
	goto T4524;
T4524:;
	base[8]= (V1561);
	vs_top=(vs_base=base+8)+1;
	Lcos();
	vs_top=sup;
	V1607= vs_base[0];
	V1562= immnum_times((V1560),V1607);
	base[8]= (V1561);
	vs_top=(vs_base=base+8)+1;
	Lsin();
	vs_top=sup;
	V1608= vs_base[0];
	V1563= immnum_times((V1560),V1608);
	base[8]= (V1544);
	base[9]= immnum_times((V1562),(V1550));
	base[10]= immnum_times((V1563),(V1553));
	vs_top=(vs_base=base+8)+3;
	Lplus();
	vs_top=sup;
	V1556= vs_base[0];
	base[8]= (V1545);
	base[9]= immnum_times((V1562),(V1551));
	base[10]= immnum_times((V1563),(V1554));
	vs_top=(vs_base=base+8)+3;
	Lplus();
	vs_top=sup;
	V1557= vs_base[0];
	base[8]= (V1546);
	base[9]= immnum_times((V1562),(V1552));
	base[10]= immnum_times((V1563),(V1555));
	vs_top=(vs_base=base+8)+3;
	Lplus();
	vs_top=sup;
	V1558= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T4551;}
	{object V1609;
	object V1610;
	object V1611;
	V1609= (V1556);
	V1610= (V1557);
	V1611= (V1558);
	V1556= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1609),(V1610),(V1611)));
	V1557= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1609),(V1610),(V1611)));
	V1558= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1609),(V1610),(V1611)));}
	goto T4551;
T4551:;
	if(!(type_of((V1556))==t_fixnum||
type_of((V1556))==t_bignum||
type_of((V1556))==t_ratio||
type_of((V1556))==t_shortfloat||
type_of((V1556))==t_longfloat||
type_of((V1556))==t_complex)){
	goto T4559;}
	if(!(immnum_lt((V1556),(V1528)))){
	goto T4562;}
	V1528= (V1556);
	goto T4562;
T4562:;
	if(!(immnum_gt((V1556),(V1529)))){
	goto T4559;}
	V1529= (V1556);
	goto T4559;
T4559:;
	if(!(type_of((V1557))==t_fixnum||
type_of((V1557))==t_bignum||
type_of((V1557))==t_ratio||
type_of((V1557))==t_shortfloat||
type_of((V1557))==t_longfloat||
type_of((V1557))==t_complex)){
	goto T4569;}
	if(!(immnum_lt((V1557),(V1530)))){
	goto T4572;}
	V1530= (V1557);
	goto T4572;
T4572:;
	if(!(immnum_gt((V1557),(V1531)))){
	goto T4569;}
	V1531= (V1557);
	goto T4569;
T4569:;
	if(!(type_of((V1558))==t_fixnum||
type_of((V1558))==t_bignum||
type_of((V1558))==t_ratio||
type_of((V1558))==t_shortfloat||
type_of((V1558))==t_longfloat||
type_of((V1558))==t_complex)){
	goto T4579;}
	if(!(immnum_lt((V1558),(V1532)))){
	goto T4582;}
	V1532= (V1558);
	goto T4582;
T4582:;
	if(!(immnum_gt((V1558),(V1533)))){
	goto T4579;}
	V1533= (V1558);
	goto T4579;
T4579:;
	{object V1612= symbol_value(((object)VV[111]));
	if(!eql(V1612,((object)VV[489])))goto T4590;
	V1613= list(3,(V1556),(V1557),(V1558));
	V1538= make_cons(/* INLINE-ARGS */V1613,(V1538));
	goto T4589;
	goto T4590;
T4590:;
	if(!eql(V1612,((object)VV[431]))
	&& !eql(V1612,((object)VV[335])))goto T4592;
	base[8]= (V1536);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1614= vs_base[0];
	V1615= list(4,(V1556),(V1557),(V1558),V1614);
	V1538= make_cons(/* INLINE-ARGS */V1615,(V1538));
	goto T4589;
	goto T4592;
T4592:;
	if(!eql(V1612,((object)VV[314])))goto T4596;
	base[8]= (V1556);
	base[9]= (V1557);
	base[10]= (V1558);
	vs_top=(vs_base=base+8)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1616= vs_base[0];
	V1617= list(4,(V1556),(V1557),(V1558),V1616);
	V1538= make_cons(/* INLINE-ARGS */V1617,(V1538));
	goto T4589;
	goto T4596;
T4596:;}
	goto T4589;
T4589:;
	V1561= immnum_plus((V1561),(V1535));
	if(!(immnum_gt((V1561),((object)VV[471])))){
	goto T4527;}
	V1561= ((object)VV[471]);
	goto T4527;
T4527:;
	V1606= immnum_plus((V1606),make_fixnum(1));
	goto T4522;
	goto T4523;
T4523:;
	goto T4520;}
	goto T4520;
T4520:;
	{object V1619;
	V1619= (V1538);
	 vs_top=base+8;
	 while(!endp(V1619))
	 {vs_push(car(V1619));V1619=cdr(V1619);}
	vs_base=base+8;}
	Lappend();
	vs_top=sup;
	V1618= vs_base[0];
	V1539= append((V1539),V1618);
	if(!(immnum_ge((V1536),(V1526)))){
	goto T4612;}
	goto T4319;
	goto T4612;
T4612:;
	V1536= immnum_plus((V1536),(V1534));
	if(!(immnum_gt((V1536),(V1526)))){
	goto T4615;}
	V1536= (V1526);
	goto T4615;
T4615:;
	goto T4318;
	goto T4319;
T4319:;
	goto T4316;
	goto T4316;
T4316:;
	base[8]= ((object)VV[487]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1620= vs_base[0];
	if(!(equal(caddr(V1620),((object)VV[488])))){
	goto T4621;}
	{object V1621;
	object V1622;
	object V1623;
	V1621= (V1544);
	V1622= (V1545);
	V1623= (V1546);
	if(!(immnum_gt(symbol_value(((object)VV[94])),small_fixnum(0)))){
	goto T4626;}
	V1621= (
	(type_of(symbol_value(((object)VV[95]))) == t_sfun ?(*((symbol_value(((object)VV[95])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[95]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	V1622= (
	(type_of(symbol_value(((object)VV[96]))) == t_sfun ?(*((symbol_value(((object)VV[96])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[96]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	V1623= (
	(type_of(symbol_value(((object)VV[124]))) == t_sfun ?(*((symbol_value(((object)VV[124])))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(((object)VV[124]))),fcall.argd=3,fcalln))((V1544),(V1545),(V1546)));
	goto T4626;
T4626:;
	{object V1624= symbol_value(((object)VV[111]));
	if(!eql(V1624,((object)VV[489])))goto T4635;
	V1538= list(3,(V1621),(V1622),(V1623));
	goto T4634;
	goto T4635;
T4635:;
	if(!eql(V1624,((object)VV[431]))
	&& !eql(V1624,((object)VV[335])))goto T4637;
	base[8]= (V1536);
	vs_top=(vs_base=base+8)+1;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1625= vs_base[0];
	V1538= list(4,(V1621),(V1622),(V1623),V1625);
	goto T4634;
	goto T4637;
T4637:;
	if(!eql(V1624,((object)VV[314])))goto T4641;
	base[8]= (V1621);
	base[9]= (V1622);
	base[10]= (V1623);
	vs_top=(vs_base=base+8)+3;
	{object _funobj = symbol_value(((object)VV[125]));if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1626= vs_base[0];
	V1538= list(4,(V1621),(V1622),(V1623),V1626);
	goto T4634;
	goto T4641;
T4641:;}
	goto T4634;
T4634:;
	if(!(immnum_lt((V1524),small_fixnum(0)))){
	goto T4648;}
	{long V1627;
	V1627= (long)0;
	goto T4621;}
	goto T4648;
T4648:;
	if(!(immnum_le((V1524),((object)VV[257])))){
	goto T4652;}
	{register long V1628;
	V1628= fix((V1524));
	{register long V1629;
	V1629= (long)0;
	goto T4657;
T4657:;
	if(!((V1629)>=(V1628))){
	goto T4658;}
	goto T4621;
	goto T4658;
T4658:;
	V1539= append((V1539),(V1538));
	V1629= (long)(V1629)+1;
	goto T4657;}}
	goto T4652;
T4652:;
	{object V1631;
	V1631= small_fixnum(0);
	goto T4669;
T4669:;
	if(!(immnum_ge((V1631),V1524))){
	goto T4670;}
	goto T4621;
	goto T4670;
T4670:;
	V1539= append((V1539),(V1538));
	V1631= immnum_plus((V1631),make_fixnum(1));
	goto T4669;}}
	goto T4621;
T4621:;
	base[8]= (V1528);
	base[9]= (V1529);
	base[10]= (V1530);
	base[11]= (V1531);
	base[12]= (V1532);
	base[13]= (V1533);
	vs_top=(vs_base=base+8)+6;
	(void) (*Lnk919)();
	vs_top=sup;
	base[8]= ((object)VV[74]);
	base[9]= ((object)VV[500]);
	base[10]= ((object)VV[76]);
	base[13]= ((object)VV[63]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[12]= vs_base[0];
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk896)();
	vs_top=sup;
	V1632= vs_base[0];
	if(!(immnum_gt(symbol_value(((object)VV[111])),small_fixnum(0)))){
	goto T4695;}
	V1633= ((object)VV[502]);
	goto T4693;
	goto T4695;
T4695:;
	V1633= ((object)VV[503]);
	goto T4693;
T4693:;
	base[12]= ((object)VV[67]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1634= vs_base[0];
	base[12]= ((object)VV[68]);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1635= vs_base[0];
	base[13]= ((object)VV[69]);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[12]= vs_base[0];
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1636= vs_base[0];
	base[11]= (VFUN_NARGS=7,(*(LnkLI761))(Cnil,((object)VV[501]),V1632,V1633,V1634,V1635,V1636));
	base[12]= ((object)VV[77]);
	V1637= list(2,(V1537),(V1524));
	base[13]= make_cons(/* INLINE-ARGS */V1637,Cnil);
	base[14]= ((object)VV[78]);
	V1638 = make_fixnum((long)(length((V1539))));
	V1639= (VFUN_NARGS=5,(*(LnkLI272))(V1638,((object)VV[79]),((object)VV[80]),((object)VV[81]),(V1539)));
	base[15]= make_cons(/* INLINE-ARGS */V1639,Cnil);
	vs_top=(vs_base=base+8)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	return;}
	}
}
/*	function definition for IMAGE	*/

static void L58()
{register object *base=vs_base;
	register object *sup=base+VM54; VC54
	vs_reserve(VM54);
	bds_check;
	{object V1640;
	object V1641;
	object V1642;
	check_arg(5);
	V1640=(base[0]);
	V1641=(base[1]);
	V1642=(base[2]);
	bds_bind(((object)VV[339]),base[3]);
	bds_bind(((object)VV[340]),base[4]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1643;
	object V1644;
	object V1645;
	object V1646;
	register object V1647;
	object V1648;
	object V1649;
	object V1650;
	object V1651;
	object V1652;
	base[5]= (V1641);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1643= vs_base[0];
	base[5]= (V1642);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1644= vs_base[0];
	base[5]= (((object)VV[339])->s.s_dbind);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1645= vs_base[0];
	base[5]= (((object)VV[340])->s.s_dbind);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1646= vs_base[0];
	V1647= Cnil;
	V1648= Cnil;
	V1649= Cnil;
	V1650= Cnil;
	V1651= Cnil;
	V1652= Cnil;
	if(((*(LnkLI911))((V1640)))==Cnil){
	goto T4718;}
	V1648= make_fixnum((long)(length(cdr((V1640)))));
	V1649= make_fixnum((long)(length(cdadr((V1640)))));
	base[5]= (V1645);
	base[6]= (V1649);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1650= vs_base[0];
	base[5]= (V1646);
	base[6]= (V1648);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1651= vs_base[0];
	if(((*(LnkLI893))(cadadr((V1640))))!=Cnil){
	goto T4734;}
	V1652= small_fixnum(3);
	goto T4732;
	goto T4734;
T4734:;
	V1652= small_fixnum(5);
	goto T4732;
T4732:;
	{object V1653= (V1652);
	if(!eql(V1653,((object)VV[314])))goto T4738;
	base[5]= small_fixnum(3);
	base[6]= (V1648);
	base[7]= (V1649);
	vs_top=(vs_base=base+5)+3;
	Ltimes();
	vs_top=sup;
	V1654= vs_base[0];
	V1647= (VFUN_NARGS=3,(*(LnkLI272))(V1654,((object)VV[79]),((object)VV[80])));
	{object V1655;
	object V1656;
	object V1657;
	base[5]= (V1644);
	base[6]= (((object)VV[340])->s.s_dbind);
	base[7]= immnum_times((V1651),((object)VV[504]));
	vs_top=(vs_base=base+5)+3;
	Lplus();
	vs_top=sup;
	V1655= vs_base[0];
	V1656= small_fixnum(-1);
	V1657= Cnil;
	{object V1658;
	V1658= cdr((V1640));
	goto T4751;
T4751:;
	if(!(type_of((V1658))!=t_cons)){
	goto T4753;}
	goto T4752;
	goto T4753;
T4753:;
	V1659= immnum_times((V1650),((object)VV[283]));
	V1657= immnum_plus((V1643),/* INLINE-ARGS */V1659);
	{object V1660;
	V1660= cdar((V1658));
	goto T4762;
T4762:;
	if(!(type_of((V1660))!=t_cons)){
	goto T4764;}
	goto T4763;
	goto T4764;
T4764:;
	V1656= immnum_plus((V1656),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1656)),(V1657)));
	V1656= immnum_plus((V1656),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1656)),(V1655)));
	V1656= immnum_plus((V1656),small_fixnum(1));
	base[5]= car((V1660));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1661= vs_base[0];
	(void)(aset1((V1647),fixint((V1656)),V1661));
	V1657= immnum_plus((V1657),(V1650));
	V1660= cdr((V1660));
	goto T4762;
	goto T4763;
T4763:;
	goto T4759;}
	goto T4759;
T4759:;
	V1655= immnum_minus((V1655),(V1651));
	V1658= cdr((V1658));
	goto T4751;
	goto T4752;
T4752:;
	goto T4716;}}
	goto T4738;
T4738:;
	if(!eql(V1653,((object)VV[505])))goto T4782;
	base[5]= small_fixnum(5);
	base[6]= (V1648);
	base[7]= (V1649);
	vs_top=(vs_base=base+5)+3;
	Ltimes();
	vs_top=sup;
	V1662= vs_base[0];
	V1647= (VFUN_NARGS=3,(*(LnkLI272))(V1662,((object)VV[79]),((object)VV[80])));
	{object V1663;
	register object V1664;
	object V1665;
	object V1666;
	base[5]= (V1644);
	base[6]= (((object)VV[340])->s.s_dbind);
	base[7]= immnum_times((V1651),((object)VV[504]));
	vs_top=(vs_base=base+5)+3;
	Lplus();
	vs_top=sup;
	V1663= vs_base[0];
	V1664= small_fixnum(-1);
	V1665= Cnil;
	V1666= Cnil;
	{object V1667;
	V1667= cdr((V1640));
	goto T4795;
T4795:;
	if(!(type_of((V1667))!=t_cons)){
	goto T4797;}
	goto T4796;
	goto T4797;
T4797:;
	V1668= immnum_times((V1650),((object)VV[283]));
	V1665= immnum_plus((V1643),/* INLINE-ARGS */V1668);
	{object V1669;
	V1669= cdar((V1667));
	goto T4806;
T4806:;
	if(!(type_of((V1669))!=t_cons)){
	goto T4808;}
	goto T4807;
	goto T4808;
T4808:;
	V1666= cdar((V1669));
	V1664= immnum_plus((V1664),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1664)),(V1665)));
	V1664= immnum_plus((V1664),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1664)),(V1663)));
	V1664= immnum_plus((V1664),small_fixnum(1));
	base[5]= car((V1666));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1670= vs_base[0];
	(void)(aset1((V1647),fixint((V1664)),V1670));
	V1664= immnum_plus((V1664),small_fixnum(1));
	base[5]= cadr((V1666));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1671= vs_base[0];
	(void)(aset1((V1647),fixint((V1664)),V1671));
	V1664= immnum_plus((V1664),small_fixnum(1));
	base[5]= caddr((V1666));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1672= vs_base[0];
	(void)(aset1((V1647),fixint((V1664)),V1672));
	V1665= immnum_plus((V1665),(V1650));
	V1669= cdr((V1669));
	goto T4806;
	goto T4807;
T4807:;
	goto T4803;}
	goto T4803;
T4803:;
	V1663= immnum_minus((V1663),(V1651));
	V1667= cdr((V1667));
	goto T4795;
	goto T4796;
T4796:;
	goto T4716;}}
	goto T4782;
T4782:;
	goto T4716;}
	goto T4718;
T4718:;
	base[5]= (V1640);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk966)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T4837;}
	V1648= cadddr((V1640));
	V1649= caddr((V1640));
	base[5]= (V1645);
	base[6]= (V1649);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1650= vs_base[0];
	base[5]= (V1646);
	base[6]= (V1648);
	vs_top=(vs_base=base+5)+2;
	Ldivide();
	vs_top=sup;
	V1651= vs_base[0];
	if(!(equal(cadr((V1640)),((object)VV[506])))){
	goto T4854;}
	V1652= small_fixnum(3);
	goto T4852;
	goto T4854;
T4854:;
	V1652= small_fixnum(5);
	goto T4852;
T4852:;
	base[5]= (V1652);
	base[6]= (V1648);
	base[7]= (V1649);
	vs_top=(vs_base=base+5)+3;
	Ltimes();
	vs_top=sup;
	V1673= vs_base[0];
	V1647= (VFUN_NARGS=3,(*(LnkLI272))(V1673,((object)VV[79]),((object)VV[80])));
	{object V1674;
	register object V1675;
	object V1676;
	object V1677;
	base[5]= (V1644);
	base[6]= (((object)VV[340])->s.s_dbind);
	base[7]= immnum_times((V1651),((object)VV[504]));
	vs_top=(vs_base=base+5)+3;
	Lplus();
	vs_top=sup;
	V1674= vs_base[0];
	V1675= small_fixnum(-1);
	V1676= small_fixnum(-1);
	V1677= Cnil;
	{object V1678;
	V1678= small_fixnum(0);
	goto T4869;
T4869:;
	if(!(immnum_ge((V1678),V1648))){
	goto T4871;}
	goto T4870;
	goto T4871;
T4871:;
	V1680= immnum_times((V1650),((object)VV[283]));
	V1677= immnum_plus((V1643),/* INLINE-ARGS */V1680);
	{object V1681;
	V1681= small_fixnum(0);
	goto T4879;
T4879:;
	if(!(immnum_ge((V1681),V1649))){
	goto T4881;}
	goto T4880;
	goto T4881;
T4881:;
	V1675= immnum_plus((V1675),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1675)),(V1677)));
	V1675= immnum_plus((V1675),small_fixnum(1));
	(void)(aset1((V1647),fixint((V1675)),(V1674)));
	{object V1683;
	V1683= small_fixnum(3);
	goto T4891;
T4891:;
	if(!(immnum_gt((V1683),V1652))){
	goto T4893;}
	goto T4892;
	goto T4893;
T4893:;
	V1675= immnum_plus((V1675),small_fixnum(1));
	V1686= car(cddddr((V1640)));
	V1676= immnum_plus((V1676),small_fixnum(1));
	base[5]= fLrow_major_aref(/* INLINE-ARGS */V1686,fixint((V1676)));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk900)();
	vs_top=sup;
	V1685= vs_base[0];
	(void)(aset1((V1647),fixint((V1675)),V1685));
	V1683= immnum_plus((V1683),make_fixnum(1));
	goto T4891;
	goto T4892;
T4892:;
	goto T4889;}
	goto T4889;
T4889:;
	V1677= immnum_plus((V1677),(V1650));
	V1681= immnum_plus((V1681),make_fixnum(1));
	goto T4879;
	goto T4880;
T4880:;
	goto T4877;}
	goto T4877;
T4877:;
	V1674= immnum_minus((V1674),(V1651));
	V1678= immnum_plus((V1678),make_fixnum(1));
	goto T4869;
	goto T4870;
T4870:;
	goto T4716;}}
	goto T4837;
T4837:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[507]))));
	goto T4716;
T4716:;
	base[5]= (V1643);
	base[6]= immnum_plus((V1643),(V1645));
	base[7]= (V1644);
	base[8]= immnum_plus((V1644),(V1646));
	vs_top=(vs_base=base+5)+4;
	(void) (*Lnk891)();
	vs_top=sup;
	base[5]= ((object)VV[74]);
	base[6]= ((object)VV[508]);
	base[7]= ((object)VV[76]);
	{object V1687= (V1652);
	if(!eql(V1687,((object)VV[314])))goto T4918;
	base[8]= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[509])));
	goto T4917;
	goto T4918;
T4918:;
	if(!eql(V1687,((object)VV[505])))goto T4919;
	base[8]= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[510])));
	goto T4917;
	goto T4919;
T4919:;
	base[8]= Cnil;}
	goto T4917;
T4917:;
	base[9]= ((object)VV[77]);
	{object V1688= (V1652);
	if(!eql(V1688,((object)VV[314])))goto T4922;
	base[10]= ((object)VV[511]);
	goto T4921;
	goto T4922;
T4922:;
	if(!eql(V1688,((object)VV[505])))goto T4923;
	base[10]= ((object)VV[512]);
	goto T4921;
	goto T4923;
T4923:;
	base[10]= Cnil;}
	goto T4921;
T4921:;
	base[11]= ((object)VV[78]);
	base[12]= make_cons((V1647),Cnil);
	vs_top=(vs_base=base+5)+8;
	(void) (*Lnk903)();
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	macro definition for WRITE-PALETTE-CODE	*/

static void L59()
{register object *base=vs_base;
	register object *sup=base+VM55; VC55
	vs_reserve(VM55);
	check_arg(2);vs_top=sup;
	{object V1689=base[0]->c.c_cdr;
	if(!endp(V1689))invalid_macro_call();}
	base[2]= ((object)VV[513]);
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	local entry for function progn 'compile36806	*/

static object LI60()

{	 VMB56 VMS56 VMV56
	goto TTL;
TTL:;
	{object V1691;
	V1691= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[514]),(V1691),((object)VV[97])),((object)VV[97])));}
	{object V1693 = Cnil;
	VMR56(V1693)}
	return Cnil;
}
/*	local entry for function progn 'compile36807	*/

static object LI61()

{	 VMB57 VMS57 VMV57
	goto TTL;
TTL:;
	{object V1695;
	V1695= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[516]),(V1695),((object)VV[75])),((object)VV[75])));}
	{object V1697 = Cnil;
	VMR57(V1697)}
	return Cnil;
}
/*	local entry for function progn 'compile36808	*/

static object LI62()

{	 VMB58 VMS58 VMV58
	goto TTL;
TTL:;
	{object V1699;
	V1699= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[517]),(V1699),((object)VV[148])),((object)VV[148])));}
	{object V1701 = Cnil;
	VMR58(V1701)}
	return Cnil;
}
/*	local entry for function progn 'compile36809	*/

static object LI63()

{	 VMB59 VMS59 VMV59
	goto TTL;
TTL:;
	{object V1703;
	V1703= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[518]),(V1703),((object)VV[189])),((object)VV[189])));}
	{object V1705 = Cnil;
	VMR59(V1705)}
	return Cnil;
}
/*	local entry for function progn 'compile36810	*/

static object LI64()

{	 VMB60 VMS60 VMV60
	goto TTL;
TTL:;
	{object V1707;
	V1707= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[519]),(V1707),((object)VV[155])),((object)VV[155])));}
	{object V1709 = Cnil;
	VMR60(V1709)}
	return Cnil;
}
/*	local entry for function progn 'compile36811	*/

static object LI65()

{	 VMB61 VMS61 VMV61
	goto TTL;
TTL:;
	{object V1711;
	V1711= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[520]),(V1711),((object)VV[171])),((object)VV[171])));}
	{object V1713 = Cnil;
	VMR61(V1713)}
	return Cnil;
}
/*	local entry for function progn 'compile36812	*/

static object LI66()

{	 VMB62 VMS62 VMV62
	goto TTL;
TTL:;
	{object V1715;
	V1715= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[521]),(V1715),((object)VV[163])),((object)VV[163])));}
	{object V1717 = Cnil;
	VMR62(V1717)}
	return Cnil;
}
/*	local entry for function progn 'compile36813	*/

static object LI67()

{	 VMB63 VMS63 VMV63
	goto TTL;
TTL:;
	{object V1719;
	V1719= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[522]),(V1719),((object)VV[288])),((object)VV[288])));}
	{object V1721 = Cnil;
	VMR63(V1721)}
	return Cnil;
}
/*	local entry for function progn 'compile36814	*/

static object LI68()

{	 VMB64 VMS64 VMV64
	goto TTL;
TTL:;
	{object V1723;
	V1723= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[523]),(V1723),((object)VV[264])),((object)VV[264])));}
	{object V1725 = Cnil;
	VMR64(V1725)}
	return Cnil;
}
/*	local entry for function progn 'compile36815	*/

static object LI69()

{	 VMB65 VMS65 VMV65
	goto TTL;
TTL:;
	{object V1727;
	V1727= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[524]),(V1727),((object)VV[300])),((object)VV[300])));}
	{object V1729 = Cnil;
	VMR65(V1729)}
	return Cnil;
}
/*	local entry for function progn 'compile36816	*/

static object LI70()

{	 VMB66 VMS66 VMV66
	goto TTL;
TTL:;
	{object V1731;
	V1731= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[525]),(V1731),((object)VV[395])),((object)VV[395])));}
	{object V1733 = Cnil;
	VMR66(V1733)}
	return Cnil;
}
/*	local entry for function progn 'compile36817	*/

static object LI71()

{	 VMB67 VMS67 VMV67
	goto TTL;
TTL:;
	{object V1735;
	V1735= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[526]),(V1735),((object)VV[527])),((object)VV[527])));}
	{object V1737 = Cnil;
	VMR67(V1737)}
	return Cnil;
}
/*	local entry for function progn 'compile36818	*/

static object LI72()

{	 VMB68 VMS68 VMV68
	goto TTL;
TTL:;
	{object V1739;
	V1739= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[528]),(V1739),((object)VV[203])),((object)VV[203])));}
	{object V1741 = Cnil;
	VMR68(V1741)}
	return Cnil;
}
/*	local entry for function progn 'compile36819	*/

static object LI73()

{	 VMB69 VMS69 VMV69
	goto TTL;
TTL:;
	{object V1743;
	V1743= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[529]),(V1743),((object)VV[222])),((object)VV[222])));}
	{object V1745 = Cnil;
	VMR69(V1745)}
	return Cnil;
}
/*	local entry for function progn 'compile36820	*/

static object LI74()

{	 VMB70 VMS70 VMV70
	goto TTL;
TTL:;
	{object V1747;
	V1747= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[530]),(V1747),((object)VV[402])),((object)VV[402])));}
	{object V1749 = Cnil;
	VMR70(V1749)}
	return Cnil;
}
/*	local entry for function progn 'compile36821	*/

static object LI75()

{	 VMB71 VMS71 VMV71
	goto TTL;
TTL:;
	{object V1751;
	V1751= symbol_value(((object)VV[515]));
	(void)((sethash_with_check(((object)VV[531]),(V1751),((object)VV[508])),((object)VV[508])));}
	{object V1753 = Cnil;
	VMR71(V1753)}
	return Cnil;
}
/*	function definition for MAKE-SCENE-2D	*/

static void L76()
{register object *base=vs_base;
	register object *sup=base+VM72; VC72
	vs_reserve(VM72);
	{object V1754;
	check_arg(1);
	V1754=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1755;
	object V1756;
	object V1757;
	object V1758;
	V1755= Cnil;
	V1756= Cnil;
	V1757= Cnil;
	V1758= Cnil;
	vs_base=vs_top;
	(void) (*Lnk967)();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk968)();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk969)();
	vs_top=sup;
	V1759= ((object)VV[971]);
	V1760= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V1759,(V1754)));
	V1761= make_cons(((object)VV[533]),/* INLINE-ARGS */V1760);
	V1762= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[532]),/* INLINE-ARGS */V1761));
	V1763= (*(LnkLI970))(/* INLINE-ARGS */V1762);
	V1757= cdr(/* INLINE-ARGS */V1763);
	{object V1764;
	register object V1765;
	V1764= (V1757);
	V1765= car((V1764));
	goto T4968;
T4968:;
	if(!(endp_prop((V1764)))){
	goto T4969;}
	goto T4964;
	goto T4969;
T4969:;
	V1766= (*(LnkLI972))((V1765));
	if(!(equal(/* INLINE-ARGS */V1766,((object)VV[535])))){
	goto T4975;}
	base[2]= (V1765);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= (V1765);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T4973;
	goto T4975;
T4975:;
	V1758= caar((V1765));
	if((({struct htent *_z=gethash_with_check((V1758),symbol_value(((object)VV[515])));_z->hte_key==OBJNULL ? (Cnil) : _z->hte_value;}))==Cnil){
	goto T4982;}
	base[1]= ({struct htent *_z=gethash_with_check((V1758),symbol_value(((object)VV[515])));_z->hte_key==OBJNULL ? (Cnil) : _z->hte_value;});
	{object V1768;
	V1768= cdr((V1765));
	 vs_top=base+2;
	 while(!endp(V1768))
	 {vs_push(car(V1768));V1768=cdr(V1768);}
	vs_base=base+2;}
	{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1767= vs_base[0];
	V1769= make_cons(V1767,Cnil);
	V1755= append((V1755),/* INLINE-ARGS */V1769);
	goto T4973;
	goto T4982;
T4982:;
	(void)((VFUN_NARGS=2,(*(LnkLI890))(((object)VV[536]),(V1758))));
	goto T4973;
T4973:;
	V1764= cdr((V1764));
	V1765= car((V1764));
	goto T4968;}
	goto T4964;
T4964:;
	base[1]= ((object)VV[538]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1770= vs_base[0];
	V1771= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[537]),V1770));
	base[1]= ((object)VV[539]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1773= vs_base[0];
	if(!(equal(V1773,((object)VV[2])))){
	goto T5000;}
	V1772= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[540])));
	goto T4998;
	goto T5000;
T5000:;
	V1772= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[541])));
	goto T4998;
T4998:;
	{object V1775;
	object V1776;
	object V1777;
	object V1778;
	object V1779;
	object V1780;
	object V1781;
	object V1782;
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1783= vs_base[0];
	V1775= car(V1783);
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1784= vs_base[0];
	V1776= cadr(V1784);
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1785= vs_base[0];
	V1777= car(V1785);
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1786= vs_base[0];
	V1778= cadr(V1786);
	base[1]= ((object)VV[25]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1787= vs_base[0];
	V1779= car(V1787);
	base[1]= ((object)VV[25]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1788= vs_base[0];
	V1780= cadr(V1788);
	base[1]= ((object)VV[28]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1789= vs_base[0];
	V1781= car(V1789);
	base[1]= ((object)VV[28]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1790= vs_base[0];
	V1782= cadr(V1790);
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5029;}
	base[1]= (V1775);
	base[2]= (V1776);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5029;}
	V1775= immnum_minus((V1775),((object)VV[542]));
	V1776= immnum_plus((V1776),((object)VV[542]));
	goto T5029;
T5029:;
	base[1]= ((object)VV[25]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5040;}
	base[1]= (V1779);
	base[2]= (V1780);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5040;}
	V1779= immnum_minus((V1779),((object)VV[542]));
	V1780= immnum_plus((V1780),((object)VV[542]));
	goto T5040;
T5040:;
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5051;}
	base[1]= (V1777);
	base[2]= (V1778);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5051;}
	V1777= immnum_minus((V1777),((object)VV[542]));
	V1778= immnum_plus((V1778),((object)VV[542]));
	goto T5051;
T5051:;
	base[1]= ((object)VV[28]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5062;}
	base[1]= (V1781);
	base[2]= (V1782);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5062;}
	V1781= immnum_minus((V1781),((object)VV[542]));
	V1782= immnum_plus((V1782),((object)VV[542]));
	goto T5062;
T5062:;
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5075;}
	V1791= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[544]),(V1775),(V1776)));
	goto T5073;
	goto T5075;
T5075:;
	V1791= ((object)VV[545]);
	goto T5073;
T5073:;
	base[1]= ((object)VV[25]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5080;}
	V1792= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[546]),(V1779),(V1780)));
	goto T5078;
	goto T5080;
T5080:;
	V1792= ((object)VV[547]);
	goto T5078;
T5078:;
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5085;}
	V1793= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[548]),(V1777),(V1778)));
	goto T5083;
	goto T5085;
T5085:;
	V1793= ((object)VV[549]);
	goto T5083;
T5083:;
	base[1]= ((object)VV[28]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5090;}
	V1794= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[550]),(V1781),(V1782)));
	goto T5088;
	goto T5090;
T5090:;
	V1794= ((object)VV[551]);
	goto T5088;
T5088:;
	V1774= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[543]),V1791,V1792,V1793,V1794));}
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5095;}
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1796= vs_base[0];
	V1797= car(V1796);
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1798= vs_base[0];
	V1795= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[553]),/* INLINE-ARGS */V1797,cadr(V1798)));
	goto T5093;
	goto T5095;
T5095:;
	V1795= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[554])));
	goto T5093;
T5093:;
	base[1]= ((object)VV[555]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5104;}
	V1799= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[556])));
	goto T5102;
	goto T5104;
T5104:;
	V1799= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[557])));
	goto T5102;
T5102:;
	base[1]= ((object)VV[558]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5109;}
	V1800= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[559])));
	goto T5107;
	goto T5109;
T5109:;
	V1800= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[560])));
	goto T5107;
T5107:;
	base[1]= ((object)VV[561]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5114;}
	V1801= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[562])));
	goto T5112;
	goto T5114;
T5114:;
	V1801= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[563])));
	goto T5112;
T5112:;
	base[1]= ((object)VV[564]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5119;}
	V1802= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[565])));
	goto T5117;
	goto T5119;
T5119:;
	V1802= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[566])));
	goto T5117;
T5117:;
	base[1]= ((object)VV[567]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5124;}
	V1803= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[568])));
	goto T5122;
	goto T5124;
T5124:;
	V1803= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[569])));
	goto T5122;
T5122:;
	base[1]= ((object)VV[570]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5129;}
	V1804= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[571])));
	goto T5127;
	goto T5129;
T5129:;
	V1804= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[572])));
	goto T5127;
T5127:;
	base[1]= ((object)VV[574]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1805= vs_base[0];
	V1806= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[573]),V1805));
	base[1]= ((object)VV[576]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1807= vs_base[0];
	V1808= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[575]),V1807));
	base[1]= ((object)VV[578]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1809= vs_base[0];
	V1810= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[577]),V1809));
	{object V1812;
	V1812= small_fixnum(0);
	base[1]= ((object)VV[579]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5139;}
	V1812= immnum_plus((V1812),small_fixnum(1));
	goto T5139;
T5139:;
	base[1]= ((object)VV[580]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5144;}
	V1812= immnum_plus((V1812),small_fixnum(2));
	goto T5144;
T5144:;
	base[1]= ((object)VV[581]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5149;}
	V1812= immnum_plus((V1812),small_fixnum(4));
	goto T5149;
T5149:;
	base[1]= ((object)VV[582]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5154;}
	V1812= immnum_plus((V1812),small_fixnum(8));
	goto T5154;
T5154:;
	V1811= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[583]),(V1812)));}
	base[1]= ((object)VV[584]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5161;}
	base[1]= ((object)VV[584]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1814= vs_base[0];
	V1813= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[585]),V1814));
	goto T5159;
	goto T5161;
T5161:;
	V1813= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[586])));
	goto T5159;
T5159:;
	base[1]= ((object)VV[587]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5168;}
	base[1]= ((object)VV[589]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1816= vs_base[0];
	base[1]= ((object)VV[590]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1817= vs_base[0];
	base[2]= ((object)VV[591]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1818= vs_base[0];
	V1815= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[588]),V1816,V1817,V1818));
	goto T5166;
	goto T5168;
T5168:;
	V1815= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[592])));
	goto T5166;
T5166:;
	base[1]= ((object)VV[593]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5180;}
	base[1]= ((object)VV[595]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1820= vs_base[0];
	base[1]= ((object)VV[596]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1821= vs_base[0];
	base[2]= ((object)VV[597]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1822= vs_base[0];
	V1819= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[594]),V1820,V1821,V1822));
	goto T5178;
	goto T5180;
T5180:;
	V1819= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[598])));
	goto T5178;
T5178:;
	base[1]= ((object)VV[599]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5192;}
	V1823= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[600])));
	goto T5190;
	goto T5192;
T5192:;
	base[1]= ((object)VV[602]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5197;}
	V1824= ((object)VV[603]);
	goto T5195;
	goto T5197;
T5197:;
	V1824= ((object)VV[604]);
	goto T5195;
T5195:;
	base[1]= ((object)VV[605]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5202;}
	V1825= ((object)VV[606]);
	goto T5200;
	goto T5202;
T5202:;
	V1825= ((object)VV[607]);
	goto T5200;
T5200:;
	base[1]= ((object)VV[599]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1826= vs_base[0];
	V1823= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[601]),V1824,V1825,V1826));
	goto T5190;
T5190:;
	base[1]= ((object)VV[608]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5209;}
	V1827= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[609])));
	goto T5207;
	goto T5209;
T5209:;
	base[1]= ((object)VV[611]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5214;}
	V1828= ((object)VV[612]);
	goto T5212;
	goto T5214;
T5214:;
	V1828= ((object)VV[613]);
	goto T5212;
T5212:;
	base[1]= ((object)VV[614]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5219;}
	V1829= ((object)VV[615]);
	goto T5217;
	goto T5219;
T5219:;
	V1829= ((object)VV[616]);
	goto T5217;
T5217:;
	base[1]= ((object)VV[608]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1830= vs_base[0];
	V1827= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[610]),V1828,V1829,V1830));
	goto T5207;
T5207:;
	base[1]= ((object)VV[617]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5226;}
	V1831= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[618])));
	goto T5224;
	goto T5226;
T5226:;
	base[1]= ((object)VV[620]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5231;}
	V1832= ((object)VV[621]);
	goto T5229;
	goto T5231;
T5231:;
	V1832= ((object)VV[622]);
	goto T5229;
T5229:;
	base[1]= ((object)VV[623]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5236;}
	V1833= ((object)VV[624]);
	goto T5234;
	goto T5236;
T5236:;
	V1833= ((object)VV[625]);
	goto T5234;
T5234:;
	base[1]= ((object)VV[617]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1834= vs_base[0];
	V1831= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[619]),V1832,V1833,V1834));
	goto T5224;
T5224:;
	base[1]= ((object)VV[626]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5243;}
	V1835= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[627])));
	goto T5241;
	goto T5243;
T5243:;
	base[1]= ((object)VV[629]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5248;}
	V1836= ((object)VV[630]);
	goto T5246;
	goto T5248;
T5248:;
	V1836= ((object)VV[631]);
	goto T5246;
T5246:;
	base[1]= ((object)VV[632]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5253;}
	V1837= ((object)VV[633]);
	goto T5251;
	goto T5253;
T5253:;
	V1837= ((object)VV[634]);
	goto T5251;
T5251:;
	base[1]= ((object)VV[626]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1838= vs_base[0];
	V1835= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[628]),V1836,V1837,V1838));
	goto T5241;
T5241:;
	base[1]= ((object)VV[635]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5260;}
	V1839= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[636])));
	goto T5258;
	goto T5260;
T5260:;
	base[1]= ((object)VV[635]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1840= vs_base[0];
	V1839= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[637]),V1840));
	goto T5258;
T5258:;
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5267;}
	V1841= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[639])));
	goto T5265;
	goto T5267;
T5267:;
	V1841= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[640])));
	goto T5265;
T5265:;
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1843= vs_base[0];
	if(!(type_of(V1843)==t_string)){
	goto T5272;}
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1842= vs_base[0];
	goto T5270;
	goto T5272;
T5272:;
	V1842= ((object)VV[642]);
	goto T5270;
T5270:;
	V1844= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[641]),V1842));
	{object V1846;
	base[1]= ((object)VV[643]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1846= vs_base[0];
	if(!(equal((V1846),((object)VV[644])))){
	goto T5281;}
	V1845= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[645])));
	goto T5277;
	goto T5281;
T5281:;
	if(!(equal((V1846),((object)VV[69])))){
	goto T5284;}
	V1845= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[646])));
	goto T5277;
	goto T5284;
T5284:;
	if(!(type_of((V1846))==t_cons||((V1846))==Cnil)){
	goto T5287;}
	if(!(((long)length((V1846)))==((long)3))){
	goto T5287;}
	V1847= ((object)VV[977]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V1847,(V1846))))==Cnil){
	goto T5287;}
	V1845= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[647]),car((V1846)),cadr((V1846)),caddr((V1846))));
	goto T5277;
	goto T5287;
T5287:;
	if(!(type_of((V1846))==t_cons||((V1846))==Cnil)){
	goto T5295;}
	V1848= ((object)VV[978]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V1848,(V1846))))==Cnil){
	goto T5295;}
	{register object V1849;
	object V1850;
	V1850= make_fixnum((long)(length((V1846))));
	V1849= Cnil;
	{register object V1851;
	vs_base=vs_top;
	(void) (*Lnk926)();
	vs_top=sup;
	V1851= vs_base[0];
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V1851),((object)VV[648]))));
	if(!(immnum_lt((V1850),small_fixnum(0)))){
	goto T5305;}
	{long V1852;
	V1852= (long)0;
	goto T5303;}
	goto T5305;
T5305:;
	if(!(immnum_le((V1850),((object)VV[257])))){
	goto T5309;}
	{register long V1853;
	V1853= fix((V1850));
	{register long V1854;
	V1854= (long)0;
	goto T5314;
T5314:;
	if(!((V1854)>=(V1853))){
	goto T5315;}
	goto T5303;
	goto T5315;
T5315:;
	V1855 = make_fixnum(V1854);
	V1849= (*(LnkLI454))(V1855,(V1846));
	V1856 = make_fixnum(V1854);
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V1851),((object)VV[649]),V1856,car((V1849)),cadr((V1849)),caddr((V1849)))));
	V1857 = make_fixnum(V1854);
	V1858= immnum_plus(V1857,make_fixnum(1));
	if(!(immnum_eq(/* INLINE-ARGS */V1858,(V1850)))){
	goto T5324;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V1851),((object)VV[650]))));
	goto T5322;
	goto T5324;
T5324:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V1851),((object)VV[651]))));
	goto T5322;
T5322:;
	V1854= (long)(V1854)+1;
	goto T5314;}}
	goto T5309;
T5309:;
	{register object V1860;
	V1860= small_fixnum(0);
	goto T5331;
T5331:;
	if(!(immnum_ge((V1860),V1850))){
	goto T5332;}
	goto T5303;
	goto T5332;
T5332:;
	V1849= (*(LnkLI454))((V1860),(V1846));
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V1851),((object)VV[649]),(V1860),car((V1849)),cadr((V1849)),caddr((V1849)))));
	V1861= immnum_plus((V1860),make_fixnum(1));
	if(!(immnum_eq(/* INLINE-ARGS */V1861,(V1850)))){
	goto T5341;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V1851),((object)VV[650]))));
	goto T5339;
	goto T5341;
T5341:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V1851),((object)VV[651]))));
	goto T5339;
T5339:;
	V1860= immnum_plus((V1860),make_fixnum(1));
	goto T5331;}
	goto T5303;
T5303:;
	base[1]= (V1851);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk929)();
	vs_top=sup;
	V1845= vs_base[0];
	goto T5277;}}
	goto T5295;
T5295:;
	V1845= (VFUN_NARGS=1,(*(LnkLI890))(((object)VV[652])));}
	goto T5277;
T5277:;
	base[2]= ((object)VV[653]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[654]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5349;}
	base[1]= ((object)VV[653]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1863= vs_base[0];
	V1862= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[655]),V1863));
	goto T5347;
	goto T5349;
T5349:;
	V1862= Cnil;
	goto T5347;
T5347:;
	V1756= (VFUN_NARGS=27,(*(LnkLI892))(((object)VV[41]),/* INLINE-ARGS */V1771,V1772,V1774,V1795,V1799,V1800,V1801,V1802,V1803,V1804,/* INLINE-ARGS */V1806,/* INLINE-ARGS */V1808,/* INLINE-ARGS */V1810,V1811,V1813,V1815,V1819,V1823,V1827,V1831,V1835,V1839,V1841,/* INLINE-ARGS */V1844,V1845,V1862));
	base[1]= ((object)VV[657]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1864= vs_base[0];
	setq(((object)VV[656]),make_cons(V1864,symbol_value(((object)VV[656]))));
	base[1]= list(3,small_fixnum(2),(V1756),(V1755));
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	local entry for function progn 'compile36871	*/

static object LI77()

{	 VMB73 VMS73 VMV73
	goto TTL;
TTL:;
	{object V1866;
	V1866= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[514]),(V1866),((object)VV[659])),((object)VV[659])));}
	{object V1868 = Cnil;
	VMR73(V1868)}
	return Cnil;
}
/*	local entry for function progn 'compile36872	*/

static object LI78()

{	 VMB74 VMS74 VMV74
	goto TTL;
TTL:;
	{object V1870;
	V1870= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[660]),(V1870),((object)VV[354])),((object)VV[354])));}
	{object V1872 = Cnil;
	VMR74(V1872)}
	return Cnil;
}
/*	local entry for function progn 'compile36873	*/

static object LI79()

{	 VMB75 VMS75 VMV75
	goto TTL;
TTL:;
	{object V1874;
	V1874= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[661]),(V1874),((object)VV[369])),((object)VV[369])));}
	{object V1876 = Cnil;
	VMR75(V1876)}
	return Cnil;
}
/*	local entry for function progn 'compile36874	*/

static object LI80()

{	 VMB76 VMS76 VMV76
	goto TTL;
TTL:;
	{object V1878;
	V1878= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[519]),(V1878),((object)VV[662])),((object)VV[662])));}
	{object V1880 = Cnil;
	VMR76(V1880)}
	return Cnil;
}
/*	local entry for function progn 'compile36875	*/

static object LI81()

{	 VMB77 VMS77 VMV77
	goto TTL;
TTL:;
	{object V1882;
	V1882= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[521]),(V1882),((object)VV[663])),((object)VV[663])));}
	{object V1884 = Cnil;
	VMR77(V1884)}
	return Cnil;
}
/*	local entry for function progn 'compile36876	*/

static object LI82()

{	 VMB78 VMS78 VMV78
	goto TTL;
TTL:;
	{object V1886;
	V1886= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[523]),(V1886),((object)VV[664])),((object)VV[664])));}
	{object V1888 = Cnil;
	VMR78(V1888)}
	return Cnil;
}
/*	local entry for function progn 'compile36877	*/

static object LI83()

{	 VMB79 VMS79 VMV79
	goto TTL;
TTL:;
	{object V1890;
	V1890= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[524]),(V1890),((object)VV[665])),((object)VV[665])));}
	{object V1892 = Cnil;
	VMR79(V1892)}
	return Cnil;
}
/*	local entry for function progn 'compile36878	*/

static object LI84()

{	 VMB80 VMS80 VMV80
	goto TTL;
TTL:;
	{object V1894;
	V1894= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[525]),(V1894),((object)VV[666])),((object)VV[666])));}
	{object V1896 = Cnil;
	VMR80(V1896)}
	return Cnil;
}
/*	local entry for function progn 'compile36879	*/

static object LI85()

{	 VMB81 VMS81 VMV81
	goto TTL;
TTL:;
	{object V1898;
	V1898= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[526]),(V1898),((object)VV[667])),((object)VV[667])));}
	{object V1900 = Cnil;
	VMR81(V1900)}
	return Cnil;
}
/*	local entry for function progn 'compile36880	*/

static object LI86()

{	 VMB82 VMS82 VMV82
	goto TTL;
TTL:;
	{object V1902;
	V1902= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[528]),(V1902),((object)VV[203])),((object)VV[203])));}
	{object V1904 = Cnil;
	VMR82(V1904)}
	return Cnil;
}
/*	local entry for function progn 'compile36881	*/

static object LI87()

{	 VMB83 VMS83 VMV83
	goto TTL;
TTL:;
	{object V1906;
	V1906= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[668]),(V1906),((object)VV[448])),((object)VV[448])));}
	{object V1908 = Cnil;
	VMR83(V1908)}
	return Cnil;
}
/*	local entry for function progn 'compile36882	*/

static object LI88()

{	 VMB84 VMS84 VMV84
	goto TTL;
TTL:;
	{object V1910;
	V1910= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[669]),(V1910),((object)VV[500])),((object)VV[500])));}
	{object V1912 = Cnil;
	VMR84(V1912)}
	return Cnil;
}
/*	local entry for function progn 'compile36883	*/

static object LI89()

{	 VMB85 VMS85 VMV85
	goto TTL;
TTL:;
	{object V1914;
	V1914= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[670]),(V1914),((object)VV[411])),((object)VV[411])));}
	{object V1916 = Cnil;
	VMR85(V1916)}
	return Cnil;
}
/*	local entry for function progn 'compile36884	*/

static object LI90()

{	 VMB86 VMS86 VMV86
	goto TTL;
TTL:;
	{object V1918;
	V1918= symbol_value(((object)VV[658]));
	(void)((sethash_with_check(((object)VV[671]),(V1918),((object)VV[416])),((object)VV[416])));}
	{object V1920 = Cnil;
	VMR86(V1920)}
	return Cnil;
}
/*	function definition for MAKE-SCENE-3D	*/

static void L91()
{register object *base=vs_base;
	register object *sup=base+VM87; VC87
	vs_reserve(VM87);
	{object V1921;
	check_arg(1);
	V1921=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V1922;
	object V1923;
	object V1924;
	object V1925;
	V1922= Cnil;
	V1923= Cnil;
	V1924= Cnil;
	V1925= Cnil;
	vs_base=vs_top;
	(void) (*Lnk967)();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk968)();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk969)();
	vs_top=sup;
	V1926= ((object)VV[979]);
	V1927= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V1926,(V1921)));
	V1928= make_cons(((object)VV[533]),/* INLINE-ARGS */V1927);
	V1929= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[532]),/* INLINE-ARGS */V1928));
	V1930= (*(LnkLI970))(/* INLINE-ARGS */V1929);
	V1924= cdr(/* INLINE-ARGS */V1930);
	{object V1931;
	register object V1932;
	V1931= (V1924);
	V1932= car((V1931));
	goto T5398;
T5398:;
	if(!(endp_prop((V1931)))){
	goto T5399;}
	goto T5394;
	goto T5399;
T5399:;
	V1933= (*(LnkLI972))((V1932));
	if(!(equal(/* INLINE-ARGS */V1933,((object)VV[672])))){
	goto T5405;}
	base[2]= (V1932);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= (V1932);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5403;
	goto T5405;
T5405:;
	V1925= caar((V1932));
	if((({struct htent *_z=gethash_with_check((V1925),symbol_value(((object)VV[658])));_z->hte_key==OBJNULL ? (Cnil) : _z->hte_value;}))==Cnil){
	goto T5412;}
	base[1]= ({struct htent *_z=gethash_with_check((V1925),symbol_value(((object)VV[658])));_z->hte_key==OBJNULL ? (Cnil) : _z->hte_value;});
	{object V1935;
	V1935= cdr((V1932));
	 vs_top=base+2;
	 while(!endp(V1935))
	 {vs_push(car(V1935));V1935=cdr(V1935);}
	vs_base=base+2;}
	{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	V1934= vs_base[0];
	V1936= make_cons(V1934,Cnil);
	V1922= append((V1922),/* INLINE-ARGS */V1936);
	goto T5403;
	goto T5412;
T5412:;
	(void)((VFUN_NARGS=2,(*(LnkLI890))(((object)VV[673]),(V1925))));
	goto T5403;
T5403:;
	V1931= cdr((V1931));
	V1932= car((V1931));
	goto T5398;}
	goto T5394;
T5394:;
	base[1]= ((object)VV[538]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1937= vs_base[0];
	V1938= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[674]),V1937));
	{object V1940;
	object V1941;
	object V1942;
	object V1943;
	object V1944;
	object V1945;
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1946= vs_base[0];
	V1940= car(V1946);
	base[1]= ((object)VV[26]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1947= vs_base[0];
	V1941= cadr(V1947);
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1948= vs_base[0];
	V1942= car(V1948);
	base[1]= ((object)VV[29]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1949= vs_base[0];
	V1943= cadr(V1949);
	base[1]= ((object)VV[30]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1950= vs_base[0];
	V1944= car(V1950);
	base[1]= ((object)VV[30]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1951= vs_base[0];
	V1945= cadr(V1951);
	base[1]= (V1940);
	base[2]= (V1941);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5447;}
	V1940= immnum_minus((V1940),((object)VV[542]));
	V1941= immnum_plus((V1941),((object)VV[542]));
	goto T5447;
T5447:;
	base[1]= (V1942);
	base[2]= (V1943);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5455;}
	V1942= immnum_minus((V1942),((object)VV[542]));
	V1943= immnum_plus((V1943),((object)VV[542]));
	goto T5455;
T5455:;
	base[1]= (V1944);
	base[2]= (V1945);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk974)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5463;}
	V1944= immnum_minus((V1944),((object)VV[542]));
	V1945= immnum_plus((V1945),((object)VV[542]));
	goto T5463;
T5463:;
	V1939= (VFUN_NARGS=8,(*(LnkLI761))(Cnil,((object)VV[675]),(V1940),(V1941),(V1942),(V1943),(V1944),(V1945)));}
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5473;}
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1953= vs_base[0];
	V1954= car(V1953);
	base[1]= ((object)VV[552]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1955= vs_base[0];
	V1952= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[676]),/* INLINE-ARGS */V1954,cadr(V1955)));
	goto T5471;
	goto T5473;
T5473:;
	V1952= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[677])));
	goto T5471;
T5471:;
	base[1]= ((object)VV[678]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1958= vs_base[0];
	{object V1957= V1958;
	if((V1957!= ((object)VV[980])))goto T5483;
	base[1]= ((object)VV[680]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1959= vs_base[0];
	V1956= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[679]),V1959));
	goto T5480;
	goto T5483;
T5483:;
	if((V1957!= ((object)VV[981])))goto T5486;
	base[1]= ((object)VV[680]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1960= vs_base[0];
	V1956= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[681]),V1960));
	goto T5480;
	goto T5486;
T5486:;
	if((V1957!= ((object)VV[982])))goto T5489;
	base[1]= ((object)VV[680]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1961= vs_base[0];
	V1956= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[682]),V1961));
	goto T5480;
	goto T5489;
T5489:;
	if((V1957!= ((object)VV[737])))goto T5492;
	base[1]= ((object)VV[680]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1962= vs_base[0];
	V1956= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[683]),V1962));
	goto T5480;
	goto T5492;
T5492:;
	V1956= Cnil;}
	goto T5480;
T5480:;
	base[1]= ((object)VV[574]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1963= vs_base[0];
	V1964= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[684]),V1963));
	base[1]= ((object)VV[576]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1965= vs_base[0];
	V1966= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[685]),V1965));
	base[1]= ((object)VV[578]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1967= vs_base[0];
	V1968= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[686]),V1967));
	base[1]= ((object)VV[687]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1970= vs_base[0];
	if(!(((long)length(V1970))<((long)5))){
	goto T5503;}
	base[1]= ((object)VV[687]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1971= vs_base[0];
	V1969= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[688]),V1971));
	goto T5501;
	goto T5503;
T5503:;
	base[1]= ((object)VV[687]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1972= vs_base[0];
	V1969= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[689]),V1972));
	goto T5501;
T5501:;
	V1973= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[690])));
	base[1]= ((object)VV[555]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5513;}
	V1974= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[691])));
	goto T5511;
	goto T5513;
T5513:;
	V1974= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[692])));
	goto T5511;
T5511:;
	base[1]= ((object)VV[561]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5518;}
	V1975= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[693])));
	goto T5516;
	goto T5518;
T5518:;
	V1975= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[694])));
	goto T5516;
T5516:;
	base[1]= ((object)VV[695]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5523;}
	V1976= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[696])));
	goto T5521;
	goto T5523;
T5523:;
	V1976= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[697])));
	goto T5521;
T5521:;
	base[1]= ((object)VV[584]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5528;}
	base[1]= ((object)VV[584]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1978= vs_base[0];
	V1977= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[698]),V1978));
	goto T5526;
	goto T5528;
T5528:;
	V1977= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[699])));
	goto T5526;
T5526:;
	base[1]= ((object)VV[567]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5535;}
	V1979= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[700])));
	goto T5533;
	goto T5535;
T5535:;
	V1979= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[701])));
	goto T5533;
T5533:;
	base[1]= ((object)VV[570]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5540;}
	V1980= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[702])));
	goto T5538;
	goto T5540;
T5540:;
	V1980= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[703])));
	goto T5538;
T5538:;
	base[1]= ((object)VV[587]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5545;}
	base[1]= ((object)VV[589]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1982= vs_base[0];
	base[1]= ((object)VV[590]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1983= vs_base[0];
	base[2]= ((object)VV[591]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1984= vs_base[0];
	V1981= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[704]),V1982,V1983,V1984));
	goto T5543;
	goto T5545;
T5545:;
	V1981= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[705])));
	goto T5543;
T5543:;
	base[1]= ((object)VV[593]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5557;}
	base[1]= ((object)VV[595]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1986= vs_base[0];
	base[1]= ((object)VV[596]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1987= vs_base[0];
	base[2]= ((object)VV[597]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1988= vs_base[0];
	V1985= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[706]),V1986,V1987,V1988));
	goto T5555;
	goto T5557;
T5557:;
	V1985= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[707])));
	goto T5555;
T5555:;
	base[1]= ((object)VV[708]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5569;}
	base[1]= ((object)VV[710]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1990= vs_base[0];
	base[1]= ((object)VV[711]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1991= vs_base[0];
	base[2]= ((object)VV[712]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk897)();
	vs_top=sup;
	V1992= vs_base[0];
	V1989= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[709]),V1990,V1991,V1992));
	goto T5567;
	goto T5569;
T5569:;
	V1989= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[713])));
	goto T5567;
T5567:;
	base[1]= ((object)VV[608]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5581;}
	V1993= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[714])));
	goto T5579;
	goto T5581;
T5581:;
	base[1]= ((object)VV[611]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5586;}
	V1994= ((object)VV[716]);
	goto T5584;
	goto T5586;
T5586:;
	V1994= ((object)VV[717]);
	goto T5584;
T5584:;
	base[1]= ((object)VV[614]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5591;}
	V1995= ((object)VV[718]);
	goto T5589;
	goto T5591;
T5591:;
	V1995= ((object)VV[719]);
	goto T5589;
T5589:;
	base[1]= ((object)VV[608]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V1996= vs_base[0];
	V1993= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[715]),V1994,V1995,V1996));
	goto T5579;
T5579:;
	base[1]= ((object)VV[626]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5598;}
	V1997= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[720])));
	goto T5596;
	goto T5598;
T5598:;
	base[1]= ((object)VV[629]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5603;}
	V1998= ((object)VV[722]);
	goto T5601;
	goto T5603;
T5603:;
	V1998= ((object)VV[723]);
	goto T5601;
T5601:;
	base[1]= ((object)VV[632]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5608;}
	V1999= ((object)VV[724]);
	goto T5606;
	goto T5608;
T5608:;
	V1999= ((object)VV[725]);
	goto T5606;
T5606:;
	base[1]= ((object)VV[626]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2000= vs_base[0];
	V1997= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[721]),V1998,V1999,V2000));
	goto T5596;
T5596:;
	base[1]= ((object)VV[726]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5615;}
	V2001= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[727])));
	goto T5613;
	goto T5615;
T5615:;
	base[1]= ((object)VV[729]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5620;}
	V2002= ((object)VV[730]);
	goto T5618;
	goto T5620;
T5620:;
	V2002= ((object)VV[731]);
	goto T5618;
T5618:;
	base[1]= ((object)VV[732]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5625;}
	V2003= ((object)VV[733]);
	goto T5623;
	goto T5625;
T5625:;
	V2003= ((object)VV[734]);
	goto T5623;
T5623:;
	base[1]= ((object)VV[726]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2004= vs_base[0];
	V2001= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[728]),V2002,V2003,V2004));
	goto T5613;
T5613:;
	base[1]= ((object)VV[635]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5632;}
	V2005= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[735])));
	goto T5630;
	goto T5632;
T5632:;
	base[1]= ((object)VV[635]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2006= vs_base[0];
	V2005= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[736]),V2006));
	goto T5630;
T5630:;
	base[1]= ((object)VV[678]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2008= vs_base[0];
	if(!(eql(V2008,((object)VV[737])))){
	goto T5639;}
	base[1]= ((object)VV[539]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2010= vs_base[0];
	if(!(equal(V2010,((object)VV[2])))){
	goto T5645;}
	V2009= ((object)VV[739]);
	goto T5643;
	goto T5645;
T5645:;
	V2009= ((object)VV[740]);
	goto T5643;
T5643:;
	V2007= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[738]),V2009));
	goto T5637;
	goto T5639;
T5639:;
	base[1]= ((object)VV[742]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2011= vs_base[0];
	V2012= car(V2011);
	base[1]= ((object)VV[742]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2013= vs_base[0];
	V2014= cadr(V2013);
	base[1]= ((object)VV[539]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2017= vs_base[0];
	{object V2016= V2017;
	if((V2016!= ((object)VV[56])))goto T5656;
	V2015= ((object)VV[743]);
	goto T5653;
	goto T5656;
T5656:;
	if((V2016!= ((object)VV[983])))goto T5657;
	V2015= ((object)VV[744]);
	goto T5653;
	goto T5657;
T5657:;
	V2015= ((object)VV[745]);}
	goto T5653;
T5653:;
	V2007= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[741]),/* INLINE-ARGS */V2012,/* INLINE-ARGS */V2014,V2015));
	goto T5637;
T5637:;
	base[1]= ((object)VV[746]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5660;}
	V2018= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[747])));
	goto T5658;
	goto T5660;
T5660:;
	V2018= Cnil;
	goto T5658;
T5658:;
	base[1]= ((object)VV[308]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5665;}
	base[1]= ((object)VV[748]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5669;}
	V2019= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[749])));
	goto T5663;
	goto T5669;
T5669:;
	V2019= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[750])));
	goto T5663;
	goto T5665;
T5665:;
	V2019= Cnil;
	goto T5663;
T5663:;
	base[1]= ((object)VV[751]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5674;}
	V2020= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[752])));
	goto T5672;
	goto T5674;
T5674:;
	V2020= Cnil;
	goto T5672;
T5672:;
	base[1]= ((object)VV[753]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5679;}
	base[1]= ((object)VV[753]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2022= vs_base[0];
	V2021= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[754]),V2022));
	goto T5677;
	goto T5679;
T5679:;
	V2021= Cnil;
	goto T5677;
T5677:;
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5686;}
	V2023= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[755])));
	goto T5684;
	goto T5686;
T5686:;
	V2023= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[756])));
	goto T5684;
T5684:;
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2025= vs_base[0];
	if(!(type_of(V2025)==t_string)){
	goto T5691;}
	base[1]= ((object)VV[638]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2024= vs_base[0];
	goto T5689;
	goto T5691;
T5691:;
	V2024= ((object)VV[758]);
	goto T5689;
T5689:;
	V2026= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[757]),V2024));
	{object V2028;
	base[1]= ((object)VV[643]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2028= vs_base[0];
	if(!(equal((V2028),((object)VV[644])))){
	goto T5700;}
	V2027= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[645])));
	goto T5696;
	goto T5700;
T5700:;
	if(!(equal((V2028),((object)VV[69])))){
	goto T5703;}
	V2027= (VFUN_NARGS=2,(*(LnkLI761))(Cnil,((object)VV[646])));
	goto T5696;
	goto T5703;
T5703:;
	if(!(type_of((V2028))==t_cons||((V2028))==Cnil)){
	goto T5706;}
	if(!(((long)length((V2028)))==((long)3))){
	goto T5706;}
	V2029= ((object)VV[984]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V2029,(V2028))))==Cnil){
	goto T5706;}
	V2027= (VFUN_NARGS=5,(*(LnkLI761))(Cnil,((object)VV[647]),car((V2028)),cadr((V2028)),caddr((V2028))));
	goto T5696;
	goto T5706;
T5706:;
	if(!(type_of((V2028))==t_cons||((V2028))==Cnil)){
	goto T5714;}
	V2030= ((object)VV[985]);
	if(((VFUN_NARGS=2,(*(LnkLI894))(V2030,(V2028))))==Cnil){
	goto T5714;}
	{register object V2031;
	object V2032;
	V2032= make_fixnum((long)(length((V2028))));
	V2031= Cnil;
	{register object V2033;
	vs_base=vs_top;
	(void) (*Lnk926)();
	vs_top=sup;
	V2033= vs_base[0];
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2033),((object)VV[648]))));
	if(!(immnum_lt((V2032),small_fixnum(0)))){
	goto T5724;}
	{long V2034;
	V2034= (long)0;
	goto T5722;}
	goto T5724;
T5724:;
	if(!(immnum_le((V2032),((object)VV[257])))){
	goto T5728;}
	{register long V2035;
	V2035= fix((V2032));
	{register long V2036;
	V2036= (long)0;
	goto T5733;
T5733:;
	if(!((V2036)>=(V2035))){
	goto T5734;}
	goto T5722;
	goto T5734;
T5734:;
	V2037 = make_fixnum(V2036);
	V2031= (*(LnkLI454))(V2037,(V2028));
	V2038 = make_fixnum(V2036);
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2033),((object)VV[649]),V2038,car((V2031)),cadr((V2031)),caddr((V2031)))));
	V2039 = make_fixnum(V2036);
	V2040= immnum_plus(V2039,make_fixnum(1));
	if(!(immnum_eq(/* INLINE-ARGS */V2040,(V2032)))){
	goto T5743;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2033),((object)VV[650]))));
	goto T5741;
	goto T5743;
T5743:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2033),((object)VV[651]))));
	goto T5741;
T5741:;
	V2036= (long)(V2036)+1;
	goto T5733;}}
	goto T5728;
T5728:;
	{register object V2042;
	V2042= small_fixnum(0);
	goto T5750;
T5750:;
	if(!(immnum_ge((V2042),V2032))){
	goto T5751;}
	goto T5722;
	goto T5751;
T5751:;
	V2031= (*(LnkLI454))((V2042),(V2028));
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2033),((object)VV[649]),(V2042),car((V2031)),cadr((V2031)),caddr((V2031)))));
	V2043= immnum_plus((V2042),make_fixnum(1));
	if(!(immnum_eq(/* INLINE-ARGS */V2043,(V2032)))){
	goto T5760;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2033),((object)VV[650]))));
	goto T5758;
	goto T5760;
T5760:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2033),((object)VV[651]))));
	goto T5758;
T5758:;
	V2042= immnum_plus((V2042),make_fixnum(1));
	goto T5750;}
	goto T5722;
T5722:;
	base[1]= (V2033);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk929)();
	vs_top=sup;
	V2027= vs_base[0];
	goto T5696;}}
	goto T5714;
T5714:;
	V2027= (VFUN_NARGS=1,(*(LnkLI890))(((object)VV[652])));}
	goto T5696;
T5696:;
	base[2]= ((object)VV[653]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[759]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T5768;}
	base[1]= ((object)VV[653]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2045= vs_base[0];
	V2044= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[760]),V2045));
	goto T5766;
	goto T5768;
T5768:;
	V2044= Cnil;
	goto T5766;
T5766:;
	V1923= (VFUN_NARGS=32,(*(LnkLI892))(((object)VV[41]),/* INLINE-ARGS */V1938,V1939,V1952,V1956,/* INLINE-ARGS */V1964,/* INLINE-ARGS */V1966,/* INLINE-ARGS */V1968,V1969,/* INLINE-ARGS */V1973,V1974,V1975,V1976,V1977,V1979,V1980,V1981,V1985,V1989,V1993,V1997,V2001,V2005,V2007,V2018,V2019,V2020,V2021,V2023,/* INLINE-ARGS */V2026,V2027,V2044));
	base[1]= ((object)VV[657]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2046= vs_base[0];
	setq(((object)VV[656]),make_cons(V2046,symbol_value(((object)VV[656]))));
	base[1]= list(3,small_fixnum(3),(V1923),(V1922));
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	macro definition for WRITE-SUBARRAY	*/

static void L92()
{register object *base=vs_base;
	register object *sup=base+VM88; VC88
	vs_reserve(VM88);
	check_arg(2);vs_top=sup;
	{object V2047=base[0]->c.c_cdr;
	if(endp(V2047))invalid_macro_call();
	base[2]= (V2047->c.c_car);
	V2047=V2047->c.c_cdr;
	if(endp(V2047))invalid_macro_call();
	base[3]= (V2047->c.c_car);
	V2047=V2047->c.c_cdr;
	if(!endp(V2047))invalid_macro_call();}
	base[4]= list(4,((object)VV[761]),base[3],((object)VV[762]),list(4,((object)VV[763]),((object)VV[764]),((object)VV[765]),list(4,((object)VV[766]),((object)VV[767]),((object)VV[768]),base[2])));
	vs_top=(vs_base=base+4)+1;
	return;
}
/*	function definition for DRAW_GNUPLOT	*/

static void L93()
{register object *base=vs_base;
	register object *sup=base+VM89; VC89
	vs_reserve(VM89);
	bds_check;
	{object V2048;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V2048=(base[0]);
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk986)();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk969)();
	vs_top=sup;
	setq(((object)VV[656]),Cnil);
	{object V2049;
	object V2050;
	object V2051;
	object V2052;
	object V2053;
	object V2054;
	object V2055;
	register object V2056;
	object V2057;
	object V2058;
	object V2059;
	object V2060;
	object V2061;
	object V2062;
	object V2063;
	object V2064;
	object V2065;
	V2049= small_fixnum(0);
	V2050= ((object)VV[769]);
	V2051= Cnil;
	V2052= Cnil;
	V2053= Cnil;
	V2054= Cnil;
	V2055= Cnil;
	V2056= Cnil;
	V2057= Cnil;
	V2058= small_fixnum(1);
	V2059= Cnil;
	bds_bind(((object)VV[339]),Cnil);
	bds_bind(((object)VV[340]),Cnil);
	V2060= Cnil;
	V2061= Cnil;
	V2062= Cnil;
	V2063= Cnil;
	V2064= Cnil;
	V2065= Cnil;
	V2066= ((object)VV[987]);
	V2067= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V2066,(V2048)));
	V2068= make_cons(((object)VV[533]),/* INLINE-ARGS */V2067);
	V2069= (VFUN_NARGS=2,(*(LnkLI901))(((object)VV[532]),/* INLINE-ARGS */V2068));
	V2070= (*(LnkLI970))(/* INLINE-ARGS */V2069);
	V2065= cdr(/* INLINE-ARGS */V2070);
	{object V2071;
	register object V2072;
	V2071= (V2065);
	V2072= car((V2071));
	goto T5790;
T5790:;
	if(!(endp_prop((V2071)))){
	goto T5791;}
	goto T5786;
	goto T5791;
T5791:;
	V2073= (*(LnkLI972))((V2072));
	if(!(equal(/* INLINE-ARGS */V2073,((object)VV[770])))){
	goto T5797;}
	base[3]= (V2072);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	V2075= vs_base[0];
	{object V2074= V2075;
	if((V2074!= ((object)VV[771])))goto T5801;
	base[3]= ((object)VV[771]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5801;
T5801:;
	if((V2074!= ((object)VV[772])))goto T5805;
	base[3]= ((object)VV[772]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5805;
T5805:;
	if((V2074!= ((object)VV[773])))goto T5809;
	base[3]= ((object)VV[773]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5809;
T5809:;
	if((V2074!= ((object)VV[774])))goto T5813;
	base[3]= ((object)VV[774]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5813;
T5813:;
	if((V2074!= ((object)VV[775])))goto T5817;
	base[3]= ((object)VV[775]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5817;
T5817:;
	if((V2074!= ((object)VV[776])))goto T5821;
	base[3]= ((object)VV[776]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5821;
T5821:;
	if((V2074!= ((object)VV[777])))goto T5825;
	base[3]= ((object)VV[777]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5825;
T5825:;
	if((V2074!= ((object)VV[778])))goto T5829;
	base[3]= ((object)VV[778]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5829;
T5829:;
	if((V2074!= ((object)VV[779])))goto T5833;
	base[3]= ((object)VV[779]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5833;
T5833:;
	if((V2074!= ((object)VV[780])))goto T5837;
	base[3]= ((object)VV[780]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5837;
T5837:;
	if((V2074!= ((object)VV[781])))goto T5841;
	base[3]= ((object)VV[781]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5841;
T5841:;
	if((V2074!= ((object)VV[782])))goto T5845;
	base[3]= ((object)VV[782]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5845;
T5845:;
	if((V2074!= ((object)VV[783])))goto T5849;
	base[3]= ((object)VV[783]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5849;
T5849:;
	if((V2074!= ((object)VV[784])))goto T5853;
	base[3]= ((object)VV[784]);
	base[5]= (V2072);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T5795;
	goto T5853;
T5853:;
	base[3]= (V2072);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	V2076= vs_base[0];
	(void)((VFUN_NARGS=2,(*(LnkLI890))(((object)VV[785]),V2076)));
	goto T5795;}
	goto T5797;
T5797:;
	if(!(equal(caar((V2072)),((object)VV[786])))){
	goto T5860;}
	base[3]= cdr((V2072));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk988)();
	vs_top=sup;
	V2077= vs_base[0];
	V2078= make_cons(V2077,Cnil);
	V2054= append((V2054),/* INLINE-ARGS */V2078);
	goto T5795;
	goto T5860;
T5860:;
	if(!(equal(caar((V2072)),((object)VV[787])))){
	goto T5866;}
	base[3]= cdr((V2072));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk989)();
	vs_top=sup;
	V2079= vs_base[0];
	V2080= make_cons(V2079,Cnil);
	V2054= append((V2054),/* INLINE-ARGS */V2080);
	goto T5795;
	goto T5866;
T5866:;
	(void)((VFUN_NARGS=2,(*(LnkLI890))(((object)VV[788]),(V2072))));
	goto T5795;
T5795:;
	V2071= cdr((V2071));
	V2072= car((V2071));
	goto T5790;}
	goto T5786;
T5786:;
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2081= vs_base[0];
	V2060= (equal(V2081,((object)VV[789]))?Ct:Cnil);
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2083= vs_base[0];
	{register object x= V2083,V2082= ((object)VV[790]);
	while(!endp(V2082))
	if(eql(x,V2082->c.c_car)){
	V2061= V2082;
	goto T5881;
	}else V2082=V2082->c.c_cdr;
	V2061= Cnil;}
	goto T5881;
T5881:;
	base[3]= ((object)VV[775]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2084= vs_base[0];
	V2051= (*(LnkLI990))(V2084);
	base[3]= ((object)VV[776]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2085= vs_base[0];
	V2052= (*(LnkLI990))(V2085);
	base[3]= (V2051);
	base[4]= ((object)VV[791]);
	base[5]= ((object)VV[792]);
	base[6]= ((object)VV[793]);
	base[7]= ((object)VV[794]);
	vs_top=(vs_base=base+3)+5;
	(void) (*Lnk991)();
	vs_top=sup;
	V2055= vs_base[0];
	base[3]= (V2052);
	base[4]= ((object)VV[791]);
	base[5]= ((object)VV[792]);
	base[6]= ((object)VV[793]);
	base[7]= ((object)VV[794]);
	vs_top=(vs_base=base+3)+5;
	(void) (*Lnk991)();
	vs_top=sup;
	V2056= vs_base[0];
	V2057= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[795]),(V2052)));
	if((symbol_value(((object)VV[9])))!=Cnil){
	goto T5908;}
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2087= vs_base[0];
	{object V2086= V2087;
	if((V2086!= ((object)VV[992])))goto T5913;
	base[3]= (V2055);
	base[4]= ((object)VV[796]);
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2088= vs_base[0];
	base[7]= car(V2088);
	base[8]= small_fixnum(10);
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2089= vs_base[0];
	base[8]= cadr(V2089);
	base[9]= small_fixnum(10);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+3)+4;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T5913;
T5913:;
	if((V2086!= ((object)VV[993])))goto T5928;
	base[3]= (V2055);
	base[4]= ((object)VV[797]);
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2090= vs_base[0];
	base[7]= car(V2090);
	base[8]= small_fixnum(10);
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2091= vs_base[0];
	base[8]= cadr(V2091);
	base[9]= small_fixnum(10);
	vs_top=(vs_base=base+8)+2;
	Ldivide();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[8]= ((object)VV[774]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+3)+5;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T5928;
T5928:;
	if((V2086!= ((object)VV[994])))goto T5945;
	base[3]= (V2055);
	base[4]= ((object)VV[798]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5950;}
	base[5]= ((object)VV[6]);
	goto T5948;
	goto T5950;
T5950:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2092= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2093= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2092,V2093));
	goto T5948;
T5948:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2094= vs_base[0];
	base[7]= car(V2094);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2095= vs_base[0];
	base[8]= cadr(V2095);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T5945;
T5945:;
	if((V2086!= ((object)VV[995])))goto T5969;
	base[3]= (V2055);
	base[4]= ((object)VV[799]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5974;}
	base[5]= ((object)VV[6]);
	goto T5972;
	goto T5974;
T5974:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2096= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2097= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2096,V2097));
	goto T5972;
T5972:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2098= vs_base[0];
	base[7]= car(V2098);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2099= vs_base[0];
	base[8]= cadr(V2099);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T5969;
T5969:;
	if((V2086!= ((object)VV[996])))goto T5993;
	base[3]= (V2055);
	base[4]= ((object)VV[800]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T5998;}
	base[5]= ((object)VV[6]);
	goto T5996;
	goto T5998;
T5998:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2100= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2101= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2100,V2101));
	goto T5996;
T5996:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2102= vs_base[0];
	base[7]= car(V2102);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2103= vs_base[0];
	base[8]= cadr(V2103);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T5993;
T5993:;
	if((V2086!= ((object)VV[997]))
	&& (V2086!= ((object)VV[998])))goto T6017;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6020;}
	V2104= ((object)VV[6]);
	goto T6018;
	goto T6020;
T6020:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2105= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2106= vs_base[0];
	V2104= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2105,V2106));
	goto T6018;
T6018:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2108= vs_base[0];
	base[3]= car(V2108);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2107= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2110= vs_base[0];
	base[3]= cadr(V2110);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2109= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2111= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[801]),V2104,V2107,V2109,V2111)));
	goto T5908;
	goto T6017;
T6017:;
	if((V2086!= ((object)VV[999]))
	&& (V2086!= ((object)VV[1000])))goto T6041;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6044;}
	V2112= ((object)VV[6]);
	goto T6042;
	goto T6044;
T6044:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2113= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2114= vs_base[0];
	V2112= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2113,V2114));
	goto T6042;
T6042:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2116= vs_base[0];
	base[3]= car(V2116);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2115= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2118= vs_base[0];
	base[3]= cadr(V2118);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2117= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2119= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[803]),V2112,V2115,V2117,V2119)));
	goto T5908;
	goto T6041;
T6041:;
	if((V2086!= ((object)VV[1001])))goto T6065;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6068;}
	V2120= ((object)VV[6]);
	goto T6066;
	goto T6068;
T6068:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2121= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2122= vs_base[0];
	V2120= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2121,V2122));
	goto T6066;
T6066:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2124= vs_base[0];
	base[3]= car(V2124);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2123= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2126= vs_base[0];
	base[3]= cadr(V2126);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2125= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2127= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[804]),V2120,V2123,V2125,V2127)));
	goto T5908;
	goto T6065;
T6065:;
	if((V2086!= ((object)VV[1002])))goto T6089;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6092;}
	V2128= ((object)VV[6]);
	goto T6090;
	goto T6092;
T6092:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2129= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2130= vs_base[0];
	V2128= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2129,V2130));
	goto T6090;
T6090:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2132= vs_base[0];
	base[3]= car(V2132);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2131= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2134= vs_base[0];
	base[3]= cadr(V2134);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2133= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2135= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[805]),V2128,V2131,V2133,V2135)));
	goto T5908;
	goto T6089;
T6089:;
	if((V2086!= ((object)VV[1003]))
	&& (V2086!= ((object)VV[1004])))goto T6113;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6116;}
	V2136= ((object)VV[6]);
	goto T6114;
	goto T6116;
T6116:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2137= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2138= vs_base[0];
	V2136= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2137,V2138));
	goto T6114;
T6114:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2140= vs_base[0];
	base[3]= car(V2140);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2139= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2142= vs_base[0];
	base[3]= cadr(V2142);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2141= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2143= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[806]),V2136,V2139,V2141,V2143)));
	goto T5908;
	goto T6113;
T6113:;
	if((V2086!= ((object)VV[850]))
	&& (V2086!= ((object)VV[1005])))goto T6137;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[5]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6140;}
	V2144= ((object)VV[6]);
	goto T6138;
	goto T6140;
T6140:;
	base[3]= ((object)VV[4]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2145= vs_base[0];
	base[3]= ((object)VV[8]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2146= vs_base[0];
	V2144= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2145,V2146));
	goto T6138;
T6138:;
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2148= vs_base[0];
	base[3]= car(V2148);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2147= vs_base[0];
	base[4]= ((object)VV[773]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2150= vs_base[0];
	base[3]= cadr(V2150);
	base[4]= ((object)VV[802]);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	V2149= vs_base[0];
	base[3]= ((object)VV[774]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2151= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[807]),V2144,V2147,V2149,V2151)));
	goto T5908;
	goto T6137;
T6137:;
	if((V2086!= ((object)VV[1006])))goto T6161;
	base[3]= (V2055);
	base[4]= ((object)VV[808]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6166;}
	base[5]= ((object)VV[6]);
	goto T6164;
	goto T6166;
T6166:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2152= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2153= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2152,V2153));
	goto T6164;
T6164:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2154= vs_base[0];
	base[7]= car(V2154);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2155= vs_base[0];
	base[8]= cadr(V2155);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6161;
T6161:;
	if((V2086!= ((object)VV[1007])))goto T6185;
	base[3]= (V2055);
	base[4]= ((object)VV[809]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6190;}
	base[5]= ((object)VV[6]);
	goto T6188;
	goto T6190;
T6190:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2156= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2157= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2156,V2157));
	goto T6188;
T6188:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2158= vs_base[0];
	base[7]= car(V2158);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2159= vs_base[0];
	base[8]= cadr(V2159);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6185;
T6185:;
	if((V2086!= ((object)VV[849])))goto T6209;
	base[3]= (V2055);
	base[4]= ((object)VV[810]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6214;}
	base[5]= ((object)VV[6]);
	goto T6212;
	goto T6214;
T6214:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2160= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2161= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2160,V2161));
	goto T6212;
T6212:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2162= vs_base[0];
	base[7]= car(V2162);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2163= vs_base[0];
	base[8]= cadr(V2163);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[774]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6209;
T6209:;
	if((V2086!= ((object)VV[789])))goto T6233;
	base[3]= (V2055);
	base[4]= ((object)VV[811]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6238;}
	base[5]= ((object)VV[6]);
	goto T6236;
	goto T6238;
T6238:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2164= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2165= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2164,V2165));
	goto T6236;
T6236:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2166= vs_base[0];
	base[7]= car(V2166);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2167= vs_base[0];
	base[8]= cadr(V2167);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[9]= ((object)VV[777]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[8]= vs_base[0];
	base[10]= ((object)VV[774]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[9]= vs_base[0];
	vs_top=(vs_base=base+3)+7;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6233;
T6233:;
	if((V2086!= ((object)VV[1008])))goto T6259;
	base[3]= (V2055);
	base[4]= ((object)VV[812]);
	base[5]= symbol_value(((object)VV[813]));
	base[8]= ((object)VV[4]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	base[8]= ((object)VV[5]);
	vs_top=(vs_base=base+7)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6265;}
	base[6]= ((object)VV[6]);
	goto T6263;
	goto T6265;
T6265:;
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2168= vs_base[0];
	base[7]= ((object)VV[8]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2169= vs_base[0];
	base[6]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2168,V2169));
	goto T6263;
T6263:;
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2170= vs_base[0];
	base[8]= car(V2170);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[10]= ((object)VV[773]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2171= vs_base[0];
	base[9]= cadr(V2171);
	vs_top=(vs_base=base+9)+1;
	Lround();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6259;
T6259:;
	if((V2086!= ((object)VV[889])))goto T6282;
	base[3]= (V2055);
	base[4]= ((object)VV[814]);
	base[5]= symbol_value(((object)VV[813]));
	base[8]= ((object)VV[4]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	base[8]= ((object)VV[5]);
	vs_top=(vs_base=base+7)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6288;}
	base[6]= ((object)VV[6]);
	goto T6286;
	goto T6288;
T6288:;
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2172= vs_base[0];
	base[7]= ((object)VV[8]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2173= vs_base[0];
	base[6]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2172,V2173));
	goto T6286;
T6286:;
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2174= vs_base[0];
	base[8]= car(V2174);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[10]= ((object)VV[773]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2175= vs_base[0];
	base[9]= cadr(V2175);
	vs_top=(vs_base=base+9)+1;
	Lround();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6282;
T6282:;
	if((V2086!= ((object)VV[1009])))goto T6305;
	base[3]= (V2055);
	base[4]= ((object)VV[815]);
	base[5]= symbol_value(((object)VV[813]));
	base[8]= ((object)VV[4]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	base[8]= ((object)VV[5]);
	vs_top=(vs_base=base+7)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6311;}
	base[6]= ((object)VV[6]);
	goto T6309;
	goto T6311;
T6311:;
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2176= vs_base[0];
	base[7]= ((object)VV[8]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2177= vs_base[0];
	base[6]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2176,V2177));
	goto T6309;
T6309:;
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2178= vs_base[0];
	base[8]= car(V2178);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[10]= ((object)VV[773]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2179= vs_base[0];
	base[9]= cadr(V2179);
	vs_top=(vs_base=base+9)+1;
	Lround();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6305;
T6305:;
	if((symbol_value(((object)VV[1])))==Cnil){
	goto T6329;}
	base[3]= (V2055);
	base[4]= ((object)VV[816]);
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	base[7]= ((object)VV[5]);
	vs_top=(vs_base=base+6)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6335;}
	base[5]= ((object)VV[6]);
	goto T6333;
	goto T6335;
T6335:;
	base[6]= ((object)VV[4]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2180= vs_base[0];
	base[6]= ((object)VV[8]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2181= vs_base[0];
	base[5]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2180,V2181));
	goto T6333;
T6333:;
	base[8]= ((object)VV[773]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2182= vs_base[0];
	base[7]= car(V2182);
	vs_top=(vs_base=base+7)+1;
	Lround();
	vs_top=sup;
	base[6]= vs_base[0];
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2183= vs_base[0];
	base[8]= cadr(V2183);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+3)+5;
	Lformat();
	vs_top=sup;
	goto T5908;
	goto T6329;
T6329:;
	base[3]= (V2055);
	base[4]= ((object)VV[817]);
	base[5]= symbol_value(((object)VV[813]));
	base[8]= ((object)VV[4]);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[7]= vs_base[0];
	base[8]= ((object)VV[5]);
	vs_top=(vs_base=base+7)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6357;}
	base[6]= ((object)VV[6]);
	goto T6355;
	goto T6357;
T6357:;
	base[7]= ((object)VV[4]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2184= vs_base[0];
	base[7]= ((object)VV[8]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2185= vs_base[0];
	base[6]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2184,V2185));
	goto T6355;
T6355:;
	base[9]= ((object)VV[773]);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2186= vs_base[0];
	base[8]= car(V2186);
	vs_top=(vs_base=base+8)+1;
	Lround();
	vs_top=sup;
	base[7]= vs_base[0];
	base[10]= ((object)VV[773]);
	vs_top=(vs_base=base+10)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2187= vs_base[0];
	base[9]= cadr(V2187);
	vs_top=(vs_base=base+9)+1;
	Lround();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+3)+6;
	Lformat();
	vs_top=sup;}
	goto T5908;
T5908:;
	if(((V2060))!=Cnil){
	goto T6374;}
	if(((V2061))!=Cnil){
	goto T6374;}
	base[3]= ((object)VV[772]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2058= vs_base[0];
	base[4]= make_fixnum((long)(length((V2054))));
	base[5]= (V2058);
	vs_top=(vs_base=base+4)+2;
	Ldivide();
	vs_top=sup;
	base[3]= vs_base[0];
	vs_top=(vs_base=base+3)+1;
	Lceiling();
	vs_top=sup;
	V2059= vs_base[0];
	if(!(((long)length((V2054)))>((long)1))){
	goto T6374;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[818]))));
	goto T6374;
T6374:;
	{object V2188;
	object V2189;
	object V2190;
	object V2191;
	object V2192;
	object V2193;
	object V2194;
	object V2195;
	V2189= reverse(symbol_value(((object)VV[656])));
	V2188= small_fixnum(-1);
	V2190= small_fixnum(0);
	V2191= Cnil;
	V2192= Cnil;
	V2193= Cnil;
	V2194= Cnil;
	V2195= Cnil;
	base[4]= (VFUN_NARGS=2,(*(LnkLI1010))(Cnil,(V2189)));
	base[5]= (V2058);
	vs_top=(vs_base=base+4)+2;
	Ldivide();
	vs_top=sup;
	base[3]= vs_base[0];
	vs_top=(vs_base=base+3)+1;
	Lceiling();
	vs_top=sup;
	V2059= vs_base[0];
	if(!(immnum_gt((V2059),small_fixnum(0)))){
	goto T6396;}
	base[3]= ((object)VV[290]);
	base[4]= (V2058);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	(((object)VV[339])->s.s_dbind)= vs_base[0];
	base[3]= ((object)VV[290]);
	base[4]= (V2059);
	vs_top=(vs_base=base+3)+2;
	Ldivide();
	vs_top=sup;
	(((object)VV[340])->s.s_dbind)= vs_base[0];
	goto T6396;
T6396:;
	{object V2196;
	object V2197;
	V2196= (V2054);
	V2197= car((V2196));
	goto T6409;
T6409:;
	if(!(endp_prop((V2196)))){
	goto T6410;}
	goto T6389;
	goto T6410;
T6410:;
	if(((V2060))!=Cnil){
	goto T6415;}
	if(((V2061))==Cnil){
	goto T6416;}
	goto T6415;
T6415:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[819]))));
	goto T6414;
	goto T6416;
T6416:;
	V2191= car((V2189));
	V2189= cdr((V2189));
	if(((V2191))==Cnil){
	goto T6426;}
	V2192= car((V2191));
	V2193= cadr((V2191));
	V2194= caddr((V2191));
	V2195= cadddr((V2191));
	goto T6424;
	goto T6426;
T6426:;{object V2198;
	V2198= (((object)VV[339])->s.s_dbind);
	V2192= immnum_times(V2198,immnum_mod((V2190),(V2058)));}{object V2199;
	V2199= (((object)VV[340])->s.s_dbind);
	base[3]= (V2059);
	base[4]= ((object)VV[290]);
	base[7]= (V2190);
	base[8]= (V2058);
	vs_top=(vs_base=base+7)+2;
	Ldivide();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+6)+1;
	Lfloor();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+3)+3;
	Lminus();
	vs_top=sup;
	V2200= vs_base[0];
	V2193= immnum_times(V2199,V2200);}
	V2194= (((object)VV[339])->s.s_dbind);
	V2195= (((object)VV[340])->s.s_dbind);
	V2190= immnum_plus((V2190),small_fixnum(1));
	goto T6424;
T6424:;
	(void)((VFUN_NARGS=4,(*(LnkLI761))((V2055),((object)VV[820]),(V2194),(V2195))));
	(void)((VFUN_NARGS=4,(*(LnkLI761))((V2055),((object)VV[821]),(V2192),(V2193))));
	if((symbol_value(((object)VV[9])))!=Cnil){
	goto T6414;}
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2202= vs_base[0];
	{register object x= V2202,V2201= ((object)VV[822]);
	while(!endp(V2201))
	if(eql(x,V2201->c.c_car)){
	goto T6414;
	}else V2201=V2201->c.c_cdr;}
	V2203= immnum_plus((V2192),(V2194));
	V2204= immnum_plus((V2193),(V2195));
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[823]),(V2192),(V2193),/* INLINE-ARGS */V2203,/* INLINE-ARGS */V2204)));
	goto T6414;
T6414:;
	V2062= Ct;
	V2063= Cnil;
	V2064= Cnil;
	(void)((VFUN_NARGS=3,(*(LnkLI761))((V2055),((object)VV[824]),cadr((V2197)))));
	if(!(immnum_eq(car((V2197)),small_fixnum(2)))){
	goto T6468;}
	V2053= ((object)VV[825]);
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[826]))));
	goto T6466;
	goto T6468;
T6468:;
	if(!(immnum_eq(car((V2197)),small_fixnum(3)))){
	goto T6466;}
	V2053= ((object)VV[827]);
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[828]))));
	goto T6466;
T6466:;
	{object V2205;
	object V2206;
	V2205= caddr((V2197));
	V2206= car((V2205));
	goto T6480;
T6480:;
	if(!(endp_prop((V2205)))){
	goto T6481;}
	goto T6476;
	goto T6481;
T6481:;
	V2207= structure_ref((V2206),((object)VV[40]),(long)0);
	V2053= make_cons(/* INLINE-ARGS */V2207,(V2053));
	if(((V2062))==Cnil){
	goto T6489;}
	V2062= Cnil;
	goto T6487;
	goto T6489;
T6489:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[829]))));
	goto T6487;
T6487:;
	{register object V2208;
	V2208= structure_ref((V2206),((object)VV[40]),(long)1);
	if(!(type_of((V2208))==t_cons||((V2208))==Cnil)){
	goto T6495;}
	goto T6498;
T6498:;
	if(type_of((V2208))==t_cons){
	goto T6499;}
	goto T6492;
	goto T6499;
T6499:;
	V2188= immnum_plus((V2188),small_fixnum(1));
	V2209= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[831]),(V2188)));
	{object V2211;
	V2211= car((V2208));
	V2208= cdr((V2208));
	V2210= (V2211);}
	if(((V2208))!=Cnil){
	goto T6511;}
	V2212= ((object)VV[832]);
	goto T6509;
	goto T6511;
T6511:;
	V2212= ((object)VV[833]);
	goto T6509;
T6509:;
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2055),((object)VV[830]),(V2057),/* INLINE-ARGS */V2209,V2210,V2212)));
	goto T6498;
	goto T6495;
T6495:;
	V2188= immnum_plus((V2188),small_fixnum(1));
	V2213= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[835]),(V2188)));
	(void)((VFUN_NARGS=5,(*(LnkLI761))((V2055),((object)VV[834]),(V2057),/* INLINE-ARGS */V2213,(V2208))));}
	goto T6492;
T6492:;
	V2214= structure_ref((V2206),((object)VV[40]),(long)2);
	V2064= append((V2064),/* INLINE-ARGS */V2214);
	V2215= structure_ref((V2206),((object)VV[40]),(long)3);
	V2063= append((V2063),/* INLINE-ARGS */V2215);
	V2205= cdr((V2205));
	V2206= car((V2205));
	goto T6480;}
	goto T6476;
T6476:;
	{object V2216;
	object V2217;
	V2216= (V2063);
	V2217= (V2064);
	goto T6527;
T6527:;
	if(((V2216))!=Cnil){
	goto T6528;}
	goto T6525;
	goto T6528;
T6528:;
	{object V2218;
	object V2219;
	object V2220;
	object V2221;
	object V2222;
	object V2223;
	object V2224;
	V2218= car((V2216));
	V2219= make_fixnum((long)(length((V2218))));
	V2220= caar((V2217));
	V2221= small_fixnum(0);
	V2222= cadar((V2217));
	V2223= Cnil;
	V2224= Cnil;
	if(!(immnum_eq((V2222),small_fixnum(0)))){
	goto T6541;}
	{object V2225;
	V2225= small_fixnum(0);
	goto T6544;
T6544:;
	if(!(immnum_eq((V2225),(V2219)))){
	goto T6545;}
	goto T6532;
	goto T6545;
T6545:;
	base[3]= (V2218);
	base[4]= (V2225);
	base[5]= immnum_plus((V2225),(V2220));
	vs_top=(vs_base=base+3)+3;
	Lsubseq();
	vs_top=sup;
	V2224= vs_base[0];
	if(((V2223))==Cnil){
	goto T6556;}
	V2226= fLrow_major_aref((V2224),(long)1);
	if(!(type_of(/* INLINE-ARGS */V2226)==t_fixnum||
type_of(/* INLINE-ARGS */V2226)==t_bignum||
type_of(/* INLINE-ARGS */V2226)==t_ratio||
type_of(/* INLINE-ARGS */V2226)==t_shortfloat||
type_of(/* INLINE-ARGS */V2226)==t_longfloat||
type_of(/* INLINE-ARGS */V2226)==t_complex)){
	goto T6554;}
	V2223= Cnil;
	base[3]= ((object)VV[41]);
	{object V2228;
	V2229= ((object)VV[1014]);
	V2228= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V2229,(V2224)));
	 vs_top=base+4;
	 while(!endp(V2228))
	 {vs_push(car(V2228));V2228=cdr(V2228);}
	vs_base=base+3;}
	(void) (*Lnk892)();
	vs_top=sup;
	V2227= vs_base[0];
	(void)((VFUN_NARGS=3,(*(LnkLI761))((V2056),((object)VV[762]),V2227)));
	goto T6554;
	goto T6556;
T6556:;
	V2230= fLrow_major_aref((V2224),(long)1);
	if(!(type_of(/* INLINE-ARGS */V2230)==t_fixnum||
type_of(/* INLINE-ARGS */V2230)==t_bignum||
type_of(/* INLINE-ARGS */V2230)==t_ratio||
type_of(/* INLINE-ARGS */V2230)==t_shortfloat||
type_of(/* INLINE-ARGS */V2230)==t_longfloat||
type_of(/* INLINE-ARGS */V2230)==t_complex)){
	goto T6567;}
	base[3]= ((object)VV[41]);
	{object V2232;
	V2233= ((object)VV[1015]);
	V2232= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V2233,(V2224)));
	 vs_top=base+4;
	 while(!endp(V2232))
	 {vs_push(car(V2232));V2232=cdr(V2232);}
	vs_base=base+3;}
	(void) (*Lnk892)();
	vs_top=sup;
	V2231= vs_base[0];
	(void)((VFUN_NARGS=3,(*(LnkLI761))((V2056),((object)VV[762]),V2231)));
	goto T6554;
	goto T6567;
T6567:;
	V2223= Ct;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2056),((object)VV[837]))));
	goto T6554;
T6554:;
	V2225= immnum_plus((V2225),(V2220));
	goto T6544;}
	goto T6541;
T6541:;
	{object V2234;
	V2234= small_fixnum(0);
	goto T6579;
T6579:;
	if(!(immnum_eq((V2234),(V2219)))){
	goto T6580;}
	goto T6532;
	goto T6580;
T6580:;
	if(!(eql((V2221),(V2222)))){
	goto T6584;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2056),((object)VV[838]))));
	V2221= small_fixnum(0);
	goto T6584;
T6584:;
	base[3]= ((object)VV[41]);
	{object V2236;
	V2237= ((object)VV[1016]);
	base[4]= (V2218);
	base[5]= (V2234);
	base[6]= immnum_plus((V2234),(V2220));
	vs_top=(vs_base=base+4)+3;
	Lsubseq();
	vs_top=sup;
	V2238= vs_base[0];
	V2236= (VFUN_NARGS=3,(*(LnkLI766))(((object)VV[19]),V2237,V2238));
	 vs_top=base+4;
	 while(!endp(V2236))
	 {vs_push(car(V2236));V2236=cdr(V2236);}
	vs_base=base+3;}
	(void) (*Lnk892)();
	vs_top=sup;
	V2235= vs_base[0];
	(void)((VFUN_NARGS=3,(*(LnkLI761))((V2056),((object)VV[762]),V2235)));
	V2221= immnum_plus((V2221),small_fixnum(1));
	V2234= immnum_plus((V2234),(V2220));
	goto T6579;}}
	goto T6532;
T6532:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2056),((object)VV[839]))));
	V2216= cdr((V2216));
	V2217= cdr((V2217));
	goto T6527;}
	goto T6525;
T6525:;
	V2049= immnum_plus((V2049),small_fixnum(1));
	V2239= reverse((V2053));
	V2050= make_cons(/* INLINE-ARGS */V2239,(V2050));
	V2196= cdr((V2196));
	V2197= car((V2196));
	goto T6409;}}
	goto T6389;
T6389:;
	base[3]= (V2056);
	vs_top=(vs_base=base+3)+1;
	Lclose();
	vs_top=sup;
	if(((V2060))!=Cnil){
	goto T6620;}
	if(((V2061))==Cnil){
	goto T6621;}
	goto T6620;
T6620:;
	if(((V2060))==Cnil){
	goto T6627;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[840]))));
	goto T6625;
	goto T6627;
T6627:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[841]))));
	goto T6625;
T6625:;
	base[3]= (V2055);
	vs_top=(vs_base=base+3)+1;
	Lclose();
	vs_top=sup;
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[842]),symbol_value(((object)VV[843])),(V2051)));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk1017)();
	vs_top=sup;
	goto T6619;
	goto T6621;
T6621:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[844]))));
	if(!(((long)length((V2054)))>((long)1))){
	goto T6635;}
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[845]))));
	goto T6633;
	goto T6635;
T6635:;
	base[4]= ((object)VV[846]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= ((object)VV[847]);
	vs_top=(vs_base=base+3)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T6633;}
	base[3]= ((object)VV[846]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2240= vs_base[0];
	(void)((VFUN_NARGS=3,(*(LnkLI761))((V2055),((object)VV[848]),V2240)));
	goto T6633;
T6633:;
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2241= vs_base[0];
	if(equal(V2241,((object)VV[849]))){
	goto T6645;}
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2242= vs_base[0];
	if(!(equal(V2242,((object)VV[850])))){
	goto T6644;}
	goto T6645;
T6645:;
	(void)((VFUN_NARGS=2,(*(LnkLI761))((V2055),((object)VV[851]))));
	goto T6644;
T6644:;
	base[3]= (V2055);
	vs_top=(vs_base=base+3)+1;
	Lclose();
	vs_top=sup;
	if((symbol_value(((object)VV[1])))!=Cnil){
	goto T6656;}
	base[3]= ((object)VV[771]);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2244= vs_base[0];
	{register object x= V2244,V2243= ((object)VV[852]);
	while(!endp(V2243))
	if(eql(x,V2243->c.c_car)){
	goto T6660;
	}else V2243=V2243->c.c_cdr;
	goto T6656;}
	goto T6660;
T6660:;
	if(!(equal(symbol_value(((object)VV[853])),((object)VV[854])))){
	goto T6656;}
	(void)((*(LnkLI1018))());
	if((symbol_value(((object)VV[9])))!=Cnil){
	goto T6665;}
	(void)((*(LnkLI888))(((object)VV[855])));
	goto T6665;
T6665:;
	(void)((*(LnkLI888))(((object)VV[856])));
	V2245= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[857]),(V2051)));
	(void)((*(LnkLI888))(/* INLINE-ARGS */V2245));
	goto T6619;
	goto T6656;
T6656:;
	base[4]= ((object)VV[771]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2247= vs_base[0];
	{register object x= V2247,V2246= ((object)VV[858]);
	while(!endp(V2246))
	if(eql(x,V2246->c.c_car)){
	goto T6672;
	}else V2246=V2246->c.c_cdr;
	goto T6671;}
	goto T6672;
T6672:;{object V2248;
	V2248= symbol_value(((object)VV[843]));
	V2249= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,symbol_value(((object)VV[860])),(V2051)));
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[859]),V2248,/* INLINE-ARGS */V2249));
	goto T6669;}
	goto T6671;
T6671:;
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[861]),symbol_value(((object)VV[843])),(V2051)));
	goto T6669;
T6669:;
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk1017)();
	vs_top=sup;
	goto T6619;
T6619:;
	base[3]= reverse((V2050));
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for $ADD_ZEROES	*/

static void L94()
{register object *base=vs_base;
	register object *sup=base+VM90; VC90
	vs_reserve(VM90);
	{object V2250;
	check_arg(1);
	V2250=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	V2251= (VFUN_NARGS=1,(*(LnkLI1019))((V2250)));
	base[1]= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[862]),/* INLINE-ARGS */V2251));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	function definition for $DRAW_FILE	*/

static void L95()
{register object *base=vs_base;
	register object *sup=base+VM91; VC91
	vs_reserve(VM91);
	{object V2252;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V2252=(base[0]);
	vs_top=sup;
	{register object V2253;
	V2253= Cnil;
	{register object V2254;
	register object V2255;
	V2254= (V2252);
	V2255= car((V2254));
	goto T6679;
T6679:;
	if(!(endp_prop((V2254)))){
	goto T6680;}
	goto T6675;
	goto T6680;
T6680:;
	V2256= (*(LnkLI972))((V2255));
	if(!(equal(/* INLINE-ARGS */V2256,((object)VV[863])))){
	goto T6686;}
	base[2]= (V2255);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk958)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= (V2255);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk957)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk973)();
	vs_top=sup;
	goto T6684;
	goto T6686;
T6686:;
	(void)((VFUN_NARGS=2,(*(LnkLI890))(((object)VV[864]),(V2255))));
	goto T6684;
T6684:;
	V2254= cdr((V2254));
	V2255= car((V2254));
	goto T6679;}
	goto T6675;
T6675:;
	base[1]= ((object)VV[771]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2258= vs_base[0];
	{object V2257= V2258;
	if((V2257!= ((object)VV[994])))goto T6700;
	base[1]= Cnil;
	base[2]= ((object)VV[865]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6706;}
	base[3]= ((object)VV[6]);
	goto T6704;
	goto T6706;
T6706:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2259= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2260= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2259,V2260));
	goto T6704;
T6704:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2261= vs_base[0];
	base[5]= car(V2261);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2262= vs_base[0];
	base[6]= cadr(V2262);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6700;
T6700:;
	if((V2257!= ((object)VV[995])))goto T6725;
	base[1]= Cnil;
	base[2]= ((object)VV[866]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6731;}
	base[3]= ((object)VV[6]);
	goto T6729;
	goto T6731;
T6731:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2263= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2264= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2263,V2264));
	goto T6729;
T6729:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2265= vs_base[0];
	base[5]= car(V2265);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2266= vs_base[0];
	base[6]= cadr(V2266);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6725;
T6725:;
	if((V2257!= ((object)VV[996])))goto T6750;
	base[1]= Cnil;
	base[2]= ((object)VV[867]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6756;}
	base[3]= ((object)VV[6]);
	goto T6754;
	goto T6756;
T6756:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2267= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2268= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2267,V2268));
	goto T6754;
T6754:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2269= vs_base[0];
	base[5]= car(V2269);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2270= vs_base[0];
	base[6]= cadr(V2270);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6750;
T6750:;
	if((V2257!= ((object)VV[997])))goto T6775;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6779;}
	V2271= ((object)VV[6]);
	goto T6777;
	goto T6779;
T6779:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2272= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2273= vs_base[0];
	V2271= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2272,V2273));
	goto T6777;
T6777:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2275= vs_base[0];
	base[1]= car(V2275);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2274= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2277= vs_base[0];
	base[1]= cadr(V2277);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2276= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2278= vs_base[0];
	V2253= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[868]),V2271,V2274,V2276,V2278));
	goto T6697;
	goto T6775;
T6775:;
	if((V2257!= ((object)VV[1001])))goto T6800;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6803;}
	V2279= ((object)VV[6]);
	goto T6801;
	goto T6803;
T6803:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2280= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2281= vs_base[0];
	V2279= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2280,V2281));
	goto T6801;
T6801:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2283= vs_base[0];
	base[1]= car(V2283);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2282= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2285= vs_base[0];
	base[1]= cadr(V2285);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2284= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2286= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2253),((object)VV[869]),V2279,V2282,V2284,V2286)));
	goto T6697;
	goto T6800;
T6800:;
	if((V2257!= ((object)VV[1002])))goto T6824;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6827;}
	V2287= ((object)VV[6]);
	goto T6825;
	goto T6827;
T6827:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2288= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2289= vs_base[0];
	V2287= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2288,V2289));
	goto T6825;
T6825:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2291= vs_base[0];
	base[1]= car(V2291);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2290= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2293= vs_base[0];
	base[1]= cadr(V2293);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2292= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2294= vs_base[0];
	(void)((VFUN_NARGS=6,(*(LnkLI761))((V2253),((object)VV[870]),V2287,V2290,V2292,V2294)));
	goto T6697;
	goto T6824;
T6824:;
	if((V2257!= ((object)VV[999])))goto T6848;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6852;}
	V2295= ((object)VV[6]);
	goto T6850;
	goto T6852;
T6852:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2296= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2297= vs_base[0];
	V2295= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2296,V2297));
	goto T6850;
T6850:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2299= vs_base[0];
	base[1]= car(V2299);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2298= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2301= vs_base[0];
	base[1]= cadr(V2301);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2300= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2302= vs_base[0];
	V2253= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[871]),V2295,V2298,V2300,V2302));
	goto T6697;
	goto T6848;
T6848:;
	if((V2257!= ((object)VV[1003])))goto T6873;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6877;}
	V2303= ((object)VV[6]);
	goto T6875;
	goto T6877;
T6877:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2304= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2305= vs_base[0];
	V2303= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2304,V2305));
	goto T6875;
T6875:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2307= vs_base[0];
	base[1]= car(V2307);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2306= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2309= vs_base[0];
	base[1]= cadr(V2309);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2308= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2310= vs_base[0];
	V2253= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[872]),V2303,V2306,V2308,V2310));
	goto T6697;
	goto T6873;
T6873:;
	if((V2257!= ((object)VV[850])))goto T6898;
	base[2]= ((object)VV[4]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= ((object)VV[5]);
	vs_top=(vs_base=base+1)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6902;}
	V2311= ((object)VV[6]);
	goto T6900;
	goto T6902;
T6902:;
	base[1]= ((object)VV[4]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2312= vs_base[0];
	base[1]= ((object)VV[8]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2313= vs_base[0];
	V2311= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2312,V2313));
	goto T6900;
T6900:;
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2315= vs_base[0];
	base[1]= car(V2315);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2314= vs_base[0];
	base[2]= ((object)VV[773]);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2317= vs_base[0];
	base[1]= cadr(V2317);
	base[2]= ((object)VV[802]);
	vs_top=(vs_base=base+1)+2;
	Ldivide();
	vs_top=sup;
	V2316= vs_base[0];
	base[1]= ((object)VV[774]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2318= vs_base[0];
	V2253= (VFUN_NARGS=6,(*(LnkLI761))(Cnil,((object)VV[873]),V2311,V2314,V2316,V2318));
	goto T6697;
	goto T6898;
T6898:;
	if((V2257!= ((object)VV[1006])))goto T6923;
	base[1]= Cnil;
	base[2]= ((object)VV[874]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6929;}
	base[3]= ((object)VV[6]);
	goto T6927;
	goto T6929;
T6929:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2319= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2320= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2319,V2320));
	goto T6927;
T6927:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2321= vs_base[0];
	base[5]= car(V2321);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2322= vs_base[0];
	base[6]= cadr(V2322);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6923;
T6923:;
	if((V2257!= ((object)VV[1007])))goto T6948;
	base[1]= Cnil;
	base[2]= ((object)VV[875]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6954;}
	base[3]= ((object)VV[6]);
	goto T6952;
	goto T6954;
T6954:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2323= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2324= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2323,V2324));
	goto T6952;
T6952:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2325= vs_base[0];
	base[5]= car(V2325);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2326= vs_base[0];
	base[6]= cadr(V2326);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6948;
T6948:;
	if((V2257!= ((object)VV[849])))goto T6973;
	base[1]= Cnil;
	base[2]= ((object)VV[876]);
	base[5]= ((object)VV[4]);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= ((object)VV[5]);
	vs_top=(vs_base=base+4)+2;
	Lstring_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T6979;}
	base[3]= ((object)VV[6]);
	goto T6977;
	goto T6979;
T6979:;
	base[4]= ((object)VV[4]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2327= vs_base[0];
	base[4]= ((object)VV[8]);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2328= vs_base[0];
	base[3]= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[7]),V2327,V2328));
	goto T6977;
T6977:;
	base[6]= ((object)VV[773]);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2329= vs_base[0];
	base[5]= car(V2329);
	vs_top=(vs_base=base+5)+1;
	Lround();
	vs_top=sup;
	base[4]= vs_base[0];
	base[7]= ((object)VV[773]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	V2330= vs_base[0];
	base[6]= cadr(V2330);
	vs_top=(vs_base=base+6)+1;
	Lround();
	vs_top=sup;
	base[5]= vs_base[0];
	base[7]= ((object)VV[774]);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk15)();
	vs_top=sup;
	base[6]= vs_base[0];
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	V2253= vs_base[0];
	goto T6697;
	goto T6973;
T6973:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[877]))));}
	goto T6697;
T6697:;
	V2331= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[878]),(V2253)));
	base[1]= (*(LnkLI888))(/* INLINE-ARGS */V2331);
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for $ACTIVATE_WINDOW	*/

static void L96()
{register object *base=vs_base;
	register object *sup=base+VM92; VC92
	vs_reserve(VM92);
	{object V2332;
	object V2333;
	check_arg(2);
	V2332=(base[0]);
	V2333=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	{register object x= (V2332),V2334= ((object)VV[879]);
	while(!endp(V2334))
	if(eql(x,V2334->c.c_car)){
	goto T7001;
	}else V2334=V2334->c.c_cdr;
	goto T6999;}
	goto T7001;
T7001:;
	if(!(type_of((V2333))==t_fixnum||type_of((V2333))==t_bignum)){
	goto T6999;}
	if(!(immnum_lt((V2333),small_fixnum(0)))){
	goto T6998;}
	goto T6999;
T6999:;
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[880]))));
	goto T6998;
T6998:;
	if((symbol_value(((object)VV[1])))==Cnil){
	goto T7005;}
	(void)((VFUN_NARGS=1,(*(LnkLI890))(((object)VV[881]))));
	goto T7005;
T7005:;
	{register object V2335;
	V2335= Cnil;
	{object V2336= (V2332);
	if((V2336!= ((object)VV[889])))goto T7009;
	V2335= ((object)VV[882]);
	goto T7008;
	goto T7009;
T7009:;
	if((V2336!= ((object)VV[1008])))goto T7011;
	V2335= ((object)VV[883]);
	goto T7008;
	goto T7011;
T7011:;
	V2335= ((object)VV[884]);}
	goto T7008;
T7008:;
	V2337= (VFUN_NARGS=4,(*(LnkLI761))(Cnil,((object)VV[885]),(V2335),(V2333)));
	base[2]= (*(LnkLI888))(/* INLINE-ARGS */V2337);
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	local function CLOSURE	*/

static void LC112(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM93; VC93
	vs_reserve(VM93);
	{object V2338;
	check_arg(1);
	V2338=(base[0]);
	vs_top=sup;
	base[1]= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[836]),(V2338)));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC111(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM94; VC94
	vs_reserve(VM94);
	{object V2339;
	check_arg(1);
	V2339=(base[0]);
	vs_top=sup;
	base[1]= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[836]),(V2339)));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC110(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM95; VC95
	vs_reserve(VM95);
	{object V2340;
	check_arg(1);
	V2340=(base[0]);
	vs_top=sup;
	base[1]= (VFUN_NARGS=3,(*(LnkLI761))(Cnil,((object)VV[836]),(V2340)));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC109(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM96; VC96
	vs_reserve(VM96);
	{object V2341;
	check_arg(1);
	V2341=(base[0]);
	vs_top=sup;
	if(((*(LnkLI893))((V2341)))==Cnil){
	goto T7015;}
	base[1]= (V2341);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7015;
T7015:;
	base[1]= list(2,((object)VV[534]),(V2341));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC108(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM97; VC97
	vs_reserve(VM97);
	{object V2342;
	check_arg(1);
	V2342=(base[0]);
	vs_top=sup;
	if(type_of((V2342))==t_cons||((V2342))==Cnil){
	goto T7017;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7017;
T7017:;
	base[1]= (((long)length((V2342)))==((long)3)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC107(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM98; VC98
	vs_reserve(VM98);
	{object V2343;
	check_arg(1);
	V2343=(base[0]);
	vs_top=sup;
	if(type_of((V2343))==t_fixnum||type_of((V2343))==t_bignum){
	goto T7019;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7019;
T7019:;
	base[1]= (immnum_le(immnum_abs((V2343)),small_fixnum(36))?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC106(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM99; VC99
	vs_reserve(VM99);
	{object V2344;
	check_arg(1);
	V2344=(base[0]);
	vs_top=sup;
	if(((*(LnkLI893))((V2344)))==Cnil){
	goto T7022;}
	base[1]= (V2344);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7022;
T7022:;
	base[1]= list(2,((object)VV[534]),(V2344));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC105(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM100; VC100
	vs_reserve(VM100);
	{object V2345;
	check_arg(1);
	V2345=(base[0]);
	vs_top=sup;
	if(type_of((V2345))==t_cons||((V2345))==Cnil){
	goto T7024;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7024;
T7024:;
	base[1]= (((long)length((V2345)))==((long)3)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC104(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM101; VC101
	vs_reserve(VM101);
	{object V2346;
	check_arg(1);
	V2346=(base[0]);
	vs_top=sup;
	if(type_of((V2346))==t_fixnum||type_of((V2346))==t_bignum){
	goto T7026;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7026;
T7026:;
	base[1]= (immnum_le(immnum_abs((V2346)),small_fixnum(36))?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC103(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM102; VC102
	vs_reserve(VM102);
	{object V2347;
	check_arg(1);
	V2347=(base[0]);
	vs_top=sup;
	if(((*(LnkLI893))((V2347)))==Cnil){
	goto T7029;}
	base[1]= (V2347);
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7029;
T7029:;
	base[1]= list(2,((object)VV[534]),(V2347));
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function BIPART	*/

static void L36(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM103; VC103
	vs_reserve(VM103);
	{object V2348;
	object V2349;
	object V2350;
	object V2351;
	check_arg(4);
	V2348=(base[0]);
	V2349=(base[1]);
	V2350=(base[2]);
	V2351=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V2352;
	object V2353;
	V2354= immnum_plus((V2348),(V2350));
	V2352= immnum_times(((object)VV[283]),/* INLINE-ARGS */V2354);
	V2355= immnum_plus((V2349),(V2351));
	V2353= immnum_times(((object)VV[283]),/* INLINE-ARGS */V2355);
	V2356= immnum_minus((V2350),(V2348));
	V2357= immnum_minus((V2350),(V2348));
	V2358= immnum_times(/* INLINE-ARGS */V2356,/* INLINE-ARGS */V2357);
	V2359= immnum_minus((V2351),(V2349));
	V2360= immnum_minus((V2351),(V2349));
	V2361= immnum_times(/* INLINE-ARGS */V2359,/* INLINE-ARGS */V2360);
	V2362= immnum_plus(/* INLINE-ARGS */V2358,/* INLINE-ARGS */V2361);
	V2363= immnum_times(base0[7],base0[7]);
	if(!(immnum_lt(/* INLINE-ARGS */V2362,/* INLINE-ARGS */V2363))){
	goto T7034;}
	base[4]= list(2,(V2352),(V2353));
	vs_top=(vs_base=base+4)+1;
	return;
	goto T7034;
T7034:;
	base[4]= (V2352);
	base[5]= (V2353);
	vs_top=(vs_base=base+4)+2;
	L35(base0);
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T7037;}
	V2348= (V2352);
	V2349= (V2353);
	goto TTL;
	return;
	goto T7037;
T7037:;
	V2350= (V2352);
	V2351= (V2353);
	goto TTL;
	return;}
	}
}
/*	local function FUN	*/

static void L35(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM104; VC104
	vs_reserve(VM104);
	{object V2364;
	object V2365;
	check_arg(2);
	V2364=(base[0]);
	V2365=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	V2367= list(3,((object)VV[281]),base0[1],(V2364));
	base[3]= list(3,((object)VV[280]),/* INLINE-ARGS */V2367,list(3,((object)VV[282]),base0[4],(V2365)));
	base[4]= base0[0];
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk1023)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk1024)();
	vs_top=sup;
	V2366= vs_base[0];
	base[2]= (*(LnkLI1022))(V2366);
	vs_top=(vs_base=base+2)+1;
	return;
	}
}
/*	local function FUN	*/

static void L32(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM105; VC105
	vs_reserve(VM105);
	{object V2368;
	check_arg(1);
	V2368=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= (V2368);
	vs_top=(vs_base=base+1)+1;
	{object _funobj = base0[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	return;
	}
}
/*	local function FUN	*/

static void LC31(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM106; VC106
	vs_reserve(VM106);
	{object V2369;
	check_arg(1);
	V2369=(base[0]);
	vs_top=sup;
	base[1]= (V2369);
	vs_top=(vs_base=base+1)+1;
	{object _funobj = (fun->cc.cc_turbo[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	return;
	}
}
/*	local function FUN	*/

static void L31(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM107; VC107
	vs_reserve(VM107);
	{object V2370;
	check_arg(1);
	V2370=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= (V2370);
	vs_top=(vs_base=base+1)+1;
	{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	return;
	}
}
/*	local function CLOSURE	*/

static void LC102(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM108; VC108
	vs_reserve(VM108);
	{object V2371;
	check_arg(1);
	V2371=(base[0]);
	vs_top=sup;
	if(((*(LnkLI893))((V2371)))!=Cnil){
	goto T7058;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T7058;
T7058:;
	V2372= (*(LnkLI913))((V2371));
	base[1]= (immnum_eq(small_fixnum(3),/* INLINE-ARGS */V2372)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC101(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM109; VC109
	vs_reserve(VM109);
	{object V2373;
	check_arg(1);
	V2373=(base[0]);
	vs_top=sup;
	V2374= (*(LnkLI913))((V2373));
	base[1]= (immnum_eq(small_fixnum(4),/* INLINE-ARGS */V2374)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC100(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM110; VC110
	vs_reserve(VM110);
	{object V2375;
	check_arg(1);
	V2375=(base[0]);
	vs_top=sup;
	V2376= (*(LnkLI913))((V2375));
	base[1]= (immnum_eq(small_fixnum(3),/* INLINE-ARGS */V2376)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC99(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM111; VC111
	vs_reserve(VM111);
	{object V2377;
	check_arg(1);
	V2377=(base[0]);
	vs_top=sup;
	base[1]= cadr((V2377));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	return;
	}
}
/*	local function CLOSURE	*/

static void LC98(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM112; VC112
	vs_reserve(VM112);
	{object V2378;
	check_arg(1);
	V2378=(base[0]);
	vs_top=sup;
	base[1]= car((V2378));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk900)();
	return;
	}
}
/*	local function CLOSURE	*/

static void LC97(fun)
	object fun;
{	register object *base=vs_base;
	register object *sup=base+VM113; VC113
	vs_reserve(VM113);
	{object V2379;
	check_arg(1);
	V2379=(base[0]);
	vs_top=sup;
	V2380= (*(LnkLI913))((V2379));
	base[1]= (immnum_eq((fun->cc.cc_turbo[0]->c.c_car),/* INLINE-ARGS */V2380)?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
static void LnkT1024(){ call_or_link(((object)VV[1024]),(void **)(void *)&Lnk1024);} /* SIMPLIFY */
static void LnkT1023(){ call_or_link(((object)VV[1023]),(void **)(void *)&Lnk1023);} /* $SUBSTITUTE */
static object  LnkTLI1022(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1022]),(void **)(void *)&LnkLI1022,1,first,ap);va_end(ap);return V1;} /* IS-BOOLE-CHECK */
static object  LnkTLI1021(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1021]),(void **)(void *)&LnkLI1021,1,first,ap);va_end(ap);return V1;} /* ABS */
static object  LnkTLI1020(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1020]),(void **)(void *)&LnkLI1020,1,first,ap);va_end(ap);return V1;} /* INTEGERP */
static object  LnkTLI1019(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[1019]),(void **)(void *)&LnkLI1019,first,ap);va_end(ap);return V1;} /* $SCONCAT */
static object  LnkTLI1018(){return call_proc0(((object)VV[1018]),(void **)(void *)&LnkLI1018);} /* CHECK-GNUPLOT-PROCESS */
static void LnkT1017(){ call_or_link(((object)VV[1017]),(void **)(void *)&Lnk1017);} /* $SYSTEM */
static void LnkT892(){ call_or_link(((object)VV[892]),(void **)(void *)&Lnk892);} /* CONCATENATE */
static object  LnkTLI1013(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1013]),(void **)(void *)&LnkLI1013,1,first,ap);va_end(ap);return V1;} /* CONSP */
static object  LnkTLI1012(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1012]),(void **)(void *)&LnkLI1012,65539,first,ap);va_end(ap);return V1;} /* STRUCTURE-REF */
static object  LnkTLI1011(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[1011]),(void **)(void *)&LnkLI1011,1,first,ap);va_end(ap);return V1;} /* FOURTH */
static object  LnkTLI1010(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[1010]),(void **)(void *)&LnkLI1010,first,ap);va_end(ap);return V1;} /* COUNT */
static void LnkT991(){ call_or_link(((object)VV[991]),(void **)(void *)&Lnk991);} /* OPEN */
static object  LnkTLI990(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[990]),(void **)(void *)&LnkLI990,1,first,ap);va_end(ap);return V1;} /* PLOT-TEMP-FILE */
static void LnkT989(){ call_or_link(((object)VV[989]),(void **)(void *)&Lnk989);} /* MAKE-SCENE-2D */
static void LnkT988(){ call_or_link(((object)VV[988]),(void **)(void *)&Lnk988);} /* MAKE-SCENE-3D */
static void LnkT986(){ call_or_link(((object)VV[986]),(void **)(void *)&Lnk986);} /* INI-GLOBAL-OPTIONS */
static object  LnkTLI454(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[454]),(void **)(void *)&LnkLI454,2,first,ap);va_end(ap);return V1;} /* NTH */
static object  LnkTLI976(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[976]),(void **)(void *)&LnkLI976,1,first,ap);va_end(ap);return V1;} /* LISTP */
static object  LnkTLI975(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[975]),(void **)(void *)&LnkLI975,1,first,ap);va_end(ap);return V1;} /* STRINGP */
static void LnkT974(){ call_or_link(((object)VV[974]),(void **)(void *)&Lnk974);} /* NEAR-EQUAL */
static void LnkT973(){ call_or_link(((object)VV[973]),(void **)(void *)&Lnk973);} /* UPDATE-GR-OPTION */
static object  LnkTLI972(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[972]),(void **)(void *)&LnkLI972,1,first,ap);va_end(ap);return V1;} /* $OP */
static object  LnkTLI970(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[970]),(void **)(void *)&LnkLI970,1,first,ap);va_end(ap);return V1;} /* $FLATTEN */
static void LnkT969(){ call_or_link(((object)VV[969]),(void **)(void *)&Lnk969);} /* USER-DEFAULTS */
static void LnkT968(){ call_or_link(((object)VV[968]),(void **)(void *)&Lnk968);} /* INI-LOCAL-OPTION-VARIABLES */
static void LnkT967(){ call_or_link(((object)VV[967]),(void **)(void *)&Lnk967);} /* INI-GR-OPTIONS */
static void LnkT966(){ call_or_link(((object)VV[966]),(void **)(void *)&Lnk966);} /* $PICTUREP */
static object  LnkTLI532(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[532]),(void **)(void *)&LnkLI532,first,ap);va_end(ap);return V1;} /* $APPEND */
static void LnkT448(){ call_or_link(((object)VV[448]),(void **)(void *)&Lnk448);} /* PARAMETRIC_SURFACE */
static void LnkT395(){ call_or_link(((object)VV[395]),(void **)(void *)&Lnk395);} /* PARAMETRIC */
static void LnkT369(){ call_or_link(((object)VV[369]),(void **)(void *)&Lnk369);} /* MESH */
static void LnkT354(){ call_or_link(((object)VV[354]),(void **)(void *)&Lnk354);} /* ELEVATION_GRID */
static object  LnkTLI918(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[918]),(void **)(void *)&LnkLI918,1,first,ap);va_end(ap);return V1;} /* THIRD */
static void LnkT965(){ call_or_link(((object)VV[965]),(void **)(void *)&Lnk965);} /* FIND-TRIANGLES */
static void LnkT964(){ call_or_link(((object)VV[964]),(void **)(void *)&Lnk964);} /* UPDATE-ENHANCED3D-EXPRESSION */
static void LnkT963(){ call_or_link(((object)VV[963]),(void **)(void *)&Lnk963);} /* PRINT-SQUARE */
static void LnkT962(){ call_or_link(((object)VV[962]),(void **)(void *)&Lnk962);} /* SAMPLE-DATA */
static void LnkT961(){ call_or_link(((object)VV[961]),(void **)(void *)&Lnk961);} /* IMP-PL-PREPARE-EXPR */
static void LnkT960(){ call_or_link(((object)VV[960]),(void **)(void *)&Lnk960);} /* IMP-PL-PREPARE-FACTOR */
static void LnkT959(){ call_or_link(((object)VV[959]),(void **)(void *)&Lnk959);} /* SUB* */
static void LnkT958(){ call_or_link(((object)VV[958]),(void **)(void *)&Lnk958);} /* $LHS */
static void LnkT957(){ call_or_link(((object)VV[957]),(void **)(void *)&Lnk957);} /* $RHS */
static object  LnkTLI956(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[956]),(void **)(void *)&LnkLI956,first,ap);va_end(ap);return V1;} /* $FACTOR */
static object  LnkTLI955(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[955]),(void **)(void *)&LnkLI955,1,first,ap);va_end(ap);return V1;} /* ATOM */
static object  LnkTLI954(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[954]),(void **)(void *)&LnkLI954,1,first,ap);va_end(ap);return V1;} /* $NUMBERP */
static void LnkT953(){ call_or_link(((object)VV[953]),(void **)(void *)&Lnk953);} /* PRINT-SEGMENT */
static void LnkT952(){ call_or_link(((object)VV[952]),(void **)(void *)&Lnk952);} /* CONTAINS-ZEROS */
static object  LnkTLI951(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[951]),(void **)(void *)&LnkLI951,2,first,ap);va_end(ap);return V1;} /* COERCE */
static object  LnkTLI950(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[950]),(void **)(void *)&LnkLI950,1,first,ap);va_end(ap);return V1;} /* NOT */
static object  LnkTLI949(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[949]),(void **)(void *)&LnkLI949,9,first,ap);va_end(ap);return V1;} /* ADAPTIVE-PLOT */
static object  LnkTLI948(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[948]),(void **)(void *)&LnkLI948,first,ap);va_end(ap);return V1;} /* COERCE-FLOAT-FUN */
static object  LnkTLI947(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[947]),(void **)(void *)&LnkLI947,1,first,ap);va_end(ap);return V1;} /* $LISTOFVARS */
static object  LnkTLI946(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[946]),(void **)(void *)&LnkLI946,first,ap);va_end(ap);return V1;} /* SUBSETP */
static void LnkT936(){ call_or_link(((object)VV[936]),(void **)(void *)&Lnk936);} /* $FOURTH */
static object  LnkTLI925(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[925]),(void **)(void *)&LnkLI925,1,first,ap);va_end(ap);return V1;} /* FLOATP */
static void LnkT935(){ call_or_link(((object)VV[935]),(void **)(void *)&Lnk935);} /* REPLACE-SUBSTRING */
static object  LnkTLI934(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[934]),(void **)(void *)&LnkLI934,1,first,ap);va_end(ap);return V1;} /* $FIRST */
static void LnkT933(){ call_or_link(((object)VV[933]),(void **)(void *)&Lnk933);} /* $THIRD */
static void LnkT932(){ call_or_link(((object)VV[932]),(void **)(void *)&Lnk932);} /* $SECOND */
static void LnkT929(){ call_or_link(((object)VV[929]),(void **)(void *)&Lnk929);} /* GET-OUTPUT-STREAM-STRING */
static object  LnkTLI927(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[927]),(void **)(void *)&LnkLI927,first,ap);va_end(ap);return V1;} /* SEARCH */
static void LnkT926(){ call_or_link(((object)VV[926]),(void **)(void *)&Lnk926);} /* MAKE-STRING-OUTPUT-STREAM */
static object  LnkTLI924(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[924]),(void **)(void *)&LnkLI924,first,ap);va_end(ap);return V1;} /* NOTEVERY */
static object  LnkTLI923(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[923]),(void **)(void *)&LnkLI923,65540,first,ap);va_end(ap);return V1;} /* STRUCTURE-SET */
static void LnkT148(){ call_or_link(((object)VV[148]),(void **)(void *)&Lnk148);} /* POLYGON */
static void LnkT920(){ call_or_link(((object)VV[920]),(void **)(void *)&Lnk920);} /* POINTS3D-COMMAND */
static void LnkT919(){ call_or_link(((object)VV[919]),(void **)(void *)&Lnk919);} /* UPDATE-RANGES-3D */
static void LnkT917(){ call_or_link(((object)VV[917]),(void **)(void *)&Lnk917);} /* CHECK-ENHANCED3D-MODEL */
static void LnkT916(){ call_or_link(((object)VV[916]),(void **)(void *)&Lnk916);} /* POINTS-LIST */
static void LnkT915(){ call_or_link(((object)VV[915]),(void **)(void *)&Lnk915);} /* POINTS-ARRAY-1D */
static void LnkT914(){ call_or_link(((object)VV[914]),(void **)(void *)&Lnk914);} /* POINTS-ARRAY-2D */
static object  LnkTLI913(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[913]),(void **)(void *)&LnkLI913,1,first,ap);va_end(ap);return V1;} /* $LENGTH */
static object  LnkTLI912(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[912]),(void **)(void *)&LnkLI912,first,ap);va_end(ap);return V1;} /* NOTANY */
static object  LnkTLI911(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[911]),(void **)(void *)&LnkLI911,1,first,ap);va_end(ap);return V1;} /* $MATRIXP */
static object  LnkTLI453(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[453]),(void **)(void *)&LnkLI453,2,first,ap);va_end(ap);return V1;} /* EQUAL */
static object  LnkTLI910(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[910]),(void **)(void *)&LnkLI910,1,first,ap);va_end(ap);return V1;} /* ARRAYP */
static void LnkT909(){ call_or_link(((object)VV[909]),(void **)(void *)&Lnk909);} /* POINTS-COMMAND */
static object  LnkTLI908(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[908]),(void **)(void *)&LnkLI908,first,ap);va_end(ap);return V1;} /* ASET */
static object  LnkTLI907(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[907]),(void **)(void *)&LnkLI907,1,first,ap);va_end(ap);return V1;} /* NUMBERP */
static object  LnkTLI906(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[906]),(void **)(void *)&LnkLI906,first,ap);va_end(ap);return V1;} /* AREF */
static object  LnkTLI905(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[905]),(void **)(void *)&LnkLI905,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
static object  LnkTLI904(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[904]),(void **)(void *)&LnkLI904,2,first,ap);va_end(ap);return V1;} /* EQ */
static void LnkT903(){ call_or_link(((object)VV[903]),(void **)(void *)&Lnk903);} /* MAKE-GR-OBJECT */
static void LnkT902(){ call_or_link(((object)VV[902]),(void **)(void *)&Lnk902);} /* FLATTEN */
static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[272]),(void **)(void *)&LnkLI272,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
static object  LnkTLI901(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[901]),(void **)(void *)&LnkLI901,first,ap);va_end(ap);return V1;} /* $TREE_REDUCE */
static void LnkT900(){ call_or_link(((object)VV[900]),(void **)(void *)&Lnk900);} /* $FLOAT */
static object  LnkTLI766(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[766]),(void **)(void *)&LnkLI766,first,ap);va_end(ap);return V1;} /* MAP */
static void LnkT898(){ call_or_link(((object)VV[898]),(void **)(void *)&Lnk898);} /* AXES-TO-PLOT */
static void LnkT897(){ call_or_link(((object)VV[897]),(void **)(void *)&Lnk897);} /* HEX-TO-RGB */
static void LnkT896(){ call_or_link(((object)VV[896]),(void **)(void *)&Lnk896);} /* MAKE-OBJ-TITLE */
static object  LnkTLI895(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[895]),(void **)(void *)&LnkLI895,2,first,ap);va_end(ap);return V1;} /* EQL */
static object  LnkTLI894(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[894]),(void **)(void *)&LnkLI894,first,ap);va_end(ap);return V1;} /* EVERY */
static object  LnkTLI893(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[893]),(void **)(void *)&LnkLI893,1,first,ap);va_end(ap);return V1;} /* $LISTP */
static object  LnkTLI892(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[892]),(void **)(void *)&LnkLI892,first,ap);va_end(ap);return V1;} /* CONCATENATE */
static void LnkT891(){ call_or_link(((object)VV[891]),(void **)(void *)&Lnk891);} /* UPDATE-RANGES-2D */
static object  LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[23]),(void **)(void *)&LnkLI23,1,first,ap);va_end(ap);return V1;} /* SECOND */
static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[21]),(void **)(void *)&LnkLI21,1,first,ap);va_end(ap);return V1;} /* FIRST */
static object  LnkTLI890(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[890]),(void **)(void *)&LnkLI890,first,ap);va_end(ap);return V1;} /* MERROR */
static void LnkT15(){ call_or_link(((object)VV[15]),(void **)(void *)&Lnk15);} /* GET-OPTION */
static object  LnkTLI761(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[761]),(void **)(void *)&LnkLI761,first,ap);va_end(ap);return V1;} /* FORMAT */
static object  LnkTLI888(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(((object)VV[888]),(void **)(void *)&LnkLI888,1,first,ap);va_end(ap);return V1;} /* SEND-GNUPLOT-COMMAND */
static void LnkT887(){ call_or_link(((object)VV[887]),(void **)(void *)&Lnk887);} /* $MULTIPLOT_MODE */
