/* s4iof.sf */
/* Generated by #F $Id$ */
#ifdef PROFILE
#define host host_module_s4iof
#endif
#define MODULE module_s4iof
#define LOAD() 

/* standard includes */
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <assert.h>
/* extra includes */
#include <math.h>
#include <errno.h>
#include <ctype.h>
#include <string.h>
#include <time.h>

/* standard definitions */

typedef ptrdiff_t obj;        /* pointers are this size, lower bit zero */
typedef ptrdiff_t cxoint_t;   /* same thing, used as integer */
typedef struct {              /* type descriptor */
  const char *tname;          /* name (debug) */
  void (*free)(void*);        /* deallocator */
} cxtype_t;

#define notobjptr(o)          (((char*)(o) - (char*)cxg_heap) & cxg_hmask)
#define isobjptr(o)           (!notobjptr(o))
#define notaptr(o)            ((o) & 1)
#define isaptr(o)             (!notaptr(o))

#define obj_from_obj(o)       (o)
#define obj_from_objptr(p)    ((obj)(p))
#define obj_from_size(n)      (((cxoint_t)(n) << 1) | 1)

#define objptr_from_objptr(p) (p)
#define objptr_from_obj(o)    ((obj*)(o))

#define size_from_obj(o)      ((int)((o) >> 1))

#define obj_from_case(n)      obj_from_objptr(cases+(n))
#define case_from_obj(o)      (objptr_from_obj(o)-cases)
#define obj_from_ktrap()      obj_from_size(0x5D56F806)
#define obj_from_void(v)      ((void)(v), obj_from_size(0x6F56DF77))

#define bool_from_obj(o)      (o)
#define bool_from_bool(b)     (b)
#define bool_from_size(s)     (s)

#define void_from_void(v)     (void)(v)
#define void_from_obj(o)      (void)(o)

#define rreserve(m)           if (r + (m) >= cxg_rend) r = cxm_rgc(r, m)
#define hpushptr(p, pt, l)    (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1))   
#define hbsz(s)               ((s) + 1) /* 1 extra word to store block size */
#define hreserve(n, l)        ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp)
#define hendblk(n)            (*--hp = obj_from_size(n), (obj)(hp+1))
#define hblklen(p)            size_from_obj(((obj*)(p))[-1])
#define hblkref(p, i)         (((obj*)(p))[i])

typedef obj (*cxhost_t)(obj);
typedef struct cxroot_tag {
  int globc; obj **globv;
  struct cxroot_tag *next;
} cxroot_t;

extern obj *cxg_heap;
extern obj *cxg_hp;
extern cxoint_t cxg_hmask;
extern cxroot_t *cxg_rootp;
extern obj *cxm_rgc(obj *regs, size_t needs);
extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs);
extern obj *cxg_regs, *cxg_rend;
extern void cxm_check(int x, char *msg);
extern void *cxm_cknull(void *p, char *msg);
extern int cxg_rc;
extern char **cxg_argv;

/* extra definitions */
/* basic object representation */
#define isimm(o, t) (((o) & 0xff) == (((t) << 1) | 1))
long getimmu(obj o, int t) {
  assert(isimm(o, t));
  return (long)((o >> 8) & 0xffffff);
}
long getimms(obj o, int t) {
  assert(isimm(o, t));
  return (long)((((o >> 8) & 0xffffff) ^ 0x800000) - 0x800000);
}
#ifdef NDEBUG
  #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
  #define getimms(o, t) (long)(((((o) >> 8) & 0xffffff) ^ 0x800000) - 0x800000)
#else
  extern long getimmu(obj o, int t);
  extern long getimms(obj o, int t);
#endif
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 1) | 1)
#ifndef NDEBUG
int isnative(obj o, cxtype_t *tp) {
  return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; 
}
void *getnative(obj o, cxtype_t *tp) {
  assert(isnative(o, tp));
  return (void*)(*objptr_from_obj(o));
}
#endif
#ifdef NDEBUG
   static int isnative(obj o, cxtype_t *tp) 
     { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp;  }
   #define getnative(o, t) ((void*)(*objptr_from_obj(o)))
#else
  extern int isnative(obj o, cxtype_t *tp);
  extern void *getnative(obj o, cxtype_t *tp);
#endif
int istagged(obj o, int t) {
  if (!isobjptr(o)) return 0;
  else { obj h = objptr_from_obj(o)[-1];
    return notaptr(h) && size_from_obj(h) >= 1 
      && hblkref(o, 0) == obj_from_size(t); }
}
obj cktagged(obj o, int t) {
  assert(istagged(o, t));
  return o;
}
int taggedlen(obj o, int t) {
  assert(istagged(o, t));
  return hblklen(o) - 1;
}
obj* taggedref(obj o, int t, int i) {
  int len; assert(istagged(o, t));
  len = hblklen(o);
  assert(i >= 0 && i < len-1);  
  return &hblkref(o, i+1);
}
extern int istagged(obj o, int t);
#ifdef NDEBUG
  #define cktagged(o, t) (o)
  #define taggedlen(o, t) (hblklen(o)-1) 
  #define taggedref(o, t, i) (&hblkref(o, (i)+1))
#else
  extern obj cktagged(obj o, int t);
  extern int taggedlen(obj o, int t);
  extern obj* taggedref(obj o, int t, int i); 
#endif
/* booleans */
#define TRUE_ITAG 0
typedef int bool_t;
#define is_bool_obj(o) (!((o) & ~(obj)1))
#define is_bool_bool(b) ((void)(b), 1)
#define void_from_bool(b) (void)(b)
#define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0)
/* numbers */
#define FIXNUM_BIT 24
#define FIXNUM_MIN -8388608
#define FIXNUM_MAX 8388607
#ifdef NDEBUG
#define fxneg(x) (-(x))
#define fxabs(x) (labs(x))
#define fxadd(x, y) ((x) + (y))
#define fxsub(x, y) ((x) - (y))
#define fxmul(x, y) ((x) * (y))
/* exact integer division */
#define fxidv(x, y) ((x) / (y))  
/* truncated division (common/C99) */
#define fxquo(x, y) ((x) / (y))  
#define fxrem(x, y) ((x) % (y))
/* floor division */
static long fxmlo(long x, long y) {
  long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
static long fxdiv(long x, long y) { 
  long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
static long fxmod(long x, long y) {
  long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
} 
static long fxgcd(long x, long y) {
  long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c; 
  return a;
} 
#define fxasl(x, y) ((x) << (y))
#define fxasr(x, y) ((x) >> (y))
#define fxflo(f) ((long)(f))
#else
extern long fxneg(long x);
extern long fxabs(long x);
extern long fxadd(long x, long y);
extern long fxsub(long x, long y);
extern long fxmul(long x, long y);
extern long fxidv(long x, long y);
extern long fxquo(long x, long y);
extern long fxrem(long x, long y);
extern long fxmlo(long x, long y);
extern long fxdiv(long x, long y);
extern long fxmod(long x, long y);
extern long fxgcd(long x, long y);
extern long fxasl(long x, long y);
extern long fxasr(long x, long y);
extern long fxflo(double f);
#endif
#ifndef NDEBUG
long fxneg(long x) { 
  assert(x != FIXNUM_MIN); 
  return -x; 
}
long fxabs(long x) { 
  assert(x != FIXNUM_MIN); 
  return labs(x); 
}
long fxadd(long x, long y) { 
  long z = x + y; 
  assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX); 
  return z; 
}
long fxsub(long x, long y) { 
  long z = x - y; 
  assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX); 
  return z; 
}
long fxmul(long x, long y) { 
  double z = (double)x * (double)y;
  assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
  return x * y; 
}
/* exact integer division */
long fxidv(long x, long y) { 
  assert(y); 
  assert(x != FIXNUM_MIN || y != -1);
  assert(x % y == 0);
  return x / y; 
}
/* truncated division (common/C99) */
long fxquo(long x, long y) { 
  assert(y); 
  assert(x != FIXNUM_MIN || y != -1);
  return x / y; 
}
long fxrem(long x, long y) { 
  assert(y);
  return x % y; 
}
/* floor division */
long fxmlo(long x, long y) {
  long r; 
  assert(y); 
  r = x % y;
  return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
long fxdiv(long x, long y) { 
  long q, r; 
  assert(y); 
  assert(x != FIXNUM_MIN || y != -1);
  q = x / y, r = x % y; 
  return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
long fxmod(long x, long y) {
  long r; 
  assert(y); 
  r = x % y; 
  return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
} 
long fxgcd(long x, long y) {
  long a = labs(x), b = labs(y), c; 
  assert(a <= FIXNUM_MAX || b <= FIXNUM_MAX);
  while (b) c = a%b, a = b, b = c; 
  return a;
} 
long fxasl(long x, long y) {
  assert(y >= 0 && y < FIXNUM_BIT); 
  return x << y;
} 
long fxasr(long x, long y) {
  assert(y >= 0 && y < FIXNUM_BIT);
  assert(!y || x >= 0); /* >> of negative x is undefined */ 
  return x >> y;
} 
long fxflo(double f) {
  long l = (long)f;
  assert((double)l == f);
  assert(l >= FIXNUM_MIN && l <= FIXNUM_MAX);
  return l;
}
#endif
extern long fxpow(long x, long y);
long fxpow(long x, long y) { 
  assert(y >= 0);
  retry: if (y == 0) return 1; if (y == 1) return x;
  if (y % 2 == 1) x *= fxpow(x, y-1); 
  else { x *= x; y /= 2; assert(x <= FIXNUM_MAX); goto retry; }
  assert(x <= FIXNUM_MAX); return x;
}
extern int fxifdv(long x, long y, long *pi, double *pd);
int fxifdv(long x, long y, long *pi, double *pd) { 
  assert(y); 
  assert(x != FIXNUM_MIN || y != -1);
  if (x % y == 0) { *pi = x / y; return 1; }
  else { *pd = (double)x / (double)y; return 0; }  
}
extern double flquo(double x, double y);
double flquo(double x, double y) {
  double z;
  assert(y != 0.0 && x == floor(x) && y == floor(y));
  modf(x / y,  &z);
  return z;
}
extern double flrem(double x, double y);
double flrem(double x, double y) {
  assert(y != 0.0 && x == floor(x) && y == floor(y));
  return fmod(x, y);
}
extern double flmlo(double x, double y);
double flmlo(double x, double y) {
  assert(y != 0.0 && x == floor(x) && y == floor(y));
  return x - y * floor(x / y);
}
extern double flgcd(double x, double y);
double flgcd(double x, double y) {
  double a = fabs(x), b = fabs(y), c; 
  assert(a == floor(a) && b == floor(b));
  while (b > 0.0) c = fmod(a, b), a = b, b = c; 
  return a;
}
extern double flround(double x);
double flround(double x) {
  double f = floor(x), c = ceil(x), d = x-f, u = c-x; 
  if (d == u) return fmod(f, 2.0) == 0.0 ? f : c;
  else return (d < u) ? f : c;
}
extern int strtofxfl(const char *s, int radix, long *pl, double *pd);
int strtofxfl(const char *s, int radix, long *pl, double *pd) {
  char *e; int conv = 0, eno = errno; long l; double d;
  for (; s[0] == '#'; s += 2) {
    switch (s[1]) {
      case 'b': case 'B': radix = 2; break;
      case 'o': case 'O': radix = 8; break;
      case 'd': case 'D': radix = 10; break;
      case 'x': case 'X': radix = 16; break;
      case 'e': case 'E': conv = 'e'; break;
      case 'i': case 'I': conv = 'i'; break;
      default: return 0;
    }
  }
  if (isspace(*s)) return 0;
  l = (errno = 0, strtol(s, &e, radix));
  if (!errno && l >= FIXNUM_MIN && l <= FIXNUM_MAX && e != s && !*e)
    return errno = eno, (conv == 'i') ? (*pd = (double)l, 'i') : (*pl = l, 'e');
  if (radix != 10) return errno = eno, 0;
  d = (errno = 0, strtod(s, &e));
  if (!errno && e != s && !*e) {
    if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d))
      return errno = eno, 0;
    else return errno = eno, (conv == 'e') ? (*pl = fxflo(d), 'e') : (*pd = d, 'i');
  }
  return errno = eno, 0;
}
/* fixnums */
#define FIXNUM_ITAG 1
typedef long fixnum_t;
#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG))
#define is_fixnum_fixnum(i) ((void)(i), 1)
#define is_bool_fixnum(i) ((void)(i), 0)
#define is_fixnum_bool(i) ((void)(i), 0)
#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG))
#define fixnum_from_fixnum(i) (i)
#define fixnum_from_flonum(l,x) ((fixnum_t)(x))
#define bool_from_fixnum(i) ((void)(i), 1)
#define void_from_fixnum(i) (void)(i)
#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG)
/* flonums */
static cxtype_t cxt_flonum = { "flonum", free };
cxtype_t *FLONUM_NTAG = &cxt_flonum;
extern cxtype_t *FLONUM_NTAG;
typedef double flonum_t;
#define is_flonum_obj(o) (isnative(o, FLONUM_NTAG))
#define is_flonum_flonum(f) ((void)(f), 1)
#define is_flonum_bool(f) ((void)(f), 0)
#define is_bool_flonum(f) ((void)(f), 0)
#define is_fixnum_flonum(i) ((void)(i), 0)
#define is_flonum_fixnum(i) ((void)(i), 0)
#define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG))
#define flonum_from_flonum(l, f) (f)
#define flonum_from_fixnum(x) ((flonum_t)(x))
#define bool_from_flonum(f) ((void)(f), 0)
#define void_from_flonum(l, f) (void)(f)
#define obj_from_flonum(l, f) hpushptr(dupflonum(f), FLONUM_NTAG, l)
extern flonum_t *dupflonum(flonum_t f);
flonum_t *dupflonum(flonum_t f) {
  flonum_t *pf = cxm_cknull(malloc(sizeof(flonum_t)), "malloc(flonum)");
  *pf = f; return pf;
}
/* characters */
#define CHAR_ITAG 2
typedef int char_t;
#define is_char_obj(o) (isimm(o, CHAR_ITAG))
#define is_char_char(i) ((void)(i), 1)
#define is_char_bool(i) ((void)(i), 0)
#define is_bool_char(i) ((void)(i), 0)
#define is_char_fixnum(i) ((void)(i), 0)
#define is_fixnum_char(i) ((void)(i), 0)
#define is_char_flonum(i) ((void)(i), 0)
#define is_flonum_char(i) ((void)(i), 0)
#define char_from_obj(o) ((int)getimms(o, CHAR_ITAG))
#define char_from_char(i) (i)
#define bool_from_char(i) ((void)(i), 1)
#define void_from_char(i) (void)(i)
#define obj_from_char(i) mkimm(i, CHAR_ITAG)
/* strings */
static cxtype_t cxt_string = { "string", free };
cxtype_t *STRING_NTAG = &cxt_string;
extern cxtype_t *STRING_NTAG;
#define isstring(o) (isnative(o, STRING_NTAG))
#define stringdata(o) ((int*)getnative(o, STRING_NTAG))
#define sdatachars(d) ((char*)((d)+1))
#define stringlen(o) (*stringdata(o))
#define stringchars(o) ((char*)(stringdata(o)+1))
#define hpushstr(l, s) hpushptr(s, STRING_NTAG, l)
char* stringref(obj o, int i) {
  int *d = stringdata(o);
  assert(i >= 0 && i < *d);  
  return ((char*)(d+1))+i;
}
#ifdef NDEBUG
  #define stringref(o, i) (stringchars(o)+(i))
#else
  extern char* stringref(obj o, int i);
#endif
extern int *newstring(char *s);
int *newstring(char *s) {
  int l, *d; assert(s); l = (int)strlen(s); 
  d = cxm_cknull(malloc(sizeof(int)+l+1), "malloc(string)");
  *d = l; strcpy((char*)(d+1), s); return d;
}
extern int *allocstring(int n, int c);
int *allocstring(int n, int c) {
  int *d; char *s; assert(n+1 > 0); 
  d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
  *d = n; s = (char*)(d+1); memset(s, c, n); s[n] = 0;
  return d;
}
extern int *substring(int *d, int from, int to);
int *substring(int *d0, int from, int to) {
  int n = to-from, *d1; char *s0, *s1; assert(d0);
  assert(0 <= from && from <= to && to <= *d0); 
  d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
  *d1 = n; s0 = (char*)(d0+1); s1 = (char*)(d1+1); 
  memcpy(s1, s0+from, n); s1[n] = 0;
  return d1;
}
extern int *stringcat(int *d0, int *d1);
int *stringcat(int *d0, int *d1) {
  int l0 = *d0, l1 = *d1, n = l0+l1; char *s0, *s1, *s;
  int *d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
  *d = n; s = (char*)(d+1); s0 = (char*)(d0+1); s1 = (char*)(d1+1);
  memcpy(s, s0, l0); memcpy(s+l0, s1, l1); s[n] = 0;
  return d;
}
extern int *dupstring(int *d);
int *dupstring(int *d0) {
  int n = *d0, *d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
  memcpy(d1, d0, sizeof(int)+n+1);
  return d1;
}
extern void stringfill(int *d, int c);
void stringfill(int *d, int c) {
  int l = *d, i; char *s = (char*)(d+1);
  for (i = 0; i < l; ++i) s[i] = c;
}
extern int strcmp_ci(char *s1, char*s2);
int strcmp_ci(char *s1, char *s2) {
  int c1, c2, d;
  do { c1 = *s1++; c2 = *s2++; d = (unsigned)tolower(c1) - (unsigned)tolower(c2); }
  while (!d && c1 && c2);
  return d;
}
/* vectors */
#define VECTOR_BTAG 1
#define isvector(o) istagged(o, VECTOR_BTAG)
#define vectorref(v, i) *taggedref(v, VECTOR_BTAG, i)
#define vectorlen(v) taggedlen(v, VECTOR_BTAG)
/* null */
#define NULL_ITAG 3
#define mknull() mkimm(0, NULL_ITAG)
#define isnull(o) ((o) == mkimm(0, NULL_ITAG))
/* pairs and lists */
#define PAIR_BTAG 3
#define ispair(o) istagged(o, PAIR_BTAG)
#define car(o) *taggedref(o, PAIR_BTAG, 0)
#define cdr(o) *taggedref(o, PAIR_BTAG, 1)
extern int islist(obj l);
int islist(obj l) {
  obj s = l;
  for (;;) {
    if (isnull(l)) return 1;
    else if (!ispair(l)) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else if (isnull(l)) return 1;
    else if (!ispair(l)) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else s = cdr(s); 
  }
}
/* symbols */
#define SYMBOL_ITAG 4
#define issymbol(o) (isimm(o, SYMBOL_ITAG))
#define mksymbol(i) mkimm(i, SYMBOL_ITAG)
#define getsymbol(o) getimmu(o, SYMBOL_ITAG)
static struct { char **a; char ***v; size_t sz; size_t u; size_t maxu; } symt;
static unsigned long hashs(char *s, int fc) {
  unsigned long i = 0, l = (unsigned long)strlen(s), h = l;
  if (!fc) while (i < l) { h = (h << 4) ^ (h >> 28) ^ s[i++]; }
  else while (i < l) { int c = s[i++] & 0xff; h = (h << 4) ^ (h >> 28) ^ (c < 128 ? tolower(c) : c); }
  return h ^ (h  >> 10) ^ (h >> 20);
}
static int symnameeq(char *s1, char *s2, int fc) {
  if (fc) {
    while (*s1 && *s2) { 
      int c1 = *s1++ & 0xff, c2 = *s2++ & 0xff; if (c1 == c2) continue;
      if (c1 > 127 || c2 > 127 || tolower(c1) != tolower(c2)) return 0;
    }
    return !*s1 && !*s2;
  }
  return (strcmp(s1, s2) == 0); 
}
extern char *symbolname(int sym);
char *symbolname(int sym) {
  assert(sym >= 0); assert(sym < (int)symt.u);
  return symt.a[sym];
}
extern int internsym(char *name, int fc);
int internsym(char *name, int fc) {
  size_t i, j; /* based on a code (C) 1998, 1999 by James Clark. */
  if (symt.sz == 0) { /* init */
    symt.a = cxm_cknull(calloc(64, sizeof(char*)), "symtab[0]");
    symt.v = cxm_cknull(calloc(64, sizeof(char**)), "symtab[1]");
    symt.sz = 64, symt.maxu = 64 / 2;
    i = hashs(name, fc) & (symt.sz-1);
  } else {
    unsigned long h = hashs(name, fc);
    for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1))
      if (symnameeq(name, *symt.v[i], fc)) return (int)(symt.v[i] - symt.a);
    if (symt.u == symt.maxu) { /* rehash */
      size_t nsz = symt.sz * 2;
      char **na = cxm_cknull(calloc(nsz, sizeof(char*)), "symtab[2]");
      char ***nv = cxm_cknull(calloc(nsz, sizeof(char**)), "symtab[3]");
      for (i = 0; i < symt.sz; i++)
        if (symt.v[i]) {
          for (j = hashs(*symt.v[i], fc) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
          nv[j] = symt.v[i] - symt.a + na;
        }
      free(symt.v); symt.v = nv; symt.sz = nsz; symt.maxu = nsz / 2;
      memcpy(na, symt.a, symt.u * sizeof(char*)); free(symt.a); symt.a = na; 
      for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1)) ;
    }
  }
  if (fc) {
    char *s = name, *d = cxm_cknull(malloc(strlen(name)+1), "symtab[4]");
    *(symt.v[i] = symt.a + symt.u) = d;
    while (*s) { int c = *s++ & 0xff; *d++ = (c < 128 ? tolower(c) : c); } *d = *s;
  } else { 
    *(symt.v[i] = symt.a + symt.u) =  
    strcpy(cxm_cknull(malloc(strlen(name)+1), "symtab[4]"), name);
  }
  return (int)((symt.u)++);
}
int isprocedure(obj o) {
  if (!o) return 0;
  else if (isaptr(o) && !isobjptr(o)) return 1;
  else if (!isobjptr(o)) return 0;
  else { obj h = objptr_from_obj(o)[-1];
    return notaptr(h) && size_from_obj(h) >= 1 
      && isaptr(hblkref(o, 0)); }
}
int procedurelen(obj o) {
  assert(isprocedure(o));
  return isobjptr(o) ? hblklen(o) : 1;
}
obj* procedureref(obj o, int i) {
  int len; assert(isprocedure(o));
  len = isobjptr(o) ? hblklen(o) : 1;
  assert(i >= 0 && i < len);
  return &hblkref(o, i);   
}
/* procedures */
extern int isprocedure(obj o);
extern int procedurelen(obj o);
extern obj* procedureref(obj o, int i);
/* apply and dotted lambda list */
extern obj appcases[];
/* apply/dotted lambda adapter entry points */
static obj apphost(obj);
obj appcases[5] = { (obj)apphost,  (obj)apphost,  (obj)apphost,  (obj)apphost ,  (obj)apphost };
/* apphost procedure */
#define APPLY_MAX_REGS 1024 /* limit on rc for apply & friends */
static obj apphost(obj pc)
{
  register obj *r = cxg_regs;
  register obj *hp = cxg_hp;
  register int rc = cxg_rc;
jump: 
  switch (objptr_from_obj(pc)-appcases) {

case 0: /* apply */
    /* clo k f arg... arglist */
    assert(rc >= 4);
    { int i; obj l;
    rreserve(APPLY_MAX_REGS);
    l = r[--rc];
    r[0] = r[2];
    /* k in r[1] */
    for (i = 3; i < rc; ++i) r[i-1] = r[i];
    for (--rc; l != mknull(); l = cdr(l)) r[rc++] = car(l);
    /* f k arg... arg... */
    assert(rc <= APPLY_MAX_REGS);
    pc = objptr_from_obj(r[0])[0];
    goto jump; }

case 1: /* dotted lambda adapter */
    /* clo k arg... */
    { obj* p = objptr_from_obj(r[0]);
    int n = fixnum_from_obj(p[1]) + 2; 
    r[0] = p[2]; /* f */
    /* k in r[1] */
    assert(rc >= n);
    rreserve(n+1);
    if (rc == n) r[rc++] = mknull();
    else { /* collect rest list */
    obj l = mknull();
    hreserve(hbsz(3)*(rc-n), rc);
    while (rc > n) { *--hp = l; *--hp = r[--rc];
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[rc++] = l; }
    /* f k arg... arglist */
    pc = objptr_from_obj(r[0])[0];
    goto jump; }

case 2: /* void continuation adapter */
    /* cclo ek arg ... */
    assert(rc >= 2);
    { obj* p = objptr_from_obj(r[0]);
    r[0] = p[1]; /* cont */
    pc = objptr_from_obj(r[0])[0];
    /* ek in r[1] */
    rreserve(3);
    r[2] = obj_from_void(0);
    rc = 3;
    goto jump; }

case 3: /* argc dispatcher */
    /* clo k arg... */
    { obj* p = objptr_from_obj(r[0]); int bl = hblklen(p);
    if (rc < bl) r[0] = hblkref(p, rc-1); /* matching slot */
    else r[0] = hblkref(p, bl-1); /* catch-all slot */ 
    pc = objptr_from_obj(r[0])[0];
    goto jump; }

case 4: /* case lambda dispatcher */
    /* clo k arg... */
    { obj* p = objptr_from_obj(r[0]); int bl = hblklen(p), i;
    for (i = 1; i < bl; i += 3) {
    int min = fixnum_from_obj(hblkref(p, i)), max = fixnum_from_obj(hblkref(p, i+1));
    if (min <= rc-2 && rc-2 <= max) { r[0] = hblkref(p, i+2); break; }
    } assert(i < bl); /* at least one of the cases should match! */ 
    pc = objptr_from_obj(r[0])[0];
    goto jump; }

default: /* inter-host call */
    cxg_hp = hp;
    cxm_rgc(r, 1);
    cxg_rc = rc;
    return pc;
  }
}
/* eof */
#define EOF_ITAG 127
#define mkeof() mkimm(-1, EOF_ITAG)
#define iseof(o) ((o) == mkimm(-1, EOF_ITAG))
/* input ports */
typedef struct { /* extends cxtype_t */
  const char *tname;
  void (*free)(void*);
  int (*close)(void*);
  int (*getch)(void*);
  int (*ungetch)(int, void*);
} cxtype_iport_t;
extern cxtype_t *IPORT_FILE_NTAG;
extern cxtype_t *IPORT_STRING_NTAG;
static cxtype_iport_t *iportvt(obj o) { 
  cxtype_t *pt; if (!isobjptr(o)) return NULL;
  pt = (cxtype_t*)objptr_from_obj(o)[-1];
  if (pt == IPORT_FILE_NTAG || pt == IPORT_STRING_NTAG) return (cxtype_iport_t*)pt;
  else return NULL; }
#define iportdata(o) ((void*)(*objptr_from_obj(o)))
static void ffree(void *vp) {
  /* FILE *fp = vp; assert(fp); cannot fclose(fp) here because of FILE reuse! */ }
static cxtype_iport_t cxt_iport_file = {
  "file-input-port", ffree, (int (*)(void*))fclose,
  (int (*)(void*))(fgetc), (int (*)(int, void*))(ungetc) };
cxtype_t *IPORT_FILE_NTAG = (cxtype_t *)&cxt_iport_file;
#define mkiport_file(l, fp) hpushptr(fp, IPORT_FILE_NTAG, l)
/* string input ports */
typedef struct { char *p; void *base; } sifile_t;
sifile_t *sialloc(char *p, void *base) { 
  sifile_t *fp = cxm_cknull(malloc(sizeof(sifile_t)), "malloc(sifile)");
  fp->p = p; fp->base = base; return fp; }
extern sifile_t *sialloc(char *p, void *base);
static void sifree(sifile_t *fp) { 
  assert(fp); if (fp->base) free(fp->base); free(fp); }
static void siclose(sifile_t *fp) { 
  assert(fp); if (fp->base) free(fp->base); fp->base = NULL; fp->p = ""; }
static int sigetch(sifile_t *fp) {
  int c; assert(fp && fp->p); if (!(c = *(fp->p))) return EOF; ++(fp->p); return c; }
static int siungetch(int c, sifile_t *fp) {
  assert(fp && fp->p); --(fp->p); assert(c == *(fp->p)); return c; }
static cxtype_iport_t cxt_iport_string = {
  "string-input-port", (void (*)(void*))sifree, (int (*)(void*))siclose,
  (int (*)(void*))sigetch, (int (*)(int, void*))siungetch };
cxtype_t *IPORT_STRING_NTAG = (cxtype_t *)&cxt_iport_string;
#define mkiport_string(l, fp) hpushptr(fp, IPORT_STRING_NTAG, l)
/* output ports */
static void opclose(void *vp) {
  /* FILE *fp = vp; assert(fp); 
   * cannot fclose(fp) here because of FILE reuse! */ 
}
static cxtype_t cxt_oport = { "oport", opclose };
cxtype_t *OPORT_NTAG = &cxt_oport;
extern cxtype_t *OPORT_NTAG;
#define isoport(o) (isnative(o, OPORT_NTAG))
#define oportdata(o) ((FILE*)getnative(o, OPORT_NTAG))
#define mkoport(l, fp) hpushptr(fp, OPORT_NTAG, l)
extern int iseqv(obj x, obj y);
int iseqv(obj x, obj y) {
  obj h; if (x == y) return 1;
  if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
  if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
  if (h == (obj)FLONUM_NTAG) return *(flonum_t*)objptr_from_obj(x)[0] == *(flonum_t*)objptr_from_obj(y)[0]; 
  return 0;
}
extern obj ismemv(obj x, obj l);
obj ismemv(obj x, obj l) {
  if (!x || notaptr(x) || notobjptr(x)) {
    for (; l != mknull(); l = cdr(l)) 
      { if (car(l) == x) return l; }
  } else if (is_flonum_obj(x)) {
    flonum_t fx = flonum_from_obj(x); 
    for (; l != mknull(); l = cdr(l)) 
      { obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
  } else { /* for others, memv == memq */
    for (; l != mknull(); l = cdr(l)) 
      { if (car(l) == x) return l; }
  } return 0;
}
extern obj isassv(obj x, obj l);
obj isassv(obj x, obj l) {
  if (!x || notaptr(x) || notobjptr(x)) {
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l); if (car(p) == x) return p; }
  } else if (is_flonum_obj(x)) {
    flonum_t fx = flonum_from_obj(x); 
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
  } else { /* for others, assv == assq */
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l); if (car(p) == x) return p; }
  } return 0;
}
extern int isequal(obj x, obj y);
int isequal(obj x, obj y) {
  obj h; int i, n; loop: if (x == y) return 1;
  if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
  if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
  if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y); 
  if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0; 
  if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0;
  for (i = 1; i < n-1; ++i) if (!isequal(hblkref(x, i), hblkref(y, i))) return 0;
  if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return 1; 
}
extern obj ismember(obj x, obj l);
obj ismember(obj x, obj l) {
  if (!x || notaptr(x) || notobjptr(x)) {
    for (; l != mknull(); l = cdr(l)) 
      { if (car(l) == x) return l; }
  } else if (is_flonum_obj(x)) {
    flonum_t fx = flonum_from_obj(x); 
    for (; l != mknull(); l = cdr(l)) 
      { obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
  } else if (isstring(x)) {
    char *xs = stringchars(x);
    for (; l != mknull(); l = cdr(l)) 
      { obj y = car(l); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return l; }
  } else {
    for (; l != mknull(); l = cdr(l)) 
      { if (isequal(car(l), x)) return l; }
  } return 0;
}
extern obj isassoc(obj x, obj l);
obj isassoc(obj x, obj l) {
  if (!x || notaptr(x) || notobjptr(x)) {
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l); if (car(p) == x) return p; }
  } else if (is_flonum_obj(x)) {
    flonum_t fx = flonum_from_obj(x); 
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
  } else if (isstring(x)) {
    char *xs = stringchars(x);
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l), y = car(p); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return p; }
  } else {
    for (; l != mknull(); l = cdr(l)) 
      { obj p = car(l); if (isequal(car(p), x)) return p; }
  } return 0;
}
/* initialization code */
static char *sfi_init_code =
"(define %make-promise"
"  (lambda (proc)"
"    ((lambda (result-ready? result)"
"       (lambda ()"
"         (if result-ready?"
"             result"
"             ((lambda (x)"
"                (if result-ready?"
"                    result"
"                    (begin"
"                      (set! result-ready? #t)"
"                      (set! result x)"
"                      result)))"
"              (proc)))))"
"     #f"
"     #f)))"
""
"(define-macro delay"
"  (lambda (exp) `(%make-promise (lambda () ,exp))))"
""
"(define (force promise) "
"  (promise))"
""
"(set! call/cc"
"  (let ([old-call/cc call/cc])"
"     (lambda (p)"
"        (old-call/cc"
"          (lambda (k)"
"            (p (lambda args"
"                 (k (apply values args)))))))))"
""
"(set! call-with-current-continuation call/cc)"
""
""
"(define (list-tail ls k)"
"  (if (= k 0) ls (list-tail (cdr ls) (- k 1))))"
""
"(define (list-ref ls k) "
"  (car (list-tail ls k)))"
""
"(define (caaar x) (car (car (car x))))"
"(define (caadr x) (car (car (cdr x))))"
"(define (cadar x) (car (cdr (car x))))"
"(define (caddr x) (car (cdr (cdr x))))"
"(define (cdaar x) (cdr (car (car x))))"
"(define (cdadr x) (cdr (car (cdr x))))"
"(define (cddar x) (cdr (cdr (car x))))"
"(define (cdddr x) (cdr (cdr (cdr x))))"
"(define (caaaar x) (car (car (car (car x)))))"
"(define (caaadr x) (car (car (car (cdr x)))))"
"(define (caadar x) (car (car (cdr (car x)))))"
"(define (caaddr x) (car (car (cdr (cdr x)))))"
"(define (cadaar x) (car (cdr (car (car x)))))"
"(define (cadadr x) (car (cdr (car (cdr x)))))"
"(define (caddar x) (car (cdr (cdr (car x)))))"
"(define (cadddr x) (car (cdr (cdr (cdr x)))))"
"(define (cdaaar x) (cdr (car (car (car x)))))"
"(define (cdaadr x) (cdr (car (car (cdr x)))))"
"(define (cdadar x) (cdr (car (cdr (car x)))))"
"(define (cdaddr x) (cdr (car (cdr (cdr x)))))"
"(define (cddaar x) (cdr (cdr (car (car x)))))"
"(define (cddadr x) (cdr (cdr (car (cdr x)))))"
"(define (cdddar x) (cdr (cdr (cdr (car x)))))"
"(define (cddddr x) (cdr (cdr (cdr (cdr x)))))"
""
"(define (map f l . l*)"
"  (if (null? l*) "
"      (let loop ([l l] [r '()])"
"        (if (null? l) "
"            (reverse! r)"
"            (loop (cdr l) (cons (f (car l)) r))))"
"      (let loop ([l* (cons l l*)] [r '()])"
"        (if (null? (car l*)) "
"            (reverse! r)"
"            (loop (map cdr l*) (cons (apply f (map car l*)) r))))))"
""
"(define (for-each p l . l*)"
"  (if (null? l*) "
"      (let loop ([l l])"
"        (if (not (null? l))"
"            (begin (p (car l)) (loop (cdr l)))))"
"      (let loop ([l* (cons l l*)])"
"        (if (not (null? (car l*))) "
"            (begin (apply p (map car l*)) (loop (map cdr l*)))))))"
;

/* cx globals */
obj cx__25fail_2Dlambda; /* %fail-lambda */
obj cx__25residual_2A; /* %residual* */
obj cx__25residual_2B; /* %residual+ */
obj cx__25residual_2D; /* %residual- */
obj cx__25residual_2D_25make_2Dprocedure; /* %residual-%make-procedure */
obj cx__25residual_2D_25procedure_2Dlength; /* %residual-%procedure-length */
obj cx__25residual_2D_25procedure_2Dref; /* %residual-%procedure-ref */
obj cx__25residual_2D_25procedure_2Dset_21; /* %residual-%procedure-set! */
obj cx__25residual_2Dabort; /* %residual-abort */
obj cx__25residual_2Dabs; /* %residual-abs */
obj cx__25residual_2Dacos; /* %residual-acos */
obj cx__25residual_2Dangle; /* %residual-angle */
obj cx__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F; /* %residual-annotated-procedure-argc-ok? */
obj cx__25residual_2Dappend; /* %residual-append */
obj cx__25residual_2Dappend_2F2; /* %residual-append/2 */
obj cx__25residual_2Dargc_2D_3Eannotation; /* %residual-argc->annotation */
obj cx__25residual_2Dargv_2Dref; /* %residual-argv-ref */
obj cx__25residual_2Dasin; /* %residual-asin */
obj cx__25residual_2Dassoc; /* %residual-assoc */
obj cx__25residual_2Dassq; /* %residual-assq */
obj cx__25residual_2Dassv; /* %residual-assv */
obj cx__25residual_2Datan; /* %residual-atan */
obj cx__25residual_2Datom_3F; /* %residual-atom? */
obj cx__25residual_2Dboolean_3F; /* %residual-boolean? */
obj cx__25residual_2Dcaaaar; /* %residual-caaaar */
obj cx__25residual_2Dcaaadr; /* %residual-caaadr */
obj cx__25residual_2Dcaaar; /* %residual-caaar */
obj cx__25residual_2Dcaadar; /* %residual-caadar */
obj cx__25residual_2Dcaaddr; /* %residual-caaddr */
obj cx__25residual_2Dcaadr; /* %residual-caadr */
obj cx__25residual_2Dcaar; /* %residual-caar */
obj cx__25residual_2Dcadaar; /* %residual-cadaar */
obj cx__25residual_2Dcadadr; /* %residual-cadadr */
obj cx__25residual_2Dcadar; /* %residual-cadar */
obj cx__25residual_2Dcaddar; /* %residual-caddar */
obj cx__25residual_2Dcadddr; /* %residual-cadddr */
obj cx__25residual_2Dcaddr; /* %residual-caddr */
obj cx__25residual_2Dcadr; /* %residual-cadr */
obj cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile; /* %residual-call-with-input-file */
obj cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile; /* %residual-call-with-output-file */
obj cx__25residual_2Dcall_2Dwith_2Dvalues; /* %residual-call-with-values */
obj cx__25residual_2Dcar; /* %residual-car */
obj cx__25residual_2Dcdaaar; /* %residual-cdaaar */
obj cx__25residual_2Dcdaadr; /* %residual-cdaadr */
obj cx__25residual_2Dcdaar; /* %residual-cdaar */
obj cx__25residual_2Dcdadar; /* %residual-cdadar */
obj cx__25residual_2Dcdaddr; /* %residual-cdaddr */
obj cx__25residual_2Dcdadr; /* %residual-cdadr */
obj cx__25residual_2Dcdar; /* %residual-cdar */
obj cx__25residual_2Dcddaar; /* %residual-cddaar */
obj cx__25residual_2Dcddadr; /* %residual-cddadr */
obj cx__25residual_2Dcddar; /* %residual-cddar */
obj cx__25residual_2Dcdddar; /* %residual-cdddar */
obj cx__25residual_2Dcddddr; /* %residual-cddddr */
obj cx__25residual_2Dcdddr; /* %residual-cdddr */
obj cx__25residual_2Dcddr; /* %residual-cddr */
obj cx__25residual_2Dcdr; /* %residual-cdr */
obj cx__25residual_2Dceiling; /* %residual-ceiling */
obj cx__25residual_2Dchar_2D_3Einteger; /* %residual-char->integer */
obj cx__25residual_2Dchar_2Dalphabetic_3F; /* %residual-char-alphabetic? */
obj cx__25residual_2Dchar_2Dci_3C_3D_3F; /* %residual-char-ci<=? */
obj cx__25residual_2Dchar_2Dci_3C_3F; /* %residual-char-ci<? */
obj cx__25residual_2Dchar_2Dci_3D_3F; /* %residual-char-ci=? */
obj cx__25residual_2Dchar_2Dci_3E_3D_3F; /* %residual-char-ci>=? */
obj cx__25residual_2Dchar_2Dci_3E_3F; /* %residual-char-ci>? */
obj cx__25residual_2Dchar_2Ddowncase; /* %residual-char-downcase */
obj cx__25residual_2Dchar_2Dlower_2Dcase_3F; /* %residual-char-lower-case? */
obj cx__25residual_2Dchar_2Dnumeric_3F; /* %residual-char-numeric? */
obj cx__25residual_2Dchar_2Dready_3F; /* %residual-char-ready? */
obj cx__25residual_2Dchar_2Dupcase; /* %residual-char-upcase */
obj cx__25residual_2Dchar_2Dupper_2Dcase_3F; /* %residual-char-upper-case? */
obj cx__25residual_2Dchar_2Dwhitespace_3F; /* %residual-char-whitespace? */
obj cx__25residual_2Dchar_3C_3D_3F; /* %residual-char<=? */
obj cx__25residual_2Dchar_3C_3F; /* %residual-char<? */
obj cx__25residual_2Dchar_3D_3F; /* %residual-char=? */
obj cx__25residual_2Dchar_3E_3D_3F; /* %residual-char>=? */
obj cx__25residual_2Dchar_3E_3F; /* %residual-char>? */
obj cx__25residual_2Dchar_3F; /* %residual-char? */
obj cx__25residual_2Dclose_2Dinput_2Dport; /* %residual-close-input-port */
obj cx__25residual_2Dclose_2Doutput_2Dport; /* %residual-close-output-port */
obj cx__25residual_2Dcons; /* %residual-cons */
obj cx__25residual_2Dcons_2A; /* %residual-cons* */
obj cx__25residual_2Dcos; /* %residual-cos */
obj cx__25residual_2Dcurrent_2Derror_2Dport; /* %residual-current-error-port */
obj cx__25residual_2Dcurrent_2Dinput_2Dport; /* %residual-current-input-port */
obj cx__25residual_2Dcurrent_2Djiffy; /* %residual-current-jiffy */
obj cx__25residual_2Dcurrent_2Doutput_2Dport; /* %residual-current-output-port */
obj cx__25residual_2Ddelete_2Dfile; /* %residual-delete-file */
obj cx__25residual_2Ddenominator; /* %residual-denominator */
obj cx__25residual_2Ddisplay; /* %residual-display */
obj cx__25residual_2Ddisplay_2Dfixnum; /* %residual-display-fixnum */
obj cx__25residual_2Ddisplay_2Dflonum; /* %residual-display-flonum */
obj cx__25residual_2Ddisplay_2Dinput_2Dport; /* %residual-display-input-port */
obj cx__25residual_2Ddisplay_2Dprocedure; /* %residual-display-procedure */
obj cx__25residual_2Deof_2Dobject; /* %residual-eof-object */
obj cx__25residual_2Deof_2Dobject_3F; /* %residual-eof-object? */
obj cx__25residual_2Deq_3F; /* %residual-eq? */
obj cx__25residual_2Dequal_3F; /* %residual-equal? */
obj cx__25residual_2Deqv_3F; /* %residual-eqv? */
obj cx__25residual_2Deven_3F; /* %residual-even? */
obj cx__25residual_2Dexact_2D_3Einexact; /* %residual-exact->inexact */
obj cx__25residual_2Dexact_2Dnonnegative_2Dinteger_3F; /* %residual-exact-nonnegative-integer? */
obj cx__25residual_2Dexit; /* %residual-exit */
obj cx__25residual_2Dexp; /* %residual-exp */
obj cx__25residual_2Dexpt; /* %residual-expt */
obj cx__25residual_2Dfile_2Dexists_3F; /* %residual-file-exists? */
obj cx__25residual_2Dfixnum_2D_3Eflonum; /* %residual-fixnum->flonum */
obj cx__25residual_2Dfixnum_2Dwidth; /* %residual-fixnum-width */
obj cx__25residual_2Dfixnum_3F; /* %residual-fixnum? */
obj cx__25residual_2Dfl_2A; /* %residual-fl* */
obj cx__25residual_2Dfl_2B; /* %residual-fl+ */
obj cx__25residual_2Dfl_2D; /* %residual-fl- */
obj cx__25residual_2Dfl_2F; /* %residual-fl/ */
obj cx__25residual_2Dfl_3C_3D_3F; /* %residual-fl<=? */
obj cx__25residual_2Dfl_3C_3F; /* %residual-fl<? */
obj cx__25residual_2Dfl_3D_3F; /* %residual-fl=? */
obj cx__25residual_2Dfl_3E_3D_3F; /* %residual-fl>=? */
obj cx__25residual_2Dfl_3E_3F; /* %residual-fl>? */
obj cx__25residual_2Dflabs; /* %residual-flabs */
obj cx__25residual_2Dflacos; /* %residual-flacos */
obj cx__25residual_2Dflasin; /* %residual-flasin */
obj cx__25residual_2Dflatan; /* %residual-flatan */
obj cx__25residual_2Dflceiling; /* %residual-flceiling */
obj cx__25residual_2Dflcos; /* %residual-flcos */
obj cx__25residual_2Dfleven_3F; /* %residual-fleven? */
obj cx__25residual_2Dflexp; /* %residual-flexp */
obj cx__25residual_2Dflexpt; /* %residual-flexpt */
obj cx__25residual_2Dflfloor; /* %residual-flfloor */
obj cx__25residual_2Dflgcd; /* %residual-flgcd */
obj cx__25residual_2Dflinteger_3F; /* %residual-flinteger? */
obj cx__25residual_2Dfllog; /* %residual-fllog */
obj cx__25residual_2Dflmax; /* %residual-flmax */
obj cx__25residual_2Dflmin; /* %residual-flmin */
obj cx__25residual_2Dflmodulo; /* %residual-flmodulo */
obj cx__25residual_2Dflnegative_3F; /* %residual-flnegative? */
obj cx__25residual_2Dflodd_3F; /* %residual-flodd? */
obj cx__25residual_2Dflonum_2D_3Efixnum; /* %residual-flonum->fixnum */
obj cx__25residual_2Dflonum_3F; /* %residual-flonum? */
obj cx__25residual_2Dfloor; /* %residual-floor */
obj cx__25residual_2Dflpositive_3F; /* %residual-flpositive? */
obj cx__25residual_2Dflquotient; /* %residual-flquotient */
obj cx__25residual_2Dflremainder; /* %residual-flremainder */
obj cx__25residual_2Dflround; /* %residual-flround */
obj cx__25residual_2Dflsin; /* %residual-flsin */
obj cx__25residual_2Dflsqrt; /* %residual-flsqrt */
obj cx__25residual_2Dfltan; /* %residual-fltan */
obj cx__25residual_2Dfltruncate; /* %residual-fltruncate */
obj cx__25residual_2Dflush_2Doutput_2Dport; /* %residual-flush-output-port */
obj cx__25residual_2Dflzero_3F; /* %residual-flzero? */
obj cx__25residual_2Dfor_2Deach; /* %residual-for-each */
obj cx__25residual_2Dfx_2A; /* %residual-fx* */
obj cx__25residual_2Dfx_2B; /* %residual-fx+ */
obj cx__25residual_2Dfx_2D; /* %residual-fx- */
obj cx__25residual_2Dfx_2F; /* %residual-fx/ */
obj cx__25residual_2Dfx_3C_3D_3F; /* %residual-fx<=? */
obj cx__25residual_2Dfx_3C_3F; /* %residual-fx<? */
obj cx__25residual_2Dfx_3D_3F; /* %residual-fx=? */
obj cx__25residual_2Dfx_3E_3D_3F; /* %residual-fx>=? */
obj cx__25residual_2Dfx_3E_3F; /* %residual-fx>? */
obj cx__25residual_2Dfxabs; /* %residual-fxabs */
obj cx__25residual_2Dfxand; /* %residual-fxand */
obj cx__25residual_2Dfxarithmetic_2Dshift_2Dleft; /* %residual-fxarithmetic-shift-left */
obj cx__25residual_2Dfxarithmetic_2Dshift_2Dright; /* %residual-fxarithmetic-shift-right */
obj cx__25residual_2Dfxdiv; /* %residual-fxdiv */
obj cx__25residual_2Dfxeven_3F; /* %residual-fxeven? */
obj cx__25residual_2Dfxexpt; /* %residual-fxexpt */
obj cx__25residual_2Dfxfl_2F; /* %residual-fxfl/ */
obj cx__25residual_2Dfxgcd; /* %residual-fxgcd */
obj cx__25residual_2Dfxior; /* %residual-fxior */
obj cx__25residual_2Dfxmax; /* %residual-fxmax */
obj cx__25residual_2Dfxmin; /* %residual-fxmin */
obj cx__25residual_2Dfxmod; /* %residual-fxmod */
obj cx__25residual_2Dfxmodulo; /* %residual-fxmodulo */
obj cx__25residual_2Dfxnegative_3F; /* %residual-fxnegative? */
obj cx__25residual_2Dfxnot; /* %residual-fxnot */
obj cx__25residual_2Dfxodd_3F; /* %residual-fxodd? */
obj cx__25residual_2Dfxpositive_3F; /* %residual-fxpositive? */
obj cx__25residual_2Dfxquotient; /* %residual-fxquotient */
obj cx__25residual_2Dfxremainder; /* %residual-fxremainder */
obj cx__25residual_2Dfxxor; /* %residual-fxxor */
obj cx__25residual_2Dfxzero_3F; /* %residual-fxzero? */
obj cx__25residual_2Dgcd; /* %residual-gcd */
obj cx__25residual_2Dget_2Ddatum; /* %residual-get-datum */
obj cx__25residual_2Dget_2Denvironment_2Dvariable; /* %residual-get-environment-variable */
obj cx__25residual_2Dgreatest_2Dfixnum; /* %residual-greatest-fixnum */
obj cx__25residual_2Dimag_2Dpart; /* %residual-imag-part */
obj cx__25residual_2Dindex_2Din_2Dstring_3F; /* %residual-index-in-string? */
obj cx__25residual_2Dindex_2Din_2Dvector_3F; /* %residual-index-in-vector? */
obj cx__25residual_2Dinexact_2D_3Eexact; /* %residual-inexact->exact */
obj cx__25residual_2Dinput_2Dport_3F; /* %residual-input-port? */
obj cx__25residual_2Dinteger_2D_3Echar; /* %residual-integer->char */
obj cx__25residual_2Dinteger_3F; /* %residual-integer? */
obj cx__25residual_2Djiffies_2Dper_2Dsecond; /* %residual-jiffies-per-second */
obj cx__25residual_2Dlast_2Dpair; /* %residual-last-pair */
obj cx__25residual_2Dlcm; /* %residual-lcm */
obj cx__25residual_2Dleast_2Dfixnum; /* %residual-least-fixnum */
obj cx__25residual_2Dlength; /* %residual-length */
obj cx__25residual_2Dlist; /* %residual-list */
obj cx__25residual_2Dlist_2D_3Estring; /* %residual-list->string */
obj cx__25residual_2Dlist_2D_3Evector; /* %residual-list->vector */
obj cx__25residual_2Dlist_2Dcopy; /* %residual-list-copy */
obj cx__25residual_2Dlist_2Dref; /* %residual-list-ref */
obj cx__25residual_2Dlist_2Dtail; /* %residual-list-tail */
obj cx__25residual_2Dlist_3F; /* %residual-list? */
obj cx__25residual_2Dlog; /* %residual-log */
obj cx__25residual_2Dmagnitude; /* %residual-magnitude */
obj cx__25residual_2Dmake_2Dcase_2Dlambda; /* %residual-make-case-lambda */
obj cx__25residual_2Dmake_2Dimproper_2Dlambda; /* %residual-make-improper-lambda */
obj cx__25residual_2Dmake_2Dpolar; /* %residual-make-polar */
obj cx__25residual_2Dmake_2Drectangular; /* %residual-make-rectangular */
obj cx__25residual_2Dmake_2Dstring; /* %residual-make-string */
obj cx__25residual_2Dmake_2Dvector; /* %residual-make-vector */
obj cx__25residual_2Dmake_2Dvoid_2Dcontinuation; /* %residual-make-void-continuation */
obj cx__25residual_2Dmap; /* %residual-map */
obj cx__25residual_2Dmax; /* %residual-max */
obj cx__25residual_2Dmax_2F2; /* %residual-max/2 */
obj cx__25residual_2Dmember; /* %residual-member */
obj cx__25residual_2Dmemq; /* %residual-memq */
obj cx__25residual_2Dmemv; /* %residual-memv */
obj cx__25residual_2Dmin; /* %residual-min */
obj cx__25residual_2Dmin_2F2; /* %residual-min/2 */
obj cx__25residual_2Dmodulo; /* %residual-modulo */
obj cx__25residual_2Dnegative_3F; /* %residual-negative? */
obj cx__25residual_2Dnewline; /* %residual-newline */
obj cx__25residual_2Dnot; /* %residual-not */
obj cx__25residual_2Dnull_3F; /* %residual-null? */
obj cx__25residual_2Dnumber_2D_3Estring; /* %residual-number->string */
obj cx__25residual_2Dnumerator; /* %residual-numerator */
obj cx__25residual_2Dodd_3F; /* %residual-odd? */
obj cx__25residual_2Dopen_2Dfile_2A; /* %residual-open-file* */
obj cx__25residual_2Dopen_2Dinput_2Dfile; /* %residual-open-input-file */
obj cx__25residual_2Dopen_2Dinput_2Dstring; /* %residual-open-input-string */
obj cx__25residual_2Dopen_2Doutput_2Dfile; /* %residual-open-output-file */
obj cx__25residual_2Doutput_2Dport_3F; /* %residual-output-port? */
obj cx__25residual_2Dpair_3F; /* %residual-pair? */
obj cx__25residual_2Dpeek_2Dchar; /* %residual-peek-char */
obj cx__25residual_2Dpositive_3F; /* %residual-positive? */
obj cx__25residual_2Dprocedure_2Dannotation; /* %residual-procedure-annotation */
obj cx__25residual_2Dprocedure_3F; /* %residual-procedure? */
obj cx__25residual_2Dput_2Ddatum; /* %residual-put-datum */
obj cx__25residual_2Dquotient; /* %residual-quotient */
obj cx__25residual_2Dradix_3F; /* %residual-radix? */
obj cx__25residual_2Drange_2Dargc_2D_3Eannotation; /* %residual-range-argc->annotation */
obj cx__25residual_2Drange_2Din_2Dstring_3F; /* %residual-range-in-string? */
obj cx__25residual_2Drationalize; /* %residual-rationalize */
obj cx__25residual_2Dread; /* %residual-read */
obj cx__25residual_2Dread_2Dchar; /* %residual-read-char */
obj cx__25residual_2Dreal_2D_3Efixnum; /* %residual-real->fixnum */
obj cx__25residual_2Dreal_2D_3Eflonum; /* %residual-real->flonum */
obj cx__25residual_2Dreal_2Dpart; /* %residual-real-part */
obj cx__25residual_2Dreal_3F; /* %residual-real? */
obj cx__25residual_2Dremainder; /* %residual-remainder */
obj cx__25residual_2Drename_2Dfile; /* %residual-rename-file */
obj cx__25residual_2Drest_2Dargc_2D_3Eannotation; /* %residual-rest-argc->annotation */
obj cx__25residual_2Dreverse; /* %residual-reverse */
obj cx__25residual_2Dreverse_21; /* %residual-reverse! */
obj cx__25residual_2Dround; /* %residual-round */
obj cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dref; /* %residual-scheme-global-var-ref */
obj cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dset_21; /* %residual-scheme-global-var-set! */
obj cx__25residual_2Dset_2Dcar_21; /* %residual-set-car! */
obj cx__25residual_2Dset_2Dcdr_21; /* %residual-set-cdr! */
obj cx__25residual_2Dsin; /* %residual-sin */
obj cx__25residual_2Dsqrt; /* %residual-sqrt */
obj cx__25residual_2Dstring; /* %residual-string */
obj cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum; /* %residual-string->fixnum-or-flonum */
obj cx__25residual_2Dstring_2D_3Elist; /* %residual-string->list */
obj cx__25residual_2Dstring_2D_3Enumber; /* %residual-string->number */
obj cx__25residual_2Dstring_2D_3Esymbol; /* %residual-string->symbol */
obj cx__25residual_2Dstring_2D_3Esymbol_2Fcf; /* %residual-string->symbol/cf */
obj cx__25residual_2Dstring_2Dappend; /* %residual-string-append */
obj cx__25residual_2Dstring_2Dappend_2F2; /* %residual-string-append/2 */
obj cx__25residual_2Dstring_2Dci_3C_3D_3F; /* %residual-string-ci<=? */
obj cx__25residual_2Dstring_2Dci_3C_3F; /* %residual-string-ci<? */
obj cx__25residual_2Dstring_2Dci_3D_3F; /* %residual-string-ci=? */
obj cx__25residual_2Dstring_2Dci_3E_3D_3F; /* %residual-string-ci>=? */
obj cx__25residual_2Dstring_2Dci_3E_3F; /* %residual-string-ci>? */
obj cx__25residual_2Dstring_2Dcopy; /* %residual-string-copy */
obj cx__25residual_2Dstring_2Dfill_21; /* %residual-string-fill! */
obj cx__25residual_2Dstring_2Dlength; /* %residual-string-length */
obj cx__25residual_2Dstring_2Dposition; /* %residual-string-position */
obj cx__25residual_2Dstring_2Dref; /* %residual-string-ref */
obj cx__25residual_2Dstring_2Dset_21; /* %residual-string-set! */
obj cx__25residual_2Dstring_3C_3D_3F; /* %residual-string<=? */
obj cx__25residual_2Dstring_3C_3F; /* %residual-string<? */
obj cx__25residual_2Dstring_3D_3F; /* %residual-string=? */
obj cx__25residual_2Dstring_3E_3D_3F; /* %residual-string>=? */
obj cx__25residual_2Dstring_3E_3F; /* %residual-string>? */
obj cx__25residual_2Dstring_3F; /* %residual-string? */
obj cx__25residual_2Dsubstring; /* %residual-substring */
obj cx__25residual_2Dsymbol_2D_3Estring; /* %residual-symbol->string */
obj cx__25residual_2Dsymbol_3F; /* %residual-symbol? */
obj cx__25residual_2Dsystem; /* %residual-system */
obj cx__25residual_2Dtan; /* %residual-tan */
obj cx__25residual_2Dtruncate; /* %residual-truncate */
obj cx__25residual_2Dvalues; /* %residual-values */
obj cx__25residual_2Dvector; /* %residual-vector */
obj cx__25residual_2Dvector_2D_3Elist; /* %residual-vector->list */
obj cx__25residual_2Dvector_2Dlength; /* %residual-vector-length */
obj cx__25residual_2Dvector_2Dref; /* %residual-vector-ref */
obj cx__25residual_2Dvector_2Dset_21; /* %residual-vector-set! */
obj cx__25residual_2Dvector_3F; /* %residual-vector? */
obj cx__25residual_2Dvoid; /* %residual-void */
obj cx__25residual_2Dwrite; /* %residual-write */
obj cx__25residual_2Dwrite_2Dchar; /* %residual-write-char */
obj cx__25residual_2Dwrite_2Dstring; /* %residual-write-string */
obj cx__25residual_2Dzero_3F; /* %residual-zero? */
obj cx__25residual_2F; /* %residual/ */
obj cx__25residual_3C; /* %residual< */
obj cx__25residual_3C_3D; /* %residual<= */
obj cx__25residual_3D; /* %residual= */
obj cx__25residual_3E; /* %residual> */
obj cx__25residual_3E_3D; /* %residual>= */
obj cx__2Acurrent_2Ddynamic_2Dstate_2A; /* *current-dynamic-state* */
obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */
obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */
obj cx__2Aexit_2A; /* *exit* */
obj cx__2Agreeting_2A; /* *greeting* */
obj cx__2Aquiet_2A; /* *quiet* */
obj cx__2Avalues_2Dtag_2A; /* *values-tag* */
obj cx_alist_3F; /* alist? */
obj cx_apply; /* apply */
obj cx_assertion_2Dviolation; /* assertion-violation */
obj cx_bindings_2D_3Esteps; /* bindings->steps */
obj cx_bindings_2D_3Evals; /* bindings->vals */
obj cx_bindings_2D_3Evars; /* bindings->vars */
obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */
obj cx_command_2Dline; /* command-line */
obj cx_comp_2Dand; /* comp-and */
obj cx_comp_2Dand_2Daux; /* comp-and-aux */
obj cx_comp_2Dbegin; /* comp-begin */
obj cx_comp_2Dbody; /* comp-body */
obj cx_comp_2Dcase; /* comp-case */
obj cx_comp_2Dcase_2Daux; /* comp-case-aux */
obj cx_comp_2Dcombination; /* comp-combination */
obj cx_comp_2Dcond; /* comp-cond */
obj cx_comp_2Dcond_2Daux; /* comp-cond-aux */
obj cx_comp_2Ddefine; /* comp-define */
obj cx_comp_2Ddefine_2Dmacro; /* comp-define-macro */
obj cx_comp_2Ddo; /* comp-do */
obj cx_comp_2Dif; /* comp-if */
obj cx_comp_2Dlambda; /* comp-lambda */
obj cx_comp_2Dlet; /* comp-let */
obj cx_comp_2Dlet_2A; /* comp-let* */
obj cx_comp_2Dletrec; /* comp-letrec */
obj cx_comp_2Dletrec_2Daux; /* comp-letrec-aux */
obj cx_comp_2Dor; /* comp-or */
obj cx_comp_2Dor_2Daux; /* comp-or-aux */
obj cx_comp_2Dquasiquotation; /* comp-quasiquotation */
obj cx_comp_2Dquasiquotation_2Dlist; /* comp-quasiquotation-list */
obj cx_comp_2Dquasiquote; /* comp-quasiquote */
obj cx_comp_2Dquote; /* comp-quote */
obj cx_comp_2Dself_2Deval; /* comp-self-eval */
obj cx_comp_2Dsequence; /* comp-sequence */
obj cx_comp_2Dsequence_2Daux; /* comp-sequence-aux */
obj cx_comp_2Dset_21; /* comp-set! */
obj cx_comp_2Dunquote; /* comp-unquote */
obj cx_comp_2Dunquote_2Dsplicing; /* comp-unquote-splicing */
obj cx_comp_2Dvals; /* comp-vals */
obj cx_comp_2Dvar; /* comp-var */
obj cx_definition_2Dname; /* definition-name */
obj cx_definition_2Dvalue; /* definition-value */
obj cx_dynamic_2Dstate_2Dreroot_21; /* dynamic-state-reroot! */
obj cx_dynamic_2Dwind; /* dynamic-wind */
obj cx_error; /* error */
obj cx_every_2Dchar_3F; /* every-char? */
obj cx_every_2Dcomplex_3F; /* every-complex? */
obj cx_every_2Dinteger_3F; /* every-integer? */
obj cx_every_2Dlist_2Dbut_2Dlast_3F; /* every-list-but-last? */
obj cx_every_2Dreal_3F; /* every-real? */
obj cx_every_2Dstring_3F; /* every-string? */
obj cx_fixnum_2D_3Estring; /* fixnum->string */
obj cx_flonum_2D_3Estring; /* flonum->string */
obj cx_fprintf_2A; /* fprintf* */
obj cx_gen_2Dand; /* gen-and */
obj cx_gen_2Dappend_2Dform; /* gen-append-form */
obj cx_gen_2Dcase; /* gen-case */
obj cx_gen_2Dcase_2Dclause; /* gen-case-clause */
obj cx_gen_2Dcase_2Delse; /* gen-case-else */
obj cx_gen_2Dcombination; /* gen-combination */
obj cx_gen_2Dcombination_2D0; /* gen-combination-0 */
obj cx_gen_2Dcombination_2D1; /* gen-combination-1 */
obj cx_gen_2Dcombination_2D2; /* gen-combination-2 */
obj cx_gen_2Dcombination_2D3; /* gen-combination-3 */
obj cx_gen_2Dcombination_2D4; /* gen-combination-4 */
obj cx_gen_2Dcombination_2Dn; /* gen-combination-n */
obj cx_gen_2Dcond_2Dsend; /* gen-cond-send */
obj cx_gen_2Dcons_2Dform; /* gen-cons-form */
obj cx_gen_2Dcst; /* gen-cst */
obj cx_gen_2Dglo_2Dref; /* gen-glo-ref */
obj cx_gen_2Dglo_2Dset; /* gen-glo-set */
obj cx_gen_2Dif; /* gen-if */
obj cx_gen_2Dlambda; /* gen-lambda */
obj cx_gen_2Dlambda_2D0; /* gen-lambda-0 */
obj cx_gen_2Dlambda_2D1; /* gen-lambda-1 */
obj cx_gen_2Dlambda_2D1_2Drest; /* gen-lambda-1-rest */
obj cx_gen_2Dlambda_2D2; /* gen-lambda-2 */
obj cx_gen_2Dlambda_2D2_2Drest; /* gen-lambda-2-rest */
obj cx_gen_2Dlambda_2D3; /* gen-lambda-3 */
obj cx_gen_2Dlambda_2D3_2Drest; /* gen-lambda-3-rest */
obj cx_gen_2Dlambda_2D4; /* gen-lambda-4 */
obj cx_gen_2Dlambda_2Dn; /* gen-lambda-n */
obj cx_gen_2Dlambda_2Dn_2Drest; /* gen-lambda-n-rest */
obj cx_gen_2Dlambda_2Drest; /* gen-lambda-rest */
obj cx_gen_2Dletrec; /* gen-letrec */
obj cx_gen_2Dletrec_2D1; /* gen-letrec-1 */
obj cx_gen_2Dletrec_2D2; /* gen-letrec-2 */
obj cx_gen_2Dletrec_2D3; /* gen-letrec-3 */
obj cx_gen_2Dletrec_2Dn; /* gen-letrec-n */
obj cx_gen_2Dmacro; /* gen-macro */
obj cx_gen_2Dor; /* gen-or */
obj cx_gen_2Drte_2Dref; /* gen-rte-ref */
obj cx_gen_2Drte_2Dset; /* gen-rte-set */
obj cx_gen_2Dsequence; /* gen-sequence */
obj cx_gen_2Dslot_2Dref_2D0; /* gen-slot-ref-0 */
obj cx_gen_2Dslot_2Dref_2D1; /* gen-slot-ref-1 */
obj cx_gen_2Dslot_2Dref_2Dup_2D2; /* gen-slot-ref-up-2 */
obj cx_gen_2Dslot_2Dset_2D0; /* gen-slot-set-0 */
obj cx_gen_2Dslot_2Dset_2D1; /* gen-slot-set-1 */
obj cx_gen_2Dslot_2Dset_2Dn; /* gen-slot-set-n */
obj cx_gen_2Dvar_2Dref; /* gen-var-ref */
obj cx_gen_2Dvar_2Dset; /* gen-var-set */
obj cx_gen_2Dvector_2Dform; /* gen-vector-form */
obj cx_gen_2Dwhen; /* gen-when */
obj cx_get_2Dglobal; /* get-global */
obj cx_greet_2Donce; /* greet-once */
obj cx_last_2Dlist_3F; /* last-list? */
obj cx_lcm_2F2; /* lcm/2 */
obj cx_list1_3F; /* list1? */
obj cx_lookup_2Dmacro; /* lookup-macro */
obj cx_lookup_2Dvar; /* lookup-var */
obj cx_lst_2D_3Evector; /* lst->vector */
obj cx_macro_2Dexpand; /* macro-expand */
obj cx_macro_3F; /* macro? */
obj cx_main; /* main */
obj cx_make_2Dannotated_2Dprocedure; /* make-annotated-procedure */
obj cx_make_2Dpromise; /* make-promise */
obj cx_parms_2D_3Eframe; /* parms->frame */
obj cx_print_2Derror_2Dmessage; /* print-error-message */
obj cx_print_2Dprocedure; /* print-procedure */
obj cx_push_2Dframe; /* push-frame */
obj cx_push_2Dmacro; /* push-macro */
obj cx_r_2Derror; /* r-error */
obj cx_read_2Ddatum; /* read-datum */
obj cx_reset; /* reset */
obj cx_rest_2Dparam_3F; /* rest-param? */
obj cx_reverse_2Dglobal_2Dlookup; /* reverse-global-lookup */
obj cx_scheme_2Dadd_2Dmacro; /* scheme-add-macro */
obj cx_scheme_2Dcomp; /* scheme-comp */
obj cx_scheme_2Deval; /* scheme-eval */
obj cx_scheme_2Deval_2D_3Elist; /* scheme-eval->list */
obj cx_scheme_2Dglobal_2Denvironment; /* scheme-global-environment */
obj cx_scheme_2Dglobal_2Dvar; /* scheme-global-var */
obj cx_scheme_2Dglobal_2Dvariables; /* scheme-global-variables */
obj cx_scheme_2Dsyntactic_2Dkeywords; /* scheme-syntactic-keywords */
obj cx_set_2Dglobal_21; /* set-global! */
obj cx_set_2Dreset_2Dhandler_21; /* set-reset-handler! */
obj cx_sfi_2Dpp; /* sfi-pp */
obj cx_sfi_2Drep; /* sfi-rep */
obj cx_sfi_2Drepl; /* sfi-repl */
obj cx_shape; /* shape */
obj cx_splice_2Dlast_2Dlist; /* splice-last-list */
obj cx_string_2D_3Efixnum; /* string->fixnum */
obj cx_string_2D_3Eflonum; /* string->flonum */
obj cx_unquote_2Dsplicing_3F; /* unquote-splicing? */
obj cx_variable; /* variable */
obj cx_vector_2D_3Elst; /* vector->lst */
obj cx_vector_2Dfill_21; /* vector-fill! */
obj cx_with_2Dinput_2Dfrom_2Dfile; /* with-input-from-file */
obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */
obj cx_wrapper_2Dfor; /* wrapper-for */
obj cx_wrapper_2Dfor_2Dchar; /* wrapper-for-char */
obj cx_wrapper_2Dfor_2Dchar_2D_2E_2E_2E; /* wrapper-for-char-... */
obj cx_wrapper_2Dfor_2Dchar_2Dchar; /* wrapper-for-char-char */
obj cx_wrapper_2Dfor_2Dchar_2Doport_2D_3F; /* wrapper-for-char-oport-? */
obj cx_wrapper_2Dfor_2Diport; /* wrapper-for-iport */
obj cx_wrapper_2Dfor_2Diport_2D_3F; /* wrapper-for-iport-? */
obj cx_wrapper_2Dfor_2Dk_2Dchar_2D_3F; /* wrapper-for-k-char-? */
obj cx_wrapper_2Dfor_2Dk_2Dobj_2D_3F; /* wrapper-for-k-obj-? */
obj cx_wrapper_2Dfor_2Dlist; /* wrapper-for-list */
obj cx_wrapper_2Dfor_2Dn; /* wrapper-for-n */
obj cx_wrapper_2Dfor_2Dn_2D_2E_2E_2E; /* wrapper-for-n-... */
obj cx_wrapper_2Dfor_2Dn_2D_3F; /* wrapper-for-n-? */
obj cx_wrapper_2Dfor_2Dn_2Dn; /* wrapper-for-n-n */
obj cx_wrapper_2Dfor_2Dobj; /* wrapper-for-obj */
obj cx_wrapper_2Dfor_2Dobj_2D_2E_2E_2E; /* wrapper-for-obj-... */
obj cx_wrapper_2Dfor_2Dobj_2Dalist; /* wrapper-for-obj-alist */
obj cx_wrapper_2Dfor_2Dobj_2Dlist; /* wrapper-for-obj-list */
obj cx_wrapper_2Dfor_2Dobj_2Dobj; /* wrapper-for-obj-obj */
obj cx_wrapper_2Dfor_2Dobj_2Doport_2D_3F; /* wrapper-for-obj-oport-? */
obj cx_wrapper_2Dfor_2Doport; /* wrapper-for-oport */
obj cx_wrapper_2Dfor_2Doport_2D_3F; /* wrapper-for-oport-? */
obj cx_wrapper_2Dfor_2Dpair; /* wrapper-for-pair */
obj cx_wrapper_2Dfor_2Dpair_2Dobj; /* wrapper-for-pair-obj */
obj cx_wrapper_2Dfor_2Dproc; /* wrapper-for-proc */
obj cx_wrapper_2Dfor_2Dproc_2Dk; /* wrapper-for-proc-k */
obj cx_wrapper_2Dfor_2Dproc_2Dobj; /* wrapper-for-proc-obj */
obj cx_wrapper_2Dfor_2Dproc1; /* wrapper-for-proc1 */
obj cx_wrapper_2Dfor_2Dq; /* wrapper-for-q */
obj cx_wrapper_2Dfor_2Dstring; /* wrapper-for-string */
obj cx_wrapper_2Dfor_2Dstring_2D_2E_2E_2E; /* wrapper-for-string-... */
obj cx_wrapper_2Dfor_2Dstring_2Dchar; /* wrapper-for-string-char */
obj cx_wrapper_2Dfor_2Dstring_2Dindex; /* wrapper-for-string-index */
obj cx_wrapper_2Dfor_2Dstring_2Dindex_2Dchar; /* wrapper-for-string-index-char */
obj cx_wrapper_2Dfor_2Dstring_2Dobj_2D_2E_2E_2E; /* wrapper-for-string-obj-... */
obj cx_wrapper_2Dfor_2Dstring_2Dproc1; /* wrapper-for-string-proc1 */
obj cx_wrapper_2Dfor_2Dstring_2Dradix_2D_3F; /* wrapper-for-string-radix-? */
obj cx_wrapper_2Dfor_2Dstring_2Dstart_2Dend; /* wrapper-for-string-start-end */
obj cx_wrapper_2Dfor_2Dstring_2Dstring; /* wrapper-for-string-string */
obj cx_wrapper_2Dfor_2Dstring_2Dthunk; /* wrapper-for-string-thunk */
obj cx_wrapper_2Dfor_2Dsymbol; /* wrapper-for-symbol */
obj cx_wrapper_2Dfor_2Dthunk_2Dproc; /* wrapper-for-thunk-proc */
obj cx_wrapper_2Dfor_2Dthunk_2Dthunk_2Dthunk; /* wrapper-for-thunk-thunk-thunk */
obj cx_wrapper_2Dfor_2Dvector; /* wrapper-for-vector */
obj cx_wrapper_2Dfor_2Dvector_2Dindex; /* wrapper-for-vector-index */
obj cx_wrapper_2Dfor_2Dvector_2Dindex_2Dobj; /* wrapper-for-vector-index-obj */
obj cx_wrapper_2Dfor_2Dvector_2Dobj; /* wrapper-for-vector-obj */
obj cx_wrapper_2Dfor_2Dx; /* wrapper-for-x */
obj cx_wrapper_2Dfor_2Dx_2Dx; /* wrapper-for-x-x */
obj cx_wrapper_2Dfor_2Dx_2Dx_2D_2E_2E_2E; /* wrapper-for-x-x-... */
obj cx_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E; /* wrapper-for-x-x-x-... */
obj cx_wrapper_2Dfor_2Dz; /* wrapper-for-z */
obj cx_wrapper_2Dfor_2Dz_2D_2E_2E_2E; /* wrapper-for-z-... */
obj cx_wrapper_2Dfor_2Dz_2Dradix_2D_3F; /* wrapper-for-z-radix-? */
obj cx_wrapper_2Dfor_2Dz_2Dx_2D_3F; /* wrapper-for-z-x-? */
obj cx_wrapper_2Dfor_2Dz_2Dz; /* wrapper-for-z-z */
obj cx_wrapper_2Dfor_2Dz_2Dz_2D_2E_2E_2E; /* wrapper-for-z-z-... */
obj cx_wrapper_2Dfor_2Dz_2Dz_2Dz_2D_2E_2E_2E; /* wrapper-for-z-z-z-... */
obj cx_write_2Ddatum; /* write-datum */
static obj cx__231000; /* constant #1000 */
static obj cx__231005; /* constant #1005 */
static obj cx__231008; /* constant #1008 */
static obj cx__231011; /* constant #1011 */
static obj cx__231014; /* constant #1014 */
static obj cx__231017; /* constant #1017 */
static obj cx__231029; /* constant #1029 */
static obj cx__231083; /* constant #1083 */
static obj cx__231087; /* constant #1087 */
static obj cx__231098; /* constant #1098 */
static obj cx__231121; /* constant #1121 */
static obj cx__231131; /* constant #1131 */
static obj cx__231135; /* constant #1135 */
static obj cx__231139; /* constant #1139 */
static obj cx__231163; /* constant #1163 */
static obj cx__231184; /* constant #1184 */
static obj cx__231204; /* constant #1204 */
static obj cx__231208; /* constant #1208 */
static obj cx__231212; /* constant #1212 */
static obj cx__231215; /* constant #1215 */
static obj cx__231242; /* constant #1242 */
static obj cx__231258; /* constant #1258 */
static obj cx__231266; /* constant #1266 */
static obj cx__231272; /* constant #1272 */
static obj cx__231282; /* constant #1282 */
static obj cx__231316; /* constant #1316 */
static obj cx__231317; /* constant #1317 */
static obj cx__231320; /* constant #1320 */
static obj cx__231327; /* constant #1327 */
static obj cx__231332; /* constant #1332 */
static obj cx__231337; /* constant #1337 */
static obj cx__231339; /* constant #1339 */
static obj cx__231344; /* constant #1344 */
static obj cx__231385; /* constant #1385 */
static obj cx__231402; /* constant #1402 */
static obj cx__231447; /* constant #1447 */
static obj cx__231485; /* constant #1485 */
static obj cx__231529; /* constant #1529 */
static obj cx__231530; /* constant #1530 */
static obj cx__231600; /* constant #1600 */
static obj cx__231739; /* constant #1739 */
static obj cx__231751; /* constant #1751 */
static obj cx__231755; /* constant #1755 */
static obj cx__232267; /* constant #2267 */
static obj cx__232284; /* constant #2284 */
static obj cx__232642; /* constant #2642 */
static obj cx__232724; /* constant #2724 */
static obj cx__232908; /* constant #2908 */
static obj cx__232928; /* constant #2928 */
static obj cx__233046; /* constant #3046 */
static obj cx__233166; /* constant #3166 */
static obj cx__233170; /* constant #3170 */
static obj cx__233189; /* constant #3189 */
static obj cx__233244; /* constant #3244 */
static obj cx__233325; /* constant #3325 */
static obj cx__233397; /* constant #3397 */
static obj cx__233449; /* constant #3449 */
static obj cx__233755; /* constant #3755 */
static obj cx__233760; /* constant #3760 */
static obj cx__233765; /* constant #3765 */
static obj cx__234773; /* constant #4773 */
static obj cx__234774; /* constant #4774 */
static obj cx__235154; /* constant #5154 */
static obj cx__236854; /* constant #6854 */
static obj cx__236860; /* constant #6860 */
static obj cx__236863; /* constant #6863 */
static obj cx__236868; /* constant #6868 */
static obj cx__236874; /* constant #6874 */
static obj cx__236875; /* constant #6875 */
static obj cx__236876; /* constant #6876 */
static obj cx__236877; /* constant #6877 */
static obj cx__236889; /* constant #6889 */
static obj cx__236897; /* constant #6897 */
static obj cx__236903; /* constant #6903 */
static obj cx__236908; /* constant #6908 */
static obj cx__236914; /* constant #6914 */
static obj cx__236920; /* constant #6920 */
static obj cx__23770; /* constant #770 */
static obj cx__23774; /* constant #774 */
static obj cx__23812; /* constant #812 */
static obj cx__23887; /* constant #887 */
static obj cx__23892; /* constant #892 */
static obj cx__23893; /* constant #893 */
static obj cx__23895; /* constant #895 */
static obj cx__23902; /* constant #902 */
static obj cx__23905; /* constant #905 */
static obj cx__23952; /* constant #952 */
static obj cx__23992; /* constant #992 */
static obj cx__23994; /* constant #994 */
static obj cx__23997; /* constant #997 */

/* helper functions */
/* %residual-real->fixnum */
static obj cxs__25residual_2Dreal_2D_3Efixnum(obj v71_n)
{ 
    return ((is_fixnum_obj(v71_n)) ? (v71_n) : obj_from_fixnum(fxflo(flonum_from_obj(v71_n))));
}

/* %residual-real? */
static obj cxs__25residual_2Dreal_3F(obj v131_x)
{ 
    return ((is_fixnum_obj(v131_x)) ? obj_from_bool(is_fixnum_obj(v131_x)) : obj_from_bool(is_flonum_obj(v131_x)));
}

/* %residual-integer? */
static obj cxs__25residual_2Dinteger_3F(obj v136_x)
{ 
  if ((is_fixnum_obj(v136_x))) {
    return obj_from_bool(is_fixnum_obj(v136_x));
  } else {
  if ((is_flonum_obj(v136_x))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(v136_x); 
    return obj_from_bool(f == floor(f)); };
  } else {
    return obj_from_bool(0);
  }
  }
}

/* %residual-inexact->exact */
static obj cxs__25residual_2Dinexact_2D_3Eexact(obj v142_x)
{ 
    return ((is_fixnum_obj(v142_x)) ? (v142_x) : obj_from_fixnum(fxflo(flonum_from_obj(v142_x))));
}

/* %residual-zero? */
static obj cxs__25residual_2Dzero_3F(obj v150_x)
{ 
    return ((is_fixnum_obj(v150_x)) ? obj_from_bool(fixnum_from_obj(v150_x) == 0) : obj_from_bool(flonum_from_obj(v150_x) == 0.0));
}

/* %residual-positive? */
static obj cxs__25residual_2Dpositive_3F(obj v155_x)
{ 
    return ((is_fixnum_obj(v155_x)) ? obj_from_bool(fixnum_from_obj(v155_x) > 0) : obj_from_bool(flonum_from_obj(v155_x) > 0.0));
}

/* %residual-negative? */
static obj cxs__25residual_2Dnegative_3F(obj v160_x)
{ 
    return ((is_fixnum_obj(v160_x)) ? obj_from_bool(fixnum_from_obj(v160_x) < 0) : obj_from_bool(flonum_from_obj(v160_x) < 0.0));
}

/* %residual-even? */
static obj cxs__25residual_2Deven_3F(obj v165_x)
{ 
  if ((is_fixnum_obj(v165_x))) {
    return obj_from_bool((fixnum_from_obj(v165_x) & 1) == 0);
  } else {
    { /* fleven? */ 
    flonum_t f = flonum_from_obj(v165_x) / 2.0;
    return obj_from_bool(f == floor(f)); };
  }
}

/* %residual-odd? */
static obj cxs__25residual_2Dodd_3F(obj v170_x)
{ 
  if ((is_fixnum_obj(v170_x))) {
    return obj_from_bool((fixnum_from_obj(v170_x) & 1) != 0);
  } else {
    { /* flodd? */ 
    flonum_t f = (flonum_from_obj(v170_x) + 1.0) / 2.0; 
    return obj_from_bool(f == floor(f)); };
  }
}

/* %residual-numerator */
static obj cxs__25residual_2Dnumerator(obj v289_n)
{ 
    return (v289_n);
}

/* %residual-rationalize */
static obj cxs__25residual_2Drationalize(obj v294_n, obj v293_d)
{ 
    return (v294_n);
}

/* vector-fill! */
static obj cxs_vector_2Dfill_21(obj v499_v, obj v498_x)
{ 
  { /* letrec */
    obj v503_i;
  { /* let */
    obj v8736_tmp = obj_from_fixnum(+0);
    /* tail call */
    v503_i = (v8736_tmp);
    goto s_loop;
  }
  s_loop:
  if ((fixnum_from_obj(v503_i) == (vectorlen((v499_v))))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(vectorref((v499_v), fixnum_from_obj(v503_i)) = (v498_x));
  { /* let */
    obj v8735_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v503_i), (+1)));
    /* tail call */
    v503_i = (v8735_tmp);
    goto s_loop;
  }
  }
  }
}

/* %residual-eqv? */
static obj cxs__25residual_2Deqv_3F(obj v851_x, obj v850_y)
{ 
    return (((v851_x) == (v850_y)) ? obj_from_bool((v851_x) == (v850_y)) : ((is_flonum_obj(v851_x)) ? ((is_flonum_obj(v850_y)) ? obj_from_bool(flonum_from_obj(v851_x) == flonum_from_obj(v850_y)) : obj_from_bool(0)) : obj_from_bool(0)));
}

/* %residual-real-part */
static obj cxs__25residual_2Dreal_2Dpart(obj v1771_x)
{ 
    return (v1771_x);
}

/* %residual-angle */
static obj cxs__25residual_2Dangle(obj v1781_x)
{ 
    return (bool_from_obj((is_fixnum_obj(v1781_x)) ? obj_from_bool(fixnum_from_obj(v1781_x) < 0) : obj_from_bool(flonum_from_obj(v1781_x) < 0.0)) ? (cx__231755) : obj_from_fixnum(+0));
}

/* list1? */
static obj cxs_list1_3F(obj v2859_x)
{ 
    return ((ispair((v2859_x))) ? obj_from_bool(isnull((cdr((v2859_x))))) : obj_from_bool(0));
}

/* %residual-annotated-procedure-argc-ok? */
static obj cxs__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F(obj v2973_ap, obj v2972_argc)
{ 
  { /* let */
    obj v2977_ann = (*procedureref((v2973_ap), (fxsub((procedurelen((v2973_ap))), (+1)))));
    return (((fxquo(fixnum_from_obj(v2977_ann), (+1000))) <= fixnum_from_obj(v2972_argc)) ? obj_from_bool(fixnum_from_obj(v2972_argc) <= (fxrem(fixnum_from_obj(v2977_ann), (+1000)))) : obj_from_bool(0));
  }
}

/* unquote-splicing? */
static obj cxs_unquote_2Dsplicing_3F(obj v3318_x)
{ 
    return ((ispair((v3318_x))) ? (((car((v3318_x))) == (mksymbol(internsym("unquote-splicing", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) : obj_from_bool(0));
}

/* rest-param? */
static obj cxs_rest_2Dparam_3F(obj v3378_parms)
{ 
  s_rest_2Dparam_3F:
  if ((ispair((v3378_parms)))) {
  { /* let */
    obj v8734_tmp = (cdr((v3378_parms)));
    /* tail call */
    v3378_parms = (v8734_tmp);
    goto s_rest_2Dparam_3F;
  }
  } else {
    return ((isnull((v3378_parms))) ? obj_from_bool(0) : obj_from_bool(1));
  }
}

/* alist? */
static obj cxs_alist_3F(obj v5011_x)
{ 
  s_alist_3F:
  if ((isnull((v5011_x)))) {
    return obj_from_bool(isnull((v5011_x)));
  } else {
  if ((ispair((v5011_x)))) {
  if ((ispair((car((v5011_x)))))) {
  { /* let */
    obj v8733_tmp = (cdr((v5011_x)));
    /* tail call */
    v5011_x = (v8733_tmp);
    goto s_alist_3F;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
  }
}

/* %residual-exact-nonnegative-integer? */
static obj cxs__25residual_2Dexact_2Dnonnegative_2Dinteger_3F(obj v5019_x)
{ 
    return ((is_fixnum_obj(v5019_x)) ? obj_from_bool(fixnum_from_obj(v5019_x) >= (+0)) : obj_from_bool(0));
}

/* %residual-radix? */
static obj cxs__25residual_2Dradix_3F(obj v5022_x)
{ 
    return ((is_fixnum_obj(v5022_x)) ? ((fixnum_from_obj(v5022_x) == (+2)) ? obj_from_bool(fixnum_from_obj(v5022_x) == (+2)) : ((fixnum_from_obj(v5022_x) == (+8)) ? obj_from_bool(fixnum_from_obj(v5022_x) == (+8)) : ((fixnum_from_obj(v5022_x) == (+10)) ? obj_from_bool(fixnum_from_obj(v5022_x) == (+10)) : obj_from_bool(fixnum_from_obj(v5022_x) == (+16))))) : obj_from_bool(0));
}

/* %residual-index-in-vector? */
static obj cxs__25residual_2Dindex_2Din_2Dvector_3F(obj v5029_v, obj v5028_x)
{ 
    return ((is_fixnum_obj(v5028_x)) ? ((fixnum_from_obj(v5028_x) >= (+0)) ? obj_from_bool(fixnum_from_obj(v5028_x) < (vectorlen((v5029_v)))) : obj_from_bool(0)) : obj_from_bool(0));
}

/* %residual-index-in-string? */
static obj cxs__25residual_2Dindex_2Din_2Dstring_3F(obj v5034_s, obj v5033_x)
{ 
    return ((is_fixnum_obj(v5033_x)) ? ((fixnum_from_obj(v5033_x) >= (+0)) ? obj_from_bool(fixnum_from_obj(v5033_x) < (stringlen((v5034_s)))) : obj_from_bool(0)) : obj_from_bool(0));
}

/* %residual-range-in-string? */
static obj cxs__25residual_2Drange_2Din_2Dstring_3F(obj v5040_s, obj v5039_x, obj v5038_y)
{ 
    return ((is_fixnum_obj(v5039_x)) ? ((is_fixnum_obj(v5038_y)) ? (((+0) <= fixnum_from_obj(v5039_x)) ? ((fixnum_from_obj(v5039_x) <= fixnum_from_obj(v5038_y)) ? obj_from_bool(fixnum_from_obj(v5038_y) <= (stringlen((v5040_s)))) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0));
}

/* every-complex? */
static obj cxs_every_2Dcomplex_3F(obj v5045_l)
{ 
  { /* letrec */
    obj v5047_id;
    /* tail call */
    v5047_id = (v5045_l);
    goto s_loop;
  s_loop:
  if ((isnull((v5047_id)))) {
    return obj_from_bool(isnull((v5047_id)));
  } else {
  { /* let */
    obj v8731_tmp;
  { /* let */
    obj v5052_x = (car((v5047_id)));
    v8731_tmp = ((is_fixnum_obj(v5052_x)) ? obj_from_bool(is_fixnum_obj(v5052_x)) : obj_from_bool(is_flonum_obj(v5052_x)));
  }
  if (bool_from_obj(v8731_tmp)) {
  { /* let */
    obj v8732_tmp = (cdr((v5047_id)));
    /* tail call */
    v5047_id = (v8732_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
}

/* every-real? */
static obj cxs_every_2Dreal_3F(obj v5060_l)
{ 
  { /* letrec */
    obj v5062_id;
    /* tail call */
    v5062_id = (v5060_l);
    goto s_loop;
  s_loop:
  if ((isnull((v5062_id)))) {
    return obj_from_bool(isnull((v5062_id)));
  } else {
  { /* let */
    obj v8729_tmp;
  { /* let */
    obj v5067_x = (car((v5062_id)));
    v8729_tmp = ((is_fixnum_obj(v5067_x)) ? obj_from_bool(is_fixnum_obj(v5067_x)) : obj_from_bool(is_flonum_obj(v5067_x)));
  }
  if (bool_from_obj(v8729_tmp)) {
  { /* let */
    obj v8730_tmp = (cdr((v5062_id)));
    /* tail call */
    v5062_id = (v8730_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
}

/* every-integer? */
static obj cxs_every_2Dinteger_3F(obj v5075_l)
{ 
  { /* letrec */
    obj v5077_id;
    /* tail call */
    v5077_id = (v5075_l);
    goto s_loop;
  s_loop:
  if ((isnull((v5077_id)))) {
    return obj_from_bool(isnull((v5077_id)));
  } else {
  { /* let */
    obj v8727_tmp;
  { /* let */
    obj v5082_x = (car((v5077_id)));
  if ((is_fixnum_obj(v5082_x))) {
    v8727_tmp = obj_from_bool(is_fixnum_obj(v5082_x));
  } else {
  if ((is_flonum_obj(v5082_x))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(v5082_x); 
    v8727_tmp = obj_from_bool(f == floor(f)); };
  } else {
    v8727_tmp = obj_from_bool(0);
  }
  }
  }
  if (bool_from_obj(v8727_tmp)) {
  { /* let */
    obj v8728_tmp = (cdr((v5077_id)));
    /* tail call */
    v5077_id = (v8728_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
}

/* every-char? */
static obj cxs_every_2Dchar_3F(obj v5091_l)
{ 
  { /* letrec */
    obj v5093_id;
    /* tail call */
    v5093_id = (v5091_l);
    goto s_loop;
  s_loop:
  if ((isnull((v5093_id)))) {
    return obj_from_bool(isnull((v5093_id)));
  } else {
  if ((is_char_obj(car((v5093_id))))) {
  { /* let */
    obj v8726_tmp = (cdr((v5093_id)));
    /* tail call */
    v5093_id = (v8726_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
}

/* every-string? */
static obj cxs_every_2Dstring_3F(obj v5103_l)
{ 
  { /* letrec */
    obj v5105_id;
    /* tail call */
    v5105_id = (v5103_l);
    goto s_loop;
  s_loop:
  if ((isnull((v5105_id)))) {
    return obj_from_bool(isnull((v5105_id)));
  } else {
  if ((isstring((car((v5105_id)))))) {
  { /* let */
    obj v8725_tmp = (cdr((v5105_id)));
    /* tail call */
    v5105_id = (v8725_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
}

/* every-list-but-last? */
static obj cxs_every_2Dlist_2Dbut_2Dlast_3F(obj v5115_l)
{ 
  { /* letrec */
    obj v5117_l;
    /* tail call */
    v5117_l = (v5115_l);
    goto s_loop;
  s_loop:
  if (bool_from_obj(cxs_list1_3F((v5117_l)))) {
    return obj_from_bool(1);
  } else {
  if ((ispair((v5117_l)))) {
  if ((islist((car((v5117_l)))))) {
  { /* let */
    obj v8724_tmp = (cdr((v5117_l)));
    /* tail call */
    v5117_l = (v8724_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(1);
  }
  }
  }
}

/* last-list? */
static obj cxs_last_2Dlist_3F(obj v5126_l)
{ 
  { /* letrec */
    obj v5128_l;
    /* tail call */
    v5128_l = (v5126_l);
    goto s_loop;
  s_loop:
  if (bool_from_obj(cxs_list1_3F((v5128_l)))) {
    return obj_from_bool(islist((car((v5128_l)))));
  } else {
  if ((ispair((v5128_l)))) {
  { /* let */
    obj v8723_tmp = (cdr((v5128_l)));
    /* tail call */
    v5128_l = (v8723_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
}

/* gc roots */
static obj *globv[] = {
  &cx__25fail_2Dlambda,
  &cx__25residual_2A,
  &cx__25residual_2B,
  &cx__25residual_2D,
  &cx__25residual_2Dappend,
  &cx__25residual_2Datan,
  &cx__25residual_2Dchar_2Dready_3F,
  &cx__25residual_2Dcons_2A,
  &cx__25residual_2Ddisplay,
  &cx__25residual_2Ddisplay_2Dfixnum,
  &cx__25residual_2Ddisplay_2Dflonum,
  &cx__25residual_2Ddisplay_2Dinput_2Dport,
  &cx__25residual_2Ddisplay_2Dprocedure,
  &cx__25residual_2Dexit,
  &cx__25residual_2Dfl_2A,
  &cx__25residual_2Dfl_2B,
  &cx__25residual_2Dfl_2D,
  &cx__25residual_2Dfl_2F,
  &cx__25residual_2Dfl_3C_3D_3F,
  &cx__25residual_2Dfl_3C_3F,
  &cx__25residual_2Dfl_3D_3F,
  &cx__25residual_2Dfl_3E_3D_3F,
  &cx__25residual_2Dfl_3E_3F,
  &cx__25residual_2Dflatan,
  &cx__25residual_2Dflmax,
  &cx__25residual_2Dflmin,
  &cx__25residual_2Dfor_2Deach,
  &cx__25residual_2Dfx_2A,
  &cx__25residual_2Dfx_2B,
  &cx__25residual_2Dfx_2D,
  &cx__25residual_2Dfx_2F,
  &cx__25residual_2Dfx_3C_3D_3F,
  &cx__25residual_2Dfx_3C_3F,
  &cx__25residual_2Dfx_3D_3F,
  &cx__25residual_2Dfx_3E_3D_3F,
  &cx__25residual_2Dfx_3E_3F,
  &cx__25residual_2Dfxmax,
  &cx__25residual_2Dfxmin,
  &cx__25residual_2Dgcd,
  &cx__25residual_2Dlcm,
  &cx__25residual_2Dlist,
  &cx__25residual_2Dmake_2Dcase_2Dlambda,
  &cx__25residual_2Dmake_2Dstring,
  &cx__25residual_2Dmake_2Dvector,
  &cx__25residual_2Dmap,
  &cx__25residual_2Dmax,
  &cx__25residual_2Dmin,
  &cx__25residual_2Dnewline,
  &cx__25residual_2Dnumber_2D_3Estring,
  &cx__25residual_2Dpeek_2Dchar,
  &cx__25residual_2Dread,
  &cx__25residual_2Dread_2Dchar,
  &cx__25residual_2Dstring,
  &cx__25residual_2Dstring_2D_3Enumber,
  &cx__25residual_2Dstring_2Dappend,
  &cx__25residual_2Dvalues,
  &cx__25residual_2Dvector,
  &cx__25residual_2Dwrite,
  &cx__25residual_2Dwrite_2Dchar,
  &cx__25residual_2Dwrite_2Dstring,
  &cx__25residual_2F,
  &cx__25residual_3C,
  &cx__25residual_3C_3D,
  &cx__25residual_3D,
  &cx__25residual_3E,
  &cx__25residual_3E_3D,
  &cx__2Acurrent_2Ddynamic_2Dstate_2A,
  &cx__2Acurrent_2Derror_2Dport_2A,
  &cx__2Acurrent_2Dinput_2Dport_2A,
  &cx__2Acurrent_2Doutput_2Dport_2A,
  &cx__2Aexit_2A,
  &cx__2Agreeting_2A,
  &cx__2Aquiet_2A,
  &cx__2Avalues_2Dtag_2A,
  &cx_apply,
  &cx_assertion_2Dviolation,
  &cx_error,
  &cx_r_2Derror,
  &cx_read_2Ddatum,
  &cx_reset,
  &cx_scheme_2Dglobal_2Denvironment,
  &cx_scheme_2Dglobal_2Dvariables,
  &cx_scheme_2Dsyntactic_2Dkeywords,
  &cx_write_2Ddatum,
  &cx__231000,
  &cx__231005,
  &cx__231008,
  &cx__231011,
  &cx__231014,
  &cx__231017,
  &cx__231029,
  &cx__231083,
  &cx__231087,
  &cx__231098,
  &cx__231121,
  &cx__231131,
  &cx__231135,
  &cx__231139,
  &cx__231163,
  &cx__231184,
  &cx__231204,
  &cx__231208,
  &cx__231212,
  &cx__231215,
  &cx__231242,
  &cx__231258,
  &cx__231266,
  &cx__231272,
  &cx__231282,
  &cx__231316,
  &cx__231317,
  &cx__231320,
  &cx__231327,
  &cx__231332,
  &cx__231337,
  &cx__231339,
  &cx__231344,
  &cx__231385,
  &cx__231402,
  &cx__231447,
  &cx__231485,
  &cx__231529,
  &cx__231530,
  &cx__231600,
  &cx__231739,
  &cx__231751,
  &cx__231755,
  &cx__232267,
  &cx__232284,
  &cx__232642,
  &cx__232724,
  &cx__232908,
  &cx__232928,
  &cx__233046,
  &cx__233166,
  &cx__233170,
  &cx__233189,
  &cx__233244,
  &cx__233325,
  &cx__233397,
  &cx__233449,
  &cx__233755,
  &cx__233760,
  &cx__233765,
  &cx__234773,
  &cx__234774,
  &cx__235154,
  &cx__236854,
  &cx__236860,
  &cx__236863,
  &cx__236868,
  &cx__236874,
  &cx__236875,
  &cx__236876,
  &cx__236877,
  &cx__236889,
  &cx__236897,
  &cx__236903,
  &cx__236908,
  &cx__236914,
  &cx__236920,
  &cx__23770,
  &cx__23774,
  &cx__23812,
  &cx__23887,
  &cx__23892,
  &cx__23893,
  &cx__23895,
  &cx__23902,
  &cx__23905,
  &cx__23952,
  &cx__23992,
  &cx__23994,
  &cx__23997,
};

static cxroot_t root = {
  sizeof(globv)/sizeof(obj *), globv, NULL
};

/* entry points */
static obj host(obj);
static obj cases[1646] = {
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,
};

/* host procedure */
#define MAX_HOSTREGS 52
static obj host(obj pc)
{
  register obj *r = cxg_regs;
  register obj *hp = cxg_hp;
  register int rc = cxg_rc;
  rreserve(MAX_HOSTREGS); 
jump: 
  switch (case_from_obj(pc)) {

case 0: /* load module */
    cx__23770 = (hpushstr(0, newstring("r")));
    cx__23774 = (hpushstr(0, newstring("cannot open file")));
    cx__23812 = (hpushstr(0, newstring("w")));
    cx__23887 = (hpushstr(0, newstring("#<unknown>")));
    cx__23892 = (hpushstr(0, newstring("#f")));
    cx__23893 = (hpushstr(0, newstring("#t")));
    cx__23895 = (hpushstr(0, newstring("()")));
    cx__23902 = (hpushstr(0, newstring("#<oport>")));
    cx__23905 = (hpushstr(0, newstring("#<eof>")));
    cx__23952 = (hpushstr(0, newstring("#(")));
    { static char s[] = { 35, 92, 0 };
    cx__23992 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 115, 112, 97, 99, 101, 0 };
    cx__23994 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 114, 101, 116, 117, 114, 110, 0 };
    cx__23997 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 112, 97, 103, 101, 0 };
    cx__231000 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 118, 116, 97, 98, 0 };
    cx__231005 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 110, 101, 119, 108, 105, 110, 101, 0 };
    cx__231008 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 116, 97, 98, 0 };
    cx__231011 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 98, 97, 99, 107, 115, 112, 97, 99, 101, 0 };
    cx__231014 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 35, 92, 97, 108, 97, 114, 109, 0 };
    cx__231017 = (hpushstr(0, newstring(s))); }
    cx__231029 = (hpushstr(0, newstring(" . ")));
    cx__231083 = (hpushstr(0, newstring(": ")));
    cx__231087 = (hpushstr(0, newstring(" in ")));
    cx__231098 = (hpushstr(0, newstring("Error")));
    cx__231121 = (hpushstr(0, newstring("Assertion violation")));
    cx__231131 = (hpushstr(0, newstring("right parenthesis")));
    cx__231135 = (hpushstr(0, newstring("right bracket")));
    { static char s[] = { 34, 32, 46, 32, 34, 0 };
    cx__231139 = (hpushstr(0, newstring(s))); }
    cx__231163 = (hpushstr(0, newstring("unexpected number/symbol char")));
    cx__231184 = (hpushstr(0, newstring("unsupported number syntax")));
    cx__231204 = (hpushstr(0, newstring("+")));
    cx__231208 = (hpushstr(0, newstring("-")));
    cx__231212 = (hpushstr(0, newstring("...")));
    cx__231215 = (hpushstr(0, newstring(".")));
    { static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 115, 104, 111, 114, 116, 0 };
    cx__231242 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 108, 111, 110, 103, 0 };
    cx__231258 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 117, 110, 101, 120, 112, 101, 99, 116, 101, 100, 32, 99, 104, 97, 114, 32, 105, 110, 32, 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 0 };
    cx__231266 = (hpushstr(0, newstring(s))); }
    cx__231272 = (hpushstr(0, newstring("end of file within a string")));
    cx__231282 = (hpushstr(0, newstring("invalid char escape in string")));
    cx__231316 = (hpushstr(0, newstring("error inside list --")));
    cx__231317 = (hpushstr(0, newstring("dot in #(...)")));
    cx__231320 = (hpushstr(0, newstring("randomness after form after dot")));
    cx__231327 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses")));
    cx__231332 = (hpushstr(0, newstring("missing car -- ( immediately followed by .")));
    cx__231337 = (hpushstr(0, newstring("illegal character read")));
    cx__231339 = (hpushstr(0, newstring("unknown # syntax")));
    { static char s[] = { 117, 110, 107, 110, 111, 119, 110, 32, 35, 92, 32, 110, 97, 109, 101, 0 };
    cx__231344 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 101, 110, 100, 32, 111, 102, 32, 102, 105, 108, 101, 32, 97, 102, 116, 101, 114, 32, 35, 92, 0 };
    cx__231385 = (hpushstr(0, newstring(s))); }
    cx__231402 = (hpushstr(0, newstring("end of file in #| comment")));
    cx__231447 = (hpushstr(0, newstring("end of file after #")));
    cx__231485 = (hpushstr(0, newstring("end of file after ,")));
    cx__231529 = (hpushstr(0, newstring("unexpected token:")));
    cx__231530 = (hpushstr(0, newstring("unexpected end of file")));
    { static char s[] = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 33, 36, 37, 38, 42, 47, 58, 60, 61, 62, 63, 94, 95, 126, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 43, 45, 46, 64, 0 };
    cx__231600 = (hpushstr(0, newstring(s))); }
    cx__231739 = (hpushstr(0, newstring("nonzero imag part not supported")));
    cx__231751 = (hpushstr(0, newstring("angle not supported")));
    cx__231755 = obj_from_flonum(0, +3.141592653589793238462643e+0);
    cx__232267 = obj_from_flonum(0, +0.0e+0);
    cx__232284 = obj_from_flonum(0, +1.0e+0);
    cx__232642 = (hpushstr(0, newstring("")));
    cx__232724 = (hpushstr(0, newstring("unexpected number of arguments")));
    cx__232908 = (hpushstr(0, newstring("#<code>")));
    cx__232928 = (hpushstr(0, newstring("#<procedure ")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("define-macro", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("define", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("do", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("begin", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("letrec", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let*", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("case", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("or", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("and", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("else", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("=>", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("cond", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("set!", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("if", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("lambda", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("unquote-splicing", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("unquote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("quasiquote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("quote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233046 = (hendblk(3)); }
    cx__233166 = (hpushstr(0, newstring("variable name can not be a syntactic keyword")));
    cx__233170 = (hpushstr(0, newstring("identifier expected")));
    cx__233189 = (hpushstr(0, newstring("ill-constructed form")));
    { static char s[] = { 105, 108, 108, 45, 112, 108, 97, 99, 101, 100, 32, 39, 117, 110, 113, 117, 111, 116, 101, 45, 115, 112, 108, 105, 99, 105, 110, 103, 39, 0 };
    cx__233244 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 105, 108, 108, 45, 112, 108, 97, 99, 101, 100, 32, 39, 117, 110, 113, 117, 111, 116, 101, 39, 0 };
    cx__233325 = (hpushstr(0, newstring(s))); }
    cx__233397 = (hpushstr(0, newstring("Body must contain at least one evaluable expression")));
    cx__233449 = (hpushstr(0, newstring("Identifier expected")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233755 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233760 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233765 = (hendblk(3)); }
    cx__234773 = (hpushstr(0, newstring("attempt to call non-procedure")));
    { static char s[] = { 112, 114, 111, 99, 101, 100, 117, 114, 101, 32, 99, 97, 110, 39, 116, 32, 98, 101, 32, 99, 97, 108, 108, 101, 100, 32, 119, 105, 116, 104, 32, 97, 114, 103, 99, 32, 61, 0 };
    cx__234774 = (hpushstr(0, newstring(s))); }
    cx__235154 = (hpushstr(0, newstring("unexpected arguments to")));
    cx__236854 = (hpushstr(0, newstring("S4IOF Scheme Interpreter 1.0.1~%")));
    cx__236860 = (hpushstr(0, newstring("; returning to top level~%")));
    cx__236863 = (hpushstr(0, newstring("> ")));
    cx__236868 = (hpushstr(0, newstring("~%")));
    cx__236874 = (hpushstr(0, newstring("-x  exit after loading files on the command line~%")));
    cx__236875 = (hpushstr(0, newstring("-q  suppress greeting~%")));
    cx__236876 = (hpushstr(0, newstring("Usage: s4iof [-qx] file ...~%")));
    cx__236877 = (hpushstr(0, newstring("s4iof 1.0.1~%")));
    cx__236889 = (hpushstr(0, newstring("; loading ~a...~%")));
    cx__236897 = (hpushstr(0, newstring("cannot open input file ~a~%")));
    cx__236903 = (hpushstr(0, newstring("-h")));
    cx__236908 = (hpushstr(0, newstring("--help")));
    cx__236914 = (hpushstr(0, newstring("-x")));
    cx__236920 = (hpushstr(0, newstring("-q")));
    { static obj c[] = { obj_from_case(1) }; cx__25residual_2Dvoid = (obj)c; }
    { static obj c[] = { obj_from_case(2) }; cx__25residual_2Dboolean_3F = (obj)c; }
    { static obj c[] = { obj_from_case(3) }; cx__25residual_2Dnot = (obj)c; }
    { static obj c[] = { obj_from_case(4) }; cx__25residual_2Dfixnum_3F = (obj)c; }
    { static obj c[] = { obj_from_case(5) }; cx__25residual_2Dfixnum_2Dwidth = (obj)c; }
    { static obj c[] = { obj_from_case(6) }; cx__25residual_2Dleast_2Dfixnum = (obj)c; }
    { static obj c[] = { obj_from_case(7) }; cx__25residual_2Dgreatest_2Dfixnum = (obj)c; }
    { static obj c[] = { obj_from_case(8) }; cx__25residual_2Dfxzero_3F = (obj)c; }
    { static obj c[] = { obj_from_case(9) }; cx__25residual_2Dfxpositive_3F = (obj)c; }
    { static obj c[] = { obj_from_case(10) }; cx__25residual_2Dfxnegative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(11) }; cx__25residual_2Dfxodd_3F = (obj)c; }
    { static obj c[] = { obj_from_case(12) }; cx__25residual_2Dfxeven_3F = (obj)c; }
    { static obj c[] = { obj_from_case(13) }; cx__25residual_2Dfxquotient = (obj)c; }
    { static obj c[] = { obj_from_case(14) }; cx__25residual_2Dfxremainder = (obj)c; }
    { static obj c[] = { obj_from_case(15) }; cx__25residual_2Dfxmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(16) }; cx__25residual_2Dfxdiv = (obj)c; }
    { static obj c[] = { obj_from_case(17) }; cx__25residual_2Dfxmod = (obj)c; }
    { static obj c[] = { obj_from_case(18) }; cx__25residual_2Dfxabs = (obj)c; }
    { static obj c[] = { obj_from_case(19) }; cx__25residual_2Dfxgcd = (obj)c; }
    { static obj c[] = { obj_from_case(20) }; cx__25residual_2Dfxexpt = (obj)c; }
    { static obj c[] = { obj_from_case(21) }; cx__25residual_2Dfxnot = (obj)c; }
    { static obj c[] = { obj_from_case(22) }; cx__25residual_2Dfxand = (obj)c; }
    { static obj c[] = { obj_from_case(23) }; cx__25residual_2Dfxior = (obj)c; }
    { static obj c[] = { obj_from_case(24) }; cx__25residual_2Dfxxor = (obj)c; }
    { static obj c[] = { obj_from_case(25) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dleft = (obj)c; }
    { static obj c[] = { obj_from_case(26) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dright = (obj)c; }
    { static obj c[] = { obj_from_case(27) }; cx__25residual_2Dflonum_3F = (obj)c; }
    { static obj c[] = { obj_from_case(28) }; cx__25residual_2Dfixnum_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(29) }; cx__25residual_2Dflonum_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(30) }; cx__25residual_2Dreal_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(31) }; cx__25residual_2Dreal_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(32) }; cx__25residual_2Dflinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(33) }; cx__25residual_2Dflzero_3F = (obj)c; }
    { static obj c[] = { obj_from_case(34) }; cx__25residual_2Dflpositive_3F = (obj)c; }
    { static obj c[] = { obj_from_case(35) }; cx__25residual_2Dflnegative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(36) }; cx__25residual_2Dflodd_3F = (obj)c; }
    { static obj c[] = { obj_from_case(37) }; cx__25residual_2Dfleven_3F = (obj)c; }
    { static obj c[] = { obj_from_case(38) }; cx__25residual_2Dflquotient = (obj)c; }
    { static obj c[] = { obj_from_case(39) }; cx__25residual_2Dflremainder = (obj)c; }
    { static obj c[] = { obj_from_case(40) }; cx__25residual_2Dflmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(41) }; cx__25residual_2Dflabs = (obj)c; }
    { static obj c[] = { obj_from_case(42) }; cx__25residual_2Dflgcd = (obj)c; }
    { static obj c[] = { obj_from_case(43) }; cx__25residual_2Dflfloor = (obj)c; }
    { static obj c[] = { obj_from_case(44) }; cx__25residual_2Dflceiling = (obj)c; }
    { static obj c[] = { obj_from_case(45) }; cx__25residual_2Dfltruncate = (obj)c; }
    { static obj c[] = { obj_from_case(46) }; cx__25residual_2Dflround = (obj)c; }
    { static obj c[] = { obj_from_case(47) }; cx__25residual_2Dflsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(48) }; cx__25residual_2Dflexp = (obj)c; }
    { static obj c[] = { obj_from_case(49) }; cx__25residual_2Dfllog = (obj)c; }
    { static obj c[] = { obj_from_case(50) }; cx__25residual_2Dflsin = (obj)c; }
    { static obj c[] = { obj_from_case(51) }; cx__25residual_2Dflcos = (obj)c; }
    { static obj c[] = { obj_from_case(52) }; cx__25residual_2Dfltan = (obj)c; }
    { static obj c[] = { obj_from_case(53) }; cx__25residual_2Dflasin = (obj)c; }
    { static obj c[] = { obj_from_case(54) }; cx__25residual_2Dflacos = (obj)c; }
    { static obj c[] = { obj_from_case(55) }; cx__25residual_2Dflexpt = (obj)c; }
    { static obj c[] = { obj_from_case(56) }; cx__25residual_2Dfxfl_2F = (obj)c; }
    { static obj c[] = { obj_from_case(57) }; cx__25residual_2Dreal_3F = (obj)c; }
    { static obj c[] = { obj_from_case(58) }; cx__25residual_2Dinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(59) }; cx__25residual_2Dinexact_2D_3Eexact = (obj)c; }
    { static obj c[] = { obj_from_case(60) }; cx__25residual_2Dexact_2D_3Einexact = (obj)c; }
    { static obj c[] = { obj_from_case(61) }; cx__25residual_2Dzero_3F = (obj)c; }
    { static obj c[] = { obj_from_case(62) }; cx__25residual_2Dpositive_3F = (obj)c; }
    { static obj c[] = { obj_from_case(63) }; cx__25residual_2Dnegative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(64) }; cx__25residual_2Deven_3F = (obj)c; }
    { static obj c[] = { obj_from_case(65) }; cx__25residual_2Dodd_3F = (obj)c; }
    { static obj c[] = { obj_from_case(66) }; cx__25residual_2Dabs = (obj)c; }
    { static obj c[] = { obj_from_case(67) }; cx__25residual_2Dquotient = (obj)c; }
    { static obj c[] = { obj_from_case(68) }; cx__25residual_2Dremainder = (obj)c; }
    { static obj c[] = { obj_from_case(69) }; cx__25residual_2Dmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(70) }; cx_lcm_2F2 = (obj)c; }
    { static obj c[] = { obj_from_case(71) }; cx__25residual_2Dnumerator = (obj)c; }
    { static obj c[] = { obj_from_case(72) }; cx__25residual_2Ddenominator = (obj)c; }
    { static obj c[] = { obj_from_case(73) }; cx__25residual_2Drationalize = (obj)c; }
    { static obj c[] = { obj_from_case(74) }; cx__25residual_2Dfloor = (obj)c; }
    { static obj c[] = { obj_from_case(75) }; cx__25residual_2Dceiling = (obj)c; }
    { static obj c[] = { obj_from_case(76) }; cx__25residual_2Dtruncate = (obj)c; }
    { static obj c[] = { obj_from_case(77) }; cx__25residual_2Dround = (obj)c; }
    { static obj c[] = { obj_from_case(78) }; cx__25residual_2Dsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(79) }; cx__25residual_2Dexp = (obj)c; }
    { static obj c[] = { obj_from_case(80) }; cx__25residual_2Dlog = (obj)c; }
    { static obj c[] = { obj_from_case(81) }; cx__25residual_2Dsin = (obj)c; }
    { static obj c[] = { obj_from_case(82) }; cx__25residual_2Dcos = (obj)c; }
    { static obj c[] = { obj_from_case(83) }; cx__25residual_2Dtan = (obj)c; }
    { static obj c[] = { obj_from_case(84) }; cx__25residual_2Dasin = (obj)c; }
    { static obj c[] = { obj_from_case(85) }; cx__25residual_2Dacos = (obj)c; }
    { static obj c[] = { obj_from_case(86) }; cx__25residual_2Dexpt = (obj)c; }
    { static obj c[] = { obj_from_case(87) }; cx__25residual_2Dchar_3F = (obj)c; }
    { static obj c[] = { obj_from_case(88) }; cx__25residual_2Dchar_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(89) }; cx__25residual_2Dchar_3C_3F = (obj)c; }
    { static obj c[] = { obj_from_case(90) }; cx__25residual_2Dchar_3E_3F = (obj)c; }
    { static obj c[] = { obj_from_case(91) }; cx__25residual_2Dchar_3C_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(92) }; cx__25residual_2Dchar_3E_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(93) }; cx__25residual_2Dchar_2Dci_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(94) }; cx__25residual_2Dchar_2Dci_3C_3F = (obj)c; }
    { static obj c[] = { obj_from_case(95) }; cx__25residual_2Dchar_2Dci_3E_3F = (obj)c; }
    { static obj c[] = { obj_from_case(96) }; cx__25residual_2Dchar_2Dci_3C_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(97) }; cx__25residual_2Dchar_2Dci_3E_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(98) }; cx__25residual_2Dchar_2Dalphabetic_3F = (obj)c; }
    { static obj c[] = { obj_from_case(99) }; cx__25residual_2Dchar_2Dnumeric_3F = (obj)c; }
    { static obj c[] = { obj_from_case(100) }; cx__25residual_2Dchar_2Dwhitespace_3F = (obj)c; }
    { static obj c[] = { obj_from_case(101) }; cx__25residual_2Dchar_2Dupper_2Dcase_3F = (obj)c; }
    { static obj c[] = { obj_from_case(102) }; cx__25residual_2Dchar_2Dlower_2Dcase_3F = (obj)c; }
    { static obj c[] = { obj_from_case(103) }; cx__25residual_2Dchar_2D_3Einteger = (obj)c; }
    { static obj c[] = { obj_from_case(104) }; cx__25residual_2Dinteger_2D_3Echar = (obj)c; }
    { static obj c[] = { obj_from_case(105) }; cx__25residual_2Dchar_2Dupcase = (obj)c; }
    { static obj c[] = { obj_from_case(106) }; cx__25residual_2Dchar_2Ddowncase = (obj)c; }
    { static obj c[] = { obj_from_case(107) }; cx__25residual_2Dstring_3F = (obj)c; }
    { static obj c[] = { obj_from_case(108) }; cx__25residual_2Dstring_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(109) }; cx__25residual_2Dstring_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(110) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(111) }; cx__25residual_2Dstring_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(112) }; cx__25residual_2Dstring_3C_3F = (obj)c; }
    { static obj c[] = { obj_from_case(113) }; cx__25residual_2Dstring_3E_3F = (obj)c; }
    { static obj c[] = { obj_from_case(114) }; cx__25residual_2Dstring_3C_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(115) }; cx__25residual_2Dstring_3E_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(116) }; cx__25residual_2Dstring_2Dci_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(117) }; cx__25residual_2Dstring_2Dci_3C_3F = (obj)c; }
    { static obj c[] = { obj_from_case(118) }; cx__25residual_2Dstring_2Dci_3E_3F = (obj)c; }
    { static obj c[] = { obj_from_case(119) }; cx__25residual_2Dstring_2Dci_3C_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(120) }; cx__25residual_2Dstring_2Dci_3E_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(121) }; cx__25residual_2Dsubstring = (obj)c; }
    { static obj c[] = { obj_from_case(122) }; cx__25residual_2Dstring_2Dappend_2F2 = (obj)c; }
    { static obj c[] = { obj_from_case(123) }; cx__25residual_2Dstring_2Dcopy = (obj)c; }
    { static obj c[] = { obj_from_case(124) }; cx__25residual_2Dstring_2Dfill_21 = (obj)c; }
    { static obj c[] = { obj_from_case(125) }; cx__25residual_2Dstring_2Dposition = (obj)c; }
    { static obj c[] = { obj_from_case(126) }; cx__25residual_2Dvector_3F = (obj)c; }
    { static obj c[] = { obj_from_case(127) }; cx__25residual_2Dmake_2Dvector = (obj)c; }
    { static obj c[] = { obj_from_case(128) }; cx__25residual_2Dvector_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(129) }; cx__25residual_2Dvector_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(130) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(131) }; cx_vector_2Dfill_21 = (obj)c; }
    { static obj c[] = { obj_from_case(132) }; cx__25residual_2Dnull_3F = (obj)c; }
    { static obj c[] = { obj_from_case(133) }; cx__25residual_2Dpair_3F = (obj)c; }
    { static obj c[] = { obj_from_case(134) }; cx__25residual_2Datom_3F = (obj)c; }
    { static obj c[] = { obj_from_case(135) }; cx__25residual_2Dlist_3F = (obj)c; }
    { static obj c[] = { obj_from_case(136) }; cx__25residual_2Dcons = (obj)c; }
    { static obj c[] = { obj_from_case(137) }; cx__25residual_2Dcar = (obj)c; }
    { static obj c[] = { obj_from_case(138) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; }
    { static obj c[] = { obj_from_case(139) }; cx__25residual_2Dcdr = (obj)c; }
    { static obj c[] = { obj_from_case(140) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; }
    { static obj c[] = { obj_from_case(141) }; cx__25residual_2Dcaar = (obj)c; }
    { static obj c[] = { obj_from_case(142) }; cx__25residual_2Dcadr = (obj)c; }
    { static obj c[] = { obj_from_case(143) }; cx__25residual_2Dcdar = (obj)c; }
    { static obj c[] = { obj_from_case(144) }; cx__25residual_2Dcddr = (obj)c; }
    { static obj c[] = { obj_from_case(145) }; cx__25residual_2Dcaaar = (obj)c; }
    { static obj c[] = { obj_from_case(146) }; cx__25residual_2Dcaadr = (obj)c; }
    { static obj c[] = { obj_from_case(147) }; cx__25residual_2Dcadar = (obj)c; }
    { static obj c[] = { obj_from_case(148) }; cx__25residual_2Dcaddr = (obj)c; }
    { static obj c[] = { obj_from_case(149) }; cx__25residual_2Dcdaar = (obj)c; }
    { static obj c[] = { obj_from_case(150) }; cx__25residual_2Dcdadr = (obj)c; }
    { static obj c[] = { obj_from_case(151) }; cx__25residual_2Dcddar = (obj)c; }
    { static obj c[] = { obj_from_case(152) }; cx__25residual_2Dcdddr = (obj)c; }
    { static obj c[] = { obj_from_case(153) }; cx__25residual_2Dcaaaar = (obj)c; }
    { static obj c[] = { obj_from_case(154) }; cx__25residual_2Dcaaadr = (obj)c; }
    { static obj c[] = { obj_from_case(155) }; cx__25residual_2Dcaadar = (obj)c; }
    { static obj c[] = { obj_from_case(156) }; cx__25residual_2Dcaaddr = (obj)c; }
    { static obj c[] = { obj_from_case(157) }; cx__25residual_2Dcadaar = (obj)c; }
    { static obj c[] = { obj_from_case(158) }; cx__25residual_2Dcadadr = (obj)c; }
    { static obj c[] = { obj_from_case(159) }; cx__25residual_2Dcaddar = (obj)c; }
    { static obj c[] = { obj_from_case(160) }; cx__25residual_2Dcadddr = (obj)c; }
    { static obj c[] = { obj_from_case(161) }; cx__25residual_2Dcdaaar = (obj)c; }
    { static obj c[] = { obj_from_case(162) }; cx__25residual_2Dcdaadr = (obj)c; }
    { static obj c[] = { obj_from_case(163) }; cx__25residual_2Dcdadar = (obj)c; }
    { static obj c[] = { obj_from_case(164) }; cx__25residual_2Dcdaddr = (obj)c; }
    { static obj c[] = { obj_from_case(165) }; cx__25residual_2Dcddaar = (obj)c; }
    { static obj c[] = { obj_from_case(166) }; cx__25residual_2Dcddadr = (obj)c; }
    { static obj c[] = { obj_from_case(167) }; cx__25residual_2Dcdddar = (obj)c; }
    { static obj c[] = { obj_from_case(168) }; cx__25residual_2Dcddddr = (obj)c; }
    { static obj c[] = { obj_from_case(169) }; cx__25residual_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(170) }; cx__25residual_2Dreverse = (obj)c; }
    { static obj c[] = { obj_from_case(171) }; cx__25residual_2Dreverse_21 = (obj)c; }
    { static obj c[] = { obj_from_case(172) }; cx__25residual_2Dappend_2F2 = (obj)c; }
    { static obj c[] = { obj_from_case(173) }; cx__25residual_2Dlist_2Dcopy = (obj)c; }
    { static obj c[] = { obj_from_case(174) }; cx__25residual_2Dlist_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(175) }; cx__25residual_2Dlist_2Dtail = (obj)c; }
    { static obj c[] = { obj_from_case(176) }; cx__25residual_2Dlast_2Dpair = (obj)c; }
    { static obj c[] = { obj_from_case(177) }; cx__25residual_2Dsymbol_3F = (obj)c; }
    { static obj c[] = { obj_from_case(178) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(179) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; }
    { static obj c[] = { obj_from_case(180) }; cx__25residual_2Dstring_2D_3Esymbol_2Fcf = (obj)c; }
    { static obj c[] = { obj_from_case(181) }; cx_fixnum_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(182) }; cx_flonum_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(183) }; cx_string_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(184) }; cx_string_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(185) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; }
    { static obj c[] = { obj_from_case(186) }; cx__25residual_2Dvector_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(187) }; cx__25residual_2Dlist_2D_3Evector = (obj)c; }
    { static obj c[] = { obj_from_case(188) }; cx__25residual_2Dlist_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(189) }; cx__25residual_2Dstring_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(190) }; cx__25residual_2Dprocedure_3F = (obj)c; }
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    cx_apply = obj_from_objptr(c); }
    { static obj c[] = { obj_from_case(191) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(192) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; }
    { static obj c[] = { obj_from_case(193) }; cx_make_2Dpromise = (obj)c; }
    { static obj c[] = { obj_from_case(196) }; cx__25residual_2Deof_2Dobject = (obj)c; }
    { static obj c[] = { obj_from_case(197) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; }
    { static obj c[] = { obj_from_case(198) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; }
    { static obj c[] = { obj_from_case(199) }; cx__25residual_2Dclose_2Dinput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(200) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; }
    cx__2Acurrent_2Dinput_2Dport_2A = (mkiport_file(0, stdin));
    { static obj c[] = { obj_from_case(201) }; cx__25residual_2Dcurrent_2Dinput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(202) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(203) }; cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(206) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(209) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(210) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; }
    cx__2Acurrent_2Doutput_2Dport_2A = (mkoport(0, stdout));
    { static obj c[] = { obj_from_case(211) }; cx__25residual_2Dcurrent_2Doutput_2Dport = (obj)c; }
    cx__2Acurrent_2Derror_2Dport_2A = (mkoport(0, stderr));
    { static obj c[] = { obj_from_case(212) }; cx__25residual_2Dcurrent_2Derror_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(213) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(214) }; cx__25residual_2Dflush_2Doutput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(215) }; cx__25residual_2Dclose_2Doutput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(216) }; cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(219) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(222) }; cx__25residual_2Deq_3F = (obj)c; }
    { static obj c[] = { obj_from_case(223) }; cx__25residual_2Deqv_3F = (obj)c; }
    { static obj c[] = { obj_from_case(224) }; cx__25residual_2Dequal_3F = (obj)c; }
    { static obj c[] = { obj_from_case(225) }; cx__25residual_2Dmemq = (obj)c; }
    { static obj c[] = { obj_from_case(226) }; cx__25residual_2Dmemv = (obj)c; }
    { static obj c[] = { obj_from_case(227) }; cx__25residual_2Dmember = (obj)c; }
    { static obj c[] = { obj_from_case(228) }; cx__25residual_2Dassq = (obj)c; }
    { static obj c[] = { obj_from_case(229) }; cx__25residual_2Dassv = (obj)c; }
    { static obj c[] = { obj_from_case(230) }; cx__25residual_2Dassoc = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(232);
    r[0] = (hendblk(0+1));
    hreserve(hbsz(1+1), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(231);
    cx_write_2Ddatum = (hendblk(1+1));
    { static obj c[] = { obj_from_case(240) }; cx__25residual_2Dput_2Ddatum = (obj)c; }
    { static obj c[] = { obj_from_case(241) }; cx_print_2Derror_2Dmessage = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(248);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_error = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(250);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_assertion_2Dviolation = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("reader-token", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (cx__231131);
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (cx__231135);
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (cx__231139);
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(252);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(253);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(254);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(258);
    r[7] = (hendblk(2+1));
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_case(271);
    r[8] = (hendblk(7+1));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = obj_from_case(261);
    cx_read_2Ddatum = (hendblk(2+1));
    { static obj c[] = { obj_from_case(290) }; cx__25residual_2Dget_2Ddatum = (obj)c; }
    { static obj c[] = { obj_from_case(291) }; cx__25residual_2Dfile_2Dexists_3F = (obj)c; }
    { static obj c[] = { obj_from_case(292) }; cx__25residual_2Ddelete_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(293) }; cx__25residual_2Drename_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(294) }; cx__25residual_2Dcall_2Dwith_2Dvalues = (obj)c; }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Acurrent_2Ddynamic_2Dstate_2A = (hendblk(3)); }
    { static obj c[] = { obj_from_case(296) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; }
    { static obj c[] = { obj_from_case(299) }; cx_dynamic_2Dwind = (obj)c; }
    { static obj c[] = { obj_from_case(304) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; }
    { static obj c[] = { obj_from_case(306) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; }
    { static obj c[] = { obj_from_case(307) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; }
    { static obj c[] = { obj_from_case(308) }; cx__25residual_2Dabort = (obj)c; }
    { static obj c[] = { obj_from_case(309) }; cx_reset = (obj)c; }
    { static obj c[] = { obj_from_case(310) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; }
    { static obj c[] = { obj_from_case(311) }; cx__25residual_2Dargv_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(312) }; cx_command_2Dline = (obj)c; }
    { static obj c[] = { obj_from_case(313) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; }
    { static obj c[] = { obj_from_case(314) }; cx__25residual_2Dsystem = (obj)c; }
    { static obj c[] = { obj_from_case(315) }; cx__25residual_2Dmake_2Drectangular = (obj)c; }
    { static obj c[] = { obj_from_case(316) }; cx__25residual_2Dmake_2Dpolar = (obj)c; }
    { static obj c[] = { obj_from_case(317) }; cx__25residual_2Dreal_2Dpart = (obj)c; }
    { static obj c[] = { obj_from_case(318) }; cx__25residual_2Dimag_2Dpart = (obj)c; }
    { static obj c[] = { obj_from_case(319) }; cx__25residual_2Dmagnitude = (obj)c; }
    { static obj c[] = { obj_from_case(320) }; cx__25residual_2Dangle = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(321);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dvalues = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(323);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(324);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(325);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(326);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(327);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(328);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(329);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(330);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(331);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(332);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(333);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(334);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3C = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(335);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3E = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(336);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3C_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(337);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3E_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(338);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfxmax = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(339);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfxmin = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(340);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflmax = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(341);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflmin = (hendblk(3)); }
    { static obj c[] = { obj_from_case(342) }; cx__25residual_2Dmax_2F2 = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(343);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmax = (hendblk(3)); }
    { static obj c[] = { obj_from_case(346) }; cx__25residual_2Dmin_2F2 = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(347);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmin = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(350);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(351);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(352);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(353);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(354);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(355);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(356);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dgcd = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(357);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dlcm = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(360);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(361);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(362);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(363);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(364);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(365);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(366);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflatan = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(367);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Datan = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(368);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmap = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(377);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfor_2Deach = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(386);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(387);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(388);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dappend = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(390);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dvector = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(391);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dvector = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(392);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dlist = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(393);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dcons_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(395);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dappend = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(397);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(398);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(399);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25fail_2Dlambda = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(400);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(401);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(402);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dpeek_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(403);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(404);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(405);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(406);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(407);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(408);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(409);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(410);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dnewline = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(411);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(412);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(413);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(414);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dexit = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(415);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_r_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(418) }; cx_list1_3F = (obj)c; }
    { static obj c[] = { obj_from_case(419) }; cx__25residual_2D_25procedure_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(420) }; cx__25residual_2D_25procedure_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(421) }; cx__25residual_2D_25procedure_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(422) }; cx__25residual_2D_25make_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(423) }; cx_print_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(427) }; cx_make_2Dannotated_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(428) }; cx__25residual_2Dprocedure_2Dannotation = (obj)c; }
    { static obj c[] = { obj_from_case(429) }; cx__25residual_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(430) }; cx__25residual_2Drange_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(431) }; cx__25residual_2Drest_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(432) }; cx__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F = (obj)c; }
    { static obj c[] = { obj_from_case(433) }; cx_lst_2D_3Evector = (obj)c; }
    { static obj c[] = { obj_from_case(434) }; cx_vector_2D_3Elst = (obj)c; }
    cx_scheme_2Dsyntactic_2Dkeywords = (cx__233046);
    { static obj c[] = { obj_from_case(435) }; cx_push_2Dframe = (obj)c; }
    { static obj c[] = { obj_from_case(436) }; cx_lookup_2Dvar = (obj)c; }
    { static obj c[] = { obj_from_case(438) }; cx_macro_3F = (obj)c; }
    { static obj c[] = { obj_from_case(439) }; cx_push_2Dmacro = (obj)c; }
    { static obj c[] = { obj_from_case(440) }; cx_lookup_2Dmacro = (obj)c; }
    { static obj c[] = { obj_from_case(441) }; cx_variable = (obj)c; }
    { static obj c[] = { obj_from_case(443) }; cx_shape = (obj)c; }
    { static obj c[] = { obj_from_case(444) }; cx_macro_2Dexpand = (obj)c; }
    { static obj c[] = { obj_from_case(445) }; cx_comp_2Dvar = (obj)c; }
    { static obj c[] = { obj_from_case(448) }; cx_comp_2Dself_2Deval = (obj)c; }
    { static obj c[] = { obj_from_case(449) }; cx_comp_2Dquote = (obj)c; }
    { static obj c[] = { obj_from_case(451) }; cx_comp_2Dquasiquote = (obj)c; }
    { static obj c[] = { obj_from_case(452) }; cx_comp_2Dquasiquotation = (obj)c; }
    { static obj c[] = { obj_from_case(456) }; cx_comp_2Dquasiquotation_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(464) }; cx_unquote_2Dsplicing_3F = (obj)c; }
    { static obj c[] = { obj_from_case(465) }; cx_comp_2Dunquote = (obj)c; }
    { static obj c[] = { obj_from_case(466) }; cx_comp_2Dunquote_2Dsplicing = (obj)c; }
    { static obj c[] = { obj_from_case(467) }; cx_comp_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(472) }; cx_comp_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(477) }; cx_parms_2D_3Eframe = (obj)c; }
    { static obj c[] = { obj_from_case(481) }; cx_rest_2Dparam_3F = (obj)c; }
    { static obj c[] = { obj_from_case(482) }; cx_comp_2Dbody = (obj)c; }
    { static obj c[] = { obj_from_case(492) }; cx_definition_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(495) }; cx_definition_2Dvalue = (obj)c; }
    { static obj c[] = { obj_from_case(496) }; cx_comp_2Dif = (obj)c; }
    { static obj c[] = { obj_from_case(501) }; cx_comp_2Dcond = (obj)c; }
    { static obj c[] = { obj_from_case(502) }; cx_comp_2Dcond_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(514) }; cx_comp_2Dand = (obj)c; }
    { static obj c[] = { obj_from_case(515) }; cx_comp_2Dand_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(518) }; cx_comp_2Dor = (obj)c; }
    { static obj c[] = { obj_from_case(519) }; cx_comp_2Dor_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(522) }; cx_comp_2Dcase = (obj)c; }
    { static obj c[] = { obj_from_case(526) }; cx_comp_2Dcase_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(532) }; cx_comp_2Dlet = (obj)c; }
    { static obj c[] = { obj_from_case(539) }; cx_bindings_2D_3Evars = (obj)c; }
    { static obj c[] = { obj_from_case(543) }; cx_bindings_2D_3Evals = (obj)c; }
    { static obj c[] = { obj_from_case(545) }; cx_comp_2Dlet_2A = (obj)c; }
    { static obj c[] = { obj_from_case(547) }; cx_comp_2Dletrec = (obj)c; }
    { static obj c[] = { obj_from_case(551) }; cx_comp_2Dletrec_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(555) }; cx_comp_2Dvals = (obj)c; }
    { static obj c[] = { obj_from_case(558) }; cx_comp_2Dbegin = (obj)c; }
    { static obj c[] = { obj_from_case(560) }; cx_comp_2Dsequence = (obj)c; }
    { static obj c[] = { obj_from_case(561) }; cx_comp_2Dsequence_2Daux = (obj)c; }
    { static obj c[] = { obj_from_case(564) }; cx_comp_2Ddo = (obj)c; }
    { static obj c[] = { obj_from_case(584) }; cx_bindings_2D_3Esteps = (obj)c; }
    { static obj c[] = { obj_from_case(586) }; cx_comp_2Ddefine = (obj)c; }
    { static obj c[] = { obj_from_case(593) }; cx_comp_2Ddefine_2Dmacro = (obj)c; }
    { static obj c[] = { obj_from_case(597) }; cx_comp_2Dcombination = (obj)c; }
    { static obj c[] = { obj_from_case(600) }; cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(601) }; cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(602) }; cx_gen_2Dvar_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(604) }; cx_gen_2Drte_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(606) }; cx_gen_2Dslot_2Dref_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(612) }; cx_gen_2Dslot_2Dref_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(618) }; cx_gen_2Dslot_2Dref_2Dup_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(620) }; cx_gen_2Dglo_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(622) }; cx_gen_2Dcst = (obj)c; }
    { static obj c[] = { obj_from_case(632) }; cx_gen_2Dappend_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(636) }; cx_gen_2Dcons_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(640) }; cx_gen_2Dvector_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(643) }; cx_gen_2Dvar_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(645) }; cx_gen_2Drte_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(647) }; cx_gen_2Dslot_2Dset_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(658) }; cx_gen_2Dslot_2Dset_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(669) }; cx_gen_2Dslot_2Dset_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(685) }; cx_gen_2Dglo_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(688) }; cx_gen_2Dlambda_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(689) }; cx_gen_2Dlambda_2D1_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(692) }; cx_gen_2Dlambda_2D2_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(695) }; cx_gen_2Dlambda_2D3_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(698) }; cx_gen_2Dlambda_2Dn_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(702) }; cx_gen_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(703) }; cx_gen_2Dlambda_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(706) }; cx_gen_2Dlambda_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(709) }; cx_gen_2Dlambda_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(712) }; cx_gen_2Dlambda_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(715) }; cx_gen_2Dlambda_2D4 = (obj)c; }
    { static obj c[] = { obj_from_case(718) }; cx_gen_2Dlambda_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(722) }; cx_gen_2Dsequence = (obj)c; }
    { static obj c[] = { obj_from_case(725) }; cx_gen_2Dwhen = (obj)c; }
    { static obj c[] = { obj_from_case(728) }; cx_gen_2Dif = (obj)c; }
    { static obj c[] = { obj_from_case(731) }; cx_gen_2Dcond_2Dsend = (obj)c; }
    { static obj c[] = { obj_from_case(735) }; cx_gen_2Dand = (obj)c; }
    { static obj c[] = { obj_from_case(738) }; cx_gen_2Dor = (obj)c; }
    { static obj c[] = { obj_from_case(741) }; cx_gen_2Dcase = (obj)c; }
    { static obj c[] = { obj_from_case(744) }; cx_gen_2Dcase_2Dclause = (obj)c; }
    { static obj c[] = { obj_from_case(746) }; cx_gen_2Dcase_2Delse = (obj)c; }
    { static obj c[] = { obj_from_case(748) }; cx_gen_2Dletrec = (obj)c; }
    { static obj c[] = { obj_from_case(749) }; cx_gen_2Dletrec_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(752) }; cx_gen_2Dletrec_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(756) }; cx_gen_2Dletrec_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(761) }; cx_gen_2Dletrec_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(766) }; cx_gen_2Dmacro = (obj)c; }
    { static obj c[] = { obj_from_case(768) }; cx_gen_2Dcombination = (obj)c; }
    { static obj c[] = { obj_from_case(769) }; cx_gen_2Dcombination_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(772) }; cx_gen_2Dcombination_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(776) }; cx_gen_2Dcombination_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(781) }; cx_gen_2Dcombination_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(787) }; cx_gen_2Dcombination_2D4 = (obj)c; }
    { static obj c[] = { obj_from_case(794) }; cx_gen_2Dcombination_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(801) }; cx_scheme_2Dcomp = (obj)c; }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    cx_scheme_2Dglobal_2Denvironment = (hendblk(3)); }
    { static obj c[] = { obj_from_case(803) }; cx_scheme_2Dadd_2Dmacro = (obj)c; }
    { static obj c[] = { obj_from_case(804) }; cx_scheme_2Deval = (obj)c; }
    { static obj c[] = { obj_from_case(806) }; cx_scheme_2Dglobal_2Dvar = (obj)c; }
    cx_scheme_2Dglobal_2Dvariables = (mknull());
    { static obj c[] = { obj_from_case(807) }; cx_reverse_2Dglobal_2Dlookup = (obj)c; }
    { static obj c[] = { obj_from_case(808) }; cx_get_2Dglobal = (obj)c; }
    { static obj c[] = { obj_from_case(810) }; cx_set_2Dglobal_21 = (obj)c; }
    { static obj c[] = { obj_from_case(812) }; cx_alist_3F = (obj)c; }
    { static obj c[] = { obj_from_case(813) }; cx__25residual_2Dexact_2Dnonnegative_2Dinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(814) }; cx__25residual_2Dradix_3F = (obj)c; }
    { static obj c[] = { obj_from_case(815) }; cx__25residual_2Dindex_2Din_2Dvector_3F = (obj)c; }
    { static obj c[] = { obj_from_case(816) }; cx__25residual_2Dindex_2Din_2Dstring_3F = (obj)c; }
    { static obj c[] = { obj_from_case(817) }; cx__25residual_2Drange_2Din_2Dstring_3F = (obj)c; }
    { static obj c[] = { obj_from_case(818) }; cx_every_2Dcomplex_3F = (obj)c; }
    { static obj c[] = { obj_from_case(819) }; cx_every_2Dreal_3F = (obj)c; }
    { static obj c[] = { obj_from_case(820) }; cx_every_2Dinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(821) }; cx_every_2Dchar_3F = (obj)c; }
    { static obj c[] = { obj_from_case(822) }; cx_every_2Dstring_3F = (obj)c; }
    { static obj c[] = { obj_from_case(823) }; cx_every_2Dlist_2Dbut_2Dlast_3F = (obj)c; }
    { static obj c[] = { obj_from_case(824) }; cx_last_2Dlist_3F = (obj)c; }
    { static obj c[] = { obj_from_case(825) }; cx_splice_2Dlast_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(827) }; cx_wrapper_2Dfor = (obj)c; }
    { static obj c[] = { obj_from_case(831) }; cx_wrapper_2Dfor_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(835) }; cx_wrapper_2Dfor_2Dobj_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(839) }; cx_wrapper_2Dfor_2Dobj_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(840) }; cx_wrapper_2Dfor_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(844) }; cx_wrapper_2Dfor_2Dn_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(848) }; cx_wrapper_2Dfor_2Dn_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(853) }; cx_wrapper_2Dfor_2Dn_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(862) }; cx_wrapper_2Dfor_2Dq = (obj)c; }
    { static obj c[] = { obj_from_case(866) }; cx_wrapper_2Dfor_2Dx = (obj)c; }
    { static obj c[] = { obj_from_case(870) }; cx_wrapper_2Dfor_2Dx_2Dx = (obj)c; }
    { static obj c[] = { obj_from_case(874) }; cx_wrapper_2Dfor_2Dx_2Dx_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(882) }; cx_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(888) }; cx_wrapper_2Dfor_2Dz = (obj)c; }
    { static obj c[] = { obj_from_case(892) }; cx_wrapper_2Dfor_2Dz_2Dz = (obj)c; }
    { static obj c[] = { obj_from_case(896) }; cx_wrapper_2Dfor_2Dz_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(905) }; cx_wrapper_2Dfor_2Dz_2Dz_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(913) }; cx_wrapper_2Dfor_2Dz_2Dz_2Dz_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(919) }; cx_wrapper_2Dfor_2Dz_2Dx_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(925) }; cx_wrapper_2Dfor_2Dz_2Dradix_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(931) }; cx_wrapper_2Dfor_2Dstring_2Dradix_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(937) }; cx_wrapper_2Dfor_2Dpair = (obj)c; }
    { static obj c[] = { obj_from_case(941) }; cx_wrapper_2Dfor_2Dpair_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(945) }; cx_wrapper_2Dfor_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(949) }; cx_wrapper_2Dfor_2Dobj_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(953) }; cx_wrapper_2Dfor_2Dobj_2Dalist = (obj)c; }
    { static obj c[] = { obj_from_case(957) }; cx_wrapper_2Dfor_2Dsymbol = (obj)c; }
    { static obj c[] = { obj_from_case(961) }; cx_wrapper_2Dfor_2Dchar = (obj)c; }
    { static obj c[] = { obj_from_case(965) }; cx_wrapper_2Dfor_2Dchar_2Dchar = (obj)c; }
    { static obj c[] = { obj_from_case(969) }; cx_wrapper_2Dfor_2Dchar_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(973) }; cx_wrapper_2Dfor_2Dk_2Dchar_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(979) }; cx_wrapper_2Dfor_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(983) }; cx_wrapper_2Dfor_2Dstring_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(987) }; cx_wrapper_2Dfor_2Dstring_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(991) }; cx_wrapper_2Dfor_2Dstring_2Dobj_2D_2E_2E_2E = (obj)c; }
    { static obj c[] = { obj_from_case(995) }; cx_wrapper_2Dfor_2Dstring_2Dindex = (obj)c; }
    { static obj c[] = { obj_from_case(999) }; cx_wrapper_2Dfor_2Dstring_2Dindex_2Dchar = (obj)c; }
    { static obj c[] = { obj_from_case(1003) }; cx_wrapper_2Dfor_2Dstring_2Dstart_2Dend = (obj)c; }
    { static obj c[] = { obj_from_case(1007) }; cx_wrapper_2Dfor_2Dstring_2Dchar = (obj)c; }
    { static obj c[] = { obj_from_case(1011) }; cx_wrapper_2Dfor_2Dvector = (obj)c; }
    { static obj c[] = { obj_from_case(1015) }; cx_wrapper_2Dfor_2Dk_2Dobj_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1021) }; cx_wrapper_2Dfor_2Dvector_2Dindex = (obj)c; }
    { static obj c[] = { obj_from_case(1025) }; cx_wrapper_2Dfor_2Dvector_2Dindex_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(1029) }; cx_wrapper_2Dfor_2Dvector_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(1033) }; cx_wrapper_2Dfor_2Dproc = (obj)c; }
    { static obj c[] = { obj_from_case(1037) }; cx_wrapper_2Dfor_2Dproc1 = (obj)c; }
    { static obj c[] = { obj_from_case(1041) }; cx_wrapper_2Dfor_2Dproc_2Dobj = (obj)c; }
    { static obj c[] = { obj_from_case(1045) }; cx_wrapper_2Dfor_2Dproc_2Dk = (obj)c; }
    { static obj c[] = { obj_from_case(1049) }; cx_wrapper_2Dfor_2Dstring_2Dproc1 = (obj)c; }
    { static obj c[] = { obj_from_case(1053) }; cx_wrapper_2Dfor_2Dstring_2Dthunk = (obj)c; }
    { static obj c[] = { obj_from_case(1057) }; cx_wrapper_2Dfor_2Dthunk_2Dproc = (obj)c; }
    { static obj c[] = { obj_from_case(1061) }; cx_wrapper_2Dfor_2Dthunk_2Dthunk_2Dthunk = (obj)c; }
    { static obj c[] = { obj_from_case(1065) }; cx_wrapper_2Dfor_2Diport = (obj)c; }
    { static obj c[] = { obj_from_case(1069) }; cx_wrapper_2Dfor_2Doport = (obj)c; }
    { static obj c[] = { obj_from_case(1073) }; cx_wrapper_2Dfor_2Diport_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1078) }; cx_wrapper_2Dfor_2Doport_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1083) }; cx_wrapper_2Dfor_2Dobj_2Doport_2D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1088) }; cx_wrapper_2Dfor_2Dchar_2Doport_2D_3F = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(1094);
    r[0] = (hendblk(0+1));
    hreserve(hbsz(0+1), 1); /* 1 live regs */
    *--hp = obj_from_case(1645);
    r[1] = (hendblk(0+1));
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_wrapper_2Dfor_2Dobj_2Dobj;

case 1: /* %residual-void k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_void(0);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2: /* %residual-boolean? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_bool_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 3: /* %residual-not k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(!bool_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 4: /* %residual-fixnum? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_fixnum_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 5: /* %residual-fixnum-width k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_fixnum(FIXNUM_BIT);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 6: /* %residual-least-fixnum k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_fixnum(FIXNUM_MIN);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 7: /* %residual-greatest-fixnum k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_fixnum(FIXNUM_MAX);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 8: /* %residual-fxzero? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) == 0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 9: /* %residual-fxpositive? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) > 0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 10: /* %residual-fxnegative? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) < 0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 11: /* %residual-fxodd? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool((fixnum_from_obj(r[1]) & 1) != 0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 12: /* %residual-fxeven? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool((fixnum_from_obj(r[1]) & 1) == 0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 13: /* %residual-fxquotient k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxquo(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 14: /* %residual-fxremainder k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxrem(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 15: /* %residual-fxmodulo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxmlo(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 16: /* %residual-fxdiv k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxdiv(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 17: /* %residual-fxmod k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxmod(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 18: /* %residual-fxabs k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(fxabs(fixnum_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 19: /* %residual-fxgcd k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxgcd(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 20: /* %residual-fxexpt k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_fixnum(fxpow(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 21: /* %residual-fxnot k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(~fixnum_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 22: /* %residual-fxand k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) & fixnum_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 23: /* %residual-fxior k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) | fixnum_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 24: /* %residual-fxxor k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) ^ fixnum_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 25: /* %residual-fxarithmetic-shift-left k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxasl(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 26: /* %residual-fxarithmetic-shift-right k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxasr(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 27: /* %residual-flonum? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_flonum_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 28: /* %residual-fixnum->flonum k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2] = obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1]));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 29: /* %residual-flonum->fixnum k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(fxflo(flonum_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 30: /* %residual-real->flonum k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 31: /* %residual-real->fixnum k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_2D_3Efixnum((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 32: /* %residual-flinteger? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[2] = obj_from_bool(f == floor(f)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 33: /* %residual-flzero? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(flonum_from_obj(r[1]) == 0.0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 34: /* %residual-flpositive? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(flonum_from_obj(r[1]) > 0.0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 35: /* %residual-flnegative? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(flonum_from_obj(r[1]) < 0.0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 36: /* %residual-flodd? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flodd? */ 
    flonum_t f = (flonum_from_obj(r[1]) + 1.0) / 2.0; 
    r[2] = obj_from_bool(f == floor(f)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 37: /* %residual-fleven? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* fleven? */ 
    flonum_t f = flonum_from_obj(r[1]) / 2.0;
    r[2] = obj_from_bool(f == floor(f)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 38: /* %residual-flquotient k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 39: /* %residual-flremainder k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 40: /* %residual-flmodulo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 41: /* %residual-flabs k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, fabs(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 42: /* %residual-flgcd k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 43: /* %residual-flfloor k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, floor(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 44: /* %residual-flceiling k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, ceil(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 45: /* %residual-fltruncate k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* fltruncate */ 
    flonum_t x = flonum_from_obj(r[1]);
    double i; modf(x,  &i);
    r[2] = obj_from_flonum(2, i); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 46: /* %residual-flround k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, flround(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 47: /* %residual-flsqrt k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, sqrt(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 48: /* %residual-flexp k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, exp(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 49: /* %residual-fllog k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, log(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 50: /* %residual-flsin k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, sin(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 51: /* %residual-flcos k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, cos(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 52: /* %residual-fltan k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, tan(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 53: /* %residual-flasin k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, asin(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 54: /* %residual-flacos k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, acos(flonum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 55: /* %residual-flexpt k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 56: /* %residual-fxfl/ k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { /* fxfl/ */ 
    fixnum_t x = fixnum_from_obj(r[1]), y = fixnum_from_obj(r[2]);
    long i; double d;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
    else r[3] = obj_from_flonum(3, d); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 57: /* %residual-real? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 58: /* %residual-integer? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 59: /* %residual-inexact->exact k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dinexact_2D_3Eexact((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 60: /* %residual-exact->inexact k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 61: /* %residual-zero? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dzero_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 62: /* %residual-positive? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dpositive_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 63: /* %residual-negative? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dnegative_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 64: /* %residual-even? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Deven_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 65: /* %residual-odd? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dodd_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 66: /* %residual-abs k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(2, fabs(flonum_from_obj(r[1]))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 67: /* %residual-quotient k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v28017_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxquo((v28017_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v28018_tmp = ((flonum_t)(v28017_x));
    r[3] = obj_from_flonum(3, flquo((v28018_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v28016_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v28016_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 68: /* %residual-remainder k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v28014_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxrem((v28014_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v28015_tmp = ((flonum_t)(v28014_x));
    r[3] = obj_from_flonum(3, flrem((v28015_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v28013_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v28013_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 69: /* %residual-modulo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v28011_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxmlo((v28011_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v28012_tmp = ((flonum_t)(v28011_x));
    r[3] = obj_from_flonum(3, flmlo((v28012_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v28010_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v28010_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 70: /* lcm/2 k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_lcm_2F2: /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v28002_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxgcd((v28002_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v28003_tmp = ((flonum_t)(v28002_x));
    r[3] = obj_from_flonum(3, flgcd((v28003_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v28001_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v28001_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
  }
  }
  if (((is_fixnum_obj(r[3])) ? (fixnum_from_obj(r[3]) == 0) : (flonum_from_obj(r[3]) == 0.0))) {
    /* r[3] */    
  } else {
    r[4] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(4, fabs(flonum_from_obj(r[1]))));
  if ((is_fixnum_obj(r[4]))) {
    { const fixnum_t v28005_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_fixnum(fxquo((v28005_a), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v28006_tmp = ((flonum_t)(v28005_a));
    r[4] = obj_from_flonum(5, flquo((v28006_tmp), flonum_from_obj(r[3]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v28004_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v28004_tmp))); } 
  } else {
    r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), flonum_from_obj(r[3])));
  }
  }
    r[5] = ((is_fixnum_obj(r[2])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[2]))) : obj_from_flonum(5, fabs(flonum_from_obj(r[2]))));
  if ((is_fixnum_obj(r[4]))) {
    { const fixnum_t v28008_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[5]))) {
    r[3] = obj_from_fixnum(fxmul((v28008_a), fixnum_from_obj(r[5])));
  } else {
    { const flonum_t v28009_tmp = ((flonum_t)(v28008_a));
    r[3] = obj_from_flonum(6, (v28009_tmp) * flonum_from_obj(r[5])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[5]))) {
    { const flonum_t v28007_tmp = ((flonum_t)fixnum_from_obj(r[5]));
    r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v28007_tmp)); } 
  } else {
    r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * flonum_from_obj(r[5]));
  }
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 71: /* %residual-numerator k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dnumerator((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 72: /* %residual-denominator k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 73: /* %residual-rationalize k n d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n d */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Drationalize((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 74: /* %residual-floor k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, floor(flonum_from_obj(r[1]))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 75: /* %residual-ceiling k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, ceil(flonum_from_obj(r[1]))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 76: /* %residual-truncate k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
  if ((is_fixnum_obj(r[1]))) {
    r[2] = r[1];  
  } else {
    { /* fltruncate */ 
    flonum_t x = flonum_from_obj(r[1]);
    double i; modf(x,  &i);
    r[2] = obj_from_flonum(2, i); }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 77: /* %residual-round k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, flround(flonum_from_obj(r[1]))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 78: /* %residual-sqrt k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, sqrt(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 79: /* %residual-exp k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, exp(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 80: /* %residual-log k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, log(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 81: /* %residual-sin k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, sin(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 82: /* %residual-cos k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, cos(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 83: /* %residual-tan k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, tan(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 84: /* %residual-asin k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, asin(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 85: /* %residual-acos k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
    r[2] = obj_from_flonum(3, acos(flonum_from_obj(r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 86: /* %residual-expt k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27999_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxpow((v27999_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v28000_tmp = ((flonum_t)(v27999_x));
    r[3] = obj_from_flonum(3, pow((v28000_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v27998_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), (v27998_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 87: /* %residual-char? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_char_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 88: /* %residual-char=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) == char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 89: /* %residual-char<? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) < char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 90: /* %residual-char>? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) > char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 91: /* %residual-char<=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) <= char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 92: /* %residual-char>=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) >= char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 93: /* %residual-char-ci=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 94: /* %residual-char-ci<? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 95: /* %residual-char-ci>? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 96: /* %residual-char-ci<=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 97: /* %residual-char-ci>=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 98: /* %residual-char-alphabetic? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isalpha(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 99: /* %residual-char-numeric? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isdigit(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 100: /* %residual-char-whitespace? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isspace(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 101: /* %residual-char-upper-case? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isupper(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 102: /* %residual-char-lower-case? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(islower(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 103: /* %residual-char->integer k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum((fixnum_t)char_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 104: /* %residual-integer->char k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char((char_t)fixnum_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 105: /* %residual-char-upcase k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char(toupper(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 106: /* %residual-char-downcase k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char(tolower(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 107: /* %residual-string? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isstring((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 108: /* %residual-string-length k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(stringlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 109: /* %residual-string-ref k s k */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s k */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_char(*(unsigned char*)stringref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 110: /* %residual-string-set! k s k c */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k s k c */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(*stringref((r[1]), fixnum_from_obj(r[2])) = char_from_obj(r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 111: /* %residual-string=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) == 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 112: /* %residual-string<? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) < 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 113: /* %residual-string>? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) > 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 114: /* %residual-string<=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) <= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 115: /* %residual-string>=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) >= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 116: /* %residual-string-ci=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) == 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 117: /* %residual-string-ci<? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) < 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 118: /* %residual-string-ci>? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) > 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 119: /* %residual-string-ci<=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) <= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 120: /* %residual-string-ci>=? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) >= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 121: /* %residual-substring k s start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k s start end */
    { /* substring */
    int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
    r[4] = (hpushstr(4, d)); }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 122: /* %residual-string-append/2 k s1 s2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s1 s2 */
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[2])));
    r[3] = (hpushstr(3, d)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 123: /* %residual-string-copy k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-copy */
    int *d = dupstring(stringdata((r[1])));
    r[2] = (hpushstr(2, d)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 124: /* %residual-string-fill! k s c */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s c */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 125: /* %residual-string-position k c s */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k c s */
    { /* string-position */
    char *s = stringchars((r[2])), *p = strchr(s, char_from_obj(r[1]));
    if (p) r[3] = obj_from_fixnum(p-s); else r[3] = obj_from_bool(0); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 126: /* %residual-vector? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isvector((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 127: /* %residual-make-vector k n i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n i */
    { /* make-vector */
    obj o; int i = 0, c = fixnum_from_obj(r[1]);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    o = r[2];   /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 128: /* %residual-vector-length k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(vectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 129: /* %residual-vector-ref k v i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k v i */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (vectorref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 130: /* %residual-vector-set! k v i x */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k v i x */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 131: /* vector-fill! k v x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k v x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_vector_2Dfill_21((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 132: /* %residual-null? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 133: /* %residual-pair? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(ispair((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 134: /* %residual-atom? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(!ispair((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 135: /* %residual-list? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(islist((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 136: /* %residual-cons k a d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k a d */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 137: /* %residual-car k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 138: /* %residual-set-car! k p a */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p a */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(car((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 139: /* %residual-cdr k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cdr((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 140: /* %residual-set-cdr! k p d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p d */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 141: /* %residual-caar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 142: /* %residual-cadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 143: /* %residual-cdar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 144: /* %residual-cddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 145: /* %residual-caaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 146: /* %residual-caadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 147: /* %residual-cadar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 148: /* %residual-caddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 149: /* %residual-cdaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 150: /* %residual-cdadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 151: /* %residual-cddar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 152: /* %residual-cdddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 153: /* %residual-caaaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 154: /* %residual-caaadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 155: /* %residual-caadar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 156: /* %residual-caaddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 157: /* %residual-cadaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 158: /* %residual-cadadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 159: /* %residual-caddar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 160: /* %residual-cadddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 161: /* %residual-cdaaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 162: /* %residual-cdaadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 163: /* %residual-cdadar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 164: /* %residual-cdaddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 165: /* %residual-cddaar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 166: /* %residual-cddadr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 167: /* %residual-cdddar k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (car((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 168: /* %residual-cddddr k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (cdr((r[1])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[2] = (cdr((r[2])));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 169: /* %residual-length k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[2] = obj_from_fixnum(n); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 170: /* %residual-reverse k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27997_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27997_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v27997_tmp);
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 171: /* %residual-reverse! k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* reverse! */
    obj t, v = mknull(), l = r[1];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[2] = (v); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 172: /* %residual-append/2 k l o */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k l o */
    { fixnum_t v27996_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27996_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27996_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = r[1];   t = r[2];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[3] = (o); } }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 173: /* %residual-list-copy k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27995_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27995_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27995_tmp);
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    l = r[1];   t = (mknull()); /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 174: /* %residual-list-ref k l n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k l n */
    { /* list-ref */
    obj l = r[1];   int c = fixnum_from_obj(r[2]);
    while (c-- > 0) l = cdr(l);
    r[3] = (car(l)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 175: /* %residual-list-tail k l n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k l n */
    { /* list-tail */
    obj l = r[1];   int c = fixnum_from_obj(r[2]);
    while (c-- > 0) l = cdr(l);
    r[3] = (l); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 176: /* %residual-last-pair k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* last-pair */
    obj l = (r[1]), p;
    for (p = cdr(l); ispair(p); p = cdr(p)) l = p;
    r[2] = (l); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 177: /* %residual-symbol? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(issymbol((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 178: /* %residual-symbol->string k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2] = (hpushstr(2, newstring(symbolname(getsymbol((r[1]))))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 179: /* %residual-string->symbol k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mksymbol(internsym(stringchars((r[1])), 0)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 180: /* %residual-string->symbol/cf k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mksymbol(internsym(stringchars((r[1])), 1)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 181: /* fixnum->string k n r */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n r */
    { /* fixnum->string */
    char buf[35], *s = buf + sizeof(buf) - 1; 
    int neg = 0;
    long num = fixnum_from_obj(r[1]);
    long radix = fixnum_from_obj(r[2]);
    if (num < 0) { neg = 1; num = -num; }
    *s = 0;
    do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
    while (num /= radix);
    if (neg) *--s = '-';
    r[3] = (hpushstr(3, newstring(s))); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 182: /* flonum->string k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flonum->string */
    char buf[30], *s;
    sprintf(buf, "%.15g", flonum_from_obj(r[1]));
    for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
    if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[2] = (hpushstr(2, newstring(buf))); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 183: /* string->fixnum k s r */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s r */
    { /* string->fixnum */
    char *e, *s = stringchars((r[1]));
    int radix = fixnum_from_obj(r[2]); long l;
    if (s[0] == '#' && (s[1] == 'b' || s[1] == 'B')) s += 2, radix = 2;
    else if (s[0] == '#' && (s[1] == 'o' || s[1] == 'O')) s += 2, radix = 8;
    else if (s[0] == '#' && (s[1] == 'd' || s[1] == 'D')) s += 2, radix = 10;
    else if (s[0] == '#' && (s[1] == 'x' || s[1] == 'X')) s += 2, radix = 16;
    l = (errno = 0, strtol(s, &e, radix));
    if (errno || l < FIXNUM_MIN || l > FIXNUM_MAX || e == s || *e) r[3] = obj_from_bool(0);
    else r[3] = obj_from_fixnum(l); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 184: /* string->flonum k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string->flonum */
    char *e, *s = stringchars((r[1]));
    double d = (errno = 0, strtod(s, &e));
    if (errno || e == s || *e) r[2] = obj_from_bool(0);
    else r[2] = obj_from_flonum(2, d); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 185: /* %residual-string->fixnum-or-flonum k s r */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s r */
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[1]));
    int radix = fixnum_from_obj(r[2]); long l; double d;
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[3] = obj_from_fixnum(l); break;
    case 'i': r[3] = obj_from_flonum(3, d); break;
    default : r[3] = obj_from_bool(0); break;
    } }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 186: /* %residual-vector->list k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    { /* vector->list */
    obj v, l = mknull(); int c = (vectorlen((r[1])));
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    v = r[1];   /* gc-safe */
    while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[2] = (l); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 187: /* %residual-list->vector k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27994_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27994_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v27994_tmp);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
    hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 188: /* %residual-list->string k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27993_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27993_tmp = (n); }
    { /* list->string */
    int i, c = (v27993_tmp); 
    obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 189: /* %residual-string->list k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string->list */
    int c = (stringlen((r[1])));
    unsigned char *s; obj l = mknull();
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    s = (unsigned char *)stringchars((r[1])); /* gc-safe */
    while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[2] = (l); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 190: /* %residual-procedure? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isprocedure((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 191: /* %residual-make-improper-lambda k n lam */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n lam */
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 192: /* %residual-make-void-continuation k k */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k k */
    { /* make-void-continuation */
    hreserve(hbsz(2), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_objptr(appcases+2);
    r[2] = (hendblk(2)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 193: /* make-promise k proc */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k proc */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_bool(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_bool(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(194);
    r[2] = (hendblk(3+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 194: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1];
    r[1+2] = p[2];
    r[1+3] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k proc result result-ready? */
  if (bool_from_obj(objptr_from_obj(r[3])[0])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[2])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(195);
    r[4] = (hendblk(3+1));
    r[5+0] = r[1];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  }

case 195: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k result result-ready? */
  if (bool_from_obj(objptr_from_obj(r[4])[0])) {
    r[5] = (objptr_from_obj(r[3])[0]);
  } else {
    (void)(objptr_from_obj(r[4])[0] = obj_from_bool(1));
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[5] = (objptr_from_obj(r[3])[0]);
  }
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 196: /* %residual-eof-object k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = (mkeof());
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 197: /* %residual-eof-object? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(iseof((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 198: /* %residual-open-file* k fn mode */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fn mode */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((r[2]))));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 199: /* %residual-close-input-port k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* close-input-port */
    obj o = r[1];   cxtype_iport_t *vt = iportvt(o); assert(vt);
    r[2] = obj_from_void(vt->close(iportdata(o))); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 200: /* %residual-input-port? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(iportvt((r[1])) != NULL);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 201: /* %residual-current-input-port k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 202: /* %residual-open-input-file k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23770))));
  if (bool_from_obj(r[2])) {
    r[3] = (mkiport_file(3, (void*)((r[2]))));
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("open-input-file", 1)));
    r[3+3] = (cx__23774);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 203: /* %residual-call-with-input-file k fn proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fn proc */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23770))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(204);
    r[4] = (hendblk(2+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[2];  
    r[6+3] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26506;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("open-input-file", 1)));
    r[5+3] = (cx__23774);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 204: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v26506: /* ek r proc k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(205);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 205: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* close-input-port */
    obj o = r[3];   cxtype_iport_t *vt = iportvt(o); assert(vt);
    (void)(vt->close(iportdata(o))); }
    r[4] = r[1];  
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 206: /* with-input-from-file k fn thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fn thunk */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23770))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(207);
    r[4] = (hendblk(2+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[2];  
    r[6+3] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26486;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("open-input-file", 1)));
    r[5+3] = (cx__23774);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 207: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v26486: /* ek r thunk k */
    r[4] = (cx__2Acurrent_2Dinput_2Dport_2A);
    cx__2Acurrent_2Dinput_2Dport_2A = r[1];  
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(208);
    r[5] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 208: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p0 r */
    { /* close-input-port */
    obj o = r[4];   cxtype_iport_t *vt = iportvt(o); assert(vt);
    (void)(vt->close(iportdata(o))); }
    cx__2Acurrent_2Dinput_2Dport_2A = r[3];  
    r[5] = r[1];  
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 209: /* %residual-open-input-string k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* open-input-string */
    int *d = dupstring(stringdata((r[1])));
    r[2] = (mkiport_string(2, sialloc(sdatachars(d), d))); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 210: /* %residual-output-port? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isoport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 211: /* %residual-current-output-port k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 212: /* %residual-current-error-port k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = (cx__2Acurrent_2Derror_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 213: /* %residual-open-output-file k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23812))));
  if (bool_from_obj(r[2])) {
    r[3] = (mkoport(3, (void*)((r[2]))));
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("open-output-file", 1)));
    r[3+3] = (cx__23774);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 214: /* %residual-flush-output-port k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(fflush(oportdata((r[1]))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 215: /* %residual-close-output-port k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(fclose(oportdata((r[1]))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 216: /* %residual-call-with-output-file k fn proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fn proc */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23812))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(217);
    r[4] = (hendblk(2+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkoport(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[2];  
    r[6+3] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26428;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("open-output-file", 1)));
    r[5+3] = (cx__23774);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 217: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v26428: /* ek r proc k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(218);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 218: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    (void)(fclose(oportdata((r[3]))));
    r[4] = r[1];  
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 219: /* with-output-to-file k fn thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fn thunk */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23812))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(220);
    r[4] = (hendblk(2+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkoport(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[2];  
    r[6+3] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26408;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("open-output-file", 1)));
    r[5+3] = (cx__23774);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 220: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v26408: /* ek r thunk k */
    r[4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    cx__2Acurrent_2Doutput_2Dport_2A = r[1];  
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(221);
    r[5] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 221: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p0 r */
    (void)(fclose(oportdata((r[4]))));
    cx__2Acurrent_2Doutput_2Dport_2A = r[3];  
    r[5] = r[1];  
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 222: /* %residual-eq? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool((r[1]) == (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 223: /* %residual-eqv? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Deqv_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 224: /* %residual-equal? k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(isequal((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 225: /* %residual-memq k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    { /* memq */
    obj x = (r[1]), l = r[2];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 226: /* %residual-memv k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (ismemv((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 227: /* %residual-member k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (ismember((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 228: /* %residual-assq k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    { /* assq */
    obj x = (r[1]), l = (r[2]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 229: /* %residual-assv k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (isassv((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 230: /* %residual-assoc k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (isassoc((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 231: /* clo k x d? p */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x d? p sub-write */
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r[5+4] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 232: /* clo k x d? p */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x d? p */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputs(stringchars((cx__23905)), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((iportvt((r[1])) != NULL)) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(fprintf(oportdata((r[3])), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isoport((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputs(stringchars((cx__23902)), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((issymbol((r[1])))) {
    r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[1]))))));
    r[4] = obj_from_void(fputs(stringchars((r[4])), oportdata((r[3]))));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto s_sub_2Dwrite_2Dpair;
  } else {
  if ((is_fixnum_obj(r[1]))) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(fprintf(oportdata((r[3])), "%ld", fixnum_from_obj(r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* display-flonum */
    char buf[30], *s;
    sprintf(buf, "%.17g", flonum_from_obj(r[1]));
    for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
    if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[4] = obj_from_void(fputs(buf, oportdata((r[3])))); }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputs(stringchars((cx__23895)), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((is_bool_obj(r[1]))) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(fputs(stringchars((bool_from_obj(r[1]) ? (cx__23893) : (cx__23892))), oportdata((r[3]))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((is_char_obj(r[1]))) {
    { const char_t v27992_x = char_from_obj(r[1]);
  if (bool_from_obj(r[2])) {
    r[4] = obj_from_void(fputc((v27992_x), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (7))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231017)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (8))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231014)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (9))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231011)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (10))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231008)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (11))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231005)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (12))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231000)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (12))) {
    r[4] = obj_from_void(fputs(stringchars((cx__231000)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (13))) {
    r[4] = obj_from_void(fputs(stringchars((cx__23997)), oportdata((r[3]))));
  } else {
  if (((v27992_x) == (' '))) {
    r[4] = obj_from_void(fputs(stringchars((cx__23994)), oportdata((r[3]))));
  } else {
    (void)(fputs(stringchars((cx__23992)), oportdata((r[3]))));
    r[4] = obj_from_void(fputc((v27992_x), oportdata((r[3]))));
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 
  } else {
  if ((isstring((r[1])))) {
  if (bool_from_obj(r[2])) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(fputs(stringchars((r[1])), oportdata((r[3]))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(fputc((34), oportdata((r[3]))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(233);
    r[4] = (hendblk(2+1));
    r[5+0] = r[4];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop;
  }
  } else {
  if ((isvector((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto s_sub_2Dwrite_2Dvector;
  } else {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void((isprocedure((r[1]))) ? (void)(fprintf(oportdata((r[3])), "#<procedure @%p>", objptr_from_obj((r[1])))) : (void)(fputs(stringchars((cx__23887)), oportdata((r[3])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

s_loop: /* k i p x */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[1]) == (stringlen((r[3]))));
  } else {
    { const flonum_t v27991_tmp = ((flonum_t)(stringlen((r[3]))));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v27991_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { const char_t v27989_c = (*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
    (void)((((v27989_c) == (34)) || ((v27989_c) == (92))) ? (void)(fputc((92), oportdata((r[2])))) : (void)(0));
    (void)(fputc((v27989_c), oportdata((r[2])))); } 
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_fixnum(fxadd(fixnum_from_obj(r[1]), (+1)));
  } else {
    { const flonum_t v27990_tmp = ((flonum_t)(+1));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v27990_tmp)); } 
  }
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop;
  }

case 233: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k p */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc((34), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_sub_2Dwrite_2Dvector: /* k x d? p */
    (void)(fputs(stringchars((cx__23952)), oportdata((r[3]))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(234);
    r[4] = (hendblk(2+1));
  if ((!((vectorlen((r[1]))) == (+0)))) {
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(232);
    r[5] = (hendblk(0+1));
    r[6+0] = r[4];  
    r[6+1] = obj_from_fixnum(+0);
    r[6+2] = r[5];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r[6+5] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v26259;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[0];  
    r[5+3] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26271;
  }

case 234: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v26271: /* ek . k p */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc((')'), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 235: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v26259: /* k i sub-write d? p x */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(235);
    r[6] = (hendblk(4+1));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = obj_from_case(236);
    r[6] = (hendblk(5+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (vectorref((r[5]), fixnum_from_obj(r[1])));
    r[7+3] = r[3];  
    r[7+4] = r[4];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 236: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop k p i x */
    { bool_t v27988_tmp;
    { const fixnum_t v27986_b = (fxsub((vectorlen((r[6]))), (+1)));
  if ((is_fixnum_obj(r[5]))) {
    v27988_tmp = (fixnum_from_obj(r[5]) == (v27986_b));
  } else {
    { const flonum_t v27987_tmp = ((flonum_t)(v27986_b));
    v27988_tmp = (flonum_from_obj(r[5]) == (v27987_tmp)); } 
  } } 
    r[7] = obj_from_bool(!(v27988_tmp)); }
  if (bool_from_obj(r[7])) {
    (void)(fputc((' '), oportdata((r[4]))));
  if ((is_fixnum_obj(r[5]))) {
    r[7] = obj_from_fixnum(fxadd(fixnum_from_obj(r[5]), (+1)));
  } else {
    { const flonum_t v27985_tmp = ((flonum_t)(+1));
    r[7] = obj_from_flonum(7, flonum_from_obj(r[5]) + (v27985_tmp)); } 
  }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

s_sub_2Dwrite_2Dpair: /* k x d? p */
    (void)(fputc(('('), oportdata((r[3]))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(239);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(232);
    r[5] = (hendblk(0+1));
    r[6+0] = r[4];  
    r[6+1] = r[1];  
    r[6+2] = r[5];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v26236;

case 237: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_loop_v26236: /* k x sub-write d? p */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(237);
    r[5] = (hendblk(3+1));
    hreserve(hbsz(6+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(238);
    r[5] = (hendblk(6+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[1])));
    r[6+3] = r[3];  
    r[6+4] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 238: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek . sub-write d? loop k p x */
    r[8] = (cdr((r[7])));
    r[8] = obj_from_bool(ispair((r[8])));
  if (bool_from_obj(r[8])) {
    (void)(fputc((' '), oportdata((r[6]))));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[7])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[8] = (cdr((r[7])));
    r[8] = obj_from_bool(isnull((r[8])));
  if (bool_from_obj(r[8])) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[8];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(fputs(stringchars((cx__231029)), oportdata((r[6]))));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[7])));
    /* r[3] */    
    r[4] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 239: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k p */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc((')'), oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 240: /* %residual-put-datum k p d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p d */
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_bool(0);
    r[3+4] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 241: /* print-error-message k prefix args ep */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_print_2Derror_2Dmessage: /* k prefix args ep */
    (void)(((isstring((r[1]))) || (issymbol((r[1])))) ? (void)(fputs(stringchars((r[1])), oportdata((r[3])))) : (void)(fputs(stringchars((cx__231098)), oportdata((r[3])))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(242);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_pr_2Dwhere;

case 242: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k ep */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc('\n', oportdata((r[3]))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 243: /* clo k args ep */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_pr_2Drest: /* k args ep */
  if ((ispair((r[1])))) {
    (void)(fputc((' '), oportdata((r[2]))));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(243);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(244);
    r[3] = (hendblk(4+1));
    r[4+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (car((r[1])));
    r[4+3] = obj_from_bool(0);
    r[4+4] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 244: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . pr-rest ep args k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 245: /* clo k args ep */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_pr_2Dmsg: /* k args ep */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(243);
    r[3] = (hendblk(0+1));
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(isstring((r[4])));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(246);
    r[4] = (hendblk(4+1));
    r[5+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[1])));
    r[5+3] = obj_from_bool(1);
    r[5+4] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_pr_2Drest;
  }
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 246: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . pr-rest ep args k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

s_pr_2Dwhere: /* k args ep */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(245);
    r[3] = (hendblk(0+1));
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    (void)(fputs(stringchars((cx__231083)), oportdata((r[2]))));
    r[4] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    goto s_pr_2Dmsg;
  } else {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(issymbol((r[4])));
  if (bool_from_obj(r[4])) {
    (void)(fputs(stringchars((cx__231087)), oportdata((r[2]))));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(247);
    r[4] = (hendblk(4+1));
    r[5+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[1])));
    r[5+3] = obj_from_bool(0);
    r[5+4] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    (void)(fputs(stringchars((cx__231083)), oportdata((r[2]))));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_pr_2Dmsg;
  }
  }
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 247: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . pr-msg args k ep */
    (void)(fputs(stringchars((cx__231083)), oportdata((r[5]))));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 248: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    (void)(fputc('\n', oportdata((cx__2Acurrent_2Derror_2Dport_2A))));
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(249);
    r[2] = (hendblk(1+1));
    r[3+0] = r[2];  
    r[3+1] = (cx__231098);
    r[3+2] = r[1];  
    r[3+3] = (cx__2Acurrent_2Derror_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_print_2Derror_2Dmessage;

case 249: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = (cx_reset);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 250: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    (void)(fputc('\n', oportdata((cx__2Acurrent_2Derror_2Dport_2A))));
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(251);
    r[2] = (hendblk(1+1));
    r[3+0] = r[2];  
    r[3+1] = (cx__231121);
    r[3+2] = r[1];  
    r[3+3] = (cx__2Acurrent_2Derror_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_print_2Derror_2Dmessage;

case 251: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    { assert(0); exit(1); r[3] = obj_from_void(0); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 252: /* clo k form */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k form reader-token-marker */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (r[2]));
  } else {
    r[3] = obj_from_bool(0);
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 253: /* clo k c */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k c */
    { const char_t v27984_c = char_from_obj(r[1]);
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool((isspace((v27984_c))) || (((v27984_c) == (')')) || (((v27984_c) == ('(')) || (((v27984_c) == (']')) || (((v27984_c) == ('[')) || (((v27984_c) == (34)) || ((v27984_c) == (';'))))))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 254: /* clo k p in-string? */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k p in-string? char-delimiter? */
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(255);
    r[5] = (hendblk(0+1));
    r[6+0] = r[0];  
    r[6+1] = r[4];  
    r[6+2] = (mknull());
    r[6+3] = obj_from_fixnum(+0);
    r[6+4] = r[3];  
    r[6+5] = r[1];  
    r[6+6] = r[5];  
    r[6+7] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v26083;

case 255: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
  if ((isnull((r[1])))) {
    r[2+0] = (cx_error);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("read", 1)));
    r[2+3] = (cx__231242);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* reverse! */
    obj t, v = mknull(), l = r[1];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[2] = (v); }
    { fixnum_t v27983_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27983_tmp = (n); }
    { /* list->string */
    int i, c = (v27983_tmp); 
    obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */
    obj l = r[2];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[2] = (o); } }
    { /* string->fixnum */
    char *e, *s = stringchars((r[2]));
    int radix = (+16); long l;
    if (s[0] == '#' && (s[1] == 'b' || s[1] == 'B')) s += 2, radix = 2;
    else if (s[0] == '#' && (s[1] == 'o' || s[1] == 'O')) s += 2, radix = 8;
    else if (s[0] == '#' && (s[1] == 'd' || s[1] == 'D')) s += 2, radix = 10;
    else if (s[0] == '#' && (s[1] == 'x' || s[1] == 'X')) s += 2, radix = 16;
    l = (errno = 0, strtol(s, &e, radix));
    if (errno || l < FIXNUM_MIN || l > FIXNUM_MAX || e == s || *e) r[2] = obj_from_bool(0);
    else r[2] = obj_from_fixnum(l); }
    r[2] = obj_from_char((char_t)fixnum_from_obj(r[2]));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 256: /* clo k c l cc */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2];
    r[1+6] = p[3];
    r[1+7] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v26083: /* k c l cc char-delimiter? p rev-digits->char in-string? */
  if ((iseof((r[1])))) {
  if (bool_from_obj(r[7])) {
    r[8+0] = (cx_error);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = (mksymbol(internsym("read", 1)));
    r[8+3] = (cx__231272);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8+0] = r[6];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((bool_from_obj(r[7]) && (char_from_obj(r[1]) == (';')))) {
    { obj o = r[5];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[8+0] = r[6];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(256);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = obj_from_case(257);
    r[8] = (hendblk(7+1));
  if ((!bool_from_obj(r[7]))) {
    r[9+0] = r[4];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(256);
    r[9] = (hendblk(4+1));
    r[10+0] = obj_from_ktrap();
    r[10+1] = obj_from_bool(0);
    r[10+2] = r[9];  
    r[10+3] = r[5];  
    r[10+4] = r[3];  
    r[10+5] = r[1];  
    r[10+6] = r[6];  
    r[10+7] = r[2];  
    r[10+8] = r[0];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26085;
  }
  }
  }

case 257: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_l_v26085: /* ek r loop p cc c rev-digits->char l k */
  if (bool_from_obj(r[1])) {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { const fixnum_t v27982_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5]));
    r[9] = obj_from_bool(((v27982_scalar_2Dvalue) >= (+48)) && ((v27982_scalar_2Dvalue) <= (+57)));
  if (bool_from_obj(r[9])) {
    /* r[9] */    
  } else {
    r[10] = obj_from_bool(((v27982_scalar_2Dvalue) >= (+65)) && ((v27982_scalar_2Dvalue) <= (+70)));
    r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v27982_scalar_2Dvalue) >= (+97)) && ((v27982_scalar_2Dvalue) <= (+102))));
  } } 
    r[9] = obj_from_bool(!bool_from_obj(r[9]));
  if (bool_from_obj(r[9])) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231266);
    r[4] = (r[5]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((is_fixnum_obj(r[4]))) {
    r[9] = obj_from_bool(fixnum_from_obj(r[4]) > (+2));
  } else {
    { const flonum_t v27981_tmp = ((flonum_t)(+2));
    r[9] = obj_from_bool(flonum_from_obj(r[4]) > (v27981_tmp)); } 
  }
  if (bool_from_obj(r[9])) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231258);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
  if ((is_fixnum_obj(r[4]))) {
    r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
  } else {
    { const flonum_t v27980_tmp = ((flonum_t)(+1));
    r[11] = obj_from_flonum(11, flonum_from_obj(r[4]) + (v27980_tmp)); } 
  }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[9];  
    r[3] = (r[10]);
    r[4] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 258: /* clo k c p */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k c p char-delimiter? dot */
    { obj o = r[2];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = r[0];  
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = obj_from_bool(char_from_obj(r[1]) == ('#'));
    r[7+4] = r[3];  
    r[7+5] = r[2];  
    r[7+6] = r[4];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v26060;

case 259: /* clo k c l hash? */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2];
    r[1+6] = p[3]; }
    r += 1; /* shift reg. wnd */
s_loop_v26060: /* k c l hash? char-delimiter? p dot */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(259);
    r[7] = (hendblk(3+1));
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = obj_from_case(260);
    r[7] = (hendblk(7+1));
  if ((iseof((r[1])))) {
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(259);
    r[8] = (hendblk(3+1));
    r[9+0] = obj_from_ktrap();
    r[9+1] = obj_from_bool(iseof((r[1])));
    r[9+2] = r[8];  
    r[9+3] = r[5];  
    r[9+4] = r[1];  
    r[9+5] = r[0];  
    r[9+6] = r[6];  
    r[9+7] = r[3];  
    r[9+8] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v26062;
  } else {
    r[8+0] = r[4];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 260: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_l_v26062: /* ek r loop p c k dot hash? l */
  if (bool_from_obj(r[1])) {
    { /* reverse! */
    obj t, v = mknull(), l = r[8];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[9] = (v); }
    r[10] = (car((r[9])));
    { fixnum_t v27977_tmp;
    { /* length */
    int n; obj l = r[9];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27977_tmp = (n); }
    { /* list->string */
    int i, c = (v27977_tmp); 
    obj o = hpushstr(11, allocstring(c, ' ')); /* 11 live regs */
    obj l = r[9];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[11] = (o); } }
  if (bool_from_obj(bool_from_obj(r[7]) ? (r[7]) : obj_from_bool((isdigit(char_from_obj(r[10]))) || ((char_from_obj(r[10]) == ('+')) || ((char_from_obj(r[10]) == ('-')) || (char_from_obj(r[10]) == ('.'))))))) {
  if ((strcmp(stringchars((r[11])), stringchars((cx__231215))) == 0)) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[12] = obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231204))) == 0);
  if (bool_from_obj(r[12])) {
    r[12] = (r[12]);
  } else {
    r[13] = obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231208))) == 0);
    r[12] = (bool_from_obj(r[13]) ? (r[13]) : obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231212))) == 0));
  }
  if (bool_from_obj(r[12])) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((!bool_from_obj(r[7]))) {
  if (((stringlen((r[11]))) >= (+2))) {
    { const char_t v27979_tmp = (*(unsigned char*)stringref((r[11]), (+0)));
    r[12] = obj_from_bool((v27979_tmp) == ('-')); } 
  if (bool_from_obj(r[12])) {
    { const char_t v27978_tmp = (*(unsigned char*)stringref((r[11]), (+1)));
    r[12] = obj_from_bool((v27978_tmp) == ('>')); } 
  } else {
    r[12] = obj_from_bool(0);
  }
  } else {
    r[12] = obj_from_bool(0);
  }
  } else {
    r[12] = obj_from_bool(0);
  }
  if (bool_from_obj(r[12])) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[11]));
    int radix = (+10); long l; double d;
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[12] = obj_from_fixnum(l); break;
    case 'i': r[12] = obj_from_flonum(12, d); break;
    default : r[12] = obj_from_bool(0); break;
    } }
  if (bool_from_obj(r[12])) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[12]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231184);
    r[4] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  } else {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[4]) == ('#'))) {
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[9];  
    r[3] = (r[10]);
    r[4] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    { /* string-position */
    char *s = stringchars((cx__231600)), *p = strchr(s, char_from_obj(r[4]));
    if (p) r[9] = obj_from_fixnum(p-s); else r[9] = obj_from_bool(0); }
  if (bool_from_obj(r[9])) {
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[9];  
    r[3] = (r[10]);
    r[4] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231163);
    r[4] = (r[4]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 261: /* clo k p */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k p sub-read reader-token? */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(262);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 262: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r reader-token? k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(263);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 263: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
  if ((!bool_from_obj(r[1]))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("read", 1)));
    r[4+3] = (cx__231529);
    r[4+4] = (cdr((r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

s_sub_2Dread_2Dlist: /* k c p close-token dot? dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(7+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(271);
    r[12] = (hendblk(7+1));
    hreserve(hbsz(7+1), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(287);
    r[13] = (hendblk(7+1));
    hreserve(hbsz(8+1), 14); /* 14 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = (r[11]);
    *--hp = obj_from_case(264);
    r[13] = (hendblk(8+1));
    r[0] = (r[13]);
    r[1] = r[2];  
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    r[5] = r[8];  
    r[6] = r[9];  
    r[7] = (r[10]);
    r[8] = (r[11]);
    goto s_sub_2Dread;

case 264: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r reader-token? sub-read-carefully sub-read p dot? close-token k dot */
  if (((r[1]) == (r[9]))) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231332);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[10+0] = r[8];  
    r[10+1] = r[1];  
    r[10+2] = r[2];  
    r[10+3] = r[3];  
    r[10+4] = r[4];  
    r[10+5] = r[5];  
    r[10+6] = r[6];  
    r[10+7] = r[9];  
    r[10+8] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_recur;
  }

case 265: /* clo k form */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_recur: /* k form reader-token? sub-read-carefully sub-read p dot? dot close-token */
  if ((iseof((r[1])))) {
    r[9+0] = (cx_error);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = (mksymbol(internsym("read", 1)));
    r[9+3] = (cx__231327);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if (((r[1]) == (r[8]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (((r[1]) == (r[7]))) {
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(266);
    r[9] = (hendblk(4+1));
    r[10+0] = r[3];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[9];  
    r[10+2] = r[5];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[9+0] = (cx_error);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = (mksymbol(internsym("read", 1)));
    r[9+3] = (cx__231317);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(265);
    r[9] = (hendblk(7+1));
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(268);
    r[9] = (hendblk(5+1));
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[9];  
    r[10+2] = r[1];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 266: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r sub-read p k close-token */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(267);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 267: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r close-token */
  if (((r[1]) == (r[4]))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = (mksymbol(internsym("read", 1)));
    r[5+3] = (cx__231320);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 268: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r sub-read p recur form k */
  if (bool_from_obj(r[1])) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231316);
    r[4] = (cdr((r[5])));
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = obj_from_case(269);
    r[7] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 269: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r recur k form */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(270);
    r[5] = (hendblk(2+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 270: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k form */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 271: /* clo k p */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_sub_2Dread: /* k p dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(271);
    r[9] = (hendblk(7+1));
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[10] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[10])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isspace(char_from_obj(r[10])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread;
  } else {
  if ((char_from_obj(r[10]) == ('('))) {
    r[11+0] = r[0];  
    r[11+1] = (r[10]);
    r[11+2] = r[1];  
    r[11+3] = r[7];  
    r[11+4] = obj_from_bool(1);
    r[11+5] = r[2];  
    r[11+6] = r[3];  
    r[11+7] = r[4];  
    r[11+8] = r[5];  
    r[11+9] = r[6];  
    r[11+10] = r[7];  
    r[11+11] = r[8];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[10]) == (')'))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((char_from_obj(r[10]) == ('['))) {
    r[11+0] = r[0];  
    r[11+1] = (r[10]);
    r[11+2] = r[1];  
    r[11+3] = r[6];  
    r[11+4] = obj_from_bool(1);
    r[11+5] = r[2];  
    r[11+6] = r[3];  
    r[11+7] = r[4];  
    r[11+8] = r[5];  
    r[11+9] = r[6];  
    r[11+10] = r[7];  
    r[11+11] = r[8];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[10]) == (']'))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((char_from_obj(r[10]) == (39))) {
    hreserve(hbsz(1+1), 11); /* 11 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(272);
    r[11] = (hendblk(1+1));
    r[0] = (r[11]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if ((char_from_obj(r[10]) == ('`'))) {
    hreserve(hbsz(1+1), 11); /* 11 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(273);
    r[11] = (hendblk(1+1));
    r[0] = (r[11]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  } else {
    { /* string-position */
    char *s = stringchars((cx__231600)), *p = strchr(s, char_from_obj(r[10]));
    if (p) r[11] = obj_from_fixnum(p-s); else r[11] = obj_from_bool(0); }
  if (bool_from_obj(r[11])) {
    r[11+0] = r[5];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[0];  
    r[11+2] = (r[10]);
    r[11+3] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[10]) == (';'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(274);
    r[12] = (hendblk(3+1));
    r[13+0] = (r[12]);
    r[13+1] = (r[11]);
    r[13+2] = r[1];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25955;
  } else {
  if ((char_from_obj(r[10]) == (','))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[11])))) {
    r[12+0] = (cx_error);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[0];  
    r[12+2] = (mksymbol(internsym("read", 1)));
    r[12+3] = (cx__231485);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[11]) == ('@'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(275);
    r[12] = (hendblk(1+1));
    r[0] = (r[12]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  } else {
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(276);
    r[12] = (hendblk(1+1));
    r[0] = (r[12]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  }
  }
  } else {
  if ((char_from_obj(r[10]) == (34))) {
    r[11+0] = r[0];  
    r[11+1] = (mknull());
    r[11+2] = r[4];  
    r[11+3] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25920;
  } else {
  if ((char_from_obj(r[10]) == ('#'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[11])))) {
    r[12+0] = (cx_error);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[0];  
    r[12+2] = (mksymbol(internsym("read", 1)));
    r[12+3] = (cx__231447);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((tolower(char_from_obj(r[11])) == tolower(('t')))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[12] = obj_from_bool(1);
    r[13+0] = r[0];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = obj_from_ktrap();
    r[13+2] = (r[12]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((tolower(char_from_obj(r[11])) == tolower(('f')))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[12] = obj_from_bool(0);
    r[13+0] = r[0];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = obj_from_ktrap();
    r[13+2] = (r[12]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (((tolower(char_from_obj(r[11])) == tolower(('b'))) || ((tolower(char_from_obj(r[11])) == tolower(('o'))) || ((tolower(char_from_obj(r[11])) == tolower(('d'))) || ((tolower(char_from_obj(r[11])) == tolower(('x'))) || ((tolower(char_from_obj(r[11])) == tolower(('i'))) || (tolower(char_from_obj(r[11])) == tolower(('e'))))))))) {
    r[12+0] = r[5];  
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[0];  
    r[12+2] = obj_from_char('#');
    r[12+3] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[11]) == (';'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(280);
    r[12] = (hendblk(3+1));
    r[0] = (r[12]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if ((char_from_obj(r[11]) == ('|'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(283);
    r[12] = (hendblk(3+1));
    r[0] = (r[12]);
    /* r[1] */    
    goto s_recur_v25905;
  } else {
  if ((char_from_obj(r[11]) == ('('))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(284);
    r[12] = (hendblk(1+1));
    r[13+0] = (r[12]);
    r[13+1] = (r[11]);
    r[13+2] = r[1];  
    r[13+3] = r[7];  
    r[13+4] = obj_from_bool(0);
    r[13+5] = r[2];  
    r[13+6] = r[3];  
    r[13+7] = r[4];  
    r[13+8] = r[5];  
    r[13+9] = r[6];  
    r[13+10] = r[7];  
    r[13+11] = r[8];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[11]) == (92))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[12] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[12])))) {
    r[13+0] = (cx_error);
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = r[0];  
    r[13+2] = (mksymbol(internsym("read", 1)));
    r[13+3] = (cx__231385);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((('x') == char_from_obj(r[12]))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(4+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(285);
    r[13] = (hendblk(4+1));
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[14] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[15+0] = r[3];  
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = (r[13]);
    r[15+2] = (r[14]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isalpha(char_from_obj(r[12])))) {
    hreserve(hbsz(2+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = r[0];  
    *--hp = obj_from_case(286);
    r[13] = (hendblk(2+1));
    r[0] = (r[13]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread_2Dcarefully;
  } else {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[13] = (r[12]);
    r[14+0] = r[0];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = obj_from_ktrap();
    r[14+2] = (r[13]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  } else {
    r[12+0] = (cx_error);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[0];  
    r[12+2] = (mksymbol(internsym("read", 1)));
    r[12+3] = (cx__231339);
    r[12+4] = (r[11]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  } else {
    r[11+0] = (cx_error);
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[0];  
    r[11+2] = (mksymbol(internsym("read", 1)));
    r[11+3] = (cx__231337);
    r[11+4] = (r[10]);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 272: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 273: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quasiquote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v25955: /* k c p */
  if ((iseof((r[1])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(iseof((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((char_from_obj(r[1]) == (10))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) == (10));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { obj o = r[2];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v25955;
  }
  }

case 274: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . sub-read p k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 275: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("unquote-splicing", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 276: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("unquote", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 277: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v25920: /* k l sub-read-x-char-escape p */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(277);
    r[4] = (hendblk(2+1));
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[5])))) {
    r[6+0] = (cx_error);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (mksymbol(internsym("read", 1)));
    r[6+3] = (cx__231272);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[5]) == (92))) {
    { obj o = r[3];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[6] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(278);
    r[7] = (hendblk(6+1));
  if ((iseof((r[6])))) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231272);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_void(0);
    r[8+2] = r[2];  
    r[8+3] = r[3];  
    r[8+4] = r[6];  
    r[8+5] = r[4];  
    r[8+6] = r[0];  
    r[8+7] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v25922;
  }
  } else {
  if ((char_from_obj(r[5]) == (34))) {
    { /* reverse! */
    obj t, v = mknull(), l = r[1];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[6] = (v); }
    { fixnum_t v27976_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27976_tmp = (n); }
    { /* list->string */
    int i, c = (v27976_tmp); 
    obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */
    obj l = r[6];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[6] = (o); } }
    r[7+0] = r[0];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = obj_from_ktrap();
    r[7+2] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v25920;
  }
  }
  }

case 278: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
s_l_v25922: /* ek . sub-read-x-char-escape p c loop k l */
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(279);
    r[8] = (hendblk(3+1));
  if (((char_from_obj(r[4]) == (92)) || (char_from_obj(r[4]) == (34)))) {
    r[0] = obj_from_ktrap();
    r[1] = r[4];  
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('a'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(7);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('b'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(8);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('t'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(9);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('n'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(10);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('v'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(11);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('f'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(12);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('r'))) {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_char(13);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v25924;
  } else {
  if ((char_from_obj(r[4]) == ('x'))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[3];  
    r[3] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231282);
    r[4] = (r[4]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 279: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v25924: /* ek r loop k l */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 280: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . sub-read p k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 281: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
s_recur_v25905: /* k p */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(281);
    r[2] = (hendblk(1+1));
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[3])))) {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (mksymbol(internsym("read", 1)));
    r[4+3] = (cx__231402);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[3]) == ('|'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[4])))) {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("read", 1)));
    r[5+3] = (cx__231402);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[4]) == ('#'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto s_recur_v25905;
  }
  }
  } else {
  if ((char_from_obj(r[3]) == ('#'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[4])))) {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("read", 1)));
    r[5+3] = (cx__231402);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[4]) == ('|'))) {
    { obj o = r[1];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(282);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    /* r[1] */    
    goto s_recur_v25905;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto s_recur_v25905;
  }
  }
  } else {
    /* r[0] */    
    /* r[1] */    
    goto s_recur_v25905;
  }
  }
  }

case 282: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . recur k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 283: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . sub-read p k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 284: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { fixnum_t v27975_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27975_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v27975_tmp);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    l = r[1];   /* gc-safe */
    for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
    hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); } }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 285: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r sub-read-x-char-escape p k c */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 286: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k c */
    { fixnum_t v27974_a;
    r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[1]))))));
    v27974_a = (stringlen((r[4])));
    r[4] = obj_from_bool((v27974_a) == (+1)); }
  if (bool_from_obj(r[4])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("space", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(' ');
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("alarm", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(7);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("backspace", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(8);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("tab", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(9);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("newline", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("linefeed", 1)))) && (1)))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(10);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("vtab", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(11);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("page", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(12);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("return", 1)))) && (1))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char(13);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("read", 1)));
    r[4+3] = (cx__231344);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 287: /* clo k p */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_sub_2Dread_2Dcarefully: /* k p dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[8];  
    *--hp = obj_from_case(288);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    goto s_sub_2Dread;

case 288: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r reader-token? k */
  if ((iseof((r[1])))) {
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (mksymbol(internsym("read", 1)));
    r[3] = (cx__231530);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(289);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 289: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
  if (bool_from_obj(r[1])) {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (mksymbol(internsym("read", 1)));
    r[4+3] = (cx__231529);
    r[4+4] = (cdr((r[2])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 290: /* %residual-get-datum k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 291: /* %residual-file-exists? k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[1])), "r");
    if (f != NULL) fclose(f);
    r[2] = obj_from_bool(f != NULL); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 292: /* %residual-delete-file k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    { /* delete-file */ 
    int res = remove(stringchars((r[1])));
    r[2] = obj_from_bool(res == 0); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 293: /* %residual-rename-file k fnold fnnew */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fnold fnnew */
    { /* delete-file */ 
    int res = rename(stringchars((r[1])), stringchars((r[2])));
    r[3] = obj_from_bool(res == 0); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 294: /* %residual-call-with-values k producer consumer */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k producer consumer */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(295);
    r[3] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 295: /* clo k results */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k results consumer k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 296: /* call-with-current-continuation k proc */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Dcurrent_2Dcontinuation: /* k proc */
    r[2] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(297);
    r[3] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 297: /* clo k results */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k results here k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(298);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 298: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . results k k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 299: /* dynamic-wind k before during after */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k before during after */
    r[4] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(300);
    r[5] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[5];  
    r[1] = r[6];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 300: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . during k here */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(301);
    r[5] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[5] = (hendblk(3)); }
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(303);
    r[6] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 301: /* clo k results */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k results here */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(302);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 302: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . results k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__25residual_2Dvalues);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 303: /* clo k results */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k results consumer k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 304: /* dynamic-state-reroot! k there */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_dynamic_2Dstate_2Dreroot_21: /* k there */
    { const bool_t v27973_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1]));
    r[2] = obj_from_bool(!(v27973_tmp)); } 
  if (bool_from_obj(r[2])) {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(305);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    r[1] = (cdr((r[1])));
    goto gs_dynamic_2Dstate_2Dreroot_21;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 305: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k there */
    r[4] = (car((r[3])));
    r[4] = (car((r[4])));
    r[5] = (car((r[3])));
    r[5] = (cdr((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    (void)(car((cx__2Acurrent_2Ddynamic_2Dstate_2A)) = (r[6]));
    (void)(cdr((cx__2Acurrent_2Ddynamic_2Dstate_2A)) = (r[3]));
    (void)(car((r[3])) = obj_from_bool(0));
    (void)(cdr((r[3])) = (mknull()));
    cx__2Acurrent_2Ddynamic_2Dstate_2A = r[3];  
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 306: /* %residual-current-jiffy k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, clock());
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 307: /* %residual-jiffies-per-second k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, CLOCKS_PER_SEC);
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 308: /* %residual-abort k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_void(exit(1));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 309: /* reset k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_void(exit(1));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 310: /* set-reset-handler! k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_set_2Dreset_2Dhandler_21: /* k fn */
    cx_reset = r[1];  
    r[2] = obj_from_void(0);
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 311: /* %residual-argv-ref k argv i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k argv i */
    { /* argv-ref */
    int i = fixnum_from_obj(r[2]);
    char *s = ((char **)((r[1])))[i];
    if (s) r[3] = (hpushstr(3, newstring(s)));
    else r[3] = obj_from_bool(0); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 312: /* command-line k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_command_2Dline: /* k */
    r[1+0] = r[0];  
    r[1+1] = (mknull());
    r[1+2] = obj_from_fixnum(0);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25714;

s_loop_v25714: /* k r i */
    { const fixnum_t v27972_i = fixnum_from_obj(r[2]);
    { /* argv-ref */
    int i = (v27972_i);
    char *s = ((char **)((cxg_argv)))[i];
    if (s) r[3] = (hpushstr(3, newstring(s)));
    else r[3] = obj_from_bool(0); }
  if (bool_from_obj(r[3])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((v27972_i), (1)));
    goto s_loop_v25714;
  } else {
    { /* reverse! */
    obj t, v = mknull(), l = r[1];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[4] = (v); }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } } 

case 313: /* %residual-get-environment-variable k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* get-environment-variable */
    char *v = getenv(stringchars((r[1])));
    if (v) r[2] = (hpushstr(2, newstring(v)));
    else r[2] = obj_from_bool(0); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 314: /* %residual-system k cmd */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k cmd */
    { /* system */
    int res = system(stringchars((r[1])));
    r[2] = obj_from_fixnum(res); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 315: /* %residual-make-rectangular k r i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k r i */
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
  } else {
    { const flonum_t v27971_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27971_tmp)); } 
  }
  if (bool_from_obj(r[3])) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("make-rectangular", 1)));
    r[3+3] = (cx__231739);
    r[3+4] = (r[2]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 316: /* %residual-make-polar k m a */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k m a */
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
  } else {
    { const flonum_t v27970_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27970_tmp)); } 
  }
  if (bool_from_obj(r[3])) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27968_a = fixnum_from_obj(r[2]);
  if ((is_fixnum_obj(cx__231755))) {
    r[3] = obj_from_bool((v27968_a) == fixnum_from_obj(cx__231755));
  } else {
    { const flonum_t v27969_tmp = ((flonum_t)(v27968_a));
    r[3] = obj_from_bool((v27969_tmp) == flonum_from_obj(cx__231755)); } 
  } } 
  } else {
  if ((is_fixnum_obj(cx__231755))) {
    { const flonum_t v27967_tmp = ((flonum_t)fixnum_from_obj(cx__231755));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27967_tmp)); } 
  } else {
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__231755));
  }
  }
  if (bool_from_obj(r[3])) {
    r[3] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxneg(fixnum_from_obj(r[1]))) : obj_from_flonum(3, -flonum_from_obj(r[1])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("make-polar", 1)));
    r[3+3] = (cx__231751);
    r[3+4] = (r[2]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 317: /* %residual-real-part k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_2Dpart((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 318: /* %residual-imag-part k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 319: /* %residual-magnitude k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(2, fabs(flonum_from_obj(r[1]))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 320: /* %residual-angle k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dangle((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 321: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(322);
    r[2] = (hendblk(1+1));
    /* r[0] */    
    r[1] = r[2];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 322: /* clo k k */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k k l */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[3] = obj_from_objptr(c); }
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 323: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25637;
  }

s_loop_v25637: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((fixnum_from_obj(r[1]) == fixnum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25637;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 324: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25624;
  }

s_loop_v25624: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25624;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 325: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25611;
  }

s_loop_v25611: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25611;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 326: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25598;
  }

s_loop_v25598: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((fixnum_from_obj(r[1]) <= fixnum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25598;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 327: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25585;
  }

s_loop_v25585: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((fixnum_from_obj(r[1]) >= fixnum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25585;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 328: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25572;
  }

s_loop_v25572: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((flonum_from_obj(r[1]) == flonum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25572;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 329: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25559;
  }

s_loop_v25559: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((flonum_from_obj(r[1]) < flonum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25559;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 330: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25546;
  }

s_loop_v25546: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((flonum_from_obj(r[1]) > flonum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25546;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 331: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25533;
  }

s_loop_v25533: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((flonum_from_obj(r[1]) <= flonum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25533;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 332: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25520;
  }

s_loop_v25520: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((flonum_from_obj(r[1]) >= flonum_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25520;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 333: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25507;
  }

s_loop_v25507: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27965_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v27965_x) == fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v27966_tmp = ((flonum_t)(v27965_x));
    r[4] = obj_from_bool((v27966_tmp) == flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27964_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v27964_tmp)); } 
  } else {
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == flonum_from_obj(r[3]));
  }
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25507;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 334: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25494;
  }

s_loop_v25494: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27962_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v27962_x) < fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v27963_tmp = ((flonum_t)(v27962_x));
    r[4] = obj_from_bool((v27963_tmp) < flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27961_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v27961_tmp)); } 
  } else {
    r[4] = obj_from_bool(flonum_from_obj(r[1]) < flonum_from_obj(r[3]));
  }
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25494;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 335: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25481;
  }

s_loop_v25481: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27959_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v27959_x) > fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v27960_tmp = ((flonum_t)(v27959_x));
    r[4] = obj_from_bool((v27960_tmp) > flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27958_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v27958_tmp)); } 
  } else {
    r[4] = obj_from_bool(flonum_from_obj(r[1]) > flonum_from_obj(r[3]));
  }
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25481;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 336: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25468;
  }

s_loop_v25468: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27956_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v27956_x) <= fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v27957_tmp = ((flonum_t)(v27956_x));
    r[4] = obj_from_bool((v27957_tmp) <= flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27955_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v27955_tmp)); } 
  } else {
    r[4] = obj_from_bool(flonum_from_obj(r[1]) <= flonum_from_obj(r[3]));
  }
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25468;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 337: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25455;
  }

s_loop_v25455: /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27953_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v27953_x) >= fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v27954_tmp = ((flonum_t)(v27953_x));
    r[4] = obj_from_bool((v27954_tmp) >= flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27952_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v27952_tmp)); } 
  } else {
    r[4] = obj_from_bool(flonum_from_obj(r[1]) >= flonum_from_obj(r[3]));
  }
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25455;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 338: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25440;

s_loop_v25440: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[3])) ? (r[1]) : (r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25440;
  }

case 339: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25425;

s_loop_v25425: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[3])) ? (r[1]) : (r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25425;
  }

case 340: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25410;

s_loop_v25410: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25410;
  }

case 341: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25395;

s_loop_v25395: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25395;
  }

case 342: /* %residual-max/2 k a b */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs__25residual_2Dmax_2F2: /* k a b */
  if ((is_fixnum_obj(r[1]))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
  } else {
    r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]));
    r[3] = ((flonum_from_obj(r[3]) > flonum_from_obj(r[2])) ? (r[3]) : (r[2]));
  }
  } else {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[2]));
    r[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
  } else {
    r[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[2])) ? (r[1]) : (r[2]));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 343: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25366;

case 344: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v25366: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(344);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(345);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs__25residual_2Dmax_2F2;
  }

case 345: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop args k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = (cdr((r[3])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 346: /* %residual-min/2 k a b */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs__25residual_2Dmin_2F2: /* k a b */
  if ((is_fixnum_obj(r[1]))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
  } else {
    r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]));
    r[3] = ((flonum_from_obj(r[3]) < flonum_from_obj(r[2])) ? (r[3]) : (r[2]));
  }
  } else {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[2]));
    r[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
  } else {
    r[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[2])) ? (r[1]) : (r[2]));
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 347: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25337;

case 348: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v25337: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(348);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(349);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs__25residual_2Dmin_2F2;
  }

case 349: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop args k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = (cdr((r[3])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 350: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25324;
  }

s_loop_v25324: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25324;
  }

case 351: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25311;
  }

s_loop_v25311: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_fixnum(fxmul(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25311;
  }

case 352: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cx__232267);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25298;
  }

s_loop_v25298: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + flonum_from_obj(r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25298;
  }

case 353: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cx__232284);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25285;
  }

s_loop_v25285: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * flonum_from_obj(r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25285;
  }

case 354: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25272;
  }

s_loop_v25272: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27950_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxadd((v27950_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v27951_tmp = ((flonum_t)(v27950_x));
    r[3] = obj_from_flonum(4, (v27951_tmp) + flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27949_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v27949_tmp)); } 
  } else {
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + flonum_from_obj(r[3]));
  }
  }
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25272;
  }

case 355: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25259;
  }

s_loop_v25259: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27947_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxmul((v27947_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v27948_tmp = ((flonum_t)(v27947_x));
    r[3] = obj_from_flonum(4, (v27948_tmp) * flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27946_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v27946_tmp)); } 
  } else {
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * flonum_from_obj(r[3]));
  }
  }
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25259;
  }

case 356: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25246;
  }

s_loop_v25246: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27944_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxgcd((v27944_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v27945_tmp = ((flonum_t)(v27944_x));
    r[3] = obj_from_flonum(4, flgcd((v27945_tmp), flonum_from_obj(r[3]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27943_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v27943_tmp))); } 
  } else {
    r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[3])));
  }
  }
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25246;
  }

case 357: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v25227;
  }

case 358: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v25227: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(358);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(359);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs_lcm_2F2;
  }

case 359: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop args k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = (cdr((r[3])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 360: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxneg(fixnum_from_obj(r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25212;
  }

s_loop_v25212: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25212;
  }

case 361: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxidv(1, fixnum_from_obj(r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25197;
  }

s_loop_v25197: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_fixnum(fxidv(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25197;
  }

case 362: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_flonum(3, -flonum_from_obj(r[1]));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25182;
  }

s_loop_v25182: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - flonum_from_obj(r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25182;
  }

case 363: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_flonum(3, 1.0/flonum_from_obj(r[1]));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25167;
  }

s_loop_v25167: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[3]));
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25167;
  }

case 364: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxneg(fixnum_from_obj(r[1]))) : obj_from_flonum(3, -flonum_from_obj(r[1])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25152;
  }

s_loop_v25152: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27941_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxsub((v27941_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v27942_tmp = ((flonum_t)(v27941_x));
    r[3] = obj_from_flonum(4, (v27942_tmp) - flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27940_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v27940_tmp)); } 
  } else {
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - flonum_from_obj(r[3]));
  }
  }
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25152;
  }

case 365: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
  if ((is_fixnum_obj(r[1]))) {
    { /* fxfl/ */ 
    fixnum_t x = (+1), y = fixnum_from_obj(r[1]);
    long i; double d;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
    else r[3] = obj_from_flonum(3, d); }
  } else {
    r[3] = obj_from_flonum(3, 1.0/flonum_from_obj(r[1]));
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v25137;
  }

s_loop_v25137: /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v27938_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    { /* fxfl/ */ 
    fixnum_t x = (v27938_x), y = fixnum_from_obj(r[3]);
    long i; double d;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
    else r[3] = obj_from_flonum(4, d); }
  } else {
    { const flonum_t v27939_tmp = ((flonum_t)(v27938_x));
    r[3] = obj_from_flonum(4, (v27939_tmp) / flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v27937_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v27937_tmp)); } 
  } else {
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[3]));
  }
  }
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v25137;
  }

case 366: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const flonum_t v27936_x = flonum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_flonum(3, atan((v27936_x)));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, atan2((v27936_x), flonum_from_obj(r[3])));
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 367: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
    r[3] = obj_from_flonum(4, atan(flonum_from_obj(r[3])));
  } else {
    r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
    r[4] = (car((r[2])));
    r[4] = ((is_flonum_obj(r[4])) ? (r[4]) : obj_from_flonum(5, (flonum_t)fixnum_from_obj(r[4])));
    r[3] = obj_from_flonum(5, atan2(flonum_from_obj(r[3]), flonum_from_obj(r[4])));
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 368: /* clo k f l l* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k f l l* */
  if ((isnull((r[3])))) {
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25094;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = (mknull());
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25047;
  }

s_loop_v25094: /* k l f */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(369);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v25094;
  }

case 369: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(370);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 370: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 371: /* clo k l* r */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v25047: /* k l* r f */
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(isnull((r[4])));
  if (bool_from_obj(r[4])) {
    { /* reverse! */
    obj t, v = mknull(), l = r[2];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[4] = (v); }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(371);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(373);
    r[4] = (hendblk(5+1));
    r[0] = r[4];  
    /* r[1] */    
    goto s_loop_v25077;
  }

s_loop_v25077: /* k l */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(372);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v25077;
  }

case 372: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    r[4] = (car((r[3])));
    r[4] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 373: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r l* f loop k r */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(375);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[2];  
    goto s_loop_v25062;

s_loop_v25062: /* k l */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(374);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v25062;
  }

case 374: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    r[4] = (car((r[3])));
    r[4] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 375: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r f loop r k r */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[7] = obj_from_objptr(c); }
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(376);
    r[8] = (hendblk(4+1));
    r[9+0] = r[7];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[2];  
    r[9+3] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 376: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop r k r */
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 377: /* clo k p l l* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p l l* */
  if ((isnull((r[3])))) {
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v25026;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24981;
  }

case 378: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v25026: /* k l p */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(378);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(379);
    r[3] = (hendblk(3+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (car((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 379: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 380: /* clo k l* */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v24981: /* k l* p */
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(ispair((r[3])));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(380);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(382);
    r[3] = (hendblk(4+1));
    r[0] = r[3];  
    /* r[1] */    
    goto s_loop_v25011;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

s_loop_v25011: /* k l */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(381);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v25011;
  }

case 381: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    r[4] = (car((r[3])));
    r[4] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 382: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r p l* loop k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[6] = obj_from_objptr(c); }
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(383);
    r[7] = (hendblk(3+1));
    r[8+0] = r[6];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[2];  
    r[8+3] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 383: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . l* loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(385);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto s_loop_v24992;

s_loop_v24992: /* k l */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(384);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v24992;
  }

case 384: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    r[4] = (car((r[3])));
    r[4] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 385: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 386: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v27935_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = (hpushstr(3, allocstring((v27935_x), '?')));
  } else {
    r[3] = (car((r[2])));
    r[3] = (hpushstr(4, allocstring((v27935_x), char_from_obj(r[3]))));
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 387: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27934_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27934_tmp = (n); }
    { /* list->string */
    int i, c = (v27934_tmp); 
    obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 388: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v24950;

s_loop_v24950: /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cx__232642);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(389);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v24950;
  }
  }

case 389: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k args */
    { /* string-append */
    int *d = stringcat(stringdata((car((r[3])))), stringdata((r[1])));
    r[4] = (hpushstr(4, d)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 390: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v27933_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    { /* make-vector */
    obj o; int i = 0, c = (v27933_x);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    o = obj_from_void(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); }
  } else {
    r[3] = (car((r[2])));
    { /* make-vector */
    obj o; int i = 0, c = (v27933_x);
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    o = r[3];   /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); }
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 391: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27932_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27932_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v27932_tmp);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
    hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 392: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 393: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v24909;

s_loop_v24909: /* k x l */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[4] = (cdr((r[2])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(394);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v24909;
  }

case 394: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 395: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v24892;

s_loop_v24892: /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(396);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v24892;
  }
  }

case 396: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k args */
    r[4] = (car((r[3])));
    { fixnum_t v27931_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27931_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27931_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[4];   t = r[1];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[5] = (o); } }
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 397: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
  if ((is_fixnum_obj(r[1]))) {
    { /* fixnum->string */
    char buf[35], *s = buf + sizeof(buf) - 1; 
    int neg = 0;
    long num = fixnum_from_obj(r[1]);
    long radix = (+10);
    if (num < 0) { neg = 1; num = -num; }
    *s = 0;
    do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
    while (num /= radix);
    if (neg) *--s = '-';
    r[3] = (hpushstr(3, newstring(s))); }
  } else {
    { /* flonum->string */
    char buf[30], *s;
    sprintf(buf, "%.15g", flonum_from_obj(r[1]));
    for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
    if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[3] = (hpushstr(3, newstring(buf))); }
  }
  } else {
    r[3] = (car((r[2])));
    { /* fixnum->string */
    char buf[35], *s = buf + sizeof(buf) - 1; 
    int neg = 0;
    long num = fixnum_from_obj(r[1]);
    long radix = fixnum_from_obj(r[3]);
    if (num < 0) { neg = 1; num = -num; }
    *s = 0;
    do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
    while (num /= radix);
    if (neg) *--s = '-';
    r[3] = (hpushstr(4, newstring(s))); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 398: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[1]));
    int radix = (+10); long l; double d;
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[3] = obj_from_fixnum(l); break;
    case 'i': r[3] = obj_from_flonum(3, d); break;
    default : r[3] = obj_from_bool(0); break;
    } }
  } else {
    r[3] = (car((r[2])));
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[1]));
    int radix = fixnum_from_obj(r[3]); long l; double d;
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[3] = obj_from_fixnum(l); break;
    case 'i': r[3] = obj_from_flonum(4, d); break;
    default : r[3] = obj_from_bool(0); break;
    } }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 399: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    r[2+0] = (cx_error);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("case-lambda", 1)));
    r[2+3] = (cx__232724);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 400: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27930_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27930_tmp = (n); }
    { /* %residual-make-case-lambda */
    obj l; int i, c = (v27930_tmp);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
    hp -= c; *--hp = obj_from_objptr(appcases+4);
    r[2] = (hendblk(c+1)); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 401: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  } else {
    r[2] = (car((r[1])));
    { obj o = r[2];   cxtype_iport_t *vt = iportvt(o);
    int c; assert(vt); c = vt->getch(iportdata(o));
    r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 402: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  } else {
    r[2] = (car((r[1])));
    { obj o = r[2];   cxtype_iport_t *vt = iportvt(o);
    int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
    r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 403: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool((isnull((r[1]))) ? (1) : (1));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 404: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v27929_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "%ld", (v27929_x)));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(fprintf(oportdata((r[3])), "%ld", (v27929_x)));
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 405: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const flonum_t v27928_x = flonum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    { /* display-flonum */
    char buf[30], *s;
    sprintf(buf, "%.17g", (v27928_x));
    for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
    if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[3] = obj_from_void(fputs(buf, oportdata((cx__2Acurrent_2Doutput_2Dport_2A)))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-flonum */
    char buf[30], *s;
    sprintf(buf, "%.17g", (v27928_x));
    for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
    if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[3] = obj_from_void(fputs(buf, oportdata((r[3])))); }
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 406: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "#<procedure @%p>", objptr_from_obj((r[1]))));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(fprintf(oportdata((r[3])), "#<procedure @%p>", objptr_from_obj((r[1]))));
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 407: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(fprintf(oportdata((r[3])), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 408: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const char_t v27927_x = char_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(fputc((v27927_x), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(fputc((v27927_x), oportdata((r[3]))));
  }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 409: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(fputs(stringchars((r[1])), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(fputs(stringchars((r[1])), oportdata((r[3]))));
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 410: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
  } else {
    r[2] = (car((r[1])));
    r[2] = obj_from_void(fputc('\n', oportdata((r[2]))));
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 411: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = obj_from_bool(0);
    r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = obj_from_bool(0);
    r[3+4] = (car((r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 412: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = obj_from_bool(1);
    r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = obj_from_bool(1);
    r[3+4] = (car((r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 413: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 414: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = obj_from_void(exit((+0)));
  } else {
    r[2] = (car((r[1])));
    r[2] = obj_from_void(exit(fixnum_from_obj(r[2])));
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 415: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = (mknull());
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24743;

case 416: /* clo k args a* */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v24743: /* k args a* msg */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(416);
    r[4] = (hendblk(1+1));
  if ((isnull((r[1])))) {
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    { /* reverse! */
    obj t, v = mknull(), l = r[2];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[6] = (v); }
    r[7+0] = r[5];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = (cx_error);
    r[7+3] = obj_from_bool(0);
    r[7+4] = r[3];  
    r[7+5] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5] = (car((r[1])));
    r[5] = obj_from_bool(isprocedure((r[5])));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(417);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = (car((r[1])));
    goto gs_reverse_2Dglobal_2Dlookup;
  } else {
    r[5] = (cdr((r[1])));
    r[6] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    goto s_loop_v24743;
  }
  }

case 417: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop a* args k */
  if (bool_from_obj(r[1])) {
    r[6] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cdr((r[4])));
    r[7+3] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[6] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 418: /* list1? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list1_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 419: /* %residual-%procedure-length k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(procedurelen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 420: /* %residual-%procedure-ref k p i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p i */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (*procedureref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 421: /* %residual-%procedure-set! k p i x */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p i x */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(*procedureref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 422: /* %residual-%make-procedure k vc code */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vc code */
    { /* %make-procedure */
    int i = 0, c = fixnum_from_obj(r[1]); assert(c >= 0);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    while (i++ < c) *--hp = obj_from_bool(0);
    *--hp = r[2];   /* gc-safe */
    r[3] = (hendblk(c+1)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 423: /* print-procedure k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    (void)(fputs(stringchars((cx__232928)), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(424);
    r[2] = (hendblk(1+1));
  if ((!((procedurelen((r[1]))) == (+0)))) {
    r[3+0] = r[2];  
    r[3+1] = obj_from_fixnum(+0);
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24682;
  } else {
    r[3+0] = obj_from_ktrap();
    r[3+1] = obj_from_void(0);
    r[3+2] = r[0];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v24694;
  }

case 424: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_l_v24694: /* ek . k */
    (void)(fputc(('>'), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    (void)(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    r[3] = obj_from_void(0);
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 425: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v24682: /* k i x */
    r[3] = (*procedureref((r[2]), fixnum_from_obj(r[1])));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(425);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = obj_from_case(426);
    r[4] = (hendblk(4+1));
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool(fixnum_from_obj(r[1]) == (+0));
  } else {
    { const flonum_t v27926_tmp = ((flonum_t)(+0));
    r[5] = obj_from_bool(flonum_from_obj(r[1]) == (v27926_tmp)); } 
  }
  if (bool_from_obj(r[5])) {
    r[5] = obj_from_void(fputs(stringchars((cx__232908)), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(425);
    r[6] = (hendblk(1+1));
    r[7+0] = obj_from_ktrap();
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = r[0];  
    r[7+4] = r[1];  
    r[7+5] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v24684;
  } else {
    r[0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    r[3] = obj_from_bool(0);
    r[4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 426: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v24684: /* ek . loop k i x */
    { bool_t v27925_tmp;
    { const fixnum_t v27923_b = (fxsub((procedurelen((r[5]))), (+1)));
  if ((is_fixnum_obj(r[4]))) {
    v27925_tmp = (fixnum_from_obj(r[4]) == (v27923_b));
  } else {
    { const flonum_t v27924_tmp = ((flonum_t)(v27923_b));
    v27925_tmp = (flonum_from_obj(r[4]) == (v27924_tmp)); } 
  } } 
    r[6] = obj_from_bool(!(v27925_tmp)); }
  if (bool_from_obj(r[6])) {
    (void)(fputc((' '), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
  if ((is_fixnum_obj(r[4]))) {
    r[6] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
  } else {
    { const flonum_t v27922_tmp = ((flonum_t)(+1));
    r[6] = obj_from_flonum(6, flonum_from_obj(r[4]) + (v27922_tmp)); } 
  }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 427: /* make-annotated-procedure k p ann */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_make_2Dannotated_2Dprocedure: /* k p ann */
    r[3] = obj_from_fixnum(fxsub((procedurelen((r[1]))), (+1)));
    r[4] = (*procedureref((r[1]), (+0)));
    { /* %make-procedure */
    int i = 0, c = (fxadd(fixnum_from_obj(r[3]), (+1))); assert(c >= 0);
    hreserve(hbsz(c+1), 5); /* 5 live regs */
    while (i++ < c) *--hp = obj_from_bool(0);
    *--hp = r[4];   /* gc-safe */
    r[4] = (hendblk(c+1)); }
    r[5+0] = r[0];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[1];  
    r[5+3] = r[4];  
    r[5+4] = r[2];  
    r[5+5] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24669;

s_loop_v24669: /* k i p newp ann vc */
    { const fixnum_t v27921_i = fixnum_from_obj(r[1]);
  if (((v27921_i) == fixnum_from_obj(r[5]))) {
    (void)(*procedureref((r[3]), (fxadd((v27921_i), (+1)))) = (r[4]));
    r[6] = r[3];  
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6] = (*procedureref((r[2]), (fxadd((v27921_i), (+1)))));
    (void)(*procedureref((r[3]), (fxadd((v27921_i), (+1)))) = (r[6]));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v27921_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v24669;
  } } 

case 428: /* %residual-procedure-annotation k ap */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k ap */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 429: /* %residual-argc->annotation k c */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k c */
    { const fixnum_t v27920_c = fixnum_from_obj(r[1]);
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(fxadd((fxmul((v27920_c), (+1000))), (v27920_c)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 430: /* %residual-range-argc->annotation k cmin cmax */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k cmin cmax */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_fixnum(fxadd((fxmul(fixnum_from_obj(r[1]), (+1000))), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 431: /* %residual-rest-argc->annotation k c */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k c */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(fxadd((fxmul((fxsub(fixnum_from_obj(r[1]), (+1))), (+1000))), (+999)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 432: /* %residual-annotated-procedure-argc-ok? k ap argc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k ap argc */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 433: /* lst->vector k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_lst_2D_3Evector: /* k l */
    { fixnum_t v27919_n;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27919_n = (n); }
    { /* make-vector */
    obj o; int i = 0, c = (v27919_n);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    o = obj_from_void(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); }
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = obj_from_fixnum(+0);
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24622; }

s_loop_v24622: /* k l i v */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    (void)(vectorref((r[3]), fixnum_from_obj(r[2])) = (r[4]));
    r[4] = (cdr((r[1])));
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27918_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[2]) + (v27918_tmp)); } 
  }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = r[5];  
    /* r[3] */    
    goto s_loop_v24622;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 434: /* vector->lst k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_vector_2D_3Elst: /* k v */
    r[2+0] = r[0];  
    r[2+1] = (mknull());
    r[2+2] = obj_from_fixnum(fxsub((vectorlen((r[1]))), (+1)));
    r[2+3] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24609;

s_loop_v24609: /* k l i v */
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[2]) < (+0));
  } else {
    { const flonum_t v27917_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[2]) < (v27917_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (vectorref((r[3]), fixnum_from_obj(r[2])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27916_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[2]) - (v27916_tmp)); } 
  }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = r[5];  
    /* r[3] */    
    goto s_loop_v24609;
  }

case 435: /* push-frame k frame env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_push_2Dframe: /* k frame env */
  if ((isnull((r[1])))) {
    r[3] = r[2];  
  } else {
    r[3] = (cdr((r[2])));
    r[4] = (car((r[2])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 436: /* lookup-var k name env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_lookup_2Dvar: /* k name env */
    r[3] = (car((r[2])));
    r[4+0] = r[0];  
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum(+0);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop1;

case 437: /* clo k chain up */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop1: /* k chain up name */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(437);
    r[5] = (hendblk(1+1));
    r[6+0] = r[0];  
    r[6+1] = r[1];  
    r[6+2] = r[2];  
    r[6+3] = r[4];  
    r[6+4] = obj_from_fixnum(+1);
    r[6+5] = r[3];  
    r[6+6] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop2;
  }

s_loop2: /* k chain up frame over name loop1 */
  if ((isnull((r[3])))) {
  if ((is_fixnum_obj(r[2]))) {
    r[7] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27915_tmp = ((flonum_t)(+1));
    r[7] = obj_from_flonum(7, flonum_from_obj(r[2]) + (v27915_tmp)); } 
  }
    r[8+0] = r[6];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = (car((r[1])));
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[7] = (car((r[3])));
    r[7] = obj_from_bool((r[7]) == (r[5]));
  if (bool_from_obj(r[7])) {
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[7] = (cdr((r[3])));
  if ((is_fixnum_obj(r[4]))) {
    r[8] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
  } else {
    { const flonum_t v27914_tmp = ((flonum_t)(+1));
    r[8] = obj_from_flonum(8, flonum_from_obj(r[4]) + (v27914_tmp)); } 
  }
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[7];  
    r[4] = r[8];  
    /* r[5] */    
    /* r[6] */    
    goto s_loop2;
  }
  }

case 438: /* macro? k name env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name env */
    r[3] = (cdr((r[2])));
    { /* assq */
    obj x = (r[1]), l = (r[3]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 439: /* push-macro k name proc env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k name proc env */
    r[4] = (cdr((r[3])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5] = (car((r[3])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 440: /* lookup-macro k name env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name env */
    r[3] = (cdr((r[2])));
    { /* assq */
    obj x = (r[1]), l = (r[3]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
    r[3] = (cdr((r[3])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 441: /* variable k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_variable: /* k x */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(442);
    r[2] = (hendblk(2+1));
  if ((!(issymbol((r[1]))))) {
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("compiler", 1)));
    r[3+3] = (cx__233170);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[3+0] = obj_from_ktrap();
    r[3+1] = obj_from_void(0);
    r[3+2] = r[0];  
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v24538;
  }

case 442: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v24538: /* ek . k x */
    { /* memq */
    obj x = (r[3]), l = (cx_scheme_2Dsyntactic_2Dkeywords);
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[4] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[4])) {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("compiler", 1)));
    r[4+3] = (cx__233166);
    r[4+4] = (r[3]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 443: /* shape k form n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_shape: /* k form n */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v24520;

s_loop_v24520: /* k form n l */
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[2]) <= (+0));
  } else {
    { const flonum_t v27912_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[2]) <= (v27912_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[3])))) {
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27913_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[2]) - (v27913_tmp)); } 
  }
    r[6] = (cdr((r[3])));
    /* r[0] */    
    /* r[1] */    
    r[2] = r[5];  
    r[3] = r[6];  
    goto s_loop_v24520;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("compiler", 1)));
    r[5+3] = (cx__233189);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 444: /* macro-expand k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_macro_2Dexpand: /* k expr env */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[3] = obj_from_objptr(c); }
    r[4] = (car((r[1])));
    r[5] = (cdr((r[2])));
    { /* assq */
    obj x = (r[4]), l = (r[5]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[5] = (l == mknull() ? obj_from_bool(0) : p); }
    r[4] = (cdr((r[5])));
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[4];  
    r[5+3] = (cdr((r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 445: /* comp-var k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dvar: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(446);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_variable;

case 446: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(447);
    r[5] = (hendblk(1+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_lookup_2Dvar;

case 447: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dvar_2Dref;

case 448: /* comp-self-eval k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dself_2Deval: /* k expr env */
    /* r[0] */    
    /* r[1] */    
    goto gs_gen_2Dcst;

case 449: /* comp-quote k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dquote: /* k expr env */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(450);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;

case 450: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . expr k */
    r[4] = (cdr((r[2])));
    r[4] = (car((r[4])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_gen_2Dcst;

case 451: /* comp-quasiquote k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dquasiquote: /* k expr env */
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[4+0] = r[0];  
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum(+1);
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation;

case 452: /* comp-quasiquotation k form level env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_comp_2Dquasiquotation: /* k form level env */
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
  } else {
    { const flonum_t v27911_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[2]) == (v27911_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    /* r[0] */    
    /* r[1] */    
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;
  } else {
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("quasiquote", 1))));
  if (bool_from_obj(r[4])) {
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27910_tmp = ((flonum_t)(+1));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) + (v27910_tmp)); } 
  }
    /* r[0] */    
    /* r[1] */    
    r[2] = r[4];  
    /* r[3] */    
    goto gs_comp_2Dquasiquotation_2Dlist;
  } else {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("unquote", 1))));
  if (bool_from_obj(r[4])) {
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[2]) == (+1));
  } else {
    { const flonum_t v27909_tmp = ((flonum_t)(+1));
    r[4] = obj_from_bool(flonum_from_obj(r[2]) == (v27909_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    /* r[0] */    
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;
  } else {
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v27908_tmp = ((flonum_t)(+1));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) - (v27908_tmp)); } 
  }
    /* r[0] */    
    /* r[1] */    
    r[2] = r[4];  
    /* r[3] */    
    goto gs_comp_2Dquasiquotation_2Dlist;
  }
  } else {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("unquote-splicing", 1))));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(453);
    r[4] = (hendblk(4+1));
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_bool(fixnum_from_obj(r[2]) == (+1));
  } else {
    { const flonum_t v27907_tmp = ((flonum_t)(+1));
    r[5] = obj_from_bool(flonum_from_obj(r[2]) == (v27907_tmp)); } 
  }
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("compiler", 1)));
    r[5+3] = (cx__233244);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r[5+4] = r[1];  
    r[5+5] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v24447;
  }
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_comp_2Dquasiquotation_2Dlist;
  }
  }
  }
  } else {
  if ((isvector((r[1])))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(454);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_vector_2D_3Elst;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto gs_gen_2Dcst;
  }
  }
  }

case 453: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v24447: /* ek . env level form k */
  if ((is_fixnum_obj(r[3]))) {
    r[6] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
  } else {
    { const flonum_t v27906_tmp = ((flonum_t)(+1));
    r[6] = obj_from_flonum(6, flonum_from_obj(r[3]) - (v27906_tmp)); } 
  }
    r[7+0] = r[5];  
    r[7+1] = r[4];  
    r[7+2] = r[6];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation_2Dlist;

case 454: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env level k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(455);
    r[5] = (hendblk(1+1));
    r[6+0] = r[5];  
    r[6+1] = r[1];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation_2Dlist;

case 455: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dvector_2Dform;

case 456: /* comp-quasiquotation-list k l level env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_comp_2Dquasiquotation_2Dlist: /* k l level env */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_bool(fixnum_from_obj(r[2]) == (+1));
  } else {
    { const flonum_t v27905_tmp = ((flonum_t)(+1));
    r[5] = obj_from_bool(flonum_from_obj(r[2]) == (v27905_tmp)); } 
  }
  if (bool_from_obj(r[5])) {
  if (bool_from_obj(cxs_unquote_2Dsplicing_3F((r[4])))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(457);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;
  } else {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(460);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto gs_comp_2Dquasiquotation;
  }
  } else {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(462);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto gs_comp_2Dquasiquotation;
  }
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_comp_2Dquasiquotation;
  }

case 457: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . first env l k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(458);
    r[6] = (hendblk(3+1));
    r[7] = (cdr((r[2])));
    r[7] = (car((r[7])));
    r[0] = r[6];  
    r[1] = r[7];  
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;

case 458: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(459);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = (cdr((r[3])));
    r[6+2] = obj_from_fixnum(+1);
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation;

case 459: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dappend_2Dform;

case 460: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env level l k */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(461);
    r[6] = (hendblk(2+1));
    r[7+0] = r[6];  
    r[7+1] = (cdr((r[4])));
    r[7+2] = r[3];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation;

case 461: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcons_2Dform;

case 462: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env level l k */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(463);
    r[6] = (hendblk(2+1));
    r[7+0] = r[6];  
    r[7+1] = (cdr((r[4])));
    r[7+2] = r[3];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dquasiquotation;

case 463: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcons_2Dform;

case 464: /* unquote-splicing? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_unquote_2Dsplicing_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 465: /* comp-unquote k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dunquote: /* k expr env */
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("compiler", 1)));
    r[3+3] = (cx__233325);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 466: /* comp-unquote-splicing k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dunquote_2Dsplicing: /* k expr env */
    r[3+0] = (cx_error);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("compiler", 1)));
    r[3+3] = (cx__233244);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 467: /* comp-set! k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dset_21: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(468);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 468: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(469);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[3])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    goto gs_variable;

case 469: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(470);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[3])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_lookup_2Dvar;

case 470: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(471);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 471: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dvar_2Dset;

case 472: /* comp-lambda k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dlambda: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(473);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 473: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(474);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_parms_2D_3Eframe;

case 474: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr k parms */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(475);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    /* r[1] */    
    /* r[2] */    
    goto gs_push_2Dframe;

case 475: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r expr k parms r */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(476);
    r[6] = (hendblk(3+1));
    r[7] = (cdr((r[2])));
    r[7] = (cdr((r[7])));
    r[8+0] = r[6];  
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dbody;

case 476: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k parms r */
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[5] = obj_from_fixnum(n); }
  if (bool_from_obj(cxs_rest_2Dparam_3F((r[3])))) {
    r[6+0] = r[2];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dlambda_2Drest;
  } else {
    r[6+0] = r[2];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dlambda;
  }

case 477: /* parms->frame k parms */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_parms_2D_3Eframe: /* k parms */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(478);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_variable;
  } else {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(480);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_variable;
  }
  }

case 478: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . parms k x */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(479);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[2])));
    goto gs_parms_2D_3Eframe;

case 479: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 480: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k parms */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 481: /* rest-param? k parms */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k parms */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_rest_2Dparam_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 482: /* comp-body k body env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dbody: /* k body env */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(483);
    r[3] = (hendblk(0+1));
    r[4+0] = r[0];  
    r[4+1] = (mknull());
    r[4+2] = (mknull());
    r[4+3] = r[1];  
    r[4+4] = r[2];  
    r[4+5] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_letrec_2Ddefines;

case 483: /* clo k vars vals body env */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vars vals body env */
  if ((isnull((r[1])))) {
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto gs_comp_2Dsequence;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto gs_comp_2Dletrec_2Daux;
  }

case 484: /* clo k vars vals body env */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1]; }
    r += 1; /* shift reg. wnd */
s_letrec_2Ddefines: /* k vars vals body env letrec-defines* */
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(484);
    r[6] = (hendblk(1+1));
  if ((ispair((r[3])))) {
    r[7] = (car((r[3])));
  if ((!(ispair((r[7]))))) {
    r[8+0] = r[5];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[1];  
    r[8+3] = r[2];  
    r[8+4] = r[3];  
    r[8+5] = r[4];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[8] = (car((r[7])));
    r[9] = (cdr((r[4])));
    { /* assq */
    obj x = (r[8]), l = (r[9]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[8] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = obj_from_case(485);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[7];  
    r[2] = r[4];  
    goto gs_macro_2Dexpand;
  } else {
    r[8] = (car((r[7])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("begin", 1))));
  if (bool_from_obj(r[8])) {
    r[8] = (cdr((r[3])));
    r[9] = (cdr((r[7])));
    { fixnum_t v27904_tmp;
    { /* length */
    int n; obj l = r[9];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27904_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27904_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[9];   t = r[8];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[8] = (o); } }
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[8];  
    /* r[4] */    
    /* r[5] */    
    goto s_letrec_2Ddefines;
  } else {
    r[8] = (car((r[7])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("define", 1))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(486);
    r[8] = (hendblk(7+1));
    r[0] = r[8];  
    r[1] = r[7];  
    goto gs_definition_2Dname;
  } else {
    r[8] = (car((r[7])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("define-macro", 1))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(489);
    r[8] = (hendblk(7+1));
    r[0] = r[8];  
    r[1] = r[7];  
    goto gs_definition_2Dname;
  } else {
    r[8+0] = r[5];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[1];  
    r[8+3] = r[2];  
    r[8+4] = r[3];  
    r[8+5] = r[4];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }
  }
  }
  } else {
    r[7+0] = (cx_error);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = (mksymbol(internsym("compiler", 1)));
    r[7+3] = (cx__233397);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 485: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r letrec-defines env vals vars k body */
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (cdr((r[7])));
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[6];  
    r[9+2] = r[5];  
    r[9+3] = r[4];  
    r[9+4] = r[8];  
    r[9+5] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 486: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r expr letrec-defines env body vars k vals */
    hreserve(hbsz(8+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(487);
    r[9] = (hendblk(8+1));
    r[0] = r[9];  
    /* r[1] */    
    goto gs_variable;

case 487: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . expr letrec-defines env body vars r k vals */
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(488);
    r[10] = (hendblk(7+1));
    r[0] = (r[10]);
    r[1] = r[2];  
    goto gs_definition_2Dvalue;

case 488: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r letrec-defines env body vars r k vals */
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[11+0] = r[2];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[7];  
    r[11+2] = (r[10]);
    r[11+3] = r[9];  
    r[11+4] = (cdr((r[4])));
    r[11+5] = r[3];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 489: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r expr letrec-defines body vals vars k env */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(490);
    r[9] = (hendblk(7+1));
    r[0] = r[9];  
    r[1] = r[2];  
    goto gs_definition_2Dvalue;

case 490: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r letrec-defines body vals vars k r env */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(491);
    r[9] = (hendblk(7+1));
    r[0] = r[9];  
    /* r[1] */    
    goto gs_scheme_2Deval;

case 491: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r letrec-defines body vals vars k r env */
    r[9] = (cdr((r[8])));
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10] = (car((r[8])));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[6];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = (cdr((r[3])));
    r[10+5] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 492: /* definition-name k expr */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_definition_2Dname: /* k expr */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(493);
    r[2] = (hendblk(2+1));
    r[3+0] = r[2];  
    r[3+1] = r[1];  
    r[3+2] = obj_from_fixnum(+3);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_shape;

case 493: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k expr */
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[5] = ((ispair((r[4]))) ? (car((r[4]))) : (r[4]));
  if ((!(issymbol((r[5]))))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(494);
    r[6] = (hendblk(2+1));
    r[0] = (cx_error);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (mksymbol(internsym("compiler", 1)));
    r[3] = (cx__233449);
    r[4] = (r[5]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 494: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k name */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 495: /* definition-value k expr */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_definition_2Dvalue: /* k expr */
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
  if ((ispair((r[2])))) {
    r[3] = (cdr((r[1])));
    r[3] = (cdr((r[3])));
    r[4] = (cdr((r[2])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("lambda", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
  } else {
    r[3] = (cdr((r[1])));
    r[3] = (cdr((r[3])));
    r[2] = (car((r[3])));
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 496: /* comp-if k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dif: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(497);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 497: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(498);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 498: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k expr */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(499);
    r[5] = (hendblk(4+1));
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 499: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env r k expr */
    r[6] = (cdr((r[5])));
    r[6] = (cdr((r[6])));
    r[6] = (cdr((r[6])));
    r[6] = obj_from_bool(ispair((r[6])));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(500);
    r[6] = (hendblk(3+1));
    r[7] = (cdr((r[5])));
    r[7] = (cdr((r[7])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    r[0] = r[6];  
    r[1] = r[7];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;
  } else {
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_gen_2Dwhen;
  }

case 500: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dif;

case 501: /* comp-cond k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dcond: /* k expr env */
    /* r[0] */    
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_comp_2Dcond_2Daux;

case 502: /* comp-cond-aux k clauses env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dcond_2Daux: /* k clauses env */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(503);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = obj_from_fixnum(+1);
    goto gs_shape;
  } else {
    /* r[0] */    
    r[1] = (mknull());
    goto gs_gen_2Dcst;
  }

case 503: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . clauses env k clause */
    r[6] = (car((r[5])));
    r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("else", 1))));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_case(504);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;
  } else {
    { bool_t v27903_tmp;
    r[6] = (cdr((r[5])));
    v27903_tmp = (ispair((r[6])));
    r[6] = obj_from_bool(!(v27903_tmp)); }
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(505);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = (car((r[5])));
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;
  } else {
    r[6] = (cdr((r[5])));
    r[6] = (car((r[6])));
    r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("=>", 1))));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(507);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;
  } else {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(511);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (car((r[5])));
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;
  }
  }
  }

case 504: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env clause k */
    r[0] = r[4];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dsequence;

case 505: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env clauses k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(506);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dcond_2Daux;

case 506: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dor;

case 507: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . clause env clauses k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(508);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (car((r[2])));
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;

case 508: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r clause env clauses k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(509);
    r[6] = (hendblk(4+1));
    r[7] = (cdr((r[2])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    r[0] = r[6];  
    r[1] = r[7];  
    r[2] = r[3];  
    goto gs_scheme_2Dcomp;

case 509: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env clauses r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(510);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dcond_2Daux;

case 510: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcond_2Dsend;

case 511: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r clause env clauses k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(512);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (cdr((r[2])));
    r[2] = r[3];  
    goto gs_comp_2Dsequence;

case 512: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env clauses r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(513);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dcond_2Daux;

case 513: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dif;

case 514: /* comp-and k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dand: /* k expr env */
    r[3] = (cdr((r[1])));
  if ((ispair((r[3])))) {
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto gs_comp_2Dand_2Daux;
  } else {
    /* r[0] */    
    r[1] = obj_from_bool(1);
    goto gs_gen_2Dcst;
  }

case 515: /* comp-and-aux k l env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dand_2Daux: /* k l env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(516);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 516: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k l */
    r[5] = (cdr((r[4])));
  if ((ispair((r[5])))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(517);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto gs_comp_2Dand_2Daux;
  } else {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 517: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dand;

case 518: /* comp-or k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dor: /* k expr env */
    r[3] = (cdr((r[1])));
  if ((ispair((r[3])))) {
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto gs_comp_2Dor_2Daux;
  } else {
    /* r[0] */    
    r[1] = obj_from_bool(0);
    goto gs_gen_2Dcst;
  }

case 519: /* comp-or-aux k l env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dor_2Daux: /* k l env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(520);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 520: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k l */
    r[5] = (cdr((r[4])));
  if ((ispair((r[5])))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(521);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto gs_comp_2Dor_2Daux;
  } else {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 521: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dor;

case 522: /* comp-case k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dcase: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(523);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 523: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(524);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[3])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 524: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(525);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_comp_2Dcase_2Daux;

case 525: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcase;

case 526: /* comp-case-aux k clauses env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dcase_2Daux: /* k clauses env */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(527);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(531);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = (mknull());
    goto gs_gen_2Dcst;
  }

case 527: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . clauses env k clause */
    r[6] = (car((r[5])));
    r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("else", 1))));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(528);
    r[6] = (hendblk(1+1));
    r[0] = r[6];  
    r[1] = (cdr((r[5])));
    r[2] = r[3];  
    goto gs_comp_2Dsequence;
  } else {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(529);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (cdr((r[5])));
    r[2] = r[3];  
    goto gs_comp_2Dsequence;
  }

case 528: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dcase_2Delse;

case 529: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env clauses clause k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(530);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dcase_2Daux;

case 530: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r clause k */
    r[5+0] = r[4];  
    r[5+1] = (car((r[3])));
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcase_2Dclause;

case 531: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dcase_2Delse;

case 532: /* comp-let k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dlet: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(533);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 533: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
  if ((issymbol((r[5])))) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(534);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(+4);
    goto gs_shape;
  } else {
  if ((ispair((r[5])))) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(537);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_bindings_2D_3Evals;
  } else {
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[0] = r[3];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_comp_2Dbody;
  }
  }

case 534: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k x expr */
    r[6] = (cdr((r[5])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(535);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[6];  
    goto gs_bindings_2D_3Evars;

case 535: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r y env k x expr */
    r[7] = (cdr((r[6])));
    r[7] = (cdr((r[7])));
    r[7] = (cdr((r[7])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = (mksymbol(internsym("lambda", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(536);
    r[9] = (hendblk(4+1));
    r[0] = r[9];  
    r[1] = r[2];  
    goto gs_bindings_2D_3Evals;

case 536: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k r x */
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("letrec", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 537: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r x env k expr */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(538);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto gs_bindings_2D_3Evars;

case 538: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k r expr */
    r[6] = (cdr((r[5])));
    r[6] = (cdr((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("lambda", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[8];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 539: /* bindings->vars k bindings */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_bindings_2D_3Evars: /* k bindings */
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(540);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = r[2];  
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 540: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . bindings k binding */
    r[5] = (car((r[4])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(541);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_variable;

case 541: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . bindings k x */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(542);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[2])));
    goto gs_bindings_2D_3Evars;

case 542: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 543: /* bindings->vals k bindings */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_bindings_2D_3Evals: /* k bindings */
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(544);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    goto gs_bindings_2D_3Evals;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 544: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k binding */
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 545: /* comp-let* k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dlet_2A: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(546);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 546: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
  if ((ispair((r[5])))) {
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[7] = (cdr((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("let*", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7] = (car((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("let", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;
  } else {
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[0] = r[3];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_comp_2Dbody;
  }

case 547: /* comp-letrec k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dletrec: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(548);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 548: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(549);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_bindings_2D_3Evars;

case 549: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r bindings env expr k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(550);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto gs_bindings_2D_3Evals;

case 550: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr r k */
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[5];  
    r[7+1] = r[4];  
    r[7+2] = r[1];  
    r[7+3] = r[6];  
    r[7+4] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dletrec_2Daux;

case 551: /* comp-letrec-aux k vars vals body env */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_comp_2Dletrec_2Daux: /* k vars vals body env */
  if ((ispair((r[1])))) {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(552);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    /* r[1] */    
    r[2] = r[4];  
    goto gs_push_2Dframe;
  } else {
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto gs_comp_2Dbody;
  }

case 552: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r vals body k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(553);
    r[5] = (hendblk(3+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_comp_2Dvals;

case 553: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r body k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(554);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_comp_2Dbody;

case 554: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec;

case 555: /* comp-vals k l env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dvals: /* k l env */
  if ((ispair((r[1])))) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(556);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_comp_2Dvals;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 556: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(557);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (car((r[3])));
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 557: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 558: /* comp-begin k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dbegin: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(559);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;

case 559: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr k */
    r[0] = r[4];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dsequence;

case 560: /* comp-sequence k exprs env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dsequence: /* k exprs env */
  if ((ispair((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dsequence_2Daux;
  } else {
    /* r[0] */    
    r[1] = (mknull());
    goto gs_gen_2Dcst;
  }

case 561: /* comp-sequence-aux k exprs env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dsequence_2Daux: /* k exprs env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(562);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 562: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k exprs */
    r[5] = (cdr((r[4])));
  if ((ispair((r[5])))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(563);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto gs_comp_2Dsequence_2Daux;
  } else {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 563: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dsequence;

case 564: /* comp-do k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Ddo: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(565);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 565: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = obj_from_case(566);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[6];  
    r[2] = obj_from_fixnum(+1);
    goto gs_shape;

case 566: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . env exit expr bindings k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(567);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[5];  
    goto gs_bindings_2D_3Evars;

case 567: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r env exit expr bindings k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(568);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = (cx__233755);
    /* r[2] */    
    goto gs_push_2Dframe;

case 568: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r exit expr r bindings k */
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(569);
    r[7] = (hendblk(6+1));
    r[8+0] = r[7];  
    r[8+1] = r[4];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_push_2Dframe;

case 569: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r exit expr r bindings r k */
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(570);
    r[8] = (hendblk(7+1));
    r[9+0] = r[8];  
    r[9+1] = (car((r[2])));
    r[9+2] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcomp;

case 570: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r exit expr r r bindings r k */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(571);
    r[9] = (hendblk(7+1));
    r[0] = r[9];  
    r[1] = (cdr((r[2])));
    r[2] = r[4];  
    goto gs_comp_2Dsequence;

case 571: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r expr r r r bindings r k */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(572);
    r[9] = (hendblk(7+1));
    r[10] = (cdr((r[2])));
    r[10] = (cdr((r[10])));
    r[10] = (cdr((r[10])));
    r[0] = r[9];  
    r[1] = (r[10]);
    r[2] = r[3];  
    goto gs_comp_2Dsequence;

case 572: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r bindings r k */
    hreserve(hbsz(8+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(573);
    r[9] = (hendblk(8+1));
    r[0] = r[9];  
    r[1] = (cx__233765);
    goto gs_gen_2Dvar_2Dref;

case 573: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r r bindings r k */
    hreserve(hbsz(9+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(574);
    r[10] = (hendblk(9+1));
    r[0] = (r[10]);
    r[1] = r[7];  
    goto gs_bindings_2D_3Esteps;

case 574: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r r r bindings r k */
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(575);
    r[11] = (hendblk(8+1));
    r[0] = (r[11]);
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dvals;

case 575: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r r bindings r k */
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(576);
    r[10] = (hendblk(7+1));
    r[11+0] = (r[10]);
    r[11+1] = r[2];  
    r[11+2] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination;

case 576: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r bindings r k */
    hreserve(hbsz(6+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(577);
    r[9] = (hendblk(6+1));
    r[10+0] = r[9];  
    r[10+1] = r[2];  
    r[10+2] = r[1];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dsequence;

case 577: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r bindings r k */
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(578);
    r[8] = (hendblk(4+1));
    r[9+0] = r[8];  
    r[9+1] = r[3];  
    r[9+2] = r[2];  
    r[9+3] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dif;

case 578: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r r bindings r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(579);
    r[6] = (hendblk(3+1));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[7] = obj_from_fixnum(n); }
    r[8+0] = r[6];  
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dlambda;

case 579: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r bindings r k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(580);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (cx__233760);
    goto gs_gen_2Dvar_2Dref;

case 580: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r bindings r r k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(581);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto gs_bindings_2D_3Evals;

case 581: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(582);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dvals;

case 582: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(583);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination;

case 583: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec;

case 584: /* bindings->steps k bindings */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_bindings_2D_3Esteps: /* k bindings */
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(585);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    goto gs_bindings_2D_3Esteps;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 585: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k binding */
    r[4] = (cdr((r[3])));
    r[4] = (cdr((r[4])));
    r[4] = obj_from_bool(ispair((r[4])));
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[3])));
    r[4] = (cdr((r[4])));
    r[4] = (car((r[4])));
  } else {
    r[4] = (car((r[3])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 586: /* comp-define k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Ddefine: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(587);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;

case 587: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . env k expr */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
    r[6] = ((ispair((r[5]))) ? (car((r[5]))) : (r[5]));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(588);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[6];  
    goto gs_variable;

case 588: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . env expr pattern x k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(589);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[5];  
    /* r[2] */    
    goto gs_lookup_2Dvar;

case 589: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr pattern x k */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(590);
    r[7] = (hendblk(3+1));
  if ((ispair((r[4])))) {
    r[8] = (cdr((r[3])));
    r[8] = (cdr((r[8])));
    r[9] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = (mksymbol(internsym("lambda", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
  } else {
    r[8] = (cdr((r[3])));
    r[8] = (cdr((r[8])));
    r[8] = (car((r[8])));
  }
    r[0] = r[7];  
    r[1] = r[8];  
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 590: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r x k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(591);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dvar_2Dset;

case 591: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(592);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_gen_2Dcst;

case 592: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dsequence;

case 593: /* comp-define-macro k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Ddefine_2Dmacro: /* k expr env */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(594);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_definition_2Dname;

case 594: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r expr k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(595);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_definition_2Dvalue;

case 595: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(596);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_scheme_2Deval;

case 596: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dmacro;

case 597: /* comp-combination k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_comp_2Dcombination: /* k expr env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(598);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 598: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env expr k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(599);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_comp_2Dvals;

case 599: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination;

case 600: /* %residual-scheme-global-var-ref k i */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k i */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cdr((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 601: /* %residual-scheme-global-var-set! k i val */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k i val */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 602: /* gen-var-ref k var */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dvar_2Dref: /* k var */
  if ((ispair((r[1])))) {
    r[2+0] = r[0];  
    r[2+1] = (car((r[1])));
    r[2+2] = (cdr((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Drte_2Dref;
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(603);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_scheme_2Dglobal_2Dvar;
  }

case 603: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dglo_2Dref;

case 604: /* gen-rte-ref k up over */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Drte_2Dref: /* k up over */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dslot_2Dref_2D0;
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dslot_2Dref_2D1;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(605);
    r[3] = (hendblk(1+1));
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+2)));
  } else {
    { const flonum_t v27902_tmp = ((flonum_t)(+2));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v27902_tmp)); } 
  }
    r[0] = r[3];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_gen_2Drte_2Dref;
  }
  }

case 605: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dslot_2Dref_2Dup_2D2;

case 606: /* gen-slot-ref-0 k i */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dref_2D0: /* k i */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(607);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(608);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(609);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(610);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(611);
    r[2] = (hendblk(1+1));
  }
  }
  }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 607: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (vectorref((r[1]), (+0)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 608: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (vectorref((r[1]), (+1)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 609: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (vectorref((r[1]), (+2)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 610: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (vectorref((r[1]), (+3)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 611: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte i */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (vectorref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 612: /* gen-slot-ref-1 k i */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dref_2D1: /* k i */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(613);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(614);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(615);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(616);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(617);
    r[2] = (hendblk(1+1));
  }
  }
  }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 613: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2] = (vectorref((r[1]), (+0)));
    r[2] = (vectorref((r[2]), (+0)));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 614: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2] = (vectorref((r[1]), (+0)));
    r[2] = (vectorref((r[2]), (+1)));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 615: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2] = (vectorref((r[1]), (+0)));
    r[2] = (vectorref((r[2]), (+2)));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 616: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2] = (vectorref((r[1]), (+0)));
    r[2] = (vectorref((r[2]), (+3)));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 617: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte i */
    r[3] = (vectorref((r[1]), (+0)));
    r[3] = (vectorref((r[3]), fixnum_from_obj(r[2])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 618: /* gen-slot-ref-up-2 k code */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dref_2Dup_2D2: /* k code */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(619);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 619: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    r[3] = (vectorref((r[1]), (+0)));
    r[3] = (vectorref((r[3]), (+0)));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 620: /* gen-glo-ref k i */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dref: /* k i */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(621);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 621: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte i */
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 622: /* gen-cst k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcst: /* k val */
  if (((((r[1]) == (mknull())) || ((is_flonum_obj(r[1])) && ((is_flonum_obj(mknull())) && (flonum_from_obj(r[1]) == flonum_from_obj(mknull()))))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(623);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(624);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_bool(1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(625);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(-2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(626);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(-1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(627);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(628);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(629);
    r[2] = (hendblk(0+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(630);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(631);
    r[2] = (hendblk(1+1));
  }
  }
  }
  }
  }
  }
  }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 623: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 624: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 625: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 626: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(-2);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 627: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(-1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 628: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 629: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 630: /* clo k rte */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k rte */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+2);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 631: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte val */
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 632: /* gen-append-form k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dappend_2Dform: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(633);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 633: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code2 code1 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(634);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 634: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code1 rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(635);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 635: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { fixnum_t v27901_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27901_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27901_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[1];   t = r[3];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[4] = (o); } }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 636: /* gen-cons-form k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcons_2Dform: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(637);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 637: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code2 code1 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(638);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 638: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code1 rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(639);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 639: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 640: /* gen-vector-form k code */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dvector_2Dform: /* k code */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(641);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 641: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(642);
    r[3] = (hendblk(1+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 642: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_lst_2D_3Evector;

case 643: /* gen-var-set k var code */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dvar_2Dset: /* k var code */
  if ((ispair((r[1])))) {
    r[3+0] = r[0];  
    r[3+1] = (car((r[1])));
    r[3+2] = (cdr((r[1])));
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Drte_2Dset;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(644);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Dglobal_2Dvar;
  }

case 644: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r code k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_gen_2Dglo_2Dset;

case 645: /* gen-rte-set k up over code */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Drte_2Dset: /* k up over code */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_gen_2Dslot_2Dset_2D0;
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_gen_2Dslot_2Dset_2D1;
  } else {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(646);
    r[4] = (hendblk(3+1));
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+2)));
  } else {
    { const flonum_t v27900_tmp = ((flonum_t)(+2));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) - (v27900_tmp)); } 
  }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(+0);
    goto gs_gen_2Drte_2Dref;
  }
  }

case 646: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code over k */
    r[5+0] = r[4];  
    r[5+1] = r[1];  
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dslot_2Dset_2Dn;

case 647: /* gen-slot-set-0 k i code */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dset_2D0: /* k i code */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(648);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(650);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(652);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(654);
    r[3] = (hendblk(1+1));
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(656);
    r[3] = (hendblk(2+1));
  }
  }
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 648: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(649);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 649: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+0)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 650: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(651);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 651: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+1)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 652: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(653);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 653: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+2)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 654: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(655);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 655: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+3)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 656: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code i */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(657);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 657: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte i */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = obj_from_void(vectorref((r[3]), fixnum_from_obj(r[4])) = (r[1]));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 658: /* gen-slot-set-1 k i code */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dset_2D1: /* k i code */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(659);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(661);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(663);
    r[3] = (hendblk(1+1));
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(665);
    r[3] = (hendblk(1+1));
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(667);
    r[3] = (hendblk(2+1));
  }
  }
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 659: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(660);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 660: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((vectorref((r[3]), (+0))), (+0)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 661: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(662);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 662: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((vectorref((r[3]), (+0))), (+1)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 663: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(664);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 664: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((vectorref((r[3]), (+0))), (+2)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 665: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(666);
    r[3] = (hendblk(2+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 666: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((vectorref((r[3]), (+0))), (+3)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 667: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code i */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(668);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 668: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k rte i */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = obj_from_void(vectorref((vectorref((r[3]), (+0))), fixnum_from_obj(r[4])) = (r[1]));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 669: /* gen-slot-set-n k up i code */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dslot_2Dset_2Dn: /* k up i code */
  if (((((r[2]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[2])) && (0))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(670);
    r[4] = (hendblk(2+1));
  } else {
  if (((((r[2]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[2])) && (0))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(673);
    r[4] = (hendblk(2+1));
  } else {
  if (((((r[2]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[2])) && (0))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(676);
    r[4] = (hendblk(2+1));
  } else {
  if (((((r[2]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[2])) && (0))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(679);
    r[4] = (hendblk(2+1));
  } else {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(682);
    r[4] = (hendblk(3+1));
  }
  }
  }
  }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 670: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte up code */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(671);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (vectorref((r[1]), (+0)));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 671: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(672);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 672: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+0)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 673: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte up code */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(674);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (vectorref((r[1]), (+0)));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 674: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(675);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 675: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+1)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 676: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte up code */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(677);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (vectorref((r[1]), (+0)));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 677: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(678);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 678: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+2)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 679: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte up code */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(680);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (vectorref((r[1]), (+0)));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 680: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(681);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 681: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[3]), (+3)) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 682: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte up code i */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(683);
    r[5] = (hendblk(4+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (vectorref((r[1]), (+0)));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 683: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r code rte k i */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(684);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 684: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r i */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = obj_from_void(vectorref((r[3]), fixnum_from_obj(r[4])) = (r[1]));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 685: /* gen-glo-set k i code */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dset: /* k i code */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(686);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 686: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code i */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(687);
    r[4] = (hendblk(2+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 687: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k i */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(cdr((r[3])) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 688: /* gen-lambda-rest k nb-vars body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2Drest: /* k nb-vars body */
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D1_2Drest;
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D2_2Drest;
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D3_2Drest;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_gen_2Dlambda_2Dn_2Drest;
  }
  }
  }

case 689: /* gen-lambda-1-rest k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D1_2Drest: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(690);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 690: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(691);
    r[3] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 691: /* clo k a */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a body rte */
    { /* vector */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(2+1)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 692: /* gen-lambda-2-rest k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D2_2Drest: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(693);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 693: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(694);
    r[3] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+2), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 694: /* clo k a b */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a b body rte */
    { /* vector */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[5] = (hendblk(3+1)); }
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 695: /* gen-lambda-3-rest k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D3_2Drest: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(696);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 696: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(697);
    r[3] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+3), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 697: /* clo k a b c */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a b c body rte */
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[6] = (hendblk(4+1)); }
    r[7+0] = r[4];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 698: /* gen-lambda-n-rest k nb-vars body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2Dn_2Drest: /* k nb-vars body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(699);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 699: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte body nb-vars */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(700);
    r[4] = (hendblk(3+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub(fixnum_from_obj(r[3]), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 700: /* clo k a b c d */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1];
    r[1+6] = p[2];
    r[1+7] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k a b c d body rte nb-vars */
  if ((is_fixnum_obj(r[7]))) {
    r[8] = obj_from_fixnum(fxadd(fixnum_from_obj(r[7]), (+1)));
  } else {
    { const flonum_t v27899_tmp = ((flonum_t)(+1));
    r[8] = obj_from_flonum(8, flonum_from_obj(r[7]) + (v27899_tmp)); } 
  }
    { /* make-vector */
    obj o; int i = 0, c = fixnum_from_obj(r[8]);
    hreserve(hbsz(c+1), 9); /* 9 live regs */
    o = obj_from_void(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[8] = (hendblk(c+1)); }
    (void)(vectorref((r[8]), (+0)) = (r[6]));
    (void)(vectorref((r[8]), (+1)) = (r[1]));
    (void)(vectorref((r[8]), (+2)) = (r[2]));
    (void)(vectorref((r[8]), (+3)) = (r[3]));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = obj_from_case(701);
    r[9] = (hendblk(3+1));
    r[0] = r[9];  
    r[1] = r[7];  
    r[2] = r[8];  
    r[3] = obj_from_fixnum(+4);
    /* r[4] */    
    goto s_loop_v22846;

s_loop_v22846: /* k n x i l */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v27897_i = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool((v27897_i) < fixnum_from_obj(r[1]));
  } else {
    { const flonum_t v27898_tmp = ((flonum_t)(v27897_i));
    r[5] = obj_from_bool((v27898_tmp) < flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v27896_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_bool(flonum_from_obj(r[3]) < (v27896_tmp)); } 
  } else {
    r[5] = obj_from_bool(flonum_from_obj(r[3]) < flonum_from_obj(r[1]));
  }
  }
  if (bool_from_obj(r[5])) {
    r[5] = (car((r[4])));
    (void)(vectorref((r[2]), fixnum_from_obj(r[3])) = (r[5]));
  if ((is_fixnum_obj(r[3]))) {
    r[5] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
  } else {
    { const flonum_t v27895_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) + (v27895_tmp)); } 
  }
    r[6] = (cdr((r[4])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[5];  
    r[4] = r[6];  
    goto s_loop_v22846;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(vectorref((r[2]), fixnum_from_obj(r[3])) = (r[4]));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 701: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . body x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 702: /* gen-lambda k nb-vars body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda: /* k nb-vars body */
  if (((((r[1]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D0;
  } else {
  if (((((r[1]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D1;
  } else {
  if (((((r[1]) == obj_from_fixnum(+2)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D2;
  } else {
  if (((((r[1]) == obj_from_fixnum(+3)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D3;
  } else {
  if (((((r[1]) == obj_from_fixnum(+4)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    /* r[0] */    
    r[1] = r[2];  
    goto gs_gen_2Dlambda_2D4;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_gen_2Dlambda_2Dn;
  }
  }
  }
  }
  }

case 703: /* gen-lambda-0 k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D0: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(704);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 704: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(705);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+0)));
    goto gs_make_2Dannotated_2Dprocedure;

case 705: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1];
    r[1+2] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k body rte */
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 706: /* gen-lambda-1 k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D1: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(707);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 707: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(708);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 708: /* clo k a */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a body rte */
    { /* vector */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(2+1)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 709: /* gen-lambda-2 k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D2: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(710);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 710: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(711);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 711: /* clo k a b */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a b body rte */
    { /* vector */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[5] = (hendblk(3+1)); }
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 712: /* gen-lambda-3 k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D3: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(713);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 713: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(714);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+3), (+1000))), (+3)));
    goto gs_make_2Dannotated_2Dprocedure;

case 714: /* clo k a b c */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a b c body rte */
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[6] = (hendblk(4+1)); }
    r[7+0] = r[4];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 715: /* gen-lambda-4 k body */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2D4: /* k body */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(716);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 716: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(717);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+4), (+1000))), (+4)));
    goto gs_make_2Dannotated_2Dprocedure;

case 717: /* clo k a b c d */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1];
    r[1+6] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k a b c d body rte */
    { /* vector */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[7] = (hendblk(5+1)); }
    r[8+0] = r[5];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 718: /* gen-lambda-n k nb-vars body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dlambda_2Dn: /* k nb-vars body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(719);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 719: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte body nb-vars */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(720);
    r[4] = (hendblk(3+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul(fixnum_from_obj(r[3]), (+1000))), fixnum_from_obj(r[3])));
    goto gs_make_2Dannotated_2Dprocedure;

case 720: /* clo k a b c d e */
    assert(rc == 7);
    { obj* p = objptr_from_obj(r[0]);
    r[1+6] = p[1];
    r[1+7] = p[2];
    r[1+8] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k a b c d e body rte nb-vars */
  if ((is_fixnum_obj(r[8]))) {
    r[9] = obj_from_fixnum(fxadd(fixnum_from_obj(r[8]), (+1)));
  } else {
    { const flonum_t v27894_tmp = ((flonum_t)(+1));
    r[9] = obj_from_flonum(9, flonum_from_obj(r[8]) + (v27894_tmp)); } 
  }
    { /* make-vector */
    obj o; int i = 0, c = fixnum_from_obj(r[9]);
    hreserve(hbsz(c+1), 10); /* 10 live regs */
    o = obj_from_void(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[9] = (hendblk(c+1)); }
    (void)(vectorref((r[9]), (+0)) = (r[7]));
    (void)(vectorref((r[9]), (+1)) = (r[1]));
    (void)(vectorref((r[9]), (+2)) = (r[2]));
    (void)(vectorref((r[9]), (+3)) = (r[3]));
    (void)(vectorref((r[9]), (+4)) = (r[4]));
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = obj_from_case(721);
    r[10] = (hendblk(3+1));
    r[0] = (r[10]);
    r[1] = r[8];  
    r[2] = r[9];  
    r[3] = obj_from_fixnum(+5);
    r[4] = r[5];  
    goto s_loop_v22693;

s_loop_v22693: /* k n x i l */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v27892_i = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool((v27892_i) <= fixnum_from_obj(r[1]));
  } else {
    { const flonum_t v27893_tmp = ((flonum_t)(v27892_i));
    r[5] = obj_from_bool((v27893_tmp) <= flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v27891_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_bool(flonum_from_obj(r[3]) <= (v27891_tmp)); } 
  } else {
    r[5] = obj_from_bool(flonum_from_obj(r[3]) <= flonum_from_obj(r[1]));
  }
  }
  if (bool_from_obj(r[5])) {
    r[5] = (car((r[4])));
    (void)(vectorref((r[2]), fixnum_from_obj(r[3])) = (r[5]));
  if ((is_fixnum_obj(r[3]))) {
    r[5] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
  } else {
    { const flonum_t v27890_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) + (v27890_tmp)); } 
  }
    r[6] = (cdr((r[4])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[5];  
    r[4] = r[6];  
    goto s_loop_v22693;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 721: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . body x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 722: /* gen-sequence k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dsequence: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(723);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 723: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(724);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 724: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . code2 rte k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 725: /* gen-when k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dwhen: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(726);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 726: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(727);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 727: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code2 rte k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 728: /* gen-if k code1 code2 code3 */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dif: /* k code1 code2 code3 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(729);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 729: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code3 code2 */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(730);
    r[5] = (hendblk(4+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 730: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r code3 code2 rte k */
  if (bool_from_obj(r[1])) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 731: /* gen-cond-send k code1 code2 code3 */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcond_2Dsend: /* k code1 code2 code3 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(732);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 732: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code3 code2 */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(733);
    r[5] = (hendblk(4+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 733: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r code3 code2 rte k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(734);
    r[6] = (hendblk(2+1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 734: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 735: /* gen-and k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dand: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(736);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 736: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(737);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 737: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code2 rte k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 738: /* gen-or k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dor: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(739);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 739: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(740);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 740: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code2 rte k */
  if (bool_from_obj(r[1])) {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 741: /* gen-case k code1 code2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcase: /* k code1 code2 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(742);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 742: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(743);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 743: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r code2 rte k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 744: /* gen-case-clause k datums code1 code2 */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcase_2Dclause: /* k datums code1 code2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(745);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 745: /* clo k rte key */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte key code2 code1 datums */
  if (bool_from_obj(ismemv((r[2]), (r[5])))) {
    r[6+0] = r[4];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 746: /* gen-case-else k code */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcase_2Delse: /* k code */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(747);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 747: /* clo k rte key */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte key code */
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 748: /* gen-letrec k vals body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dletrec: /* k vals body */
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[3] = obj_from_fixnum(n); }
  if (((((r[3]) == obj_from_fixnum(+1)) && ((r[3]) == obj_from_fixnum(+1))) && (1))) {
    /* r[0] */    
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_gen_2Dletrec_2D1;
  } else {
  if (((((r[3]) == obj_from_fixnum(+2)) && ((r[3]) == obj_from_fixnum(+2))) && (1))) {
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[5+0] = r[0];  
    r[5+1] = (car((r[1])));
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec_2D2;
  } else {
  if (((((r[3]) == obj_from_fixnum(+3)) && ((r[3]) == obj_from_fixnum(+3))) && (1))) {
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[6+0] = r[0];  
    r[6+1] = (car((r[1])));
    r[6+2] = r[4];  
    r[6+3] = r[5];  
    r[6+4] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec_2D3;
  } else {
    r[4+0] = r[0];  
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec_2Dn;
  }
  }
  }

case 749: /* gen-letrec-1 k val1 body */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dletrec_2D1: /* k val1 body */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(750);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 750: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte val1 body */
    { /* vector */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(2+1)); }
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(751);
    r[5] = (hendblk(3+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 751: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r body k x */
    (void)(vectorref((r[4]), (+1)) = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 752: /* gen-letrec-2 k val1 val2 body */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dletrec_2D2: /* k val1 val2 body */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(753);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 753: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte val1 val2 body */
    { /* vector */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[5] = (hendblk(3+1)); }
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(754);
    r[6] = (hendblk(4+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 754: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r val2 body k x */
    (void)(vectorref((r[5]), (+1)) = (r[1]));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(755);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 755: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r body k x */
    (void)(vectorref((r[4]), (+2)) = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 756: /* gen-letrec-3 k val1 val2 val3 body */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_gen_2Dletrec_2D3: /* k val1 val2 val3 body */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(757);
    r[5] = (hendblk(4+1));
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 757: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* k rte val1 val2 val3 body */
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[6] = (hendblk(4+1)); }
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(758);
    r[7] = (hendblk(5+1));
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 758: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r val2 val3 body k x */
    (void)(vectorref((r[6]), (+1)) = (r[1]));
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(759);
    r[7] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 759: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r val3 body k x */
    (void)(vectorref((r[5]), (+2)) = (r[1]));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(760);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 760: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r body k x */
    (void)(vectorref((r[4]), (+3)) = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 761: /* gen-letrec-n k nb-vals vals body */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dletrec_2Dn: /* k nb-vals vals body */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(762);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 762: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte vals body nb-vals */
  if ((is_fixnum_obj(r[4]))) {
    r[5] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
  } else {
    { const flonum_t v27889_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) + (v27889_tmp)); } 
  }
    { /* make-vector */
    obj o; int i = 0, c = fixnum_from_obj(r[5]);
    hreserve(hbsz(c+1), 6); /* 6 live regs */
    o = obj_from_void(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[5] = (hendblk(c+1)); }
    (void)(vectorref((r[5]), (+0)) = (r[1]));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_case(765);
    r[6] = (hendblk(3+1));
    r[7+0] = r[6];  
    r[7+1] = r[5];  
    r[7+2] = obj_from_fixnum(+1);
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v22380;

case 763: /* clo k x i l */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
s_loop_v22380: /* k x i l */
  if ((ispair((r[3])))) {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(763);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(764);
    r[4] = (hendblk(5+1));
    r[5+0] = (car((r[3])));
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 764: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop l k x i */
    (void)(vectorref((r[5]), fixnum_from_obj(r[6])) = (r[1]));
  if ((is_fixnum_obj(r[6]))) {
    r[7] = obj_from_fixnum(fxadd(fixnum_from_obj(r[6]), (+1)));
  } else {
    { const flonum_t v27888_tmp = ((flonum_t)(+1));
    r[7] = obj_from_flonum(7, flonum_from_obj(r[6]) + (v27888_tmp)); } 
  }
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[4];  
    r[8+2] = r[5];  
    r[8+3] = r[7];  
    r[8+4] = (cdr((r[3])));
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 765: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . body x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 766: /* gen-macro k name proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dmacro: /* k name proc */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(767);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 767: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte proc name */
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto gs_scheme_2Dadd_2Dmacro;

case 768: /* gen-combination k oper args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination: /* k oper args */
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[3] = obj_from_fixnum(n); }
  if (((((r[3]) == obj_from_fixnum(+0)) && ((r[3]) == obj_from_fixnum(+0))) && (1))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_gen_2Dcombination_2D0;
  } else {
  if (((((r[3]) == obj_from_fixnum(+1)) && ((r[3]) == obj_from_fixnum(+1))) && (1))) {
    /* r[0] */    
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs_gen_2Dcombination_2D1;
  } else {
  if (((((r[3]) == obj_from_fixnum(+2)) && ((r[3]) == obj_from_fixnum(+2))) && (1))) {
    r[4] = (cdr((r[2])));
    r[4] = (car((r[4])));
    r[5+0] = r[0];  
    r[5+1] = r[1];  
    r[5+2] = (car((r[2])));
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination_2D2;
  } else {
  if (((((r[3]) == obj_from_fixnum(+3)) && ((r[3]) == obj_from_fixnum(+3))) && (1))) {
    r[4] = (cdr((r[2])));
    r[4] = (car((r[4])));
    r[5] = (cdr((r[2])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[6+0] = r[0];  
    r[6+1] = r[1];  
    r[6+2] = (car((r[2])));
    r[6+3] = r[4];  
    r[6+4] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination_2D3;
  } else {
  if (((((r[3]) == obj_from_fixnum(+4)) && ((r[3]) == obj_from_fixnum(+4))) && (1))) {
    r[4] = (cdr((r[2])));
    r[4] = (car((r[4])));
    r[5] = (cdr((r[2])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[2])));
    r[6] = (cdr((r[6])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[7+0] = r[0];  
    r[7+1] = r[1];  
    r[7+2] = (car((r[2])));
    r[7+3] = r[4];  
    r[7+4] = r[5];  
    r[7+5] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination_2D4;
  } else {
    r[4+0] = r[0];  
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dcombination_2Dn;
  }
  }
  }
  }
  }

case 769: /* gen-combination-0 k oper */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2D0: /* k oper */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(770);
    r[2] = (hendblk(1+1));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 770: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(771);
    r[3] = (hendblk(1+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 771: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
  if ((isprocedure((r[1])))) {
    r[3] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[3] = obj_from_bool(((fxquo(fixnum_from_obj(r[3]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[3]), (+1000)))));
  if (bool_from_obj(r[3])) {
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    r[3+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (cx__234774);
    r[3+3] = obj_from_fixnum(+0);
    r[3+4] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[3+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (cx__234773);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 772: /* gen-combination-1 k oper arg1 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2D1: /* k oper arg1 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(773);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 773: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper arg1 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(774);
    r[4] = (hendblk(3+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 774: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg1 rte k */
  if ((isprocedure((r[1])))) {
    r[5] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[5] = obj_from_bool(((fxquo(fixnum_from_obj(r[5]), (+1000))) <= (+1)) && ((+1) <= (fxrem(fixnum_from_obj(r[5]), (+1000)))));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(775);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__234774);
    r[5+3] = obj_from_fixnum(+1);
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__234773);
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 775: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 776: /* gen-combination-2 k oper arg1 arg2 */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2D2: /* k oper arg1 arg2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(777);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 777: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper arg1 arg2 */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(778);
    r[5] = (hendblk(4+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 778: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg1 arg2 rte k */
  if ((isprocedure((r[1])))) {
    r[6] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[6] = obj_from_bool(((fxquo(fixnum_from_obj(r[6]), (+1000))) <= (+2)) && ((+2) <= (fxrem(fixnum_from_obj(r[6]), (+1000)))));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(779);
    r[6] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__234774);
    r[6+3] = obj_from_fixnum(+2);
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__234773);
    r[6+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 779: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg2 rte r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(780);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 780: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 781: /* gen-combination-3 k oper arg1 arg2 arg3 */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2D3: /* k oper arg1 arg2 arg3 */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(782);
    r[5] = (hendblk(4+1));
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 782: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper arg1 arg2 arg3 */
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(783);
    r[6] = (hendblk(5+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 783: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg1 arg2 arg3 rte k */
  if ((isprocedure((r[1])))) {
    r[7] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[7] = obj_from_bool(((fxquo(fixnum_from_obj(r[7]), (+1000))) <= (+3)) && ((+3) <= (fxrem(fixnum_from_obj(r[7]), (+1000)))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(784);
    r[7] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (cx__234774);
    r[7+3] = obj_from_fixnum(+3);
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (cx__234773);
    r[7+3] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 784: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg2 arg3 rte r k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(785);
    r[7] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 785: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg3 rte r r k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(786);
    r[7] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 786: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r[6+3] = r[3];  
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 787: /* gen-combination-4 k oper arg1 arg2 arg3 arg4 */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2D4: /* k oper arg1 arg2 arg3 arg4 */
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(788);
    r[6] = (hendblk(5+1));
    r[7+0] = r[0];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = obj_from_ktrap();
    r[7+2] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 788: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper arg1 arg2 arg3 arg4 */
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(789);
    r[7] = (hendblk(6+1));
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 789: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg1 arg2 arg3 arg4 rte k */
  if ((isprocedure((r[1])))) {
    r[8] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[8] = obj_from_bool(((fxquo(fixnum_from_obj(r[8]), (+1000))) <= (+4)) && ((+4) <= (fxrem(fixnum_from_obj(r[8]), (+1000)))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(790);
    r[8] = (hendblk(6+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cx__234774);
    r[8+3] = obj_from_fixnum(+4);
    r[8+4] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cx__234773);
    r[8+3] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 790: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg2 arg3 arg4 rte r k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(791);
    r[8] = (hendblk(6+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 791: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg3 arg4 rte r r k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(792);
    r[8] = (hendblk(6+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 792: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r arg4 rte r r r k */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(793);
    r[8] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 793: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r r r k */
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r[7+3] = r[4];  
    r[7+4] = r[3];  
    r[7+5] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 794: /* gen-combination-n k argc oper args */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dcombination_2Dn: /* k argc oper args */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(795);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 795: /* clo k rte */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k rte oper args argc */
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(798);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(796);
    r[5] = (hendblk(5+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 796: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r evaluate rte args k argc */
  if ((isprocedure((r[1])))) {
    r[7] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[7] = obj_from_bool(((fxquo(fixnum_from_obj(r[7]), (+1000))) <= fixnum_from_obj(r[6])) && (fixnum_from_obj(r[6]) <= (fxrem(fixnum_from_obj(r[7]), (+1000)))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(797);
    r[7] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__234774);
    r[7+3] = r[6];  
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__234773);
    r[7+3] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 797: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 798: /* clo k l rte */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_evaluate: /* k l rte */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(799);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_evaluate;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 799: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r l rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(800);
    r[5] = (hendblk(2+1));
    r[0] = (car((r[2])));
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 800: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 801: /* scheme-comp k expr env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dcomp: /* k expr env */
  if ((issymbol((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dvar;
  } else {
  if ((!(ispair((r[1]))))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dself_2Deval;
  } else {
    r[3] = (car((r[1])));
    r[4] = (cdr((r[2])));
    { /* assq */
    obj x = (r[3]), l = (r[4]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(802);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_macro_2Dexpand;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dquote;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quasiquote", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dquasiquote;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("unquote", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dunquote;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("unquote-splicing", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dunquote_2Dsplicing;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dset_21;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dlambda;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dif;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("cond", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dcond;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("and", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dand;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("or", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dor;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("case", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dcase;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("let", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dlet;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("let*", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dlet_2A;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letrec", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dletrec;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dbegin;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("do", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Ddo;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Ddefine;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define-macro", 1))));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Ddefine_2Dmacro;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_comp_2Dcombination;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 802: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_scheme_2Dcomp;

case 803: /* scheme-add-macro k name proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dadd_2Dmacro: /* k name proc */
    r[3] = (cdr((cx_scheme_2Dglobal_2Denvironment)));
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    (void)(cdr((cx_scheme_2Dglobal_2Denvironment)) = (r[3]));
    r[3] = r[1];  
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 804: /* scheme-eval k expr */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_scheme_2Deval: /* k expr */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(805);
    r[2] = (hendblk(1+1));
    r[3+0] = r[2];  
    r[3+1] = r[1];  
    r[3+2] = (cx_scheme_2Dglobal_2Denvironment);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcomp;

case 805: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 806: /* scheme-global-var k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dglobal_2Dvar: /* k name */
    { /* assq */
    obj x = (r[1]), l = (cx_scheme_2Dglobal_2Dvariables), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[2] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[2])) {
    /* r[2] */    
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (cx_scheme_2Dglobal_2Dvariables);
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx_scheme_2Dglobal_2Dvariables = (hendblk(3)); }
    r[2] = r[3];  
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 807: /* reverse-global-lookup k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_reverse_2Dglobal_2Dlookup: /* k val */
    r[2] = (cx_scheme_2Dglobal_2Dvariables);
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v22082;

s_loop_v22082: /* k al val */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (cdr((r[3])));
    r[3] = obj_from_bool((r[3]) == (r[2]));
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v22082;
  }
  }

case 808: /* get-global k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k name */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(809);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_scheme_2Dglobal_2Dvar;

case 809: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cdr((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 810: /* set-global! k name value */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name value */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(811);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Dglobal_2Dvar;

case 811: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k value */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(cdr((r[1])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 812: /* alist? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_alist_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 813: /* %residual-exact-nonnegative-integer? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dexact_2Dnonnegative_2Dinteger_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 814: /* %residual-radix? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dradix_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 815: /* %residual-index-in-vector? k v x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k v x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Dindex_2Din_2Dvector_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 816: /* %residual-index-in-string? k s x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Dindex_2Din_2Dstring_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 817: /* %residual-range-in-string? k s x y */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k s x y */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs__25residual_2Drange_2Din_2Dstring_3F((r[1]), (r[2]), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 818: /* every-complex? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dcomplex_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 819: /* every-real? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dreal_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 820: /* every-integer? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dinteger_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 821: /* every-char? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dchar_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 822: /* every-string? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dstring_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 823: /* every-list-but-last? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_every_2Dlist_2Dbut_2Dlast_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 824: /* last-list? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_last_2Dlist_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 825: /* splice-last-list k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_splice_2Dlast_2Dlist: /* k l */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v21953;

s_loop_v21953: /* k l */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(826);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v21953;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 826: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (car((r[3])));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 827: /* wrapper-for k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(828);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(829);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+0)));
    goto gs_make_2Dannotated_2Dprocedure;

case 828: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 829: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1];
    r[1+2] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k p * */
  if ((!(1))) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(830);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (cx__235154);
    r[4+3] = (objptr_from_obj(r[1])[0]);
    r[4+4] = (mksymbol(internsym(":", 1)));
    r[4+5] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  }

case 830: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . * k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 831: /* wrapper-for-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(832);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(833);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 832: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 833: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(1))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(834);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 834: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 835: /* wrapper-for-obj-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj_2Dobj: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(836);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(837);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 836: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 837: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((1) && (1)))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(838);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 838: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 839: /* wrapper-for-obj-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj_2D_2E_2E_2E: /* k * */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_make_2Dannotated_2Dprocedure;

case 840: /* wrapper-for-n k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dn: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(841);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(842);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 841: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 842: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[4] = obj_from_bool(f == floor(f)); }
  } else {
    r[4] = obj_from_bool(0);
  }
  }
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(843);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 843: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 844: /* wrapper-for-n-n k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dn_2Dn: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(845);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(846);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 845: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 846: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[5] = obj_from_bool(f == floor(f)); }
  } else {
    r[5] = obj_from_bool(0);
  }
  }
  if (bool_from_obj(r[5])) {
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_bool(is_fixnum_obj(r[2]));
  } else {
  if ((is_flonum_obj(r[2]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[2]); 
    r[5] = obj_from_bool(f == floor(f)); }
  } else {
    r[5] = obj_from_bool(0);
  }
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(847);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 847: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 848: /* wrapper-for-n-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dn_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(849);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(850);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(852);
    r[5] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 849: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 850: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[4] = obj_from_bool(f == floor(f)); }
  } else {
    r[4] = obj_from_bool(0);
  }
  }
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(851);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 851: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 852: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k * */
    r[2+0] = r[1];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 853: /* wrapper-for-n-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dn_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(854);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(855);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(857);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(859);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(861);
    r[7] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(15+1), 8); /* 8 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[7];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(15+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 854: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 855: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(856);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dinteger_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21776;
  }

case 856: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21776: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 857: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[5] = obj_from_bool(f == floor(f)); }
  } else {
    r[5] = obj_from_bool(0);
  }
  }
  if (bool_from_obj(r[5])) {
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_bool(is_fixnum_obj(r[2]));
  } else {
  if ((is_flonum_obj(r[2]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[2]); 
    r[5] = obj_from_bool(f == floor(f)); }
  } else {
    r[5] = obj_from_bool(0);
  }
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(858);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 858: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 859: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[4] = obj_from_bool(f == floor(f)); }
  } else {
    r[4] = obj_from_bool(0);
  }
  }
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(860);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 860: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 861: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k * */
    r[2+0] = r[1];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 862: /* wrapper-for-q k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dq: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(863);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(864);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 863: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 864: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(is_fixnum_obj(r[1]));
  } else {
  if ((is_flonum_obj(r[1]))) {
    { /* flinteger? */ 
    flonum_t f = flonum_from_obj(r[1]); 
    r[4] = obj_from_bool(f == floor(f)); }
  } else {
    r[4] = obj_from_bool(0);
  }
  }
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(865);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 865: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 866: /* wrapper-for-x k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dx: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(867);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(868);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 867: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 868: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(869);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 869: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 870: /* wrapper-for-x-x k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dx_2Dx: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(871);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(872);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 871: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 872: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(873);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 873: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 874: /* wrapper-for-x-x-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dx_2Dx_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(875);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(876);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(878);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(880);
    r[6] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 7); /* 7 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(12+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+2), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 875: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 876: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(877);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dreal_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21648;
  }

case 877: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21648: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 878: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(879);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 879: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 880: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(881);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 881: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 882: /* wrapper-for-x-x-x-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(883);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(884);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(886);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+3), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 883: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 884: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(885);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dreal_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21598;
  }

case 885: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21598: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 886: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(887);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 887: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 888: /* wrapper-for-z k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(889);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(890);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 889: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 890: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(891);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 891: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 892: /* wrapper-for-z-z k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2Dz: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(893);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(894);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 893: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 894: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(895);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 895: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 896: /* wrapper-for-z-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(897);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(898);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(900);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(902);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(904);
    r[7] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(15+1), 8); /* 8 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[7];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(15+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 897: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 898: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(899);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dcomplex_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21510;
  }

case 899: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21510: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 900: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(901);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 901: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 902: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(903);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 903: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 904: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k * */
    r[2+0] = r[1];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 905: /* wrapper-for-z-z-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2Dz_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(906);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(907);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(909);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(911);
    r[6] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 7); /* 7 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(12+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+2), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 906: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 907: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(908);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dcomplex_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21456;
  }

case 908: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21456: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 909: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(910);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 910: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 911: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(912);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 912: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 913: /* wrapper-for-z-z-z-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2Dz_2Dz_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(914);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(915);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(917);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+3), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 914: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 915: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(916);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dcomplex_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21406;
  }

case 916: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21406: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 917: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(918);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 918: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 919: /* wrapper-for-z-x-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2Dx_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(920);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(921);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(923);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 920: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 921: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))) && ((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(922);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 922: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 923: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(924);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 924: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 925: /* wrapper-for-z-radix-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dz_2Dradix_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(926);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(927);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(929);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 926: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 927: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27887_y = fixnum_from_obj(r[2]);
    r[5] = obj_from_bool(((v27887_y) == (+2)) || (((v27887_y) == (+8)) || (((v27887_y) == (+10)) || ((v27887_y) == (+16))))); } 
  } else {
    r[5] = obj_from_bool(0);
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(928);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 928: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 929: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(930);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 930: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 931: /* wrapper-for-string-radix-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dradix_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(932);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(933);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(935);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 932: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 933: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((isstring((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27886_y = fixnum_from_obj(r[2]);
    r[5] = obj_from_bool(((v27886_y) == (+2)) || (((v27886_y) == (+8)) || (((v27886_y) == (+10)) || ((v27886_y) == (+16))))); } 
  } else {
    r[5] = obj_from_bool(0);
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(934);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 934: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 935: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!(isstring((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(936);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 936: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 937: /* wrapper-for-pair k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dpair: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(938);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(939);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 938: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 939: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(ispair((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(940);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 940: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 941: /* wrapper-for-pair-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dpair_2Dobj: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(942);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(943);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 942: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 943: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((ispair((r[1]))) && (1)))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(944);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 944: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 945: /* wrapper-for-list k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dlist: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(946);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(947);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 946: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 947: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
    { const bool_t v27885_tmp = (islist((r[1])));
    r[4] = obj_from_bool(!(v27885_tmp)); } 
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(948);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 948: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 949: /* wrapper-for-obj-list k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj_2Dlist: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(950);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(951);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 950: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 951: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
    { const bool_t v27884_tmp = ((1) && (islist((r[2]))));
    r[5] = obj_from_bool(!(v27884_tmp)); } 
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(952);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 952: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 953: /* wrapper-for-obj-alist k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj_2Dalist: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(954);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(955);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 954: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 955: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
    r[5] = ((1) ? (cxs_alist_3F((r[2]))) : obj_from_bool(0));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(956);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 956: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 957: /* wrapper-for-symbol k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dsymbol: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(958);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(959);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 958: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 959: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(issymbol((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(960);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 960: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 961: /* wrapper-for-char k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dchar: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(962);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(963);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 962: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 963: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(is_char_obj(r[1])))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(964);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 964: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 965: /* wrapper-for-char-char k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dchar_2Dchar: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(966);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(967);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 966: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 967: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((is_char_obj(r[1])) && (is_char_obj(r[2]))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(968);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 968: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 969: /* wrapper-for-char-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dchar_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(970);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(971);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 970: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 971: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(972);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dchar_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v21054;
  }

case 972: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v21054: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 973: /* wrapper-for-k-char-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dk_2Dchar_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(974);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(975);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(977);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 974: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 975: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(((is_fixnum_obj(r[1])) && (fixnum_from_obj(r[1]) >= (+0))) && (is_char_obj(r[2]))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(976);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 976: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 977: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) && (fixnum_from_obj(r[1]) >= (+0))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(978);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 978: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 979: /* wrapper-for-string k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(980);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(981);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 980: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 981: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(isstring((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(982);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 982: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 983: /* wrapper-for-string-string k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dstring: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(984);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(985);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 984: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 985: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((isstring((r[1]))) && (isstring((r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(986);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 986: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 987: /* wrapper-for-string-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(988);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(989);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 988: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 989: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k l p * */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(990);
    r[4] = (hendblk(3+1));
    r[5] = (cxs_every_2Dstring_3F((r[1])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v20942;
  }

case 990: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v20942: /* ek . l * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 991: /* wrapper-for-string-obj-... k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dobj_2D_2E_2E_2E: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(992);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(993);
    r[4] = (hendblk(2+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+2), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 992: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 993: /* clo k x l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x l p * */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(994);
    r[5] = (hendblk(4+1));
  if ((!(isstring((r[1]))))) {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = obj_from_ktrap();
    r[6+1] = obj_from_void(0);
    r[6+2] = r[2];  
    r[6+3] = r[1];  
    r[6+4] = r[4];  
    r[6+5] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v20916;
  }

case 994: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v20916: /* ek . l x * k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[6] = obj_from_objptr(c); }
    r[7+0] = r[6];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[4];  
    r[7+3] = r[3];  
    r[7+4] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 995: /* wrapper-for-string-index k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dindex: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(996);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(997);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 996: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 997: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((isstring((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27883_y = fixnum_from_obj(r[2]);
    r[5] = obj_from_bool(((v27883_y) >= (+0)) && ((v27883_y) < (stringlen((r[1]))))); } 
  } else {
    r[5] = obj_from_bool(0);
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(998);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 998: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 999: /* wrapper-for-string-index-char k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dindex_2Dchar: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1000);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1001);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+3), (+1000))), (+3)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1000: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1001: /* clo k x y z */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y z p * */
  if ((isstring((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27882_y = fixnum_from_obj(r[2]);
    r[6] = obj_from_bool(((v27882_y) >= (+0)) && ((v27882_y) < (stringlen((r[1]))))); } 
  } else {
    r[6] = obj_from_bool(0);
  }
  if (bool_from_obj(r[6])) {
    r[6] = obj_from_bool(is_char_obj(r[3]));
  } else {
    r[6] = obj_from_bool(0);
  }
  } else {
    r[6] = obj_from_bool(0);
  }
    r[6] = obj_from_bool(!bool_from_obj(r[6]));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(1002);
    r[6] = (hendblk(5+1));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cx__235154);
    r[8+3] = (objptr_from_obj(r[4])[0]);
    r[8+4] = (mksymbol(internsym(":", 1)));
    r[8+5] = (r[7]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1002: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . * z y x k */
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r[7+3] = r[4];  
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1003: /* wrapper-for-string-start-end k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dstart_2Dend: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1004);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1005);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+3), (+1000))), (+3)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1004: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1005: /* clo k x y z */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y z p * */
  if ((isstring((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27880_y = fixnum_from_obj(r[2]);
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v27881_z = fixnum_from_obj(r[3]);
    r[6] = obj_from_bool(((+0) <= (v27880_y)) && (((v27880_y) <= (v27881_z)) && ((v27881_z) <= (stringlen((r[1])))))); } 
  } else {
    r[6] = obj_from_bool(0);
  } } 
  } else {
    r[6] = obj_from_bool(0);
  }
  } else {
    r[6] = obj_from_bool(0);
  }
    r[6] = obj_from_bool(!bool_from_obj(r[6]));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(1006);
    r[6] = (hendblk(5+1));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cx__235154);
    r[8+3] = (objptr_from_obj(r[4])[0]);
    r[8+4] = (mksymbol(internsym(":", 1)));
    r[8+5] = (r[7]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1006: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . * z y x k */
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r[7+3] = r[4];  
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1007: /* wrapper-for-string-char k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dchar: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1008);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1009);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1008: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1009: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((isstring((r[1]))) && (is_char_obj(r[2]))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1010);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1010: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1011: /* wrapper-for-vector k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dvector: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1012);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1013);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1012: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1013: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(isvector((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1014);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1014: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1015: /* wrapper-for-k-obj-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dk_2Dobj_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1016);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1017);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1019);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1016: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1017: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!((is_fixnum_obj(r[1])) && (fixnum_from_obj(r[1]) >= (+0))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1018);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1018: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1019: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!((is_fixnum_obj(r[1])) && (fixnum_from_obj(r[1]) >= (+0))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1020);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1020: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1021: /* wrapper-for-vector-index k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dvector_2Dindex: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1022);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1023);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1022: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1023: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((isvector((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27879_y = fixnum_from_obj(r[2]);
    r[5] = obj_from_bool(((v27879_y) >= (+0)) && ((v27879_y) < (vectorlen((r[1]))))); } 
  } else {
    r[5] = obj_from_bool(0);
  }
  } else {
    r[5] = obj_from_bool(0);
  }
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1024);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1024: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1025: /* wrapper-for-vector-index-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dvector_2Dindex_2Dobj: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1026);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1027);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+3), (+1000))), (+3)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1026: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1027: /* clo k x y z */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y z p * */
  if ((isvector((r[1])))) {
  if ((is_fixnum_obj(r[2]))) {
    { const fixnum_t v27878_y = fixnum_from_obj(r[2]);
    r[6] = obj_from_bool(((v27878_y) >= (+0)) && ((v27878_y) < (vectorlen((r[1]))))); } 
  } else {
    r[6] = obj_from_bool(0);
  }
  } else {
    r[6] = obj_from_bool(0);
  }
    r[6] = obj_from_bool(!bool_from_obj(r[6]));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(1028);
    r[6] = (hendblk(5+1));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cx__235154);
    r[8+3] = (objptr_from_obj(r[4])[0]);
    r[8+4] = (mksymbol(internsym(":", 1)));
    r[8+5] = (r[7]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1028: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . * z y x k */
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r[7+3] = r[4];  
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1029: /* wrapper-for-vector-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dvector_2Dobj: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1030);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1031);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1030: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1031: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((isvector((r[1]))) && (1)))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1032);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1032: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1033: /* wrapper-for-proc k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dproc: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1034);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1035);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1034: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1035: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(isprocedure((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1036);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1036: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1037: /* wrapper-for-proc1 k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dproc1: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1038);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1039);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1038: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1039: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
    { bool_t v27877_tmp;
  if ((isprocedure((r[1])))) {
    r[4] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    v27877_tmp = (((fxquo(fixnum_from_obj(r[4]), (+1000))) <= (+1)) && ((+1) <= (fxrem(fixnum_from_obj(r[4]), (+1000)))));
  } else {
    v27877_tmp = (0);
  }
    r[4] = obj_from_bool(!(v27877_tmp)); }
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1040);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1040: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1041: /* wrapper-for-proc-obj k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1042);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1043);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1042: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1043: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((isprocedure((r[1]))) && (1)))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1044);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1044: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1045: /* wrapper-for-proc-k k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1046);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1047);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1046: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1047: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
  if ((!((isprocedure((r[1]))) && ((is_fixnum_obj(r[2])) && (fixnum_from_obj(r[2]) >= (+0)))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1048);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1048: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1049: /* wrapper-for-string-proc1 k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dproc1: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1050);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1051);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1050: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1051: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
    { bool_t v27876_tmp;
  if ((isstring((r[1])))) {
  if ((isprocedure((r[2])))) {
    r[5] = (*procedureref((r[2]), (fxsub((procedurelen((r[2]))), (+1)))));
    v27876_tmp = (((fxquo(fixnum_from_obj(r[5]), (+1000))) <= (+1)) && ((+1) <= (fxrem(fixnum_from_obj(r[5]), (+1000)))));
  } else {
    v27876_tmp = (0);
  }
  } else {
    v27876_tmp = (0);
  }
    r[5] = obj_from_bool(!(v27876_tmp)); }
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1052);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1052: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1053: /* wrapper-for-string-thunk k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dstring_2Dthunk: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1054);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1055);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1054: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1055: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
    { bool_t v27875_tmp;
  if ((isstring((r[1])))) {
  if ((isprocedure((r[2])))) {
    r[5] = (*procedureref((r[2]), (fxsub((procedurelen((r[2]))), (+1)))));
    v27875_tmp = (((fxquo(fixnum_from_obj(r[5]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[5]), (+1000)))));
  } else {
    v27875_tmp = (0);
  }
  } else {
    v27875_tmp = (0);
  }
    r[5] = obj_from_bool(!(v27875_tmp)); }
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1056);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1056: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1057: /* wrapper-for-thunk-proc k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dthunk_2Dproc: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1058);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1059);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1058: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1059: /* clo k v v */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v p * */
    { bool_t v27874_tmp;
  if ((isprocedure((r[1])))) {
    r[5] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[5] = obj_from_bool(((fxquo(fixnum_from_obj(r[5]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[5]), (+1000)))));
  } else {
    r[5] = obj_from_bool(0);
  }
  if (bool_from_obj(r[5])) {
    v27874_tmp = (isprocedure((r[2])));
  } else {
    v27874_tmp = (0);
  }
    r[5] = obj_from_bool(!(v27874_tmp)); }
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1060);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1060: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1061: /* wrapper-for-thunk-thunk-thunk k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dthunk_2Dthunk_2Dthunk: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1062);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1063);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+3), (+1000))), (+3)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1062: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1063: /* clo k v v v */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v v v p * */
    { bool_t v27873_tmp;
  if ((isprocedure((r[1])))) {
    r[6] = (*procedureref((r[1]), (fxsub((procedurelen((r[1]))), (+1)))));
    r[6] = obj_from_bool(((fxquo(fixnum_from_obj(r[6]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[6]), (+1000)))));
  } else {
    r[6] = obj_from_bool(0);
  }
  if (bool_from_obj(r[6])) {
  if ((isprocedure((r[2])))) {
    r[6] = (*procedureref((r[2]), (fxsub((procedurelen((r[2]))), (+1)))));
    r[6] = obj_from_bool(((fxquo(fixnum_from_obj(r[6]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[6]), (+1000)))));
  } else {
    r[6] = obj_from_bool(0);
  }
  if (bool_from_obj(r[6])) {
  if ((isprocedure((r[3])))) {
    r[6] = (*procedureref((r[3]), (fxsub((procedurelen((r[3]))), (+1)))));
    v27873_tmp = (((fxquo(fixnum_from_obj(r[6]), (+1000))) <= (+0)) && ((+0) <= (fxrem(fixnum_from_obj(r[6]), (+1000)))));
  } else {
    v27873_tmp = (0);
  }
  } else {
    v27873_tmp = (0);
  }
  } else {
    v27873_tmp = (0);
  }
    r[6] = obj_from_bool(!(v27873_tmp)); }
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(1064);
    r[6] = (hendblk(5+1));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cx__235154);
    r[8+3] = (objptr_from_obj(r[4])[0]);
    r[8+4] = (mksymbol(internsym(":", 1)));
    r[8+5] = (r[7]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[1];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1064: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v v v k */
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[5];  
    r[7+3] = r[4];  
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1065: /* wrapper-for-iport k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Diport: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1066);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1067);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1066: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1067: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(iportvt((r[1])) != NULL))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1068);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1068: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1069: /* wrapper-for-oport k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Doport: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1070);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1071);
    r[4] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1070: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1071: /* clo k v */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k v p * */
  if ((!(isoport((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1072);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1072: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * v k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1073: /* wrapper-for-iport-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Diport_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1074);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1075);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1077);
    r[5] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1074: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1075: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!(iportvt((r[1])) != NULL))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1076);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1076: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1077: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k * */
    r[2+0] = r[1];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 1078: /* wrapper-for-oport-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Doport_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1079);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1080);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1082);
    r[5] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1079: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1080: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!(isoport((r[1]))))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1081);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1081: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1082: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k * */
    r[2+0] = r[1];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 1083: /* wrapper-for-obj-oport-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dobj_2Doport_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1084);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1085);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1087);
    r[5] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1084: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1085: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!(isoport((r[2]))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1086);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1086: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1087: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x * */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1088: /* wrapper-for-char-oport-? k * */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrapper_2Dfor_2Dchar_2Doport_2D_3F: /* k * */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1089);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1090);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1092);
    r[5] = (hendblk(2+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    r[4] = (hendblk(9+1)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1089: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k p */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[3])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1090: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x y p * */
  if ((!((is_char_obj(r[1])) && (isoport((r[2])))))) {
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1091);
    r[5] = (hendblk(4+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[3])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1091: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . * y x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1092: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x p * */
  if ((!(is_char_obj(r[1])))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1093);
    r[4] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[2])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1093: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . * x k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1094: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1095);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eqv?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1095: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1096);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1644);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dobj;

case 1096: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1097);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eq?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1097: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1098);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1643);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dobj;

case 1098: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1099);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("equal?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1099: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1100);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1642);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1100: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1101);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("number?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1101: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1102);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1641);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1102: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1103);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("complex?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1103: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1104);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1640);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1104: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1105);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("real?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1105: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1106);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1639);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1106: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1107);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("rational?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1107: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1108);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1638);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1108: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1109);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("integer?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1109: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1110);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1637);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1110: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1111);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1111: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1112);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1636);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1112: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1113);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("inexact?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1113: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1114);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3D);
    goto gs_wrapper_2Dfor_2Dz_2Dz_2Dz_2D_2E_2E_2E;

case 1114: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1115);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("=", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1115: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1116);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3C);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E;

case 1116: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1117);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("<", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1117: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1118);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3E);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E;

case 1118: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1119);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym(">", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1119: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1120);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3C_3D);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E;

case 1120: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1121);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("<=", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1121: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1122);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3E_3D);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2Dx_2D_2E_2E_2E;

case 1122: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1123);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym(">=", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1123: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1124);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1635);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dz;

case 1124: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1125);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("zero?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1125: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1126);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1634);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dx;

case 1126: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1127);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("positive?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1127: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1128);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1633);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dx;

case 1128: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1129);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("negative?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1129: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1130);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1632);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dn;

case 1130: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1131);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("odd?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1131: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1132);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1631);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dn;

case 1132: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1133);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("even?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1133: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1134);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmax);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2D_2E_2E_2E;

case 1134: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1135);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("max", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1135: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1136);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmin);
    goto gs_wrapper_2Dfor_2Dx_2Dx_2D_2E_2E_2E;

case 1136: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1137);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("min", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1137: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1138);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2B);
    goto gs_wrapper_2Dfor_2Dz_2D_2E_2E_2E;

case 1138: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1139);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("+", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1139: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1140);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2A);
    goto gs_wrapper_2Dfor_2Dz_2D_2E_2E_2E;

case 1140: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1141);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("*", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1141: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1142);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2D);
    goto gs_wrapper_2Dfor_2Dz_2Dz_2D_2E_2E_2E;

case 1142: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1143);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("-", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1143: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1144);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2F);
    goto gs_wrapper_2Dfor_2Dz_2Dz_2D_2E_2E_2E;

case 1144: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1145);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("/", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1145: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1146);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dabs);
    goto gs_wrapper_2Dfor_2Dx;

case 1146: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1147);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("abs", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1147: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1148);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dquotient);
    goto gs_wrapper_2Dfor_2Dn_2Dn;

case 1148: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1149);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("quotient", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1149: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1150);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dremainder);
    goto gs_wrapper_2Dfor_2Dn_2Dn;

case 1150: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1151);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("remainder", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1151: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1152);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmodulo);
    goto gs_wrapper_2Dfor_2Dn_2Dn;

case 1152: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1153);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("modulo", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1153: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1154);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dgcd);
    goto gs_wrapper_2Dfor_2Dn_2D_2E_2E_2E;

case 1154: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1155);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("gcd", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1155: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1156);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dlcm);
    goto gs_wrapper_2Dfor_2Dn_2D_2E_2E_2E;

case 1156: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1157);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("lcm", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1157: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1158);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1630);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dq;

case 1158: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1159);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("numerator", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1159: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1160);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1629);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dq;

case 1160: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1161);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("denominator", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1161: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1162);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dfloor);
    goto gs_wrapper_2Dfor_2Dx;

case 1162: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1163);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("floor", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1163: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1164);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dceiling);
    goto gs_wrapper_2Dfor_2Dx;

case 1164: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1165);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("ceiling", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1165: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1166);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dtruncate);
    goto gs_wrapper_2Dfor_2Dx;

case 1166: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1167);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("truncate", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1167: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1168);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dround);
    goto gs_wrapper_2Dfor_2Dx;

case 1168: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1169);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("round", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1169: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1170);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1628);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dx_2Dx;

case 1170: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1171);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("rationalize", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1171: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1172);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexp);
    goto gs_wrapper_2Dfor_2Dz;

case 1172: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1173);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exp", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1173: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1174);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dlog);
    goto gs_wrapper_2Dfor_2Dz;

case 1174: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1175);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("log", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1175: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1176);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dsin);
    goto gs_wrapper_2Dfor_2Dz;

case 1176: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1177);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("sin", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1177: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1178);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcos);
    goto gs_wrapper_2Dfor_2Dz;

case 1178: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1179);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cos", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1179: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1180);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dtan);
    goto gs_wrapper_2Dfor_2Dz;

case 1180: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1181);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("tan", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1181: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1182);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dasin);
    goto gs_wrapper_2Dfor_2Dz;

case 1182: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1183);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("asin", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1183: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1184);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dacos);
    goto gs_wrapper_2Dfor_2Dz;

case 1184: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1185);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("acos", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1185: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1186);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Datan);
    goto gs_wrapper_2Dfor_2Dz_2Dx_2D_3F;

case 1186: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1187);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("atan", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1187: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1188);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dsqrt);
    goto gs_wrapper_2Dfor_2Dz;

case 1188: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1189);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("sqrt", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1189: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1190);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexpt);
    goto gs_wrapper_2Dfor_2Dz_2Dz;

case 1190: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1191);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("expt", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1191: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1192);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Drectangular);
    goto gs_wrapper_2Dfor_2Dx_2Dx;

case 1192: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1193);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-rectangular", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1193: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1194);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Dpolar);
    goto gs_wrapper_2Dfor_2Dx_2Dx;

case 1194: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1195);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-polar", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1195: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1196);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1627);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dz;

case 1196: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1197);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("real-part", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1197: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1198);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1626);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dz;

case 1198: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1199);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("imag-part", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1199: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1200);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmagnitude);
    goto gs_wrapper_2Dfor_2Dz;

case 1200: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1201);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("magnitude", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1201: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1202);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1625);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dz;

case 1202: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1203);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("angle", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1203: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1204);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexact_2D_3Einexact);
    goto gs_wrapper_2Dfor_2Dz;

case 1204: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1205);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact->inexact", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1205: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1206);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1624);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dz;

case 1206: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1207);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("inexact->exact", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1207: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1208);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dnumber_2D_3Estring);
    goto gs_wrapper_2Dfor_2Dz_2Dradix_2D_3F;

case 1208: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1209);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("number->string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1209: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1210);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dstring_2D_3Enumber);
    goto gs_wrapper_2Dfor_2Dstring_2Dradix_2D_3F;

case 1210: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1211);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string->number", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1211: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1212);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1623);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1212: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1213);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("not", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1213: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1214);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1622);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1214: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1215);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("boolean?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1215: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1216);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1621);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1216: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1217);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("pair?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1217: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1218);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1620);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dobj;

case 1218: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1219);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cons", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1219: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1220);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1619);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dpair;

case 1220: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1221);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("car", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1221: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1222);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1618);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dpair;

case 1222: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1223);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cdr", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1223: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1224);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1617);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dpair_2Dobj;

case 1224: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1225);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("set-car!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1225: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1226);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1616);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dpair_2Dobj;

case 1226: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1227);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("set-cdr!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1227: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1228);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1614);
    r[5] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1228: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1229);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("caar", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1229: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1230);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1612);
    r[5] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1230: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1231);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("cadr", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1231: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1232);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1610);
    r[5] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1232: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1233);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("cdar", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1233: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1234);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1608);
    r[5] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1234: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1235);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("cddr", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1235: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1236);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1607);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1236: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1237);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("null?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1237: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1238);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1606);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1238: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1239);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1239: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1240);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dlist);
    goto gs_wrapper_2Dfor_2Dobj_2D_2E_2E_2E;

case 1240: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1241);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1241: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1242);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1605);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dlist;

case 1242: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1243);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("length", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1243: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1244);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1597);
    r[5] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[5] = (hendblk(3)); }
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1599);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1601);
    r[7] = (hendblk(1+1));
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(1603);
    r[8] = (hendblk(0+1));
    hreserve(hbsz(0+1), 9); /* 9 live regs */
    *--hp = obj_from_case(1604);
    r[9] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(18+1), 10); /* 10 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[7];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[9];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[5] = (hendblk(18+1)); }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1244: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1245);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("append", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1245: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1246);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1596);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dlist;

case 1246: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1247);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("reverse", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1247: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1248);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1595);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dlist;

case 1248: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1249);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("memq", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1249: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1250);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1594);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dlist;

case 1250: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1251);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("memv", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1251: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1252);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1593);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dlist;

case 1252: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1253);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("member", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1253: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1254);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1592);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dalist;

case 1254: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1255);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assq", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1255: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1256);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1591);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dalist;

case 1256: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1257);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assv", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1257: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1258);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1590);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2Dalist;

case 1258: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1259);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assoc", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1259: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1260);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1589);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1260: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1261);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("symbol?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1261: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1262);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1588);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dsymbol;

case 1262: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1263);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("symbol->string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1263: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1264);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1587);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1264: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1265);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string->symbol", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1265: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1266);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1586);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1266: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1267);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1267: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1268);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1585);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1268: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1269);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1269: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1270);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1584);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1270: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1271);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char<?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1271: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1272);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1583);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1272: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1273);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char>?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1273: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1274);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1582);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1274: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1275);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char<=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1275: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1276);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1581);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1276: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1277);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char>=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1277: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1278);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1580);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1278: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1279);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1279: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1280);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1579);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1280: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1281);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci<?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1281: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1282);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1578);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1282: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1283);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci>?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1283: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1284);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1577);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1284: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1285);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci<=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1285: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1286);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1576);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar_2Dchar;

case 1286: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1287);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci>=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1287: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1288);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1575);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1288: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1289);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-alphabetic?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1289: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1290);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1574);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1290: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1291);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-numeric?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1291: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1292);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1573);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1292: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1293);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-whitespace?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1293: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1294);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1572);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1294: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1295);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-upper-case?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1295: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1296);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1571);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1296: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1297);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-lower-case?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1297: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1298);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1570);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1298: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1299);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char->integer", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1299: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1300);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1569);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dn;

case 1300: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1301);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("integer->char", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1301: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1302);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1568);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1302: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1303);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-upcase", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1303: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1304);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1567);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dchar;

case 1304: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1305);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-downcase", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1305: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1306);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1566);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1306: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1307);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1307: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1308);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Dstring);
    goto gs_wrapper_2Dfor_2Dk_2Dchar_2D_3F;

case 1308: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1309);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1309: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1310);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dstring);
    goto gs_wrapper_2Dfor_2Dchar_2D_2E_2E_2E;

case 1310: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1311);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1311: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1312);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1565);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1312: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1313);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-length", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1313: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1314);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1564);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dindex;

case 1314: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1315);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ref", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1315: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1316);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1563);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dindex_2Dchar;

case 1316: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1317);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-set!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1317: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1318);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1562);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1318: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1319);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1319: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1320);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1561);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1320: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1321);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string<?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1321: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1322);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1560);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1322: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1323);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string>?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1323: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1324);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1559);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1324: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1325);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string<=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1325: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1326);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1558);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1326: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1327);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string>=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1327: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1328);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1557);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1328: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1329);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1329: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1330);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1556);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1330: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1331);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci<?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1331: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1332);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1555);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1332: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1333);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci>?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1333: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1334);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1554);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1334: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1335);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci<=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1335: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1336);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1553);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstring;

case 1336: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1337);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci>=?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1337: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1338);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1552);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dstart_2Dend;

case 1338: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1339);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1339: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1340);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dstring_2Dappend);
    goto gs_wrapper_2Dfor_2Dstring_2D_2E_2E_2E;

case 1340: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1341);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-append", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1341: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1342);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1551);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1342: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1343);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string->list", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1343: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1344);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1550);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dlist;

case 1344: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1345);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list->string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1345: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1346);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1549);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1346: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1347);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-copy", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1347: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1348);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1548);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring_2Dchar;

case 1348: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1349);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-fill!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1349: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1350);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1547);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1350: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1351);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1351: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1352);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Dvector);
    goto gs_wrapper_2Dfor_2Dk_2Dobj_2D_3F;

case 1352: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1353);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-vector", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1353: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1354);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dvector);
    goto gs_wrapper_2Dfor_2Dobj_2D_2E_2E_2E;

case 1354: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1355);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1355: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1356);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1546);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dvector;

case 1356: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1357);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-length", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1357: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1358);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1545);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dvector_2Dindex;

case 1358: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1359);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-ref", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1359: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1360);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1544);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dvector_2Dindex_2Dobj;

case 1360: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1361);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-set!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1361: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1362);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1543);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dvector;

case 1362: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1363);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector->list", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1363: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1364);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1542);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dlist;

case 1364: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1365);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list->vector", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1365: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1366);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1541);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dvector_2Dobj;

case 1366: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1367);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-fill!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1367: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("values", 1)));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Avalues_2Dtag_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1368);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1540);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1368: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1369);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("procedure?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1369: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1370);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1533);
    r[5] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[5] = (hendblk(3)); }
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1536);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1538);
    r[7] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 8); /* 8 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[5];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[6];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[7];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+4);
    r[5] = (hendblk(12+1)); }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+3), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1370: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    (void)(objptr_from_obj(r[2])[0] = (r[1]));
    r[3] = (objptr_from_obj(r[2])[0]);
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1371);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = (mksymbol(internsym("apply", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1371: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1372);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1529);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dproc1;

case 1372: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1373);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call/cc", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1373: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1374);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (mksymbol(internsym("call/cc", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1374: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    r[2] = (cdr((r[1])));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1375);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_wrapper_2Dfor_2Dproc1;

case 1375: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1376);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-current-continuation", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1376: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1377);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1528);
    r[4] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj_2D_2E_2E_2E;

case 1377: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1378);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("values", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1378: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1379);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1526);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dthunk_2Dproc;

case 1379: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1380);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-values", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1380: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1381);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_dynamic_2Dwind);
    goto gs_wrapper_2Dfor_2Dthunk_2Dthunk_2Dthunk;

case 1381: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1382);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("dynamic-wind", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1382: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1383);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1525);
    r[4] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1383: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1384);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eval", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1384: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1385);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring_2Dproc1;

case 1385: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1386);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-input-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1386: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1387);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring_2Dproc1;

case 1387: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1388);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-output-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1388: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1389);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1524);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1389: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1390);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("input-port?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1390: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1391);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1523);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1391: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1392);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("output-port?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1392: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1393);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
    goto gs_wrapper_2Dfor;

case 1393: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1394);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-input-port", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1394: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1395);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
    goto gs_wrapper_2Dfor;

case 1395: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1396);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-output-port", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1396: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1397);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Dinput_2Dfrom_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring_2Dthunk;

case 1397: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1398);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-input-from-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1398: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1399);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Doutput_2Dto_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring_2Dthunk;

case 1399: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1400);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-output-to-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1400: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1401);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Dinput_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring;

case 1401: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1402);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-input-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1402: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1403);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Doutput_2Dfile);
    goto gs_wrapper_2Dfor_2Dstring;

case 1403: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1404);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-output-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1404: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1405);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1522);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Diport;

case 1405: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1406);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("close-input-port", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1406: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1407);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1521);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Doport;

case 1407: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1408);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("close-output-port", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1408: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1409);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dread);
    goto gs_wrapper_2Dfor_2Diport_2D_3F;

case 1409: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1410);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1410: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1411);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dread_2Dchar);
    goto gs_wrapper_2Dfor_2Diport_2D_3F;

case 1411: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1412);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-char", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1412: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1413);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dpeek_2Dchar);
    goto gs_wrapper_2Dfor_2Diport_2D_3F;

case 1413: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1414);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("peek-char", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1414: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1415);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1520);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dobj;

case 1415: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1416);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eof-object?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1416: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1417);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dchar_2Dready_3F);
    goto gs_wrapper_2Dfor_2Diport_2D_3F;

case 1417: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1418);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ready?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1418: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1419);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dwrite);
    goto gs_wrapper_2Dfor_2Dobj_2Doport_2D_3F;

case 1419: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1420);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1420: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1421);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Ddisplay);
    goto gs_wrapper_2Dfor_2Dobj_2Doport_2D_3F;

case 1421: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1422);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("display", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1422: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1423);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dwrite_2Dchar);
    goto gs_wrapper_2Dfor_2Dchar_2Doport_2D_3F;

case 1423: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1424);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-char", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1424: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1425);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dnewline);
    goto gs_wrapper_2Dfor_2Doport_2D_3F;

case 1425: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1426);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("newline", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1426: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1427);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1513);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1427: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1428);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("load", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1428: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1429);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_error);
    goto gs_wrapper_2Dfor_2Dstring_2Dobj_2D_2E_2E_2E;

case 1429: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1430);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("error", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1430: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1431);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1512);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1431: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1432);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("file-exists?", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1432: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1433);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1511);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1433: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1434);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("delete-file", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1434: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1435);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_command_2Dline);
    goto gs_wrapper_2Dfor;

case 1435: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1436);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("command-line", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1436: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1437);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1510);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1437: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1438);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("get-environment-variable", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1438: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1439);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1509);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor;

case 1439: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1440);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-jiffy", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1440: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1441);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1508);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor;

case 1441: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1442);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("jiffies-per-second", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1442: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1443);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1507);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1443: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1444);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-input-string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1444: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1445);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1506);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor;

case 1445: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1446);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("void", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1446: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1447);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1505);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dlist;

case 1447: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1448);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("reverse!", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1448: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1449);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexit);
    goto gs_wrapper_2Dfor_2Dn_2D_3F;

case 1449: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1450);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exit", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1450: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1451);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1504);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor_2Dstring;

case 1451: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1452);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("system", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1452: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1453);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (mksymbol(internsym("display", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1453: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    r[2] = (cdr((r[1])));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1454);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = (mksymbol(internsym("write-string", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1454: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1455);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_print_2Dprocedure);
    goto gs_wrapper_2Dfor_2Dproc;

case 1455: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1456);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("print-procedure", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1456: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1457);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1502);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_wrapper_2Dfor;

case 1457: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1458);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("print-globals", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1458: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r r */
    (void)(cdr((r[1])) = (r[2]));
    r[3] = (mkiport_string(3, sialloc(sfi_init_code, NULL)));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1459);
    r[4] = (hendblk(1+1));
    r[0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1459: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r p */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1463);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v18800;

case 1460: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v18800: /* k x p */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1460);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1461);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Deval;
  }

case 1461: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . p loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1462);
    r[5] = (hendblk(2+1));
    r[0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1462: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1463: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    r += 1; /* shift reg. wnd */
    /* ek . */
    { static obj c[] = { obj_from_case(1464) }; cx_fprintf_2A = (obj)c; }
    { static obj c[] = { obj_from_case(1468) }; cx_scheme_2Deval_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(1470) }; cx_sfi_2Dpp = (obj)c; }
    { static obj c[] = { obj_from_case(1472) }; cx_sfi_2Drep = (obj)c; }
    cx__2Aquiet_2A = obj_from_bool(0);
    cx__2Aexit_2A = obj_from_bool(0);
    cx__2Agreeting_2A = obj_from_bool(1);
    { static obj c[] = { obj_from_case(1478) }; cx_greet_2Donce = (obj)c; }
    { static obj c[] = { obj_from_case(1480) }; cx_sfi_2Drepl = (obj)c; }
    { static obj c[] = { obj_from_case(1489) }; cx_main = (obj)c; }
    r[2] = obj_from_void(0);
    r[3+0] = r[0];
    pc = 0; /* exit from module init */
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rc = 2;
    goto jump;

case 1464: /* fprintf* k port fstr olst */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_fprintf_2A: /* k port fstr olst */
    { /* string->list */
    int c = (stringlen((r[2])));
    unsigned char *s; obj l = mknull();
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    s = (unsigned char *)stringchars((r[2])); /* gc-safe */
    while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[4] = (l); }
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v18769;

case 1465: /* clo k flst olst */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v18769: /* k flst olst port */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1465);
    r[4] = (hendblk(1+1));
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5] = (car((r[1])));
    r[5] = obj_from_bool(char_from_obj(r[5]) == ('~'));
  if (bool_from_obj(r[5])) {
    r[5] = (cdr((r[1])));
    r[5] = obj_from_bool(ispair((r[5])));
  if (bool_from_obj(r[5])) {
    r[5] = (cdr((r[1])));
    r[5] = (car((r[5])));
  if ((char_from_obj(r[5]) == ('a'))) {
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1466);
    r[6] = (hendblk(4+1));
    r[7+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (car((r[2])));
    r[7+3] = obj_from_bool(1);
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[5]) == ('s'))) {
  if ((isnull((r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1467);
    r[6] = (hendblk(4+1));
    r[7+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (car((r[2])));
    r[7+3] = obj_from_bool(0);
    r[7+4] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[5]) == ('%'))) {
    (void)(fputc('\n', oportdata((r[3]))));
    r[6] = (cdr((r[1])));
    r[6] = (cdr((r[6])));
    /* r[0] */    
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v18769;
  } else {
  if ((char_from_obj(r[5]) == ('~'))) {
    (void)(fputc(('~'), oportdata((r[3]))));
    r[6] = (cdr((r[1])));
    r[6] = (cdr((r[6])));
    /* r[0] */    
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v18769;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    r[5] = (car((r[1])));
    (void)(fputc(char_from_obj(r[5]), oportdata((r[3]))));
    r[5] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v18769;
  }
  }

case 1466: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop olst flst k */
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    r[3] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1467: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop olst flst k */
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    r[3] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1468: /* scheme-eval->list k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_scheme_2Deval_2D_3Elist: /* k x */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1469);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_scheme_2Deval;

case 1469: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (cx__2Avalues_2Dtag_2A));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1470: /* sfi-pp k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1471);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r[3+3] = obj_from_bool(0);
    r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1471: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1472: /* sfi-rep k port */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_sfi_2Drep: /* k port */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1473);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1473: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
  if ((iseof((r[1])))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1474);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Deval_2D_3Elist;
  }

case 1474: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto s_evloop;

case 1475: /* clo k results */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_evloop: /* k results */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1475);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1476);
    r[3] = (hendblk(3+1));
  if ((!((r[2]) == obj_from_void(0)))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1477);
    r[4] = (hendblk(1+1));
    r[5+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[2];  
    r[5+3] = obj_from_bool(0);
    r[5+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1475);
    r[4] = (hendblk(0+1));
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[4];  
    r[5+3] = r[1];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18722;
  }
  }

case 1476: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v18722: /* ek . evloop results k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1477: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1478: /* greet-once k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_greet_2Donce: /* k */
  if (bool_from_obj(cx__2Agreeting_2A)) {
    hreserve(hbsz(1+1), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1479);
    r[1] = (hendblk(1+1));
    r[2+0] = r[1];  
    r[2+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[2+2] = (cx__236854);
    r[2+3] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;
  } else {
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_void(0);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1479: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    cx__2Agreeting_2A = obj_from_bool(0);
    r[3] = obj_from_void(0);
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1480: /* sfi-repl k port */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_sfi_2Drepl: /* k port */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1481);
    r[2] = (hendblk(2+1));
  if (bool_from_obj(cx__2Aquiet_2A)) {
    r[3+0] = obj_from_ktrap();
    r[3+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[3+2] = r[1];  
    r[3+3] = r[0];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18658;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1488);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    goto gs_greet_2Donce;
  }

case 1481: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v18658: /* ek . port k */
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v18659;

case 1482: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v18659: /* k port */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1482);
    r[2] = (hendblk(1+1));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1483);
    r[2] = (hendblk(3+1));
    r[3+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (cx__236863);
    r[3+3] = obj_from_bool(1);
    r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1483: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . port loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1484);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(1485);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(1486);
    r[7] = (hendblk(1+1));
    r[0] = r[6];  
    r[1] = r[7];  
    goto gs_set_2Dreset_2Dhandler_21;

case 1484: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1485: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . port return */
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_sfi_2Drep;

case 1486: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k return */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1487);
    r[2] = (hendblk(2+1));
    r[3+0] = r[2];  
    r[3+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[3+2] = (cx__236860);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1487: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . return k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1488: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[3+0] = r[2];  
    r[3+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[3+2] = (cx__236868);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1489: /* main k argv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k argv */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1490);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    goto gs_command_2Dline;

case 1490: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3] = (cdr((r[1])));
    r[0] = r[2];  
    r[1] = r[3];  
    goto s_loop_v18576;

case 1491: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v18576: /* k args */
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(1491);
    r[2] = (hendblk(0+1));
  if ((isnull((r[1])))) {
  if (bool_from_obj(cx__2Aexit_2A)) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    r[1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    goto gs_sfi_2Drepl;
  }
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236920))) == 0);
  if (bool_from_obj(r[3])) {
    cx__2Aquiet_2A = obj_from_bool(1);
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    goto s_loop_v18576;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236914))) == 0);
  if (bool_from_obj(r[3])) {
    cx__2Aexit_2A = obj_from_bool(1);
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    goto s_loop_v18576;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236903))) == 0);
  if (bool_from_obj(r[3])) {
    /* r[3] */    
  } else {
    r[4] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__236908))) == 0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1492);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__236877);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;
  } else {
    { bool_t v27872_tmp;
    r[3] = (car((r[1])));
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[3])), "r");
    if (f != NULL) fclose(f);
    v27872_tmp = (f != NULL); }
    r[3] = obj_from_bool(!(v27872_tmp)); }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1496);
    r[3] = (hendblk(1+1));
    r[4] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[3];  
    r[5+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[5+2] = (cx__236897);
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;
  } else {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1497);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(cx__2Aquiet_2A)) {
    r[4+0] = obj_from_ktrap();
    r[4+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18584;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1501);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    goto gs_greet_2Donce;
  }
  }
  }
  }
  }
  }

case 1492: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1493);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__236876);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1493: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1494);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__236875);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1494: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1495);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__236874);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1495: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1496: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1497: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v18584: /* ek . loop args k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1498);
    r[5] = (hendblk(3+1));
  if (bool_from_obj(cx__2Aquiet_2A)) {
    r[0] = obj_from_ktrap();
    r[1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_l_v18586;
  } else {
    r[6] = (car((r[3])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[5];  
    r[1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[2] = (cx__236889);
    r[3] = r[6];  
    goto gs_fprintf_2A;
  }

case 1498: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v18586: /* ek . loop args k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1499);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = (mksymbol(internsym("load", 1)));
    goto gs_scheme_2Dglobal_2Dvar;

case 1499: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop args k */
    r[5] = (cdr((r[1])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1500);
    r[6] = (hendblk(3+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1500: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop args k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1501: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[3+0] = r[2];  
    r[3+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[3+2] = (cx__236868);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 1502: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    hreserve(hbsz(1+1), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1503);
    r[1] = (hendblk(1+1));
    r[2+0] = (cx_write_2Ddatum);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[1];  
    r[2+2] = (cx_scheme_2Dglobal_2Dvariables);
    r[2+3] = obj_from_bool(0);
    r[2+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1503: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1504: /* clo k cmd */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k cmd */
    { /* system */
    int res = system(stringchars((r[1])));
    r[2] = obj_from_fixnum(res); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1505: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* reverse! */
    obj t, v = mknull(), l = r[1];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[2] = (v); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1506: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = obj_from_void(0);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1507: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* open-input-string */
    int *d = dupstring(stringdata((r[1])));
    r[2] = (mkiport_string(2, sialloc(sdatachars(d), d))); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1508: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, CLOCKS_PER_SEC);
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1509: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, clock());
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1510: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* get-environment-variable */
    char *v = getenv(stringchars((r[1])));
    if (v) r[2] = (hpushstr(2, newstring(v)));
    else r[2] = obj_from_bool(0); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1511: /* clo k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    { /* delete-file */ 
    int res = remove(stringchars((r[1])));
    r[2] = obj_from_bool(res == 0); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1512: /* clo k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[1])), "r");
    if (f != NULL) fclose(f);
    r[2] = obj_from_bool(f != NULL); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1513: /* clo k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23770))));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1514);
    r[3] = (hendblk(1+1));
  if (bool_from_obj(r[2])) {
    r[4] = (mkiport_file(4, (void*)((r[2]))));
    r[5+0] = obj_from_ktrap();
    r[5+1] = r[4];  
    r[5+2] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18408;
  } else {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (mksymbol(internsym("open-input-file", 1)));
    r[4+3] = (cx__23774);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1514: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_l_v18408: /* ek r k */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1515);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1515: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1519);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto s_loop_v18417;

case 1516: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v18417: /* k x r */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1516);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1517);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Deval;
  }

case 1517: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . r loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1518);
    r[5] = (hendblk(2+1));
    r[0] = (cx_read_2Ddatum);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1518: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1519: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* close-input-port */
    obj o = r[3];   cxtype_iport_t *vt = iportvt(o); assert(vt);
    (void)(vt->close(iportdata(o))); }
    r[4] = r[1];  
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1520: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(iseof((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1521: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(fclose(oportdata((r[1]))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1522: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* close-input-port */
    obj o = r[1];   cxtype_iport_t *vt = iportvt(o); assert(vt);
    r[2] = obj_from_void(vt->close(iportdata(o))); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1523: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isoport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1524: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(iportvt((r[1])) != NULL);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1525: /* clo k x ignored */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x ignored */
    /* r[0] */    
    /* r[1] */    
    goto gs_scheme_2Deval;

case 1526: /* clo k producer consumer */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k producer consumer */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1527);
    r[3] = (hendblk(2+1));
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 1527: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k consumer */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool((r[4]) == (cx__2Avalues_2Dtag_2A));
  } else {
    r[4] = obj_from_bool(0);
  }
  if (bool_from_obj(r[4])) {
  if ((isprocedure((r[3])))) {
    { fixnum_t v27871_argc;
    r[4] = (cdr((r[1])));
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27871_argc = (n); }
    r[4] = (*procedureref((r[3]), (fxsub((procedurelen((r[3]))), (+1)))));
    r[4] = obj_from_bool(((fxquo(fixnum_from_obj(r[4]), (+1000))) <= (v27871_argc)) && ((v27871_argc) <= (fxrem(fixnum_from_obj(r[4]), (+1000))))); }
  if (bool_from_obj(r[4])) {
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = r[3];  
    r[5+3] = (cdr((r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[4] = (cdr((r[1])));
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = (cx__234774);
    r[5+3] = r[4];  
    r[5+4] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__234773);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((isprocedure((r[3])))) {
    r[4] = (*procedureref((r[3]), (fxsub((procedurelen((r[3]))), (+1)))));
    r[4] = obj_from_bool(((fxquo(fixnum_from_obj(r[4]), (+1000))) <= (+1)) && ((+1) <= (fxrem(fixnum_from_obj(r[4]), (+1000)))));
  if (bool_from_obj(r[4])) {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (cx__234774);
    r[4+3] = obj_from_fixnum(+1);
    r[4+4] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    r[0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__234773);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 1528: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[2] = (car((r[1])));
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (cx__2Avalues_2Dtag_2A);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
  }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1529: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1530);
    r[2] = (hendblk(1+1));
    /* r[0] */    
    r[1] = r[2];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 1530: /* clo k k */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k k p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1531);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1532);
    r[4] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1531: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r p k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1532: /* clo k args */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k args k */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[3] = (car((r[1])));
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (cx__2Avalues_2Dtag_2A);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1533: /* clo k x l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x l p */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1534);
    r[4] = (hendblk(3+1));
    r[5] = ((isprocedure((r[1]))) ? (cxs_last_2Dlist_3F((r[2]))) : obj_from_bool(0));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[3])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18192;
  }

case 1534: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v18192: /* ek . l x k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1535);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_splice_2Dlast_2Dlist;

case 1535: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1536: /* clo k x y l */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x y l p */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(1537);
    r[5] = (hendblk(4+1));
    { const bool_t v27870_tmp = ((isprocedure((r[1]))) && (islist((r[3]))));
    r[6] = obj_from_bool(!(v27870_tmp)); } 
  if (bool_from_obj(r[6])) {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[4])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = obj_from_ktrap();
    r[6+1] = obj_from_void(0);
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r[6+4] = r[1];  
    r[6+5] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18176;
  }

case 1537: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v18176: /* ek . l y x k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[6] = obj_from_objptr(c); }
    r[7+0] = r[6];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[4];  
    r[7+3] = r[3];  
    r[7+4] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1538: /* clo k x l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x l p */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1539);
    r[4] = (hendblk(3+1));
    { const bool_t v27869_tmp = ((isprocedure((r[1]))) && (islist((r[2]))));
    r[5] = obj_from_bool(!(v27869_tmp)); } 
  if (bool_from_obj(r[5])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[3])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v18162;
  }

case 1539: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v18162: /* ek . l x k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[5] = obj_from_objptr(c); }
    r[6+0] = r[5];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[3];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1540: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isprocedure((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1541: /* clo k v x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k v x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_vector_2Dfill_21((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1542: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27868_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27868_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v27868_tmp);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
    hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1543: /* clo k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    { /* vector->list */
    obj v, l = mknull(); int c = (vectorlen((r[1])));
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    v = r[1];   /* gc-safe */
    while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[2] = (l); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1544: /* clo k v i x */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k v i x */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(vectorref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1545: /* clo k v i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k v i */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (vectorref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1546: /* clo k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(vectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1547: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isvector((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1548: /* clo k s c */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s c */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1549: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-copy */
    int *d = dupstring(stringdata((r[1])));
    r[2] = (hpushstr(2, d)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1550: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27867_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27867_tmp = (n); }
    { /* list->string */
    int i, c = (v27867_tmp); 
    obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = (unsigned char *)stringchars(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1551: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string->list */
    int c = (stringlen((r[1])));
    unsigned char *s; obj l = mknull();
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    s = (unsigned char *)stringchars((r[1])); /* gc-safe */
    while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
    *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
    r[2] = (l); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1552: /* clo k s start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k s start end */
    { /* substring */
    int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
    r[4] = (hpushstr(4, d)); }
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1553: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) >= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1554: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) <= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1555: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) > 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1556: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) < 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1557: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) == 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1558: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) >= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1559: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) <= 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1560: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) > 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1561: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) < 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1562: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) == 0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1563: /* clo k s k c */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k s k c */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(*stringref((r[1]), fixnum_from_obj(r[2])) = char_from_obj(r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1564: /* clo k s k */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s k */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_char(*(unsigned char*)stringref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1565: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(stringlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1566: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isstring((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1567: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char(tolower(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1568: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char(toupper(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1569: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_char((char_t)fixnum_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1570: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum((fixnum_t)char_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1571: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(islower(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1572: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isupper(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1573: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isspace(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1574: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isdigit(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1575: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isalpha(char_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1576: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1577: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1578: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1579: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1580: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1581: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) >= char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1582: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) <= char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1583: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) > char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1584: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) < char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1585: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(char_from_obj(r[1]) == char_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1586: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_char_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1587: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mksymbol(internsym(stringchars((r[1])), 0)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1588: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    r[2] = (hpushstr(2, newstring(symbolname(getsymbol((r[1]))))));
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1589: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(issymbol((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1590: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (isassoc((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1591: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (isassv((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1592: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    { /* assq */
    obj x = (r[1]), l = (r[2]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1593: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (ismember((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1594: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (ismemv((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1595: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    { /* memq */
    obj x = (r[1]), l = r[2];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1596: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v27866_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27866_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v27866_tmp);
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    l = r[1];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[2] = (o); } }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1597: /* clo k l */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k l p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1598);
    r[3] = (hendblk(2+1));
    r[4] = (cxs_every_2Dlist_2Dbut_2Dlast_3F((r[1])));
    r[4] = obj_from_bool(!bool_from_obj(r[4]));
  if (bool_from_obj(r[4])) {
    r[4+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (cx__235154);
    r[4+3] = (objptr_from_obj(r[2])[0]);
    r[4+4] = (mksymbol(internsym(":", 1)));
    r[4+5] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_void(0);
    r[4+2] = r[1];  
    r[4+3] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17484;
  }

case 1598: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v17484: /* ek . l k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__25residual_2Dappend);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1599: /* clo k x y z */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x y z p */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1600);
    r[5] = (hendblk(4+1));
    { const bool_t v27865_tmp = ((islist((r[1]))) && (islist((r[2]))));
    r[6] = obj_from_bool(!(v27865_tmp)); } 
  if (bool_from_obj(r[6])) {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__235154);
    r[7+3] = (objptr_from_obj(r[4])[0]);
    r[7+4] = (mksymbol(internsym(":", 1)));
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[6+0] = obj_from_ktrap();
    r[6+1] = obj_from_void(0);
    r[6+2] = r[0];  
    r[6+3] = r[1];  
    r[6+4] = r[3];  
    r[6+5] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17468;
  }

case 1600: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v17468: /* ek . k x z y */
    { fixnum_t v27863_tmp;
    { /* length */
    int n; obj l = r[5];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27863_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27863_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[5];   t = r[4];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[6] = (o); } }
    { fixnum_t v27864_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27864_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27864_tmp);
    hreserve(hbsz(3)*c, 7); /* 7 live regs */
    l = r[3];   t = r[6];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[6] = (o); } }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1601: /* clo k x y */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x y p */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1602);
    r[4] = (hendblk(3+1));
    { const bool_t v27862_tmp = (islist((r[1])));
    r[5] = obj_from_bool(!(v27862_tmp)); } 
  if (bool_from_obj(r[5])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__235154);
    r[6+3] = (objptr_from_obj(r[3])[0]);
    r[6+4] = (mksymbol(internsym(":", 1)));
    r[6+5] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_void(0);
    r[5+2] = r[0];  
    r[5+3] = r[2];  
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17454;
  }

case 1602: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v17454: /* ek . k y x */
    { fixnum_t v27861_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v27861_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v27861_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[4];   t = r[3];   /* gc-safe */
    o = t; p = &o; 
    for (; l != mknull(); l = cdr(l)) {
    *--hp = t; d = hp; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); 
    *p = hendblk(3); p = d; }  
    r[5] = (o); } }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1603: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1604: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = (mknull());
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1605: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[2] = obj_from_fixnum(n); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1606: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(islist((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1607: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(isnull((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1608: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1609);
    r[3] = (hendblk(2+1));
    { bool_t v27860_tmp;
  if ((ispair((r[1])))) {
    r[4] = (cdr((r[1])));
    v27860_tmp = (ispair((r[4])));
  } else {
    v27860_tmp = (0);
  }
    r[4] = obj_from_bool(!(v27860_tmp)); }
  if (bool_from_obj(r[4])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_void(0);
    r[4+2] = r[0];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17394;
  }

case 1609: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v17394: /* ek . k x */
    r[4] = (cdr((r[3])));
    r[4] = (cdr((r[4])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1610: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1611);
    r[3] = (hendblk(2+1));
    { bool_t v27859_tmp;
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    v27859_tmp = (ispair((r[4])));
  } else {
    v27859_tmp = (0);
  }
    r[4] = obj_from_bool(!(v27859_tmp)); }
  if (bool_from_obj(r[4])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_void(0);
    r[4+2] = r[0];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17378;
  }

case 1611: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v17378: /* ek . k x */
    r[4] = (car((r[3])));
    r[4] = (cdr((r[4])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1612: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1613);
    r[3] = (hendblk(2+1));
    { bool_t v27858_tmp;
  if ((ispair((r[1])))) {
    r[4] = (cdr((r[1])));
    v27858_tmp = (ispair((r[4])));
  } else {
    v27858_tmp = (0);
  }
    r[4] = obj_from_bool(!(v27858_tmp)); }
  if (bool_from_obj(r[4])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_void(0);
    r[4+2] = r[0];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17362;
  }

case 1613: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v17362: /* ek . k x */
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1614: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x p */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1615);
    r[3] = (hendblk(2+1));
    { bool_t v27857_tmp;
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    v27857_tmp = (ispair((r[4])));
  } else {
    v27857_tmp = (0);
  }
    r[4] = obj_from_bool(!(v27857_tmp)); }
  if (bool_from_obj(r[4])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__235154);
    r[5+3] = (objptr_from_obj(r[2])[0]);
    r[5+4] = (mksymbol(internsym(":", 1)));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_void(0);
    r[4+2] = r[0];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v17346;
  }

case 1615: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v17346: /* ek . k x */
    r[4] = (car((r[3])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1616: /* clo k p d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p d */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1617: /* clo k p a */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k p a */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(car((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1618: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cdr((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1619: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (car((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1620: /* clo k a d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k a d */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1621: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(ispair((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1622: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_bool_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1623: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(!bool_from_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1624: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dinexact_2D_3Eexact((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1625: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dangle((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1626: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1627: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_2Dpart((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1628: /* clo k n d */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n d */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Drationalize((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1629: /* clo k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_fixnum(+1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1630: /* clo k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dnumerator((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1631: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Deven_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1632: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dodd_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1633: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dnegative_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1634: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dpositive_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1635: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dzero_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1636: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_flonum_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1637: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(is_fixnum_obj(r[1]));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1638: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1639: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1640: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1641: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1642: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1643: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool(isequal((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1644: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_bool((r[1]) == (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1645: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25residual_2Deqv_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

default: /* inter-host call */
    cxg_hp = hp;
    cxm_rgc(r, MAX_HOSTREGS);
    cxg_rc = rc;
    return pc;
  }
}

/* module load */
void MODULE(void)
{
  obj pc;
  if (!root.next) {
    root.next = cxg_rootp;
    cxg_rootp = &root;
    LOAD();
    pc = obj_from_case(0);
    cxg_rc = 0;
    while (pc) pc = (*(cxhost_t*)pc)(pc); 
    assert(cxg_rc == 2);
  }
}

/* basic runtime */
#define HEAP_SIZE 131072 /* 2^17 */
#define REGS_SIZE 4092

obj *cxg_heap = NULL;
cxoint_t cxg_hmask = 0;
obj *cxg_hp = NULL;
static cxroot_t cxg_root = { 0, NULL, NULL };
cxroot_t *cxg_rootp = &cxg_root;
obj *cxg_regs = NULL, *cxg_rend = NULL;
int cxg_rc = 0;
char **cxg_argv = NULL;

static obj *cxg_heap2 = NULL;
static size_t cxg_hsize = 0; 
static cxoint_t cxg_hmask2 = 0;
static int cxg_gccount = 0, cxg_bumpcount = 0;

static obj *toheap2(obj* p, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2)
{
  obj o = *p, *op, fo, *fop;
  if (((char*)(o) - (char*)h1) & m1) return hp;
  fo = (op = objptr_from_obj(o))[-1]; assert(fo);
  if (notaptr(fo)) {
    fop = op + size_from_obj(fo); while (fop >= op) *--hp = *--fop;
    *p = *fop = obj_from_objptr(hp+1);
  } else if (((char*)(fo) - (char*)h2) & m2) {
    *--hp = *op--; *--hp = *op;
    *p = *op = obj_from_objptr(hp+1);
  } else *p = fo;
  return hp;
}

static void finalize(obj *hp1, obj *he1, obj *h2, cxoint_t m2)
{
  while (hp1 < he1) {
    obj fo = *hp1++; assert(fo);
    if (notaptr(fo)) hp1 += size_from_obj(fo);
    else if (((char*)(fo) - (char*)h2) & m2) ((cxtype_t*)fo)->free((void*)*hp1++);
    else if (notaptr(fo = objptr_from_obj(fo)[-1])) hp1 += size_from_obj(fo);
    else ++hp1;
  } assert(hp1 == he1);
}

static obj *relocate(cxroot_t *pr, obj *regs, obj *regp, 
obj *he2, obj *he1, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) 
{
  obj *p, *hp1 = hp; hp = he2;
  for (p = regs; p < regp; ++p) hp = toheap2(p, hp, h1, m1, h2, m2);
  for (; pr; pr = pr->next) {
    obj **pp = pr->globv; int c = pr->globc;
    while (c-- > 0) hp = toheap2(*pp++, hp, h1, m1, h2, m2);
  }
  for (p = he2; p > hp; --p) hp = toheap2(p-1, hp, h1, m1, h2, m2);
  if (he1) finalize(hp1, he1, h2, m2);
  return hp;
}

obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs) 
{
  obj *h1 = cxg_heap, *h2 = cxg_heap2; cxoint_t m1 = cxg_hmask, m2 = cxg_hmask2;
  size_t hs = cxg_hsize; cxroot_t *pr = cxg_rootp;

  obj *h = h1, *he1 = h1 + hs, *he2 = h2 + hs; 
  ++cxg_gccount;
  if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2), 
    needs += (h2 + hs - hp)*2; /* make heap half empty */
  else hp = h2 + hs;
  if (hs < needs) {
    size_t s = HEAP_SIZE; while (s < needs) s *= 2;
    m2 = 1 | ~(s*sizeof(obj)-1);
    if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); }
    h1 = h2; h2 = h; he2 = h2 + s; he1 = 0; /* no finalize flag */
    if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2);
    else hp = h2 + s;
    if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); }
    hs = s; m1 = m2; ++cxg_bumpcount;
  }
  h1 = h2; h2 = h;

  cxg_heap = h1; cxg_hmask = m1; cxg_heap2 = h2; cxg_hmask2 = m2;
  cxg_hsize = hs; return cxg_hp = hp;
}

obj *cxm_rgc(obj *regs, size_t needs) 
{
  obj *p = cxg_regs; assert(needs > 0);
  if (!p || cxg_rend < p + needs) {
    size_t roff = regs ? regs - p : 0;
    if (!(p = realloc(p, needs*sizeof(obj)))) { perror("alloc[r]"); exit(2); }
    cxg_regs = p; cxg_rend = p + needs;
    regs = p + roff;
  }
  if (regs && regs > p) while (needs--) *p++ = *regs++;
  return cxg_regs;
}

void cxm_check(int x, char *msg)
{
  if (!x) { 
    perror(msg); exit(2); 
  }
}

void *cxm_cknull(void *p, char *msg)
{
  cxm_check(p != NULL, msg); 
  return p;
}

/* os entry point */
int main(int argc, char **argv) {
  int res; obj pc;
  obj retcl[1] = { 0 };
  cxm_rgc(NULL, REGS_SIZE);
  cxg_argv = argv;
  MODULE();
  cxg_regs[0] = cx_main;
  cxg_regs[1] = (obj)retcl;
  cxg_regs[2] = (obj)argv;
  cxg_rc = 3;
  pc = objptr_from_obj(cx_main)[0];
  while (pc) pc = (*(cxhost_t*)pc)(pc); 
  assert(cxg_rc == 3);
  res = (cxg_regs[2] != 0); 
  /* fprintf(stderr, "%d collections, %d reallocs\n", cxg_gccount, cxg_bumpcount); */
  return res; 
}