/* siof.sf */
/* Generated by #F $Id$ */
#ifdef PROFILE
#define host host_module_siof
#endif
#define MODULE module_siof
#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>
#include <stdarg.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 isim0(o)    (((o) & 3) == 3)
#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1))
#ifdef NDEBUG
  #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
  #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
#else
  extern long getim0s(obj o);
  extern long getimmu(obj o, int t);
#endif
#ifndef NDEBUG
long getim0s(obj o) {
  assert(isim0(o));
  return (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000);
}
long getimmu(obj o, int t) {
  assert(isimm(o, t));
  return (long)((o >> 8) & 0xffffff);
}
#endif
#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3)
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 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
extern int istagged(obj o, int t);
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); }
}
#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
#ifndef NDEBUG
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);
}
#endif
extern int istyped(obj o);
int istyped(obj o) {
  if (!isobjptr(o)) return 0;
  else { obj h = objptr_from_obj(o)[-1];
    return notaptr(h) && size_from_obj(h) >= 1 
      && isobjptr(hblkref(o, 0)); }
}
#ifdef NDEBUG
  #define cktyped(o, t) (o)
  #define typedtype(o) (&hblkref(o, 0))
  #define typedlen(o) (hblklen(o)-1) 
  #define typedref(o, i) (&hblkref(o, (i)+1))
#else
  extern obj cktyped(obj o);
  extern obj* typedtype(obj o); 
  extern int typedlen(obj o);
  extern obj* typedref(obj o, int i); 
#endif
#ifndef NDEBUG
obj cktyped(obj o) {
  assert(istyped(o));
  return o;
}
obj* typedtype(obj o) {
  assert(istyped(o));
  return &hblkref(o, 0);
}
int typedlen(obj o) {
  assert(istyped(o));
  return hblklen(o) - 1;
}
obj* typedref(obj o, int i) {
  int len; assert(istyped(o));
  len = hblklen(o);
  assert(i >= 0 && i < len-1);  
  return &hblkref(o, i+1);
}
#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)
/* void */
#define VOID_ITAG 1
#define mkvoid() mkimm(0, VOID_ITAG)
#define isvoid(o) ((o) == mkimm(0, VOID_ITAG))
#undef obj_from_void
#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG))
/* numbers */
#define FIXNUM_BIT 30
#define FIXNUM_MIN -536870912
#define FIXNUM_MAX 536870911
#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 fxmqu(long x, long y) {
  long q = x / y; return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
}
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 fxmqu(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 fxmqu(long x, long y) {
  long q; assert(y); assert(x != FIXNUM_MIN || y != -1);
  q = x / y;
  return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
}
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; 
  while (b) c = a%b, a = b, b = c; 
  assert(a <= FIXNUM_MAX);
  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
static int flisint(double f) { return f > -HUGE_VAL && f < HUGE_VAL && f == floor(f); }
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(FIXNUM_MIN <= x && x <= FIXNUM_MAX); goto retry; }
  assert(FIXNUM_MIN <= x && x <= FIXNUM_MAX); return x;
}
extern long fxsqrt(long x);
long fxsqrt(long x) { 
  assert(x >= 0); if (x < 2) return x;
  else { long s = fxsqrt(x >> 2) << 1, l = s + 1; return l*l > x ? s : l; }
}
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 && flisint(x) && flisint(y));
  modf(x / y,  &z);
  return z;
}
extern double flrem(double x, double y);
double flrem(double x, double y) {
  assert(y != 0.0 && flisint(x) && flisint(y));
  return fmod(x, y);
}
extern double flmqu(double x, double y);
double flmqu(double x, double y) {
  assert(y != 0.0 && flisint(x) && flisint(y));
  return floor(x / y);
}
extern double flmlo(double x, double y);
double flmlo(double x, double y) {
  assert(y != 0.0 && flisint(x) && flisint(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(flisint(a) && flisint(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(char *s, int radix, long *pl, double *pd);
int strtofxfl(char *s, int radix, long *pl, double *pd) {
  extern int strcmp_ci(char *s1, char *s2); /* defined below */
  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;
  for (e = s; *e; ++e) { if (strchr(".eEiInN", *e)) break; }
  if (!*e || radix != 10) { /* s is not a syntax for an inexact number */
    l = (errno = 0, strtol(s, &e, radix));
    if (errno || *e || e == s) { if (conv == 'i') goto fl; return (errno = eno, 0); }
    if (conv == 'i') return (errno = eno, *pd = (double)l, 'i');
    if (FIXNUM_MIN <= l && l <= FIXNUM_MAX) return (errno = eno, *pl = l, 'e');
    return (errno = eno, 0); /* can't represent as an exact */
  } 
  fl: if (radix != 10) return (errno = eno, 0); 
  e = "", errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e);
  else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); 
  else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL;
  else d = strtod(s, &e);
  if (errno || *e || e == s) return (errno = eno, 0);
  if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d))
    return (errno = eno, 0); /* can't be converted to an exact number */
  return (errno = eno, (conv == 'e') ? (*pl = fxflo(d), 'e') : (*pd = d, 'i'));
}
/* fixnums */
typedef long fixnum_t;
#define is_fixnum_obj(o) (isim0(o))
#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) (getim0s(o))
#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) mkim0((fixnum_t)(i))
/* 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 ischar(o) (isimm(o, CHAR_ITAG))
#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)getimmu(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 sdatachars(d)+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(sdatachars(d), s); return d;
}
extern int *newstringn(char *s, int n);
int *newstringn(char *s, int n) {
  int *d; char *ns; assert(s); assert(n >= 0);
  d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(stringn)");
  *d = n; memcpy((ns = sdatachars(d)), s, n); ns[n] = 0; 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 = sdatachars(d); 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 = sdatachars(d0); s1 = sdatachars(d1); 
  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 = sdatachars(d); s0 = sdatachars(d0); s1 = sdatachars(d1);
  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 = sdatachars(d);
  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)
/* bytevectors */
static cxtype_t cxt_bytevector = { "bytevector", free };
cxtype_t *BYTEVECTOR_NTAG = &cxt_bytevector;
extern cxtype_t *BYTEVECTOR_NTAG;
#define isbytevector(o) (isnative(o, BYTEVECTOR_NTAG))
#define bytevectordata(o) ((int*)getnative(o, BYTEVECTOR_NTAG))
#define bvdatabytes(d) ((unsigned char*)((d)+1))
#define bytevectorlen(o) (*bytevectordata(o))
#define bytevectorbytes(o) (bvdatabytes(bytevectordata(o)))
#define hpushu8v(l, s) hpushptr(s, BYTEVECTOR_NTAG, l)
#define mallocbvdata(n) cxm_cknull(malloc(sizeof(int)+(n)), "malloc(bytevector)")
static int is_byte_obj(obj o) { return (obj_from_fixnum(0) <= o && o <= obj_from_fixnum(255)); } 
#define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o))
#ifdef NDEBUG
  #define byte_from_fixnum(n) ((unsigned char)(n))
#else
  static unsigned char byte_from_fixnum(int n) { assert(0 <= n && n <= 255); return n; } 
#endif
#define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o))
unsigned char* bytevectorref(obj o, int i) {
  int *d = bytevectordata(o); assert(i >= 0 && i < *d); return (bvdatabytes(d))+i;
}
#ifdef NDEBUG
  #define bytevectorref(o, i) (bytevectorbytes(o)+(i))
#else
  extern unsigned char* bytevectorref(obj o, int i);
#endif
extern int *newbytevector(unsigned char *s, int n);
int *newbytevector(unsigned char *s, int n) {
  int *d; assert(s); assert(n >= 0); 
  d = mallocbvdata(n); *d = n; memcpy(bvdatabytes(d), s, n); return d;
}
extern int *makebytevector(int n, int c);
int *makebytevector(int n, int c) {
  int *d; assert(n >= 0); 
  d = mallocbvdata(n); *d = n; memset(bvdatabytes(d), c, n);
  return d;
}
extern int *allocbytevector(int n);
int *allocbytevector(int n) {
  int *d = mallocbvdata(n); *d = n; return d;
}
extern int *dupbytevector(int *d);
int *dupbytevector(int *d0) {
  int *d1 = mallocbvdata(*d0); *d1 = *d0; 
  memcpy(bvdatabytes(d1), bvdatabytes(d0), *d0); 
  return d1;
}
extern int bytevectoreq(int *d0, int *d1);
int bytevectoreq(int *d0, int *d1) {
  int l0 = *d0, l1 = *d1;
  return (l0 != l1) ? 0 : memcmp(bvdatabytes(d0), bvdatabytes(d1), l0) == 0; 
}
extern int *subbytevector(int *d, int from, int to);
int *subbytevector(int *d0, int from, int to) {
  int n = to-from, *d1; unsigned char *s0, *s1; assert(d0);
  assert(0 <= from && from <= to && to <= *d0); 
  d1 = mallocbvdata(n); *d1 = n; s0 = bvdatabytes(d0); s1 = bvdatabytes(d1); 
  memcpy(s1, s0+from, n); return d1;
}
/* boxes */
#define BOX_BTAG 2
#define isbox(o) istagged(o, BOX_BTAG)
#define boxref(o) *taggedref(o, BOX_BTAG, 0)
/* 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) {
  unsigned long i = 0, l = (unsigned long)strlen(s), h = l;
  while (i < l) h = (h << 4) ^ (h >> 28) ^ s[i++];
  return h ^ (h  >> 10) ^ (h >> 20);
}
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 internsym(char *name) {
  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) & (symt.sz-1);
  } else {
    unsigned long h = hashs(name);
    for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1))
      if (strcmp(name, *symt.v[i]) == 0) 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]) & (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)) ;
    }
  }
  *(symt.v[i] = symt.a + symt.u) = 
    strcpy(cxm_cknull(malloc(strlen(name)+1), "symtab[4]"), name);
  return (int)((symt.u)++);
}
/* records */
#define isrecord(o) istyped(o)
#define recordrtd(r) *typedtype(r)
#define recordlen(r) typedlen(r)
#define recordref(r, i) *typedref(r, i)
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], t;
    return notaptr(h) && size_from_obj(h) >= 1 
      && isaptr(t = hblkref(o, 0)) && t && notobjptr(t); }
}
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]);
    obj pv = p[1]; int vl = vectorlen(pv); assert(vl > 0);
    if (rc-2 < vl-1) r[0] = vectorref(pv, rc-2); /* matching slot */
    else r[0] = vectorref(pv, vl-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 7
#define mkeof() mkimm(0, EOF_ITAG)
#define iseof(o) ((o) == mkimm(0, 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_CLOSED_NTAG;
extern cxtype_t *IPORT_FILE_NTAG;
extern cxtype_t *IPORT_STRING_NTAG;
extern cxtype_t *IPORT_BYTEVECTOR_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_CLOSED_NTAG && pt != IPORT_FILE_NTAG &&
      pt != IPORT_STRING_NTAG && pt != IPORT_BYTEVECTOR_NTAG) return NULL; 
  else return (cxtype_iport_t*)pt; }
#define ckiportvt(o) ((cxtype_iport_t*)cxm_cknull(iportvt(o), "iportvt"))
#define isiport(o) (iportvt(o) != NULL)
#define iportdata(o) ((void*)(*objptr_from_obj(o)))
static int iportgetc(obj o) {
  cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o);
  assert(vt); return vt->getch(pp);
}
static int iportpeekc(obj o) {
  cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o); int c;
  assert(vt); c = vt->getch(pp); if (c != EOF) vt->ungetch(c, pp); return c;
}
/* closed input ports */
static void cifree(void *p) {}
static int ciclose(void *p) { return 0; }
static int cigetch(void *p) { return EOF; }
static int ciungetch(int c) { return c; }
static cxtype_iport_t cxt_iport_closed = {
  "closed-input-port", (void (*)(void*))cifree, (int (*)(void*))ciclose,
  (int (*)(void*))cigetch, (int (*)(int, void*))ciungetch };
cxtype_t *IPORT_CLOSED_NTAG = (cxtype_t *)&cxt_iport_closed;
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 int siclose(sifile_t *fp) { 
  assert(fp); if (fp->base) free(fp->base); fp->base = NULL; fp->p = ""; return 0; }
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)
/* bytevector input ports */
typedef struct { unsigned char *p, *e; void *base; } bvifile_t;
bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base) { 
  bvifile_t *fp = cxm_cknull(malloc(sizeof(bvifile_t)), "malloc(bvifile)");
  fp->p = p; fp->e = e; fp->base = base; return fp; }
extern bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base);
static void bvifree(bvifile_t *fp) { 
  assert(fp); if (fp->base) free(fp->base); free(fp); }
static int bviclose(bvifile_t *fp) { 
  assert(fp); if (fp->base) free(fp->base); fp->base = NULL; fp->p = fp->e = (unsigned char *)""; return 0; }
static int bvigetch(bvifile_t *fp) {
  assert(fp && fp->p && fp->e); return (fp->p >= fp->e) ? EOF : (0xff & *(fp->p)++); }
static int bviungetch(int c, bvifile_t *fp) {
  assert(fp && fp->p && fp->e); --(fp->p); assert(c == *(fp->p)); return c; }
static cxtype_iport_t cxt_iport_bytevector = {
  "bytevector-input-port", (void (*)(void*))bvifree, (int (*)(void*))bviclose,
  (int (*)(void*))bvigetch, (int (*)(int, void*))bviungetch };
cxtype_t *IPORT_BYTEVECTOR_NTAG = (cxtype_t *)&cxt_iport_bytevector;
#define mkiport_bytevector(l, fp) hpushptr(fp, IPORT_BYTEVECTOR_NTAG, l)
/* output ports */
typedef struct { /* extends cxtype_t */
  const char *tname;
  void (*free)(void*);
  int (*close)(void*);
  int (*putch)(int, void*);
  int (*flush)(void*);
} cxtype_oport_t;
extern cxtype_t *OPORT_CLOSED_NTAG;
extern cxtype_t *OPORT_FILE_NTAG;
extern cxtype_t *OPORT_STRING_NTAG;
extern cxtype_t *OPORT_BYTEVECTOR_NTAG;
static cxtype_oport_t *oportvt(obj o) { 
  cxtype_t *pt; if (!isobjptr(o)) return NULL;
  pt = (cxtype_t*)objptr_from_obj(o)[-1];
  if (pt != OPORT_CLOSED_NTAG && pt != OPORT_FILE_NTAG && 
      pt != OPORT_STRING_NTAG && pt != OPORT_BYTEVECTOR_NTAG) return NULL; 
  else return (cxtype_oport_t*)pt; }
#define ckoportvt(o) ((cxtype_oport_t*)cxm_cknull(oportvt(o), "oportvt"))
#define isoport(o) (oportvt(o) != NULL)
#define oportdata(o) ((void*)(*objptr_from_obj(o)))
static void oportputc(int c, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); vt->putch(c, pp);
}
static void oportputs(char *s, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); while (*s) vt->putch(*s++, pp);
}
static void oportwrite(char *s, int n, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); while (n-- > 0) vt->putch(*s++, pp);
}
static void oportflush(obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); vt->flush(pp);
}
/* closed output ports */
static void cofree(void *p) {}
static int coclose(void *p) { return 0; }
static int coputch(int c, void *p) { return EOF; }
static int coflush(void *p) { return EOF; }
static cxtype_oport_t cxt_oport_closed = {
  "closed-output-port", (void (*)(void*))cofree, (int (*)(void*))coclose,
  (int (*)(int, void*))coputch, (int (*)(void*))coflush };
cxtype_t *OPORT_CLOSED_NTAG = (cxtype_t *)&cxt_oport_closed;
static cxtype_oport_t cxt_oport_file = {
  "file-output-port", ffree, (int (*)(void*))fclose,
  (int (*)(int, void*))(fputc), (int (*)(void*))fflush };
cxtype_t *OPORT_FILE_NTAG = (cxtype_t *)&cxt_oport_file;
#define mkoport_file(l, fp) hpushptr(fp, OPORT_FILE_NTAG, l)
/* string output ports */
typedef struct cbuf_tag { char *buf; char *fill; char *end; } cbuf_t;
extern cbuf_t* newcb(void);
cbuf_t* newcb(void) {
  cbuf_t* pcb = cxm_cknull(malloc(sizeof(cbuf_t)), "malloc(cbuf)");
  pcb->fill = pcb->buf = cxm_cknull(malloc(64), "malloc(cbdata)");
  pcb->end = pcb->buf + 64; return pcb;
}
static void freecb(cbuf_t* pcb) { if (pcb) { free(pcb->buf); free(pcb); } }
static void cbgrow(cbuf_t* pcb, size_t n) {
  size_t oldsz = pcb->end - pcb->buf, newsz = oldsz*2;
  size_t cnt = pcb->fill - pcb->buf;
  if (oldsz + n > newsz) newsz += n;
  pcb->buf = cxm_cknull(realloc(pcb->buf, newsz), "realloc(cbdata)");
  pcb->fill = pcb->buf + cnt, pcb->end = pcb->buf + newsz;
}
static int cbputc(int c, cbuf_t* pcb) {
  if ((pcb)->fill == (pcb)->end) cbgrow(pcb, 1); *((pcb)->fill)++ = c; return c;
}
static int cbflush(cbuf_t* pcb) { return 0; }
static int cbclose(cbuf_t* pcb) { free(pcb->buf); pcb->buf = NULL; return 0; }
extern char* cbdata(cbuf_t* pcb);
char* cbdata(cbuf_t* pcb) {
  if (pcb->fill == pcb->end) cbgrow(pcb, 1); *(pcb->fill) = 0; return pcb->buf; 
}
static cxtype_oport_t cxt_oport_string = {
  "string-output-port", (void (*)(void*))freecb, (int (*)(void*))cbclose,
  (int (*)(int, void*))cbputc, (int (*)(void*))cbflush };
cxtype_t *OPORT_STRING_NTAG = (cxtype_t *)&cxt_oport_string;
#define mkoport_string(l, fp) hpushptr(fp, OPORT_STRING_NTAG, l)
/* bytevector output ports */
static cxtype_oport_t cxt_oport_bytevector = {
  "bytevector-output-port", (void (*)(void*))freecb, (int (*)(void*))cbclose,
  (int (*)(int, void*))cbputc, (int (*)(void*))cbflush };
cxtype_t *OPORT_BYTEVECTOR_NTAG = (cxtype_t *)&cxt_oport_bytevector;
#define mkoport_bytevector(l, fp) hpushptr(fp, OPORT_BYTEVECTOR_NTAG, l)
/* eq hash table for circular/sharing checks and safe equal? */
typedef struct { obj *v; obj *r; size_t sz; size_t u, maxu, c; } stab_t;
static stab_t *staballoc(void) {
  stab_t *p = cxm_cknull(calloc(1, sizeof(stab_t)), "newstab");
  p->v = cxm_cknull(calloc(64, sizeof(obj)), "newstab[1]");
  p->sz = 64, p->maxu = 64 / 2; return p;
}
static stab_t *stabfree(stab_t *p) { 
  if (p) { free(p->v); free(p->r); free(p); }
  return NULL; 
}
static int stabnew(obj o, stab_t *p, int circ) {
  if (!o || notaptr(o) || notobjptr(o) || (circ && isaptr(objptr_from_obj(o)[-1]))) return 0;
  else { /* v[i] is 0 or heap obj, possibly with lower bit set if it's not new */
    unsigned long h = (unsigned long)o; size_t sz = p->sz, i, j;
    for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1))
      if ((p->v[i] & ~1) == o) { p->v[i] |= 1; return 0; }
    if (p->u == p->maxu) { /* rehash */
      size_t nsz = sz * 2; obj *nv = cxm_cknull(calloc(nsz, sizeof(obj)), "stabnew");
      for (i = 0; i < sz; ++i) if (p->v[i] & ~1) {
        for (j = (unsigned long)(p->v[i] & ~1) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
        nv[j] = p->v[i];
      }
      free(p->v); p->v = nv; sz = p->sz = nsz; p->maxu = nsz / 2;
      for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) ;
    }
    p->v[i] = o; p->u += 1; return 1; 
  }
}
static void stabdelifu(obj o, stab_t *p) { 
  unsigned long h = (unsigned long)o; size_t sz = p->sz, i;
  for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == o) { 
    if (p->v[i] & 1) /* keep */; else p->v[i] = 1; /* del */
    return;
  }
}
static void stabpushp(obj o, stab_t *p) {
  obj *r = p->r; if (!r) { p->r = r = cxm_cknull(calloc(sizeof(obj), 12), "stabpushp"); r[1] = 10; }
  else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+r[1]*2)), "stabpushp"); r[1] *= 2; }
  r[2 + r[0]++] = o; 
}
static void stabpopp(stab_t *p) {
  obj *r = p->r; assert(r && r[0] > 0); r[0] -= 1;
}
static void stabcircular(obj o, stab_t *p) {
  tail: if (stabnew(o, p, 1)) {
    obj *op = objptr_from_obj(o), fo = op[-1];
    if (notaptr(fo)) { 
      obj *fop = op + size_from_obj(fo);
      stabpushp(0, p); while (op+1 < fop) stabcircular(*op++, p); stabpopp(p); 
      if (op+1 == fop) { stabpushp(o, p); o = *op; goto tail; }
    } 
  } else {
    obj *r = p->r; if (r) {
      obj *op = r+2, *fop = op+r[0];
      while (fop > op && fop[-1] != 0) stabdelifu(*--fop, p); 
      r[0] = fop - op;
    }
  }
}
static void stabshared(obj o, stab_t *p) {
  tail: if (stabnew(o, p, 0)) {
    obj *op = objptr_from_obj(o), fo = op[-1];
    if (notaptr(fo)) { 
      obj *fop = op + size_from_obj(fo); 
      while (op+1 < fop) stabshared(*op++, p);
      if (op+1 == fop) { o = *op; goto tail; }
    } 
  }
}
static stab_t *stabend(stab_t *p) {
  size_t nz, i, sz = p->sz;
  for (nz = i = 0; i < sz; ++i) if ((p->v[i] & ~1) && (p->v[i] & 1)) ++nz;
  if (nz) {
    size_t nsz, j; obj *nv; for (nsz = 8; nsz < nz*2; nsz *= 2) ;
    nv = cxm_cknull(calloc(nsz, sizeof(obj)), "stabend");
    for (i = 0; i < sz; ++i) if ((p->v[i] & ~1) && (p->v[i] & 1)) {
      for (j = (unsigned long)(p->v[i] & ~1) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
      nv[j] = p->v[i];
    }
    free(p->v); p->v = nv; sz = p->sz = nsz; p->maxu = nsz / 2;
    free(p->r); p->r = NULL;
  } else p = stabfree(p);
  return p;
}
static long stabri(size_t i, stab_t *p, int upd) {
  obj *pri, ri; if (!p->r) p->r = cxm_cknull(calloc(p->sz, sizeof(obj)), "stabri");
  pri = p->r + i; ri = *pri; if (!ri) *pri = ri = ++(p->c);
  if (upd && ri > 0) *pri = -ri; return (long)ri;
}
static long stabref(obj o, stab_t *p, int upd) {
  if (!p || !o || notaptr(o) || notobjptr(o)) return 0; else {
    unsigned long h = (unsigned long)o; size_t sz = p->sz, i;
    for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1))
      if ((p->v[i] & ~1) == o) return (p->v[i] & 1) ? stabri(i, p, upd) : 0; 
    return 0;
  }
}
static int stabufind(obj x, obj y, stab_t *p) {
  size_t sz = p->sz, i, ix=0, iy=0; /* bogus 0 inits to silence gcc */ obj *r = p->r;
  for (i = (unsigned long)x & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == x) { ix = i; break; }
  for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = r[ix] = i;  
  for (i = (unsigned long)y & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == y) { iy = i; break; }
  for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = r[iy] = i;
  if (ix == iy) return 1; /* same class, assumed to be equal */ 
  if (r[ix] < r[iy]) { r[ix] += r[iy]; r[iy] = ix; } else { r[iy] += r[ix]; r[ix] = iy; } return 0;
}
static int stabequal(obj x, obj y, stab_t *p) {
  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 (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)); 
  if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0;
  if (stabufind(x, y, p)) return 1; /* seen before and decided to be equal */
  for (i = 1; i < n-1; ++i) if (!stabequal(hblkref(x, i), hblkref(y, i), p)) return 0;
  if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return 1; 
}
static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on failure */
  obj h; int i, n; loop: assert(fuel > 0); if (x == y) return fuel-1;
  if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return -1;
  if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return -1;
  if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y) ? fuel-1 : -1; 
  if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0 ? fuel-1 : -1;
  if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)) ? fuel-1 : -1;
  if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return -1;
  if (--fuel == 0) return 0; /* we must spend fuel while comparing objects themselves */
  for (i = 1; i < n-1; ++i) if ((fuel = boundequal(hblkref(x, i), hblkref(y, i), fuel)) <= 0) return fuel;
  if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return fuel;
}
extern int iscircular(obj x);
int iscircular(obj x) {
  if (!x || notaptr(x) || notobjptr(x)) return 0;
  else { stab_t *p = staballoc(); stabcircular(x, p); p = stabend(p); stabfree(p); return p != NULL; }
}
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) {
  stab_t *p; obj *r; size_t i; int res = boundequal(x, y, 500);
  if (res != 0) return res > 0; /* small/non-circular/easy */
  p = staballoc(); stabshared(x, p); stabshared(y, p);
  r = p->r = cxm_cknull(calloc(p->sz, sizeof(obj)), "isequal");
  for (i = 0; i < p->sz; ++i) if (p->v[i] & ~1) r[i] = -1; 
  res = stabequal(x, y, p); stabfree(p); return res;
}
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;
}
/* internal recursive write procedure */
typedef struct { stab_t *pst; int disp; cxtype_oport_t *vt; void *pp; } wenv_t;
static void wrc(int c, wenv_t *e) { e->vt->putch(c, e->pp); }
static void wrs(char *s, wenv_t *e) {
  cxtype_oport_t *vt = e->vt; void *pp = e->pp;
  assert(vt); while (*s) vt->putch(*s++, pp);
}
static int cleansymname(char *s) {
  char *inits = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?@^_~";
  char *subss = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?@^_~0123456789.@+-";
  if (s[0] == 0 || s[strspn(s, subss)] != 0) return 0; else if (strchr(inits, s[0])) return 1;
  else if (s[0] == '+' || s[0] == '-') return s[1] == 0 || (s[1] == '.' && s[2] && !isdigit(s[2])) || !isdigit(s[1]);
  else return s[0] == '.' && s[1] && !isdigit(s[1]); 
}
static void wrdatum(obj o, wenv_t *e) {
  long ref;
  tail: ref = stabref(o, e->pst, 1); /* update ref after access */
  if (ref < 0) { char buf[30]; sprintf(buf, "#%ld#", -ref-1); wrs(buf, e); return; }
  if (ref > 0) { char buf[30]; sprintf(buf, "#%ld=", +ref-1); wrs(buf, e); }
  if (is_bool_obj(o)) {
    wrs(bool_from_obj(o) ? "#t" : "#f", e);
  } else if (is_fixnum_obj(o)) {
    char buf[30]; sprintf(buf, "%ld", fixnum_from_obj(o)); wrs(buf, e);
  } else if (is_flonum_obj(o)) {
    char buf[30], *s; double d = flonum_from_obj(o); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
    wrs(buf, e);
  } else if (iseof(o)) {
    wrs("#<eof>", e);
  } else if (isiport(o)) {
    char buf[60]; sprintf(buf, "#<%s>", ckiportvt(o)->tname); wrs(buf, e);
  } else if (isoport(o)) {
    char buf[60]; sprintf(buf, "#<%s>", ckoportvt(o)->tname); wrs(buf, e);
  } else if (issymbol(o)) {
    char *s = symbolname(getsymbol(o));
    if (e->disp || cleansymname(s)) wrs(s, e);
    else {
      wrc('|', e);
      while (*s) {
        int c = *s++;
        switch(c) {
          case '|': wrs("\\|", e); break;
          case '\\': wrs("\\\\", e); break;
          default: wrc(c, e); break;
        }
      }
      wrc('|', e);
    }

  } else if (isnull(o)) {
    wrs("()", e);
  } else if (ispair(o)) {
    wrc('(', e); wrdatum(car(o), e);
    while (ispair(cdr(o)) && !stabref(cdr(o), e->pst, 0)) { wrc(' ', e); o = cdr(o);  wrdatum(car(o), e); }
    if (!isnull(cdr(o))) { wrs(" . ", e); wrdatum(cdr(o), e); }
    wrc(')', e);
  } else if (is_char_obj(o)) {
    int c = char_from_obj(o);
    if (e->disp) wrc(c, e);
    else switch(c) {
      case 0x00: wrs("#\\null", e); break;
      case 0x07: wrs("#\\alarm", e); break;
      case 0x08: wrs("#\\backspace", e); break;
      case 0x7f: wrs("#\\delete", e); break;
      case 0x1b: wrs("#\\escape", e); break;
      case '\t': wrs("#\\tab", e); break;
      case '\n': wrs("#\\newline", e); break;
      case '\r': wrs("#\\return", e); break;
      case ' ': wrs("#\\space", e); break;
      default: wrs("#\\", e); wrc(c, e); break;
    }
  } else if (isstring(o)) {
    char *s = stringchars(o);
    if (e->disp) wrs(s, e);
    else {
      wrc('\"', e);
      while (*s) {
        int c = *s++;
        switch(c) {
          case '\"': wrs("\\\"", e); break;
          case '\\': wrs("\\\\", e); break;
          default: wrc(c, e); break;
        }
      }
      wrc('\"', e);
    }
  } else if (isvector(o)) {
    int i, n = vectorlen(o);
    wrs("#(", e);
    for (i = 0; i < n; ++i) { 
      if (i) wrc(' ', e); wrdatum(vectorref(o, i), e); 
    }
    wrc(')', e);
  } else if (isbytevector(o)) {
    int i, n = bytevectorlen(o);
    wrs("#u8(", e);
    for (i = 0; i < n; ++i) { 
      char buf[30]; sprintf(buf, "%d", *bytevectorref(o, i));
      if (i) wrc(' ', e); wrs(buf, e); 
    }
    wrc(')', e);
  } else if (isbox(o)) {
    wrs("#&", e); o = boxref(o); goto tail;
  } else if (isrecord(o)) {
    int i, n = recordlen(o);
    wrs("#<record ", e);
    wrdatum(recordrtd(o), e); // TODO: no need to show as shared!
    for (i = 0; i < n; ++i) { 
      wrc(' ', e); wrdatum(recordref(o, i), e); 
    }
    wrc('>', e);
  } else if (isprocedure(o)) {
    char buf[60]; sprintf(buf, "#<procedure @%p>", objptr_from_obj(o)); wrs(buf, e);
  } else if (isvoid(o)) {
    wrs("#<void>", e);
  } else {
    wrs("#<unknown>", e);
  }
}
/* S-expression writers */
extern void oportputsimple(obj x, obj p, int disp);
extern void oportputcircular(obj x, obj p, int disp);
extern void oportputshared(obj x, obj p, int disp);
/* S-expression writers */
void oportputsimple(obj x, obj p, int disp) {
  wenv_t e; e.pst = NULL; e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
  wrdatum(x, &e);
}
void oportputcircular(obj x, obj p, int disp) {
  wenv_t e; e.pst = staballoc(); e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
  stabcircular(x, e.pst); e.pst = stabend(e.pst);
  wrdatum(x, &e);
  stabfree(e.pst);
}
void oportputshared(obj x, obj p, int disp) {
  wenv_t e; e.pst = staballoc(); e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
  stabshared(x, e.pst); e.pst = stabend(e.pst);
  wrdatum(x, &e);
  stabfree(e.pst);
}
enum {
  ARGCHECK_BOOLEAN_BOOLEAN_BOOLEAN_ETC = -1000,
  ARGCHECK_N_OPT,
  ARGCHECK_N,
  ARGCHECK_N_N,
  ARGCHECK_N_ETC,
  ARGCHECK_Q,
  ARGCHECK_K,
  ARGCHECK_Z,
  ARGCHECK_Z_Z,
  ARGCHECK_Z_ETC,
  ARGCHECK_Z_Z_ETC,
  ARGCHECK_Z_Z_Z_ETC,
  ARGCHECK_X,
  ARGCHECK_X_X,
  ARGCHECK_X_ETC,
  ARGCHECK_X_X_ETC,
  ARGCHECK_X_X_X_ETC,
  ARGCHECK_Z_Z_OPT,
  ARGCHECK_Z_OR_X_X,
  ARGCHECK_Z_RADIX_OPT,
  ARGCHECK_K_CHAR_OPT,
  ARGCHECK_K_OBJ_OPT,
  ARGCHECK_BOX,
  ARGCHECK_PAIR,
  ARGCHECK_PAIR_OBJ,
  ARGCHECK_LIST,
  ARGCHECK_LIST_ETC,
  ARGCHECK_LIST_ETC_OBJ_OPT,
  ARGCHECK_OBJ_LIST,
  ARGCHECK_ALIST,
  ARGCHECK_OBJ_ALIST,
  ARGCHECK_U8LIST,
  ARGCHECK_SYMBOL,
  ARGCHECK_SYMBOL_SYMBOL_SYMBOL_ETC,
  ARGCHECK_CHAR,
  ARGCHECK_CHAR_CHAR,
  ARGCHECK_CHAR_CHAR_CHAR_ETC,
  ARGCHECK_CHAR_ETC,
  ARGCHECK_STRING,
  ARGCHECK_STRING_STRING,
  ARGCHECK_STRING_STRING_STRING_ETC,
  ARGCHECK_STRING_CHAR,
  ARGCHECK_STRING_ETC,
  ARGCHECK_STRING_OBJ_ETC,
  ARGCHECK_STRING_RADIX_OPT,
  ARGCHECK_STRING_INDEX,
  ARGCHECK_STRING_INDEX_CHAR,
  ARGCHECK_STRING_START_END,
  ARGCHECK_STRING_INDEX_STRING_START_END,
  ARGCHECK_STRING_CHAR_START_END,
  ARGCHECK_STRING_START_END_IPORT,
  ARGCHECK_STRING_START_END_OPORT,
  ARGCHECK_VECTOR,
  ARGCHECK_VECTOR_ETC,
  ARGCHECK_VECTOR_INDEX,
  ARGCHECK_VECTOR_INDEX_OBJ,
  ARGCHECK_VECTOR_START_END,
  ARGCHECK_VECTOR_INDEX_VECTOR_START_END,
  ARGCHECK_VECTOR_OBJ_START_END,
  ARGCHECK_VECTOR_OBJ,
  ARGCHECK_U8_ETC,
  ARGCHECK_K_U8_OPT,
  ARGCHECK_U8VECTOR,
  ARGCHECK_U8VECTOR_U8VECTOR,
  ARGCHECK_U8VECTOR_ETC,
  ARGCHECK_U8VECTOR_INDEX,
  ARGCHECK_U8VECTOR_INDEX_U8,
  ARGCHECK_U8VECTOR_START_END,
  ARGCHECK_U8VECTOR_INDEX_U8VECTOR_START_END,
  ARGCHECK_U8VECTOR_START_END_IPORT,
  ARGCHECK_U8VECTOR_START_END_OPORT,
  ARGCHECK_OBJ_K,
  ARGCHECK_RECORD,
  ARGCHECK_RECORD_INDEX,
  ARGCHECK_RECORD_INDEX_OBJ,
  ARGCHECK_PROC,
  ARGCHECK_PROC_OBJ_ETC_LIST,
  ARGCHECK_PROC1CC,
  ARGCHECK_THUNK_PROC,
  ARGCHECK_THUNK_THUNK_THUNK,
  ARGCHECK_STRING_THUNK,
  ARGCHECK_IPORT_THUNK,
  ARGCHECK_OPORT_THUNK,
  ARGCHECK_STRING_PROC1IP,
  ARGCHECK_STRING_PROC1OP,
  ARGCHECK_PORT_PROC1P,
  ARGCHECK_OBJ_PROC1_OPT,
  ARGCHECK_PROC1_THUNK,
  ARGCHECK_ENVIRONMENT,
  ARGCHECK_OBJ_ENVIRONMENT_OPT,
  ARGCHECK_IPORT,
  ARGCHECK_IPORT_OPT,
  ARGCHECK_K_IPORT_OPT,
  ARGCHECK_OPORT,
  ARGCHECK_OPORT_OPT,
  ARGCHECK_PORT,
  ARGCHECK_OBJ_OPORT_OPT,
  ARGCHECK_CHAR_OPORT_OPT,
  ARGCHECK_U8_OPORT_OPT,
  ARGCHECK_IPORT_OPT_BOOLEAN_OPT,
  ARGCHECK_OPORT_OPT_BOOLEAN_OPT,
  ABS_X,
  TOEXACT_Z,
  ADD_Z_ETC,
  MUL_Z_ETC,
  SUB_Z_Z_ETC,
  DIV_Z_Z_ETC,
  QUO_N_N,
  REM_N_N,
  MQU_N_N,
  MLO_N_N,
  E_Z_Z_Z_ETC,
  L_X_X_X_ETC,
  G_X_X_X_ETC,
  LE_X_X_X_ETC,
  GE_X_X_X_ETC,
  GCD_N_ETC,
  LCM_N_ETC,
  EXPT_Z_Z,
  CAR_PAIR,
  CDR_PAIR,
  CAAR_PAIR,
  CADR_PAIR,
  CDAR_PAIR,
  CDDR_PAIR,
  NOT_OBJ,
  EQ_OBJ_OBJ,
  EQV_OBJ_OBJ,
  ISNULL_OBJ,
  ISPAIR_OBJ,
  LENGTH_LIST,
  LENGTH_STRING,
  REF_STRING_INDEX,
  SET_STRING_INDEX_CHAR,
  LENGTH_VECTOR,
  REF_VECTOR_INDEX,
  SET_VECTOR_INDEX_OBJ
};
#define ARCRES_ITAG 6
#define ACRES_APPLY    mkimm(0, ARCRES_ITAG)
#define ACRES_BADPROC  mkimm(1, ARCRES_ITAG)
#define ACRES_BADARGC  mkimm(2, ARCRES_ITAG)
#define ACRES_BADTYPE  mkimm(3, ARCRES_ITAG)
#define ACRES_BADINDEX mkimm(4, ARCRES_ITAG)
#define ACRES_BADRANGE mkimm(5, ARCRES_ITAG)
#define ACRES_ZERODIV  mkimm(6, ARCRES_ITAG)
#define ACRES_FIXOVER  mkimm(7, ARCRES_ITAG)
static long listlen(obj l) {
  obj s = l; long n = 0;
  for (;;) {
    if (isnull(l)) return n;
    else if (!ispair(l)) return -1;
    else if (++n, (l = cdr(l)) == s) return -1;
    else if (isnull(l)) return n;
    else if (!ispair(l)) return -1;
    else if (++n, (l = cdr(l)) == s) return -1;
    else s = cdr(s); 
  }
}
static int isalist(obj l) {
  obj s = l;
  for (;;) {
    if (isnull(l)) return 1;
    else if (!ispair(l) || !ispair(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else if (isnull(l)) return 1;
    else if (!ispair(l) || !ispair(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else s = cdr(s); 
  }
}
static int isu8list(obj l) {
  obj s = l;
  for (;;) {
    if (isnull(l)) return 1;
    else if (!ispair(l) || !is_byte_obj(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else if (isnull(l)) return 1;
    else if (!ispair(l) || !is_byte_obj(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else s = cdr(s); 
  }
}
static int isenvironment(obj l) {
  obj s = l;
  for (;;) {
    if (isnull(l) || isprocedure(l)) return 1;
    else if (!ispair(l) || !ispair(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else if (isnull(l) || isprocedure(l)) return 1;
    else if (!ispair(l) || !ispair(car(l))) return 0;
    else if ((l = cdr(l)) == s) return 0;
    else s = cdr(s); 
  }
}
static int iexpt(long *px, long y) { 
  if (y < 0) return 0; /* consistent with the op/fxpow */
  retry: if (y == 0) return (*px = 1, 1); if (y == 1) return 1;
  if (y % 2 == 1) { 
    long long zz; long z = *px; if (!iexpt(&z, y-1)) return 0; 
    zz = *px * (long long)z; if (zz < FIXNUM_MIN || zz > FIXNUM_MAX) return 0;
    *px = (long)zz; return 1;
  } else { 
    long long zz = *px; zz *= zz;
    if (zz < FIXNUM_MIN || zz > FIXNUM_MAX) return 0;
    *px = (long)zz;  y /= 2; goto retry; 
  }
}
static int peekann(obj p) {
  int len, ann; obj h;
  if (!p || !isobjptr(p)) return FIXNUM_MIN; /* not a heap object */
  h = objptr_from_obj(p)[-1]; if (isaptr(h)) return FIXNUM_MIN; /* native */
  if (size_from_obj(h) < 1 || notaptr(hblkref(p, 0))) return FIXNUM_MIN; /* no code */
  len = hblklen(p); assert(len >= 2); /* must have code & ann */
  ann = fixnum_from_obj(hblkref(p, len-1)); return ann;
}
static int isthunk(obj p) {
  int ann = peekann(p);
  if (ann == FIXNUM_MIN) return 0; /* not a proc */
  if (ann >= 0) { /* ac check only */
    int ac = 0; return (ann / 1000 <= ac && ac <= ann % 1000);
  } else switch (ann) {
    case ARGCHECK_N_OPT:
    case ARGCHECK_N_ETC:
    case ARGCHECK_Z_ETC:
    case ARGCHECK_X_ETC:
    case ARGCHECK_CHAR_ETC:
    case ARGCHECK_STRING_ETC:
    case ARGCHECK_VECTOR_ETC:
    case ARGCHECK_U8VECTOR_ETC:
    case ARGCHECK_IPORT_OPT:
    case ARGCHECK_OPORT_OPT:
    case ARGCHECK_IPORT_OPT_BOOLEAN_OPT:
    case ARGCHECK_OPORT_OPT_BOOLEAN_OPT:
    case ADD_Z_ETC:
    case MUL_Z_ETC:
    case GCD_N_ETC:
    case LCM_N_ETC: 
      return 1;
    default: 
      return 0;
  }
}
static int isproc1cc(obj p) {
  int ann = peekann(p);
  if (ann == FIXNUM_MIN) return 0; /* not a proc */
  if (ann >= 0) { /* ac check only */
    int ac = 1; return (ann / 1000 <= ac && ac <= ann % 1000);
  } else switch (ann) {
    case ARGCHECK_OBJ_PROC1_OPT:
    case ARGCHECK_PROC:
    case ARGCHECK_PROC1CC:
    case ARGCHECK_OBJ_ENVIRONMENT_OPT:
    case ARGCHECK_OBJ_OPORT_OPT:
    case NOT_OBJ:
    case ISNULL_OBJ:
    case ISPAIR_OBJ:
      return 1;
    default: 
      return 0;
  }
}
static int isproc1ip(obj p) {
  int ann = peekann(p);
  if (ann == FIXNUM_MIN) return 0; /* not a proc */
  if (ann >= 0) { /* ac check only */
    int ac = 1; return (ann / 1000 <= ac && ac <= ann % 1000);
  } else switch (ann) {
    case ARGCHECK_OBJ_PROC1_OPT:
    case ARGCHECK_IPORT:
    case ARGCHECK_IPORT_OPT:
    case ARGCHECK_PORT:
    case ARGCHECK_OBJ_OPORT_OPT:
    case ARGCHECK_IPORT_OPT_BOOLEAN_OPT:
    case NOT_OBJ:
    case ISNULL_OBJ:
    case ISPAIR_OBJ:
      return 1;
    default: 
      return 0;
  }
}
static int isproc1op(obj p) {
  int ann = peekann(p);
  if (ann == FIXNUM_MIN) return 0; /* not a proc */
  if (ann >= 0) { /* ac check only */
    int ac = 1; return (ann / 1000 <= ac && ac <= ann % 1000);
  } else switch (ann) {
    case ARGCHECK_OBJ_PROC1_OPT:
    case ARGCHECK_OPORT:
    case ARGCHECK_OPORT_OPT:
    case ARGCHECK_PORT:
    case ARGCHECK_OBJ_OPORT_OPT:
    case ARGCHECK_OPORT_OPT_BOOLEAN_OPT:
    case NOT_OBJ:
    case ISNULL_OBJ:
    case ISPAIR_OBJ:
      return 1;
    default: 
      return 0;
  }
}
static int isproc1(obj p) {
  int ann = peekann(p);
  if (ann == FIXNUM_MIN) return 0; /* not a proc */
  if (ann >= 0) { /* ac check only */
    int ac = 1; return (ann / 1000 <= ac && ac <= ann % 1000);
  } else switch (ann) {
    case ARGCHECK_N_OPT:
    case ARGCHECK_N:
    case ARGCHECK_N_ETC:
    case ARGCHECK_Q:
    case ARGCHECK_K:
    case ARGCHECK_Z:
    case ARGCHECK_Z_ETC:
    case ARGCHECK_X:
    case ARGCHECK_X_ETC:
    case ARGCHECK_X_X_ETC:
    case ARGCHECK_Z_Z_OPT:
    case ARGCHECK_Z_OR_X_X:
    case ARGCHECK_Z_RADIX_OPT:
    case ARGCHECK_K_CHAR_OPT:
    case ARGCHECK_K_OBJ_OPT:
    case ARGCHECK_BOX:
    case ARGCHECK_PAIR:
    case ARGCHECK_LIST:
    case ARGCHECK_LIST_ETC:
    case ARGCHECK_LIST_ETC_OBJ_OPT:
    case ARGCHECK_ALIST:
    case ARGCHECK_U8LIST:
    case ARGCHECK_SYMBOL:
    case ARGCHECK_CHAR:
    case ARGCHECK_CHAR_ETC:
    case ARGCHECK_STRING:
    case ARGCHECK_STRING_ETC:
    case ARGCHECK_STRING_OBJ_ETC:
    case ARGCHECK_STRING_RADIX_OPT:
    case ARGCHECK_VECTOR:
    case ARGCHECK_VECTOR_ETC:
    case ARGCHECK_U8_ETC:
    case ARGCHECK_K_U8_OPT:
    case ARGCHECK_U8VECTOR:
    case ARGCHECK_U8VECTOR_ETC:
    case ARGCHECK_RECORD:
    case ARGCHECK_PROC:
    case ARGCHECK_PROC1CC:
    case ARGCHECK_OBJ_PROC1_OPT:
    case ARGCHECK_ENVIRONMENT:
    case ARGCHECK_OBJ_ENVIRONMENT_OPT:
    case ARGCHECK_IPORT:
    case ARGCHECK_IPORT_OPT:
    case ARGCHECK_K_IPORT_OPT:
    case ARGCHECK_OPORT:
    case ARGCHECK_OPORT_OPT:
    case ARGCHECK_PORT:
    case ARGCHECK_OBJ_OPORT_OPT:
    case ARGCHECK_CHAR_OPORT_OPT:
    case ARGCHECK_U8_OPORT_OPT:
    case ARGCHECK_IPORT_OPT_BOOLEAN_OPT:
    case ARGCHECK_OPORT_OPT_BOOLEAN_OPT:
    case ABS_X:
    case TOEXACT_Z:
    case ADD_Z_ETC:
    case MUL_Z_ETC:
    case SUB_Z_Z_ETC:
    case DIV_Z_Z_ETC:
    case GCD_N_ETC: 
    case LCM_N_ETC: 
    case CAR_PAIR:
    case CDR_PAIR:
    case CAAR_PAIR:
    case CADR_PAIR:
    case CDAR_PAIR:
    case CDDR_PAIR:
    case NOT_OBJ:
    case ISNULL_OBJ:
    case ISPAIR_OBJ:
    case LENGTH_LIST:
    case LENGTH_STRING:
    case LENGTH_VECTOR:
      return 1;
    default: 
      return 0;
  }
}
static int isradix(obj o) {
  if (!is_fixnum_obj(o)) return 0;
  else { long i = fixnum_from_obj(o); return (i == 2 || i == 8 || i == 10 || i == 16); } 
}
obj argcheck(obj p, long ac, obj l, ...) {
  int ann; assert(ac >= 0);
  ann = peekann(p); if (ann == FIXNUM_MIN) return ACRES_BADPROC; /* not a proc */
  if (ann >= 0) { /* ac check only */
    if (ann / 1000 <= ac && ac <= ann % 1000) return ACRES_APPLY; /* ac ok */
    else return ACRES_BADARGC; /* a closure, but won't accept ac */
  } else { /* full argument check */ 
    obj res = ACRES_APPLY; va_list args; 
    va_start(args, l);
    switch (ann) {
      /* regular arg checks */
      case ARGCHECK_BOOLEAN_BOOLEAN_BOOLEAN_ETC: 
        if (ac < 2) res = ACRES_BADARGC; else while (ac-- > 0) {
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!is_bool_obj(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_N_OPT:      if (ac == 0) break; /* else fall thru */
      case ARGCHECK_N:          if (ac != 1) { res = ACRES_BADARGC; break; } else goto int_etc;
      case ARGCHECK_N_N:        if (ac != 2) { res = ACRES_BADARGC; break; } else goto int_etc;
      case ARGCHECK_N_ETC:      goto int_etc;
      case ARGCHECK_Q:          if (ac != 1) { res = ACRES_BADARGC; break; } else goto int_etc;
      int_etc: 
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (is_fixnum_obj(o) || (is_flonum_obj(o) && flisint(flonum_from_obj(o)))) continue; 
          res = ACRES_BADTYPE; break;
        } break;
      case ARGCHECK_K:          
        if (ac == 1) { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) || fixnum_from_obj(o) < 0) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_Z:          if (ac != 1) { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_Z_Z:        if (ac != 2) { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_Z_ETC:      goto real_etc;
      case ARGCHECK_Z_Z_ETC:    if (ac < 1)  { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_Z_Z_Z_ETC:  if (ac < 2)  { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_X:          if (ac != 1) { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_X_X:        if (ac != 2) { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_X_ETC:      goto real_etc;
      case ARGCHECK_X_X_ETC:    if (ac < 1)  { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_X_X_X_ETC:  if (ac < 2)  { res = ACRES_BADARGC; break; } else goto real_etc;
      case ARGCHECK_Z_Z_OPT:    /* same as below */
      case ARGCHECK_Z_OR_X_X:   if (ac < 1 || ac > 2) { res = ACRES_BADARGC; break; } else goto real_etc;
      real_etc:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) && !is_flonum_obj(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_Z_RADIX_OPT: 
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) && !is_flonum_obj(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_fixnum_obj(o1) && !is_flonum_obj(o1)) res = ACRES_BADTYPE; 
          else if (!isradix(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_K_CHAR_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) || fixnum_from_obj(o) < 0) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_fixnum_obj(o1) || fixnum_from_obj(o1) < 0) res = ACRES_BADTYPE; 
          else if (!ischar(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_K_OBJ_OPT:
        if (ac == 1 || ac == 2) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) || fixnum_from_obj(o) < 0) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_BOX:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isbox(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_PAIR:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!ispair(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_PAIR_OBJ:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!ispair(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_LIST:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!islist(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_LIST_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!islist(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_LIST_ETC_OBJ_OPT:
        while (ac-- > 1) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!islist(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_OBJ_LIST:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!islist(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_ALIST:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isalist(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_U8LIST:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isu8list(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_OBJ_ALIST:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isalist(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_SYMBOL:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!issymbol(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_SYMBOL_SYMBOL_SYMBOL_ETC: 
        if (ac < 2) res = ACRES_BADARGC; else while (ac-- > 0) {
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!issymbol(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_CHAR:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!ischar(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_CHAR_CHAR:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!ischar(o1) || !ischar(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_CHAR_CHAR_CHAR_ETC: 
        if (ac < 2) res = ACRES_BADARGC; else while (ac-- > 0) {
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!ischar(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_CHAR_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!ischar(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_STRING:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isstring(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_STRING_STRING:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !isstring(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_STRING_STRING_ETC: 
        if (ac < 2) res = ACRES_BADARGC; else while (ac-- > 0) {
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!isstring(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_STRING_CHAR:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !ischar(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!isstring(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_STRING_OBJ_ETC: 
        if (ac < 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isstring(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_STRING_RADIX_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isstring(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !isradix(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_STRING_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_STRING_INDEX_CHAR:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2) || !ischar(o3)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_STRING_START_END:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_STRING_INDEX_STRING_START_END:
        if (ac != 5) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4, o5; long tlen = -1;
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); l = cdr(l); o5 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); o5 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; else tlen = len-n; }
          if (!isstring(o3) || !is_fixnum_obj(o4) || !is_fixnum_obj(o5)) res = ACRES_BADTYPE;
          else { long len = stringlen(o3), s = fixnum_from_obj(o4), e = fixnum_from_obj(o5); 
                 if (s < 0 || s > e || e > len || e-s > tlen) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_STRING_CHAR_START_END:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isstring(o1) || !ischar(o2) || !is_fixnum_obj(o3) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), s = fixnum_from_obj(o3), e = fixnum_from_obj(o4); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_STRING_START_END_IPORT:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
          if (!isiport(o4)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_START_END_OPORT:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
          if (!isoport(o4)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_VECTOR:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isvector(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_VECTOR_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!isvector(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_VECTOR_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_VECTOR_INDEX_OBJ:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_VECTOR_START_END:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_VECTOR_INDEX_VECTOR_START_END:
        if (ac != 5) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4, o5; long tlen = -1;
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); l = cdr(l); o5 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); o5 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; else tlen = len-n; }
          if (!isvector(o3) || !is_fixnum_obj(o4) || !is_fixnum_obj(o5)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o3), s = fixnum_from_obj(o4), e = fixnum_from_obj(o5); 
                 if (s < 0 || s > e || e > len || e-s > tlen) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_VECTOR_OBJ_START_END:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o3) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), s = fixnum_from_obj(o3), e = fixnum_from_obj(o4); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_VECTOR_OBJ:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isvector(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_U8_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!is_byte_obj(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_K_U8_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) || fixnum_from_obj(o) < 0) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_fixnum_obj(o1) || fixnum_from_obj(o1) < 0) res = ACRES_BADTYPE; 
          else if (!is_byte_obj(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_U8VECTOR:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isbytevector(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_U8VECTOR_U8VECTOR:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isbytevector(o1) || !isbytevector(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_U8VECTOR_ETC:
        while (ac-- > 0) { 
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj); 
          if (!isbytevector(o)) { res = ACRES_BADTYPE; break; }
        } break;
      case ARGCHECK_U8VECTOR_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_U8VECTOR_INDEX_U8:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2) || !is_byte_obj(o3)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_U8VECTOR_START_END:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_U8VECTOR_INDEX_U8VECTOR_START_END:
        if (ac != 5) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4, o5; long tlen = -1;
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); l = cdr(l); o5 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); o5 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; else tlen = len-n; }
          if (!isbytevector(o3) || !is_fixnum_obj(o4) || !is_fixnum_obj(o5)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o3), s = fixnum_from_obj(o4), e = fixnum_from_obj(o5); 
                 if (s < 0 || s > e || e > len || e-s > tlen) res = ACRES_BADRANGE; }
        } break;
      case ARGCHECK_U8VECTOR_START_END_IPORT:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
          if (!isiport(o4)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_U8VECTOR_START_END_OPORT:
        if (ac != 4) res = ACRES_BADARGC; else { 
          obj o1, o2, o3, o4; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); l = cdr(l); o4 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); o4 = va_arg(args, obj); }
          if (!isbytevector(o1) || !is_fixnum_obj(o2) || !is_fixnum_obj(o3)) res = ACRES_BADTYPE;
          else { long len = bytevectorlen(o1), s = fixnum_from_obj(o2), e = fixnum_from_obj(o3); 
                 if (s < 0 || s > e || e > len) res = ACRES_BADRANGE; }
          if (!isoport(o4)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_OBJ_K:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_fixnum_obj(o2) || fixnum_from_obj(o2) < 0) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_RECORD:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isrecord(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_RECORD_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isrecord(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = recordlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_RECORD_INDEX_OBJ:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isrecord(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = recordlen(o1), n = fixnum_from_obj(o2); if (n < 0 || n >= len) res = ACRES_BADINDEX; }
        } break;
      case ARGCHECK_PROC:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isprocedure(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_PROC_OBJ_ETC_LIST:
        if (ac < 2) res = ACRES_BADARGC; else {
          obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
          if (!isprocedure(o)) res = ACRES_BADTYPE;
          else if (l) { long i = 1; while (++i < ac) l = cdr(l); o = car(l); if (!islist(o)) res = ACRES_BADTYPE; } 
          else { long i = 1; while (++i < ac) va_arg(args, obj); o = va_arg(args, obj); if (!islist(o)) res = ACRES_BADTYPE; } 
        } break;
      case ARGCHECK_PROC1CC:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isproc1cc(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_THUNK_PROC:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isthunk(o1) || !isprocedure(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_THUNK_THUNK_THUNK:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isthunk(o1) || !isthunk(o2) || !isthunk(o3)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_THUNK:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !isthunk(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_IPORT_THUNK:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isiport(o1) || !isthunk(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_OPORT_THUNK:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isoport(o1) || !isthunk(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_PROC1IP:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !isproc1ip(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_STRING_PROC1OP:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !isproc1op(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_PORT_PROC1P:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!((isiport(o1) && isproc1ip(o2)) || (isoport(o1) && isproc1op(o2)))) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_OBJ_PROC1_OPT:
        if (ac == 1) {
          /* ok, obj requires no check */
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isproc1(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_PROC1_THUNK:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isproc1(o1) || !isthunk(o2)) res = ACRES_BADTYPE;
        } break;
      case ARGCHECK_ENVIRONMENT:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isenvironment(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_OBJ_ENVIRONMENT_OPT:
        if (ac == 1) {
          /* ok, obj requires no check */
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isenvironment(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_IPORT_OPT:
        if (ac == 0) break; /* else fall thru */ 
      case ARGCHECK_IPORT:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isiport(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_K_IPORT_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_fixnum_obj(o) || fixnum_from_obj(o) < 0) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_fixnum_obj(o1) || fixnum_from_obj(o1) < 0) res = ACRES_BADTYPE; 
          if (!isiport(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_OPORT_OPT:
        if (ac == 0) break; /* else fall thru */ 
      case ARGCHECK_OPORT:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isoport(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_PORT:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isiport(o) && !isoport(o)) res = ACRES_BADTYPE; 
        } break;
      case ARGCHECK_OBJ_OPORT_OPT:
        if (ac == 1) {
          /* ok, obj requires no check */
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isoport(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_CHAR_OPORT_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!ischar(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!ischar(o1) || !isoport(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_U8_OPORT_OPT:
        if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!is_byte_obj(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!is_byte_obj(o1) || !isoport(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_IPORT_OPT_BOOLEAN_OPT:
        if (ac == 0) {
        } else if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isiport(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isiport(o1) || !is_bool_obj(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      case ARGCHECK_OPORT_OPT_BOOLEAN_OPT:
        if (ac == 0) {
        } else if (ac == 1) {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); 
          if (!isoport(o)) res = ACRES_BADTYPE; 
        } else if (ac == 2) { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isoport(o1) || !is_bool_obj(o2)) res = ACRES_BADTYPE; 
        } else res = ACRES_BADARGC; 
        break;
      /* special checks for popular operations; may return result if no allocation is needed */
      case ABS_X:
        if (ac != 1) res = ACRES_BADARGC; else {
          long z; obj o; if (l) o = car(l); else o = va_arg(args, obj);
          if (is_flonum_obj(o)) goto out;
          if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
          z = fixnum_from_obj(o); if (z == FIXNUM_MIN) { res = ACRES_FIXOVER; goto out; }
          res = obj_from_fixnum(labs(z));
        } break;
      case TOEXACT_Z:
        if (ac != 1) res = ACRES_BADARGC; else {
          double f; long z; obj o; if (l) o = car(l); else o = va_arg(args, obj);
          if (is_fixnum_obj(o)) { res = o; goto out; }
          if (!is_flonum_obj(o)) { res = ACRES_BADTYPE; goto out; }
          f = flonum_from_obj(o); z = (long)f;
          if ((double)z != f || z < FIXNUM_MIN || z > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }  
          res = obj_from_fixnum(z);
        } break;
      case ADD_Z_ETC:
        if (ac < 2) goto real_etc; else { 
          long z = 0; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o)) goto real_etc; /* fl/mixed op won't overflow */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            z += fixnum_from_obj(o); if (z < FIXNUM_MIN || z > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }
          } res = obj_from_fixnum(z);
        } break;
      case MUL_Z_ETC:
        if (ac < 2) goto real_etc; else { 
          long long z = 1; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o)) goto real_etc; /* fl/mixed op won't overflow */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            z *= fixnum_from_obj(o); if (z < FIXNUM_MIN || z > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }
          } res = obj_from_fixnum((long)z);
        } break;
      case SUB_Z_Z_ETC:
        if (ac < 1) res = ACRES_BADARGC; else {
          long z = 0, i = 0; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o)) goto real_etc; /* fl/mixed op won't overflow */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            if (!i++) { z = fixnum_from_obj(o); if (!ac) z = -z; } else z -= fixnum_from_obj(o); 
            if (z < FIXNUM_MIN || z > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }
          } res = obj_from_fixnum(z);
        } break;
      case DIV_Z_Z_ETC:
        if (ac < 1) res = ACRES_BADARGC; else {
          long z = 0, i = 0; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o)) goto real_etc; /* our fl/mixed op won't overflow or zerodiv */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            if ((i || !ac) && o == obj_from_fixnum(0)) { res = ACRES_ZERODIV; goto out; }
            if (!i++) { z = fixnum_from_obj(o); if (!ac) { if (z != 1 && z != -1) goto out; } } 
            else { long x = fixnum_from_obj(o); if (z % x == 0) z /= x; else goto out; } 
            if (z < FIXNUM_MIN || z > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }
          } res = obj_from_fixnum(z);
        } break;
      case QUO_N_N:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) { long x =  fixnum_from_obj(o1), y = fixnum_from_obj(o2);
            res = (!y) ? ACRES_ZERODIV : (x == FIXNUM_MIN && y == -1) ? ACRES_FIXOVER : obj_from_fixnum(x / y);
          } else if (!(is_fixnum_obj(o1) || (is_flonum_obj(o1) && flisint(flonum_from_obj(o1)))) || 
                     !(is_fixnum_obj(o2) || (is_flonum_obj(o2) && flisint(flonum_from_obj(o2))))) res = ACRES_BADTYPE;
        } break;
      case REM_N_N:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) { long x =  fixnum_from_obj(o1), y = fixnum_from_obj(o2);
            res = (!y) ? ACRES_ZERODIV : obj_from_fixnum(x % y);
          } else if (!(is_fixnum_obj(o1) || (is_flonum_obj(o1) && flisint(flonum_from_obj(o1)))) || 
                     !(is_fixnum_obj(o2) || (is_flonum_obj(o2) && flisint(flonum_from_obj(o2))))) res = ACRES_BADTYPE;
        } break;
      case MQU_N_N:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) { long x =  fixnum_from_obj(o1), y = fixnum_from_obj(o2);
            if (!y) res = ACRES_ZERODIV; else if (x == FIXNUM_MIN && y == -1) res = ACRES_FIXOVER;
            else { long q = x / y; res = obj_from_fixnum(((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q); }
          } else if (!(is_fixnum_obj(o1) || (is_flonum_obj(o1) && flisint(flonum_from_obj(o1)))) || 
                     !(is_fixnum_obj(o2) || (is_flonum_obj(o2) && flisint(flonum_from_obj(o2))))) res = ACRES_BADTYPE;
        } break;
      case MLO_N_N:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) { long x =  fixnum_from_obj(o1), y = fixnum_from_obj(o2);
            if (!y) res = ACRES_ZERODIV; else { long r = x % y; res = obj_from_fixnum(((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r); }
          } else if (!(is_fixnum_obj(o1) || (is_flonum_obj(o1) && flisint(flonum_from_obj(o1)))) || 
                     !(is_fixnum_obj(o2) || (is_flonum_obj(o2) && flisint(flonum_from_obj(o2))))) res = ACRES_BADTYPE;
        } break;
      case E_Z_Z_Z_ETC:
        if (ac < 2) res = ACRES_BADARGC; else if (ac == 2) {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) res = obj_from_bool(o1 == o2);
          else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } else goto real_etc;
        break;
      case L_X_X_X_ETC:   
        if (ac < 2) res = ACRES_BADARGC; else if (ac == 2) {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) res = obj_from_bool(fixnum_from_obj(o1) < fixnum_from_obj(o2));
          else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } else goto real_etc;
        break;
      case G_X_X_X_ETC:   
        if (ac < 2) res = ACRES_BADARGC; else if (ac == 2) {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) res = obj_from_bool(fixnum_from_obj(o1) > fixnum_from_obj(o2));
          else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } else goto real_etc;
        break;
      case LE_X_X_X_ETC:   
        if (ac < 2) res = ACRES_BADARGC; else if (ac == 2) {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) res = obj_from_bool(fixnum_from_obj(o1) <= fixnum_from_obj(o2));
          else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } else goto real_etc;
        break;
      case GE_X_X_X_ETC:   
        if (ac < 2) res = ACRES_BADARGC; else if (ac == 2) {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2)) res = obj_from_bool(fixnum_from_obj(o1) >= fixnum_from_obj(o2));
          else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } else goto real_etc;
        break;
      case GCD_N_ETC:
        if (ac == 0) res = obj_from_fixnum(0); else { 
          long a = 0, i = 0; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o) && flisint(flonum_from_obj(o))) goto int_etc; /* our fl/mixed op won't overflow */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            if (!i++) a = labs(fixnum_from_obj(o)); 
            else { long b = labs(fixnum_from_obj(o)), c; while (b) c = a%b, a = b, b = c; }
            if (a > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; }
          } res = obj_from_fixnum(a);
        } break;
      case LCM_N_ETC:
        if (ac == 0) res = obj_from_fixnum(1); else { 
          long long x = 1; long i = 0; while (ac-- > 0) {
            obj o; if (l) { o = car(l); l = cdr(l); } else o = va_arg(args, obj);
            if (is_flonum_obj(o) && flisint(flonum_from_obj(o))) goto int_etc; /* our fl/mixed op won't overflow */
            if (!is_fixnum_obj(o)) { res = ACRES_BADTYPE; goto out; }
            if (!i++) x = labs(fixnum_from_obj(o)); 
            else { long y = labs(fixnum_from_obj(o)), a = (long)x, b = y, c; while (b) c = a%b, a = b, b = c;
                   if (!a) x = a; else x = (x / a) * y; }
            if (x > FIXNUM_MAX) { res = ACRES_FIXOVER; goto out; } /* internal overflow, like in real op */
          } res = obj_from_fixnum((long)x);
        } break;
      case EXPT_Z_Z:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_fixnum_obj(o1) && is_fixnum_obj(o2) && fixnum_from_obj(o2) >= 0) { 
            long x = fixnum_from_obj(o1), y = fixnum_from_obj(o2); 
            if (!iexpt(&x, y)) res = ACRES_FIXOVER; else res = obj_from_fixnum(x);
          } else if (!(is_fixnum_obj(o1) || is_flonum_obj(o1)) || !(is_fixnum_obj(o2) || is_flonum_obj(o2))) res = ACRES_BADTYPE;
        } break;
      case CAR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = ispair(o) ? car(o) : ACRES_BADTYPE;
        } break;
      case CDR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = ispair(o) ? cdr(o) : ACRES_BADTYPE;
        } break;
      case CAAR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = (ispair(o) && ispair(car(o))) ? car(car(o)) : ACRES_BADTYPE;
        } break;
      case CDAR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = (ispair(o) && ispair(car(o))) ? cdr(car(o)) : ACRES_BADTYPE;
        } break;
      case CADR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = (ispair(o) && ispair(cdr(o))) ? car(cdr(o)) : ACRES_BADTYPE;
        } break;
      case CDDR_PAIR:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = (ispair(o) && ispair(cdr(o))) ? cdr(cdr(o)) : ACRES_BADTYPE;
        } break;
      case NOT_OBJ:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = obj_from_bool(!bool_from_obj(o));
        } break;
      case EQ_OBJ_OBJ:   
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          res = obj_from_bool(o1 == o2);
        } break;
      case EQV_OBJ_OBJ:   
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (is_flonum_obj(o1) && is_flonum_obj(o2)) res = obj_from_bool(flonum_from_obj(o1) == flonum_from_obj(o2));
          else res = obj_from_bool(o1 == o2);
        } break;
      case ISNULL_OBJ:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = obj_from_bool(isnull(o));
        } break;
      case ISPAIR_OBJ:   
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = obj_from_bool(ispair(o));
        } break;
      case LENGTH_LIST:   
        if (ac != 1) res = ACRES_BADARGC; else {
          long n; obj o; if (l) o = car(l); else o = va_arg(args, obj); res = ((n = listlen(o)) < 0) ? ACRES_BADTYPE : obj_from_fixnum(n);
        } break;
      case LENGTH_STRING:
        if (ac != 1) res = ACRES_BADARGC; else { 
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = isstring(o) ? obj_from_fixnum(stringlen(o)) : ACRES_BADTYPE; 
        } break;
      case REF_STRING_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else { 
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = stringlen(o1), n = fixnum_from_obj(o2); res = (n < 0 || n >= len) ? ACRES_BADINDEX : obj_from_char(*(unsigned char*)stringref(o1, n)); }
        } break;
      case SET_STRING_INDEX_CHAR:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isstring(o1) || !is_fixnum_obj(o2) || !ischar(o3)) res = ACRES_BADTYPE;
          else { 
            long len = stringlen(o1), n = fixnum_from_obj(o2); 
            res = (n < 0 || n >= len) ? ACRES_BADINDEX : obj_from_void(*stringref(o1, n) = char_from_obj(o3)); 
          }
        } break;
      case LENGTH_VECTOR:
        if (ac != 1) res = ACRES_BADARGC; else {
          obj o; if (l) o = car(l); else o = va_arg(args, obj); res = isvector(o) ? obj_from_fixnum(vectorlen(o)) : ACRES_BADTYPE;
        } break;
      case REF_VECTOR_INDEX:
        if (ac != 2) res = ACRES_BADARGC; else {
          obj o1, o2; if (l) { o1 = car(l); l = cdr(l); o2 = car(l); } else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), n = fixnum_from_obj(o2); res = (n < 0 || n >= len) ? ACRES_BADINDEX : vectorref(o1, n); }          
        } break;
      case SET_VECTOR_INDEX_OBJ:
        if (ac != 3) res = ACRES_BADARGC; else { 
          obj o1, o2, o3; 
          if (l) { o1 = car(l); l = cdr(l); o2 = car(l); l = cdr(l); o3 = car(l); } 
          else { o1 = va_arg(args, obj); o2 = va_arg(args, obj); o3 = va_arg(args, obj); }
          if (!isvector(o1) || !is_fixnum_obj(o2)) res = ACRES_BADTYPE;
          else { long len = vectorlen(o1), n = fixnum_from_obj(o2); res = (n < 0 || n >= len) ? ACRES_BADINDEX : (vectorref(o1, n) = o3); }
        } break;
      default: assert(0);
    }
  out:  
    va_end(args);
    return res;
  }
}
extern obj *cxa_lis3(obj *r, int l, obj *hp, obj ax, obj ay, obj az);
obj *cxa_lis3(obj *r, int l, obj *hp, obj ax, obj ay, obj az) {
  obj d = mknull();
  hreserve(hbsz(3)*3+1, l); /* l live regs */
  *--hp = d;  
  *--hp = az;  
  *--hp = obj_from_size(PAIR_BTAG); 
  d = (hendblk(3));
  *--hp = d;  
  *--hp = ay;  
  *--hp = obj_from_size(PAIR_BTAG); 
  d = (hendblk(3));
  *--hp = d;  
  *--hp = ax;  
  *--hp = obj_from_size(PAIR_BTAG); 
  d = hendblk(3);
  *--hp = d;
  return hp;
}
/* initialization code */
static char *ints_init_code =
"(define-syntax syntax-error"
"  (syntax-rules ()"
"    [(_ #&(string? msg) arg ...) #&(error msg arg ...)]))"
""
"(define-syntax let-syntax"
"  (syntax-rules ()"
"    [(_ ([kw init] ...))"
"     (begin)]"
"    [(_ ([kw init] ...) . body)"
"     ((syntax-lambda (kw ...) . body)"
"      init ...)]))"
""
"(define-syntax letrec-syntax"
"  (let-syntax ([let-syntax let-syntax] [define-syntax define-syntax])"
"    (syntax-rules ()"
"      [(_ ([kw init] ...) . body)"
"       (let-syntax ()"
"         (define-syntax kw init) ... (let-syntax () . body))])))"
""
"(define-syntax lambda"
"  (let-syntax ([old-lambda lambda])"
"    (syntax-rules ()"
"      [(_ args . body)"
"       (old-lambda args (let-syntax () . body))])))"
""
"(define-syntax define"
"  (let-syntax ([old-define define])"
"    (letrec-syntax"
"      ([new-define"
"        (syntax-rules ()"
"          [(_ exp) (old-define exp)]"
"          [(_ (var-or-prototype . args) . body)"
"           (new-define var-or-prototype (lambda args . body))]"
"          [(_ . other) (old-define . other)])])"
"     new-define)))"
""
"(define-syntax let"
"  (syntax-rules ()"
"    [(_ ([var init] ...) . body)"
"     ((lambda (var ...) . body) init ...)]"
"    [(_ name ([var init] ...) . body)"
"     ((letrec ([name (lambda (var ...) . body)])"
"        name)"
"      init ...)]))"
""
"(define-syntax let*"
"  (syntax-rules ()"
"    [(_ () . body) (let () . body)]"
"    [(_ ([var init] . bindings) . body)"
"     (let ([var init]) (let* bindings . body))]))"
""
"(define-syntax letrec"
"  (syntax-rules ()"
"    [(_ ([var init] ...) . body)"
"     (let () (define var init) ... (let () . body))]))"
"     "
"(define-syntax letrec*"
"  (syntax-rules ()"
"    [(_ ([var expr] ...) . body)"
"     (let ([var #f] ...)"
"       (set! var expr)"
"       ..."
"       (let () . body))]))"
""
"(define-syntax do"
"  (let-syntax ([do-step (syntax-rules () [(_ x) x] [(_ x y) y])])"
"    (syntax-rules ()"
"      [(_ ([var init step ...] ...)"
"         [test expr ...]"
"          command ...)"
"       (let loop ([var init] ...)"
"         (if test"
"             (begin (if #f #f) expr ...)"
"             (let () "
"               command ..."
"               (loop (do-step var step ...) ...))))])))"
""
"(define-syntax cond"
"  (syntax-rules (else =>)"
"    [(_) (if #f #f)] #| undefined |#"
"    [(_ [else . exps]) (let () . exps)]"
"    [(_ [x] . rest) (or x (cond . rest))]"
"    [(_ [x => proc] . rest)"
"     (let ([tmp x]) (cond [tmp (proc tmp)] . rest))]"
"    [(_ [x . exps] . rest)"
"     (if x (let () . exps) (cond . rest))]))"
""
"(define-syntax case"
"  (letrec-syntax"
"    ([compare"
"      (syntax-rules ()"
"        [(_ key ()) #f]"
"        [(_ key (#&(id? datum) . data))"
"         (if (eq? key 'datum) #t (compare key data))]"
"        [(_ key (datum . data))"
"         (if (eqv? key 'datum) #t (compare key data))])]"
"     [case"
"      (syntax-rules (else =>)"
"        [(case key) (if #f #f)]"
"        [(case key (else => resproc))"
"         (resproc key)]"
"        [(case key (else result1 . results))"
"         (begin result1 . results)]"
"        [(case key ((datum ...) => resproc) . clauses)"
"         (if (compare key (datum ...))"
"             (resproc key)"
"             (case key . clauses))]"
"        [(case key ((datum ...) result1 . results) . clauses)"
"         (if (compare key (datum ...))"
"             (begin result1 . results)"
"             (case key . clauses))])])"
"     (syntax-rules ()"
"       [(_ expr clause1 clause ...)"
"        (let ([key expr]) (case key clause1 clause ...))])))"
""
"(define-syntax and"
"  (syntax-rules ()"
"    [(_) #t]"
"    [(_ test) (let () test)]"
"    [(_ test . tests) (if test (and . tests) #f)]))"
""
"(define-syntax or"
"  (syntax-rules ()"
"    [(_) #f]"
"    [(_ test) (let () test)]"
"    [(_ test . tests) (let ([x test]) (if x x (or . tests)))]))"
""
"(define-syntax cond-expand"
"  (letrec-syntax"
"    ([if-expand"
"      (syntax-rules (and or not library)"
"        [(_ (and) con alt) con]"
"        [(_ (and r) con alt) (if-expand r con alt)]"
"        [(_ (and r . r*) con alt) (if-expand r (if-expand (and . r*) con alt) alt)]"
"        [(_ (or) con alt) alt]"
"        [(_ (or r) con alt) (if-expand r con alt)]"
"        [(_ (or r . r*) con alt) (if-expand r con (if-expand (or . r*) con alt))]"
"        [(_ (not r) con alt) (if-expand r alt con)]"
"        [(_ (library #&(library? x)) con alt) con]"
"        [(_ (library x) con alt) alt]"
"        [(_ #&(feature? x) con alt) con]"
"        [(_ #&(id? x) con alt) alt]"
"        [(_ x con alt) (syntax-error \"unrecognized cond-expand feature requirement:\" x)])])"
"    (syntax-rules (else)"
"      [(_) (void)]"
"      [(_ [else . exps])"
"       (begin . exps)]"
"      [(_ [x] . rest)"
"       (if-expand x (void) (cond-expand . rest))]"
"      [(_ [x . exps] . rest)"
"       (if-expand x (begin . exps) (cond-expand . rest))])))"
""
"(define-syntax quasiquote #| from eiod |#"
"  (syntax-rules (unquote unquote-splicing quasiquote)"
"    [(_ (unquote x)) x]"
"    [(_ ((unquote-splicing x))) x] #| esl: allow `(,@improper-list) |#"
"    [(_ ((unquote-splicing x) . y)) (append x (quasiquote y))]"
"    [(_ (quasiquote x) . d) (cons 'quasiquote (quasiquote (x) d))]"
"    [(_ (unquote x) d) (cons 'unquote (quasiquote (x) . d))]"
"    [(_ (unquote-splicing x) d) (cons 'unquote-splicing (quasiquote (x) . d))]"
"    [(_ (x . y) . d) (cons (quasiquote x . d) (quasiquote y . d))]"
"    [(_ #(x ...) . d) (list->vector (quasiquote (x ...) . d))]"
"    [(_ x . d) 'x]))"
""
"(define (fail-lambda . args) "
"  (error 'case-lambda \"unexpected number of arguments\" args))"
""
"(define-syntax case-lambda"
"  (letrec-syntax"
"    ([min-accepted"
"      (syntax-rules ()"
"        [(_ () N) N] [(_ (a . d) N) (min-accepted d #&(+ 1 N))] [(_ ra N) N])]"
"     [max-accepted"
"      (syntax-rules ()"
"        [(_ () N) N] [(_ (a . d) N) (max-accepted d #&(+ 1 N))] [(_ ra N) 999])]"
"     [unroll-cases"
"      (syntax-rules ()"
"        [(_ () c ...) "
"         (make-case-lambda c ... 0 999 fail-lambda)]"
"        [(_ ([formals . body] . more) c ...)"
"         (unroll-cases more c ... "
"           (min-accepted formals 0) (max-accepted formals 0) (lambda formals . body))])])"
"     (syntax-rules ()"
"       [(_ [formals . body] ...)"
"        (unroll-cases ([formals . body] ...))])))"
""
"(define-syntax delay-force"
"  (syntax-rules () [(_ x) (make-lazy-promise (lambda () x))]))"
""
"(define-syntax delay"
"  (syntax-rules () [(_ x) (delay-force (make-promise x))]))"
""
"(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 (list-set! ls k x)"
"  (set-car! (list-tail ls k) x)) "
""
"(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 (%member obj l eq) "
"  (and (pair? l) (if (eq obj (car l)) l (%member obj (cdr l) eq))))"
""
"(define member"
"  (case-lambda"
"    [(obj l) (meml obj l)]"
"    [(obj l eq) (%member obj l eq)]))"
""
"(define (%assoc obj al eq) "
"  (and (pair? al) (if (eq obj (caar al)) (car al) (%assoc obj (cdr al) eq))))"
""
"(define assoc"
"  (case-lambda"
"    [(obj al) (assl obj al)]"
"    [(obj al eq) (%assoc obj al eq)]))"
""
"(define (map p l . l*)"
"  (if (null? l*)"
"      (let loop ([l l] [r '()])"
"        (if (pair? l) (loop (cdr l) (cons (p (car l)) r)) (reverse! r)))"
"      (let loop ([l* (cons l l*)] [r '()])"
"        (if (let lp ([l* l*]) (or (null? l*) (and (pair? (car l*)) (lp (cdr l*)))))"
"            (loop (map cdr l*) (cons (apply p (map car l*)) r))"
"            (reverse! r)))))"
""
"(define (for-each p l . l*)"
"  (if (null? l*)"
"      (let loop ([l l]) (if (pair? l) (begin (p (car l)) (loop (cdr l)))))"
"      (let loop ([l* (cons l l*)])"
"        (if (let lp ([l* l*]) (or (null? l*) (and (pair? (car l*)) (lp (cdr l*)))))"
"            (begin (apply p (map car l*)) (loop (map cdr l*)))))))"
""
"(define (string-map p s . s*)"
"  (if (null? s*)"
"      (let* ([len (string-length s)] [res (make-string len)])"
"        (do ([i 0 (+ i 1)]) [(>= i len) res]"
"           (string-set! res i (p (string-ref s i)))))"
"      (list->string (apply map p (map string->list (cons s s*))))))"
""
"(define (vector-map p v . v*)"
"  (if (null? v*)"
"      (let* ([len (vector-length v)] [res (make-vector len)])"
"        (do ([i 0 (+ i 1)]) [(>= i len) res]"
"          (vector-set! res i (p (vector-ref v i)))))"
"      (list->vector (apply map p (map vector->list (cons v v*))))))"
""
"(define (string-for-each p s . s*)"
"  (if (null? s*)"
"      (let ([len (string-length s)])"
"        (do ([i 0 (+ i 1)]) [(>= i len)] (p (string-ref s i))))"
"      (apply for-each p (map string->list (cons s s*)))))"
""
"(define (vector-for-each p v . v*)"
"  (if (null? v*)"
"      (let ([len (vector-length v)])"
"        (do ([i 0 (+ i 1)]) [(>= i len)] (p (vector-ref v i))))"
"      (apply for-each p (map vector->list (cons v v*)))))"
""
"(define-syntax when"
"  (syntax-rules ()"
"    [(_ test . body) (if test (let-syntax () . body))]))"
""
"(define-syntax unless"
"  (syntax-rules ()"
"    [(_ test . body) (if test (if #f #f) (let-syntax () . body))]))"
""
"(define-syntax define-record-type"
"  (letrec-syntax"
"    ([id-eq??"
"      (syntax-rules ()"
"        [(_ id b kt kf)"
"         ((syntax-lambda (id ok) ((syntax-rules () [(_ b) (id)]) ok))"
"          (syntax-rules () [(_) kf]) (syntax-rules () [(_) kt]))])]"
"     [id-assq??"
"      (syntax-rules ()"
"        [(_ id () kt kf) kf]"
"        [(_ id ([id0 . r0] . idr*) kt kf) (id-eq?? id id0 (kt . r0) (id-assq?? id idr* kt kf))])]"
"     [init"
"      (syntax-rules ()"
"        [(_  r () fi* (x ...)) (begin x ... r)]"
"        [(_  r (id0 . id*) fi* (x ...))"
"         (id-assq?? id0 fi* "
"           (syntax-rules () [(_ i0) (init r id* fi* (x ... (record-set! r i0 id0)))]) "
"           (syntax-error \"id in define-record-type constructor is not a field:\" id0))])]"
"     [unroll"
"      (syntax-rules ()"
"        [(_ rtn (consn id ...) predn () ([f i] ...) ([a ia] ...) ([m im] ...))"
"         (begin"
"            (define rtn (new-record-type 'rtn '(f ...)))"
"            (define consn (lambda (id ...) (let ([r (make-record rtn #&(length (f ...)))]) (init r (id ...) ([f i] ...) ()))))"
"            (define predn (lambda (obj) (record? obj rtn)))"
"            (define a (lambda (obj) (record-ref obj ia))) ..."
"            (define m (lambda (obj val) (record-set! obj im val))) ..."
"            (define 'rtn))]"
"        [(_ rtn cf* predn ([fn accn] fam ...) (fi ...) (ai ...) (mi ...))"
"         (unroll rtn cf* predn (fam ...) "
"           (fi ... [fn #&(length (fi ...))]) (ai ... [accn #&(length (fi ...))]) (mi ...))]"
"        [(_  rtn cf* predn ([fn accn modn] fam ...) (fi ...) (ai ...) (mi ...))"
"         (unroll rtn cf* predn (fam ...) "
"           (fi ... [fn #&(length (fi ...))]) (ai ... [accn #&(length (fi ...))]) (mi ... [modn #&(length (fi ...))]))])])"
"    (syntax-rules ()"
"      [(_ rtn (consn id ...) predn (fn . am) ...)"
"       (unroll rtn (consn id ...) predn ((fn . am) ...) () () ())])))"
""
"(define-syntax let*-values"
"  (syntax-rules ()"
"    [(_ () . body) (let () . body)]"
"    [(_ ([(a) x] . b*) . body) (let ([a x]) (let*-values b* . body))]"
"    [(_ ([aa x] . b*) . body) (call-with-values (lambda () x) (lambda aa (let*-values b* . body)))]))"
""
"(define-syntax let-values"
"  (letrec-syntax"
"    ([loop "
"      (syntax-rules ()"
"        [(_ (new-b ...) new-aa x map-b* () () . body)"
"         (let*-values (new-b ... [new-aa x]) (let map-b* . body))]"
"        [(_ (new-b ...) new-aa old-x map-b* () ([aa x] . b*) . body)"
"         (loop (new-b ... [new-aa old-x]) () x map-b* aa b* . body)]"
"        [(_ new-b* (new-a ...) x (map-b ...) (a . aa) b* . body)"
"         (loop new-b* (new-a ... tmp-a) x (map-b ... [a tmp-a]) aa b* . body)]"
"        [(_ new-b* (new-a ...) x (map-b ...) a b* . body) "
"         (loop new-b* (new-a ... . tmp-a) x (map-b ... [a tmp-a]) () b* . body)])])"
"    (syntax-rules ()"
"      [(_ () . body) (let () . body)]"
"      [(_ ([aa x] . b*) . body)"
"       (loop () () x () aa b* . body)])))"
""
"(define-syntax define-values"
"  (letrec-syntax"
"    ([loop "
"      (syntax-rules ()"
"        [(_ new-aa ([a tmp-a] ...) () x)"
"         (begin"
"           (define a (void)) ..."
"           (define (call-with-values (lambda () x) (lambda new-aa (set! a tmp-a) ...))))]"
"        [(_ (new-a ...) (map-a ...) (a . aa) x) "
"         (loop (new-a ... tmp-a) (map-a ... [a tmp-a]) aa x)]"
"        [(_ (new-a ...) (map-a ...) a x) "
"         (loop (new-a ... . tmp-a) (map-a ... [a tmp-a]) () x)])])"
"    (syntax-rules ()"
"      [(_ () x) (define x)]"
"      [(_ aa x) (loop () () aa x)])))"
""
"(define-syntax parameterize"
"  (letrec-syntax"
"    ([loop "
"      (syntax-rules ()"
"        [(_ ([param value p old new] ...) () body)"
"         (let ([p param] ...)"
"           (let ([old (p)] ... [new (p value #f)] ...)"
"             (dynamic-wind"
"               (lambda () (p new #t) ...)"
"               (lambda () . body)"
"               (lambda () (p old #t) ...))))]"
"        [(_ args ([param value] . rest) body)"
"         (loop ([param value p old new] . args) rest body)])])"
"    (syntax-rules ()"
"      [(_ ([param value] ...) . body)"
"       (loop () ([param value] ...) body)])))"
""
"(define-syntax guard"
"  (letrec-syntax"
"    ([guard-aux"
"      (syntax-rules (else =>)"
"        [(guard-aux reraise (else result1 result2 ...))"
"        (begin result1 result2 ...)]"
"        [(guard-aux reraise (test => result))"
"        (let ([temp test]) (if temp (result temp) reraise))]"
"        [(guard-aux reraise (test => result) clause1 clause2 ...)"
"        (let ([temp test])"
"          (if temp"
"              (result temp)"
"              (guard-aux reraise clause1 clause2 ...)))]"
"        [(guard-aux reraise (test)) (or test reraise)]"
"        [(guard-aux reraise (test) clause1 clause2 ...)"
"        (let ([temp test])"
"          (if temp temp (guard-aux reraise clause1 clause2 ...)))]"
"        [(guard-aux reraise (test result1 result2 ...))"
"        (if test (begin result1 result2 ...) reraise)]"
"        [(guard-aux reraise (test result1 result2 ...) clause1 clause2 ...)"
"        (if test"
"            (begin result1 result2 ...)"
"            (guard-aux reraise clause1 clause2 ...))])])"
"    (syntax-rules ()"
"      [(guard (var clause ...) e1 e2 ...)"
"      ((call/cc"
"        (lambda (guard-k)"
"          (with-exception-handler"
"            (lambda (condition)"
"              ((call/cc"
"                  (lambda (handler-k)"
"                    (guard-k"
"                      (lambda ()"
"                        (let ([var condition])"
"                          (guard-aux"
"                            (handler-k"
"                              (lambda ()"
"                                (raise-continuable condition)))"
"                            clause"
"                            ...))))))))"
"            (lambda ()"
"              (call-with-values"
"                (lambda () e1 e2 ...)"
"                (lambda args"
"                  (guard-k (lambda () (apply values args))))))))))])))"
""
"(define (floor/ x y) (values (floor-quotient x y) (floor-remainder x y)))"
"(define (truncate/ x y) (values (truncate-quotient x y) (truncate-remainder x y)))"
"(define (square x) (* x x))"
""
"(define string->list"
"  (case-lambda"
"     [(str) (substring->list str 0 (string-length str))]"
"     [(str start) (substring->list str start (string-length str))]"
"     [(str start end) (substring->list str start end)]))"
""
"(define string-copy"
"  (case-lambda"
"     [(str) (substring str 0 (string-length str))]"
"     [(str start) (substring str start (string-length str))]"
"     [(str start end) (substring str start end)]))"
""
"(define string-copy!"
"  (case-lambda"
"     [(to at from) (substring-copy! to at from 0 (string-length from))]"
"     [(to at from start) (substring-copy! to at from start (string-length from))]"
"     [(to at from start end) (substring-copy! to at from start end)]))"
""
"(define string-fill!"
"  (case-lambda"
"     [(str c) (substring-fill! str c 0 (string-length str))]"
"     [(str c start) (substring-fill! str c start (string-length str))]"
"     [(str c start end) (substring-fill! str c start end)]))"
""
"(define vector->list"
"  (case-lambda"
"     [(vec) (subvector->list vec 0 (vector-length vec))]"
"     [(vec start) (subvector->list vec start (vector-length vec))]"
"     [(vec start end) (subvector->list vec start end)]))"
""
"(define vector->string"
"  (case-lambda"
"     [(vec) (subvector->string vec 0 (vector-length vec))]"
"     [(vec start) (subvector->string vec start (vector-length vec))]"
"     [(vec start end) (subvector->string vec start end)]))"
""
"(define string->vector"
"  (case-lambda"
"     [(str) (substring->vector str 0 (string-length str))]"
"     [(str start) (substring->vector str start (string-length str))]"
"     [(str start end) (substring->vector str start end)]))"
""
"(define vector-copy!"
"  (case-lambda"
"     [(to at from) (subvector-copy! to at from 0 (vector-length from))]"
"     [(to at from start) (subvector-copy! to at from start (vector-length from))]"
"     [(to at from start end) (subvector-copy! to at from start end)]))"
""
"(define vector-copy"
"  (case-lambda"
"     [(vec) (subvector vec 0 (vector-length vec))]"
"     [(vec start) (subvector vec start (vector-length vec))]"
"     [(vec start end) (subvector vec start end)]))"
""
"(define vector-fill!"
"  (case-lambda"
"     [(vec x) (subvector-fill! vec x 0 (vector-length vec))]"
"     [(vec x start) (subvector-fill! vec x start (vector-length vec))]"
"     [(vec x start end) (subvector-fill! vec x start end)]))"
""
"(define bytevector->list"
"  (case-lambda"
"     [(vec) (subbytevector->list vec 0 (bytevector-length vec))]"
"     [(vec start) (subbytevector->list vec start (bytevector-length vec))]"
"     [(vec start end) (subbytevector->list vec start end)]))"
""
"(define bytevector-copy!"
"  (case-lambda"
"     [(to at from) (subbytevector-copy! to at from 0 (bytevector-length from))]"
"     [(to at from start) (subbytevector-copy! to at from start (bytevector-length from))]"
"     [(to at from start end) (subbytevector-copy! to at from start end)]))"
""
"(define bytevector-copy"
"  (case-lambda"
"     [(vec) (subbytevector vec 0 (bytevector-length vec))]"
"     [(vec start) (subbytevector vec start (bytevector-length vec))]"
"     [(vec start end) (subbytevector vec start end)]))"
""
"(define utf8->string"
"  (case-lambda"
"    [(vec) (subutf8->string vec 0 (bytevector-length vec))]"
"    [(vec start) (subutf8->string vec start (bytevector-length vec))]"
"    [(vec start end) (subutf8->string vec start end)]))"
""
"(define string->utf8"
"  (case-lambda"
"    [(str) (substring->utf8 str 0 (string-length str))]"
"    [(str start) (substring->utf8 str start (string-length str))]"
"    [(str start end) (substring->utf8 str start end)]))"
""
"(define read-string!"
"  (case-lambda"
"    [(str) (read-substring! str 0 (string-length str) (current-input-port))]"
"    [(str p) (read-substring! str 0 (string-length str) p)]"
"    [(str p start) (read-substring! str start (string-length str) p)]"
"    [(str p start end) (read-substring! str start end p)]))"
""
"(define read-bytevector!"
"  (case-lambda"
"    [(vec) (read-subbytevector! vec 0 (bytevector-length vec) (current-input-port))]"
"    [(vec p) (read-subbytevector! vec 0 (bytevector-length vec) p)]"
"    [(vec p start) (read-subbytevector! vec start (bytevector-length vec) p)]"
"    [(vec p start end) (read-subbytevector! vec start end p)]))"
""
"(define write-string"
"  (case-lambda"
"    [(str) (write-substring str 0 (string-length str) (current-output-port))]"
"    [(str p) (write-substring str 0 (string-length str) p)]"
"    [(str p start) (write-substring str start (string-length str) p)]"
"    [(str p start end) (write-substring str start end p)]))"
""
"(define write-bytevector"
"  (case-lambda"
"    [(vec) (write-subbytevector vec 0 (bytevector-length vec) (current-output-port))]"
"    [(vec p) (write-subbytevector vec 0 (bytevector-length vec) p)]"
"    [(vec p start) (write-subbytevector vec start (bytevector-length vec) p)]"
"    [(vec p start end) (write-subbytevector vec start end p)]))"
;

/* cx globals */
extern obj cx_wrap_2Dvecs; /* wrap-vecs */
obj cx__25append; /* %append */
obj cx__25assoc; /* %assoc */
obj cx__25bytevectors_2Dcopy_2Dinto_21; /* %bytevectors-copy-into! */
obj cx__25bytevectors_2Dsum_2Dlength; /* %bytevectors-sum-length */
obj cx__25fail_2Dlambda; /* %fail-lambda */
obj cx__25make_2Dlist; /* %make-list */
obj cx__25member; /* %member */
obj cx__25read; /* %read */
obj cx__25read_2Dline; /* %read-line */
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_25make_2Dvector; /* %residual-%make-vector */
obj cx__25residual_2D_25new_2Dvector; /* %residual-%new-vector */
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_2D_25string_2Dappend; /* %residual-%string-append */
obj cx__25residual_2D_25string_2Dcopy; /* %residual-%string-copy */
obj cx__25residual_2D_25string_2Dfill_21; /* %residual-%string-fill! */
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_2Dargc_2D_3Eannotation; /* %residual-argc->annotation */
obj cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F; /* %residual-argc-dispatch-lambda? */
obj cx__25residual_2Dargv_2Dref; /* %residual-argv-ref */
obj cx__25residual_2Dasin; /* %residual-asin */
obj cx__25residual_2Dassl; /* %residual-assl */
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_3D_3F; /* %residual-boolean=? */
obj cx__25residual_2Dboolean_3F; /* %residual-boolean? */
obj cx__25residual_2Dbox; /* %residual-box */
obj cx__25residual_2Dbox_3F; /* %residual-box? */
obj cx__25residual_2Dbyte_3F; /* %residual-byte? */
obj cx__25residual_2Dbytevector; /* %residual-bytevector */
obj cx__25residual_2Dbytevector_2Dlength; /* %residual-bytevector-length */
obj cx__25residual_2Dbytevector_2Du8_2Dref; /* %residual-bytevector-u8-ref */
obj cx__25residual_2Dbytevector_2Du8_2Dset_21; /* %residual-bytevector-u8-set! */
obj cx__25residual_2Dbytevector_3D_3F; /* %residual-bytevector=? */
obj cx__25residual_2Dbytevector_3F; /* %residual-bytevector? */
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_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_2Dcircular_3F; /* %residual-circular? */
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_2Dcurrent_2Dsecond; /* %residual-current-second */
obj cx__25residual_2Ddenominator; /* %residual-denominator */
obj cx__25residual_2Ddigit_2Dvalue; /* %residual-digit-value */
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_2Doutput_2Dport; /* %residual-display-output-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; /* %residual-exact */
obj cx__25residual_2Dexit; /* %residual-exit */
obj cx__25residual_2Dexp; /* %residual-exp */
obj cx__25residual_2Dexpt; /* %residual-expt */
obj cx__25residual_2Dfinite_3F; /* %residual-finite? */
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_2Dflinfinite_3F; /* %residual-flinfinite? */
obj cx__25residual_2Dflinteger_3F; /* %residual-flinteger? */
obj cx__25residual_2Dfllog; /* %residual-fllog */
obj cx__25residual_2Dfllog10; /* %residual-fllog10 */
obj cx__25residual_2Dflmax; /* %residual-flmax */
obj cx__25residual_2Dflmin; /* %residual-flmin */
obj cx__25residual_2Dflmodquo; /* %residual-flmodquo */
obj cx__25residual_2Dflmodulo; /* %residual-flmodulo */
obj cx__25residual_2Dflnan_3F; /* %residual-flnan? */
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_2Dfxmodquo; /* %residual-fxmodquo */
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_2Dfxsqrt; /* %residual-fxsqrt */
obj cx__25residual_2Dfxxor; /* %residual-fxxor */
obj cx__25residual_2Dfxzero_3F; /* %residual-fxzero? */
obj cx__25residual_2Dgcd; /* %residual-gcd */
obj cx__25residual_2Dget_2Denvironment_2Dvariable; /* %residual-get-environment-variable */
obj cx__25residual_2Dget_2Doutput_2Dbytevector; /* %residual-get-output-bytevector */
obj cx__25residual_2Dget_2Doutput_2Dstring; /* %residual-get-output-string */
obj cx__25residual_2Dgreatest_2Dfixnum; /* %residual-greatest-fixnum */
obj cx__25residual_2Dimag_2Dpart; /* %residual-imag-part */
obj cx__25residual_2Dinexact; /* %residual-inexact */
obj cx__25residual_2Dinfinite_3F; /* %residual-infinite? */
obj cx__25residual_2Dinput_2Dport_2Dopen_3F; /* %residual-input-port-open? */
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_2Dref; /* %residual-list-ref */
obj cx__25residual_2Dlist_2Dset_21; /* %residual-list-set! */
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_2Dargc_2Ddispatch_2Dlambda; /* %residual-make-argc-dispatch-lambda */
obj cx__25residual_2Dmake_2Dbytevector; /* %residual-make-bytevector */
obj cx__25residual_2Dmake_2Dcase_2Dlambda; /* %residual-make-case-lambda */
obj cx__25residual_2Dmake_2Dimproper_2Dlambda; /* %residual-make-improper-lambda */
obj cx__25residual_2Dmake_2Dlist; /* %residual-make-list */
obj cx__25residual_2Dmake_2Dpolar; /* %residual-make-polar */
obj cx__25residual_2Dmake_2Drecord; /* %residual-make-record */
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_2Dmeml; /* %residual-meml */
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_2Dmodquo; /* %residual-modquo */
obj cx__25residual_2Dmodulo; /* %residual-modulo */
obj cx__25residual_2Dnan_3F; /* %residual-nan? */
obj cx__25residual_2Dnegative_3F; /* %residual-negative? */
obj cx__25residual_2Dnew_2Drecord_2Dtype; /* %residual-new-record-type */
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_2Dbinary_2Dinput_2Dfile; /* %residual-open-binary-input-file */
obj cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile; /* %residual-open-binary-output-file */
obj cx__25residual_2Dopen_2Dfile_2A; /* %residual-open-file* */
obj cx__25residual_2Dopen_2Dinput_2Dbytevector; /* %residual-open-input-bytevector */
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_2Dbytevector; /* %residual-open-output-bytevector */
obj cx__25residual_2Dopen_2Doutput_2Dfile; /* %residual-open-output-file */
obj cx__25residual_2Dopen_2Doutput_2Dstring; /* %residual-open-output-string */
obj cx__25residual_2Doutput_2Dport_2Dopen_3F; /* %residual-output-port-open? */
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_2Dpeek_2Du8; /* %residual-peek-u8 */
obj cx__25residual_2Dport_2Dfold_2Dcase_3F; /* %residual-port-fold-case? */
obj cx__25residual_2Dport_3F; /* %residual-port? */
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_2Dquotient; /* %residual-quotient */
obj cx__25residual_2Drange_2Dargc_2D_3Eannotation; /* %residual-range-argc->annotation */
obj cx__25residual_2Drationalize; /* %residual-rationalize */
obj cx__25residual_2Dread; /* %residual-read */
obj cx__25residual_2Dread_2Dchar; /* %residual-read-char */
obj cx__25residual_2Dread_2Dline; /* %residual-read-line */
obj cx__25residual_2Dread_2Dsimple; /* %residual-read-simple */
obj cx__25residual_2Dread_2Du8; /* %residual-read-u8 */
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_2Drecord_2Dlength; /* %residual-record-length */
obj cx__25residual_2Drecord_2Dref; /* %residual-record-ref */
obj cx__25residual_2Drecord_2Dset_21; /* %residual-record-set! */
obj cx__25residual_2Drecord_2Dtype_2Ddescriptor; /* %residual-record-type-descriptor */
obj cx__25residual_2Drecord_3F; /* %residual-record? */
obj cx__25residual_2Dremainder; /* %residual-remainder */
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_2Dset_2Dbox_21; /* %residual-set-box! */
obj cx__25residual_2Dset_2Dcar_21; /* %residual-set-car! */
obj cx__25residual_2Dset_2Dcdr_21; /* %residual-set-cdr! */
obj cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21; /* %residual-set-port-fold-case! */
obj cx__25residual_2Dsin; /* %residual-sin */
obj cx__25residual_2Dsqrt; /* %residual-sqrt */
obj cx__25residual_2Dsquare; /* %residual-square */
obj cx__25residual_2Dstring; /* %residual-string */
obj cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum; /* %residual-string->fixnum-or-flonum */
obj cx__25residual_2Dstring_2D_3Enumber; /* %residual-string->number */
obj cx__25residual_2Dstring_2D_3Esymbol; /* %residual-string->symbol */
obj cx__25residual_2Dstring_2Dappend; /* %residual-string-append */
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_2Ddowncase; /* %residual-string-downcase */
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_2Dupcase; /* %residual-string-upcase */
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_2Dsubbytevector; /* %residual-subbytevector */
obj cx__25residual_2Dsubstring; /* %residual-substring */
obj cx__25residual_2Dsymbol_2D_3Estring; /* %residual-symbol->string */
obj cx__25residual_2Dsymbol_3D_3F; /* %residual-symbol=? */
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_2Du8_2Dready_3F; /* %residual-u8-ready? */
obj cx__25residual_2Dunbox; /* %residual-unbox */
obj cx__25residual_2Dvalue_2Dstore_2Dlocation_2Dref; /* %residual-value-store-location-ref */
obj cx__25residual_2Dvalue_2Dstore_2Dlocation_2Dset_21; /* %residual-value-store-location-set! */
obj cx__25residual_2Dvalues; /* %residual-values */
obj cx__25residual_2Dvector; /* %residual-vector */
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_2Dbytevector; /* %residual-write-bytevector */
obj cx__25residual_2Dwrite_2Dchar; /* %residual-write-char */
obj cx__25residual_2Dwrite_2Dshared; /* %residual-write-shared */
obj cx__25residual_2Dwrite_2Dsimple; /* %residual-write-simple */
obj cx__25residual_2Dwrite_2Dstring; /* %residual-write-string */
obj cx__25residual_2Dwrite_2Du8; /* %residual-write-u8 */
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__25substring_2Dvector_2Dcopy_21; /* %substring-vector-copy! */
obj cx__25subvector_2Dstring_2Dcopy_21; /* %subvector-string-copy! */
obj cx__25vectors_2Dcopy_2Dinto_21; /* %vectors-copy-into! */
obj cx__25vectors_2Dsum_2Dlength; /* %vectors-sum-length */
obj cx__2Abase_2Dlibrary_2Dinfo_2A; /* *base-library-info* */
obj cx__2Acurrent_2Ddynamic_2Dstate_2A; /* *current-dynamic-state* */
obj cx__2Acurrent_2Denvironment_2A; /* *current-environment* */
obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
obj cx__2Acurrent_2Dfile_2Dstack_2A; /* *current-file-stack* */
obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */
obj cx__2Acurrent_2Dmacro_2Dstore_2A; /* *current-macro-store* */
obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */
obj cx__2Acurrent_2Dvalue_2Dstore_2A; /* *current-value-store* */
obj cx__2Aexit_2A; /* *exit* */
obj cx__2Agreeting_2A; /* *greeting* */
obj cx__2Ainitial_2Dmacro_2Denvironment_2A; /* *initial-macro-environment* */
obj cx__2Ainitial_2Dvalue_2Denvironment_2A; /* *initial-value-environment* */
obj cx__2Alibraries_2Dbeing_2Dloaded_2A; /* *libraries-being-loaded* */
obj cx__2Alibrary_2Dinfo_2Dcache_2A; /* *library-info-cache* */
obj cx__2Alibrary_2Dpath_2Dlist_2A; /* *library-path-list* */
obj cx__2Aloaded_2Dlibraries_2A; /* *loaded-libraries* */
obj cx__2Aquiet_2A; /* *quiet* */
obj cx__2Arepl_2Dbase_2Denvironment_2A; /* *repl-base-environment* */
obj cx__2Aroot_2Dlibrary_2Dinfo_2A; /* *root-library-info* */
obj cx__2Avalues_2Dtag_2A; /* *values-tag* */
obj cx__3Cerror_2Dobject_3E; /* <error-object> */
obj cx_acons; /* acons */
obj cx_add_2Dlibrary_2Dpath_21; /* add-library-path! */
obj cx_adjoin_2Dbegs; /* adjoin-begs */
obj cx_adjoin_2Denv; /* adjoin-env */
obj cx_adjoin_2Denv_2Fshadow; /* adjoin-env/shadow */
obj cx_adjoin_2Desps; /* adjoin-esps */
obj cx_adjoin_2Dlibs; /* adjoin-libs */
obj cx_append_2A; /* append* */
obj cx_apply; /* apply */
obj cx_apply_2Dexpander; /* apply-expander */
obj cx_apply_2Dmap_2Dlist; /* apply-map-list */
obj cx_apply_2Dsynrules; /* apply-synrules */
obj cx_assertion_2Dviolation; /* assertion-violation */
obj cx_base_2Dlibrary_2Dinfo; /* base-library-info */
obj cx_base_2Dpath_2Dseparator; /* base-path-separator */
obj cx_bindings_2D_3Evals; /* bindings->vals */
obj cx_bindings_2D_3Evars; /* bindings->vars */
obj cx_builtin_2Dname; /* builtin-name */
obj cx_builtin_3F; /* builtin? */
obj cx_bytevector_2D_3Elist; /* bytevector->list */
obj cx_bytevector_2Dappend; /* bytevector-append */
obj cx_bytevector_2Dcopy; /* bytevector-copy */
obj cx_bytevector_2Dcopy_21; /* bytevector-copy! */
obj cx_c_2Dwarning; /* c-warning */
obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */
obj cx_call_2Dwith_2Dfile_2Flib_2Dsexps; /* call-with-file/lib-sexps */
obj cx_call_2Dwith_2Dinput_2Dfile; /* call-with-input-file */
obj cx_call_2Dwith_2Dinput_2Dfile_2Flib; /* call-with-input-file/lib */
obj cx_call_2Dwith_2Doutput_2Dfile; /* call-with-output-file */
obj cx_call_2Dwith_2Dport; /* call-with-port */
obj cx_check_2Dexport_2Dspecs_2Dafter_2Dload; /* check-export-specs-after-load */
obj cx_check_2Dsyntax_2Dbindings; /* check-syntax-bindings */
obj cx_close_2Dinput_2Dport; /* close-input-port */
obj cx_close_2Doutput_2Dport; /* close-output-port */
obj cx_close_2Dport; /* close-port */
obj cx_code_2Doutput; /* code-output */
obj cx_command_2Dline; /* command-line */
obj cx_compile_2Dsyntax_2Dlambda; /* compile-syntax-lambda */
obj cx_compile_2Dsyntax_2Drules; /* compile-syntax-rules */
obj cx_current_2Dexception_2Dhandler; /* current-exception-handler */
obj cx_current_2Dfile; /* current-file */
obj cx_delete_2Dfile; /* delete-file */
obj cx_dynamic_2Dstate_2Dreroot_21; /* dynamic-state-reroot! */
obj cx_dynamic_2Dwind; /* dynamic-wind */
obj cx_ellipsis_2Dlocation; /* ellipsis-location */
obj cx_emergency_2Dexit; /* emergency-exit */
obj cx_env_2Dlookup; /* env-lookup */
obj cx_environment; /* environment */
obj cx_error; /* error */
obj cx_error_2Dobject; /* error-object */
obj cx_error_2Dobject_2Dirritants; /* error-object-irritants */
obj cx_error_2Dobject_2Dkind; /* error-object-kind */
obj cx_error_2Dobject_2Dmessage; /* error-object-message */
obj cx_error_2Dobject_3F; /* error-object? */
obj cx_exact_2Dinteger_2Dsqrt; /* exact-integer-sqrt */
obj cx_exit; /* exit */
obj cx_expand_2Dany; /* expand-any */
obj cx_expand_2Dbody; /* expand-body */
obj cx_expand_2Dexpr; /* expand-expr */
obj cx_expand_2Dlambda; /* expand-lambda */
obj cx_expand_2Dsyntax_2Dbindings; /* expand-syntax-bindings */
obj cx_expand_2Dtop_2Dlevel_2Dforms; /* expand-top-level-forms */
obj cx_expand_2Dtop_2Dlevel_2Dforms_21; /* expand-top-level-forms! */
obj cx_expand_2Dval; /* expand-val */
obj cx_expanded_2Dcode_3F; /* expanded-code? */
obj cx_expander_2Denv; /* expander-env */
obj cx_expander_2Dform; /* expander-form */
obj cx_expander_3F; /* expander? */
obj cx_extend_2Denv; /* extend-env */
obj cx_extend_2Dstore; /* extend-store */
obj cx_features; /* features */
obj cx_file_2Derror; /* file-error */
obj cx_file_2Derror_3F; /* file-error? */
obj cx_file_2Dexists_3F; /* file-exists? */
obj cx_file_2Dresolve_2Drelative_2Dto_2Dbase_2Dpath; /* file-resolve-relative-to-base-path */
obj cx_file_2Dresolve_2Drelative_2Dto_2Dcurrent; /* file-resolve-relative-to-current */
obj cx_file_2Flib_2D_3Emodname; /* file/lib->modname */
obj cx_file_2Flib_2Fstdin_2D_3Emodname; /* file/lib/stdin->modname */
obj cx_find_2Dlibrary_2Dpath; /* find-library-path */
obj cx_fixnum_2D_3Estring; /* fixnum->string */
obj cx_flonum_2D_3Estring; /* flonum->string */
obj cx_floor_2F; /* floor/ */
obj cx_for_2Deach_2Dfile_2Flib_2Dsexp; /* for-each-file/lib-sexp */
obj cx_force; /* force */
obj cx_fprintf_2A; /* fprintf* */
obj cx_fully_2Dqualified_2Dlibrary_2Dname; /* fully-qualified-library-name */
obj cx_fully_2Dqualified_2Dname; /* fully-qualified-name */
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_2Dcst; /* gen-cst */
obj cx_gen_2Dglo_2Dcombination; /* gen-glo-combination */
obj cx_gen_2Dglo_2Dcombination_2D0; /* gen-glo-combination-0 */
obj cx_gen_2Dglo_2Dcombination_2D1; /* gen-glo-combination-1 */
obj cx_gen_2Dglo_2Dcombination_2D2; /* gen-glo-combination-2 */
obj cx_gen_2Dglo_2Dcombination_2D3; /* gen-glo-combination-3 */
obj cx_gen_2Dglo_2Dcombination_2D4; /* gen-glo-combination-4 */
obj cx_gen_2Dglo_2Dcombination_2Dn; /* gen-glo-combination-n */
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_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_2Dwhen; /* gen-when */
obj cx_get_2Dglobal; /* get-global */
obj cx_get_2Dlibrary_2Dinfo; /* get-library-info */
obj cx_greet_2Donce; /* greet-once */
obj cx_int_2Dpp; /* int-pp */
obj cx_int_2Drep; /* int-rep */
obj cx_int_2Drepl; /* int-repl */
obj cx_intloc_2D_3Evar; /* intloc->var */
obj cx_lcm_2F2; /* lcm/2 */
obj cx_lib_2Dpublic_3F; /* lib-public? */
obj cx_lib_3D_3F; /* lib=? */
obj cx_library_2Davailable_3F; /* library-available? */
obj cx_list_2D_3Ebytevector; /* list->bytevector */
obj cx_list_2D_3Estring; /* list->string */
obj cx_list_2D_3Esvector; /* list->svector */
obj cx_list_2D_3Evector; /* list->vector */
obj cx_list_2Dcopy; /* list-copy */
obj cx_list1_3F; /* list1? */
obj cx_list2_3F; /* list2? */
obj cx_listname_2D_3Emodname; /* listname->modname */
obj cx_listname_2D_3Epath; /* listname->path */
obj cx_listname_2Dsegment_2D_3Estring; /* listname-segment->string */
obj cx_load_2Dimport_2Dsets; /* load-import-sets */
obj cx_loc_2D_3Evar; /* loc->var */
obj cx_lookup_2Dlibrary_2Dinfo; /* lookup-library-info */
obj cx_lookup_2Dlocation; /* lookup-location */
obj cx_lookup_2Dsid; /* lookup-sid */
obj cx_lookup2; /* lookup2 */
obj cx_main; /* main */
obj cx_make_2Dannotated_2Dprocedure; /* make-annotated-procedure */
obj cx_make_2Dbegin; /* make-begin */
obj cx_make_2Dbuiltin; /* make-builtin */
obj cx_make_2Dcode; /* make-code */
obj cx_make_2Dexpander; /* make-expander */
obj cx_make_2Dexport_2Denv; /* make-export-env */
obj cx_make_2Dlazy_2Dpromise; /* make-lazy-promise */
obj cx_make_2Dletrec; /* make-letrec */
obj cx_make_2Dlib; /* make-lib */
obj cx_make_2Dlibrary_2Dinfo; /* make-library-info */
obj cx_make_2Dlocal_2Denv; /* make-local-env */
obj cx_make_2Dparameter; /* make-parameter */
obj cx_make_2Dpromise; /* make-promise */
obj cx_make_2Dsid; /* make-sid */
obj cx_map_2Dvecs; /* map-vecs */
obj cx_modname_2Dseparator; /* modname-separator */
obj cx_mutable_2Dvariable; /* mutable-variable */
obj cx_pairwise_2Dandmap; /* pairwise-andmap */
obj cx_parms_2D_3Eframe; /* parms->frame */
obj cx_path_2Ddirectory; /* path-directory */
obj cx_path_2Drelative_3F; /* path-relative? */
obj cx_path_2Dstrip_2Ddirectory; /* path-strip-directory */
obj cx_path_2Dstrip_2Dextension; /* path-strip-extension */
obj cx_pattern_2Dsbox_2D_3Esexp; /* pattern-sbox->sexp */
obj cx_pattern_2Dsbox_2D_3Etest; /* pattern-sbox->test */
obj cx_pattern_2Dsbox_3F; /* pattern-sbox? */
obj cx_preprocess_2Dimport_2Dset; /* preprocess-import-set */
obj cx_preprocess_2Dimport_2Dsets; /* preprocess-import-sets */
obj cx_preprocess_2Dlibrary; /* preprocess-library */
obj cx_print_2Derror_2Dmessage; /* print-error-message */
obj cx_print_2Dprocedure; /* print-procedure */
obj cx_process_2Ddefine_2Dlibrary_2Ddecl; /* process-define-library-decl */
obj cx_process_2Ddefine_2Dlibrary_2Ddecls; /* process-define-library-decls */
obj cx_process_2Dheader_2Dforms; /* process-header-forms */
obj cx_process_2Dincludes; /* process-includes */
obj cx_promise_3F; /* promise? */
obj cx_r_2Derror; /* r-error */
obj cx_raise; /* raise */
obj cx_raise_2Dcontinuable; /* raise-continuable */
obj cx_read_2Dbytevector; /* read-bytevector */
obj cx_read_2Dbytevector_21; /* read-bytevector! */
obj cx_read_2Dcode_2Dsexp; /* read-code-sexp */
obj cx_read_2Derror; /* read-error */
obj cx_read_2Derror_3F; /* read-error? */
obj cx_read_2Dstring; /* read-string */
obj cx_read_2Dstring_21; /* read-string! */
obj cx_read_2Dsubbytevector; /* read-subbytevector */
obj cx_read_2Dsubbytevector_21; /* read-subbytevector! */
obj cx_read_2Dsubstring; /* read-substring */
obj cx_read_2Dsubstring_21; /* read-substring! */
obj cx_rename_2Dfile; /* rename-file */
obj cx_renamed_2Dsid_3F; /* renamed-sid? */
obj cx_reset; /* reset */
obj cx_resolve_2Dinput_2Dfile_2Flib_2Dname; /* resolve-input-file/lib-name */
obj cx_reverse_2Dglobal_2Dlookup; /* reverse-global-lookup */
obj cx_root_2Denvironment; /* root-environment */
obj cx_root_2Dmacro_2Dstore; /* root-macro-store */
obj cx_sbox_2D_3Esexp_2Dlist; /* sbox->sexp-list */
obj cx_scheme_2Dcall_2Derror; /* scheme-call-error */
obj cx_scheme_2Dcompile; /* scheme-compile */
obj cx_scheme_2Dcompile_2Drun; /* scheme-compile-run */
obj cx_scheme_2Deval; /* scheme-eval */
obj cx_scheme_2Deval_2D_3Elist; /* scheme-eval->list */
obj cx_scheme_2Dexpand_2Dcompile_2Drun; /* scheme-expand-compile-run */
obj cx_scheme_2Dexpand_2Dto_2Dlist; /* scheme-expand-to-list */
obj cx_set_2Dglobal_21; /* set-global! */
obj cx_set_2Dreset_2Dhandler_21; /* set-reset-handler! */
obj cx_sexp_2Dmatch_3F; /* sexp-match? */
obj cx_shape; /* shape */
obj cx_shape_2B; /* shape+ */
obj cx_sid_2Did; /* sid-id */
obj cx_sid_2Dlocation; /* sid-location */
obj cx_sid_2Dname; /* sid-name */
obj cx_sid_3F; /* sid? */
obj cx_simple_2Derror; /* simple-error */
obj cx_splice_2Dlast_2Dlist; /* splice-last-list */
obj cx_string_2D_3Efixnum; /* string->fixnum */
obj cx_string_2D_3Eflonum; /* string->flonum */
obj cx_string_2D_3Elist; /* string->list */
obj cx_string_2D_3Eutf8; /* string->utf8 */
obj cx_string_2D_3Evector; /* string->vector */
obj cx_string_2Dappend_2A; /* string-append* */
obj cx_string_2Dcopy; /* string-copy */
obj cx_string_2Dcopy_21; /* string-copy! */
obj cx_string_2Dfill_21; /* string-fill! */
obj cx_string_2Dfor_2Deach; /* string-for-each */
obj cx_string_2Dmap; /* string-map */
obj cx_subbytevector_2D_3Elist; /* subbytevector->list */
obj cx_subbytevector_2Dcopy_21; /* subbytevector-copy! */
obj cx_substitute_2Din_2Dstore; /* substitute-in-store */
obj cx_substring_2D_3Elist; /* substring->list */
obj cx_substring_2D_3Eutf8; /* substring->utf8 */
obj cx_substring_2D_3Evector; /* substring->vector */
obj cx_substring_2Dcopy_21; /* substring-copy! */
obj cx_substring_2Dfill_21; /* substring-fill! */
obj cx_subutf8_2D_3Estring; /* subutf8->string */
obj cx_subvector; /* subvector */
obj cx_subvector_2D_3Elist; /* subvector->list */
obj cx_subvector_2D_3Estring; /* subvector->string */
obj cx_subvector_2Dcopy_21; /* subvector-copy! */
obj cx_subvector_2Dfill_21; /* subvector-fill! */
obj cx_svector_2D_3Elist; /* svector->list */
obj cx_svector_3F; /* svector? */
obj cx_symloc_2D_3Evar; /* symloc->var */
obj cx_syntax_3F; /* syntax? */
obj cx_template_2Dsbox_2D_3Econv; /* template-sbox->conv */
obj cx_template_2Dsbox_2D_3Esexp; /* template-sbox->sexp */
obj cx_template_2Dsbox_3F; /* template-sbox? */
obj cx_truncate_2F; /* truncate/ */
obj cx_unwrap_2Dvec; /* unwrap-vec */
obj cx_unwrap_2Dvecs; /* unwrap-vecs */
obj cx_utf8_2D_3Estring; /* utf8->string */
obj cx_value_2Dstore_2Dlookup; /* value-store-lookup */
obj cx_variable; /* variable */
obj cx_variable_3F; /* variable? */
obj cx_vector_2D_3Elist; /* vector->list */
obj cx_vector_2D_3Estring; /* vector->string */
obj cx_vector_2Dappend; /* vector-append */
obj cx_vector_2Dcopy; /* vector-copy */
obj cx_vector_2Dcopy_21; /* vector-copy! */
obj cx_vector_2Dfill_21; /* vector-fill! */
obj cx_vector_2Dfor_2Deach; /* vector-for-each */
obj cx_vector_2Dmap; /* vector-map */
obj cx_with_2Dcurrent_2Dfile; /* with-current-file */
obj cx_with_2Dexception_2Dhandler; /* with-exception-handler */
obj cx_with_2Dinput_2Dfrom_2Dfile; /* with-input-from-file */
obj cx_with_2Dinput_2Dfrom_2Dport; /* with-input-from-port */
obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */
obj cx_with_2Doutput_2Dto_2Dport; /* with-output-to-port */
obj cx_wrap_2Dvec; /* wrap-vec */
obj cx_wrap_2Dvecs; /* wrap-vecs */
obj cx_write_2Dsubbytevector; /* write-subbytevector */
obj cx_write_2Dsubstring; /* write-substring */
static obj cx__2310210; /* constant #10210 */
static obj cx__2310805; /* constant #10805 */
static obj cx__2310806; /* constant #10806 */
static obj cx__2310821; /* constant #10821 */
static obj cx__2310822; /* constant #10822 */
static obj cx__2310910; /* constant #10910 */
static obj cx__2310911; /* constant #10911 */
static obj cx__2310914; /* constant #10914 */
static obj cx__2311044; /* constant #11044 */
static obj cx__2311086; /* constant #11086 */
static obj cx__231115; /* constant #1115 */
static obj cx__2311159; /* constant #11159 */
static obj cx__2311165; /* constant #11165 */
static obj cx__231119; /* constant #1119 */
static obj cx__2311200; /* constant #11200 */
static obj cx__2311208; /* constant #11208 */
static obj cx__2311215; /* constant #11215 */
static obj cx__2311218; /* constant #11218 */
static obj cx__2311224; /* constant #11224 */
static obj cx__231123; /* constant #1123 */
static obj cx__2311233; /* constant #11233 */
static obj cx__2311241; /* constant #11241 */
static obj cx__2311247; /* constant #11247 */
static obj cx__2311250; /* constant #11250 */
static obj cx__2311255; /* constant #11255 */
static obj cx__2311261; /* constant #11261 */
static obj cx__2311262; /* constant #11262 */
static obj cx__2311263; /* constant #11263 */
static obj cx__2311264; /* constant #11264 */
static obj cx__2311265; /* constant #11265 */
static obj cx__231127; /* constant #1127 */
static obj cx__2311278; /* constant #11278 */
static obj cx__2311286; /* constant #11286 */
static obj cx__2311291; /* constant #11291 */
static obj cx__2311294; /* constant #11294 */
static obj cx__2311305; /* constant #11305 */
static obj cx__2311309; /* constant #11309 */
static obj cx__2311313; /* constant #11313 */
static obj cx__2311319; /* constant #11319 */
static obj cx__231142; /* constant #1142 */
static obj cx__231146; /* constant #1146 */
static obj cx__231149; /* constant #1149 */
static obj cx__231153; /* constant #1153 */
static obj cx__231375; /* constant #1375 */
static obj cx__231379; /* constant #1379 */
static obj cx__231390; /* constant #1390 */
static obj cx__231414; /* constant #1414 */
static obj cx__231453; /* constant #1453 */
static obj cx__231470; /* constant #1470 */
static obj cx__231472; /* constant #1472 */
static obj cx__231515; /* constant #1515 */
static obj cx__231517; /* constant #1517 */
static obj cx__231518; /* constant #1518 */
static obj cx__231520; /* constant #1520 */
static obj cx__231521; /* constant #1521 */
static obj cx__231523; /* constant #1523 */
static obj cx__231532; /* constant #1532 */
static obj cx__231548; /* constant #1548 */
static obj cx__231556; /* constant #1556 */
static obj cx__231560; /* constant #1560 */
static obj cx__231572; /* constant #1572 */
static obj cx__231578; /* constant #1578 */
static obj cx__231592; /* constant #1592 */
static obj cx__231600; /* constant #1600 */
static obj cx__231606; /* constant #1606 */
static obj cx__231609; /* constant #1609 */
static obj cx__231624; /* constant #1624 */
static obj cx__231625; /* constant #1625 */
static obj cx__231628; /* constant #1628 */
static obj cx__231635; /* constant #1635 */
static obj cx__231640; /* constant #1640 */
static obj cx__231645; /* constant #1645 */
static obj cx__231647; /* constant #1647 */
static obj cx__231651; /* constant #1651 */
static obj cx__231663; /* constant #1663 */
static obj cx__231669; /* constant #1669 */
static obj cx__231672; /* constant #1672 */
static obj cx__231685; /* constant #1685 */
static obj cx__231690; /* constant #1690 */
static obj cx__231695; /* constant #1695 */
static obj cx__231702; /* constant #1702 */
static obj cx__231753; /* constant #1753 */
static obj cx__231756; /* constant #1756 */
static obj cx__231768; /* constant #1768 */
static obj cx__231789; /* constant #1789 */
static obj cx__231803; /* constant #1803 */
static obj cx__231816; /* constant #1816 */
static obj cx__231846; /* constant #1846 */
static obj cx__231872; /* constant #1872 */
static obj cx__231873; /* constant #1873 */
static obj cx__231931; /* constant #1931 */
static obj cx__231992; /* constant #1992 */
static obj cx__231995; /* constant #1995 */
static obj cx__231998; /* constant #1998 */
static obj cx__232054; /* constant #2054 */
static obj cx__232058; /* constant #2058 */
static obj cx__232128; /* constant #2128 */
static obj cx__232182; /* constant #2182 */
static obj cx__232204; /* constant #2204 */
static obj cx__232273; /* constant #2273 */
static obj cx__232285; /* constant #2285 */
static obj cx__232289; /* constant #2289 */
static obj cx__233221; /* constant #3221 */
static obj cx__233238; /* constant #3238 */
static obj cx__233975; /* constant #3975 */
static obj cx__234285; /* constant #4285 */
static obj cx__234532; /* constant #4532 */
static obj cx__234680; /* constant #4680 */
static obj cx__234728; /* constant #4728 */
static obj cx__234751; /* constant #4751 */
static obj cx__234796; /* constant #4796 */
static obj cx__234863; /* constant #4863 */
static obj cx__234874; /* constant #4874 */
static obj cx__234906; /* constant #4906 */
static obj cx__234934; /* constant #4934 */
static obj cx__234941; /* constant #4941 */
static obj cx__234954; /* constant #4954 */
static obj cx__234957; /* constant #4957 */
static obj cx__234958; /* constant #4958 */
static obj cx__235006; /* constant #5006 */
static obj cx__235012; /* constant #5012 */
static obj cx__235013; /* constant #5013 */
static obj cx__235139; /* constant #5139 */
static obj cx__235236; /* constant #5236 */
static obj cx__235237; /* constant #5237 */
static obj cx__235383; /* constant #5383 */
static obj cx__235384; /* constant #5384 */
static obj cx__235391; /* constant #5391 */
static obj cx__235459; /* constant #5459 */
static obj cx__235461; /* constant #5461 */
static obj cx__235470; /* constant #5470 */
static obj cx__235483; /* constant #5483 */
static obj cx__235550; /* constant #5550 */
static obj cx__235598; /* constant #5598 */
static obj cx__235605; /* constant #5605 */
static obj cx__235682; /* constant #5682 */
static obj cx__235683; /* constant #5683 */
static obj cx__235728; /* constant #5728 */
static obj cx__235796; /* constant #5796 */
static obj cx__235814; /* constant #5814 */
static obj cx__235822; /* constant #5822 */
static obj cx__235835; /* constant #5835 */
static obj cx__235853; /* constant #5853 */
static obj cx__235855; /* constant #5855 */
static obj cx__235857; /* constant #5857 */
static obj cx__235859; /* constant #5859 */
static obj cx__235864; /* constant #5864 */
static obj cx__235867; /* constant #5867 */
static obj cx__235868; /* constant #5868 */
static obj cx__235869; /* constant #5869 */
static obj cx__235871; /* constant #5871 */
static obj cx__236016; /* constant #6016 */
static obj cx__236087; /* constant #6087 */
static obj cx__236302; /* constant #6302 */
static obj cx__236338; /* constant #6338 */
static obj cx__236501; /* constant #6501 */
static obj cx__236516; /* constant #6516 */
static obj cx__236525; /* constant #6525 */
static obj cx__236551; /* constant #6551 */
static obj cx__236577; /* constant #6577 */
static obj cx__236594; /* constant #6594 */
static obj cx__236603; /* constant #6603 */
static obj cx__236611; /* constant #6611 */
static obj cx__236629; /* constant #6629 */
static obj cx__236639; /* constant #6639 */
static obj cx__236660; /* constant #6660 */
static obj cx__236686; /* constant #6686 */
static obj cx__236687; /* constant #6687 */
static obj cx__236689; /* constant #6689 */
static obj cx__236744; /* constant #6744 */
static obj cx__236786; /* constant #6786 */
static obj cx__236789; /* constant #6789 */
static obj cx__236796; /* constant #6796 */
static obj cx__236797; /* constant #6797 */
static obj cx__236799; /* constant #6799 */
static obj cx__236872; /* constant #6872 */
static obj cx__236873; /* constant #6873 */
static obj cx__236889; /* constant #6889 */
static obj cx__236893; /* constant #6893 */
static obj cx__236895; /* constant #6895 */
static obj cx__236904; /* constant #6904 */
static obj cx__236907; /* constant #6907 */
static obj cx__236909; /* constant #6909 */
static obj cx__236932; /* constant #6932 */
static obj cx__236937; /* constant #6937 */
static obj cx__236945; /* constant #6945 */
static obj cx__236954; /* constant #6954 */
static obj cx__236955; /* constant #6955 */
static obj cx__236984; /* constant #6984 */
static obj cx__237085; /* constant #7085 */
static obj cx__237086; /* constant #7086 */
static obj cx__237391; /* constant #7391 */
static obj cx__237415; /* constant #7415 */
static obj cx__237456; /* constant #7456 */
static obj cx__237581; /* constant #7581 */
static obj cx__237646; /* constant #7646 */
static obj cx__237677; /* constant #7677 */
static obj cx__237709; /* constant #7709 */
static obj cx__237710; /* constant #7710 */
static obj cx__237754; /* constant #7754 */
static obj cx__237800; /* constant #7800 */
static obj cx__237832; /* constant #7832 */
static obj cx__237866; /* constant #7866 */
static obj cx__237903; /* constant #7903 */
static obj cx__237904; /* constant #7904 */
static obj cx__237938; /* constant #7938 */
static obj cx__237956; /* constant #7956 */
static obj cx__237970; /* constant #7970 */
static obj cx__237998; /* constant #7998 */
static obj cx__238001; /* constant #8001 */
static obj cx__238005; /* constant #8005 */
static obj cx__238019; /* constant #8019 */
static obj cx__238054; /* constant #8054 */
static obj cx__238061; /* constant #8061 */
static obj cx__238071; /* constant #8071 */
static obj cx__238078; /* constant #8078 */
static obj cx__238084; /* constant #8084 */
static obj cx__238095; /* constant #8095 */
static obj cx__238130; /* constant #8130 */
static obj cx__238138; /* constant #8138 */
static obj cx__238148; /* constant #8148 */
static obj cx__238162; /* constant #8162 */
static obj cx__238172; /* constant #8172 */
static obj cx__238180; /* constant #8180 */
static obj cx__238210; /* constant #8210 */
static obj cx__238268; /* constant #8268 */
static obj cx__238361; /* constant #8361 */
static obj cx__238412; /* constant #8412 */
static obj cx__238428; /* constant #8428 */
static obj cx__238451; /* constant #8451 */
static obj cx__238484; /* constant #8484 */
static obj cx__238487; /* constant #8487 */
static obj cx__238552; /* constant #8552 */
static obj cx__238572; /* constant #8572 */
static obj cx__238620; /* constant #8620 */
static obj cx__238623; /* constant #8623 */
static obj cx__238626; /* constant #8626 */
static obj cx__238629; /* constant #8629 */
static obj cx__238632; /* constant #8632 */
static obj cx__238635; /* constant #8635 */
static obj cx__238638; /* constant #8638 */
static obj cx__238656; /* constant #8656 */
static obj cx__238662; /* constant #8662 */
static obj cx__238681; /* constant #8681 */

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

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

/* %residual-integer? */
static obj cxs__25residual_2Dinteger_3F(obj v150_x)
{ 
    return ((is_fixnum_obj(v150_x)) ? obj_from_bool(is_fixnum_obj(v150_x)) : ((is_flonum_obj(v150_x)) ? obj_from_bool(flisint(flonum_from_obj(v150_x))) : obj_from_bool(0)));
}

/* %residual-exact */
static obj cxs__25residual_2Dexact(obj v156_x)
{ 
    return ((is_fixnum_obj(v156_x)) ? (v156_x) : obj_from_fixnum(fxflo(flonum_from_obj(v156_x))));
}

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

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

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

/* %residual-even? */
static obj cxs__25residual_2Deven_3F(obj v179_x)
{ 
    return ((is_fixnum_obj(v179_x)) ? obj_from_bool((fixnum_from_obj(v179_x) & 1) == 0) : obj_from_bool(flisint(flonum_from_obj(v179_x) / 2.0)));
}

/* %residual-odd? */
static obj cxs__25residual_2Dodd_3F(obj v184_x)
{ 
    return ((is_fixnum_obj(v184_x)) ? obj_from_bool((fixnum_from_obj(v184_x) & 1) != 0) : obj_from_bool(flisint((flonum_from_obj(v184_x) + 1.0) / 2.0)));
}

/* %residual-nan? */
static obj cxs__25residual_2Dnan_3F(obj v189_x)
{ 
  if ((is_flonum_obj(v189_x))) {
    { /* flnan? */ 
    flonum_t f = flonum_from_obj(v189_x);
    return obj_from_bool(f != f); };
  } else {
    return obj_from_bool(0);
  }
}

/* %residual-infinite? */
static obj cxs__25residual_2Dinfinite_3F(obj v193_x)
{ 
  if ((is_flonum_obj(v193_x))) {
    { /* flinfinite? */ 
    flonum_t f = flonum_from_obj(v193_x);
    return obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); };
  } else {
    return obj_from_bool(0);
  }
}

/* %residual-finite? */
static obj cxs__25residual_2Dfinite_3F(obj v197_x)
{ 
  if ((is_fixnum_obj(v197_x))) {
    return obj_from_bool(is_fixnum_obj(v197_x));
  } else {
  { /* let */
    obj v13679_tmp;
    { /* flinfinite? */ 
    flonum_t f = flonum_from_obj(v197_x);
    v13679_tmp = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); };
    return obj_from_bool(!bool_from_obj(v13679_tmp));
  }
  }
}

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

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

/* %residual-digit-value */
static obj cxs__25residual_2Ddigit_2Dvalue(obj v444_x)
{ 
    return (bool_from_obj((('0') <= char_from_obj(v444_x)) ? obj_from_bool(char_from_obj(v444_x) <= ('9')) : obj_from_bool(0)) ? obj_from_fixnum(fxsub(((fixnum_t)char_from_obj(v444_x)), ('0'))) : obj_from_bool(0));
}

/* substring-copy! */
static obj cxs_substring_2Dcopy_21(obj v476_to, obj v475_at, obj v474_from, obj v473_start, obj v472_end)
{ 
  { /* let */
    obj v480_limit;
  { /* let */
    obj v478_b = obj_from_fixnum(fxadd(fixnum_from_obj(v473_start), (fxsub((stringlen((v476_to))), fixnum_from_obj(v475_at)))));
    v480_limit = ((fixnum_from_obj(v472_end) < fixnum_from_obj(v478_b)) ? (v472_end) : (v478_b));
  }
  if ((fixnum_from_obj(v475_at) <= fixnum_from_obj(v473_start))) {
  { /* letrec */
    obj v495_i;
    obj v494_j;
    /* tail call */
    v495_i = (v475_at);
    v494_j = (v473_start);
    goto s_loop_v493;
  s_loop_v493:
  if ((fixnum_from_obj(v494_j) >= fixnum_from_obj(v480_limit))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(*stringref((v476_to), fixnum_from_obj(v495_i)) = (*(unsigned char*)stringref((v474_from), fixnum_from_obj(v494_j))));
  { /* let */
    obj v13678_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v494_j), (+1)));
    obj v13677_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v495_i), (+1)));
    /* tail call */
    v495_i = (v13677_tmp);
    v494_j = (v13678_tmp);
    goto s_loop_v493;
  }
  }
  }
  } else {
  { /* letrec */
    obj v483_i;
    obj v482_j;
  { /* let */
    obj v13676_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v480_limit), (+1)));
    obj v13675_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v475_at), (fxsub((fxsub(fixnum_from_obj(v472_end), fixnum_from_obj(v473_start))), (+1)))));
    /* tail call */
    v483_i = (v13675_tmp);
    v482_j = (v13676_tmp);
    goto s_loop;
  }
  s_loop:
  if ((fixnum_from_obj(v482_j) < fixnum_from_obj(v473_start))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(*stringref((v476_to), fixnum_from_obj(v483_i)) = (*(unsigned char*)stringref((v474_from), fixnum_from_obj(v482_j))));
  { /* let */
    obj v13674_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v482_j), (+1)));
    obj v13673_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v483_i), (+1)));
    /* tail call */
    v483_i = (v13673_tmp);
    v482_j = (v13674_tmp);
    goto s_loop;
  }
  }
  }
  }
  }
}

/* substring-fill! */
static obj cxs_substring_2Dfill_21(obj v509_str, obj v508_c, obj v507_start, obj v506_end)
{ 
  { /* letrec */
    obj v511_i;
    /* tail call */
    v511_i = (v507_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v511_i) >= fixnum_from_obj(v506_end))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(*stringref((v509_str), fixnum_from_obj(v511_i)) = char_from_obj(v508_c));
  { /* let */
    obj v13672_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v511_i), (+1)));
    /* tail call */
    v511_i = (v13672_tmp);
    goto s_loop;
  }
  }
  }
}

/* subvector-copy! */
static obj cxs_subvector_2Dcopy_21(obj v546_to, obj v545_at, obj v544_from, obj v543_start, obj v542_end)
{ 
  { /* let */
    obj v550_limit;
  { /* let */
    obj v548_b = obj_from_fixnum(fxadd(fixnum_from_obj(v543_start), (fxsub((vectorlen((v546_to))), fixnum_from_obj(v545_at)))));
    v550_limit = ((fixnum_from_obj(v542_end) < fixnum_from_obj(v548_b)) ? (v542_end) : (v548_b));
  }
  if ((fixnum_from_obj(v545_at) <= fixnum_from_obj(v543_start))) {
  { /* letrec */
    obj v565_i;
    obj v564_j;
    /* tail call */
    v565_i = (v545_at);
    v564_j = (v543_start);
    goto s_loop_v563;
  s_loop_v563:
  if ((fixnum_from_obj(v564_j) >= fixnum_from_obj(v550_limit))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(vectorref((v546_to), fixnum_from_obj(v565_i)) = (vectorref((v544_from), fixnum_from_obj(v564_j))));
  { /* let */
    obj v13671_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v564_j), (+1)));
    obj v13670_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v565_i), (+1)));
    /* tail call */
    v565_i = (v13670_tmp);
    v564_j = (v13671_tmp);
    goto s_loop_v563;
  }
  }
  }
  } else {
  { /* letrec */
    obj v553_i;
    obj v552_j;
  { /* let */
    obj v13669_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v550_limit), (+1)));
    obj v13668_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v545_at), (fxsub((fxsub(fixnum_from_obj(v542_end), fixnum_from_obj(v543_start))), (+1)))));
    /* tail call */
    v553_i = (v13668_tmp);
    v552_j = (v13669_tmp);
    goto s_loop;
  }
  s_loop:
  if ((fixnum_from_obj(v552_j) < fixnum_from_obj(v543_start))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(vectorref((v546_to), fixnum_from_obj(v553_i)) = (vectorref((v544_from), fixnum_from_obj(v552_j))));
  { /* let */
    obj v13667_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v552_j), (+1)));
    obj v13666_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v553_i), (+1)));
    /* tail call */
    v553_i = (v13666_tmp);
    v552_j = (v13667_tmp);
    goto s_loop;
  }
  }
  }
  }
  }
}

/* subvector-fill! */
static obj cxs_subvector_2Dfill_21(obj v586_vec, obj v585_x, obj v584_start, obj v583_end)
{ 
  { /* letrec */
    obj v588_i;
    /* tail call */
    v588_i = (v584_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v588_i) >= fixnum_from_obj(v583_end))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(vectorref((v586_vec), fixnum_from_obj(v588_i)) = (v585_x));
  { /* let */
    obj v13665_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v588_i), (+1)));
    /* tail call */
    v588_i = (v13665_tmp);
    goto s_loop;
  }
  }
  }
}

/* subbytevector-copy! */
static obj cxs_subbytevector_2Dcopy_21(obj v617_to, obj v616_at, obj v615_from, obj v614_start, obj v613_end)
{ 
  { /* let */
    obj v621_limit;
  { /* let */
    obj v619_b = obj_from_fixnum(fxadd(fixnum_from_obj(v614_start), (fxsub((bytevectorlen((v617_to))), fixnum_from_obj(v616_at)))));
    v621_limit = ((fixnum_from_obj(v613_end) < fixnum_from_obj(v619_b)) ? (v613_end) : (v619_b));
  }
  if ((fixnum_from_obj(v616_at) <= fixnum_from_obj(v614_start))) {
  { /* letrec */
    obj v636_i;
    obj v635_j;
    /* tail call */
    v636_i = (v616_at);
    v635_j = (v614_start);
    goto s_loop_v634;
  s_loop_v634:
  if ((fixnum_from_obj(v635_j) >= fixnum_from_obj(v621_limit))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(*bytevectorref((v617_to), fixnum_from_obj(v636_i)) = byte_from_fixnum((*bytevectorref((v615_from), fixnum_from_obj(v635_j)))));
  { /* let */
    obj v13664_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v635_j), (+1)));
    obj v13663_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v636_i), (+1)));
    /* tail call */
    v636_i = (v13663_tmp);
    v635_j = (v13664_tmp);
    goto s_loop_v634;
  }
  }
  }
  } else {
  { /* letrec */
    obj v624_i;
    obj v623_j;
  { /* let */
    obj v13662_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v621_limit), (+1)));
    obj v13661_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v616_at), (fxsub((fxsub(fixnum_from_obj(v613_end), fixnum_from_obj(v614_start))), (+1)))));
    /* tail call */
    v624_i = (v13661_tmp);
    v623_j = (v13662_tmp);
    goto s_loop;
  }
  s_loop:
  if ((fixnum_from_obj(v623_j) < fixnum_from_obj(v614_start))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(*bytevectorref((v617_to), fixnum_from_obj(v624_i)) = byte_from_fixnum((*bytevectorref((v615_from), fixnum_from_obj(v623_j)))));
  { /* let */
    obj v13660_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v623_j), (+1)));
    obj v13659_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v624_i), (+1)));
    /* tail call */
    v624_i = (v13659_tmp);
    v623_j = (v13660_tmp);
    goto s_loop;
  }
  }
  }
  }
  }
}

/* %subvector-string-copy! */
static obj cxs__25subvector_2Dstring_2Dcopy_21(obj v969_to, obj v968_at, obj v967_from, obj v966_start, obj v965_end)
{ 
  { /* letrec */
    obj v976_i;
    obj v975_j;
    /* tail call */
    v976_i = (v968_at);
    v975_j = (v966_start);
    goto s_loop;
  s_loop:
  { /* let */
    obj v13655_tmp;
  { /* let */
    obj v13658_tmp;
  { /* let */
    obj v971_b = obj_from_fixnum(fxadd(fixnum_from_obj(v966_start), (fxsub((stringlen((v969_to))), fixnum_from_obj(v968_at)))));
    v13658_tmp = ((fixnum_from_obj(v965_end) < fixnum_from_obj(v971_b)) ? (v965_end) : (v971_b));
  }
    v13655_tmp = obj_from_bool(fixnum_from_obj(v975_j) >= fixnum_from_obj(v13658_tmp));
  }
  if (bool_from_obj(v13655_tmp)) {
    return (v969_to);
  } else {
    (void) obj_from_void(*stringref((v969_to), fixnum_from_obj(v976_i)) = char_from_obj(vectorref((v967_from), fixnum_from_obj(v975_j))));
  { /* let */
    obj v13657_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v975_j), (+1)));
    obj v13656_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v976_i), (+1)));
    /* tail call */
    v976_i = (v13656_tmp);
    v975_j = (v13657_tmp);
    goto s_loop;
  }
  }
  }
  }
}

/* %substring-vector-copy! */
static obj cxs__25substring_2Dvector_2Dcopy_21(obj v996_to, obj v995_at, obj v994_from, obj v993_start, obj v992_end)
{ 
  { /* letrec */
    obj v1003_i;
    obj v1002_j;
    /* tail call */
    v1003_i = (v995_at);
    v1002_j = (v993_start);
    goto s_loop;
  s_loop:
  { /* let */
    obj v13651_tmp;
  { /* let */
    obj v13654_tmp;
  { /* let */
    obj v998_b = obj_from_fixnum(fxadd(fixnum_from_obj(v993_start), (fxsub((vectorlen((v996_to))), fixnum_from_obj(v995_at)))));
    v13654_tmp = ((fixnum_from_obj(v992_end) < fixnum_from_obj(v998_b)) ? (v992_end) : (v998_b));
  }
    v13651_tmp = obj_from_bool(fixnum_from_obj(v1002_j) >= fixnum_from_obj(v13654_tmp));
  }
  if (bool_from_obj(v13651_tmp)) {
    return (v996_to);
  } else {
    (void) obj_from_void(vectorref((v996_to), fixnum_from_obj(v1003_i)) = obj_from_char(*(unsigned char*)stringref((v994_from), fixnum_from_obj(v1002_j))));
  { /* let */
    obj v13653_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1002_j), (+1)));
    obj v13652_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1003_i), (+1)));
    /* tail call */
    v1003_i = (v13652_tmp);
    v1002_j = (v13653_tmp);
    goto s_loop;
  }
  }
  }
  }
}

/* %residual-port? */
static obj cxs__25residual_2Dport_3F(obj v1161_x)
{ 
    return ((isiport((v1161_x))) ? obj_from_bool(isiport((v1161_x))) : obj_from_bool(isoport((v1161_x))));
}

/* close-port */
static obj cxs_close_2Dport(obj v1166_p)
{ 
  if ((isiport((v1166_p)))) {
    { /* close-input-port */
    obj o = (v1166_p); cxtype_iport_t *vt = iportvt(o); assert(vt);
    vt->close(iportdata(o)); vt->free(iportdata(o));  
    objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG; 
    (void) obj_from_void(0); };
  } else {
    (void) obj_from_void(0);
  }
  if ((isoport((v1166_p)))) {
    { /* close-output-port */
    obj o = (v1166_p); cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    return obj_from_void(0); };
  } else {
    return obj_from_void(0);
  }
}

/* read-substring! */
static obj cxs_read_2Dsubstring_21(obj v1228_str, obj v1227_start, obj v1226_end, obj v1225_p)
{ 
  { /* letrec */
    obj v1230_i;
    /* tail call */
    v1230_i = (v1227_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v1230_i) >= fixnum_from_obj(v1226_end))) {
    return obj_from_fixnum(fxsub(fixnum_from_obj(v1230_i), fixnum_from_obj(v1227_start)));
  } else {
  { /* let */
    obj v1231_c;
    { int c = iportgetc((v1225_p));  v1231_c = (c == EOF ? mkeof() : obj_from_char(c)); };
  if ((iseof((v1231_c)))) {
    return ((fixnum_from_obj(v1230_i) == fixnum_from_obj(v1227_start)) ? (v1231_c) : obj_from_fixnum(fxsub(fixnum_from_obj(v1230_i), fixnum_from_obj(v1227_start))));
  } else {
    (void) obj_from_void(*stringref((v1228_str), fixnum_from_obj(v1230_i)) = char_from_obj(v1231_c));
  { /* let */
    obj v13650_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1230_i), (+1)));
    /* tail call */
    v1230_i = (v13650_tmp);
    goto s_loop;
  }
  }
  }
  }
  }
}

/* write-substring */
static obj cxs_write_2Dsubstring(obj v1253_from, obj v1252_start, obj v1251_end, obj v1250_p)
{ 
  { /* letrec */
    obj v1255_i;
    /* tail call */
    v1255_i = (v1252_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v1255_i) >= fixnum_from_obj(v1251_end))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(oportputc((*(unsigned char*)stringref((v1253_from), fixnum_from_obj(v1255_i))), (v1250_p)));
  { /* let */
    obj v13649_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1255_i), (+1)));
    /* tail call */
    v1255_i = (v13649_tmp);
    goto s_loop;
  }
  }
  }
}

/* read-subbytevector! */
static obj cxs_read_2Dsubbytevector_21(obj v1266_vec, obj v1265_start, obj v1264_end, obj v1263_p)
{ 
  { /* letrec */
    obj v1268_i;
    /* tail call */
    v1268_i = (v1265_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v1268_i) >= fixnum_from_obj(v1264_end))) {
    return obj_from_fixnum(fxsub(fixnum_from_obj(v1268_i), fixnum_from_obj(v1265_start)));
  } else {
  { /* let */
    obj v1269_u8;
    { int c = iportgetc((v1263_p));  v1269_u8 = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); };
  if ((iseof((v1269_u8)))) {
    return ((fixnum_from_obj(v1268_i) == fixnum_from_obj(v1265_start)) ? (v1269_u8) : obj_from_fixnum(fxsub(fixnum_from_obj(v1268_i), fixnum_from_obj(v1265_start))));
  } else {
    (void) obj_from_void(*bytevectorref((v1266_vec), fixnum_from_obj(v1268_i)) = byte_from_fixnum(fixnum_from_obj(v1269_u8)));
  { /* let */
    obj v13648_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1268_i), (+1)));
    /* tail call */
    v1268_i = (v13648_tmp);
    goto s_loop;
  }
  }
  }
  }
  }
}

/* write-subbytevector */
static obj cxs_write_2Dsubbytevector(obj v1291_from, obj v1290_start, obj v1289_end, obj v1288_p)
{ 
  { /* letrec */
    obj v1293_i;
    /* tail call */
    v1293_i = (v1290_start);
    goto s_loop;
  s_loop:
  if ((fixnum_from_obj(v1293_i) >= fixnum_from_obj(v1289_end))) {
    return ((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void) obj_from_void(oportputc((*bytevectorref((v1291_from), fixnum_from_obj(v1293_i))), (v1288_p)));
  { /* let */
    obj v13647_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1293_i), (+1)));
    /* tail call */
    v1293_i = (v13647_tmp);
    goto s_loop;
  }
  }
  }
}

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

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

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

/* %vectors-sum-length */
static obj cxs__25vectors_2Dsum_2Dlength(obj v2531_vecs)
{ 
  { /* letrec */
    obj v2534_vecs;
    obj v2533_l;
  { /* let */
    obj v13646_tmp = obj_from_fixnum(+0);
    obj v13645_tmp = (v2531_vecs);
    /* tail call */
    v2534_vecs = (v13645_tmp);
    v2533_l = (v13646_tmp);
    goto s_loop;
  }
  s_loop:
  if ((isnull((v2534_vecs)))) {
    return (v2533_l);
  } else {
  { /* let */
    obj v13644_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2533_l), (vectorlen((car((v2534_vecs)))))));
    obj v13643_tmp = (cdr((v2534_vecs)));
    /* tail call */
    v2534_vecs = (v13643_tmp);
    v2533_l = (v13644_tmp);
    goto s_loop;
  }
  }
  }
}

/* %vectors-copy-into! */
static obj cxs__25vectors_2Dcopy_2Dinto_21(obj v2544_to, obj v2543_vecs)
{ 
  { /* letrec */
    obj v2547_vecs;
    obj v2546_i;
  { /* let */
    obj v13642_tmp = obj_from_fixnum(+0);
    obj v13641_tmp = (v2543_vecs);
    /* tail call */
    v2547_vecs = (v13641_tmp);
    v2546_i = (v13642_tmp);
    goto s_loop;
  }
  s_loop:
  if ((isnull((v2547_vecs)))) {
    return (v2544_to);
  } else {
  { /* let */
    obj v2550_vecs = (cdr((v2547_vecs)));
    obj v2551_vec = (car((v2547_vecs)));
    (void) (cxs_subvector_2Dcopy_21((v2544_to), (v2546_i), (v2551_vec), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((v2551_vec)))));
  { /* let */
    obj v13640_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2546_i), (vectorlen((v2551_vec)))));
    obj v13639_tmp = (v2550_vecs);
    /* tail call */
    v2547_vecs = (v13639_tmp);
    v2546_i = (v13640_tmp);
    goto s_loop;
  }
  }
  }
  }
}

/* %bytevectors-sum-length */
static obj cxs__25bytevectors_2Dsum_2Dlength(obj v2619_vecs)
{ 
  { /* letrec */
    obj v2622_vecs;
    obj v2621_l;
  { /* let */
    obj v13638_tmp = obj_from_fixnum(+0);
    obj v13637_tmp = (v2619_vecs);
    /* tail call */
    v2622_vecs = (v13637_tmp);
    v2621_l = (v13638_tmp);
    goto s_loop;
  }
  s_loop:
  if ((isnull((v2622_vecs)))) {
    return (v2621_l);
  } else {
  { /* let */
    obj v13636_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2621_l), (bytevectorlen((car((v2622_vecs)))))));
    obj v13635_tmp = (cdr((v2622_vecs)));
    /* tail call */
    v2622_vecs = (v13635_tmp);
    v2621_l = (v13636_tmp);
    goto s_loop;
  }
  }
  }
}

/* %bytevectors-copy-into! */
static obj cxs__25bytevectors_2Dcopy_2Dinto_21(obj v2632_to, obj v2631_vecs)
{ 
  { /* letrec */
    obj v2635_vecs;
    obj v2634_i;
  { /* let */
    obj v13634_tmp = obj_from_fixnum(+0);
    obj v13633_tmp = (v2631_vecs);
    /* tail call */
    v2635_vecs = (v13633_tmp);
    v2634_i = (v13634_tmp);
    goto s_loop;
  }
  s_loop:
  if ((isnull((v2635_vecs)))) {
    return (v2632_to);
  } else {
  { /* let */
    obj v2638_vecs = (cdr((v2635_vecs)));
    obj v2639_vec = (car((v2635_vecs)));
    (void) (cxs_subbytevector_2Dcopy_21((v2632_to), (v2634_i), (v2639_vec), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((v2639_vec)))));
  { /* let */
    obj v13632_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2634_i), (bytevectorlen((v2639_vec)))));
    obj v13631_tmp = (v2638_vecs);
    /* tail call */
    v2635_vecs = (v13631_tmp);
    v2634_i = (v13632_tmp);
    goto s_loop;
  }
  }
  }
  }
}

/* features */
static obj cxs_features(void)
{ 
    return (cx__234532);
}

/* sexp-match? */
static obj cxs_sexp_2Dmatch_3F(obj v4610_pat, obj v4609_x)
{ 
  s_sexp_2Dmatch_3F:
  if (((v4610_pat) == (mksymbol(internsym("*"))))) {
    return obj_from_bool((v4610_pat) == (mksymbol(internsym("*"))));
  } else {
  { /* let */
    obj v4619_x = (((v4610_pat) == (mksymbol(internsym("<symbol>")))) ? obj_from_bool(issymbol((v4609_x))) : obj_from_bool(0));
  if (bool_from_obj(v4619_x)) {
    return (v4619_x);
  } else {
  { /* let */
    obj v4624_x = (((v4610_pat) == (mksymbol(internsym("<string>")))) ? obj_from_bool(isstring((v4609_x))) : obj_from_bool(0));
  if (bool_from_obj(v4624_x)) {
    return (v4624_x);
  } else {
  if (((v4609_x) == (v4610_pat))) {
    return obj_from_bool((v4609_x) == (v4610_pat));
  } else {
  if ((ispair((v4610_pat)))) {
  if (bool_from_obj(((car((v4610_pat))) == (mksymbol(internsym("...")))) ? ((ispair((cdr((v4610_pat))))) ? obj_from_bool(isnull((cdr((cdr((v4610_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) {
    return obj_from_bool((v4609_x) == (car((cdr((v4610_pat))))));
  } else {
  if (bool_from_obj((ispair((cdr((v4610_pat))))) ? (((car((cdr((v4610_pat))))) == (mksymbol(internsym("...")))) ? obj_from_bool(isnull((cdr((cdr((v4610_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) {
  { /* let */
    obj v4635_pat = (car((v4610_pat)));
  if (((v4635_pat) == (mksymbol(internsym("*"))))) {
    return obj_from_bool(islist((v4609_x)));
  } else {
  { /* letrec */
    obj v4637_lst;
    /* tail call */
    v4637_lst = (v4609_x);
    goto s_loop;
  s_loop:
  if ((isnull((v4637_lst)))) {
    return obj_from_bool(isnull((v4637_lst)));
  } else {
  if ((ispair((v4637_lst)))) {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((v4635_pat), (car((v4637_lst)))))) {
  { /* let */
    obj v13630_tmp = (cdr((v4637_lst)));
    /* tail call */
    v4637_lst = (v13630_tmp);
    goto s_loop;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
  }
  } else {
  if ((ispair((v4609_x)))) {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((car((v4610_pat))), (car((v4609_x)))))) {
  { /* let */
    obj v13629_tmp = (cdr((v4609_x)));
    obj v13628_tmp = (cdr((v4610_pat)));
    /* tail call */
    v4610_pat = (v13628_tmp);
    v4609_x = (v13629_tmp);
    goto s_sexp_2Dmatch_3F;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
  }
  }
  }
}

/* sid-name */
static obj cxs_sid_2Dname(obj v5065_sid)
{ 
    return ((issymbol((v5065_sid))) ? (v5065_sid) : (vectorref((v5065_sid), (+0))));
}

/* sid-id */
static obj cxs_sid_2Did(obj v5070_sid)
{ 
    return ((issymbol((v5070_sid))) ? (v5070_sid) : (vectorref((v5070_sid), (+1))));
}

/* sid-location */
static obj cxs_sid_2Dlocation(obj v5075_sid)
{ 
    return ((issymbol((v5075_sid))) ? (v5075_sid) : (vectorref((v5075_sid), (+2))));
}

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

/* list2? */
static obj cxs_list2_3F(obj v5085_x)
{ 
    return ((ispair((v5085_x))) ? (cxs_list1_3F((cdr((v5085_x))))) : obj_from_bool(0));
}

/* pattern-sbox? */
static obj cxs_pattern_2Dsbox_3F(obj v6337_b)
{ 
  if ((isbox((v6337_b)))) {
  if (bool_from_obj(cxs_list2_3F((boxref((v6337_b)))))) {
    { /* memq */
    obj x = (car((boxref((v6337_b))))), l = (cx__236338);
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    return (l == mknull() ? obj_from_bool(0) : l); };
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
}

/* template-sbox? */
static obj cxs_template_2Dsbox_3F(obj v6436_b)
{ 
  if ((isbox((v6436_b)))) {
  if ((ispair((boxref((v6436_b)))))) {
  { /* let */
    obj v6438_l = (boxref((v6436_b)));
  { /* let */
    obj v6440_key = (car((v6438_l)));
    return (bool_from_obj(((v6440_key) == (mksymbol(internsym("error")))) ? obj_from_bool(1) : obj_from_bool(0)) ? obj_from_bool(islist((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("number->string")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("string->number")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("list->string")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("string->list")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("length")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("string-append")))) ? obj_from_bool(1) : obj_from_bool(0)) ? obj_from_bool(islist((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("+")))) ? obj_from_bool(1) : (((v6440_key) == (mksymbol(internsym("*")))) ? obj_from_bool(1) : obj_from_bool(0))) ? obj_from_bool(islist((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("id->string")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : (bool_from_obj(((v6440_key) == (mksymbol(internsym("string->id")))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v6438_l))))) : obj_from_bool(0)))))))))));
  }
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
}

/* %residual-annotated-procedure-argc-ok? */
static obj cxs__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F(obj v8643_ap, obj v8642_argc)
{ 
  { /* let */
    obj v8647_ann = (*procedureref((v8643_ap), (fxsub((procedurelen((v8643_ap))), (+1)))));
    return (((fxquo(fixnum_from_obj(v8647_ann), (+1000))) <= fixnum_from_obj(v8642_argc)) ? obj_from_bool(fixnum_from_obj(v8642_argc) <= (fxrem(fixnum_from_obj(v8647_ann), (+1000)))) : 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_2Dassoc,
  &cx__25residual_2Datan,
  &cx__25residual_2Dboolean_3D_3F,
  &cx__25residual_2Dbytevector,
  &cx__25residual_2Dchar_2Dci_3C_3D_3F,
  &cx__25residual_2Dchar_2Dci_3C_3F,
  &cx__25residual_2Dchar_2Dci_3D_3F,
  &cx__25residual_2Dchar_2Dci_3E_3D_3F,
  &cx__25residual_2Dchar_2Dci_3E_3F,
  &cx__25residual_2Dchar_2Dready_3F,
  &cx__25residual_2Dchar_3C_3D_3F,
  &cx__25residual_2Dchar_3C_3F,
  &cx__25residual_2Dchar_3D_3F,
  &cx__25residual_2Dchar_3E_3D_3F,
  &cx__25residual_2Dchar_3E_3F,
  &cx__25residual_2Dcons_2A,
  &cx__25residual_2Dcurrent_2Derror_2Dport,
  &cx__25residual_2Dcurrent_2Dinput_2Dport,
  &cx__25residual_2Dcurrent_2Doutput_2Dport,
  &cx__25residual_2Ddisplay,
  &cx__25residual_2Ddisplay_2Dfixnum,
  &cx__25residual_2Ddisplay_2Dflonum,
  &cx__25residual_2Ddisplay_2Dinput_2Dport,
  &cx__25residual_2Ddisplay_2Doutput_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_2Dflush_2Doutput_2Dport,
  &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_2Dlog,
  &cx__25residual_2Dmake_2Dbytevector,
  &cx__25residual_2Dmake_2Dcase_2Dlambda,
  &cx__25residual_2Dmake_2Dlist,
  &cx__25residual_2Dmake_2Dstring,
  &cx__25residual_2Dmake_2Dvector,
  &cx__25residual_2Dmap,
  &cx__25residual_2Dmax,
  &cx__25residual_2Dmember,
  &cx__25residual_2Dmin,
  &cx__25residual_2Dnewline,
  &cx__25residual_2Dnumber_2D_3Estring,
  &cx__25residual_2Dpeek_2Dchar,
  &cx__25residual_2Dpeek_2Du8,
  &cx__25residual_2Dread,
  &cx__25residual_2Dread_2Dchar,
  &cx__25residual_2Dread_2Dline,
  &cx__25residual_2Dread_2Dsimple,
  &cx__25residual_2Dread_2Du8,
  &cx__25residual_2Drecord_3F,
  &cx__25residual_2Dstring,
  &cx__25residual_2Dstring_2D_3Enumber,
  &cx__25residual_2Dstring_2Dappend,
  &cx__25residual_2Dstring_2Dci_3C_3D_3F,
  &cx__25residual_2Dstring_2Dci_3C_3F,
  &cx__25residual_2Dstring_2Dci_3D_3F,
  &cx__25residual_2Dstring_2Dci_3E_3D_3F,
  &cx__25residual_2Dstring_2Dci_3E_3F,
  &cx__25residual_2Dstring_3C_3D_3F,
  &cx__25residual_2Dstring_3C_3F,
  &cx__25residual_2Dstring_3D_3F,
  &cx__25residual_2Dstring_3E_3D_3F,
  &cx__25residual_2Dstring_3E_3F,
  &cx__25residual_2Dsymbol_3D_3F,
  &cx__25residual_2Du8_2Dready_3F,
  &cx__25residual_2Dvalues,
  &cx__25residual_2Dvector,
  &cx__25residual_2Dwrite,
  &cx__25residual_2Dwrite_2Dbytevector,
  &cx__25residual_2Dwrite_2Dchar,
  &cx__25residual_2Dwrite_2Dshared,
  &cx__25residual_2Dwrite_2Dsimple,
  &cx__25residual_2Dwrite_2Dstring,
  &cx__25residual_2Dwrite_2Du8,
  &cx__25residual_2F,
  &cx__25residual_3C,
  &cx__25residual_3C_3D,
  &cx__25residual_3D,
  &cx__25residual_3E,
  &cx__25residual_3E_3D,
  &cx__2Abase_2Dlibrary_2Dinfo_2A,
  &cx__2Acurrent_2Ddynamic_2Dstate_2A,
  &cx__2Acurrent_2Denvironment_2A,
  &cx__2Acurrent_2Derror_2Dport_2A,
  &cx__2Acurrent_2Dfile_2Dstack_2A,
  &cx__2Acurrent_2Dinput_2Dport_2A,
  &cx__2Acurrent_2Dmacro_2Dstore_2A,
  &cx__2Acurrent_2Doutput_2Dport_2A,
  &cx__2Acurrent_2Dvalue_2Dstore_2A,
  &cx__2Aexit_2A,
  &cx__2Agreeting_2A,
  &cx__2Ainitial_2Dmacro_2Denvironment_2A,
  &cx__2Ainitial_2Dvalue_2Denvironment_2A,
  &cx__2Alibraries_2Dbeing_2Dloaded_2A,
  &cx__2Alibrary_2Dinfo_2Dcache_2A,
  &cx__2Alibrary_2Dpath_2Dlist_2A,
  &cx__2Aloaded_2Dlibraries_2A,
  &cx__2Aquiet_2A,
  &cx__2Arepl_2Dbase_2Denvironment_2A,
  &cx__2Aroot_2Dlibrary_2Dinfo_2A,
  &cx__2Avalues_2Dtag_2A,
  &cx__3Cerror_2Dobject_3E,
  &cx_apply,
  &cx_assertion_2Dviolation,
  &cx_bytevector_2D_3Elist,
  &cx_bytevector_2Dappend,
  &cx_bytevector_2Dcopy,
  &cx_bytevector_2Dcopy_21,
  &cx_c_2Dwarning,
  &cx_current_2Dexception_2Dhandler,
  &cx_ellipsis_2Dlocation,
  &cx_emergency_2Dexit,
  &cx_environment,
  &cx_error,
  &cx_exit,
  &cx_file_2Derror,
  &cx_make_2Dparameter,
  &cx_modname_2Dseparator,
  &cx_r_2Derror,
  &cx_read_2Dbytevector,
  &cx_read_2Dbytevector_21,
  &cx_read_2Derror,
  &cx_read_2Dstring,
  &cx_read_2Dstring_21,
  &cx_reset,
  &cx_root_2Denvironment,
  &cx_root_2Dmacro_2Dstore,
  &cx_scheme_2Deval,
  &cx_scheme_2Dexpand_2Dto_2Dlist,
  &cx_simple_2Derror,
  &cx_string_2D_3Elist,
  &cx_string_2D_3Eutf8,
  &cx_string_2D_3Evector,
  &cx_string_2Dcopy,
  &cx_string_2Dcopy_21,
  &cx_string_2Dfill_21,
  &cx_string_2Dfor_2Deach,
  &cx_string_2Dmap,
  &cx_utf8_2D_3Estring,
  &cx_vector_2D_3Elist,
  &cx_vector_2D_3Estring,
  &cx_vector_2Dappend,
  &cx_vector_2Dcopy,
  &cx_vector_2Dcopy_21,
  &cx_vector_2Dfill_21,
  &cx_vector_2Dfor_2Deach,
  &cx_vector_2Dmap,
  &cx__2310210,
  &cx__2310805,
  &cx__2310806,
  &cx__2310821,
  &cx__2310822,
  &cx__2310910,
  &cx__2310911,
  &cx__2310914,
  &cx__2311044,
  &cx__2311086,
  &cx__231115,
  &cx__2311159,
  &cx__2311165,
  &cx__231119,
  &cx__2311200,
  &cx__2311208,
  &cx__2311215,
  &cx__2311218,
  &cx__2311224,
  &cx__231123,
  &cx__2311233,
  &cx__2311241,
  &cx__2311247,
  &cx__2311250,
  &cx__2311255,
  &cx__2311261,
  &cx__2311262,
  &cx__2311263,
  &cx__2311264,
  &cx__2311265,
  &cx__231127,
  &cx__2311278,
  &cx__2311286,
  &cx__2311291,
  &cx__2311294,
  &cx__2311305,
  &cx__2311309,
  &cx__2311313,
  &cx__2311319,
  &cx__231142,
  &cx__231146,
  &cx__231149,
  &cx__231153,
  &cx__231375,
  &cx__231379,
  &cx__231390,
  &cx__231414,
  &cx__231453,
  &cx__231470,
  &cx__231472,
  &cx__231515,
  &cx__231517,
  &cx__231518,
  &cx__231520,
  &cx__231521,
  &cx__231523,
  &cx__231532,
  &cx__231548,
  &cx__231556,
  &cx__231560,
  &cx__231572,
  &cx__231578,
  &cx__231592,
  &cx__231600,
  &cx__231606,
  &cx__231609,
  &cx__231624,
  &cx__231625,
  &cx__231628,
  &cx__231635,
  &cx__231640,
  &cx__231645,
  &cx__231647,
  &cx__231651,
  &cx__231663,
  &cx__231669,
  &cx__231672,
  &cx__231685,
  &cx__231690,
  &cx__231695,
  &cx__231702,
  &cx__231753,
  &cx__231756,
  &cx__231768,
  &cx__231789,
  &cx__231803,
  &cx__231816,
  &cx__231846,
  &cx__231872,
  &cx__231873,
  &cx__231931,
  &cx__231992,
  &cx__231995,
  &cx__231998,
  &cx__232054,
  &cx__232058,
  &cx__232128,
  &cx__232182,
  &cx__232204,
  &cx__232273,
  &cx__232285,
  &cx__232289,
  &cx__233221,
  &cx__233238,
  &cx__233975,
  &cx__234285,
  &cx__234532,
  &cx__234680,
  &cx__234728,
  &cx__234751,
  &cx__234796,
  &cx__234863,
  &cx__234874,
  &cx__234906,
  &cx__234934,
  &cx__234941,
  &cx__234954,
  &cx__234957,
  &cx__234958,
  &cx__235006,
  &cx__235012,
  &cx__235013,
  &cx__235139,
  &cx__235236,
  &cx__235237,
  &cx__235383,
  &cx__235384,
  &cx__235391,
  &cx__235459,
  &cx__235461,
  &cx__235470,
  &cx__235483,
  &cx__235550,
  &cx__235598,
  &cx__235605,
  &cx__235682,
  &cx__235683,
  &cx__235728,
  &cx__235796,
  &cx__235814,
  &cx__235822,
  &cx__235835,
  &cx__235853,
  &cx__235855,
  &cx__235857,
  &cx__235859,
  &cx__235864,
  &cx__235867,
  &cx__235868,
  &cx__235869,
  &cx__235871,
  &cx__236016,
  &cx__236087,
  &cx__236302,
  &cx__236338,
  &cx__236501,
  &cx__236516,
  &cx__236525,
  &cx__236551,
  &cx__236577,
  &cx__236594,
  &cx__236603,
  &cx__236611,
  &cx__236629,
  &cx__236639,
  &cx__236660,
  &cx__236686,
  &cx__236687,
  &cx__236689,
  &cx__236744,
  &cx__236786,
  &cx__236789,
  &cx__236796,
  &cx__236797,
  &cx__236799,
  &cx__236872,
  &cx__236873,
  &cx__236889,
  &cx__236893,
  &cx__236895,
  &cx__236904,
  &cx__236907,
  &cx__236909,
  &cx__236932,
  &cx__236937,
  &cx__236945,
  &cx__236954,
  &cx__236955,
  &cx__236984,
  &cx__237085,
  &cx__237086,
  &cx__237391,
  &cx__237415,
  &cx__237456,
  &cx__237581,
  &cx__237646,
  &cx__237677,
  &cx__237709,
  &cx__237710,
  &cx__237754,
  &cx__237800,
  &cx__237832,
  &cx__237866,
  &cx__237903,
  &cx__237904,
  &cx__237938,
  &cx__237956,
  &cx__237970,
  &cx__237998,
  &cx__238001,
  &cx__238005,
  &cx__238019,
  &cx__238054,
  &cx__238061,
  &cx__238071,
  &cx__238078,
  &cx__238084,
  &cx__238095,
  &cx__238130,
  &cx__238138,
  &cx__238148,
  &cx__238162,
  &cx__238172,
  &cx__238180,
  &cx__238210,
  &cx__238268,
  &cx__238361,
  &cx__238412,
  &cx__238428,
  &cx__238451,
  &cx__238484,
  &cx__238487,
  &cx__238552,
  &cx__238572,
  &cx__238620,
  &cx__238623,
  &cx__238626,
  &cx__238629,
  &cx__238632,
  &cx__238635,
  &cx__238638,
  &cx__238656,
  &cx__238662,
  &cx__238681,
};

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

/* entry points */
static obj host(obj);
static obj cases[2565] = {
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (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 76
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__231115 = (hpushstr(0, newstring("r")));
    cx__231119 = (hpushstr(0, newstring("cannot open input file")));
    cx__231123 = (hpushstr(0, newstring("rb")));
    cx__231127 = (hpushstr(0, newstring("cannot open binary input file")));
    cx__231142 = (hpushstr(0, newstring("w")));
    cx__231146 = (hpushstr(0, newstring("cannot open output file")));
    cx__231149 = (hpushstr(0, newstring("wb")));
    cx__231153 = (hpushstr(0, newstring("cannot open binary output file")));
    cx__231375 = (hpushstr(0, newstring(": ")));
    cx__231379 = (hpushstr(0, newstring(" in ")));
    cx__231390 = (hpushstr(0, newstring("Error")));
    cx__231414 = (hpushstr(0, newstring("Assertion violation")));
    cx__231453 = (hpushstr(0, newstring("unexpected number/symbol char")));
    cx__231470 = (hpushstr(0, newstring("unsupported number syntax (implementation restriction)")));
    cx__231472 = (hpushstr(0, newstring(".")));
    cx__231515 = (hpushstr(0, newstring("+inf.0")));
    cx__231517 = (hpushstr(0, newstring("-inf.0")));
    cx__231518 = (hpushstr(0, newstring("+nan.0")));
    cx__231520 = (hpushstr(0, newstring("-nan.0")));
    cx__231521 = (hpushstr(0, newstring("+i")));
    cx__231523 = (hpushstr(0, newstring("-i")));
    { 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__231532 = (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__231548 = (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__231556 = (hpushstr(0, newstring(s))); }
    cx__231560 = (hpushstr(0, newstring("end of file within a string")));
    cx__231572 = (hpushstr(0, newstring("invalid char escape in")));
    cx__231578 = (hpushstr(0, newstring("no newline in line ending escape")));
    cx__231592 = (hpushstr(0, newstring("end of file within a")));
    cx__231600 = (hpushstr(0, newstring("invalid byte inside bytevector --")));
    cx__231606 = (hpushstr(0, newstring("error inside bytevector --")));
    cx__231609 = (hpushstr(0, newstring("eof inside bytevector")));
    cx__231624 = (hpushstr(0, newstring("error inside list --")));
    cx__231625 = (hpushstr(0, newstring("dot in #(...)")));
    cx__231628 = (hpushstr(0, newstring("randomness after form after dot")));
    cx__231635 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses")));
    cx__231640 = (hpushstr(0, newstring("missing car -- ( immediately followed by .")));
    cx__231645 = (hpushstr(0, newstring("illegal character read")));
    cx__231647 = (hpushstr(0, newstring("unknown # syntax")));
    cx__231651 = (hpushstr(0, newstring("invalid terminator for #N notation")));
    cx__231663 = (hpushstr(0, newstring("#n= has another label as target")));
    cx__231669 = (hpushstr(0, newstring("duplicate #n= tag:")));
    cx__231672 = (hpushstr(0, newstring("invalid #n= reference:")));
    cx__231685 = (hpushstr(0, newstring("unknown #n# reference:")));
    cx__231690 = (hpushstr(0, newstring("end of file within a #N notation")));
    cx__231695 = (hpushstr(0, newstring("#N=/#N# notation is not allowed in this mode")));
    { static char s[] = { 117, 110, 107, 110, 111, 119, 110, 32, 35, 92, 32, 110, 97, 109, 101, 0 };
    cx__231702 = (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__231753 = (hpushstr(0, newstring(s))); }
    cx__231756 = (hpushstr(0, newstring("invalid bytevector syntax")));
    cx__231768 = (hpushstr(0, newstring("end of file in #| comment")));
    cx__231789 = (hpushstr(0, newstring("unexpected name after #")));
    cx__231803 = (hpushstr(0, newstring("end of file after #")));
    cx__231816 = (hpushstr(0, newstring("end of file within a |symbol|")));
    cx__231846 = (hpushstr(0, newstring("end of file after ,")));
    cx__231872 = (hpushstr(0, newstring("unexpected token:")));
    cx__231873 = (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__231931 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 34, 32, 46, 32, 34, 0 };
    cx__231992 = (hpushstr(0, newstring(s))); }
    cx__231995 = (hpushstr(0, newstring("right bracket")));
    cx__231998 = (hpushstr(0, newstring("right parenthesis")));
    cx__232054 = (hpushstr(0, newstring("cannot delete file:")));
    cx__232058 = (hpushstr(0, newstring("cannot rename file:")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("irritants")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("message")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("kind")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__232128 = (hendblk(3)); }
    cx__232182 = (hpushstr(0, newstring("unhandled exception")));
    cx__232204 = (hpushstr(0, newstring("exception handler returned")));
    cx__232273 = (hpushstr(0, newstring("nonzero imag part not supported")));
    cx__232285 = (hpushstr(0, newstring("angle not supported")));
    cx__232289 = obj_from_flonum(0, +3.141592653589793238462643e+0);
    cx__233221 = obj_from_flonum(0, +0.0e+0);
    cx__233238 = obj_from_flonum(0, +1.0e+0);
    cx__233975 = (hpushstr(0, newstring("")));
    cx__234285 = (hpushstr(0, newstring("unexpected number of arguments")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("siof-1.0.2")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("siof")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("exact-closed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("r7rs")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234532 = (hendblk(3)); }
    cx__234680 = (hpushstr(0, newstring("; warning")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_char(':');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char('/');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char(92);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234728 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_char(':');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char('/');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char(92);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234751 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_char('/');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char(92);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234796 = (hendblk(3)); }
    cx__234863 = (hpushstr(0, newstring("invalid symbolic file name element")));
    cx__234874 = (hpushstr(0, newstring("_")));
    cx__234906 = (hpushstr(0, newstring("library path does not end in separator")));
    cx__234934 = (hpushstr(0, newstring("library path should end in directory separator")));
    cx__234941 = (hpushstr(0, newstring(".sld")));
    cx__234954 = (hpushstr(0, newstring("cannot resolve file or library name to an existing file:")));
    cx__234957 = (hpushstr(0, newstring("cannot resolve library name to a file:")));
    cx__234958 = (hpushstr(0, newstring("cannot resolve file name to a file:")));
    cx__235006 = (hpushstr(0, newstring("illegal file or library name:")));
    cx__235012 = (hpushstr(0, newstring("stdin")));
    cx__235013 = (hpushstr(0, newstring("-")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__235139 = (hendblk(3)); }
    cx__235236 = (hpushstr(0, newstring(" (or an internal define-syntax): ")));
    cx__235237 = (hpushstr(0, newstring("premature use of keyword bound by letrec-syntax")));
    cx__235383 = (hpushstr(0, newstring(" in lambda formals: ")));
    cx__235384 = (hpushstr(0, newstring("duplicate variable: ")));
    cx__235391 = (hpushstr(0, newstring("non-identifier: ")));
    cx__235459 = (hpushstr(0, newstring(" and: ")));
    cx__235461 = (hpushstr(0, newstring("duplicate bindings for a keyword: ")));
    cx__235470 = (hpushstr(0, newstring("malformed syntax binding: ")));
    cx__235483 = (hpushstr(0, newstring("non-list syntax bindings list: ")));
    cx__235550 = (hpushstr(0, newstring("invalid expander: ")));
    cx__235598 = (hpushstr(0, newstring("incorrect number of arguments to syntax lambda: ")));
    cx__235605 = (hpushstr(0, newstring("syntax lambda applied in bad context: ")));
    cx__235682 = (hpushstr(0, newstring(" expression: ")));
    cx__235683 = (hpushstr(0, newstring("malformed ")));
    cx__235728 = (hpushstr(0, newstring("attempt to set a keyword: ")));
    cx__235796 = (hpushstr(0, newstring("malformed definition: ")));
    cx__235814 = (hpushstr(0, newstring("empty begin expression: ")));
    cx__235822 = (hpushstr(0, newstring("malformed syntax-lambda form: ")));
    cx__235835 = (hpushstr(0, newstring("empty syntax-rules form: ")));
    cx__235853 = (hpushstr(0, newstring("begin")));
    cx__235855 = (hpushstr(0, newstring("definition")));
    cx__235857 = (hpushstr(0, newstring("syntax")));
    cx__235859 = (hpushstr(0, newstring("expression")));
    cx__235864 = (hpushstr(0, newstring(" used in bad context: ")));
    cx__235867 = (hpushstr(0, newstring(" used as an expression, syntax, or definition.")));
    cx__235868 = (hpushstr(0, newstring("unexpected type of s-expression: ")));
    cx__235869 = (hpushstr(0, newstring("empty list: ")));
    cx__235871 = (hpushstr(0, newstring("improper list: ")));
    cx__236016 = (hpushstr(0, newstring("duplicate internal definitions: ")));
    cx__236087 = (hpushstr(0, newstring("non-syntax definition in a syntax body: ")));
    cx__236302 = (hpushstr(0, newstring(" in syntax-lambda formals: ")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("library?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("feature?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("id?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("string?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("number?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("char?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__236338 = (hendblk(3)); }
    cx__236501 = (hpushstr(0, newstring("string->id: not a string: ")));
    cx__236516 = (hpushstr(0, newstring("id->string: not an id: ")));
    cx__236525 = (hpushstr(0, newstring("*: not a number: ")));
    cx__236551 = (hpushstr(0, newstring("+: not a number: ")));
    cx__236577 = (hpushstr(0, newstring("string-append: not a string: ")));
    cx__236594 = (hpushstr(0, newstring("length: not a list: ")));
    cx__236603 = (hpushstr(0, newstring("string->list: not a string: ")));
    cx__236611 = (hpushstr(0, newstring("list->string: not a list of chars: ")));
    cx__236629 = (hpushstr(0, newstring("string->number: not a string: ")));
    cx__236639 = (hpushstr(0, newstring("number->string: not a number: ")));
    cx__236660 = (hpushstr(0, newstring(" ")));
    cx__236686 = (hpushstr(0, newstring(" in literals list of: ")));
    cx__236687 = (hpushstr(0, newstring("ellipsis ")));
    cx__236689 = (hpushstr(0, newstring("non-id: ")));
    cx__236744 = (hpushstr(0, newstring("pattern literals list is not a list: ")));
    cx__236786 = (hpushstr(0, newstring("malformed pattern: ")));
    cx__236789 = (hpushstr(0, newstring("malformed syntax rule: ")));
    cx__236796 = (hpushstr(0, newstring(" in template: ")));
    cx__236797 = (hpushstr(0, newstring("template ellipsis closes no variables: ")));
    cx__236799 = (hpushstr(0, newstring("pattern var used at bad depth: ")));
    cx__236872 = (hpushstr(0, newstring(" in pattern: ")));
    cx__236873 = (hpushstr(0, newstring("duplicate pattern var: ")));
    cx__236889 = (hpushstr(0, newstring("ellipsis following ")));
    cx__236893 = (hpushstr(0, newstring("improper list pattern with an ellipsis")));
    cx__236895 = (hpushstr(0, newstring("list or vector pattern with multiple ellipses")));
    cx__236904 = (hpushstr(0, newstring("malformed box")));
    { static char s[] = { 97, 32, 39, 35, 38, 40, 111, 112, 39, 0 };
    cx__236907 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 97, 32, 39, 35, 40, 39, 0 };
    cx__236909 = (hpushstr(0, newstring(s))); }
    cx__236932 = (hpushstr(0, newstring("an ellipsis")));
    { static char s[] = { 97, 32, 39, 46, 39, 0 };
    cx__236937 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 97, 32, 39, 40, 39, 0 };
    cx__236945 = (hpushstr(0, newstring(s))); }
    cx__236954 = (hpushstr(0, newstring("the pattern keyword")));
    cx__236955 = (hpushstr(0, newstring("nothing")));
    cx__236984 = (hpushstr(0, newstring("malformed syntax rules: ")));
    cx__237085 = (hpushstr(0, newstring(" in macro call: ")));
    cx__237086 = (hpushstr(0, newstring("unequal sequence lengths for pattern vars: ")));
    cx__237391 = (hpushstr(0, newstring("no matching rule for macro use: ")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = obj_from_fixnum(-1);
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-2);
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-3);
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-4);
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-5);
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-6);
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-7);
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-8);
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-9);
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(-10);
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237415 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(-1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-2);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-3);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-4);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-5);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-6);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-7);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-8);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-9);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("builtin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(-10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = obj_from_fixnum(+0);
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237456 = (hendblk(3)); }
    cx__237581 = (hpushstr(0, newstring("invalid module:")));
    cx__237646 = (hpushstr(0, newstring("multiple identifier bindings on import:")));
    cx__237677 = (hpushstr(0, newstring("old identifier binding shadowed on import:")));
    cx__237709 = (hpushstr(0, newstring("invalid import set in import:")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237710 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[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("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("rename")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237754 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("prefix")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237800 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("except")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237832 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("only")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237866 = (hendblk(3)); }
    cx__237903 = (hpushstr(0, newstring("invalid export spec in export:")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("rename")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237904 = (hendblk(3)); }
    cx__237938 = (hpushstr(0, newstring("duplicate external id in export:")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("rename")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__237956 = (hendblk(3)); }
    cx__237970 = (hpushstr(0, newstring("module cannot be imported:")));
    cx__237998 = (hpushstr(0, newstring("define-library form located in the wrong file:")));
    cx__238001 = (hpushstr(0, newstring("define-library form not alone in the file:")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--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-library")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238005 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("import")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238019 = (hendblk(3)); }
    cx__238054 = (hpushstr(0, newstring("unknown declaration in define-library:")));
    { static char s[] = { 105, 110, 118, 97, 108, 105, 100, 32, 99, 108, 97, 117, 115, 101, 32, 105, 110, 32, 100, 101, 102, 105, 110, 101, 45, 108, 105, 98, 114, 97, 114, 121, 39, 115, 32, 99, 111, 110, 100, 45, 101, 120, 112, 97, 110, 100, 58, 0 };
    cx__238061 = (hpushstr(0, newstring(s))); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238071 = (hendblk(3)); }
    { static char s[] = { 39, 101, 108, 115, 101, 39, 32, 99, 108, 97, 117, 115, 101, 32, 105, 110, 32, 116, 104, 101, 32, 109, 105, 100, 100, 108, 101, 32, 111, 102, 32, 99, 111, 110, 100, 45, 101, 120, 112, 97, 110, 100, 58, 0 };
    cx__238078 = (hpushstr(0, newstring(s))); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--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")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238084 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--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-expand")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238095 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("include-library-declarations")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238130 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("include-ci")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238138 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("include")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238148 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--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")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238162 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("import")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238172 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("export")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238180 = (hendblk(3)); }
    cx__238210 = (hpushstr(0, newstring("hidden_")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("base")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("sharpf")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238268 = (hendblk(3)); }
    cx__238361 = (hpushstr(0, newstring("exported identifier not defined in")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("*")));
    *--hp = (mksymbol(internsym("<string>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238412 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238428 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<string>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__238451 = (hendblk(3)); }
    cx__238484 = (hpushstr(0, newstring("recursive library dependence involving")));
    cx__238487 = (hpushstr(0, newstring("; loading library: ")));
    cx__238552 = (hpushstr(0, newstring("#<code>")));
    cx__238572 = (hpushstr(0, newstring("#<procedure ")));
    cx__238620 = (hpushstr(0, newstring("exact integer overflow in call to")));
    cx__238623 = (hpushstr(0, newstring("division by zero in call to")));
    cx__238626 = (hpushstr(0, newstring("bad index range in call to")));
    cx__238629 = (hpushstr(0, newstring("index out of range in call to")));
    cx__238632 = (hpushstr(0, newstring("invalid arguments to")));
    { 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__238635 = (hpushstr(0, newstring(s))); }
    cx__238638 = (hpushstr(0, newstring("attempt to call non-procedure")));
    cx__238656 = (hpushstr(0, newstring("identifier expected")));
    cx__238662 = (hpushstr(0, newstring("modifying imported location")));
    cx__238681 = (hpushstr(0, newstring("ill-constructed form")));
    cx__2310210 = (hpushstr(0, newstring("circular input form:")));
    cx__2310805 = (hpushstr(0, newstring("scheme-report-environment version not supported")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("r5rs")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("scheme")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2310806 = (hendblk(3)); }
    cx__2310821 = (hpushstr(0, newstring("null-environment version not supported")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("r5rs-null")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("scheme")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2310822 = (hendblk(3)); }
    cx__2310910 = (hpushstr(0, newstring("unexpected form encountered by load in")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("*")));
    *--hp = (mksymbol(internsym("define-library")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2310911 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("*")));
    *--hp = (mksymbol(internsym("import")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2310914 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("else")));
    *--hp = (mksymbol(internsym("else")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("=>")));
    *--hp = (mksymbol(internsym("=>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("unquote-splicing")));
    *--hp = (mksymbol(internsym("unquote-splicing")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("unquote")));
    *--hp = (mksymbol(internsym("unquote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311044 = (hendblk(3)); }
    cx__2311086 = (hpushstr(0, newstring(".repl")));
    cx__2311159 = (hpushstr(0, newstring("invalid define-library form in repl")));
    cx__2311165 = (hpushstr(0, newstring("library cannot be redefined in repl")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("<symbol>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311200 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311208 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("*")));
    *--hp = (mksymbol(internsym("define-library")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311215 = (hendblk(3)); }
    cx__2311218 = (hpushstr(0, newstring("invalid import form in repl")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311224 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("*")));
    *--hp = (mksymbol(internsym("import")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2311233 = (hendblk(3)); }
    cx__2311241 = (hpushstr(0, newstring("SIOF Scheme Interpreter 1.0.2~%")));
    cx__2311247 = (hpushstr(0, newstring("; returning to top level~%")));
    cx__2311250 = (hpushstr(0, newstring("> ")));
    cx__2311255 = (hpushstr(0, newstring("~%")));
    cx__2311261 = (hpushstr(0, newstring("-L path   add path to library search path list~%")));
    cx__2311262 = (hpushstr(0, newstring("-x        exit after loading files on the command line~%")));
    cx__2311263 = (hpushstr(0, newstring("-q        suppress greeting~%")));
    cx__2311264 = (hpushstr(0, newstring("Usage: siof [-qx] file ...~%")));
    cx__2311265 = (hpushstr(0, newstring("siof 1.0.2~%")));
    cx__2311278 = (hpushstr(0, newstring("; loading ~a...~%")));
    cx__2311286 = (hpushstr(0, newstring("cannot open input file ~a~%")));
    cx__2311291 = (hpushstr(0, newstring("-h")));
    cx__2311294 = (hpushstr(0, newstring("--help")));
    cx__2311305 = (hpushstr(0, newstring("-L")));
    cx__2311309 = (hpushstr(0, newstring("-x")));
    cx__2311313 = (hpushstr(0, newstring("-q")));
    cx__2311319 = (hpushstr(0, newstring("./")));
    { static obj c[] = { obj_from_case(1) }; cx__25residual_2Dboolean_3F = (obj)c; }
    { static obj c[] = { obj_from_case(2) }; cx__25residual_2Dnot = (obj)c; }
    { static obj c[] = { obj_from_case(3) }; cx__25residual_2Dvoid = (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_2Dfxmodquo = (obj)c; }
    { static obj c[] = { obj_from_case(16) }; cx__25residual_2Dfxmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(17) }; cx__25residual_2Dfxdiv = (obj)c; }
    { static obj c[] = { obj_from_case(18) }; cx__25residual_2Dfxmod = (obj)c; }
    { static obj c[] = { obj_from_case(19) }; cx__25residual_2Dfxabs = (obj)c; }
    { static obj c[] = { obj_from_case(20) }; cx__25residual_2Dfxgcd = (obj)c; }
    { static obj c[] = { obj_from_case(21) }; cx__25residual_2Dfxexpt = (obj)c; }
    { static obj c[] = { obj_from_case(22) }; cx__25residual_2Dfxsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(23) }; cx__25residual_2Dfxnot = (obj)c; }
    { static obj c[] = { obj_from_case(24) }; cx__25residual_2Dfxand = (obj)c; }
    { static obj c[] = { obj_from_case(25) }; cx__25residual_2Dfxior = (obj)c; }
    { static obj c[] = { obj_from_case(26) }; cx__25residual_2Dfxxor = (obj)c; }
    { static obj c[] = { obj_from_case(27) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dleft = (obj)c; }
    { static obj c[] = { obj_from_case(28) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dright = (obj)c; }
    { static obj c[] = { obj_from_case(29) }; cx__25residual_2Dflonum_3F = (obj)c; }
    { static obj c[] = { obj_from_case(30) }; cx__25residual_2Dfixnum_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(31) }; cx__25residual_2Dflonum_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(32) }; cx__25residual_2Dreal_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(33) }; cx__25residual_2Dreal_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(34) }; cx__25residual_2Dflinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(35) }; cx__25residual_2Dflzero_3F = (obj)c; }
    { static obj c[] = { obj_from_case(36) }; cx__25residual_2Dflpositive_3F = (obj)c; }
    { static obj c[] = { obj_from_case(37) }; cx__25residual_2Dflnegative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(38) }; cx__25residual_2Dflodd_3F = (obj)c; }
    { static obj c[] = { obj_from_case(39) }; cx__25residual_2Dfleven_3F = (obj)c; }
    { static obj c[] = { obj_from_case(40) }; cx__25residual_2Dflnan_3F = (obj)c; }
    { static obj c[] = { obj_from_case(41) }; cx__25residual_2Dflinfinite_3F = (obj)c; }
    { static obj c[] = { obj_from_case(42) }; cx__25residual_2Dflquotient = (obj)c; }
    { static obj c[] = { obj_from_case(43) }; cx__25residual_2Dflremainder = (obj)c; }
    { static obj c[] = { obj_from_case(44) }; cx__25residual_2Dflmodquo = (obj)c; }
    { static obj c[] = { obj_from_case(45) }; cx__25residual_2Dflmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(46) }; cx__25residual_2Dflabs = (obj)c; }
    { static obj c[] = { obj_from_case(47) }; cx__25residual_2Dflgcd = (obj)c; }
    { static obj c[] = { obj_from_case(48) }; cx__25residual_2Dflfloor = (obj)c; }
    { static obj c[] = { obj_from_case(49) }; cx__25residual_2Dflceiling = (obj)c; }
    { static obj c[] = { obj_from_case(50) }; cx__25residual_2Dfltruncate = (obj)c; }
    { static obj c[] = { obj_from_case(51) }; cx__25residual_2Dflround = (obj)c; }
    { static obj c[] = { obj_from_case(52) }; cx__25residual_2Dflsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(53) }; cx__25residual_2Dflexp = (obj)c; }
    { static obj c[] = { obj_from_case(54) }; cx__25residual_2Dfllog = (obj)c; }
    { static obj c[] = { obj_from_case(55) }; cx__25residual_2Dfllog10 = (obj)c; }
    { static obj c[] = { obj_from_case(56) }; cx__25residual_2Dflsin = (obj)c; }
    { static obj c[] = { obj_from_case(57) }; cx__25residual_2Dflcos = (obj)c; }
    { static obj c[] = { obj_from_case(58) }; cx__25residual_2Dfltan = (obj)c; }
    { static obj c[] = { obj_from_case(59) }; cx__25residual_2Dflasin = (obj)c; }
    { static obj c[] = { obj_from_case(60) }; cx__25residual_2Dflacos = (obj)c; }
    { static obj c[] = { obj_from_case(61) }; cx__25residual_2Dflexpt = (obj)c; }
    { static obj c[] = { obj_from_case(62) }; cx__25residual_2Dfxfl_2F = (obj)c; }
    { static obj c[] = { obj_from_case(63) }; cx__25residual_2Dreal_3F = (obj)c; }
    { static obj c[] = { obj_from_case(64) }; cx__25residual_2Dinteger_3F = (obj)c; }
    { static obj c[] = { obj_from_case(65) }; cx__25residual_2Dexact = (obj)c; }
    { static obj c[] = { obj_from_case(66) }; cx__25residual_2Dinexact = (obj)c; }
    { static obj c[] = { obj_from_case(67) }; cx__25residual_2Dzero_3F = (obj)c; }
    { static obj c[] = { obj_from_case(68) }; cx__25residual_2Dpositive_3F = (obj)c; }
    { static obj c[] = { obj_from_case(69) }; cx__25residual_2Dnegative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(70) }; cx__25residual_2Deven_3F = (obj)c; }
    { static obj c[] = { obj_from_case(71) }; cx__25residual_2Dodd_3F = (obj)c; }
    { static obj c[] = { obj_from_case(72) }; cx__25residual_2Dnan_3F = (obj)c; }
    { static obj c[] = { obj_from_case(73) }; cx__25residual_2Dinfinite_3F = (obj)c; }
    { static obj c[] = { obj_from_case(74) }; cx__25residual_2Dfinite_3F = (obj)c; }
    { static obj c[] = { obj_from_case(75) }; cx__25residual_2Dabs = (obj)c; }
    { static obj c[] = { obj_from_case(76) }; cx__25residual_2Dquotient = (obj)c; }
    { static obj c[] = { obj_from_case(77) }; cx__25residual_2Dremainder = (obj)c; }
    { static obj c[] = { obj_from_case(78) }; cx__25residual_2Dmodquo = (obj)c; }
    { static obj c[] = { obj_from_case(79) }; cx__25residual_2Dmodulo = (obj)c; }
    { static obj c[] = { obj_from_case(80) }; cx_lcm_2F2 = (obj)c; }
    { static obj c[] = { obj_from_case(81) }; cx__25residual_2Dnumerator = (obj)c; }
    { static obj c[] = { obj_from_case(82) }; cx__25residual_2Ddenominator = (obj)c; }
    { static obj c[] = { obj_from_case(83) }; cx__25residual_2Drationalize = (obj)c; }
    { static obj c[] = { obj_from_case(84) }; cx__25residual_2Dfloor = (obj)c; }
    { static obj c[] = { obj_from_case(85) }; cx__25residual_2Dceiling = (obj)c; }
    { static obj c[] = { obj_from_case(86) }; cx__25residual_2Dtruncate = (obj)c; }
    { static obj c[] = { obj_from_case(87) }; cx__25residual_2Dround = (obj)c; }
    { static obj c[] = { obj_from_case(88) }; cx__25residual_2Dsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(89) }; cx__25residual_2Dexp = (obj)c; }
    { static obj c[] = { obj_from_case(90) }; cx__25residual_2Dsin = (obj)c; }
    { static obj c[] = { obj_from_case(91) }; cx__25residual_2Dcos = (obj)c; }
    { static obj c[] = { obj_from_case(92) }; cx__25residual_2Dtan = (obj)c; }
    { static obj c[] = { obj_from_case(93) }; cx__25residual_2Dasin = (obj)c; }
    { static obj c[] = { obj_from_case(94) }; cx__25residual_2Dacos = (obj)c; }
    { static obj c[] = { obj_from_case(95) }; cx__25residual_2Dexpt = (obj)c; }
    { static obj c[] = { obj_from_case(96) }; cx__25residual_2Dsquare = (obj)c; }
    { static obj c[] = { obj_from_case(97) }; cx__25residual_2Dchar_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_2Ddigit_2Dvalue = (obj)c; }
    { static obj c[] = { obj_from_case(108) }; cx__25residual_2Dstring_3F = (obj)c; }
    { static obj c[] = { obj_from_case(109) }; cx__25residual_2Dstring_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(110) }; cx__25residual_2Dstring_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(111) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(112) }; cx__25residual_2Dstring_2Dupcase = (obj)c; }
    { static obj c[] = { obj_from_case(113) }; cx__25residual_2Dstring_2Ddowncase = (obj)c; }
    { static obj c[] = { obj_from_case(114) }; cx__25residual_2Dsubstring = (obj)c; }
    { static obj c[] = { obj_from_case(115) }; cx__25residual_2D_25string_2Dappend = (obj)c; }
    { static obj c[] = { obj_from_case(116) }; cx__25residual_2D_25string_2Dcopy = (obj)c; }
    { static obj c[] = { obj_from_case(117) }; cx_substring_2Dcopy_21 = (obj)c; }
    { static obj c[] = { obj_from_case(118) }; cx_substring_2Dfill_21 = (obj)c; }
    { static obj c[] = { obj_from_case(119) }; cx__25residual_2D_25string_2Dfill_21 = (obj)c; }
    { static obj c[] = { obj_from_case(120) }; cx__25residual_2Dstring_2Dposition = (obj)c; }
    { static obj c[] = { obj_from_case(121) }; cx__25residual_2Dvector_3F = (obj)c; }
    { static obj c[] = { obj_from_case(122) }; cx__25residual_2D_25new_2Dvector = (obj)c; }
    { static obj c[] = { obj_from_case(123) }; cx__25residual_2D_25make_2Dvector = (obj)c; }
    { static obj c[] = { obj_from_case(124) }; cx__25residual_2Dvector_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(125) }; cx__25residual_2Dvector_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(126) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(127) }; cx_subvector_2Dcopy_21 = (obj)c; }
    { static obj c[] = { obj_from_case(128) }; cx_subvector = (obj)c; }
    { static obj c[] = { obj_from_case(129) }; cx_subvector_2Dfill_21 = (obj)c; }
    { static obj c[] = { obj_from_case(130) }; cx__25residual_2Dbyte_3F = (obj)c; }
    { static obj c[] = { obj_from_case(131) }; cx__25residual_2Dbytevector_3F = (obj)c; }
    { static obj c[] = { obj_from_case(132) }; cx__25residual_2Dbytevector_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(133) }; cx__25residual_2Dbytevector_2Du8_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(134) }; cx__25residual_2Dbytevector_2Du8_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(135) }; cx__25residual_2Dbytevector_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(136) }; cx_subbytevector_2Dcopy_21 = (obj)c; }
    { static obj c[] = { obj_from_case(137) }; cx__25residual_2Dsubbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(138) }; cx__25residual_2Dbox_3F = (obj)c; }
    { static obj c[] = { obj_from_case(139) }; cx__25residual_2Dbox = (obj)c; }
    { static obj c[] = { obj_from_case(140) }; cx__25residual_2Dunbox = (obj)c; }
    { static obj c[] = { obj_from_case(141) }; cx__25residual_2Dset_2Dbox_21 = (obj)c; }
    { static obj c[] = { obj_from_case(142) }; cx__25residual_2Dnull_3F = (obj)c; }
    { static obj c[] = { obj_from_case(143) }; cx__25residual_2Dpair_3F = (obj)c; }
    { static obj c[] = { obj_from_case(144) }; cx__25residual_2Datom_3F = (obj)c; }
    { static obj c[] = { obj_from_case(145) }; cx__25residual_2Dlist_3F = (obj)c; }
    { static obj c[] = { obj_from_case(146) }; cx__25residual_2Dcons = (obj)c; }
    { static obj c[] = { obj_from_case(147) }; cx__25residual_2Dcar = (obj)c; }
    { static obj c[] = { obj_from_case(148) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; }
    { static obj c[] = { obj_from_case(149) }; cx__25residual_2Dcdr = (obj)c; }
    { static obj c[] = { obj_from_case(150) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; }
    { static obj c[] = { obj_from_case(151) }; cx__25residual_2Dcaar = (obj)c; }
    { static obj c[] = { obj_from_case(152) }; cx__25residual_2Dcadr = (obj)c; }
    { static obj c[] = { obj_from_case(153) }; cx__25residual_2Dcdar = (obj)c; }
    { static obj c[] = { obj_from_case(154) }; cx__25residual_2Dcddr = (obj)c; }
    { static obj c[] = { obj_from_case(155) }; cx__25residual_2Dcaaar = (obj)c; }
    { static obj c[] = { obj_from_case(156) }; cx__25residual_2Dcaadr = (obj)c; }
    { static obj c[] = { obj_from_case(157) }; cx__25residual_2Dcadar = (obj)c; }
    { static obj c[] = { obj_from_case(158) }; cx__25residual_2Dcaddr = (obj)c; }
    { static obj c[] = { obj_from_case(159) }; cx__25residual_2Dcdaar = (obj)c; }
    { static obj c[] = { obj_from_case(160) }; cx__25residual_2Dcdadr = (obj)c; }
    { static obj c[] = { obj_from_case(161) }; cx__25residual_2Dcddar = (obj)c; }
    { static obj c[] = { obj_from_case(162) }; cx__25residual_2Dcdddr = (obj)c; }
    { static obj c[] = { obj_from_case(163) }; cx__25residual_2Dcaaaar = (obj)c; }
    { static obj c[] = { obj_from_case(164) }; cx__25residual_2Dcaaadr = (obj)c; }
    { static obj c[] = { obj_from_case(165) }; cx__25residual_2Dcaadar = (obj)c; }
    { static obj c[] = { obj_from_case(166) }; cx__25residual_2Dcaaddr = (obj)c; }
    { static obj c[] = { obj_from_case(167) }; cx__25residual_2Dcadaar = (obj)c; }
    { static obj c[] = { obj_from_case(168) }; cx__25residual_2Dcadadr = (obj)c; }
    { static obj c[] = { obj_from_case(169) }; cx__25residual_2Dcaddar = (obj)c; }
    { static obj c[] = { obj_from_case(170) }; cx__25residual_2Dcadddr = (obj)c; }
    { static obj c[] = { obj_from_case(171) }; cx__25residual_2Dcdaaar = (obj)c; }
    { static obj c[] = { obj_from_case(172) }; cx__25residual_2Dcdaadr = (obj)c; }
    { static obj c[] = { obj_from_case(173) }; cx__25residual_2Dcdadar = (obj)c; }
    { static obj c[] = { obj_from_case(174) }; cx__25residual_2Dcdaddr = (obj)c; }
    { static obj c[] = { obj_from_case(175) }; cx__25residual_2Dcddaar = (obj)c; }
    { static obj c[] = { obj_from_case(176) }; cx__25residual_2Dcddadr = (obj)c; }
    { static obj c[] = { obj_from_case(177) }; cx__25residual_2Dcdddar = (obj)c; }
    { static obj c[] = { obj_from_case(178) }; cx__25residual_2Dcddddr = (obj)c; }
    { static obj c[] = { obj_from_case(179) }; cx__25make_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(180) }; cx__25residual_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(181) }; cx__25residual_2Dreverse = (obj)c; }
    { static obj c[] = { obj_from_case(182) }; cx__25residual_2Dreverse_21 = (obj)c; }
    { static obj c[] = { obj_from_case(183) }; cx__25append = (obj)c; }
    { static obj c[] = { obj_from_case(184) }; cx_list_2Dcopy = (obj)c; }
    { static obj c[] = { obj_from_case(186) }; cx__25residual_2Dlist_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(187) }; cx__25residual_2Dlist_2Dtail = (obj)c; }
    { static obj c[] = { obj_from_case(188) }; cx__25residual_2Dlist_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(189) }; cx__25residual_2Dlast_2Dpair = (obj)c; }
    { static obj c[] = { obj_from_case(190) }; cx__25residual_2Dsymbol_3F = (obj)c; }
    { static obj c[] = { obj_from_case(191) }; cx__25residual_2Dmake_2Drecord = (obj)c; }
    { static obj c[] = { obj_from_case(192) }; cx__25residual_2Drecord_2Dtype_2Ddescriptor = (obj)c; }
    { static obj c[] = { obj_from_case(193) }; cx__25residual_2Drecord_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(194) }; cx__25residual_2Drecord_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(195) }; cx__25residual_2Drecord_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(196) }; cx__25residual_2Dnew_2Drecord_2Dtype = (obj)c; }
    { static obj c[] = { obj_from_case(197) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(198) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; }
    { static obj c[] = { obj_from_case(199) }; cx_fixnum_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(200) }; cx_flonum_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(201) }; cx_string_2D_3Efixnum = (obj)c; }
    { static obj c[] = { obj_from_case(202) }; cx_string_2D_3Eflonum = (obj)c; }
    { static obj c[] = { obj_from_case(203) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; }
    { static obj c[] = { obj_from_case(204) }; cx_subvector_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(205) }; cx_list_2D_3Evector = (obj)c; }
    { static obj c[] = { obj_from_case(206) }; cx_list_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(207) }; cx_substring_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(208) }; cx__25subvector_2Dstring_2Dcopy_21 = (obj)c; }
    { static obj c[] = { obj_from_case(209) }; cx_subvector_2D_3Estring = (obj)c; }
    { static obj c[] = { obj_from_case(210) }; cx__25substring_2Dvector_2Dcopy_21 = (obj)c; }
    { static obj c[] = { obj_from_case(211) }; cx_substring_2D_3Evector = (obj)c; }
    { static obj c[] = { obj_from_case(212) }; cx_list_2D_3Ebytevector = (obj)c; }
    { static obj c[] = { obj_from_case(213) }; cx_subbytevector_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(214) }; 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(215) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(216) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; }
    { static obj c[] = { obj_from_case(217) }; cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(218) }; cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(219);
    r[0] = (hendblk(0+1));
    hreserve(hbsz(0+1), 1); /* 1 live regs */
    *--hp = obj_from_case(225);
    r[1] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 2); /* 2 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[1];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_make_2Dparameter = (hendblk(9+1)); }
    { static obj c[] = { obj_from_case(229) }; cx_promise_3F = (obj)c; }
    { static obj c[] = { obj_from_case(230) }; cx_make_2Dpromise = (obj)c; }
    { static obj c[] = { obj_from_case(231) }; cx_make_2Dlazy_2Dpromise = (obj)c; }
    { static obj c[] = { obj_from_case(232) }; cx_force = (obj)c; }
    { static obj c[] = { obj_from_case(234) }; cx__25residual_2Deof_2Dobject = (obj)c; }
    { static obj c[] = { obj_from_case(235) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; }
    { static obj c[] = { obj_from_case(236) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; }
    { static obj c[] = { obj_from_case(237) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; }
    { static obj c[] = { obj_from_case(238) }; cx__25residual_2Dport_2Dfold_2Dcase_3F = (obj)c; }
    { static obj c[] = { obj_from_case(239) }; cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21 = (obj)c; }
    { static obj c[] = { obj_from_case(240) }; cx_close_2Dinput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(241) }; cx__25residual_2Dinput_2Dport_2Dopen_3F = (obj)c; }
    cx__2Acurrent_2Dinput_2Dport_2A = (mkiport_file(0, stdin));
    { static obj c[] = { obj_from_case(242) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(243) }; cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(244) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(245) }; cx__25residual_2Dopen_2Dinput_2Dbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(246) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; }
    { static obj c[] = { obj_from_case(247) }; cx_close_2Doutput_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(248) }; cx__25residual_2Doutput_2Dport_2Dopen_3F = (obj)c; }
    cx__2Acurrent_2Doutput_2Dport_2A = (mkoport_file(0, stdout));
    cx__2Acurrent_2Derror_2Dport_2A = (mkoport_file(0, stderr));
    { static obj c[] = { obj_from_case(249) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(250) }; cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(251) }; cx__25residual_2Dopen_2Doutput_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(252) }; cx__25residual_2Dget_2Doutput_2Dstring = (obj)c; }
    { static obj c[] = { obj_from_case(253) }; cx__25residual_2Dopen_2Doutput_2Dbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(254) }; cx__25residual_2Dget_2Doutput_2Dbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(255) }; cx__25residual_2Dport_3F = (obj)c; }
    { static obj c[] = { obj_from_case(256) }; cx_close_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(257) }; cx_call_2Dwith_2Dinput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(259) }; cx_call_2Dwith_2Doutput_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(261) }; cx_with_2Dinput_2Dfrom_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(267) }; cx_with_2Doutput_2Dto_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(273) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(275) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(277) }; cx__25read_2Dline = (obj)c; }
    { static obj c[] = { obj_from_case(278) }; cx_read_2Dsubstring_21 = (obj)c; }
    { static obj c[] = { obj_from_case(279) }; cx_read_2Dsubstring = (obj)c; }
    { static obj c[] = { obj_from_case(280) }; cx_write_2Dsubstring = (obj)c; }
    { static obj c[] = { obj_from_case(281) }; cx_read_2Dsubbytevector_21 = (obj)c; }
    { static obj c[] = { obj_from_case(282) }; cx_read_2Dsubbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(283) }; cx_write_2Dsubbytevector = (obj)c; }
    { static obj c[] = { obj_from_case(284) }; cx__25residual_2Dcircular_3F = (obj)c; }
    { static obj c[] = { obj_from_case(285) }; cx__25residual_2Deq_3F = (obj)c; }
    { static obj c[] = { obj_from_case(286) }; cx__25residual_2Deqv_3F = (obj)c; }
    { static obj c[] = { obj_from_case(287) }; cx__25residual_2Dequal_3F = (obj)c; }
    { static obj c[] = { obj_from_case(288) }; cx__25residual_2Dmemq = (obj)c; }
    { static obj c[] = { obj_from_case(289) }; cx__25residual_2Dmemv = (obj)c; }
    { static obj c[] = { obj_from_case(290) }; cx__25residual_2Dmeml = (obj)c; }
    { static obj c[] = { obj_from_case(291) }; cx__25member = (obj)c; }
    { static obj c[] = { obj_from_case(293) }; cx__25residual_2Dassq = (obj)c; }
    { static obj c[] = { obj_from_case(294) }; cx__25residual_2Dassv = (obj)c; }
    { static obj c[] = { obj_from_case(295) }; cx__25residual_2Dassl = (obj)c; }
    { static obj c[] = { obj_from_case(296) }; cx__25assoc = (obj)c; }
    { static obj c[] = { obj_from_case(298) }; cx_print_2Derror_2Dmessage = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(300);
    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_simple_2Derror = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(302);
    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)); }
    { static obj c[] = { obj_from_case(304) }; cx__25read = (obj)c; }
    { static obj c[] = { obj_from_case(369) }; cx_file_2Dexists_3F = (obj)c; }
    { static obj c[] = { obj_from_case(370) }; cx_delete_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(371) }; cx_rename_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(372) }; 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(374) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; }
    { static obj c[] = { obj_from_case(377) }; cx_dynamic_2Dwind = (obj)c; }
    { static obj c[] = { obj_from_case(382) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (cx__232128);
    *--hp = (mksymbol(internsym("<error-object>")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__3Cerror_2Dobject_3E = (hendblk(3)); }
    { static obj c[] = { obj_from_case(384) }; cx_error_2Dobject = (obj)c; }
    { static obj c[] = { obj_from_case(385) }; cx_error_2Dobject_3F = (obj)c; }
    { static obj c[] = { obj_from_case(386) }; cx_error_2Dobject_2Dkind = (obj)c; }
    { static obj c[] = { obj_from_case(387) }; cx_error_2Dobject_2Dmessage = (obj)c; }
    { static obj c[] = { obj_from_case(388) }; cx_error_2Dobject_2Dirritants = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(389);
    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_error = (hendblk(3)); }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(391);
    r[0] = (hendblk(0+1));
    hreserve(hbsz(1), 1); /* 1 live regs */
    *--hp = obj_from_void(0);
    r[1] = (hendblk(1));
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(2563);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2564);
    r[3] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 4); /* 4 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    r[2] = (hendblk(9+1)); }
    (void)(objptr_from_obj(r[1])[0] = (r[2]));
    r[1] = (objptr_from_obj(r[1])[0]);
    r[2+0] = (cx_make_2Dparameter);
    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 1: /* %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 2: /* %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 3: /* %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 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-fxmodquo 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(fxmqu(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-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 17: /* %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 18: /* %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 19: /* %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 20: /* %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 21: /* %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 22: /* %residual-fxsqrt 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(fxsqrt(fixnum_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 23: /* %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 24: /* %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 25: /* %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 26: /* %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 27: /* %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 28: /* %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 29: /* %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 30: /* %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 31: /* %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 32: /* %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 33: /* %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 34: /* %residual-flinteger? 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(flisint(flonum_from_obj(r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 35: /* %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 36: /* %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 37: /* %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 38: /* %residual-flodd? 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(flisint((flonum_from_obj(r[1]) + 1.0) / 2.0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 39: /* %residual-fleven? 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(flisint(flonum_from_obj(r[1]) / 2.0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 40: /* %residual-flnan? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flnan? */ 
    flonum_t f = flonum_from_obj(r[1]);
    r[2] = obj_from_bool(f != 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 41: /* %residual-flinfinite? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flinfinite? */ 
    flonum_t f = flonum_from_obj(r[1]);
    r[2] = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); }
    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-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 43: /* %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 44: /* %residual-flmodquo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = obj_from_flonum(3, flmqu(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 45: /* %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 46: /* %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 47: /* %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 48: /* %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 49: /* %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 50: /* %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 51: /* %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 52: /* %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 53: /* %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 54: /* %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 55: /* %residual-fllog10 k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_flonum(2, log10(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 56: /* %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 57: /* %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 58: /* %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 59: /* %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 60: /* %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 61: /* %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 62: /* %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 63: /* %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 64: /* %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 65: /* %residual-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_2Dexact((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 66: /* %residual-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 67: /* %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 68: /* %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 69: /* %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 70: /* %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 71: /* %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 72: /* %residual-nan? 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_2Dnan_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 73: /* %residual-infinite? 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_2Dinfinite_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 74: /* %residual-finite? 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_2Dfinite_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 75: /* %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 76: /* %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 v43715_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxquo((v43715_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43716_tmp = ((flonum_t)(v43715_x));
    r[3] = obj_from_flonum(3, flquo((v43716_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43714_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v43714_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 77: /* %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 v43712_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxrem((v43712_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43713_tmp = ((flonum_t)(v43712_x));
    r[3] = obj_from_flonum(3, flrem((v43713_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43711_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v43711_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 78: /* %residual-modquo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v43709_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxmqu((v43709_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43710_tmp = ((flonum_t)(v43709_x));
    r[3] = obj_from_flonum(3, flmqu((v43710_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43708_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), (v43708_tmp))); } 
  } else {
    r[3] = obj_from_flonum(3, flmqu(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 79: /* %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 v43706_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxmlo((v43706_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43707_tmp = ((flonum_t)(v43706_x));
    r[3] = obj_from_flonum(3, flmlo((v43707_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43705_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v43705_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 80: /* 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 v43697_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_fixnum(fxgcd((v43697_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43698_tmp = ((flonum_t)(v43697_x));
    r[3] = obj_from_flonum(3, flgcd((v43698_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43696_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v43696_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 v43700_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_fixnum(fxquo((v43700_a), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43701_tmp = ((flonum_t)(v43700_a));
    r[4] = obj_from_flonum(5, flquo((v43701_tmp), flonum_from_obj(r[3]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43699_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v43699_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 v43703_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[5]))) {
    r[3] = obj_from_fixnum(fxmul((v43703_a), fixnum_from_obj(r[5])));
  } else {
    { const flonum_t v43704_tmp = ((flonum_t)(v43703_a));
    r[3] = obj_from_flonum(6, (v43704_tmp) * flonum_from_obj(r[5])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[5]))) {
    { const flonum_t v43702_tmp = ((flonum_t)fixnum_from_obj(r[5]));
    r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v43702_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 81: /* %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 82: /* %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 83: /* %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 84: /* %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 85: /* %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 86: /* %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 87: /* %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 88: /* %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 89: /* %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 90: /* %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 91: /* %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 92: /* %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 93: /* %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 94: /* %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 95: /* %residual-expt k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (((is_fixnum_obj(r[1])) && ((is_fixnum_obj(r[2])) && (fixnum_from_obj(r[2]) >= (+0))))) {
    r[3] = obj_from_fixnum(fxpow(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
  } else {
    r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
    r[4] = ((is_flonum_obj(r[2])) ? (r[2]) : obj_from_flonum(4, (flonum_t)fixnum_from_obj(r[2])));
    r[3] = obj_from_flonum(5, pow(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 96: /* %residual-square k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
  if ((is_fixnum_obj(r[1]))) {
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v43695_x = fixnum_from_obj(r[1]);
    r[2] = obj_from_fixnum(fxmul((v43695_x), (v43695_x))); } 
  } else {
    { const flonum_t v43694_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[2] = obj_from_flonum(2, (v43694_tmp) * flonum_from_obj(r[1])); } 
  }
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v43693_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * (v43693_tmp)); } 
  } else {
    r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * 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 97: /* %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 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-digit-value 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_2Ddigit_2Dvalue((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 108: /* %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 109: /* %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 110: /* %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 111: /* %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 112: /* %residual-string-upcase k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-upcase */
    int *d = dupstring(stringdata((r[1]))); char *s;
    for (s = sdatachars(d); *s; ++s) *s = toupper(*s);
    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 113: /* %residual-string-downcase k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-downcase */
    int *d = dupstring(stringdata((r[1]))); char *s;
    for (s = sdatachars(d); *s; ++s) *s = tolower(*s);
    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 114: /* %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 115: /* %residual-%string-append 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 116: /* %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 117: /* substring-copy! k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 118: /* substring-fill! k str c start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str c start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 119: /* %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 120: /* %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 121: /* %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 122: /* %residual-%new-vector k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
    { /* new-vector */
    int c = fixnum_from_obj(r[1]);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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 123: /* %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 124: /* %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 125: /* %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 126: /* %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 127: /* subvector-copy! k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 128: /* subvector k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_subvector: /* k vec start end */
    { /* new-vector */
    int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(c+1)); }
    (void)(cxs_subvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3])));
    /* r[4] */    
    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 129: /* subvector-fill! k vec x start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec x start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 130: /* %residual-byte? 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_byte_obj((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 131: /* %residual-bytevector? 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(isbytevector((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 132: /* %residual-bytevector-length k bv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k bv */
    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(bytevectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 133: /* %residual-bytevector-u8-ref k bv k */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k bv 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_fixnum(*bytevectorref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 134: /* %residual-bytevector-u8-set! k bv k b */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k bv k b */
    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(*bytevectorref((r[1]), fixnum_from_obj(r[2])) = byte_from_fixnum(fixnum_from_obj(r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 135: /* %residual-bytevector=? 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(bytevectoreq(bytevectordata((r[1])), bytevectordata((r[2]))));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 136: /* subbytevector-copy! k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 137: /* %residual-subbytevector k bv start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k bv start end */
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
    r[4] = (hpushu8v(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 138: /* %residual-box? 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(isbox((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 139: /* %residual-box k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* box */ 
    hreserve(hbsz(2), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(BOX_BTAG); 
    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 140: /* %residual-unbox k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (boxref((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 141: /* %residual-set-box! k b o */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k b o */
    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(boxref((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 142: /* %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 143: /* %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 144: /* %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 145: /* %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 146: /* %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 147: /* %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 148: /* %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 149: /* %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 150: /* %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 151: /* %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 152: /* %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 153: /* %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 154: /* %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 155: /* %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 156: /* %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 157: /* %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 158: /* %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 159: /* %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 160: /* %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 161: /* %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 162: /* %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 163: /* %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 164: /* %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 165: /* %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 166: /* %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 167: /* %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 168: /* %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 169: /* %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 170: /* %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 171: /* %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 172: /* %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 173: /* %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 174: /* %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 175: /* %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 176: /* %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 177: /* %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 178: /* %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 179: /* %make-list k n i */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs__25make_2Dlist: /* k n i */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = (mknull());
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop;

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

case 180: /* %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 181: /* %residual-reverse k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43690_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43690_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43690_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 182: /* %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 183: /* %append k l o */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k l o */
    { fixnum_t v43689_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43689_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43689_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 184: /* list-copy k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_list_2Dcopy: /* k obj */
  if ((ispair((r[1])))) {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(185);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    r[1] = (cdr((r[1])));
    goto gs_list_2Dcopy;
  } else {
    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 185: /* 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 obj */
    { /* 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 186: /* %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 187: /* %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 188: /* %residual-list-set! k l n obj */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k l n obj */
    { /* list-tail */
    obj l = (cx__25residual_2Dlist); int c = fixnum_from_obj(r[2]);
    while (c-- > 0) l = cdr(l);
    r[4] = (l); }
    r[4] = obj_from_void(car((r[4])) = (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;

case 189: /* %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 190: /* %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 191: /* %residual-make-record k rtd n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k rtd n */
    { /* make-record */
    int c = fixnum_from_obj(r[2]);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = r[1];   assert(isobjptr(*hp));
    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 192: /* %residual-record-type-descriptor k r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k r */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (recordrtd((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 193: /* %residual-record-length k r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k r */
    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(recordlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 195: /* %residual-record-set! k r i x */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k r 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(recordref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 196: /* %residual-new-record-type k name fields */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name fields */
    { /* 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 197: /* %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 198: /* %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])))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 199: /* 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 200: /* flonum->string k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else 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 201: /* 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 202: /* 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;
    if (*s != '+' && *s != '-') d = strtod(s, &e);
    else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); 
    else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL;
    else d = 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 203: /* %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;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    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 204: /* subvector->list k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_subvector_2D_3Elist: /* k vec start end */
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
    r[4+2] = (mknull());
    r[4+3] = r[1];  
    r[4+4] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v42077;

s_loop_v42077: /* k i l vec start */
    { const fixnum_t v43688_i = fixnum_from_obj(r[1]);
  if (((v43688_i) < fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5] = (vectorref((r[3]), (v43688_i)));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    /* r[0] */    
    r[1] = obj_from_fixnum(fxsub((v43688_i), (+1)));
    r[2] = r[5];  
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v42077;
  } } 

case 205: /* list->vector k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43687_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43687_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43687_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 206: /* list->string k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43686_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43686_tmp = (n); }
    { /* list->string */
    int i, c = (v43686_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 207: /* substring->list k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_substring_2D_3Elist: /* k str start end */
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
    r[4+2] = (mknull());
    r[4+3] = r[1];  
    r[4+4] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v42048;

s_loop_v42048: /* k i l str start */
    { const fixnum_t v43685_i = fixnum_from_obj(r[1]);
  if (((v43685_i) < fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5] = obj_from_char(*(unsigned char*)stringref((r[3]), (v43685_i)));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    /* r[0] */    
    r[1] = obj_from_fixnum(fxsub((v43685_i), (+1)));
    r[2] = r[5];  
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v42048;
  } } 

case 208: /* %subvector-string-copy! k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs__25subvector_2Dstring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 209: /* subvector->string k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_subvector_2D_3Estring: /* k vec start end */
    r[4] = (hpushstr(4, allocstring((fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))), '?')));
    r[4] = (cxs__25subvector_2Dstring_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (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;

case 210: /* %substring-vector-copy! k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs__25substring_2Dvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 211: /* substring->vector k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str start end */
    { /* new-vector */
    int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(c+1)); }
    r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (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;

case 212: /* list->bytevector k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43684_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43684_tmp = (n); }
    { /* list->bytevector */
    int i, c = (v43684_tmp); 
    obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = bytevectorbytes(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_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 213: /* subbytevector->list k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_subbytevector_2D_3Elist: /* k vec start end */
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
    r[4+2] = (mknull());
    r[4+3] = r[1];  
    r[4+4] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41977;

s_loop_v41977: /* k i l vec start */
    { const fixnum_t v43683_i = fixnum_from_obj(r[1]);
  if (((v43683_i) < fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5] = obj_from_fixnum(*bytevectorref((r[3]), (v43683_i)));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    /* r[0] */    
    r[1] = obj_from_fixnum(fxsub((v43683_i), (+1)));
    r[2] = r[5];  
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v41977;
  } } 

case 214: /* %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 215: /* %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 216: /* %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 217: /* %residual-make-argc-dispatch-lambda k pv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k pv */
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_objptr(appcases+3);
    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 218: /* %residual-argc-dispatch-lambda? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* argc-dispatch-lambda? */
    obj x = r[1];  
    r[2] = obj_from_bool(isprocedure(x) && *procedureref(x, 0) == obj_from_objptr(appcases+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 219: /* clo k init converter */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k init converter */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(220);
    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 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 */
    /* ek r k converter */
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = r[1];  
    r[4] = (hendblk(1));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(221);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(222);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(224);
    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(+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(12+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 221: /* clo k x s */
    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 s converter value */
  if (bool_from_obj(r[2])) {
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (objptr_from_obj(r[4])[0] = (r[1]));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 222: /* 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 converter value */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(223);
    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 223: /* 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] = (objptr_from_obj(r[3])[0] = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 225: /* clo k value */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k value */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = r[1];  
    r[2] = (hendblk(1));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(226);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(227);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(228);
    r[5] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--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[2] = (hendblk(12+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 226: /* clo k x s */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x s value */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (bool_from_obj(r[2]) ? (objptr_from_obj(r[3])[0] = (r[1])) : (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 227: /* 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 value */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (objptr_from_obj(r[2])[0] = (r[1]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 229: /* promise? 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(isbox((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 230: /* make-promise k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_bool(1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* box */ 
    hreserve(hbsz(2), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_size(BOX_BTAG); 
    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 231: /* make-lazy-promise k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* box */ 
    hreserve(hbsz(2), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_size(BOX_BTAG); 
    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 232: /* force k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_force: /* k p */
    r[2] = (boxref((r[1])));
  if (bool_from_obj(car((r[2])))) {
    /* 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;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(233);
    r[3] = (hendblk(2+1));
    r[4+0] = (cdr((r[2])));
    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 233: /* 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 */
    r[4] = (boxref((r[3])));
  if (bool_from_obj(car((r[4])))) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    r[5] = (boxref((r[1])));
    r[5] = (car((r[5])));
    (void)(car((r[4])) = (r[5]));
    r[5] = (boxref((r[1])));
    r[5] = (cdr((r[5])));
    (void)(cdr((r[4])) = (r[5]));
    (void)(boxref((r[1])) = (r[4]));
  }
    r[0] = r[2];  
    r[1] = r[3];  
    goto gs_force;

case 234: /* %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 235: /* %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 236: /* %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 237: /* %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(isiport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 238: /* %residual-port-fold-case? k ip */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k ip */
    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(((void)ckiportvt((r[1])), 0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 239: /* %residual-set-port-fold-case! k ip b */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k ip b */
    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(ckiportvt((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 240: /* 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);
    vt->close(iportdata(o)); vt->free(iportdata(o));  
    objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG; 
    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 241: /* %residual-input-port-open? 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_bool(ckiportvt((r[1])) != (cxtype_iport_t *)IPORT_CLOSED_NTAG);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 242: /* %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__231115))));
  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_file_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231119);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 243: /* %residual-open-binary-input-file k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231123))));
  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_file_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231127);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 244: /* %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 245: /* %residual-open-input-bytevector k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* open-input-bytevector */
    int *d = dupbytevector(bytevectordata((r[1])));
    unsigned char *p = bvdatabytes(d), *e = p + *d;
    r[2] = (mkiport_bytevector(2, bvialloc(p, e, 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 246: /* %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 247: /* close-output-port k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* close-output-port */
    obj o = r[1];   cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    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 248: /* %residual-output-port-open? 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_bool(ckoportvt((r[1])) != (cxtype_oport_t *)OPORT_CLOSED_NTAG);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 249: /* %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__231142))));
  if (bool_from_obj(r[2])) {
    r[3] = (mkoport_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_file_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231146);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 250: /* %residual-open-binary-output-file k fn */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k fn */
    r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231149))));
  if (bool_from_obj(r[2])) {
    r[3] = (mkoport_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_file_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231153);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 251: /* %residual-open-output-string k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { /* open-output-string */
    r[1] = (mkoport_string(1, newcb())); }
    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 252: /* %residual-get-output-string k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* get-output-string */
    obj o = r[1];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[2] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[2] = (hpushstr(2, newstring(cbdata(pcb)))); } }
    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 253: /* %residual-open-output-bytevector k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { /* open-output-bytevector */
    r[1] = (mkoport_bytevector(1, newcb())); }
    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 254: /* %residual-get-output-bytevector k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* get-output-bytevector */
    obj o = r[1];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG &&
        vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[2] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf); 
    r[2] = (hpushu8v(2, newbytevector((unsigned char *)pcb->buf, len))); } }
    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 255: /* %residual-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] = (cxs__25residual_2Dport_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 256: /* close-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] = (cxs_close_2Dport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 257: /* call-with-input-file k fname proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Dinput_2Dfile: /* k fname proc */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231115))));
  if (bool_from_obj(r[3])) {
    r[4] = (mkiport_file(4, (void*)((r[3]))));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    goto gs_call_2Dwith_2Dport;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(258);
    r[4] = (hendblk(2+1));
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__231119);
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 258: /* 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 proc k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_call_2Dwith_2Dport;

case 259: /* call-with-output-file k fname proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Doutput_2Dfile: /* k fname proc */
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231142))));
  if (bool_from_obj(r[3])) {
    r[4] = (mkoport_file(4, (void*)((r[3]))));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    goto gs_call_2Dwith_2Dport;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(260);
    r[4] = (hendblk(2+1));
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__231146);
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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; /* shift reg. wnd */
    /* ek r proc k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_call_2Dwith_2Dport;

case 261: /* with-input-from-port k port thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_with_2Dinput_2Dfrom_2Dport: /* k port thunk */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(262);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_bool(0);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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 thunk k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(263);
    r[4] = (hendblk(3+1));
    r[0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r thunk r k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(264);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(265);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(266);
    r[7] = (hendblk(1+1));
    r[8+0] = r[4];  
    r[8+1] = r[5];  
    r[8+2] = r[6];  
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

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

case 265: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k thunk */
    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 266: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k r */
    r[2+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r[2+3] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 267: /* with-output-to-port k port thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_with_2Doutput_2Dto_2Dport: /* k port thunk */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(268);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_bool(0);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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; /* shift reg. wnd */
    /* ek r thunk k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(269);
    r[4] = (hendblk(3+1));
    r[0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    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 thunk r k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(270);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(271);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(272);
    r[7] = (hendblk(1+1));
    r[8+0] = r[4];  
    r[8+1] = r[5];  
    r[8+2] = r[6];  
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

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

case 271: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k thunk */
    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 272: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k r */
    r[2+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r[2+3] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 273: /* with-input-from-file k fname thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fname thunk */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(274);
    r[3] = (hendblk(1+1));
    /* r[0] */    
    /* r[1] */    
    r[2] = r[3];  
    goto gs_call_2Dwith_2Dinput_2Dfile;

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

case 275: /* with-output-to-file k fname thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fname thunk */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(276);
    r[3] = (hendblk(1+1));
    /* r[0] */    
    /* r[1] */    
    r[2] = r[3];  
    goto gs_call_2Dwith_2Doutput_2Dfile;

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

case 277: /* %read-line k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs__25read_2Dline: /* k p */
    { /* open-output-string */
    r[2] = (mkoport_string(2, newcb())); }
    r[3+0] = r[0];  
    r[3+1] = obj_from_bool(1);
    r[3+2] = r[2];  
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41586;

s_loop_v41586: /* k read-nothing? op p */
    { int c = iportgetc((r[3]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if (((iseof((r[4]))) || (char_from_obj(r[4]) == (10)))) {
    { /* get-output-string */
    obj o = r[2];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[5] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } }
    { /* close-output-port */
    obj o = r[2];   cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    (void)(0); }
    r[5] = (bool_from_obj((iseof((r[4]))) ? (r[1]) : obj_from_bool(0)) ? (r[4]) : (r[5]));
    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 {
  if ((char_from_obj(r[4]) == (13))) {
    /* r[0] */    
    r[1] = obj_from_bool(0);
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v41586;
  } else {
    (void)(oportputc(char_from_obj(r[4]), (r[2])));
    /* r[0] */    
    r[1] = obj_from_bool(0);
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v41586;
  }
  }

case 278: /* read-substring! k str start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 279: /* read-substring k k p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_read_2Dsubstring: /* k k p */
    r[3] = (hpushstr(3, allocstring(fixnum_from_obj(r[1]), '?')));
    r[4] = (cxs_read_2Dsubstring_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2])));
  if ((iseof((r[4])))) {
    r[3] = r[4];  
  } else {
  if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) {
    /* r[3] */    
  } else {
    { /* substring */
    int *d = substring(stringdata((r[3])), (+0), fixnum_from_obj(r[4]));
    r[3] = (hpushstr(5, 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 280: /* write-substring k from start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k from start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 281: /* read-subbytevector! k vec start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 282: /* read-subbytevector k k p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_read_2Dsubbytevector: /* k k p */
    r[3] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[1]))));
    r[4] = (cxs_read_2Dsubbytevector_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2])));
  if ((iseof((r[4])))) {
    r[3] = r[4];  
  } else {
  if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) {
    /* r[3] */    
  } else {
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[3])), (+0), fixnum_from_obj(r[4]));
    r[3] = (hpushu8v(5, 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 283: /* write-subbytevector k from start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k from start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 284: /* %residual-circular? 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(iscircular((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 285: /* %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 286: /* %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 287: /* %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 288: /* %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 289: /* %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 290: /* %residual-meml 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 291: /* %member k x l eq */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs__25member: /* k x l eq */
  if ((ispair((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(292);
    r[4] = (hendblk(4+1));
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = (car((r[2])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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;
  }

case 292: /* 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 eq x k l */
  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[6+0] = r[4];  
    r[6+1] = r[3];  
    r[6+2] = (cdr((r[5])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25member;
  }

case 293: /* %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 294: /* %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 295: /* %residual-assl 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 296: /* %assoc k x al eq */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs__25assoc: /* k x al eq */
  if ((ispair((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(297);
    r[4] = (hendblk(4+1));
    r[5] = (car((r[2])));
    r[5] = (car((r[5])));
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[1];  
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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;
  }

case 297: /* 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 eq x k al */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (car((r[5])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6+0] = r[4];  
    r[6+1] = r[3];  
    r[6+2] = (cdr((r[5])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25assoc;
  }

case 298: /* 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)(oportputs(stringchars((r[1])), (r[3]))) : (void)(oportputs(stringchars((cx__231390)), (r[3]))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(299);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_pr_2Dwhere;

case 299: /* 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(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_pr_2Drest: /* k args ep */
  if ((ispair((r[1])))) {
    (void)(oportputc((' '), (r[2])));
    r[3] = (car((r[1])));
    (void)(oportputcircular((r[3]), (r[2]), 0));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* 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;
  }

s_pr_2Dmsg: /* k args ep */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(isstring((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
    (void)(oportputcircular((r[3]), (r[2]), 1));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_pr_2Drest;
  } 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;
  }

s_pr_2Dwhere: /* k args ep */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(!bool_from_obj(r[3]));
  if (bool_from_obj(r[3])) {
    (void)(oportputs(stringchars((cx__231375)), (r[2])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_pr_2Dmsg;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(issymbol((r[3])));
  if (bool_from_obj(r[3])) {
    (void)(oportputs(stringchars((cx__231379)), (r[2])));
    r[3] = (car((r[1])));
    (void)(oportputcircular((r[3]), (r[2]), 0));
    (void)(oportputs(stringchars((cx__231375)), (r[2])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_pr_2Dmsg;
  } else {
    (void)(oportputs(stringchars((cx__231375)), (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 300: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
    (void)(oportputc('\n', (r[2])));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(301);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__231390);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_print_2Derror_2Dmessage;

case 301: /* 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 302: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
    (void)(oportputc('\n', (r[2])));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(303);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__231414);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_print_2Derror_2Dmessage;

case 303: /* 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 304: /* %read k port simple? */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs__25read: /* k port simple? */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(305);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    hreserve(hbsz(1), 5); /* 5 live regs */
    *--hp = obj_from_void(0);
    r[5] = (hendblk(1));
    hreserve(hbsz(1), 6); /* 6 live regs */
    *--hp = obj_from_void(0);
    r[6] = (hendblk(1));
    hreserve(hbsz(1), 7); /* 7 live regs */
    *--hp = obj_from_void(0);
    r[7] = (hendblk(1));
    hreserve(hbsz(1), 8); /* 8 live regs */
    *--hp = obj_from_void(0);
    r[8] = (hendblk(1));
    hreserve(hbsz(1+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(306);
    r[9] = (hendblk(1+1));
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(307);
    r[10] = (hendblk(1+1));
    hreserve(hbsz(2+1), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = r[3];  
    *--hp = obj_from_case(311);
    r[11] = (hendblk(2+1));
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = obj_from_case(314);
    r[12] = (hendblk(1+1));
    (void)(objptr_from_obj(r[4])[0] = (mknull()));
    (void)(objptr_from_obj(r[5])[0] = obj_from_bool(0));
    (void)(objptr_from_obj(r[6])[0] = obj_from_bool(0));
    (void)(objptr_from_obj(r[7])[0] = obj_from_bool(0));
    (void)(objptr_from_obj(r[8])[0] = obj_from_bool(0));
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("reader-token")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    (void)(objptr_from_obj(r[5])[0] = (r[13]));
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (cx__231998);
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
    (void)(objptr_from_obj(r[6])[0] = (r[14]));
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (cx__231995);
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
    (void)(objptr_from_obj(r[7])[0] = (r[14]));
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (cx__231992);
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
    (void)(objptr_from_obj(r[8])[0] = (r[14]));
    hreserve(hbsz(0+1), 13); /* 13 live regs */
    *--hp = obj_from_case(357);
    r[13] = (hendblk(0+1));
    hreserve(hbsz(5+1), 14); /* 14 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = (r[13]);
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(316);
    r[13] = (hendblk(5+1));
    r[14+0] = (r[13]);
    r[14+1] = r[1];  
    r[14+2] = r[8];  
    r[14+3] = r[2];  
    r[14+4] = r[4];  
    r[14+5] = r[3];  
    r[14+6] = (r[10]);
    r[14+7] = (r[12]);
    r[14+8] = (r[11]);
    r[14+9] = r[7];  
    r[14+10] = r[6];  
    r[14+11] = r[9];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread;

case 305: /* clo k c */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k c */
    { const char_t v43682_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((v43682_c))) || (((v43682_c) == (')')) || (((v43682_c) == ('(')) || (((v43682_c) == (']')) || (((v43682_c) == ('[')) || (((v43682_c) == (34)) || ((v43682_c) == (';'))))))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 306: /* 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[4] = (objptr_from_obj(r[2])[0]);
    r[3] = obj_from_bool((r[3]) == (r[4]));
  } 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 307: /* 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? */
    { int c = iportpeekc((r[1]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(308);
    r[5] = (hendblk(1+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[5];  
    r[6+6] = r[1];  
    r[6+7] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41286;

case 308: /* 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 */
  if ((isnull((r[1])))) {
    r[3+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231532);
    r[3+3] = (mksymbol(internsym("port:")));
    r[3+4] = (r[2]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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[3] = (v); }
    { fixnum_t v43681_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43681_tmp = (n); }
    { /* list->string */
    int i, c = (v43681_tmp); 
    obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */
    obj l = r[3];   /* 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[3] = (o); } }
    { /* string->fixnum */
    char *e, *s = stringchars((r[3]));
    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[3] = obj_from_bool(0);
    else r[3] = obj_from_fixnum(l); }
    r[3] = obj_from_char((char_t)fixnum_from_obj(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 309: /* 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_v41286: /* k c l cc char-delimiter? rev-digits->char p in-string? */
  if ((iseof((r[1])))) {
  if (bool_from_obj(r[7])) {
    r[8+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = (cx__231560);
    r[8+3] = (mksymbol(internsym("port:")));
    r[8+4] = (r[6]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[8+0] = r[5];  
    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]) == (';')))) {
    { int c = iportgetc((r[6]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[8+0] = r[5];  
    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(309);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[8];  
    *--hp = obj_from_case(310);
    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(309);
    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[3];  
    r[10+4] = r[6];  
    r[10+5] = r[1];  
    r[10+6] = r[5];  
    r[10+7] = r[2];  
    r[10+8] = r[0];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v41288;
  }
  }
  }

case 310: /* 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_v41288: /* ek r loop cc p 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 v43680_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5]));
    r[9] = obj_from_bool(((v43680_scalar_2Dvalue) >= (+48)) && ((v43680_scalar_2Dvalue) <= (+57)));
  if (bool_from_obj(r[9])) {
    /* r[9] */    
  } else {
    r[10] = obj_from_bool(((v43680_scalar_2Dvalue) >= (+65)) && ((v43680_scalar_2Dvalue) <= (+70)));
    r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v43680_scalar_2Dvalue) >= (+97)) && ((v43680_scalar_2Dvalue) <= (+102))));
  } } 
    r[9] = obj_from_bool(!bool_from_obj(r[9]));
  if (bool_from_obj(r[9])) {
    r[9+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = (cx__231556);
    r[9+3] = r[5];  
    r[9+4] = (mksymbol(internsym("port:")));
    r[9+5] = (r[4]);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if ((is_fixnum_obj(r[3]))) {
    r[9] = obj_from_bool(fixnum_from_obj(r[3]) > (+2));
  } else {
    { const flonum_t v43679_tmp = ((flonum_t)(+2));
    r[9] = obj_from_bool(flonum_from_obj(r[3]) > (v43679_tmp)); } 
  }
  if (bool_from_obj(r[9])) {
    r[0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (cx__231548);
    r[3] = (mksymbol(internsym("port:")));
    r[4] = (r[4]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    { int c = iportgetc((r[4]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportpeekc((r[4]));  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[3]))) {
    r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
  } else {
    { const flonum_t v43678_tmp = ((flonum_t)(+1));
    r[11] = obj_from_flonum(11, flonum_from_obj(r[3]) + (v43678_tmp)); } 
  }
    r[12+0] = r[2];  
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[8];  
    r[12+2] = r[9];  
    r[12+3] = (r[10]);
    r[12+4] = (r[11]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 311: /* 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 */
    { int c = iportpeekc((r[2]));  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_v41263;

case 312: /* 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_v41263: /* 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(312);
    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[5];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(313);
    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(312);
    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[1];  
    r[9+4] = r[5];  
    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_v41265;
  } 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 313: /* 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_v41265: /* ek r loop c p 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 v43674_tmp;
    { /* length */
    int n; obj l = r[9];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43674_tmp = (n); }
    { /* list->string */
    int i, c = (v43674_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__231472))) == 0)) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[6])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(bool_from_obj(r[7]) ? (r[7]) : obj_from_bool(isdigit(char_from_obj(r[10]))))) {
    r[12] = obj_from_bool(0);
  } else {
    r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231521))) == 0);
    r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231523))) == 0));
  if (bool_from_obj(r[12])) {
    r[12] = obj_from_bool(0);
  } else {
    r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231518))) == 0);
    r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231520))) == 0));
  if (bool_from_obj(r[12])) {
    r[12] = obj_from_bool(0);
  } else {
    r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231515))) == 0);
    r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231517))) == 0));
  if (bool_from_obj(r[12])) {
    r[12] = obj_from_bool(0);
  } else {
  if (((char_from_obj(r[10]) == ('+')) || (char_from_obj(r[10]) == ('-')))) {
    r[12] = (cdr((r[9])));
    r[12] = obj_from_bool(isnull((r[12])));
  if (bool_from_obj(r[12])) {
    r[12] = obj_from_bool(1);
  } else {
    r[12] = (cdr((r[9])));
    r[12] = (car((r[12])));
    r[12] = obj_from_bool(char_from_obj(r[12]) == ('.'));
  if (bool_from_obj(r[12])) {
    r[12] = (cdr((r[9])));
    r[12] = (cdr((r[12])));
    r[12] = obj_from_bool(ispair((r[12])));
  if (bool_from_obj(r[12])) {
    { bool_t v43677_tmp;
    r[12] = (cdr((r[9])));
    r[12] = (cdr((r[12])));
    r[12] = (car((r[12])));
    v43677_tmp = (isdigit(char_from_obj(r[12])));
    r[12] = obj_from_bool(!(v43677_tmp)); }
  } else {
    r[12] = obj_from_bool(0);
  }
  } else {
    { bool_t v43676_tmp;
    r[12] = (cdr((r[9])));
    r[12] = (car((r[12])));
    v43676_tmp = (isdigit(char_from_obj(r[12])));
    r[12] = obj_from_bool(!(v43676_tmp)); }
  }
  }
  } else {
  if ((char_from_obj(r[10]) == ('.'))) {
    r[12] = (cdr((r[9])));
    r[12] = obj_from_bool(ispair((r[12])));
  if (bool_from_obj(r[12])) {
    { bool_t v43675_tmp;
    r[12] = (cdr((r[9])));
    r[12] = (car((r[12])));
    v43675_tmp = (isdigit(char_from_obj(r[12])));
    r[12] = obj_from_bool(!(v43675_tmp)); }
  } 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])))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[11]));
    int radix = (+10); long l; double d;
    if (0) r[12] = (0); /* to fool sfc unboxer */
    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[13+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = r[5];  
    r[13+2] = (cx__231470);
    r[13+3] = (r[11]);
    r[13+4] = (mksymbol(internsym("port:")));
    r[13+5] = (r[4]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    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])))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[3]) == ('#'))) {
    { int c = iportgetc((r[4]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportpeekc((r[4]));  r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[3];  
    *--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__231931)), *p = strchr(s, char_from_obj(r[3]));
    if (p) r[9] = obj_from_fixnum(p-s); else r[9] = obj_from_bool(0); }
  if (bool_from_obj(r[9])) {
    { int c = iportgetc((r[4]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportpeekc((r[4]));  r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[3];  
    *--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[9+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[5];  
    r[9+2] = (cx__231453);
    r[9+3] = r[3];  
    r[9+4] = (mksymbol(internsym("port:")));
    r[9+5] = (r[4]);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }

case 314: /* clo k p what */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k p what sub-read-x-char-escape */
    { int c = iportgetc((r[1]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(315);
    r[5] = (hendblk(5+1));
  if ((iseof((r[4])))) {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__231592);
    r[6+3] = r[2];  
    r[6+4] = (mksymbol(internsym("port:")));
    r[6+5] = (r[1]);
    r += 6; /* 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[3];  
    r[6+4] = r[1];  
    r[6+5] = r[0];  
    r[6+6] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v41243;
  }

case 315: /* 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 */
s_l_v41243: /* ek . what sub-read-x-char-escape p k c */
  if (((char_from_obj(r[6]) == (92)) || ((char_from_obj(r[6]) == (34)) || (char_from_obj(r[6]) == ('|'))))) {
    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 {
  if ((char_from_obj(r[6]) == ('a'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('b'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('t'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('n'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('v'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('f'))) {
    r[0] = r[5];  
    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 ((char_from_obj(r[6]) == ('r'))) {
    r[0] = r[5];  
    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 {
  if ((char_from_obj(r[6]) == ('x'))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    r[3] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((((r[2]) == (mksymbol(internsym("string")))) && (isspace(char_from_obj(r[6]))))) {
    { int c = iportpeekc((r[4]));  r[7] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[0] = r[5];  
    r[1] = obj_from_bool(char_from_obj(r[6]) == (10));
    r[2] = r[7];  
    r[3] = r[4];  
    goto s_loop_v41244;
  } else {
    r[7+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (cx__231572);
    r[7+3] = r[2];  
    r[7+4] = (mksymbol(internsym(":")));
    r[7+5] = (r[6]);
    r[7+6] = (mksymbol(internsym("port:")));
    r[7+7] = (r[4]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 8;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

s_loop_v41244: /* k gotnl nc p */
  if (((iseof((r[2]))) || (!(isspace(char_from_obj(r[2])))))) {
  if (bool_from_obj(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[4+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__231578);
    r[4+3] = (mksymbol(internsym("port:")));
    r[4+4] = (r[3]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((bool_from_obj(r[1]) && (char_from_obj(r[2]) == (10)))) {
    /* 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 {
    { int c = iportgetc((r[3]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportpeekc((r[3]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
    /* r[0] */    
    r[1] = (bool_from_obj(r[1]) ? (r[1]) : obj_from_bool(char_from_obj(r[2]) == (10)));
    r[2] = r[4];  
    /* r[3] */    
    goto s_loop_v41244;
  }
  }

case 316: /* 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 reader-token? port patch-shared k shared */
    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(317);
    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[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 317: /* 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 port patch-shared k r shared */
  if ((!bool_from_obj(r[1]))) {
    r[7] = (objptr_from_obj(r[6])[0]);
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    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[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    r[7+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[4];  
    r[7+2] = (cx__231872);
    r[7+3] = (cdr((r[5])));
    r[7+4] = (mksymbol(internsym("port:")));
    r[7+5] = (r[2]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }

s_sub_2Dread_2Dbyte_2Dlist: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(10+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 = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(330);
    r[12] = (hendblk(10+1));
    hreserve(hbsz(5+1), 13); /* 13 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = obj_from_case(318);
    r[13] = (hendblk(5+1));
    r[0] = (r[13]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread;

case 318: /* 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 reader-token? sub-read close-paren p k */
    r[0] = r[6];  
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_recur;

case 319: /* 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; /* shift reg. wnd */
s_recur: /* k form reader-token? sub-read close-paren p */
  if ((iseof((r[1])))) {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231609);
    r[6+3] = (mksymbol(internsym("port:")));
    r[6+4] = (r[5]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[6] = (objptr_from_obj(r[4])[0]);
    r[6] = obj_from_bool((r[1]) == (r[6]));
  if (bool_from_obj(r[6])) {
    /* 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 {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(319);
    r[6] = (hendblk(4+1));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(320);
    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 320: /* 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 recur p form k */
  if (bool_from_obj(r[1])) {
    r[7+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (cx__231606);
    r[7+3] = (cdr((r[5])));
    r[7+4] = (mksymbol(internsym("port:")));
    r[7+5] = (r[4]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[7] = obj_from_bool(!(is_fixnum_obj(r[5])));
    r[7] = (bool_from_obj(r[7]) ? (r[7]) : obj_from_bool((fixnum_from_obj(r[5]) < (+0)) || (fixnum_from_obj(r[5]) > (+255))));
  if (bool_from_obj(r[7])) {
    r[7+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (cx__231600);
    r[7+3] = r[5];  
    r[7+4] = (mksymbol(internsym("port:")));
    r[7+5] = (r[4]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(321);
    r[7] = (hendblk(3+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 321: /* 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(322);
    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 322: /* 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;

s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(10+1), 15); /* 15 live regs */
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--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(330);
    r[15] = (hendblk(10+1));
    hreserve(hbsz(10+1), 16); /* 16 live regs */
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--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(354);
    r[16] = (hendblk(10+1));
    hreserve(hbsz(8+1), 17); /* 17 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[15]);
    *--hp = (r[16]);
    *--hp = (r[14]);
    *--hp = obj_from_case(323);
    r[16] = (hendblk(8+1));
    r[0] = (r[16]);
    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]);
    r[9] = (r[12]);
    r[10] = (r[13]);
    r[11] = (r[14]);
    goto s_sub_2Dread;

case 323: /* 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 dot? close-token p k dot */
    r[10] = (objptr_from_obj(r[9])[0]);
    r[10] = obj_from_bool((r[1]) == (r[10]));
  if (bool_from_obj(r[10])) {
    r[0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (cx__231640);
    r[3] = (mksymbol(internsym("port:")));
    r[4] = (r[7]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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[9];  
    r[10+7] = r[6];  
    r[10+8] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_recur_v41109;
  }

case 324: /* 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_v41109: /* k form reader-token? sub-read-carefully sub-read dot? dot close-token p */
  if ((iseof((r[1])))) {
    r[9+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = (cx__231635);
    r[9+3] = (mksymbol(internsym("port:")));
    r[9+4] = (r[8]);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if (((r[1]) == (r[7]))) {
    /* 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[9] = (objptr_from_obj(r[6])[0]);
    r[9] = obj_from_bool((r[1]) == (r[9]));
  if (bool_from_obj(r[9])) {
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_case(325);
    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[8];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[9+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = (cx__231625);
    r[9+3] = (mksymbol(internsym("port:")));
    r[9+4] = (r[8]);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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(324);
    r[9] = (hendblk(7+1));
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = r[4];  
    *--hp = obj_from_case(327);
    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 325: /* 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(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(326);
    r[6] = (hendblk(4+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 326: /* 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 k r close-token */
  if (((r[1]) == (r[5]))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[3];  
    r[6+2] = (cx__231628);
    r[6+3] = r[1];  
    r[6+4] = (mksymbol(internsym("port:")));
    r[6+5] = (r[2]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }

case 327: /* 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 recur p form k */
  if (bool_from_obj(r[1])) {
    r[7+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (cx__231624);
    r[7+3] = (cdr((r[5])));
    r[7+4] = (mksymbol(internsym("port:")));
    r[7+5] = (r[4]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(328);
    r[7] = (hendblk(3+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 328: /* 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(329);
    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 329: /* 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 330: /* 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+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(10+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 = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(354);
    r[12] = (hendblk(10+1));
    hreserve(hbsz(10+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 = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(330);
    r[13] = (hendblk(10+1));
    { int c = iportgetc((r[1]));  r[14] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[14])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[14]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isspace(char_from_obj(r[14])))) {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread;
  } else {
  if ((char_from_obj(r[14]) == ('('))) {
    r[15] = (objptr_from_obj(r[10])[0]);
    r[16+0] = r[0];  
    r[16+1] = (r[14]);
    r[16+2] = r[1];  
    r[16+3] = (r[15]);
    r[16+4] = obj_from_bool(1);
    r[16+5] = r[2];  
    r[16+6] = r[3];  
    r[16+7] = r[4];  
    r[16+8] = r[5];  
    r[16+9] = r[6];  
    r[16+10] = r[7];  
    r[16+11] = r[8];  
    r[16+12] = r[9];  
    r[16+13] = (r[10]);
    r[16+14] = (r[11]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[14]) == (')'))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[10])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((char_from_obj(r[14]) == ('['))) {
    r[15] = (objptr_from_obj(r[9])[0]);
    r[16+0] = r[0];  
    r[16+1] = (r[14]);
    r[16+2] = r[1];  
    r[16+3] = (r[15]);
    r[16+4] = obj_from_bool(1);
    r[16+5] = r[2];  
    r[16+6] = r[3];  
    r[16+7] = r[4];  
    r[16+8] = r[5];  
    r[16+9] = r[6];  
    r[16+10] = r[7];  
    r[16+11] = r[8];  
    r[16+12] = r[9];  
    r[16+13] = (r[10]);
    r[16+14] = (r[11]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[14]) == (']'))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[9])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((char_from_obj(r[14]) == (39))) {
    hreserve(hbsz(1+1), 15); /* 15 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(331);
    r[15] = (hendblk(1+1));
    r[0] = (r[15]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if ((char_from_obj(r[14]) == ('`'))) {
    hreserve(hbsz(1+1), 15); /* 15 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(332);
    r[15] = (hendblk(1+1));
    r[0] = (r[15]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
    { /* string-position */
    char *s = stringchars((cx__231931)), *p = strchr(s, char_from_obj(r[14]));
    if (p) r[15] = obj_from_fixnum(p-s); else r[15] = obj_from_bool(0); }
  if (bool_from_obj(r[15])) {
    r[15+0] = r[8];  
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = r[0];  
    r[15+2] = (r[14]);
    r[15+3] = r[1];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[14]) == (';'))) {
    { int c = iportgetc((r[1]));  r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = (r[13]);
    *--hp = obj_from_case(333);
    r[16] = (hendblk(3+1));
    r[17+0] = (r[16]);
    r[17+1] = (r[15]);
    r[17+2] = r[1];  
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41073;
  } else {
  if ((char_from_obj(r[14]) == (','))) {
    { int c = iportpeekc((r[1]));  r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[15])))) {
    r[16+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = r[0];  
    r[16+2] = (cx__231846);
    r[16+3] = (mksymbol(internsym("port:")));
    r[16+4] = (r[1]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[15]) == ('@'))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(1+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(334);
    r[16] = (hendblk(1+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
    hreserve(hbsz(1+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(335);
    r[16] = (hendblk(1+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  }
  }
  } else {
  if ((char_from_obj(r[14]) == (34))) {
    r[15+0] = r[0];  
    r[15+1] = (mknull());
    r[15+2] = r[7];  
    r[15+3] = r[1];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41044;
  } else {
  if ((char_from_obj(r[14]) == ('|'))) {
    r[15+0] = r[0];  
    r[15+1] = (mknull());
    r[15+2] = r[7];  
    r[15+3] = r[1];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v41033;
  } else {
  if ((char_from_obj(r[14]) == ('#'))) {
    { int c = iportpeekc((r[1]));  r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[15])))) {
    r[16+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = r[0];  
    r[16+2] = (cx__231803);
    r[16+3] = (mksymbol(internsym("port:")));
    r[16+4] = (r[1]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if (((tolower(char_from_obj(r[15])) == tolower(('t'))) || (tolower(char_from_obj(r[15])) == tolower(('f'))))) {
    hreserve(hbsz(2+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(340);
    r[16] = (hendblk(2+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if (((tolower(char_from_obj(r[15])) == tolower(('b'))) || ((tolower(char_from_obj(r[15])) == tolower(('o'))) || ((tolower(char_from_obj(r[15])) == tolower(('d'))) || ((tolower(char_from_obj(r[15])) == tolower(('x'))) || ((tolower(char_from_obj(r[15])) == tolower(('i'))) || (tolower(char_from_obj(r[15])) == tolower(('e'))))))))) {
    r[16+0] = r[8];  
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = r[0];  
    r[16+2] = obj_from_char('#');
    r[16+3] = r[1];  
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[15]) == ('&'))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(1+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(341);
    r[16] = (hendblk(1+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if ((char_from_obj(r[15]) == (';'))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = (r[13]);
    *--hp = obj_from_case(342);
    r[16] = (hendblk(3+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
  if ((char_from_obj(r[15]) == ('|'))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(3+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = (r[13]);
    *--hp = obj_from_case(345);
    r[16] = (hendblk(3+1));
    r[0] = (r[16]);
    /* r[1] */    
    goto s_recur_v41006;
  } else {
  if ((char_from_obj(r[15]) == ('('))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[16] = (objptr_from_obj(r[10])[0]);
    hreserve(hbsz(1+1), 17); /* 17 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(346);
    r[17] = (hendblk(1+1));
    r[18+0] = (r[17]);
    r[18+1] = (r[15]);
    r[18+2] = r[1];  
    r[18+3] = (r[16]);
    r[18+4] = obj_from_bool(0);
    r[18+5] = r[2];  
    r[18+6] = r[3];  
    r[18+7] = r[4];  
    r[18+8] = r[5];  
    r[18+9] = r[6];  
    r[18+10] = r[7];  
    r[18+11] = r[8];  
    r[18+12] = r[9];  
    r[18+13] = (r[10]);
    r[18+14] = (r[11]);
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_sub_2Dread_2Dlist;
  } else {
  if ((char_from_obj(r[15]) == ('u'))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportgetc((r[1]));  r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[16] = obj_from_bool((r[16]) == obj_from_char('8'));
  if (bool_from_obj(r[16])) {
    { int c = iportgetc((r[1]));  r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[16] = obj_from_bool((r[16]) == obj_from_char('('));
  } else {
    r[16] = obj_from_bool(0);
  }
  if (bool_from_obj(r[16])) {
    hreserve(hbsz(1+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(347);
    r[16] = (hendblk(1+1));
    r[0] = (r[16]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dbyte_2Dlist;
  } else {
    r[16+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = r[0];  
    r[16+2] = (cx__231756);
    r[16+3] = (mksymbol(internsym("port:")));
    r[16+4] = (r[1]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[15]) == (92))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    { int c = iportpeekc((r[1]));  r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[16])))) {
    r[17+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[17+0])[0];
    r[17+1] = r[0];  
    r[17+2] = (cx__231753);
    r[17+3] = (mksymbol(internsym("port:")));
    r[17+4] = (r[1]);
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((('x') == char_from_obj(r[16]))) {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    hreserve(hbsz(4+1), 17); /* 17 live regs */
    *--hp = (r[16]);
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(348);
    r[17] = (hendblk(4+1));
    { int c = iportpeekc((r[1]));  r[18] = (c == EOF ? mkeof() : obj_from_char(c)); }
    r[19+0] = r[5];  
    pc = objptr_from_obj(r[19+0])[0];
    r[19+1] = (r[17]);
    r[19+2] = (r[18]);
    r += 19; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isalpha(char_from_obj(r[16])))) {
    hreserve(hbsz(3+1), 17); /* 17 live regs */
    *--hp = (r[16]);
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(349);
    r[17] = (hendblk(3+1));
    r[0] = (r[17]);
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread_2Dcarefully;
  } else {
    { int c = iportgetc((r[1]));  (void)(c == EOF ? mkeof() : obj_from_char(c)); }
    r[17] = (r[16]);
    r[18+0] = r[0];  
    pc = objptr_from_obj(r[18+0])[0];
    r[18+1] = obj_from_ktrap();
    r[18+2] = (r[17]);
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  } else {
  if ((isdigit(char_from_obj(r[15])))) {
    hreserve(hbsz(4+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = (r[12]);
    *--hp = obj_from_case(350);
    r[16] = (hendblk(4+1));
  if (bool_from_obj(r[3])) {
    r[17+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[17+0])[0];
    r[17+1] = (r[16]);
    r[17+2] = (cx__231695);
    r[17+3] = (mksymbol(internsym("port:")));
    r[17+4] = (r[1]);
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[17+0] = obj_from_ktrap();
    r[17+1] = obj_from_void(0);
    r[17+2] = (r[12]);
    r[17+3] = r[4];  
    r[17+4] = r[1];  
    r[17+5] = r[0];  
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v40950;
  }
  } else {
    r[16+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = r[0];  
    r[16+2] = (cx__231647);
    r[16+3] = (r[15]);
    r[16+4] = (mksymbol(internsym("port:")));
    r[16+5] = (r[1]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  } else {
    r[15+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = r[0];  
    r[15+2] = (cx__231645);
    r[15+3] = (r[14]);
    r[15+4] = (mksymbol(internsym("port:")));
    r[15+5] = (r[1]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 331: /* 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")));
    *--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 332: /* 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")));
    *--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_v41073: /* 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 {
    { int c = iportgetc((r[2]));  r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v41073;
  }
  }

case 333: /* 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 334: /* 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")));
    *--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 335: /* 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")));
    *--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 336: /* 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_v41044: /* k l sub-read-strsym-char-escape p */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(336);
    r[4] = (hendblk(2+1));
    { int c = iportgetc((r[3]));  r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[5])))) {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231560);
    r[6+3] = (mksymbol(internsym("port:")));
    r[6+4] = (r[3]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[5]) == (92))) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(337);
    r[6] = (hendblk(3+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[3];  
    r[7+3] = (mksymbol(internsym("string")));
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } 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 v43673_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43673_tmp = (n); }
    { /* list->string */
    int i, c = (v43673_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_v41044;
  }
  }
  }

case 337: /* 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 l k */
  if (bool_from_obj(r[1])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
  } else {
    r[5] = r[3];  
  }
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 338: /* 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_v41033: /* k l sub-read-strsym-char-escape p */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(338);
    r[4] = (hendblk(2+1));
    { int c = iportgetc((r[3]));  r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[5])))) {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231816);
    r[6+3] = (mksymbol(internsym("port:")));
    r[6+4] = (r[3]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[5]) == (92))) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(339);
    r[6] = (hendblk(3+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[3];  
    r[7+3] = (mksymbol(internsym("symbol")));
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((char_from_obj(r[5]) == ('|'))) {
    { /* 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 v43672_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43672_tmp = (n); }
    { /* list->string */
    int i, c = (v43672_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[6] = (mksymbol(internsym(stringchars((r[6])))));
    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_v41033;
  }
  }
  }

case 339: /* 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 l k */
  if (bool_from_obj(r[1])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
  } else {
    r[5] = r[3];  
  }
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 340: /* 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 */
  if ((((r[1]) == (mksymbol(internsym("t")))) ? (1) : (((r[1]) == (mksymbol(internsym("true")))) && (1)))) {
    r[0] = r[3];  
    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 {
  if ((((r[1]) == (mksymbol(internsym("f")))) ? (1) : (((r[1]) == (mksymbol(internsym("false")))) && (1)))) {
    r[0] = r[3];  
    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[4+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (cx__231789);
    r[4+3] = r[1];  
    r[4+4] = (mksymbol(internsym("port:")));
    r[4+5] = (r[2]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }

case 341: /* 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 */
    { /* box */ 
    hreserve(hbsz(2), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[3] = (hendblk(2)); }
    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 342: /* 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 343: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
s_recur_v41006: /* k p */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(343);
    r[2] = (hendblk(1+1));
    { int c = iportgetc((r[1]));  r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[3])))) {
    r[4+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__231768);
    r[4+3] = (mksymbol(internsym("port:")));
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[3]) == ('|'))) {
    { int c = iportpeekc((r[1]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[4])))) {
    r[5+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__231768);
    r[5+3] = (mksymbol(internsym("port:")));
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[4]) == ('#'))) {
    { int c = iportgetc((r[1]));  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_v41006;
  }
  }
  } else {
  if ((char_from_obj(r[3]) == ('#'))) {
    { int c = iportpeekc((r[1]));  r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[4])))) {
    r[5+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__231768);
    r[5+3] = (mksymbol(internsym("port:")));
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((char_from_obj(r[4]) == ('|'))) {
    { int c = iportgetc((r[1]));  (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(344);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    /* r[1] */    
    goto s_recur_v41006;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto s_recur_v41006;
  }
  }
  } else {
    /* r[0] */    
    /* r[1] */    
    goto s_recur_v41006;
  }
  }
  }

case 344: /* 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 345: /* 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 346: /* 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 v43671_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43671_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43671_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 347: /* 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 v43670_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43670_tmp = (n); }
    { /* list->bytevector */
    int i, c = (v43670_tmp); 
    obj o = hpushu8v(3, allocbytevector(c)); /* 3 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = bytevectorbytes(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l));
    r[3] = (o); } }
    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 348: /* 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 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 p k c */
    { fixnum_t v43669_a;
    r[5] = (hpushstr(5, newstring(symbolname(getsymbol((r[1]))))));
    v43669_a = (stringlen((r[5])));
    r[5] = obj_from_bool((v43669_a) == (+1)); }
  if (bool_from_obj(r[5])) {
    r[0] = r[3];  
    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 ((((r[1]) == (mksymbol(internsym("null")))) && (1))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char((char_t)(+0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("space")))) && (1))) {
    r[0] = r[3];  
    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))) {
    r[0] = r[3];  
    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))) {
    r[0] = r[3];  
    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("delete")))) && (1))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char((char_t)(+127));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("escape")))) && (1))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_char((char_t)(+27));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("tab")))) && (1))) {
    r[0] = r[3];  
    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) : (((r[1]) == (mksymbol(internsym("linefeed")))) && (1)))) {
    r[0] = r[3];  
    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))) {
    r[0] = r[3];  
    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))) {
    r[0] = r[3];  
    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))) {
    r[0] = r[3];  
    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[5+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__231702);
    r[5+3] = r[1];  
    r[5+4] = (mksymbol(internsym("port:")));
    r[5+5] = (r[2]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 350: /* 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_v40950: /* ek . sub-read-carefully shared p k */
    r[0] = r[5];  
    r[1] = (mknull());
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v40951;

s_loop_v40951: /* k l sub-read-carefully shared p */
    { int c = iportgetc((r[4]));  r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
  if ((iseof((r[5])))) {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231690);
    r[6+3] = (mksymbol(internsym("port:")));
    r[6+4] = (r[4]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((isdigit(char_from_obj(r[5])))) {
    { /* 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] */    
    /* r[4] */    
    goto s_loop_v40951;
  } else {
  if ((char_from_obj(r[5]) == ('#'))) {
    { /* 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 v43668_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43668_tmp = (n); }
    { /* list->string */
    int i, c = (v43668_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); } }
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[6]));
    int radix = (+10); long l; double d;
    if (0) r[7] = (0); /* to fool sfc unboxer */
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[7] = obj_from_fixnum(l); break;
    case 'i': r[7] = obj_from_flonum(7, d); break;
    default : r[7] = obj_from_bool(0); break;
    } }
  if ((is_fixnum_obj(r[7]))) {
    r[8] = (objptr_from_obj(r[3])[0]);
    { /* assq */
    obj x = (r[7]), l = (r[8]), 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); }
  } else {
    r[8] = obj_from_bool(0);
  }
  if (bool_from_obj(r[8])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[9+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[6];  
    r[9+3] = (mksymbol(internsym("port:")));
    r[9+4] = (cx__231685);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((char_from_obj(r[5]) == ('='))) {
    { /* 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 v43667_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43667_tmp = (n); }
    { /* list->string */
    int i, c = (v43667_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); } }
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[6]));
    int radix = (+10); long l; double d;
    if (0) r[7] = (0); /* to fool sfc unboxer */
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[7] = obj_from_fixnum(l); break;
    case 'i': r[7] = obj_from_flonum(7, d); break;
    default : r[7] = obj_from_bool(0); break;
    } }
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(351);
    r[8] = (hendblk(6+1));
  if ((!(is_fixnum_obj(r[7])))) {
    r[0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[6];  
    r[3] = (mksymbol(internsym("port:")));
    r[4] = (cx__231672);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[9] = (objptr_from_obj(r[3])[0]);
    { /* assq */
    obj x = (r[7]), l = (r[9]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[9] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[9])) {
    r[0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[7];  
    r[3] = (mksymbol(internsym("port:")));
    r[4] = (cx__231669);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[9+0] = obj_from_ktrap();
    r[9+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[9+2] = r[2];  
    r[9+3] = r[4];  
    r[9+4] = r[6];  
    r[9+5] = r[0];  
    r[9+6] = r[7];  
    r[9+7] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v40953;
  }
  }
  } else {
    r[6+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231651);
    r[6+3] = (mksymbol(internsym("port:")));
    r[6+4] = (r[4]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }

case 351: /* 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_v40953: /* ek . sub-read-carefully p s k n shared */
    { /* box */ 
    hreserve(hbsz(2), 8); /* 8 live regs */
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(BOX_BTAG); 
    r[8] = (hendblk(2)); }
    r[9] = (objptr_from_obj(r[7])[0]);
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = obj_from_case(352);
    r[10] = (hendblk(1+1));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[6];  
    *--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)); }
    (void)(objptr_from_obj(r[7])[0] = (r[9]));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = obj_from_case(353);
    r[9] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 353: /* 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 loc s k */
  if ((isprocedure((r[1])))) {
    r[0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[3];  
    r[3] = (mksymbol(internsym("port:")));
    r[4] = (cx__231663);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    (void)(boxref((r[2])) = (r[1]));
    r[5] = r[1];  
    r[6+0] = r[4];  
    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 354: /* 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+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
s_sub_2Dread_2Dcarefully: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = (r[11]);
    *--hp = obj_from_case(355);
    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] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    goto s_sub_2Dread;

case 355: /* 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 reader-token? p k */
  if ((iseof((r[1])))) {
    r[5+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__231873);
    r[5+3] = (mksymbol(internsym("port:")));
    r[5+4] = (r[3]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(356);
    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[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 356: /* 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 p r k */
  if (bool_from_obj(r[1])) {
    r[5+0] = (cx_read_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__231872);
    r[5+3] = (cdr((r[3])));
    r[5+4] = (mksymbol(internsym("port:")));
    r[5+5] = (r[2]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

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

case 358: /* 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 form */
    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 359: /* clo k form */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_patch_2Dshared_21: /* k form */
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(367);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(359);
    r[3] = (hendblk(0+1));
  if ((ispair((r[1])))) {
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(360);
    r[4] = (hendblk(4+1));
    r[5] = (car((r[1])));
    r[5] = obj_from_bool(isprocedure((r[5])));
  if (bool_from_obj(r[5])) {
    r[5] = (car((r[1])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(362);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto s_patch_2Dref_21;
  } else {
    r[5] = (car((r[1])));
    r[0] = r[4];  
    r[1] = r[5];  
    goto s_patch_2Dshared_21;
  }
  } else {
  if ((isvector((r[1])))) {
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(+0);
    r[4+2] = r[3];  
    r[4+3] = r[2];  
    r[4+4] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v40845;
  } else {
  if ((isbox((r[1])))) {
    r[4] = (boxref((r[1])));
    r[4] = obj_from_bool(isprocedure((r[4])));
  if (bool_from_obj(r[4])) {
    r[4] = (boxref((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(366);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto s_patch_2Dshared_21;
  } else {
    r[4] = (boxref((r[1])));
    /* r[0] */    
    r[1] = r[4];  
    goto s_patch_2Dshared_21;
  }
  } else {
    /* 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;
  }
  }
  }

case 360: /* 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 . patch-shared! patch-ref! k form */
    r[6] = (cdr((r[5])));
    r[6] = obj_from_bool(isprocedure((r[6])));
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(361);
    r[6] = (hendblk(2+1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (cdr((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] = (cdr((r[5])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 361: /* 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 */
    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 362: /* 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 */
    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(car((r[3])) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 363: /* 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; /* shift reg. wnd */
s_loop_v40845: /* k i patch-shared! patch-ref! form */
  if ((fixnum_from_obj(r[1]) < (vectorlen((r[4]))))) {
    r[5] = (vectorref((r[4]), fixnum_from_obj(r[1])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(363);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(364);
    r[6] = (hendblk(3+1));
  if ((isprocedure((r[5])))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = obj_from_case(365);
    r[7] = (hendblk(3+1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    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[6];  
    r[2] = r[5];  
    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 364: /* 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 i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 365: /* 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 form 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 366: /* 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 */
    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(boxref((r[3])) = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 367: /* clo k form */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_patch_2Dref_21: /* k form */
  if ((isprocedure((r[1])))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(367);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(368);
    r[2] = (hendblk(2+1));
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    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 368: /* 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 patch-ref! 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 369: /* 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 370: /* 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); }
  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] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__232054);
    r[2+3] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 371: /* rename-file k fnold fnnew */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k fnold fnnew */
    { /* rename-file */ 
    int res = rename(stringchars((r[1])), stringchars((r[2])));
    r[3] = obj_from_bool(res == 0); }
  if (bool_from_obj(r[3])) {
    /* 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 {
    r[3+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__232058);
    r[3+3] = r[1];  
    r[3+4] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 372: /* %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(373);
    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 373: /* 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 374: /* 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(375);
    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 375: /* 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(376);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 376: /* 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 377: /* dynamic-wind k before during after */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_dynamic_2Dwind: /* 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(378);
    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 378: /* 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(379);
    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(381);
    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 379: /* 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(380);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 380: /* 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 381: /* 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 382: /* dynamic-state-reroot! k there */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_dynamic_2Dstate_2Dreroot_21: /* k there */
    { const bool_t v43666_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1]));
    r[2] = obj_from_bool(!(v43666_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(383);
    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 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; /* 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 384: /* error-object k kind message irritants */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_error_2Dobject: /* k kind message irritants */
    { /* make-record */
    int c = (+3);
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = (cx__3Cerror_2Dobject_3E); assert(isobjptr(*hp));
    r[4] = (hendblk(c+1)); }
    (void)(recordref((r[4]), (+0)) = (r[1]));
    (void)(recordref((r[4]), (+1)) = (r[2]));
    (void)(recordref((r[4]), (+2)) = (r[3]));
    /* r[4] */    
    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 385: /* error-object? k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    { /* record? */
    obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E); 
    if (!isrecord(o)) r[2] = obj_from_bool(0);
    else r[2] = obj_from_bool(recordrtd(o) == t); }
    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 386: /* error-object-kind k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (recordref((r[1]), (+0)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 387: /* error-object-message k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (recordref((r[1]), (+1)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 388: /* error-object-irritants k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (recordref((r[1]), (+2)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 389: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(390);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_error_2Dobject;

case 390: /* 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_raise;

case 391: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    cx_current_2Dexception_2Dhandler = r[1];  
    { static obj c[] = { obj_from_case(392) }; cx_with_2Dexception_2Dhandler = (obj)c; }
    { static obj c[] = { obj_from_case(401) }; cx_raise = (obj)c; }
    { static obj c[] = { obj_from_case(411) }; cx_raise_2Dcontinuable = (obj)c; }
    { static obj c[] = { obj_from_case(419) }; cx__25residual_2Dabort = (obj)c; }
    { static obj c[] = { obj_from_case(420) }; cx_reset = (obj)c; }
    { static obj c[] = { obj_from_case(421) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(422);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_read_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(424) }; cx_read_2Derror_3F = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(425);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_file_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(427) }; cx_file_2Derror_3F = (obj)c; }
    { static obj c[] = { obj_from_case(428) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; }
    { static obj c[] = { obj_from_case(429) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; }
    { static obj c[] = { obj_from_case(430) }; cx__25residual_2Dcurrent_2Dsecond = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(431);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[2] = (hendblk(3)); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(432);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(433);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+4);
    cx_emergency_2Dexit = (hendblk(12+1)); }
    r[2] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(434);
    r[3] = (hendblk(1+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);
    cx_exit = (hendblk(3)); }
    { static obj c[] = { obj_from_case(436) }; cx__25residual_2Dargv_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(437) }; cx_command_2Dline = (obj)c; }
    { static obj c[] = { obj_from_case(438) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; }
    { static obj c[] = { obj_from_case(439) }; cx__25residual_2Dsystem = (obj)c; }
    { static obj c[] = { obj_from_case(440) }; cx__25residual_2Dmake_2Drectangular = (obj)c; }
    { static obj c[] = { obj_from_case(441) }; cx__25residual_2Dmake_2Dpolar = (obj)c; }
    { static obj c[] = { obj_from_case(442) }; cx__25residual_2Dreal_2Dpart = (obj)c; }
    { static obj c[] = { obj_from_case(443) }; cx__25residual_2Dimag_2Dpart = (obj)c; }
    { static obj c[] = { obj_from_case(444) }; cx__25residual_2Dmagnitude = (obj)c; }
    { static obj c[] = { obj_from_case(445) }; cx__25residual_2Dangle = (obj)c; }
    { static obj c[] = { obj_from_case(446) }; cx_truncate_2F = (obj)c; }
    { static obj c[] = { obj_from_case(448) }; cx_floor_2F = (obj)c; }
    { static obj c[] = { obj_from_case(450) }; cx_exact_2Dinteger_2Dsqrt = (obj)c; }
    { static obj c[] = { obj_from_case(452) }; cx_call_2Dwith_2Dport = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(455);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(456);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(457);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2D_3Elist = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(458);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(459);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(460);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2Dcopy = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(461);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(462);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(463);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+5);
    *--hp = obj_from_fixnum(+5);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2Dcopy_21 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(464);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(465);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(466);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2Dfill_21 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(467);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(468);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(469);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_vector_2D_3Elist = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(470);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(471);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(472);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_vector_2D_3Estring = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(473);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(474);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(475);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2D_3Evector = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(476);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(477);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(478);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+5);
    *--hp = obj_from_fixnum(+5);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_objptr(appcases+4);
    cx_vector_2Dcopy_21 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(479);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(480);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(481);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_vector_2Dcopy = (hendblk(12+1)); }
    { static obj c[] = { obj_from_case(482) }; cx__25vectors_2Dsum_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(483) }; cx__25vectors_2Dcopy_2Dinto_21 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(484);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_vector_2Dappend = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(485);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(486);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(487);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+4);
    cx_vector_2Dfill_21 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(488);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(489);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(490);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_bytevector_2D_3Elist = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(491);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(492);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(493);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+5);
    *--hp = obj_from_fixnum(+5);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_objptr(appcases+4);
    cx_bytevector_2Dcopy_21 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(494);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(495);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(496);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_bytevector_2Dcopy = (hendblk(12+1)); }
    { static obj c[] = { obj_from_case(497) }; cx__25bytevectors_2Dsum_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(498) }; cx__25bytevectors_2Dcopy_2Dinto_21 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(499);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_bytevector_2Dappend = (hendblk(3)); }
    { static obj c[] = { obj_from_case(500) }; cx_subutf8_2D_3Estring = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(501);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(502);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(503);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_utf8_2D_3Estring = (hendblk(12+1)); }
    { static obj c[] = { obj_from_case(504) }; cx_substring_2D_3Eutf8 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(505);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(506);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(507);
    r[4] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(12+1), 5); /* 5 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_string_2D_3Eutf8 = (hendblk(12+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(508);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(509);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(510);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(511);
    r[5] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(15+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--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);
    cx_read_2Dstring_21 = (hendblk(15+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(512);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(513);
    r[3] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 4); /* 4 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_read_2Dstring = (hendblk(9+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(514);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(515);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(516);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(517);
    r[5] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(15+1), 6); /* 6 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+4);
    *--hp = obj_from_fixnum(+4);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+3);
    *--hp = obj_from_fixnum(+3);
    *--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);
    cx_read_2Dbytevector_21 = (hendblk(15+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(518);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(519);
    r[3] = (hendblk(0+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 4); /* 4 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_fixnum(+2);
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+4);
    cx_read_2Dbytevector = (hendblk(9+1)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(520);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dvalues = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(522);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dboolean_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(523);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(524);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(525);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(526);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(527);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(528);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(529);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(530);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(531);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(532);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(533);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(534);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3C = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(535);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3E = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(536);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3C_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(537);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_3E_3D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(538);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfxmax = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(539);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfxmin = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(540);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflmax = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(541);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflmin = (hendblk(3)); }
    { static obj c[] = { obj_from_case(542) }; cx__25residual_2Dmax_2F2 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(543);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmax = (hendblk(3)); }
    { static obj c[] = { obj_from_case(546) }; cx__25residual_2Dmin_2F2 = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(547);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmin = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(550);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(551);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(552);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(553);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(554);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2B = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(555);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(556);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dgcd = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(557);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dlcm = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(560);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(561);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfx_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(562);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(563);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfl_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(564);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2D = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(565);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(566);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dlog = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(567);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflatan = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(568);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Datan = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(569);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmember = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(570);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dassoc = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(571);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmap = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(581);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dfor_2Deach = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(591);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx_string_2Dmap = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(598);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx_vector_2Dmap = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(605);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx_string_2Dfor_2Deach = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(611);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx_vector_2Dfor_2Deach = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(617);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(618);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(619);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(620);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(621);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(622);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dci_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(623);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dci_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(624);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dci_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(625);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dci_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(626);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dci_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(627);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(628);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(629);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dappend = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(631);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(632);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(633);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(634);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(635);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(636);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dci_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(637);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dci_3C_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(638);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dci_3E_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(639);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dci_3C_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(640);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2Dci_3E_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(641);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dvector = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(642);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dvector = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(643);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dbytevector = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(644);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dbytevector = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(645);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dlist = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(646);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dlist = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(647);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dcons_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(649);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dappend = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(651);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Drecord_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(652);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(653);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(654);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dsymbol_3D_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(655);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25fail_2Dlambda = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(656);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(657);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dcurrent_2Dinput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(658);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dcurrent_2Doutput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(659);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dcurrent_2Derror_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(660);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(661);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dpeek_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(662);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(663);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread_2Dline = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(664);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(665);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(666);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(667);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(668);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay_2Doutput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(669);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dchar = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(670);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dstring = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(671);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dnewline = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(672);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dflush_2Doutput_2Dport = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(673);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread_2Du8 = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(674);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dpeek_2Du8 = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(675);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Du8_2Dready_3F = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(676);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Du8 = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(677);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dbytevector = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(678);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dsimple = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(679);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite_2Dshared = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(680);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dwrite = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(681);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Ddisplay = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(682);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(683);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dread_2Dsimple = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(684);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx__25residual_2Dexit = (hendblk(3)); }
    { static obj c[] = { obj_from_case(685) }; cx_features = (obj)c; }
    { static obj c[] = { obj_from_case(686) }; cx_append_2A = (obj)c; }
    { static obj c[] = { obj_from_case(688) }; cx_string_2Dappend_2A = (obj)c; }
    { static obj c[] = { obj_from_case(689) }; cx_apply_2Dmap_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(696) }; cx_pairwise_2Dandmap = (obj)c; }
    { static obj c[] = { obj_from_case(698) }; cx_sexp_2Dmatch_3F = (obj)c; }
    { static obj c[] = { obj_from_case(699) }; cx_read_2Dcode_2Dsexp = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(700);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_c_2Dwarning = (hendblk(3)); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(701);
    r[2] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_r_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(704) }; cx_path_2Dstrip_2Ddirectory = (obj)c; }
    { static obj c[] = { obj_from_case(706) }; cx_path_2Ddirectory = (obj)c; }
    { static obj c[] = { obj_from_case(708) }; cx_path_2Dstrip_2Dextension = (obj)c; }
    { static obj c[] = { obj_from_case(710) }; cx_base_2Dpath_2Dseparator = (obj)c; }
    { static obj c[] = { obj_from_case(712) }; cx_path_2Drelative_3F = (obj)c; }
    { static obj c[] = { obj_from_case(714) }; cx_file_2Dresolve_2Drelative_2Dto_2Dbase_2Dpath = (obj)c; }
    cx__2Acurrent_2Dfile_2Dstack_2A = (mknull());
    { static obj c[] = { obj_from_case(717) }; cx_current_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(718) }; cx_with_2Dcurrent_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(721) }; cx_file_2Dresolve_2Drelative_2Dto_2Dcurrent = (obj)c; }
    { static obj c[] = { obj_from_case(725) }; cx_listname_2Dsegment_2D_3Estring = (obj)c; }
    cx_modname_2Dseparator = (cx__234874);
    { static obj c[] = { obj_from_case(726) }; cx_listname_2D_3Emodname = (obj)c; }
    { static obj c[] = { obj_from_case(731) }; cx_listname_2D_3Epath = (obj)c; }
    cx__2Alibrary_2Dpath_2Dlist_2A = (mknull());
    { static obj c[] = { obj_from_case(739) }; cx_add_2Dlibrary_2Dpath_21 = (obj)c; }
    { static obj c[] = { obj_from_case(741) }; cx_find_2Dlibrary_2Dpath = (obj)c; }
    { static obj c[] = { obj_from_case(744) }; cx_resolve_2Dinput_2Dfile_2Flib_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(748) }; cx_call_2Dwith_2Dinput_2Dfile_2Flib = (obj)c; }
    { static obj c[] = { obj_from_case(752) }; cx_call_2Dwith_2Dfile_2Flib_2Dsexps = (obj)c; }
    { static obj c[] = { obj_from_case(756) }; cx_for_2Deach_2Dfile_2Flib_2Dsexp = (obj)c; }
    { static obj c[] = { obj_from_case(761) }; cx_file_2Flib_2D_3Emodname = (obj)c; }
    { static obj c[] = { obj_from_case(763) }; cx_file_2Flib_2Fstdin_2D_3Emodname = (obj)c; }
    { static obj c[] = { obj_from_case(764) }; cx_fully_2Dqualified_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(765) }; cx_fully_2Dqualified_2Dlibrary_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(767) }; cx_sid_3F = (obj)c; }
    { static obj c[] = { obj_from_case(768) }; cx_renamed_2Dsid_3F = (obj)c; }
    { static obj c[] = { obj_from_case(769) }; cx_svector_3F = (obj)c; }
    { static obj c[] = { obj_from_case(770) }; cx_svector_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(771) }; cx_list_2D_3Esvector = (obj)c; }
    { static obj c[] = { obj_from_case(772) }; cx_make_2Dsid = (obj)c; }
    { static obj c[] = { obj_from_case(773) }; cx_sid_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(774) }; cx_sid_2Did = (obj)c; }
    { static obj c[] = { obj_from_case(775) }; cx_sid_2Dlocation = (obj)c; }
    { static obj c[] = { obj_from_case(776) }; cx_list1_3F = (obj)c; }
    { static obj c[] = { obj_from_case(777) }; cx_list2_3F = (obj)c; }
    { static obj c[] = { obj_from_case(778) }; cx_map_2Dvecs = (obj)c; }
    { static obj c[] = { obj_from_case(785) }; cx_wrap_2Dvec = (obj)c; }
    { static obj c[] = { obj_from_case(788) }; cx_wrap_2Dvecs = (obj)c; }
    { static obj c[] = { obj_from_case(792) }; cx_unwrap_2Dvec = (obj)c; }
    { static obj c[] = { obj_from_case(794) }; cx_unwrap_2Dvecs = (obj)c; }
    { static obj c[] = { obj_from_case(795) }; cx_make_2Dcode = (obj)c; }
    { static obj c[] = { obj_from_case(796) }; cx_make_2Dbuiltin = (obj)c; }
    { static obj c[] = { obj_from_case(797) }; cx_variable_3F = (obj)c; }
    { static obj c[] = { obj_from_case(798) }; cx_expanded_2Dcode_3F = (obj)c; }
    { static obj c[] = { obj_from_case(799) }; cx_code_2Doutput = (obj)c; }
    { static obj c[] = { obj_from_case(800) }; cx_syntax_3F = (obj)c; }
    { static obj c[] = { obj_from_case(801) }; cx_builtin_3F = (obj)c; }
    { static obj c[] = { obj_from_case(802) }; cx_builtin_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(803) }; cx_expander_3F = (obj)c; }
    { static obj c[] = { obj_from_case(804) }; cx_make_2Dexpander = (obj)c; }
    { static obj c[] = { obj_from_case(805) }; cx_expander_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(806) }; cx_expander_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(807) }; cx_acons = (obj)c; }
    { static obj c[] = { obj_from_case(808) }; cx_lookup_2Dsid = (obj)c; }
    { static obj c[] = { obj_from_case(809) }; cx_lookup_2Dlocation = (obj)c; }
    { static obj c[] = { obj_from_case(810) }; cx_lookup2 = (obj)c; }
    { static obj c[] = { obj_from_case(814) }; cx_extend_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(815) }; cx_extend_2Dstore = (obj)c; }
    { static obj c[] = { obj_from_case(816) }; cx_substitute_2Din_2Dstore = (obj)c; }
    { static obj c[] = { obj_from_case(821) }; cx_symloc_2D_3Evar = (obj)c; }
    { static obj c[] = { obj_from_case(822) }; cx_intloc_2D_3Evar = (obj)c; }
    { static obj c[] = { obj_from_case(823) }; cx_loc_2D_3Evar = (obj)c; }
    { static obj c[] = { obj_from_case(824) }; cx_make_2Dbegin = (obj)c; }
    { static obj c[] = { obj_from_case(825) }; cx_make_2Dletrec = (obj)c; }
    { static obj c[] = { obj_from_case(826) }; cx_expand_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(846) }; cx_check_2Dsyntax_2Dbindings = (obj)c; }
    { static obj c[] = { obj_from_case(859) }; cx_expand_2Dsyntax_2Dbindings = (obj)c; }
    { static obj c[] = { obj_from_case(864) }; cx_apply_2Dexpander = (obj)c; }
    { static obj c[] = { obj_from_case(873) }; cx_expand_2Dany = (obj)c; }
    { static obj c[] = { obj_from_case(927) }; cx_expand_2Dval = (obj)c; }
    { static obj c[] = { obj_from_case(930) }; cx_expand_2Dexpr = (obj)c; }
    { static obj c[] = { obj_from_case(932) }; cx_expand_2Dbody = (obj)c; }
    { static obj c[] = { obj_from_case(976) }; cx_expand_2Dtop_2Dlevel_2Dforms = (obj)c; }
    { static obj c[] = { obj_from_case(991) }; cx_compile_2Dsyntax_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(1003) }; cx_sbox_2D_3Esexp_2Dlist = (obj)c; }
    { static obj c[] = { obj_from_case(1004) }; cx_pattern_2Dsbox_2D_3Esexp = (obj)c; }
    { static obj c[] = { obj_from_case(1005) }; cx_pattern_2Dsbox_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1006) }; cx_pattern_2Dsbox_2D_3Etest = (obj)c; }
    { static obj c[] = { obj_from_case(1021) }; cx_template_2Dsbox_2D_3Esexp = (obj)c; }
    { static obj c[] = { obj_from_case(1022) }; cx_template_2Dsbox_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1023) }; cx_template_2Dsbox_2D_3Econv = (obj)c; }
    { static obj c[] = { obj_from_case(1056) }; cx_compile_2Dsyntax_2Drules = (obj)c; }
    { static obj c[] = { obj_from_case(1151) }; cx_apply_2Dsynrules = (obj)c; }
    cx_root_2Denvironment = (cx__237415);
    cx_root_2Dmacro_2Dstore = (cx__237456);
    cx_ellipsis_2Dlocation = obj_from_fixnum(-1);
    cx__2Acurrent_2Denvironment_2A = (cx_root_2Denvironment);
    r[2] = (cdr((cx_root_2Dmacro_2Dstore)));
    r[3] = (car((cx_root_2Dmacro_2Dstore)));
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Acurrent_2Dmacro_2Dstore_2A = (hendblk(3)); }
    { static obj c[] = { obj_from_case(1234) }; cx_expand_2Dtop_2Dlevel_2Dforms_21 = (obj)c; }
    { static obj c[] = { obj_from_case(1236) }; cx_make_2Dlib = (obj)c; }
    { static obj c[] = { obj_from_case(1237) }; cx_lib_3D_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1238) }; cx_lib_2Dpublic_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1239) }; cx_adjoin_2Dlibs = (obj)c; }
    { static obj c[] = { obj_from_case(1241) }; cx_env_2Dlookup = (obj)c; }
    { static obj c[] = { obj_from_case(1242) }; cx_adjoin_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(1245) }; cx_adjoin_2Denv_2Fshadow = (obj)c; }
    { static obj c[] = { obj_from_case(1249) }; cx_adjoin_2Desps = (obj)c; }
    { static obj c[] = { obj_from_case(1250) }; cx_adjoin_2Dbegs = (obj)c; }
    { static obj c[] = { obj_from_case(1251) }; cx_preprocess_2Dlibrary = (obj)c; }
    { static obj c[] = { obj_from_case(1255) }; cx_preprocess_2Dimport_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(1271) }; cx_preprocess_2Dimport_2Dsets = (obj)c; }
    { static obj c[] = { obj_from_case(1276) }; cx_make_2Dlocal_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(1281) }; cx_make_2Dexport_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(1286) }; cx_process_2Dheader_2Dforms = (obj)c; }
    { static obj c[] = { obj_from_case(1296) }; cx_process_2Dincludes = (obj)c; }
    { static obj c[] = { obj_from_case(1299) }; cx_process_2Ddefine_2Dlibrary_2Ddecl = (obj)c; }
    { static obj c[] = { obj_from_case(1308) }; cx_process_2Ddefine_2Dlibrary_2Ddecls = (obj)c; }
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_fixnum(+1);
    r[2] = (hendblk(1));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1314);
    r[3] = (hendblk(1+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);
    cx_environment = (hendblk(3)); }
    cx__2Alibrary_2Dinfo_2Dcache_2A = (mknull());
    { static obj c[] = { obj_from_case(1317) }; cx_make_2Dlibrary_2Dinfo = (obj)c; }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(1319);
    r[2] = (hendblk(0+1));
    r[0] = r[2];  
    r[1] = (cx_root_2Denvironment);
    goto s_loop_v33631;

case 392: /* with-exception-handler k handler thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k handler thunk */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(393);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_current_2Dexception_2Dhandler);
    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 393: /* 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 handler thunk k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(394);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(399);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(400);
    r[7] = (hendblk(1+1));
    { /* make-case-lambda */
    hreserve(hbsz(9+1), 8); /* 8 live regs */
    *--hp = (cx__25fail_2Dlambda);
    *--hp = obj_from_fixnum(FIXNUM_MAX);
    *--hp = obj_from_fixnum(+0);
    *--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[6] = (hendblk(9+1)); }
    r[7+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = obj_from_bool(0);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

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 thunk k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(395);
    r[4] = (hendblk(3+1));
    r[0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 395: /* 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 thunk r k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(396);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(397);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(398);
    r[7] = (hendblk(1+1));
    r[8+0] = r[4];  
    r[8+1] = r[5];  
    r[8+2] = r[6];  
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

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

case 397: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k thunk */
    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 398: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k r */
    r[2+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r[2+3] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 399: /* clo k obj */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k obj handler */
    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 400: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k r */
    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 401: /* raise k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_raise: /* k obj */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(402);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 402: /* 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 obj k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(403);
    r[4] = (hendblk(3+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 403: /* 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 obj k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(404);
    r[5] = (hendblk(3+1));
    r[6+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = obj_from_bool(0);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 404: /* 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 obj k */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(405);
    r[5] = (hendblk(4+1));
    r[0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 405: /* 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 obj r k */
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(406);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(407);
    r[7] = (hendblk(2+1));
    hreserve(hbsz(1+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(410);
    r[8] = (hendblk(1+1));
    r[9+0] = r[5];  
    r[9+1] = r[6];  
    r[9+2] = r[7];  
    r[9+3] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

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

case 407: /* 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 r obj */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(408);
    r[3] = (hendblk(3+1));
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 408: /* 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 obj k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(409);
    r[5] = (hendblk(1+1));
    { /* 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)); }
    r[7+0] = r[5];  
    r[7+1] = (mksymbol(internsym("raise")));
    r[7+2] = (cx__232204);
    r[7+3] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_error_2Dobject;

case 409: /* 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_raise;

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

case 411: /* raise-continuable k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(412);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 412: /* 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 obj k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(413);
    r[4] = (hendblk(3+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 413: /* 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 obj k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(414);
    r[5] = (hendblk(3+1));
    r[6+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = obj_from_bool(0);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 414: /* 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 obj k */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(415);
    r[5] = (hendblk(4+1));
    r[0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 415: /* 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 obj r k */
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(416);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(417);
    r[7] = (hendblk(2+1));
    hreserve(hbsz(1+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(418);
    r[8] = (hendblk(1+1));
    r[9+0] = r[5];  
    r[9+1] = r[6];  
    r[9+2] = r[7];  
    r[9+3] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

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

case 417: /* 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 r obj */
    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 418: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k r */
    r[2+0] = (cx_current_2Dexception_2Dhandler);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r[2+3] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 419: /* %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 420: /* 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 421: /* 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 422: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(423);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (mksymbol(internsym("read")));
    r[4+2] = (r[1]);
    r[4+3] = (r[2]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_error_2Dobject;

case 423: /* 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_raise;

case 424: /* read-error? k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    { /* record? */
    obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E); 
    if (!isrecord(o)) r[2] = obj_from_bool(0);
    else r[2] = obj_from_bool(recordrtd(o) == t); }
  if (bool_from_obj(r[2])) {
    r[2] = (recordref((r[1]), (+0)));
    r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("read"))));
  } 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 425: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(426);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (mksymbol(internsym("file")));
    r[4+2] = (r[1]);
    r[4+3] = (r[2]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_error_2Dobject;

case 426: /* 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_raise;

case 427: /* file-error? k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    { /* record? */
    obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E); 
    if (!isrecord(o)) r[2] = obj_from_bool(0);
    else r[2] = obj_from_bool(recordrtd(o) == t); }
  if (bool_from_obj(r[2])) {
    r[2] = (recordref((r[1]), (+0)));
    r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("file"))));
  } 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 428: /* %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 429: /* %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 430: /* %residual-current-second k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, difftime(time(NULL), 0)+37.0);
    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 431: /* 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_void(exit(1));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 432: /* 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_void(((r[1]) == obj_from_bool(1)) ? (void)(exit(0)) : (void)((is_fixnum_obj(r[1])) ? (void)(exit(fixnum_from_obj(r[1]))) : (void)(exit(1))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 433: /* 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(exit(0));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 434: /* 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 exit-ds */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(435);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_dynamic_2Dstate_2Dreroot_21;

case 435: /* 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 . args 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_emergency_2Dexit);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 436: /* %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 437: /* 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_v40402;

s_loop_v40402: /* k r i */
    { const fixnum_t v43665_i = fixnum_from_obj(r[2]);
    { /* argv-ref */
    int i = (v43665_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((v43665_i), (1)));
    goto s_loop_v40402;
  } 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 438: /* %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 439: /* %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 440: /* %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 v43664_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v43664_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")));
    r[3+3] = (cx__232273);
    r[3+4] = (r[2]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 441: /* %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 v43663_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v43663_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 v43661_a = fixnum_from_obj(r[2]);
  if ((is_fixnum_obj(cx__232289))) {
    r[3] = obj_from_bool((v43661_a) == fixnum_from_obj(cx__232289));
  } else {
    { const flonum_t v43662_tmp = ((flonum_t)(v43661_a));
    r[3] = obj_from_bool((v43662_tmp) == flonum_from_obj(cx__232289)); } 
  } } 
  } else {
  if ((is_fixnum_obj(cx__232289))) {
    { const flonum_t v43660_tmp = ((flonum_t)fixnum_from_obj(cx__232289));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v43660_tmp)); } 
  } else {
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__232289));
  }
  }
  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")));
    r[3+3] = (cx__232285);
    r[3+4] = (r[2]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 442: /* %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 443: /* %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 444: /* %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 445: /* %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 446: /* truncate/ k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(447);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 447: /* clo k k */
    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 k y x */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43658_x = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_fixnum(fxquo((v43658_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43659_tmp = ((flonum_t)(v43658_x));
    r[4] = obj_from_flonum(4, flquo((v43659_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43657_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), (v43657_tmp))); } 
  } else {
    r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
  }
  }
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43655_x = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_fixnum(fxrem((v43655_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43656_tmp = ((flonum_t)(v43655_x));
    r[5] = obj_from_flonum(5, flrem((v43656_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43654_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), (v43654_tmp))); } 
  } else {
    r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
  }
  }
    r[6+0] = r[1];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[4];  
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 448: /* floor/ k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(449);
    r[3] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[3];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 449: /* clo k k */
    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 k y x */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43652_x = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_fixnum(fxmqu((v43652_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43653_tmp = ((flonum_t)(v43652_x));
    r[4] = obj_from_flonum(4, flmqu((v43653_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43651_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), (v43651_tmp))); } 
  } else {
    r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
  }
  }
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43649_x = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[2]))) {
    r[5] = obj_from_fixnum(fxmlo((v43649_x), fixnum_from_obj(r[2])));
  } else {
    { const flonum_t v43650_tmp = ((flonum_t)(v43649_x));
    r[5] = obj_from_flonum(5, flmlo((v43650_tmp), flonum_from_obj(r[2]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43648_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), (v43648_tmp))); } 
  } else {
    r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
  }
  }
    r[6+0] = r[1];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[4];  
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 450: /* exact-integer-sqrt k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = obj_from_fixnum(fxsqrt(fixnum_from_obj(r[1])));
    *--hp = r[1];  
    *--hp = obj_from_case(451);
    r[2] = (hendblk(2+1));
    /* r[0] */    
    r[1] = r[2];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 451: /* clo k k */
    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 k x r */
    { const fixnum_t v43646_b = (fxmul(fixnum_from_obj(r[3]), fixnum_from_obj(r[3])));
  if ((is_fixnum_obj(r[2]))) {
    r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (v43646_b)));
  } else {
    { const flonum_t v43647_tmp = ((flonum_t)(v43646_b));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) - (v43647_tmp)); } 
  } } 
    r[5+0] = r[1];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[3];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 452: /* call-with-port k port proc */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Dport: /* k port proc */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(453);
    r[3] = (hendblk(1+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)); }
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(454);
    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[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 453: /* clo k vals */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k vals port */
    (void)(cxs_close_2Dport((r[2])));
    { /* 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] = r[0];  
    r[4+2] = (cx__25residual_2Dvalues);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 454: /* 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 455: /* clo k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_substring_2D_3Elist;

case 456: /* clo k str start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(stringlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_substring_2D_3Elist;

case 457: /* clo k str */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k str */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(+0);
    r[2+3] = obj_from_fixnum(stringlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_substring_2D_3Elist;

case 458: /* clo k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str 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 459: /* clo k str start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str start */
    { /* substring */
    int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), (stringlen((r[1]))));
    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 460: /* clo k str */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k str */
    { /* 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 461: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 462: /* clo k to at from start */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k to at from start */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(stringlen((r[3])))));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 463: /* clo k to at from */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k to at from */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[3])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 464: /* clo k str c start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str c start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 465: /* clo k str c start */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str c start */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(stringlen((r[1])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 466: /* clo k str c */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str 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 467: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_subvector_2D_3Elist;

case 468: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector_2D_3Elist;

case 469: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(+0);
    r[2+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector_2D_3Elist;

case 470: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_subvector_2D_3Estring;

case 471: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector_2D_3Estring;

case 472: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(+0);
    r[2+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector_2D_3Estring;

case 473: /* clo k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str start end */
    { /* new-vector */
    int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(c+1)); }
    r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (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;

case 474: /* clo k str start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str start */
    { /* new-vector */
    int c = (fxsub((stringlen((r[1]))), fixnum_from_obj(r[2])));
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); }
    r[3] = (cxs__25substring_2Dvector_2Dcopy_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2]), obj_from_fixnum(stringlen((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 475: /* clo k str */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k str */
    { /* new-vector */
    int c = (fxsub((stringlen((r[1]))), (+0)));
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); }
    r[2] = (cxs__25substring_2Dvector_2Dcopy_21((r[2]), obj_from_fixnum(+0), (r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((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 476: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 477: /* clo k to at from start */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k to at from start */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(vectorlen((r[3])))));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 478: /* clo k to at from */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k to at from */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[3])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 479: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_subvector;

case 480: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector;

case 481: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(+0);
    r[2+3] = obj_from_fixnum(vectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subvector;

case 482: /* %vectors-sum-length k vecs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vecs */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25vectors_2Dsum_2Dlength((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 483: /* %vectors-copy-into! k to vecs */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k to vecs */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 484: /* clo k vecs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vecs */
    r[2] = (cxs__25vectors_2Dsum_2Dlength((r[1])));
    { /* new-vector */
    int c = fixnum_from_obj(r[2]);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(c+1)); }
    r[2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[2]), (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 485: /* clo k vec x start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec x start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 486: /* clo k vec x start */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec x start */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(vectorlen((r[1])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 487: /* clo k vec x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[1])))));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 488: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_subbytevector_2D_3Elist;

case 489: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(bytevectorlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subbytevector_2D_3Elist;

case 490: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_fixnum(+0);
    r[2+3] = obj_from_fixnum(bytevectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subbytevector_2D_3Elist;

case 491: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 492: /* clo k to at from start */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k to at from start */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(bytevectorlen((r[3])))));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 493: /* clo k to at from */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k to at from */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[3])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 494: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
    r[4] = (hpushu8v(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 495: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), (bytevectorlen((r[1]))));
    r[3] = (hpushu8v(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 496: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[1])), (+0), (bytevectorlen((r[1]))));
    r[2] = (hpushu8v(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 497: /* %bytevectors-sum-length k vecs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vecs */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 498: /* %bytevectors-copy-into! k to vecs */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k to vecs */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 499: /* clo k vecs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vecs */
    r[2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1])));
    r[2] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[2]))));
    r[2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[2]), (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 500: /* subutf8->string k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_subutf8_2D_3Estring: /* k vec start end */
    { /* open-output-string */
    r[4] = (mkoport_string(4, newcb())); }
    (void)(cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4])));
    { /* get-output-string */
    obj o = r[4];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[5] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } }
    { /* close-output-port */
    obj o = r[4];   cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    (void)(0); }
    r[4] = r[5];  
    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 501: /* clo k vec start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_subutf8_2D_3Estring;

case 502: /* clo k vec start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(bytevectorlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_subutf8_2D_3Estring;

case 503: /* clo k vec */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k vec */
    { /* bytevector->string */
    int *d = bytevectordata((r[1]));
    r[2] = (hpushstr(2, newstringn((char *)bvdatabytes(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 504: /* substring->utf8 k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_substring_2D_3Eutf8: /* k str start end */
    { /* open-output-bytevector */
    r[4] = (mkoport_bytevector(4, newcb())); }
    (void)(cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4])));
    { /* get-output-bytevector */
    obj o = r[4];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG &&
        vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[5] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf); 
    r[5] = (hpushu8v(5, newbytevector((unsigned char *)pcb->buf, len))); } }
    { /* close-output-port */
    obj o = r[4];   cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    (void)(0); }
    r[4] = r[5];  
    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 505: /* clo k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str start end */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    goto gs_substring_2D_3Eutf8;

case 506: /* clo k str start */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str start */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = r[2];  
    r[3+3] = obj_from_fixnum(stringlen((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_substring_2D_3Eutf8;

case 507: /* clo k str */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k str */
    { /* string->bytevector */
    int *d = stringdata((r[1]));
    r[2] = (hpushu8v(2, newbytevector((unsigned char *)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 508: /* clo k str p start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str p start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), (r[4]), (r[2])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 509: /* clo k str p start */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str p start */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[2])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 510: /* clo k str p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k str p */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_read_2Dsubstring_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 512: /* clo k k p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k k p */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_read_2Dsubstring;

case 513: /* clo k k */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k k */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_read_2Dsubstring;

case 514: /* clo k vec p start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec p start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), (r[4]), (r[2])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 515: /* clo k vec p start */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k vec p start */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[2])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 516: /* clo k vec p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k vec p */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_read_2Dsubbytevector_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[1]))), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 518: /* clo k k p */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k k p */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_read_2Dsubbytevector;

case 519: /* clo k k */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k k */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_read_2Dsubbytevector;

case 520: /* 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(521);
    r[2] = (hendblk(1+1));
    /* r[0] */    
    r[1] = r[2];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 521: /* 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 522: /* 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_v39697;
  }

s_loop_v39697: /* 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 ((bool_from_obj(r[1]) == bool_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v39697;
  } 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 523: /* 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_v39684;
  }

s_loop_v39684: /* 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_v39684;
  } 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 524: /* 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_v39671;
  }

s_loop_v39671: /* 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_v39671;
  } 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 525: /* 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_v39658;
  }

s_loop_v39658: /* 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_v39658;
  } 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 526: /* 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_v39645;
  }

s_loop_v39645: /* 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_v39645;
  } 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 527: /* 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_v39632;
  }

s_loop_v39632: /* 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_v39632;
  } 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 528: /* 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_v39619;
  }

s_loop_v39619: /* 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_v39619;
  } 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 529: /* 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_v39606;
  }

s_loop_v39606: /* 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_v39606;
  } 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 530: /* 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_v39593;
  }

s_loop_v39593: /* 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_v39593;
  } 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 531: /* 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_v39580;
  }

s_loop_v39580: /* 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_v39580;
  } 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 532: /* 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_v39567;
  }

s_loop_v39567: /* 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_v39567;
  } 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 533: /* 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_v39554;
  }

s_loop_v39554: /* 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 v43644_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v43644_x) == fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v43645_tmp = ((flonum_t)(v43644_x));
    r[4] = obj_from_bool((v43645_tmp) == flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43643_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v43643_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_v39554;
  } 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 534: /* 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_v39541;
  }

s_loop_v39541: /* 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 v43641_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v43641_x) < fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v43642_tmp = ((flonum_t)(v43641_x));
    r[4] = obj_from_bool((v43642_tmp) < flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43640_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v43640_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_v39541;
  } 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 535: /* 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_v39528;
  }

s_loop_v39528: /* 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 v43638_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v43638_x) > fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v43639_tmp = ((flonum_t)(v43638_x));
    r[4] = obj_from_bool((v43639_tmp) > flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43637_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v43637_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_v39528;
  } 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 536: /* 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_v39515;
  }

s_loop_v39515: /* 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 v43635_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v43635_x) <= fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v43636_tmp = ((flonum_t)(v43635_x));
    r[4] = obj_from_bool((v43636_tmp) <= flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43634_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v43634_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_v39515;
  } 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 537: /* 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_v39502;
  }

s_loop_v39502: /* 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 v43632_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[4] = obj_from_bool((v43632_x) >= fixnum_from_obj(r[3]));
  } else {
    { const flonum_t v43633_tmp = ((flonum_t)(v43632_x));
    r[4] = obj_from_bool((v43633_tmp) >= flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43631_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v43631_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_v39502;
  } 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 538: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v39487;

s_loop_v39487: /* 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_v39487;
  }

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

s_loop_v39472: /* 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_v39472;
  }

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

s_loop_v39457: /* 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_v39457;
  }

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

s_loop_v39442: /* 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_v39442;
  }

case 542: /* %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 543: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v39413;

case 544: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v39413: /* 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(544);
    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(545);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs__25residual_2Dmax_2F2;
  }

case 545: /* 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 546: /* %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 547: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v39384;

case 548: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v39384: /* 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(548);
    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(549);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs__25residual_2Dmin_2F2;
  }

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; /* 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 550: /* 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_v39371;
  }

s_loop_v39371: /* 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_v39371;
  }

case 551: /* 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_v39358;
  }

s_loop_v39358: /* 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_v39358;
  }

case 552: /* 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__233221);
    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_v39345;
  }

s_loop_v39345: /* 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_v39345;
  }

case 553: /* 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__233238);
    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_v39332;
  }

s_loop_v39332: /* 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_v39332;
  }

case 554: /* 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_v39319;
  }

s_loop_v39319: /* 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 v43629_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxadd((v43629_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43630_tmp = ((flonum_t)(v43629_x));
    r[3] = obj_from_flonum(4, (v43630_tmp) + flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43628_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v43628_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_v39319;
  }

case 555: /* 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_v39306;
  }

s_loop_v39306: /* 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 v43626_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxmul((v43626_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43627_tmp = ((flonum_t)(v43626_x));
    r[3] = obj_from_flonum(4, (v43627_tmp) * flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43625_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v43625_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_v39306;
  }

case 556: /* 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_v39293;
  }

s_loop_v39293: /* 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 v43623_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxgcd((v43623_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43624_tmp = ((flonum_t)(v43623_x));
    r[3] = obj_from_flonum(4, flgcd((v43624_tmp), flonum_from_obj(r[3]))); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43622_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v43622_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_v39293;
  }

case 557: /* 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_v39274;
  }

case 558: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v39274: /* 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(558);
    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(559);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs_lcm_2F2;
  }

case 559: /* 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 560: /* 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_v39259;
  }

s_loop_v39259: /* 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_v39259;
  }

case 561: /* 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_v39244;
  }

s_loop_v39244: /* 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_v39244;
  }

case 562: /* 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_v39229;
  }

s_loop_v39229: /* 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_v39229;
  }

case 563: /* 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_v39214;
  }

s_loop_v39214: /* 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_v39214;
  }

case 564: /* 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_v39199;
  }

s_loop_v39199: /* 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 v43620_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    r[3] = obj_from_fixnum(fxsub((v43620_x), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43621_tmp = ((flonum_t)(v43620_x));
    r[3] = obj_from_flonum(4, (v43621_tmp) - flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43619_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v43619_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_v39199;
  }

case 565: /* 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_v39184;
  }

s_loop_v39184: /* 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 v43617_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[3]))) {
    { /* fxfl/ */ 
    fixnum_t x = (v43617_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 v43618_tmp = ((flonum_t)(v43617_x));
    r[3] = obj_from_flonum(4, (v43618_tmp) / flonum_from_obj(r[3])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[3]))) {
    { const flonum_t v43616_tmp = ((flonum_t)fixnum_from_obj(r[3]));
    r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v43616_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_v39184;
  }

case 566: /* 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, log(flonum_from_obj(r[3])));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_bool(fixnum_from_obj(r[3]) == (+10));
  if (bool_from_obj(r[3])) {
    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, log10(flonum_from_obj(r[3])));
  } else {
    { flonum_t v43615_tmp;
    { flonum_t v43614_tmp;
    r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
    v43615_tmp = (log(flonum_from_obj(r[3])));
    r[3] = (car((r[2])));
    r[3] = ((is_flonum_obj(r[3])) ? (r[3]) : obj_from_flonum(4, (flonum_t)fixnum_from_obj(r[3])));
    v43614_tmp = (log(flonum_from_obj(r[3])));
    r[3] = obj_from_flonum(3, (v43615_tmp) / (v43614_tmp)); } }
  }
  }
    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 567: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const flonum_t v43613_x = flonum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_flonum(3, atan((v43613_x)));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_flonum(4, atan2((v43613_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 568: /* 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 569: /* clo k x y args */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x y args */
  if ((isnull((r[3])))) {
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (ismember((r[1]), (r[2])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = (car((r[3])));
    goto gs__25member;
  }

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

case 571: /* 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] = (mknull());
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v39117;
  } 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_v39059;
  }

case 572: /* 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_v39117: /* k l r p */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(572);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(573);
    r[4] = (hendblk(4+1));
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* 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;
  }

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; /* shift reg. wnd */
    /* ek r loop l 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] = (cdr((r[3])));
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 574: /* 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_v39059: /* k l* r p */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(574);
    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(575);
    r[4] = (hendblk(5+1));
    r[0] = r[4];  
    /* r[1] */    
    goto s_lp;

s_lp: /* 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] = 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[2] = obj_from_bool(ispair((r[2])));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    goto s_lp;
  } 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_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

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; /* shift reg. wnd */
    /* ek r l* p loop k r */
  if (bool_from_obj(r[1])) {
    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(577);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[2];  
    goto s_loop_v39091;
  } else {
    { /* reverse! */
    obj t, v = mknull(), l = r[6];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[7] = (v); }
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

s_loop_v39091: /* k l */
  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(576);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v39091;
  } 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 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; /* 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 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; /* shift reg. wnd */
    /* ek r l* p 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(579);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[2];  
    goto s_loop_v39076;

s_loop_v39076: /* k l */
  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(578);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v39076;
  } 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 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; /* 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 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+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r p 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(580);
    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 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 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 581: /* 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_v39038;
  } 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_v38982;
  }

case 582: /* 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_v39038: /* k l p */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(582);
    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(583);
    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;
  } 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 583: /* 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 584: /* 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_v38982: /* k l* p */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(584);
    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(585);
    r[3] = (hendblk(4+1));
    r[0] = r[3];  
    /* r[1] */    
    goto s_lp_v39029;

s_lp_v39029: /* 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] = 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[2] = obj_from_bool(ispair((r[2])));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    goto s_lp_v39029;
  } 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_bool(0);
    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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r p l* loop k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(587);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[3];  
    goto s_loop_v39014;
  } else {
    r[0] = r[5];  
    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_v39014: /* k l */
  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(586);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v39014;
  } 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 586: /* 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 587: /* 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(588);
    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 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; /* 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(590);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto s_loop_v38995;

s_loop_v38995: /* k l */
  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(589);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38995;
  } 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 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; /* 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 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; /* 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 591: /* clo k p s s* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p s s* */
  if ((isnull((r[3])))) {
    r[4] = (hpushstr(4, allocstring((stringlen((r[2]))), '?')));
    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; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v38961;
  } 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)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(596);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto s_loop_v38944;
  }

case 592: /* 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; /* shift reg. wnd */
s_loop_v38961: /* k i p res s */
  if ((fixnum_from_obj(r[1]) >= (stringlen((r[4]))))) {
    /* 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 {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(592);
    r[5] = (hendblk(3+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = obj_from_case(593);
    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] = obj_from_char(*(unsigned char*)stringref((r[4]), fixnum_from_obj(r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 593: /* 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 k res i */
    { const fixnum_t v43612_i = fixnum_from_obj(r[5]);
    (void)(*stringref((r[4]), (v43612_i)) = char_from_obj(r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((v43612_i), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

s_loop_v38944: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    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] = r[2];  
    goto s_loop_v38944;
  } 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 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(595);
    r[4] = (hendblk(2+1));
    r[0] = (cx_string_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (car((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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 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 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 p k */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(597);
    r[5] = (hendblk(1+1));
    r[6+0] = r[4];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__25residual_2Dmap);
    r[6+3] = r[2];  
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 597: /* 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 v43611_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43611_tmp = (n); }
    { /* list->string */
    int i, c = (v43611_tmp); 
    obj o = hpushstr(3, allocstring(c, ' ')); /* 3 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[3] = (o); } }
    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 598: /* clo k p v v* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p v v* */
  if ((isnull((r[3])))) {
    { /* new-vector */
    int c = (vectorlen((r[2])));
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    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; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v38911;
  } 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)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(603);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto s_loop_v38894;
  }

case 599: /* 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; /* shift reg. wnd */
s_loop_v38911: /* k i p res v */
  if ((fixnum_from_obj(r[1]) >= (vectorlen((r[4]))))) {
    /* 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 {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(599);
    r[5] = (hendblk(3+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = obj_from_case(600);
    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[4]), fixnum_from_obj(r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 600: /* 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 k res i */
    { const fixnum_t v43610_i = fixnum_from_obj(r[5]);
    (void)(vectorref((r[4]), (v43610_i)) = (r[1]));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = obj_from_fixnum(fxadd((v43610_i), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

s_loop_v38894: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(601);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38894;
  } 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 601: /* 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(602);
    r[4] = (hendblk(2+1));
    r[0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (car((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 602: /* 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 603: /* 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 */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[4] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(604);
    r[5] = (hendblk(1+1));
    r[6+0] = r[4];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__25residual_2Dmap);
    r[6+3] = r[2];  
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 604: /* 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 v43609_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43609_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43609_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 605: /* clo k p s s* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p s s* */
  if ((isnull((r[3])))) {
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(+0);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v38861;
  } 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)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(610);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto s_loop_v38844;
  }

case 606: /* 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; /* shift reg. wnd */
s_loop_v38861: /* k i p s */
  if ((fixnum_from_obj(r[1]) >= (stringlen((r[3]))))) {
    /* 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(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(606);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(607);
    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] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 607: /* 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 i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v38844: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(608);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38844;
  } 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 608: /* 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(609);
    r[4] = (hendblk(2+1));
    r[0] = (cx_string_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (car((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 609: /* 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 610: /* 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 */
    { /* 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_2Dfor_2Deach);
    r[5+3] = r[2];  
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 611: /* clo k p v v* */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k p v v* */
  if ((isnull((r[3])))) {
    r[4+0] = r[0];  
    r[4+1] = obj_from_fixnum(+0);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v38817;
  } 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)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(616);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto s_loop_v38800;
  }

case 612: /* 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; /* shift reg. wnd */
s_loop_v38817: /* k i p v */
  if ((fixnum_from_obj(r[1]) >= (vectorlen((r[3]))))) {
    /* 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(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(612);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(613);
    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[3]), fixnum_from_obj(r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 613: /* 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 i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v38800: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(614);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38800;
  } 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 614: /* 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(615);
    r[4] = (hendblk(2+1));
    r[0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (car((r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 615: /* 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 616: /* 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 */
    { /* 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_2Dfor_2Deach);
    r[5+3] = r[2];  
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 617: /* 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_v38781;
  }

s_loop_v38781: /* 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 ((char_from_obj(r[1]) == char_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38781;
  } 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 618: /* 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_v38768;
  }

s_loop_v38768: /* 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 ((char_from_obj(r[1]) < char_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38768;
  } 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 619: /* 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_v38755;
  }

s_loop_v38755: /* 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 ((char_from_obj(r[1]) > char_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38755;
  } 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 620: /* 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_v38742;
  }

s_loop_v38742: /* 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 ((char_from_obj(r[1]) <= char_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38742;
  } 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 621: /* 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_v38729;
  }

s_loop_v38729: /* 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 ((char_from_obj(r[1]) >= char_from_obj(r[3]))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38729;
  } 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 622: /* 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_v38716;
  }

s_loop_v38716: /* 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 ((tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38716;
  } 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 623: /* 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_v38703;
  }

s_loop_v38703: /* 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 ((tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38703;
  } 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 624: /* 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_v38690;
  }

s_loop_v38690: /* 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 ((tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38690;
  } 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 625: /* 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_v38677;
  }

s_loop_v38677: /* 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 ((tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38677;
  } 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 626: /* 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_v38664;
  }

s_loop_v38664: /* 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 ((tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38664;
  } 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 627: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v43608_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = (hpushstr(3, allocstring((v43608_x), '?')));
  } else {
    r[3] = (car((r[2])));
    r[3] = (hpushstr(4, allocstring((v43608_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 628: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43607_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43607_tmp = (n); }
    { /* list->string */
    int i, c = (v43607_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 629: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v38633;

s_loop_v38633: /* 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__233975);
    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(630);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38633;
  }
  }

case 630: /* 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 631: /* 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_v38620;
  }

s_loop_v38620: /* 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 ((strcmp(stringchars((r[1])), stringchars((r[3]))) == 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38620;
  } 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 632: /* 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_v38607;
  }

s_loop_v38607: /* 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 ((strcmp(stringchars((r[1])), stringchars((r[3]))) < 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38607;
  } 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 633: /* 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_v38594;
  }

s_loop_v38594: /* 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 ((strcmp(stringchars((r[1])), stringchars((r[3]))) > 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38594;
  } 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 634: /* 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_v38581;
  }

s_loop_v38581: /* 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 ((strcmp(stringchars((r[1])), stringchars((r[3]))) <= 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38581;
  } 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 635: /* 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_v38568;
  }

s_loop_v38568: /* 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 ((strcmp(stringchars((r[1])), stringchars((r[3]))) >= 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38568;
  } 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 636: /* 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_v38555;
  }

s_loop_v38555: /* 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 ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) == 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38555;
  } 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 637: /* 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_v38542;
  }

s_loop_v38542: /* 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 ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) < 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38542;
  } 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 638: /* 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_v38529;
  }

s_loop_v38529: /* 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 ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) > 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38529;
  } 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 639: /* 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_v38516;
  }

s_loop_v38516: /* 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 ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) <= 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38516;
  } 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 640: /* 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_v38503;
  }

s_loop_v38503: /* 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 ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) >= 0)) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38503;
  } 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 641: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v43606_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    { /* new-vector */
    int c = (v43606_x);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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 = (v43606_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 642: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43605_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43605_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43605_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 643: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v43604_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = (hpushu8v(3, allocbytevector((v43604_x))));
  } else {
    r[3] = (car((r[2])));
    r[3] = (hpushu8v(4, makebytevector((v43604_x), byte_from_fixnum(fixnum_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 644: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43603_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43603_tmp = (n); }
    { /* list->bytevector */
    int i, c = (v43603_tmp); 
    obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = bytevectorbytes(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_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 645: /* 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 646: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    /* r[0] */    
    /* r[1] */    
    r[2] = obj_from_void(0);
    goto gs__25make_2Dlist;
  } else {
    /* r[0] */    
    /* r[1] */    
    r[2] = (car((r[2])));
    goto gs__25make_2Dlist;
  }

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

s_loop_v38440: /* 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(648);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38440;
  }

case 648: /* 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 649: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v38423;

s_loop_v38423: /* 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(650);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38423;
  }
  }

case 650: /* 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 v43602_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43602_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43602_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 651: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_bool(isrecord((r[1])));
  } else {
    r[3] = (car((r[2])));
    { /* record? */
    obj o = (r[1]), t = r[3];   
    if (!isrecord(o)) r[3] = obj_from_bool(0);
    else r[3] = obj_from_bool(recordrtd(o) == t); }
  }
    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 652: /* 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; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else 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 653: /* 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;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    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;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    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 654: /* 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_v38386;
  }

s_loop_v38386: /* 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 ((getsymbol((r[1])) == getsymbol((r[3])))) {
    r[4] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38386;
  } 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 655: /* 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")));
    r[2+3] = (cx__234285);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 656: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43601_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43601_tmp = (n); }
    { /* %residual-make-case-lambda */
    obj l; int i, c = (v43601_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 657: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = (cx__2Acurrent_2Dinput_2Dport_2A);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Dinput_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Dinput_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (car((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 658: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = (cx__2Acurrent_2Doutput_2Dport_2A);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Doutput_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Doutput_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (car((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 659: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Derror_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Derror_2Dport_2A = (car((r[1])));
    r[2] = obj_from_void(0);
  } else {
    r[2] = (car((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 660: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A));  r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  } else {
    r[2] = (car((r[1])));
    { int c = iportgetc((r[2]));  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 661: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A));  r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
  } else {
    r[2] = (car((r[1])));
    { int c = iportpeekc((r[2]));  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 662: /* 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 663: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    /* r[0] */    
    r[1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    goto gs__25read_2Dline;
  } else {
    /* r[0] */    
    r[1] = (car((r[1])));
    goto gs__25read_2Dline;
  }

case 664: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v43600_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    { /* display-fixnum */
    char buf[30]; sprintf(buf, "%ld", (v43600_x));
    r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-fixnum */
    char buf[30]; sprintf(buf, "%ld", (v43600_x));
    r[3] = obj_from_void(oportputs(buf, (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 665: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const flonum_t v43599_x = flonum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    { /* display-flonum */
    char buf[30], *s; double d = (v43599_x); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
    r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-flonum */
    char buf[30], *s; double d = (v43599_x); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
    r[3] = obj_from_void(oportputs(buf, (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 666: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    { /* display-procedure */
    char buf[60]; sprintf(buf, "#<procedure @%p>", objptr_from_obj((r[1])));
    r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-procedure */
    char buf[60]; sprintf(buf, "#<procedure @%p>", objptr_from_obj((r[1])));
    r[3] = obj_from_void(oportputs(buf, (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 667: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    { /* display-input-port */
    char buf[60]; sprintf(buf, "#<%s>", ckiportvt((r[1]))->tname);
    r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-input-port */
    char buf[60]; sprintf(buf, "#<%s>", ckiportvt((r[1]))->tname);
    r[3] = obj_from_void(oportputs(buf, (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 668: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    { /* display-output-port */
    char buf[60]; sprintf(buf, "#<%s>", ckoportvt((r[1]))->tname);
    r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (car((r[2])));
    { /* display-output-port */
    char buf[60]; sprintf(buf, "#<%s>", ckoportvt((r[1]))->tname);
    r[3] = obj_from_void(oportputs(buf, (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 669: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const char_t v43598_x = char_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputc((v43598_x), (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputc((v43598_x), (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 670: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputs(stringchars((r[1])), (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[3] = (cdr((r[2])));
    r[3] = obj_from_bool(isnull((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
  } else {
    r[3] = (cdr((r[2])));
    r[3] = (cdr((r[3])));
    r[3] = obj_from_bool(isnull((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[2])));
    r[3] = (car((r[3])));
    r[4] = (car((r[2])));
    r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[4])));
  } else {
    r[3] = (cdr((r[2])));
    r[3] = (car((r[3])));
    r[4] = (cdr((r[2])));
    r[4] = (cdr((r[4])));
    r[4] = (car((r[4])));
    r[5] = (car((r[2])));
    r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), (r[4]), (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 671: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[2] = (car((r[1])));
    r[2] = obj_from_void(oportputc('\n', (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 672: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2] = obj_from_void(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[2] = (car((r[1])));
    r[2] = obj_from_void(oportflush((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 673: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
  } else {
    r[2] = (car((r[1])));
    { int c = iportgetc((r[2]));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
  }
    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 674: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    { int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
  } else {
    r[2] = (car((r[1])));
    { int c = iportpeekc((r[2]));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
  }
    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 675: /* 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 676: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
    { const fixnum_t v43597_x = fixnum_from_obj(r[1]);
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputc((v43597_x), (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputc((v43597_x), (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 677: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    { /* write-bytevector */
    int *d = bytevectordata((r[1]));
    r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d,  (cx__2Acurrent_2Doutput_2Dport_2A))); }
  } else {
    r[3] = (cdr((r[2])));
    r[3] = obj_from_bool(isnull((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[2])));
    { /* write-bytevector */
    int *d = bytevectordata((r[1]));
    r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d,  (r[3]))); }
  } else {
    r[3] = (cdr((r[2])));
    r[3] = (cdr((r[3])));
    r[3] = obj_from_bool(isnull((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[2])));
    r[3] = (car((r[3])));
    r[4] = (car((r[2])));
    r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[4])));
  } else {
    r[3] = (cdr((r[2])));
    r[3] = (car((r[3])));
    r[4] = (cdr((r[2])));
    r[4] = (cdr((r[4])));
    r[4] = (car((r[4])));
    r[5] = (car((r[2])));
    r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), (r[4]), (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 678: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputsimple((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputsimple((r[1]), (r[3]), 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 679: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputshared((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputshared((r[1]), (r[3]), 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 680: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputcircular((r[1]), (r[3]), 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 681: /* clo k x args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x args */
  if ((isnull((r[2])))) {
    r[3] = obj_from_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
  } else {
    r[3] = (car((r[2])));
    r[3] = obj_from_void(oportputcircular((r[1]), (r[3]), 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 682: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    r[2+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r[2+2] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;
  } else {
    r[2+0] = r[0];  
    r[2+1] = (car((r[1])));
    r[2+2] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;
  }

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

case 684: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
  if ((isnull((r[1])))) {
    r[2+0] = (cx_exit);
    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;
  } else {
    r[2+0] = (cx_exit);
    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 685: /* features 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] = (cxs_features());
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 686: /* append* k lst */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_append_2A: /* k lst */
  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 {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(687);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    r[1] = (cdr((r[1])));
    goto gs_append_2A;
  }
  }

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 lst */
    r[4] = (car((r[3])));
    { fixnum_t v43596_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43596_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43596_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 688: /* string-append* k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_string_2Dappend_2A: /* k l */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[2] = obj_from_objptr(c); }
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__25residual_2Dstring_2Dappend);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 689: /* apply-map-list k lst */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_apply_2Dmap_2Dlist: /* k lst */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v38100;

case 690: /* clo k lst res */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v38100: /* k lst res */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(690);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(691);
    r[3] = (hendblk(4+1));
    r[0] = r[3];  
    /* r[1] */    
    goto s_loop_v38141;

s_loop_v38141: /* k id */
  if ((!(isnull((r[1]))))) {
    r[2] = (car((r[1])));
    r[2] = obj_from_bool(isnull((r[2])));
  if (bool_from_obj(r[2])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    goto s_loop_v38141;
  }
  } 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_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 691: /* 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 lst loop k res */
  if (bool_from_obj(r[1])) {
    { fixnum_t v43595_tmp;
    { /* length */
    int n; obj l = r[5];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43595_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43595_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[5];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[6] = (o); } }
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(693);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto s_loop_v38126;
  }

s_loop_v38126: /* k l */
  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(692);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38126;
  } 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 692: /* 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 693: /* 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 lst loop k res */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(695);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto s_loop_v38111;

s_loop_v38111: /* k l */
  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(694);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v38111;
  } 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 694: /* 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 695: /* 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 res */
    { /* 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 696: /* pairwise-andmap k pred? lst */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_pairwise_2Dandmap: /* k pred? lst */
  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])));
    r[4] = (cdr((r[2])));
  if ((isnull((r[4])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isnull((r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(697);
    r[5] = (hendblk(3+1));
    r[6+0] = r[1];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[3];  
    r[6+3] = (car((r[4])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 697: /* 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 pred? k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_pairwise_2Dandmap;
  } else {
    r[0] = r[4];  
    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 698: /* sexp-match? k pat x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k pat x */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_sexp_2Dmatch_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 699: /* read-code-sexp k port */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_read_2Dcode_2Dsexp: /* k port */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;

case 700: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    r[2+0] = r[0];  
    r[2+1] = (cx__234680);
    r[2+2] = r[1];  
    r[2+3] = (cx__2Acurrent_2Derror_2Dport_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_print_2Derror_2Dmessage;

case 701: /* 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_v38045;

case 702: /* 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_v38045: /* k args a* msg */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(702);
    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_simple_2Derror);
    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(703);
    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_v38045;
  }
  }

case 703: /* 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 704: /* path-strip-directory k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Ddirectory: /* k filename */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(705);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_string_2D_3Elist);
    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 705: /* 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 v43594_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43594_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43594_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 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[3] = (o); } }
    r[0] = r[2];  
    r[1] = r[3];  
    r[2] = (mknull());
    goto s_loop_v38028;

s_loop_v38028: /* k l r */
  if ((isnull((r[1])))) {
    { fixnum_t v43593_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43593_tmp = (n); }
    { /* list->string */
    int i, c = (v43593_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[3] = (o); } }
    /* 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] = (car((r[1])));
    r[3] = (ismemv((r[3]), (cx__234728)));
  if (bool_from_obj(r[3])) {
    { fixnum_t v43592_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43592_tmp = (n); }
    { /* list->string */
    int i, c = (v43592_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[3] = (o); } }
    /* 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] = (cdr((r[1])));
    r[4] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v38028;
  }
  }

case 706: /* path-directory k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Ddirectory: /* k filename */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(707);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_string_2D_3Elist);
    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 707: /* 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 v43591_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43591_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43591_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 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[3] = (o); } }
    r[0] = r[2];  
    r[1] = r[3];  
    goto s_loop_v38011;

s_loop_v38011: /* 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] = (cx__233975);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[2] = (ismemv((r[2]), (cx__234751)));
  if (bool_from_obj(r[2])) {
    { fixnum_t v43589_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43589_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43589_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); } }
    { fixnum_t v43590_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43590_tmp = (n); }
    { /* list->string */
    int i, c = (v43590_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); } }
    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;
  } else {
    r[2] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    goto s_loop_v38011;
  }
  }

case 708: /* path-strip-extension k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Dextension: /* k filename */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(709);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_string_2D_3Elist);
    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 709: /* 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 filename k */
    { fixnum_t v43588_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43588_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43588_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 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[4] = (o); } }
    r[0] = r[3];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_loop_v37994;

s_loop_v37994: /* k l filename */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(((r[3]) == obj_from_char('.')) || ((is_flonum_obj(r[3])) && (0)));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    { fixnum_t v43586_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43586_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43586_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[3];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[3] = (o); } }
    { fixnum_t v43587_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43587_tmp = (n); }
    { /* list->string */
    int i, c = (v43587_tmp); 
    obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */
    obj l = r[3];   /* 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[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;
  } else {
    r[3] = (car((r[1])));
    r[3] = (ismemv((r[3]), (cx__234751)));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v37994;
  }
  }
  }

case 710: /* base-path-separator k basepath */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_base_2Dpath_2Dseparator: /* k basepath */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(711);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_string_2D_3Elist);
    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 711: /* 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 v43585_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43585_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43585_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 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[3] = (o); } }
  if ((isnull((r[3])))) {
    r[4] = obj_from_bool(0);
  } else {
    r[4] = (car((r[3])));
    r[4] = (ismemv((r[4]), (cx__234796)));
  if (bool_from_obj(r[4])) {
    r[4] = (car((r[3])));
  } else {
    r[4] = obj_from_bool(0);
  }
  }
    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 712: /* path-relative? k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Drelative_3F: /* k filename */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(713);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_string_2D_3Elist);
    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 713: /* 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 ((isnull((r[1])))) {
    r[3] = obj_from_bool(0);
  } else {
    r[3] = (car((r[1])));
    r[3] = (ismemv((r[3]), (cx__234796)));
  if (bool_from_obj(r[3])) {
    r[3] = obj_from_bool(0);
  } else {
    { fixnum_t v43584_a;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43584_a = (n); }
    r[3] = obj_from_bool((v43584_a) > (+3)); }
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(isalpha(char_from_obj(r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(((r[3]) == obj_from_char(':')) || ((is_flonum_obj(r[3])) && (0)));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (cdr((r[3])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(((r[3]) == obj_from_char(92)) || ((is_flonum_obj(r[3])) && (0)));
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = obj_from_bool(0);
  } else {
    r[3] = obj_from_bool(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 714: /* file-resolve-relative-to-base-path k filename basepath */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_file_2Dresolve_2Drelative_2Dto_2Dbase_2Dpath: /* k filename basepath */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(715);
    r[3] = (hendblk(3+1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(716);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_path_2Drelative_3F;

case 715: /* 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 basepath filename */
  if (bool_from_obj(r[1])) {
    { /* string-append */
    int *d = stringcat(stringdata((r[3])), stringdata((r[4])));
    r[5] = (hpushstr(5, d)); }
    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;
  } else {
    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 716: /* 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 basepath k */
  if (bool_from_obj(r[1])) {
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_base_2Dpath_2Dseparator;
  } else {
    r[0] = r[3];  
    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 717: /* current-file k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_current_2Dfile: /* k */
    r[1+0] = r[0];  
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = obj_from_ktrap();
    r[1+2] = ((ispair((cx__2Acurrent_2Dfile_2Dstack_2A))) ? (car((cx__2Acurrent_2Dfile_2Dstack_2A))) : obj_from_bool(0));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 718: /* with-current-file k filename thunk */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_with_2Dcurrent_2Dfile: /* k filename thunk */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(719);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(720);
    r[4] = (hendblk(0+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[2];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_dynamic_2Dwind;

case 719: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k filename */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (cx__2Acurrent_2Dfile_2Dstack_2A);
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Acurrent_2Dfile_2Dstack_2A = (hendblk(3)); }
    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 720: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    cx__2Acurrent_2Dfile_2Dstack_2A = (cdr((cx__2Acurrent_2Dfile_2Dstack_2A)));
    r[1] = obj_from_void(0);
    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 721: /* file-resolve-relative-to-current k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_file_2Dresolve_2Drelative_2Dto_2Dcurrent: /* k filename */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(722);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_path_2Drelative_3F;

case 722: /* 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 filename k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(723);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    goto gs_current_2Dfile;
  } 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 723: /* 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 filename k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(724);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_path_2Ddirectory;
  } 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 724: /* 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 filename 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_file_2Dresolve_2Drelative_2Dto_2Dbase_2Dpath;

case 725: /* listname-segment->string k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_listname_2Dsegment_2D_3Estring: /* k s */
  if ((issymbol((r[1])))) {
    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;
  } else {
  if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) {
  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[2] = (hpushstr(2, newstring(s))); }
  } else {
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else 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;
  } else {
  if ((isstring((r[1])))) {
    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;
  } else {
    r[2+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("compiler")));
    r[2+3] = (cx__234863);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 726: /* listname->modname k listname */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_listname_2D_3Emodname: /* k listname */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v37867;

case 727: /* clo k l r */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
s_loop_v37867: /* k l r */
  if ((ispair((r[1])))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(727);
    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(728);
    r[3] = (hendblk(3+1));
  if ((isnull((r[2])))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(729);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[1])));
    goto gs_listname_2Dsegment_2D_3Estring;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(730);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[1])));
    goto gs_listname_2Dsegment_2D_3Estring;
  }
  } else {
    { fixnum_t v43583_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43583_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43583_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[3] = (o); } }
    /* r[0] */    
    r[1] = r[3];  
    goto gs_string_2Dappend_2A;
  }

case 728: /* 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 l k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cdr((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 729: /* 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 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; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (cx_modname_2Dseparator);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--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 731: /* listname->path k listname basepath ext */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_listname_2D_3Epath: /* k listname basepath ext */
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(732);
    r[5] = (hendblk(5+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_base_2Dpath_2Dseparator;

case 732: /* 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 ext basepath listname k sep */
    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(733);
    r[7] = (hendblk(5+1));
  if (bool_from_obj(r[1])) {
    { /* string */
    obj o = hpushstr(8, allocstring(1, ' '));
    unsigned char *s = (unsigned char *)stringchars(o);
    *s++ = (unsigned char)char_from_obj(r[1]);
    r[8] = (o); }
    r[0] = obj_from_ktrap();
    r[1] = r[8];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    goto s_l_v37817;
  } else {
    r[8+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (mksymbol(internsym("compiler")));
    r[8+3] = (cx__234906);
    r[8+4] = (r[3]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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+6] = p[5]; }
    r += 1; /* shift reg. wnd */
s_l_v37817: /* ek r ext basepath listname k sep */
    (void)(objptr_from_obj(r[6])[0] = (r[1]));
    r[7+0] = r[5];  
    r[7+1] = r[4];  
    r[7+2] = (mknull());
    r[7+3] = r[2];  
    r[7+4] = r[3];  
    r[7+5] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v37818;

case 734: /* clo k l r */
    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 */
s_loop_v37818: /* k l r ext basepath sep */
  if ((ispair((r[1])))) {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(734);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(735);
    r[6] = (hendblk(3+1));
  if ((isnull((r[2])))) {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(736);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    r[1] = (car((r[1])));
    goto gs_listname_2Dsegment_2D_3Estring;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(737);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    r[1] = (car((r[1])));
    goto gs_listname_2Dsegment_2D_3Estring;
  }
  } else {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = obj_from_case(738);
    r[6] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { fixnum_t v43582_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43582_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43582_tmp);
    hreserve(hbsz(3)*c, 8); /* 8 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[7] = (o); } }
    r[0] = r[6];  
    r[1] = r[7];  
    goto gs_string_2Dappend_2A;
  }

case 735: /* 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 l k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cdr((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 736: /* 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 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 k r sep */
    r[5] = (objptr_from_obj(r[4])[0]);
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--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] = 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 738: /* 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 basepath k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_file_2Dresolve_2Drelative_2Dto_2Dbase_2Dpath;

case 739: /* add-library-path! k path */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_add_2Dlibrary_2Dpath_21: /* k path */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(740);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_base_2Dpath_2Dseparator;

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; /* shift reg. wnd */
    /* ek r k path */
  if (bool_from_obj(r[1])) {
    r[4] = (cx__2Alibrary_2Dpath_2Dlist_2A);
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { fixnum_t v43581_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43581_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43581_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[4];   t = r[5];   /* 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; }  
    cx__2Alibrary_2Dpath_2Dlist_2A = (o); } }
    r[4] = obj_from_void(0);
    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;
  } else {
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("compiler")));
    r[4+3] = (cx__234934);
    r[4+4] = (r[3]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 741: /* find-library-path k libname */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_find_2Dlibrary_2Dpath: /* k libname */
    r[2] = (cx__2Alibrary_2Dpath_2Dlist_2A);
    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_v37785;

case 742: /* 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_v37785: /* k l libname */
  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 {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(742);
    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(743);
    r[3] = (hendblk(3+1));
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = (car((r[1])));
    r[4+3] = (cx__234941);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_listname_2D_3Epath;
  }

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 loop l k */
  if (bool_from_obj(r[1])) {
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[1])), "r");
    if (f != NULL) fclose(f);
    r[5] = obj_from_bool(f != NULL); }
  } else {
    r[5] = obj_from_bool(0);
  }
  if (bool_from_obj(r[5])) {
    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] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 744: /* resolve-input-file/lib-name k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_resolve_2Dinput_2Dfile_2Flib_2Dname: /* k name */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(745);
    r[3] = (hendblk(3+1));
  if ((isstring((r[1])))) {
    r[0] = r[3];  
    /* r[1] */    
    goto gs_file_2Dresolve_2Drelative_2Dto_2Dcurrent;
  } else {
    r[0] = r[3];  
    /* r[1] */    
    goto gs_find_2Dlibrary_2Dpath;
  }

case 745: /* 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 name k filepath */
    (void)(objptr_from_obj(r[4])[0] = (r[1]));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(746);
    r[5] = (hendblk(3+1));
    r[6] = (objptr_from_obj(r[4])[0]);
    r[6] = obj_from_bool(!bool_from_obj(r[6]));
  if (bool_from_obj(r[6])) {
  if ((isstring((r[2])))) {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__234958);
    r[6+4] = (r[2]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__234957);
    r[6+4] = (r[2]);
    r[6+5] = (mksymbol(internsym("in")));
    r[6+6] = (cx__2Alibrary_2Dpath_2Dlist_2A);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  }
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_void(0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_l_v37764;
  }

case 746: /* 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_v37764: /* ek . name k filepath */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(747);
    r[5] = (hendblk(2+1));
    { bool_t v43580_tmp;
    r[6] = (objptr_from_obj(r[4])[0]);
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[6])), "r");
    if (f != NULL) fclose(f);
    v43580_tmp = (f != NULL); }
    r[6] = obj_from_bool(!(v43580_tmp)); }
  if (bool_from_obj(r[6])) {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__234954);
    r[6+4] = (r[2]);
    r[6+5] = (mksymbol(internsym("=>")));
    r[6+6] = (objptr_from_obj(r[4])[0]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_void(0);
    r[2] = r[3];  
    r[3] = r[4];  
    goto s_l_v37766;
  }

case 747: /* 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_v37766: /* ek . k filepath */
    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 748: /* call-with-input-file/lib k name ci? proc */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Dinput_2Dfile_2Flib: /* k name ci? proc */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(749);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_resolve_2Dinput_2Dfile_2Flib_2Dname;

case 749: /* 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 proc ci? k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(750);
    r[5] = (hendblk(3+1));
    r[6+0] = r[4];  
    r[6+1] = r[1];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_with_2Dcurrent_2Dfile;

case 750: /* 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 ci? r */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(751);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_call_2Dwith_2Dinput_2Dfile;

case 751: /* clo k port */
    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 port proc r ci? */
    (void)(bool_from_obj(r[4]) ? (void)(ckiportvt((r[1]))) : (void)(0));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 752: /* call-with-file/lib-sexps k name ci? proc */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_call_2Dwith_2Dfile_2Flib_2Dsexps: /* k name ci? proc */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(753);
    r[4] = (hendblk(1+1));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[4];  
    goto gs_call_2Dwith_2Dinput_2Dfile_2Flib;

case 753: /* clo k filepath port */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k filepath port proc */
    /* r[0] */    
    r[1] = (mknull());
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v37708;

case 754: /* clo k sexps */
    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_v37708: /* k sexps port proc */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(754);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(755);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_read_2Dcode_2Dsexp;

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+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop proc sexps k */
  if ((iseof((r[1])))) {
    { /* reverse! */
    obj t, v = mknull(), l = r[4];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[6] = (v); }
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--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] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 756: /* for-each-file/lib-sexp k proc name ci? */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_for_2Deach_2Dfile_2Flib_2Dsexp: /* k proc name ci? */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(757);
    r[4] = (hendblk(1+1));
    r[5+0] = r[0];  
    r[5+1] = r[2];  
    r[5+2] = r[3];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_call_2Dwith_2Dinput_2Dfile_2Flib;

case 757: /* clo k filepath port */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k filepath port proc */
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v37675;

case 758: /* 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 */
s_loop_v37675: /* k port proc */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(758);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(759);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_read_2Dcode_2Dsexp;

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; /* shift reg. wnd */
    /* ek r proc loop k */
  if ((iseof((r[1])))) {
    r[0] = r[4];  
    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(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(760);
    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 760: /* 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 . loop k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 761: /* file/lib->modname k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_file_2Flib_2D_3Emodname: /* k name */
  if (((ispair((r[1]))) && (islist((r[1]))))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_listname_2D_3Emodname;
  } else {
  if ((isstring((r[1])))) {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(762);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_path_2Dstrip_2Ddirectory;
  } else {
    r[2+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("compiler")));
    r[2+3] = (cx__235006);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 762: /* 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_path_2Dstrip_2Dextension;

case 763: /* file/lib/stdin->modname k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k name */
  if (((isstring((r[1]))) && (strcmp(stringchars((r[1])), stringchars((cx__235013))) == 0))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cx__235012);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto gs_file_2Flib_2D_3Emodname;
  }

case 764: /* fully-qualified-name k modname id */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k modname id */
    r[3] = (hpushstr(3, newstring(symbolname(getsymbol((r[2]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[3])));
    r[3] = (hpushstr(4, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[3])));
    r[3] = (hpushstr(4, d)); }
    r[3] = (mksymbol(internsym(stringchars((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 765: /* fully-qualified-library-name k lib id */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k lib id */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(766);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_file_2Flib_2D_3Emodname;

case 766: /* 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 id */
    r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[3]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    r[4] = (mksymbol(internsym(stringchars((r[4])))));
    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 767: /* sid? k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_sid_3F: /* k sexp */
  if ((issymbol((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(issymbol((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto gs_renamed_2Dsid_3F;
  }

case 768: /* renamed-sid? k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_renamed_2Dsid_3F: /* k sexp */
    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]))) && (!((vectorlen((r[1]))) == (+1))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 769: /* svector? k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_svector_3F: /* k sexp */
    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]))) && ((+1) == (vectorlen((r[1])))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 770: /* svector->list k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k sexp */
    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 771: /* list->svector k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { /* vector */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    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 772: /* make-sid k name renamed-id location */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k name renamed-id location */
    { /* vector */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    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 773: /* sid-name k sid */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k sid */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_sid_2Dname((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 774: /* sid-id k sid */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k sid */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_sid_2Did((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 775: /* sid-location k sid */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k sid */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_sid_2Dlocation((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 776: /* 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 777: /* list2? 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_list2_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 778: /* map-vecs k f x */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_map_2Dvecs: /* k f x */
    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_mv;

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

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; /* shift reg. wnd */
    /* ek r k x */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (bool_from_obj(r[1]) ? (r[1]) : (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 781: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_mv2: /* k x f */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(781);
    r[3] = (hendblk(1+1));
  if ((isvector((r[1])))) {
    r[4+0] = r[2];  
    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;
  } else {
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    r[5] = (cdr((r[1])));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(779);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(782);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_mv2;
  } 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 782: /* 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 mv2 a mv b k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(783);
    r[7] = (hendblk(2+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_case(784);
    r[7] = (hendblk(2+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;
  }

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; /* shift reg. wnd */
    /* ek r k r */
    { /* 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 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; /* shift reg. wnd */
    /* ek r k a */
  if (bool_from_obj(r[1])) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
  } else {
    r[4] = obj_from_bool(0);
  }
    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 785: /* wrap-vec k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(786);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_vector_2D_3Elist);
    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 786: /* 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 */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(787);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_wrap_2Dvecs;

case 787: /* 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 */
    { /* vector */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(1+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 788: /* wrap-vecs k input */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_wrap_2Dvecs: /* k input */
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(789);
    r[2] = (hendblk(0+1));
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_map_2Dvecs;

case 789: /* clo k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(790);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_vector_2D_3Elist);
    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 790: /* 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 */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(791);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_wrap_2Dvecs);
    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 791: /* 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 */
    { /* vector */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(1+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 792: /* unwrap-vec k v-sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_unwrap_2Dvec: /* k v-sexp */
  if (((+1) == (vectorlen((r[1]))))) {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(793);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (vectorref((r[1]), (+0)));
    goto gs_unwrap_2Dvecs;
  } else {
    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 793: /* 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 v43579_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43579_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43579_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 794: /* unwrap-vecs k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_unwrap_2Dvecs: /* k sexp */
    r[2+0] = r[0];  
    r[2+1] = (cx_unwrap_2Dvec);
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_map_2Dvecs;

case 795: /* make-code k output */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k output */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--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 796: /* make-builtin k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k name */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (cx__235139);
    *--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 797: /* variable? k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k val */
    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 798: /* expanded-code? k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k val */
    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 799: /* code-output k code */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k code */
    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 800: /* syntax? k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k val */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list2_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 801: /* builtin? k syntax */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k syntax */
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[2] = obj_from_bool((mksymbol(internsym("builtin"))) == (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 802: /* builtin-name k builtin */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k builtin */
    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 803: /* expander? k syntax */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k syntax */
    { bool_t v43578_tmp;
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    v43578_tmp = ((mksymbol(internsym("builtin"))) == (r[2]));
    r[2] = obj_from_bool(!(v43578_tmp)); }
    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 804: /* make-expander k form env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k form env */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--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 805: /* expander-form k expd */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k expd */
    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 806: /* expander-env k expd */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k expd */
    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 807: /* acons k key val alist */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k key val alist */
    { /* 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[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 808: /* lookup-sid k sid env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_lookup_2Dsid: /* k sid env */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    r[4] = (cxs_sid_2Did((r[1])));
    (void)(objptr_from_obj(r[3])[0] = (r[4]));
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = r[3];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v37360;

s_loop_v37360: /* k env id sid */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cxs_sid_2Dlocation((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isprocedure((r[1])))) {
  if ((issymbol((r[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;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cxs_sid_2Dlocation((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    r[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[5] = (objptr_from_obj(r[2])[0]);
    r[4] = obj_from_bool(((r[4]) == (r[5])) || ((is_flonum_obj(r[4])) && ((is_flonum_obj(r[5])) && (flonum_from_obj(r[4]) == flonum_from_obj(r[5])))));
  if (bool_from_obj(r[4])) {
    r[4] = (car((r[1])));
    r[4] = (cdr((r[4])));
    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 {
    r[4] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v37360;
  }
  }
  }

case 809: /* lookup-location k location store */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_lookup_2Dlocation: /* k location store */
    r[3] = (isassv((r[1]), (r[2])));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((issymbol((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_symloc_2D_3Evar;
  } 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 810: /* lookup2 k sid env store */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_lookup2: /* k sid env store */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(811);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto gs_lookup_2Dsid;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r store sid k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(812);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    /* r[1] */    
    /* r[2] */    
    goto gs_lookup_2Dlocation;

case 812: /* 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 sid k */
  if (bool_from_obj(r[1])) {
    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; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(813);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

case 813: /* 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 */
    { /* string-append */
    int *d = stringcat(stringdata((cx__235237)), stringdata((cx__235236)));
    r[3] = (hpushstr(3, d)); }
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("macroexpander")));
    r[4+3] = (r[3]);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 814: /* extend-env k env id location */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k env id location */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(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[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 815: /* extend-store k store loc val */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k store loc val */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(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[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 816: /* substitute-in-store k store loc val */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_substitute_2Din_2Dstore: /* k store loc val */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(817);
    r[4] = (hendblk(3+1));
  if (bool_from_obj(isassv((r[2]), (r[1])))) {
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v37265;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = r[1];  
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r[5+4] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37277;
  }

case 817: /* 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_v37277: /* ek r val loc k */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(818);
    r[5] = (hendblk(4+1));
  if ((issymbol((r[3])))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(819);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[3];  
    goto gs_symloc_2D_3Evar;
  } else {
    r[6+0] = obj_from_ktrap();
    r[6+1] = obj_from_bool(0);
    r[6+2] = r[2];  
    r[6+3] = r[3];  
    r[6+4] = r[4];  
    r[6+5] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37285;
  }

case 818: /* 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 */
s_l_v37285: /* ek r val loc k r */
  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 {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 819: /* 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 val */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_bool((r[3]) == (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v37265: /* k store loc */
    r[3] = (car((r[1])));
    r[4] = (car((r[3])));
    r[4] = obj_from_bool(((r[2]) == (r[4])) || ((is_flonum_obj(r[2])) && ((is_flonum_obj(r[4])) && (flonum_from_obj(r[2]) == flonum_from_obj(r[4])))));
  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] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(820);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_loop_v37265;
  }

case 820: /* 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 */
    { /* 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 821: /* symloc->var k sym */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_symloc_2D_3Evar: /* k sym */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    r[3] = (hpushstr(3, newstring(symbolname(getsymbol((r[1]))))));
    (void)(objptr_from_obj(r[2])[0] = (r[3]));
  if ((((r[1]) == (mksymbol(internsym("begin")))) ? (1) : (((r[1]) == (mksymbol(internsym("define")))) ? (1) : (((r[1]) == (mksymbol(internsym("if")))) ? (1) : (((r[1]) == (mksymbol(internsym("lambda")))) ? (1) : (((r[1]) == (mksymbol(internsym("letrec")))) ? (1) : (((r[1]) == (mksymbol(internsym("quote")))) ? (1) : (((r[1]) == (mksymbol(internsym("set!")))) && (1))))))))) {
    /* r[0] */    
    r[1] = r[2];  
    goto s_l_v37256;
  } else {
    { fixnum_t v43577_x;
    r[3] = (objptr_from_obj(r[2])[0]);
    v43577_x = (stringlen((r[3])));
    r[3] = obj_from_bool((v43577_x) > 0); }
  if (bool_from_obj(r[3])) {
    { char_t v43576_tmp;
    r[3] = (objptr_from_obj(r[2])[0]);
    v43576_tmp = (*(unsigned char*)stringref((r[3]), (+0)));
    r[3] = obj_from_bool(('_') == (v43576_tmp)); }
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    r[1] = r[2];  
    goto s_l_v37256;
  } else {
    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;
  }
  }

s_l_v37256: /* k str */
    r[2] = (objptr_from_obj(r[1])[0]);
    { /* string-append */
    int *d = stringcat(stringdata((r[2])), stringdata((cx__234874)));
    r[2] = (hpushstr(3, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((cx__234874)), stringdata((r[2])));
    r[2] = (hpushstr(3, d)); }
    r[2] = (mksymbol(internsym(stringchars((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 822: /* intloc->var k intloc sid */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_intloc_2D_3Evar: /* k intloc sid */
    r[3] = (cxs_sid_2Dname((r[2])));
    r[3] = (hpushstr(4, newstring(symbolname(getsymbol((r[3]))))));
  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[4] = (hpushstr(4, newstring(s))); }
  } else {
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[4] = (hpushstr(4, newstring(buf))); }
  }
    { /* string-append */
    int *d = stringcat(stringdata((cx__234874)), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[3])), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((cx__234874)), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    r[3] = (mksymbol(internsym(stringchars((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 823: /* loc->var k loc sid */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_loc_2D_3Evar: /* k loc sid */
  if ((issymbol((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_symloc_2D_3Evar;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_intloc_2D_3Evar;
  }

case 824: /* make-begin k outputs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_make_2Dbegin: /* k outputs */
  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 = (mksymbol(internsym("begin")));
    *--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 825: /* make-letrec k bindings expr */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_make_2Dletrec: /* k bindings expr */
  if ((isnull((r[1])))) {
    r[3] = r[2];  
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--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("letrec")));
    *--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 826: /* expand-lambda k formals expr id-n env store loc-n */
    assert(rc == 8);
    r += 1; /* shift reg. wnd */
gs_expand_2Dlambda: /* k formals expr id-n env store loc-n */
    { const bool_t v43575_tmp = (islist((r[1])));
    r[7] = obj_from_bool(!(v43575_tmp)); } 
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(843);
    r[8] = (hendblk(0+1));
    hreserve(hbsz(9+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_case(827);
    r[8] = (hendblk(9+1));
  if (bool_from_obj(r[7])) {
    r[0] = r[8];  
    /* r[1] */    
    goto s_flatten_2Ddotted;
  } else {
    hreserve(hbsz(0+1), 9); /* 9 live regs */
    *--hp = obj_from_case(843);
    r[9] = (hendblk(0+1));
    r[10+0] = obj_from_ktrap();
    r[10+1] = r[1];  
    r[10+2] = r[1];  
    r[10+3] = r[9];  
    r[10+4] = r[7];  
    r[10+5] = r[3];  
    r[10+6] = r[2];  
    r[10+7] = r[6];  
    r[10+8] = r[5];  
    r[10+9] = r[4];  
    r[10+10] = r[0];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37104;
  }

case 827: /* 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 */
s_l_v37104: /* ek r formals dot-flattened dotted? id-n expr loc-n store env k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[1];  
    *--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(838);
    r[11] = (hendblk(9+1));
    r[12+0] = (r[11]);
    r[12+1] = r[1];  
    r[12+2] = r[2];  
    r[12+3] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v37142;

case 828: /* 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_v37142: /* k l formals r */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(828);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(6+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(829);
    r[5] = (hendblk(6+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_sid_3F;
  } 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 829: /* 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 formals x r loop l k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(830);
    r[8] = (hendblk(6+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    goto s_l_v37164;
  } else {
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[2];  
    *--hp = obj_from_case(835);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

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+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_v37164: /* ek . formals x r loop l k */
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(831);
    r[8] = (hendblk(3+1));
    r[9] = (ismember((r[3]), (r[4])));
    r[9] = (cdr((r[9])));
    r[9] = (ismember((r[3]), (r[9])));
  if (bool_from_obj(r[9])) {
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[2];  
    *--hp = obj_from_case(832);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_void(0);
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    goto s_l_v37184;
  }

case 831: /* 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_v37184: /* 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 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 formals k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(833);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235383);
    goto gs_unwrap_2Dvecs;

case 833: /* 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 formals r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(834);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 834: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235384);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 835: /* 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 formals k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(836);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235383);
    goto gs_unwrap_2Dvecs;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r formals r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(837);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 837: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235391);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    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+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 . dot-flattened dotted? id-n expr loc-n store env r k */
    r[11+0] = (r[10]);
    r[11+1] = r[9];  
    r[11+2] = (mknull());
    r[11+3] = r[8];  
    r[11+4] = r[7];  
    r[11+5] = r[6];  
    r[11+6] = r[2];  
    r[11+7] = r[3];  
    r[11+8] = r[4];  
    r[11+9] = r[5];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v37107;

case 839: /* clo k formals rvars env store loc-n */
    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+9] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v37107: /* k formals rvars env store loc-n dot-flattened dotted? id-n expr */
  if ((!(isnull((r[1]))))) {
    hreserve(hbsz(4+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(839);
    r[10] = (hendblk(4+1));
    hreserve(hbsz(7+1), 11); /* 11 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = (r[10]);
    *--hp = obj_from_case(840);
    r[10] = (hendblk(7+1));
    r[11+0] = (r[10]);
    r[11+1] = r[5];  
    r[11+2] = (car((r[1])));
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_intloc_2D_3Evar;
  } else {
    { fixnum_t v43574_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43574_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43574_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[10] = (o); } }
    hreserve(hbsz(6+1), 11); /* 11 live regs */
    *--hp = r[0];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(841);
    r[11] = (hendblk(6+1));
  if (bool_from_obj(r[7])) {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[12+0] = obj_from_ktrap();
    r[12+1] = (r[10]);
    r[12+2] = r[5];  
    r[12+3] = r[4];  
    r[12+4] = r[3];  
    r[12+5] = r[8];  
    r[12+6] = r[9];  
    r[12+7] = r[0];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37109;
  }
  }

case 840: /* 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 loop rvars k store env loc-n formals */
    r[9] = (car((r[8])));
    r[9] = (cxs_sid_2Did((r[9])));
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[6];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* 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[5];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
  if ((is_fixnum_obj(r[7]))) {
    r[12] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[7])));
  } else {
    { const flonum_t v43573_tmp = ((flonum_t)(+1));
    r[12] = obj_from_flonum(12, (v43573_tmp) + flonum_from_obj(r[7])); } 
  }
    r[13+0] = r[2];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = r[4];  
    r[13+2] = (cdr((r[8])));
    r[13+3] = (r[11]);
    r[13+4] = r[9];  
    r[13+5] = (r[10]);
    r[13+6] = (r[12]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

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+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_v37109: /* ek r loc-n store env id-n expr k */
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(842);
    r[8] = (hendblk(2+1));
    r[9+0] = r[8];  
    r[9+1] = r[6];  
    r[9+2] = r[5];  
    r[9+3] = r[4];  
    r[9+4] = r[3];  
    r[9+5] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 842: /* 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 = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 843: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_dot_2Dflattened: /* k x */
    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(844);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_dot_2Dflattened;
  }

case 844: /* 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 = (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;

s_flatten_2Ddotted: /* k x */
  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(845);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_flatten_2Ddotted;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--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 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 x */
    { /* 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 846: /* check-syntax-bindings k bindings */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k bindings */
    r[2] = obj_from_bool(islist((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(847);
    r[3] = (hendblk(2+1));
  if (bool_from_obj(r[2])) {
    r[4+0] = obj_from_ktrap();
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r[4+3] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37012;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(858);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_unwrap_2Dvecs;
  }

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; /* shift reg. wnd */
s_l_v37012: /* ek . bindings k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(852);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto s_loop_v37048;

case 848: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v37048: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(848);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(849);
    r[3] = (hendblk(4+1));
  if (bool_from_obj(cxs_list2_3F((r[2])))) {
    r[0] = r[3];  
    r[1] = (car((r[2])));
    goto gs_sid_3F;
  } else {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(848);
    r[4] = (hendblk(0+1));
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_bool(0);
    r[5+2] = r[2];  
    r[5+3] = r[4];  
    r[5+4] = r[1];  
    r[5+5] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v37050;
  }
  } 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 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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v37050: /* ek r b loop l k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(850);
    r[6] = (hendblk(3+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    r[2] = r[3];  
    r[3] = r[4];  
    r[4] = r[5];  
    goto s_l_v37058;
  } else {
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = obj_from_case(851);
    r[7] = (hendblk(1+1));
    r[0] = r[7];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

case 850: /* 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_v37058: /* 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 851: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235470);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 852: /* 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 . bindings k */
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v37015;

case 853: /* clo k bs */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v37015: /* k bs */
  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] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[2] = (car((r[2])));
    r[3] = (cdr((r[1])));
    r[2] = (isassoc((r[2]), (r[3])));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(853);
    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(854);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(r[2])) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(855);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[1])));
    goto gs_unwrap_2Dvecs;
  } else {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(853);
    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_v37035;
  }
  }

case 854: /* 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_v37035: /* ek . loop bs 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 855: /* 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 dup k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(856);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235459);
    goto gs_unwrap_2Dvecs;

case 856: /* 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 dup r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(857);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 857: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235461);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 858: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235483);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 859: /* expand-syntax-bindings k bindings id-n syntax-env ienv store loc-n k */
    assert(rc == 9);
    r += 1; /* shift reg. wnd */
gs_expand_2Dsyntax_2Dbindings: /* k bindings id-n syntax-env ienv store loc-n k */
    r[8+0] = r[0];  
    r[8+1] = r[1];  
    r[8+2] = (mknull());
    r[8+3] = r[5];  
    r[8+4] = r[6];  
    r[8+5] = r[7];  
    r[8+6] = r[4];  
    r[8+7] = r[1];  
    r[8+8] = r[3];  
    r[8+9] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36951;

case 860: /* clo k bs vals store loc-n */
    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+8] = p[4];
    r[1+9] = p[5]; }
    r += 1; /* shift reg. wnd */
s_loop_v36951: /* k bs vals store loc-n k ienv bindings syntax-env id-n */
  if ((!(isnull((r[1]))))) {
    r[10] = (car((r[1])));
    r[10] = (cdr((r[10])));
    r[10] = (car((r[10])));
    hreserve(hbsz(5+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(860);
    r[11] = (hendblk(5+1));
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = (r[11]);
    *--hp = obj_from_case(861);
    r[11] = (hendblk(3+1));
    r[12+0] = r[0];  
    r[12+1] = (r[10]);
    r[12+2] = r[9];  
    r[12+3] = r[8];  
    r[12+4] = r[3];  
    r[12+5] = r[4];  
    r[12+6] = (r[11]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dval;
  } else {
    { fixnum_t v43572_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43572_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43572_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[10] = (o); } }
    r[11+0] = r[0];  
    r[11+1] = r[3];  
    r[11+2] = (r[10]);
    r[11+3] = r[7];  
    r[11+4] = r[5];  
    r[11+5] = r[4];  
    r[11+6] = r[6];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36952;
  }

case 861: /* clo k val store loc-n */
    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 */
    /* k val store loc-n loop vals bs */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[4];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = (cdr((r[6])));
    r[8+3] = r[7];  
    r[8+4] = r[2];  
    r[8+5] = r[3];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 862: /* clo k store vals bs */
    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_v36952: /* k store vals bs k loc-n ienv */
  if ((!(isnull((r[2]))))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(862);
    r[7] = (hendblk(3+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = obj_from_case(863);
    r[7] = (hendblk(5+1));
    r[8] = (car((r[3])));
    r[8] = (car((r[8])));
    r[0] = r[7];  
    r[1] = r[8];  
    r[2] = r[6];  
    goto gs_lookup_2Dsid;
  } else {
    r[7+0] = r[4];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = r[1];  
    r[7+3] = r[5];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

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+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop bs k store vals */
    r[7] = (car((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[4];  
    r[8+2] = r[7];  
    r[8+3] = (cdr((r[6])));
    r[8+4] = (cdr((r[3])));
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 864: /* apply-expander k syntax sexp id-n env store loc-n lsd? ek sk dk bk */
    assert(rc == 13);
    r += 1; /* shift reg. wnd */
gs_apply_2Dexpander: /* k syntax sexp id-n env store loc-n lsd? ek sk dk bk */
    r[12] = (car((r[1])));
    r[12] = (car((r[12])));
    r[12] = (cxs_sid_2Dname((r[12])));
  if ((((r[12]) == (mksymbol(internsym("syntax-rules")))) && (1))) {
    hreserve(hbsz(8+1), 13); /* 13 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = (r[11]);
    *--hp = obj_from_case(865);
    r[13] = (hendblk(8+1));
    r[14+0] = r[0];  
    r[14+1] = r[1];  
    r[14+2] = r[2];  
    r[14+3] = r[3];  
    r[14+4] = r[4];  
    r[14+5] = (r[13]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_apply_2Dsynrules;
  } else {
  if ((((r[12]) == (mksymbol(internsym("syntax-lambda")))) && (1))) {
    hreserve(hbsz(12+1), 13); /* 13 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = (r[11]);
    *--hp = obj_from_case(866);
    r[13] = (hendblk(12+1));
  if (bool_from_obj(r[8])) {
    r[14+0] = obj_from_ktrap();
    r[14+1] = r[8];  
    r[14+2] = (r[11]);
    r[14+3] = (r[10]);
    r[14+4] = r[9];  
    r[14+5] = r[8];  
    r[14+6] = r[7];  
    r[14+7] = r[5];  
    r[14+8] = r[4];  
    r[14+9] = r[3];  
    r[14+10] = r[6];  
    r[14+11] = r[0];  
    r[14+12] = r[2];  
    r[14+13] = r[1];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36877;
  } else {
  if (bool_from_obj(r[9])) {
    r[14+0] = obj_from_ktrap();
    r[14+1] = r[9];  
    r[14+2] = (r[11]);
    r[14+3] = (r[10]);
    r[14+4] = r[9];  
    r[14+5] = r[8];  
    r[14+6] = r[7];  
    r[14+7] = r[5];  
    r[14+8] = r[4];  
    r[14+9] = r[3];  
    r[14+10] = r[6];  
    r[14+11] = r[0];  
    r[14+12] = r[2];  
    r[14+13] = r[1];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36877;
  } else {
  if (bool_from_obj(r[7])) {
    r[14+0] = obj_from_ktrap();
    r[14+1] = r[7];  
    r[14+2] = (r[11]);
    r[14+3] = (r[10]);
    r[14+4] = r[9];  
    r[14+5] = r[8];  
    r[14+6] = r[7];  
    r[14+7] = r[5];  
    r[14+8] = r[4];  
    r[14+9] = r[3];  
    r[14+10] = r[6];  
    r[14+11] = r[0];  
    r[14+12] = r[2];  
    r[14+13] = r[1];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36877;
  } else {
  if ((ispair((r[2])))) {
    r[14+0] = obj_from_ktrap();
    r[14+1] = obj_from_bool(ispair((r[2])));
    r[14+2] = (r[11]);
    r[14+3] = (r[10]);
    r[14+4] = r[9];  
    r[14+5] = r[8];  
    r[14+6] = r[7];  
    r[14+7] = r[5];  
    r[14+8] = r[4];  
    r[14+9] = r[3];  
    r[14+10] = r[6];  
    r[14+11] = r[0];  
    r[14+12] = r[2];  
    r[14+13] = r[1];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36877;
  } else {
    hreserve(hbsz(1+1), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = obj_from_case(871);
    r[14] = (hendblk(1+1));
    r[0] = (r[14]);
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }
  }
  }
  }
  } else {
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(872);
    r[13] = (hendblk(1+1));
    r[0] = (r[13]);
    /* r[1] */    
    goto gs_unwrap_2Dvecs;
  }
  }

case 865: /* clo k sexp id-n */
    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+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6];
    r[1+9] = p[7];
    r[1+10] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* k sexp id-n bk dk sk ek lsd? loc-n store env */
    r[11+0] = r[0];  
    r[11+1] = r[1];  
    r[11+2] = r[2];  
    r[11+3] = (r[10]);
    r[11+4] = r[9];  
    r[11+5] = r[8];  
    r[11+6] = r[7];  
    r[11+7] = r[6];  
    r[11+8] = r[5];  
    r[11+9] = r[4];  
    r[11+10] = r[3];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;

case 866: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12]; }
    r += 1; /* shift reg. wnd */
s_l_v36877: /* ek . bk dk sk ek lsd? store env id-n loc-n k sexp syntax */
    r[14] = (car((r[13])));
    r[14] = (cdr((r[14])));
    r[14] = (car((r[14])));
    r[15] = (cdr((r[12])));
    r[16] = (car((r[13])));
    r[16] = (cdr((r[16])));
    r[16] = (cdr((r[16])));
    r[17] = (cdr((r[13])));
    r[17] = (car((r[17])));
    { fixnum_t v43571_a;
    { fixnum_t v43570_b;
    { /* length */
    int n; obj l = (r[14]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43571_a = (n); }
    { /* length */
    int n; obj l = (r[15]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43570_b = (n); }
    r[18] = obj_from_bool((v43571_a) == (v43570_b)); } }
    hreserve(hbsz(14+1), 19); /* 19 live regs */
    *--hp = (r[11]);
    *--hp = (r[14]);
    *--hp = (r[10]);
    *--hp = (r[17]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = (r[16]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = (r[15]);
    *--hp = obj_from_case(867);
    r[19] = (hendblk(14+1));
  if (bool_from_obj(r[18])) {
    r[20+0] = obj_from_ktrap();
    r[20+1] = (r[18]);
    r[20+2] = (r[15]);
    r[20+3] = r[2];  
    r[20+4] = r[3];  
    r[20+5] = r[4];  
    r[20+6] = r[5];  
    r[20+7] = r[6];  
    r[20+8] = (r[16]);
    r[20+9] = r[7];  
    r[20+10] = r[8];  
    r[20+11] = r[9];  
    r[20+12] = (r[17]);
    r[20+13] = (r[10]);
    r[20+14] = (r[14]);
    r[20+15] = (r[11]);
    r += 20; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36885;
  } else {
    hreserve(hbsz(1+1), 20); /* 20 live regs */
    *--hp = (r[19]);
    *--hp = obj_from_case(870);
    r[20] = (hendblk(1+1));
    r[0] = (r[20]);
    r[1] = (r[12]);
    goto gs_unwrap_2Dvecs;
  }

case 867: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13];
    r[1+15] = p[14]; }
    r += 1; /* shift reg. wnd */
s_l_v36885: /* ek . sexps bk dk sk ek lsd? body store env id-n denv loc-n formals k */
    r[16+0] = (r[15]);
    r[16+1] = (r[14]);
    r[16+2] = (r[13]);
    r[16+3] = (r[12]);
    r[16+4] = r[2];  
    r[16+5] = (r[14]);
    r[16+6] = r[3];  
    r[16+7] = r[4];  
    r[16+8] = r[5];  
    r[16+9] = r[6];  
    r[16+10] = r[7];  
    r[16+11] = r[8];  
    r[16+12] = r[9];  
    r[16+13] = (r[10]);
    r[16+14] = (r[11]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36886;

s_loop_v36886: /* k ids loc-n ienv sexps formals bk dk sk ek lsd? body store env id-n */
  if ((!(isnull((r[1]))))) {
    r[15] = (cdr((r[1])));
  if ((is_fixnum_obj(r[2]))) {
    r[16] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
  } else {
    { const flonum_t v43569_tmp = ((flonum_t)(+1));
    r[16] = obj_from_flonum(16, flonum_from_obj(r[2]) + (v43569_tmp)); } 
  }
    r[17] = (car((r[1])));
    r[17] = (cxs_sid_2Did((r[17])));
    { /* cons */ 
    hreserve(hbsz(3), 18); /* 18 live regs */
    *--hp = r[2];  
    *--hp = (r[17]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[18] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 19); /* 19 live regs */
    *--hp = r[3];  
    *--hp = (r[18]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[17] = (hendblk(3)); }
    /* r[0] */    
    r[1] = (r[15]);
    r[2] = (r[16]);
    r[3] = (r[17]);
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    r[11] = (r[11]);
    r[12] = (r[12]);
    r[13] = (r[13]);
    r[14] = (r[14]);
    goto s_loop_v36886;
  } else {
    hreserve(hbsz(12+1), 15); /* 15 live regs */
    *--hp = r[0];  
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = r[3];  
    *--hp = (r[12]);
    *--hp = r[2];  
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(868);
    r[15] = (hendblk(12+1));
    r[16+0] = (cx__25residual_2Dmap);
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = (r[15]);
    r[16+2] = (cx__25residual_2Dlist);
    r[16+3] = r[5];  
    r[16+4] = r[4];  
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 868: /* 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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12]; }
    r += 1; /* shift reg. wnd */
    /* ek r bk dk sk ek lsd? body loc-n store ienv env id-n k */
    hreserve(hbsz(8+1), 14); /* 14 live regs */
    *--hp = r[7];  
    *--hp = (r[12]);
    *--hp = (r[10]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(869);
    r[14] = (hendblk(8+1));
    r[15+0] = (r[13]);
    r[15+1] = r[1];  
    r[15+2] = (r[12]);
    r[15+3] = (r[11]);
    r[15+4] = (r[10]);
    r[15+5] = r[9];  
    r[15+6] = r[8];  
    r[15+7] = (r[14]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dsyntax_2Dbindings;

case 869: /* clo k store loc-n */
    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+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6];
    r[1+9] = p[7];
    r[1+10] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* k store loc-n bk dk sk ek lsd? ienv id-n body */
    r[11+0] = r[0];  
    r[11+1] = (r[10]);
    r[11+2] = r[9];  
    r[11+3] = r[8];  
    r[11+4] = r[1];  
    r[11+5] = r[2];  
    r[11+6] = r[7];  
    r[11+7] = r[6];  
    r[11+8] = r[5];  
    r[11+9] = (bool_from_obj(r[7]) ? (r[4]) : obj_from_bool(0));
    r[11+10] = (bool_from_obj(r[7]) ? (r[3]) : obj_from_bool(0));
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dbody;

case 870: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235598);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 871: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235605);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 872: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235550);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 873: /* expand-any k sexp id-n env store loc-n lsd? ek sk dk bk */
    assert(rc == 12);
    r += 1; /* shift reg. wnd */
gs_expand_2Dany: /* k sexp id-n env store loc-n lsd? ek sk dk bk */
    hreserve(hbsz(0+1), 11); /* 11 live regs */
    *--hp = obj_from_case(874);
    r[11] = (hendblk(0+1));
    hreserve(hbsz(12+1), 12); /* 12 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = (r[11]);
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = obj_from_case(876);
    r[11] = (hendblk(12+1));
    r[0] = (r[11]);
    /* r[1] */    
    goto gs_sid_3F;

case 874: /* clo k k sexp name */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k k sexp name */
  if (bool_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[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(875);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

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 name k */
    { /* string-append */
    int *d = stringcat(stringdata((r[2])), stringdata((cx__235864)));
    r[4] = (hpushstr(4, d)); }
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (r[4]);
    r[5+4] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 876: /* 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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12]; }
    r += 1; /* shift reg. wnd */
    /* ek r bk dk lsd? get-k loc-n store env id-n sexp k ek sk */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(9+1), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--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(877);
    r[14] = (hendblk(9+1));
    r[0] = (r[14]);
    r[1] = (r[10]);
    r[2] = r[8];  
    r[3] = r[7];  
    goto gs_lookup2;
  } else {
  if (((ispair((r[10]))) && (islist((r[10]))))) {
  if (bool_from_obj(r[12])) {
    hreserve(hbsz(6+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(880);
    r[14] = (hendblk(6+1));
  } else {
    r[14] = obj_from_bool(0);
  }
    hreserve(hbsz(11+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(884);
    r[15] = (hendblk(11+1));
    r[16+0] = (r[11]);
    r[16+1] = (car((r[10])));
    r[16+2] = r[9];  
    r[16+3] = r[8];  
    r[16+4] = r[7];  
    r[16+5] = r[6];  
    r[16+6] = obj_from_bool(0);
    r[16+7] = (r[14]);
    r[16+8] = (r[15]);
    r[16+9] = obj_from_bool(0);
    r[16+10] = obj_from_bool(0);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;
  } else {
    r[14] = obj_from_bool((is_fixnum_obj(r[10])) || (is_flonum_obj(r[10])));
    r[14] = (bool_from_obj(r[14]) ? (r[14]) : obj_from_bool((is_bool_obj(r[10])) || ((isstring((r[10]))) || ((isbytevector((r[10]))) || ((is_char_obj(r[10])) || (isprocedure((r[10]))))))));
  if (bool_from_obj(r[14])) {
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = obj_from_case(922);
    r[14] = (hendblk(2+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[14]);
    r[2] = (r[12]);
    r[3] = (r[10]);
    r[4] = (cx__235859);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((isvector((r[10])))) {
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = obj_from_case(923);
    r[14] = (hendblk(2+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[14]);
    r[2] = (r[12]);
    r[3] = (r[10]);
    r[4] = (cx__235859);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = obj_from_case(925);
    r[14] = (hendblk(2+1));
    r[0] = (r[14]);
    r[1] = (r[10]);
    goto gs_unwrap_2Dvecs;
  }
  }
  }
  }

case 877: /* 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 get-k loc-n store env id-n sexp k ek sk */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
  if ((!bool_from_obj(r[10]))) {
  if (bool_from_obj(r[9])) {
    { bool_t v43568_tmp;
    r[11] = (car((r[1])));
    r[11] = (car((r[11])));
    v43568_tmp = ((mksymbol(internsym("builtin"))) == (r[11]));
    r[11] = obj_from_bool(!(v43568_tmp)); }
  } else {
    r[11] = obj_from_bool(0);
  }
  } else {
    r[11] = obj_from_bool(0);
  }
  if (bool_from_obj(r[11])) {
    r[11+0] = r[8];  
    r[11+1] = r[1];  
    r[11+2] = r[7];  
    r[11+3] = r[6];  
    r[11+4] = r[5];  
    r[11+5] = r[4];  
    r[11+6] = r[3];  
    r[11+7] = obj_from_bool(0);
    r[11+8] = r[9];  
    r[11+9] = obj_from_bool(0);
    r[11+10] = obj_from_bool(0);
    r[11+11] = obj_from_bool(0);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_apply_2Dexpander;
  } else {
    hreserve(hbsz(5+1), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(878);
    r[11] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = (r[10]);
    r[3] = r[7];  
    r[4] = (cx__235857);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    hreserve(hbsz(2+1), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_case(879);
    r[11] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = r[9];  
    r[3] = r[7];  
    r[4] = (cx__235859);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 878: /* 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 loc-n store sexp r k */
    r[7+0] = r[1];  
    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[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 879: /* 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] = (bool_from_obj(cxs_list1_3F((r[2]))) ? (car((r[2]))) : (r[2]));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 880: /* clo k output */
    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 */
    /* k output loc-n store env id-n ek sexp */
  if ((ispair((r[1])))) {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((mksymbol(internsym("lambda"))) == (r[8]));
  if (bool_from_obj(r[8])) {
    r[8] = (cdr((r[1])));
    r[8] = (car((r[8])));
    r[8] = obj_from_bool(isnull((r[8])));
  if (bool_from_obj(r[8])) {
    r[8] = (cdr((r[7])));
    r[8] = obj_from_bool(isnull((r[8])));
  } else {
    r[8] = obj_from_bool(0);
  }
  } else {
    r[8] = obj_from_bool(0);
  }
  } else {
    r[8] = obj_from_bool(0);
  }
  if (bool_from_obj(r[8])) {
    r[8] = (cdr((r[1])));
    r[8] = (cdr((r[8])));
    r[8] = (car((r[8])));
    r[9+0] = r[6];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[8] = (cdr((r[7])));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = obj_from_case(883);
    r[9] = (hendblk(3+1));
    r[0] = r[9];  
    r[1] = r[8];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36781;
  }

s_loop_v36781: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(881);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36781;
  } 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 881: /* 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 loc-n store env id-n k l */
    r[8] = (car((r[7])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(882);
    r[9] = (hendblk(2+1));
    r[10+0] = r[9];  
    r[10+1] = r[8];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 882: /* 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 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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r ek k output */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--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 884: /* clo k syntax head store loc-n */
    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+8] = p[4];
    r[1+9] = p[5];
    r[1+10] = p[6];
    r[1+11] = p[7];
    r[1+12] = p[8];
    r[1+13] = p[9];
    r[1+14] = p[10];
    r[1+15] = p[11]; }
    r += 1; /* shift reg. wnd */
    /* k syntax head store loc-n loc-n store get-k bk dk sk ek lsd? env id-n sexp */
    r[16] = (cdr((r[15])));
    { /* cons */ 
    hreserve(hbsz(3), 17); /* 17 live regs */
    *--hp = (r[16]);
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[17] = (hendblk(3)); }
    { bool_t v43567_tmp;
    r[18] = (car((r[1])));
    r[18] = (car((r[18])));
    v43567_tmp = ((mksymbol(internsym("builtin"))) == (r[18]));
    r[18] = obj_from_bool(!(v43567_tmp)); }
  if (bool_from_obj(r[18])) {
    r[18+0] = r[0];  
    r[18+1] = r[1];  
    r[18+2] = (r[17]);
    r[18+3] = (r[14]);
    r[18+4] = (r[13]);
    r[18+5] = r[3];  
    r[18+6] = r[4];  
    r[18+7] = (r[12]);
    r[18+8] = (r[11]);
    r[18+9] = (r[10]);
    r[18+10] = r[9];  
    r[18+11] = r[8];  
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_apply_2Dexpander;
  } else {
    r[18] = (cdr((r[1])));
    r[18] = (car((r[18])));
    { /* length */
    int n; obj l = (r[16]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[19] = obj_from_fixnum(n); }
  if ((((r[18]) == (mksymbol(internsym("syntax-rules")))) && (1))) {
    hreserve(hbsz(7+1), 20); /* 20 live regs */
    *--hp = r[0];  
    *--hp = (r[17]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = r[7];  
    *--hp = (r[13]);
    *--hp = obj_from_case(885);
    r[20] = (hendblk(7+1));
  if ((fixnum_from_obj(r[19]) < (+1))) {
    hreserve(hbsz(1+1), 21); /* 21 live regs */
    *--hp = (r[20]);
    *--hp = obj_from_case(888);
    r[21] = (hendblk(1+1));
    r[0] = (r[21]);
    r[1] = (r[17]);
    goto gs_unwrap_2Dvecs;
  } else {
    r[21+0] = obj_from_ktrap();
    r[21+1] = obj_from_void(0);
    r[21+2] = (r[13]);
    r[21+3] = r[7];  
    r[21+4] = (r[10]);
    r[21+5] = r[4];  
    r[21+6] = r[3];  
    r[21+7] = (r[17]);
    r[21+8] = r[0];  
    r += 21; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36746;
  }
  } else {
  if ((((r[18]) == (mksymbol(internsym("syntax-lambda")))) && (1))) {
    hreserve(hbsz(7+1), 20); /* 20 live regs */
    *--hp = r[0];  
    *--hp = (r[17]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = r[7];  
    *--hp = (r[13]);
    *--hp = obj_from_case(889);
    r[20] = (hendblk(7+1));
  if ((fixnum_from_obj(r[19]) < (+2))) {
    hreserve(hbsz(1+1), 21); /* 21 live regs */
    *--hp = (r[20]);
    *--hp = obj_from_case(892);
    r[21] = (hendblk(1+1));
    r[0] = (r[21]);
    r[1] = (r[17]);
    goto gs_unwrap_2Dvecs;
  } else {
    r[21+0] = obj_from_ktrap();
    r[21+1] = obj_from_void(0);
    r[21+2] = (r[13]);
    r[21+3] = r[7];  
    r[21+4] = (r[10]);
    r[21+5] = r[4];  
    r[21+6] = r[3];  
    r[21+7] = (r[17]);
    r[21+8] = r[0];  
    r += 21; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36722;
  }
  } else {
  if ((((r[18]) == (mksymbol(internsym("begin")))) && (1))) {
    hreserve(hbsz(11+1), 20); /* 20 live regs */
    *--hp = r[8];  
    *--hp = r[0];  
    *--hp = (r[17]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[16]);
    *--hp = (r[11]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(893);
    r[20] = (hendblk(11+1));
  if (bool_from_obj(r[11])) {
    r[21+0] = obj_from_ktrap();
    r[21+1] = (r[11]);
    r[21+2] = r[5];  
    r[21+3] = r[6];  
    r[21+4] = (r[11]);
    r[21+5] = (r[16]);
    r[21+6] = r[4];  
    r[21+7] = r[3];  
    r[21+8] = (r[13]);
    r[21+9] = (r[14]);
    r[21+10] = (r[17]);
    r[21+11] = r[0];  
    r[21+12] = r[8];  
    r += 21; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36675;
  } else {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[20]);
    r[2] = r[9];  
    r[3] = (r[17]);
    r[4] = (cx__235853);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if ((((r[18]) == (mksymbol(internsym("define")))) ? (1) : (((r[18]) == (mksymbol(internsym("define-syntax")))) && (1)))) {
    hreserve(hbsz(10+1), 20); /* 20 live regs */
    *--hp = r[0];  
    *--hp = (r[18]);
    *--hp = (r[17]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[9];  
    *--hp = r[7];  
    *--hp = (r[19]);
    *--hp = obj_from_case(899);
    r[20] = (hendblk(10+1));
  if (((+2) == fixnum_from_obj(r[19]))) {
    r[0] = (r[20]);
    r[1] = (car((r[16])));
    goto gs_sid_3F;
  } else {
    r[21+0] = obj_from_ktrap();
    r[21+1] = obj_from_bool(0);
    r[21+2] = (r[19]);
    r[21+3] = r[7];  
    r[21+4] = r[9];  
    r[21+5] = r[4];  
    r[21+6] = r[3];  
    r[21+7] = (r[13]);
    r[21+8] = (r[14]);
    r[21+9] = (r[17]);
    r[21+10] = (r[18]);
    r[21+11] = r[0];  
    r += 21; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36651;
  }
  } else {
    hreserve(hbsz(12+1), 20); /* 20 live regs */
    *--hp = (r[17]);
    *--hp = (r[18]);
    *--hp = r[0];  
    *--hp = (r[11]);
    *--hp = (r[16]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[19]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(903);
    r[20] = (hendblk(12+1));
    r[21+0] = r[7];  
    pc = objptr_from_obj(r[21+0])[0];
    r[21+1] = (r[20]);
    r[21+2] = (r[11]);
    r[21+3] = (r[17]);
    r[21+4] = (cx__235859);
    r += 21; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }

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+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_v36746: /* ek . env get-k sk loc-n store sexp 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(886);
    r[9] = (hendblk(6+1));
    r[0] = r[9];  
    r[1] = r[7];  
    /* r[2] */    
    goto gs_compile_2Dsyntax_2Drules;

case 886: /* 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 get-k sk loc-n store sexp k */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(887);
    r[8] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[3];  
    r[3] = r[6];  
    r[4] = (cx__235857);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 887: /* 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 loc-n store sexp r k */
    r[7+0] = r[1];  
    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[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 888: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235835);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 889: /* 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; /* shift reg. wnd */
s_l_v36722: /* ek . env get-k sk loc-n store sexp 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(890);
    r[9] = (hendblk(6+1));
    r[0] = r[9];  
    r[1] = r[7];  
    /* r[2] */    
    goto gs_compile_2Dsyntax_2Dlambda;

case 890: /* 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 get-k sk loc-n store sexp k */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(891);
    r[8] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[3];  
    r[3] = r[6];  
    r[4] = (cx__235857);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 891: /* 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 loc-n store sexp r k */
    r[7+0] = r[1];  
    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[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 892: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235822);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 893: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
s_l_v36675: /* ek . loc-n store ek tail loc-n store env id-n sexp k bk */
  if (bool_from_obj(r[12])) {
    r[0] = (r[12]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = (r[10]);
    r[3] = r[9];  
    r[4] = r[8];  
    r[5] = r[7];  
    /* r[6] */    
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  } else {
  if ((isnull((r[5])))) {
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = obj_from_case(894);
    r[13] = (hendblk(1+1));
    r[0] = (r[13]);
    r[1] = (r[10]);
    goto gs_unwrap_2Dvecs;
  } else {
    hreserve(hbsz(2+1), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = r[4];  
    *--hp = obj_from_case(897);
    r[13] = (hendblk(2+1));
    r[0] = (r[13]);
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    r[4] = r[8];  
    r[5] = r[9];  
    goto s_loop_v36688;
  }
  }

case 894: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235814);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

s_loop_v36688: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(895);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36688;
  } 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 895: /* 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 loc-n store env id-n k l */
    r[8] = (car((r[7])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(896);
    r[9] = (hendblk(2+1));
    r[10+0] = r[9];  
    r[10+1] = r[8];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 896: /* 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 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 ek k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(898);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_make_2Dbegin;

case 898: /* 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 ek 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 899: /* 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+11] = p[10]; }
    r += 1; /* shift reg. wnd */
s_l_v36651: /* ek r len get-k dk loc-n store env id-n sexp builtin k */
    hreserve(hbsz(9+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 = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(900);
    r[12] = (hendblk(9+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    r[2] = r[3];  
    r[3] = r[4];  
    r[4] = r[5];  
    r[5] = r[6];  
    r[6] = r[7];  
    r[7] = r[8];  
    r[8] = r[9];  
    r[9] = (r[10]);
    r[10] = (r[11]);
    goto s_l_v36659;
  } else {
    r[13] = obj_from_bool(((+1) == fixnum_from_obj(r[2])) && ((r[10]) == (mksymbol(internsym("define")))));
  if (bool_from_obj(r[13])) {
    r[0] = obj_from_ktrap();
    r[1] = (r[13]);
    r[2] = r[3];  
    r[3] = r[4];  
    r[4] = r[5];  
    r[5] = r[6];  
    r[6] = r[7];  
    r[7] = r[8];  
    r[8] = r[9];  
    r[9] = (r[10]);
    r[10] = (r[11]);
    goto s_l_v36659;
  } else {
    hreserve(hbsz(1+1), 14); /* 14 live regs */
    *--hp = (r[12]);
    *--hp = obj_from_case(902);
    r[14] = (hendblk(1+1));
    r[0] = (r[14]);
    r[1] = r[9];  
    goto gs_unwrap_2Dvecs;
  }
  }

case 900: /* 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+10] = p[9]; }
    r += 1; /* shift reg. wnd */
s_l_v36659: /* ek . get-k dk loc-n store env id-n sexp builtin k */
    hreserve(hbsz(7+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 = obj_from_case(901);
    r[11] = (hendblk(7+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = r[3];  
    r[3] = r[8];  
    r[4] = (cx__235855);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 901: /* 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 loc-n store env id-n sexp builtin k */
    r[9+0] = r[1];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[7];  
    r[9+3] = r[6];  
    r[9+4] = r[5];  
    r[9+5] = r[4];  
    r[9+6] = r[3];  
    r[9+7] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 8;
    goto jump;

case 902: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235796);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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+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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12]; }
    r += 1; /* shift reg. wnd */
    /* ek . loc-n store len loc-n store env id-n tail ek k builtin sexp */
    { const fixnum_t v43566_len = fixnum_from_obj(r[4]);
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = obj_from_case(904);
    r[14] = (hendblk(2+1));
  if ((((r[12]) == (mksymbol(internsym("lambda")))) && (1))) {
    hreserve(hbsz(7+1), 15); /* 15 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(908);
    r[15] = (hendblk(7+1));
    r[0] = (r[15]);
    r[1] = obj_from_bool((v43566_len) == (+2));
    r[2] = (r[12]);
    r[3] = (r[13]);
    goto s_l_v36623;
  } else {
  if ((((r[12]) == (mksymbol(internsym("quote")))) && (1))) {
    hreserve(hbsz(3+1), 15); /* 15 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = obj_from_case(910);
    r[15] = (hendblk(3+1));
    r[0] = (r[15]);
    r[1] = obj_from_bool((v43566_len) == (+1));
    r[2] = (r[12]);
    r[3] = (r[13]);
    goto s_l_v36623;
  } else {
  if ((((r[12]) == (mksymbol(internsym("set!")))) && (1))) {
    hreserve(hbsz(10+1), 15); /* 15 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = (r[13]);
    *--hp = r[6];  
    *--hp = (r[14]);
    *--hp = obj_from_case(912);
    r[15] = (hendblk(10+1));
  if (((v43566_len) == (+2))) {
    r[0] = (r[15]);
    r[1] = (car((r[9])));
    goto gs_sid_3F;
  } else {
    r[16+0] = obj_from_ktrap();
    r[16+1] = obj_from_bool(0);
    r[16+2] = (r[14]);
    r[16+3] = r[6];  
    r[16+4] = (r[13]);
    r[16+5] = r[2];  
    r[16+6] = r[3];  
    r[16+7] = r[7];  
    r[16+8] = r[8];  
    r[16+9] = r[9];  
    r[16+10] = (r[10]);
    r[16+11] = (r[11]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36563;
  }
  } else {
  if ((((r[12]) == (mksymbol(internsym("if")))) && (1))) {
    hreserve(hbsz(7+1), 15); /* 15 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(918);
    r[15] = (hendblk(7+1));
    r[0] = (r[15]);
    r[1] = obj_from_bool(((+2) <= (v43566_len)) && ((v43566_len) <= (+3)));
    r[2] = (r[12]);
    r[3] = (r[13]);
    goto s_l_v36623;
  } else {
    r[0] = (r[10]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  } } 

case 904: /* clo k test */
    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_v36623: /* k test builtin sexp */
  if (bool_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[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(905);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

case 905: /* 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 sexp k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(906);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235682);
    goto gs_unwrap_2Dvecs;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(907);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 907: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235683);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

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+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek . loc-n store env id-n tail ek k */
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(909);
    r[9] = (hendblk(2+1));
    r[10] = (cdr((r[6])));
    r[10] = (car((r[10])));
    r[11+0] = r[9];  
    r[11+1] = (car((r[6])));
    r[11+2] = (r[10]);
    r[11+3] = r[5];  
    r[11+4] = r[4];  
    r[11+5] = r[3];  
    r[11+6] = r[2];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dlambda;

case 909: /* 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 ek k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    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 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; /* shift reg. wnd */
    /* ek . tail ek k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(911);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (car((r[2])));
    goto gs_unwrap_2Dvecs;

case 911: /* 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 ek k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("quote")));
    *--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 912: /* 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+11] = p[10]; }
    r += 1; /* shift reg. wnd */
s_l_v36563: /* ek r expr-assert store sexp loc-n store env id-n tail ek k */
    hreserve(hbsz(9+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 = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(913);
    r[12] = (hendblk(9+1));
    r[13+0] = r[2];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = (r[12]);
    r[13+2] = r[1];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 913: /* 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+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . store sexp loc-n store env id-n tail ek 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(914);
    r[11] = (hendblk(8+1));
    r[12+0] = (r[11]);
    r[12+1] = (car((r[8])));
    r[12+2] = r[6];  
    r[12+3] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_lookup2;

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+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 sexp loc-n store env id-n tail ek k */
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--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(915);
    r[10] = (hendblk(8+1));
  if ((issymbol((r[1])))) {
    r[11+0] = obj_from_ktrap();
    r[11+1] = obj_from_bool(issymbol((r[1])));
    r[11+2] = r[3];  
    r[11+3] = r[4];  
    r[11+4] = r[5];  
    r[11+5] = r[6];  
    r[11+6] = r[7];  
    r[11+7] = r[8];  
    r[11+8] = r[9];  
    r[11+9] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36575;
  } else {
    hreserve(hbsz(1+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = obj_from_case(917);
    r[11] = (hendblk(1+1));
    r[0] = (r[11]);
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

case 915: /* 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 */
s_l_v36575: /* ek . loc-n store env id-n tail ek k r */
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(916);
    r[10] = (hendblk(3+1));
    r[11] = (cdr((r[6])));
    r[11] = (car((r[11])));
    r[12+0] = (r[10]);
    r[12+1] = (r[11]);
    r[12+2] = r[5];  
    r[12+3] = r[4];  
    r[12+4] = r[3];  
    r[12+5] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 916: /* 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 ek k r */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    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;

case 917: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__235728);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    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+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek . loc-n store env id-n tail ek k */
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(921);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36541;

s_loop_v36541: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(919);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36541;
  } 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 919: /* 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 loc-n store env id-n l k */
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(920);
    r[8] = (hendblk(2+1));
    r[9+0] = r[8];  
    r[9+1] = (car((r[6])));
    r[9+2] = r[5];  
    r[9+3] = r[4];  
    r[9+4] = r[3];  
    r[9+5] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

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 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 921: /* 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 ek k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    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 922: /* 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 sexp 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 923: /* 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 sexp k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(924);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvec;

case 924: /* 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 925: /* 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 sexp k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(926);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235867);
    goto gs_unwrap_2Dvecs;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r sexp k */
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = ((ispair((r[3]))) ? (cx__235871) : ((isnull((r[3]))) ? (cx__235869) : (cx__235868)));
    r[5+4] = (r[2]);
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 927: /* expand-val k sexp id-n env store loc-n k */
    assert(rc == 8);
    r += 1; /* shift reg. wnd */
gs_expand_2Dval: /* k sexp id-n env store loc-n k */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_case(928);
    r[7] = (hendblk(3+1));
    hreserve(hbsz(1+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = obj_from_case(929);
    r[8] = (hendblk(1+1));
    r[9+0] = r[0];  
    r[9+1] = r[1];  
    r[9+2] = r[2];  
    r[9+3] = r[3];  
    r[9+4] = r[4];  
    r[9+5] = r[5];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[7];  
    r[9+8] = r[8];  
    r[9+9] = obj_from_bool(0);
    r[9+10] = obj_from_bool(0);
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;

case 928: /* clo k output */
    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 output k loc-n store */
    { /* 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] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = r[5];  
    r[6+3] = r[4];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 929: /* clo k syn error-sexp store loc-n */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k syn error-sexp store loc-n k */
    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[3];  
    r[6+4] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 930: /* expand-expr k sexp id-n env store loc-n */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_expand_2Dexpr: /* k sexp id-n env store loc-n */
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(931);
    r[6] = (hendblk(0+1));
    r[7+0] = r[0];  
    r[7+1] = r[1];  
    r[7+2] = r[2];  
    r[7+3] = r[3];  
    r[7+4] = r[4];  
    r[7+5] = r[5];  
    r[7+6] = obj_from_bool(0);
    r[7+7] = r[6];  
    r[7+8] = obj_from_bool(0);
    r[7+9] = obj_from_bool(0);
    r[7+10] = obj_from_bool(0);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;

case 931: /* 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 932: /* expand-body k sexps id-n env store loc-n lsd? ek sk dk bk */
    assert(rc == 12);
    r += 1; /* shift reg. wnd */
gs_expand_2Dbody: /* k sexps id-n env store loc-n lsd? ek sk dk bk */
    r[11] = (car((r[1])));
    r[12] = (cdr((r[1])));
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = r[7];  
    *--hp = obj_from_case(953);
    r[13] = (hendblk(1+1));
    r[14+0] = r[0];  
    r[14+1] = (r[11]);
    r[14+2] = (r[12]);
    r[14+3] = (mknull());
    r[14+4] = (mknull());
    r[14+5] = (mknull());
    r[14+6] = r[2];  
    r[14+7] = r[3];  
    r[14+8] = r[4];  
    r[14+9] = r[5];  
    r[14+10] = (r[13]);
    r[14+11] = (r[10]);
    r[14+12] = r[9];  
    r[14+13] = r[8];  
    r[14+14] = r[7];  
    r[14+15] = r[6];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36239;

case 933: /* clo k first rest vds sds exprs id-n env store loc-n */
    assert(rc == 11);
    { obj* p = objptr_from_obj(r[0]);
    r[1+10] = p[1];
    r[1+11] = p[2];
    r[1+12] = p[3];
    r[1+13] = p[4];
    r[1+14] = p[5];
    r[1+15] = p[6]; }
    r += 1; /* shift reg. wnd */
s_loop_v36239: /* k first rest vds sds exprs id-n env store loc-n expand-def bk dk sk ek lsd? */
    hreserve(hbsz(14+1), 16); /* 16 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = (r[15]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = r[4];  
    *--hp = obj_from_case(934);
    r[16] = (hendblk(14+1));
  if ((isnull((r[2])))) {
    r[17+0] = r[0];  
    r[17+1] = obj_from_bool(0);
    r[17+2] = r[4];  
    r[17+3] = (r[11]);
    r[17+4] = (r[12]);
    r[17+5] = (r[13]);
    r[17+6] = (r[14]);
    r[17+7] = (r[15]);
    r[17+8] = r[1];  
    r[17+9] = r[5];  
    r[17+10] = r[3];  
    r[17+11] = r[2];  
    r[17+12] = r[9];  
    r[17+13] = r[8];  
    r[17+14] = r[7];  
    r[17+15] = r[6];  
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36259;
  } else {
    hreserve(hbsz(6+1), 17); /* 17 live regs */
    *--hp = (r[15]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = obj_from_case(933);
    r[17] = (hendblk(6+1));
    hreserve(hbsz(2+1), 18); /* 18 live regs */
    *--hp = r[2];  
    *--hp = (r[17]);
    *--hp = obj_from_case(952);
    r[17] = (hendblk(2+1));
    r[18+0] = (r[10]);
    pc = objptr_from_obj(r[18+0])[0];
    r[18+1] = r[0];  
    r[18+2] = r[1];  
    r[18+3] = r[3];  
    r[18+4] = r[4];  
    r[18+5] = r[5];  
    r[18+6] = r[6];  
    r[18+7] = r[7];  
    r[18+8] = r[8];  
    r[18+9] = r[9];  
    r[18+10] = (r[17]);
    r[18+11] = (bool_from_obj(r[14]) ? (r[16]) : obj_from_bool(0));
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 12;
    goto jump;
  }

case 934: /* clo k boundary-exp-output */
    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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13];
    r[1+15] = p[14]; }
    r += 1; /* shift reg. wnd */
s_l_v36259: /* k boundary-exp-output sds bk dk sk ek lsd? first exprs vds rest loc-n store env id-n */
    hreserve(hbsz(15+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = (r[15]);
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--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 = r[1];  
    *--hp = obj_from_case(936);
    r[16] = (hendblk(15+1));
    r[0] = (r[16]);
    r[1] = r[2];  
    goto s_loop_v36373;

s_loop_v36373: /* k l */
  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(935);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v36373;
  } 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 935: /* 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 936: /* 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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13];
    r[1+15] = p[14];
    r[1+16] = p[15]; }
    r += 1; /* shift reg. wnd */
    /* ek r boundary-exp-output bk dk sk ek lsd? first exprs vds rest loc-n store env id-n k */
    hreserve(hbsz(12+1), 17); /* 17 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[15]);
    *--hp = (r[14]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(937);
    r[17] = (hendblk(12+1));
    r[18+0] = (r[16]);
    r[18+1] = r[1];  
    r[18+2] = (r[15]);
    r[18+3] = (r[14]);
    r[18+4] = (r[14]);
    r[18+5] = (r[13]);
    r[18+6] = (r[12]);
    r[18+7] = (r[17]);
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dsyntax_2Dbindings;

case 937: /* clo k store loc-n */
    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+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6];
    r[1+9] = p[7];
    r[1+10] = p[8];
    r[1+11] = p[9];
    r[1+12] = p[10];
    r[1+13] = p[11];
    r[1+14] = p[12]; }
    r += 1; /* shift reg. wnd */
    /* k store loc-n boundary-exp-output bk dk sk ek lsd? env id-n first exprs vds rest */
  if (((isnull((r[14]))) && ((isnull((r[13]))) && (isnull((r[12])))))) {
    r[15+0] = r[0];  
    r[15+1] = (r[11]);
    r[15+2] = (r[10]);
    r[15+3] = r[9];  
    r[15+4] = r[1];  
    r[15+5] = r[2];  
    r[15+6] = r[8];  
    r[15+7] = r[7];  
    r[15+8] = r[6];  
    r[15+9] = r[5];  
    r[15+10] = r[4];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;
  } else {
    { fixnum_t v43565_tmp;
    { /* length */
    int n; obj l = (r[13]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43565_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43565_tmp);
    hreserve(hbsz(3)*c, 15); /* 15 live regs */
    l = (r[13]); /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[15] = (o); } }
    hreserve(hbsz(10+1), 16); /* 16 live regs */
    *--hp = r[0];  
    *--hp = r[7];  
    *--hp = (r[12]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = (r[14]);
    *--hp = (r[11]);
    *--hp = r[3];  
    *--hp = obj_from_case(941);
    r[16] = (hendblk(10+1));
    r[17+0] = (r[16]);
    r[17+1] = (r[15]);
    r[17+2] = r[2];  
    r[17+3] = (r[10]);
    r[17+4] = r[1];  
    r[17+5] = r[9];  
    r += 17; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36340;
  }

s_loop_v36340: /* k l loc-n id-n store env */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(938);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36340;
  } 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 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+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 loc-n id-n store env k l */
    r[8] = (car((r[7])));
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(939);
    r[9] = (hendblk(5+1));
    r[10] = (cdr((r[8])));
    r[10] = (cdr((r[10])));
    r[10] = (car((r[10])));
    r[11+0] = r[9];  
    r[11+1] = (r[10]);
    r[11+2] = r[3];  
    r[11+3] = r[5];  
    r[11+4] = r[4];  
    r[11+5] = r[2];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 939: /* 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 store env vd k r */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(940);
    r[8] = (hendblk(3+1));
    r[9] = (cdr((r[4])));
    r[9] = (car((r[9])));
    r[10+0] = r[8];  
    r[10+1] = r[9];  
    r[10+2] = r[3];  
    r[10+3] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_lookup2;

case 940: /* 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 r */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    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 941: /* 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+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r boundary-exp-output first rest loc-n store env id-n exprs ek k */
    hreserve(hbsz(8+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(942);
    r[12] = (hendblk(8+1));
  if ((isnull((r[4])))) {
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = obj_from_case(948);
    r[13] = (hendblk(1+1));
    r[0] = (r[13]);
    r[1] = r[3];  
    r[2] = r[8];  
    r[3] = r[7];  
    r[4] = r[6];  
    /* r[5] */    
    goto gs_expand_2Dexpr;
  } else {
    hreserve(hbsz(2+1), 13); /* 13 live regs */
    *--hp = r[2];  
    *--hp = (r[12]);
    *--hp = obj_from_case(951);
    r[13] = (hendblk(2+1));
    r[0] = (r[13]);
    r[1] = r[4];  
    r[2] = r[5];  
    r[3] = r[6];  
    r[4] = r[7];  
    r[5] = r[8];  
    goto s_loop_v36272;
  }

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+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 loc-n store env id-n exprs r ek k */
    { fixnum_t v43564_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43564_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43564_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[6];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[10] = (o); } }
    hreserve(hbsz(4+1), 11); /* 11 live regs */
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(945);
    r[11] = (hendblk(4+1));
    r[0] = (r[11]);
    r[1] = (r[10]);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36315;

s_loop_v36315: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(943);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36315;
  } 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 943: /* 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 loc-n store env id-n k l */
    r[8] = (car((r[7])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(944);
    r[9] = (hendblk(2+1));
    r[10+0] = r[9];  
    r[10+1] = r[8];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 944: /* 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 945: /* 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 ek k r */
    { fixnum_t v43563_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43563_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43563_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[1];   t = r[5];   /* 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); } }
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(946);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    r[1] = r[6];  
    goto gs_make_2Dbegin;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r ek k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(947);
    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_make_2Dletrec;

case 947: /* 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 ek 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 948: /* 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)); }
    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;

s_loop_v36272: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(949);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36272;
  } 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 949: /* 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 loc-n store env id-n k l */
    r[8] = (car((r[7])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(950);
    r[9] = (hendblk(2+1));
    r[10+0] = r[9];  
    r[10+1] = r[8];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

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 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 951: /* 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 boundary-exp-output */
    { /* 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 952: /* clo k vds sds exprs id-n env store loc-n */
    assert(rc == 9);
    { obj* p = objptr_from_obj(r[0]);
    r[1+8] = p[1];
    r[1+9] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k vds sds exprs id-n env store loc-n loop rest */
    r[10+0] = r[8];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[0];  
    r[10+2] = (car((r[9])));
    r[10+3] = (cdr((r[9])));
    r[10+4] = r[1];  
    r[10+5] = r[2];  
    r[10+6] = r[3];  
    r[10+7] = r[4];  
    r[10+8] = r[5];  
    r[10+9] = r[6];  
    r[10+10] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 11;
    goto jump;

case 953: /* clo k sexp vds sds exprs id-n env store loc-n k dek */
    assert(rc == 12);
    { obj* p = objptr_from_obj(r[0]);
    r[1+11] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k sexp vds sds exprs id-n env store loc-n k dek ek */
    hreserve(hbsz(5+1), 12); /* 12 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[9];  
    *--hp = (r[11]);
    *--hp = obj_from_case(954);
    r[12] = (hendblk(5+1));
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = obj_from_case(953);
    r[13] = (hendblk(1+1));
    hreserve(hbsz(6+1), 14); /* 14 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = (r[13]);
    *--hp = obj_from_case(968);
    r[13] = (hendblk(6+1));
    r[14+0] = r[0];  
    r[14+1] = r[1];  
    r[14+2] = r[5];  
    r[14+3] = r[6];  
    r[14+4] = r[7];  
    r[14+5] = r[8];  
    r[14+6] = obj_from_bool(0);
    r[14+7] = (r[10]);
    r[14+8] = obj_from_bool(0);
    r[14+9] = (r[12]);
    r[14+10] = (r[13]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;

case 954: /* clo k builtin sexp id-n env store loc-n */
    assert(rc == 8);
    { obj* p = objptr_from_obj(r[0]);
    r[1+7] = p[1];
    r[1+8] = p[2];
    r[1+9] = p[3];
    r[1+10] = p[4];
    r[1+11] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* k builtin sexp id-n env store loc-n ek k exprs sds vds */
    hreserve(hbsz(11+1), 12); /* 12 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_case(955);
    r[12] = (hendblk(11+1));
  if (bool_from_obj(r[7])) {
    r[13+0] = obj_from_ktrap();
    r[13+1] = r[7];  
    r[13+2] = r[1];  
    r[13+3] = r[8];  
    r[13+4] = r[6];  
    r[13+5] = r[5];  
    r[13+6] = r[4];  
    r[13+7] = r[3];  
    r[13+8] = r[9];  
    r[13+9] = (r[10]);
    r[13+10] = (r[11]);
    r[13+11] = r[0];  
    r[13+12] = r[2];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36145;
  } else {
  if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
    r[13+0] = obj_from_ktrap();
    r[13+1] = obj_from_bool((r[1]) == (mksymbol(internsym("define-syntax"))));
    r[13+2] = (r[1]);
    r[13+3] = (r[8]);
    r[13+4] = (r[6]);
    r[13+5] = (r[5]);
    r[13+6] = (r[4]);
    r[13+7] = (r[3]);
    r[13+8] = (r[9]);
    r[13+9] = (r[10]);
    r[13+10] = (r[11]);
    r[13+11] = (r[0]);
    r[13+12] = (r[2]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v36145;
  } else {
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = obj_from_case(967);
    r[13] = (hendblk(1+1));
    r[0] = (r[13]);
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }
  }

case 955: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
s_l_v36145: /* ek . builtin k loc-n store env id-n exprs sds vds k sexp */
  if (bool_from_obj(cxs_list2_3F((r[12])))) {
    r[13] = (cdr((r[12])));
    r[13] = (car((r[13])));
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    r[14+0] = r[3];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[11]);
    r[14+2] = (r[10]);
    r[14+3] = r[9];  
    r[14+4] = (r[13]);
    r[14+5] = r[7];  
    r[14+6] = r[6];  
    r[14+7] = r[5];  
    r[14+8] = r[4];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;
  } else {
    r[13] = (cdr((r[12])));
    r[13] = (car((r[13])));
    r[14] = (cxs_sid_2Did((r[13])));
    { /* cons */ 
    hreserve(hbsz(3), 15); /* 15 live regs */
    *--hp = r[4];  
    *--hp = (r[14]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[15] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 16); /* 16 live regs */
    *--hp = r[6];  
    *--hp = (r[15]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[15] = (hendblk(3)); }
    hreserve(hbsz(2+1), 16); /* 16 live regs */
    *--hp = (r[14]);
    *--hp = (r[12]);
    *--hp = obj_from_case(956);
    r[16] = (hendblk(2+1));
    hreserve(hbsz(13+1), 17); /* 17 live regs */
    *--hp = r[2];  
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = (r[15]);
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = (r[13]);
    *--hp = (r[16]);
    *--hp = obj_from_case(962);
    r[17] = (hendblk(13+1));
    r[0] = (r[17]);
    r[1] = r[9];  
    r[2] = (r[16]);
    goto s_loop_v36175;
  }

case 956: /* clo k def */
    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 def sexp id */
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[4] = (cxs_sid_2Did((r[4])));
    r[4] = obj_from_bool(((r[3]) == (r[4])) || ((is_flonum_obj(r[3])) && ((is_flonum_obj(r[4])) && (flonum_from_obj(r[3]) == flonum_from_obj(r[4])))));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(957);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_unwrap_2Dvecs;
  } 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 957: /* 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 sexp k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(958);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__235459);
    goto gs_unwrap_2Dvecs;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(959);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 959: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236016);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 960: /* 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_v36175: /* k l check */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(960);
    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(961);
    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;
  } 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 961: /* 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 962: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13]; }
    r += 1; /* shift reg. wnd */
    /* ek . check sid k loc-n store env id-n exprs sds sexp vds k builtin */
    hreserve(hbsz(12+1), 15); /* 15 live regs */
    *--hp = (r[14]);
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--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(965);
    r[15] = (hendblk(12+1));
    r[0] = (r[15]);
    r[1] = (r[12]);
    /* r[2] */    
    goto s_loop_v36160;

case 963: /* 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_v36160: /* k l check */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(963);
    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(964);
    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;
  } 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 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 . 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 965: /* 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+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12]; }
    r += 1; /* shift reg. wnd */
    /* ek . sid k loc-n store env id-n exprs sds sexp vds k builtin */
  if ((((r[13]) == (mksymbol(internsym("define-syntax")))) && (1))) {
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = r[9];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
  if ((is_fixnum_obj(r[4]))) {
    r[15] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
  } else {
    { const flonum_t v43562_tmp = ((flonum_t)(+1));
    r[15] = obj_from_flonum(15, flonum_from_obj(r[4]) + (v43562_tmp)); } 
  }
    r[16+0] = r[3];  
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = (r[12]);
    r[16+2] = (r[11]);
    r[16+3] = (r[14]);
    r[16+4] = r[8];  
    r[16+5] = r[7];  
    r[16+6] = r[6];  
    r[16+7] = r[5];  
    r[16+8] = (r[15]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;
  } else {
  if ((((r[13]) == (mksymbol(internsym("define")))) && (1))) {
    hreserve(hbsz(10+1), 14); /* 14 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = (r[12]);
    *--hp = (r[10]);
    *--hp = (r[11]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(966);
    r[14] = (hendblk(10+1));
    r[0] = (r[14]);
    r[1] = r[4];  
    /* r[2] */    
    goto gs_intloc_2D_3Evar;
  } else {
    r[0] = (r[12]);
    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;
  }
  }

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+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+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r k env id-n exprs sds vds sexp k store loc-n */
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[1];  
    *--hp = (r[11]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
  if ((is_fixnum_obj(r[11]))) {
    r[13] = obj_from_fixnum(fxadd(fixnum_from_obj(r[11]), (+1)));
  } else {
    { const flonum_t v43561_tmp = ((flonum_t)(+1));
    r[13] = obj_from_flonum(13, flonum_from_obj(r[11]) + (v43561_tmp)); } 
  }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
    r[15+0] = r[2];  
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = r[9];  
    r[15+2] = (r[14]);
    r[15+3] = r[6];  
    r[15+4] = r[5];  
    r[15+5] = r[4];  
    r[15+6] = r[3];  
    r[15+7] = (r[12]);
    r[15+8] = (r[13]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

case 967: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236087);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 968: /* clo k sexp id-n env store loc-n */
    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+9] = p[4];
    r[1+10] = p[5];
    r[1+11] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k sexp id-n env store loc-n expand-def k dek exprs sds vds */
    r[12] = (cdr((r[1])));
    r[13+0] = r[0];  
    r[13+1] = (r[12]);
    r[13+2] = (r[11]);
    r[13+3] = (r[10]);
    r[13+4] = r[9];  
    r[13+5] = r[2];  
    r[13+6] = r[3];  
    r[13+7] = r[4];  
    r[13+8] = r[5];  
    r[13+9] = r[8];  
    r[13+10] = r[6];  
    r[13+11] = r[7];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v36050;

case 969: /* clo k sexps vds sds exprs id-n env store loc-n dek */
    assert(rc == 11);
    { obj* p = objptr_from_obj(r[0]);
    r[1+10] = p[1];
    r[1+11] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v36050: /* k sexps vds sds exprs id-n env store loc-n dek expand-def k */
  if ((isnull((r[1])))) {
    r[12+0] = (r[11]);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = r[0];  
    r[12+2] = r[2];  
    r[12+3] = r[3];  
    r[12+4] = r[4];  
    r[12+5] = r[5];  
    r[12+6] = r[6];  
    r[12+7] = r[7];  
    r[12+8] = r[8];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = obj_from_case(969);
    r[12] = (hendblk(2+1));
    hreserve(hbsz(2+1), 13); /* 13 live regs */
    *--hp = r[1];  
    *--hp = (r[12]);
    *--hp = obj_from_case(970);
    r[12] = (hendblk(2+1));
  if (bool_from_obj(r[9])) {
    hreserve(hbsz(6+1), 13); /* 13 live regs */
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_case(971);
    r[13] = (hendblk(6+1));
  } else {
    r[13] = obj_from_bool(0);
  }
    r[14+0] = (r[10]);
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = r[0];  
    r[14+2] = (car((r[1])));
    r[14+3] = r[2];  
    r[14+4] = r[3];  
    r[14+5] = r[4];  
    r[14+6] = r[5];  
    r[14+7] = r[6];  
    r[14+8] = r[7];  
    r[14+9] = r[8];  
    r[14+10] = (r[12]);
    r[14+11] = (r[13]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 12;
    goto jump;
  }

case 970: /* clo k vds sds exprs id-n env store loc-n */
    assert(rc == 9);
    { obj* p = objptr_from_obj(r[0]);
    r[1+8] = p[1];
    r[1+9] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k vds sds exprs id-n env store loc-n loop sexps */
    r[10+0] = r[8];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[0];  
    r[10+2] = (cdr((r[9])));
    r[10+3] = r[1];  
    r[10+4] = r[2];  
    r[10+5] = r[3];  
    r[10+6] = r[4];  
    r[10+7] = r[5];  
    r[10+8] = r[6];  
    r[10+9] = r[7];  
    r[10+10] = obj_from_bool(0);
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 11;
    goto jump;

case 971: /* clo k out */
    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 */
    /* k out loc-n store env id-n sexps dek */
    r[8] = (cdr((r[6])));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = obj_from_case(974);
    r[9] = (hendblk(3+1));
    r[0] = r[9];  
    r[1] = r[8];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36065;

s_loop_v36065: /* k l loc-n store env id-n */
  if ((ispair((r[1])))) {
    r[6] = (cdr((r[1])));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(972);
    r[7] = (hendblk(6+1));
    r[0] = r[7];  
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v36065;
  } 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 972: /* 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 loc-n store env id-n l k */
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(973);
    r[8] = (hendblk(2+1));
    r[9+0] = r[8];  
    r[9+1] = (car((r[6])));
    r[9+2] = r[5];  
    r[9+3] = r[4];  
    r[9+4] = r[3];  
    r[9+5] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;

case 973: /* 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 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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r out dek k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(975);
    r[5] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[5];  
    r[1] = r[6];  
    goto gs_make_2Dbegin;

case 975: /* 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 dek 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 976: /* expand-top-level-forms k forms top-env store loc-n k */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_expand_2Dtop_2Dlevel_2Dforms: /* k forms top-env store loc-n k */
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(977);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    /* r[1] */    
    goto gs_wrap_2Dvecs;

case 977: /* 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 k loc-n store top-env k */
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(990);
    r[7] = (hendblk(1+1));
    r[8+0] = r[6];  
    r[8+1] = r[1];  
    r[8+2] = obj_from_fixnum(+0);
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = (mknull());
    r[8+7] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_expand;

case 978: /* clo k sexps id-n env store loc-n acc k */
    assert(rc == 9);
    r += 1; /* shift reg. wnd */
s_expand: /* k sexps id-n env store loc-n acc k */
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(978);
    r[8] = (hendblk(0+1));
  if ((isnull((r[1])))) {
    r[9+0] = r[7];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[4];  
    r[9+3] = r[5];  
    r[9+4] = r[6];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[9] = (cdr((r[1])));
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_case(979);
    r[10] = (hendblk(8+1));
    hreserve(hbsz(7+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_case(980);
    r[11] = (hendblk(7+1));
    hreserve(hbsz(6+1), 12); /* 12 live regs */
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_case(988);
    r[12] = (hendblk(6+1));
    r[13+0] = r[0];  
    r[13+1] = (car((r[1])));
    r[13+2] = r[2];  
    r[13+3] = r[3];  
    r[13+4] = r[4];  
    r[13+5] = r[5];  
    r[13+6] = obj_from_bool(1);
    r[13+7] = (r[10]);
    r[13+8] = obj_from_bool(0);
    r[13+9] = (r[11]);
    r[13+10] = (r[12]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dany;
  }

case 979: /* clo k output */
    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 */
    /* k output expand k acc loc-n store env id-n rest */
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--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[0];  
    r[11+2] = r[9];  
    r[11+3] = r[8];  
    r[11+4] = r[7];  
    r[11+5] = r[6];  
    r[11+6] = r[5];  
    r[11+7] = (r[10]);
    r[11+8] = r[3];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

case 980: /* clo k builtin sexp id-n* env* store loc-n */
    assert(rc == 8);
    { obj* p = objptr_from_obj(r[0]);
    r[1+7] = p[1];
    r[1+8] = p[2];
    r[1+9] = p[3];
    r[1+10] = p[4];
    r[1+11] = p[5];
    r[1+12] = p[6];
    r[1+13] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* k builtin sexp id-n* env* store loc-n expand k env id-n rest acc ek */
  if (bool_from_obj(cxs_list2_3F((r[2])))) {
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = r[0];  
    *--hp = (r[13]);
    *--hp = obj_from_case(981);
    r[14] = (hendblk(2+1));
    r[15] = (cdr((r[2])));
    r[15] = (car((r[15])));
    r[0] = (r[14]);
    r[1] = (r[15]);
    r[2] = r[3];  
    r[3] = r[4];  
    r[4] = r[5];  
    r[5] = r[6];  
    goto gs_expand_2Dexpr;
  } else {
    r[14] = (cdr((r[2])));
    r[15] = (car((r[14])));
    hreserve(hbsz(14+1), 16); /* 16 live regs */
    *--hp = (r[14]);
    *--hp = r[1];  
    *--hp = (r[12]);
    *--hp = r[0];  
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = (r[15]);
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(982);
    r[16] = (hendblk(14+1));
    r[0] = (r[16]);
    r[1] = (r[15]);
    r[2] = r[4];  
    goto gs_lookup_2Dsid;
  }

case 981: /* 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 ek 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 982: /* 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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13];
    r[1+15] = p[14]; }
    r += 1; /* shift reg. wnd */
    /* ek r env* id-n* sid store expand k loc-n env id-n rest k acc builtin tail */
    r[16] = (cdr((r[15])));
    r[16] = (car((r[16])));
  if (((r[14]) == (mksymbol(internsym("define"))))) {
    hreserve(hbsz(11+1), 17); /* 17 live regs */
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(983);
    r[17] = (hendblk(11+1));
    r[18+0] = (r[17]);
    r[18+1] = (r[16]);
    r[18+2] = r[3];  
    r[18+3] = r[2];  
    r[18+4] = r[5];  
    r[18+5] = r[8];  
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dexpr;
  } else {
    hreserve(hbsz(7+1), 17); /* 17 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_case(986);
    r[17] = (hendblk(7+1));
    r[18+0] = (r[12]);
    r[18+1] = (r[16]);
    r[18+2] = r[3];  
    r[18+3] = r[2];  
    r[18+4] = r[5];  
    r[18+5] = r[8];  
    r[18+6] = (r[17]);
    r += 18; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dval;
  }

case 983: /* 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+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
    /* ek r sid r store expand k loc-n env id-n rest k acc */
    hreserve(hbsz(11+1), 13); /* 13 live regs */
    *--hp = r[1];  
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--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(984);
    r[13] = (hendblk(11+1));
    r[0] = (r[13]);
    r[1] = r[3];  
    /* r[2] */    
    goto gs_loc_2D_3Evar;

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+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+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
    /* ek r r store expand k loc-n env id-n rest k acc r */
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (mknull());
    *--hp = (r[12]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = (r[11]);
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    hreserve(hbsz(8+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = (r[13]);
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(985);
    r[14] = (hendblk(8+1));
    r[15+0] = (r[14]);
    r[15+1] = r[3];  
    r[15+2] = r[2];  
    r[15+3] = r[1];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_substitute_2Din_2Dstore;

case 985: /* 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 expand k acc loc-n env id-n rest k */
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[9];  
    r[10+2] = r[8];  
    r[10+3] = r[7];  
    r[10+4] = r[6];  
    r[10+5] = r[1];  
    r[10+6] = r[5];  
    r[10+7] = r[4];  
    r[10+8] = r[3];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

case 986: /* clo k val store loc-n */
    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+8] = p[5];
    r[1+9] = p[6];
    r[1+10] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* k val store loc-n r expand k acc env id-n rest */
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = r[0];  
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(987);
    r[11] = (hendblk(8+1));
    r[12+0] = (r[11]);
    r[12+1] = r[2];  
    r[12+2] = r[4];  
    r[12+3] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_substitute_2Din_2Dstore;

case 987: /* 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 expand k acc loc-n env id-n rest k */
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[9];  
    r[10+2] = r[8];  
    r[10+3] = r[7];  
    r[10+4] = r[6];  
    r[10+5] = r[1];  
    r[10+6] = r[5];  
    r[10+7] = r[4];  
    r[10+8] = r[3];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

case 988: /* clo k sexp id-n* env* store loc-n */
    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+9] = p[4];
    r[1+10] = p[5];
    r[1+11] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k sexp id-n* env* store loc-n expand k env id-n rest acc */
    hreserve(hbsz(5+1), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(989);
    r[12] = (hendblk(5+1));
    r[13+0] = r[6];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = r[0];  
    r[13+2] = (cdr((r[1])));
    r[13+3] = r[2];  
    r[13+4] = r[3];  
    r[13+5] = r[4];  
    r[13+6] = r[5];  
    r[13+7] = (r[11]);
    r[13+8] = (r[12]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

case 989: /* clo k store loc-n acc */
    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+8] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* k store loc-n acc expand k env id-n rest */
    r[9+0] = r[4];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = r[7];  
    r[9+4] = r[6];  
    r[9+5] = r[1];  
    r[9+6] = r[2];  
    r[9+7] = r[3];  
    r[9+8] = r[5];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 9;
    goto jump;

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

case 991: /* compile-syntax-lambda k synlambda env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_compile_2Dsyntax_2Dlambda: /* k synlambda env */
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1002);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = r[3];  
    goto s_loop_v35841;

case 992: /* 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_v35841: /* k l formals */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(992);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(993);
    r[4] = (hendblk(5+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_sid_3F;
  } 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 993: /* 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 x formals loop l 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(994);
    r[7] = (hendblk(5+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    goto s_l_v35863;
  } else {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(999);
    r[8] = (hendblk(2+1));
    r[0] = r[8];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

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+6] = p[5]; }
    r += 1; /* shift reg. wnd */
s_l_v35863: /* ek . x formals loop l k */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(995);
    r[7] = (hendblk(3+1));
    r[8] = (ismember((r[2]), (r[3])));
    r[8] = (cdr((r[8])));
    r[8] = (ismember((r[2]), (r[8])));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(996);
    r[8] = (hendblk(2+1));
    r[0] = r[8];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_void(0);
    r[2] = r[4];  
    r[3] = r[5];  
    r[4] = r[6];  
    goto s_l_v35883;
  }

case 995: /* 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_v35883: /* 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 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 formals k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(997);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236302);
    goto gs_unwrap_2Dvecs;

case 997: /* 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 formals r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(998);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 998: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235384);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 999: /* 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 formals k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1000);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236302);
    goto gs_unwrap_2Dvecs;

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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r formals r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1001);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1001: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__235391);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    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; /* shift reg. wnd */
    /* ek . k env synlambda */
    r[5] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* 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[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1003: /* sbox->sexp-list k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2] = (boxref((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 1004: /* pattern-sbox->sexp k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2] = (boxref((r[1])));
    r[3] = (cdr((r[2])));
    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 1005: /* pattern-sbox? k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_pattern_2Dsbox_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1006: /* pattern-sbox->test k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_pattern_2Dsbox_2D_3Etest: /* k b */
    r[2] = (boxref((r[1])));
    r[2] = (car((r[2])));
  if ((((r[2]) == (mksymbol(internsym("char?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1007);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("number?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1008);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("string?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1009);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("id?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1010);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("feature?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1011);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("library?")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1013);
    r[2] = (hendblk(0+1));
  } else {
    r[2] = ((0) ? obj_from_bool(0) : 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 1007: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
    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(is_char_obj(r[1]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1008: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
    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((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1009: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
    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(isstring((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1010: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
    /* r[0] */    
    /* r[1] */    
    goto gs_sid_3F;

case 1011: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1012);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_sid_3F;

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 sexp */
  if (bool_from_obj(r[1])) {
    r[4] = (cxs_sid_2Dname((r[3])));
    r[5] = (cxs_features());
    { /* memq */
    obj x = (r[4]), l = r[5];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[4] = (l == mknull() ? obj_from_bool(0) : l); }
    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;
  } else {
    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 1013: /* clo k sexp env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexp env */
  if ((isstring((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_library_2Davailable_3F;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1014);
    r[3] = (hendblk(2+1));
  if ((ispair((r[1])))) {
  if ((islist((r[1])))) {
    r[0] = r[3];  
    /* r[1] */    
    goto s_loop_v35713;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[1];  
    r[4+3] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v35725;
  }
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[1];  
    r[4+3] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v35725;
  }
  }

case 1014: /* 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_v35725: /* ek r sexp k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1018);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto s_loop_v35732;
  } else {
    r[0] = r[3];  
    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;
  }

s_loop_v35732: /* k l */
  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(1015);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35732;
  } 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 1015: /* 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])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1016);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(1017);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_sid_3F;

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 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 1017: /* 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 */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cxs_sid_2Dname((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    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 1018: /* 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_library_2Davailable_3F;

case 1019: /* clo k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v35713: /* k id */
  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])));
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1019);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1020);
    r[3] = (hendblk(4+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_sid_3F;
  }

case 1020: /* 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 id k x */
  if (bool_from_obj(bool_from_obj(r[1]) ? (r[1]) : obj_from_bool((is_fixnum_obj(r[5])) || (is_flonum_obj(r[5]))))) {
    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;
  } else {
    r[0] = r[4];  
    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 1021: /* template-sbox->sexp k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2] = (boxref((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 1022: /* template-sbox? k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k b */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_template_2Dsbox_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1023: /* template-sbox->conv k b */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_template_2Dsbox_2D_3Econv: /* k b */
    r[2] = (boxref((r[1])));
    r[2] = (car((r[2])));
  if ((((r[2]) == (mksymbol(internsym("error")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1024);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("number->string")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1031);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("string->number")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1033);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("list->string")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1035);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("string->list")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1038);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("length")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1040);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("string-append")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1042);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("+")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1045);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("*")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1048);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("id->string")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1051);
    r[2] = (hendblk(0+1));
  } else {
  if ((((r[2]) == (mksymbol(internsym("string->id")))) && (1))) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1054);
    r[2] = (hendblk(0+1));
  } else {
    r[2] = ((0) ? obj_from_bool(0) : 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 1024: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(isstring((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1027);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto s_loop_v35670;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1030);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    goto s_loop_v35647;
  }

s_loop_v35670: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1025);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35670;
  } 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 1025: /* 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1026);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[2])));
    goto gs_unwrap_2Dvecs;

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 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 1027: /* 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 sexps 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_simple_2Derror);
    r[5+3] = (mksymbol(internsym("macroexpander")));
    r[5+4] = (car((r[2])));
    r[5+5] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

s_loop_v35647: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1028);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35647;
  } 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 1028: /* 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 l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1029);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[2])));
    goto gs_unwrap_2Dvecs;

case 1029: /* 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 1030: /* 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 */
    { /* 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] = r[2];  
    r[4+2] = (cx_simple_2Derror);
    r[4+3] = (mksymbol(internsym("macroexpander")));
    r[4+4] = (cx__236660);
    r[4+5] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1031: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
  if (((is_fixnum_obj(r[3])) || (is_flonum_obj(r[3])))) {
  if ((is_fixnum_obj(r[3]))) {
    { /* fixnum->string */
    char buf[35], *s = buf + sizeof(buf) - 1; 
    int neg = 0;
    long num = fixnum_from_obj(r[3]);
    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[4] = (hpushstr(4, newstring(s))); }
  } else {
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[3]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[4] = (hpushstr(4, newstring(buf))); }
  }
    /* 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[0];  
    *--hp = obj_from_case(1032);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1032: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236639);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1033: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
  if ((isstring((r[3])))) {
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[3]));
    int radix = (+10); long l; double d;
    if (0) r[4] = (0); /* to fool sfc unboxer */
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[4] = obj_from_fixnum(l); break;
    case 'i': r[4] = obj_from_flonum(4, d); break;
    default : r[4] = obj_from_bool(0); break;
    } }
    /* 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[0];  
    *--hp = obj_from_case(1034);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1034: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236629);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1035: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1036);
    r[4] = (hendblk(2+1));
  if ((islist((r[3])))) {
    r[0] = r[4];  
    r[1] = r[3];  
    goto s_loop_v35588;
  } else {
    r[5+0] = obj_from_ktrap();
    r[5+1] = obj_from_bool(0);
    r[5+2] = r[0];  
    r[5+3] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v35594;
  }

case 1036: /* 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_v35594: /* ek r k sexp */
  if (bool_from_obj(r[1])) {
    { fixnum_t v43559_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43559_tmp = (n); }
    { /* list->string */
    int i, c = (v43559_tmp); 
    obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */
    obj l = r[3];   /* 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[4] = (o); } }
    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;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1037);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1037: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236611);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

s_loop_v35588: /* k id */
  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[2] = obj_from_bool(is_char_obj(r[2]));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[2];  
    goto s_loop_v35588;
  } 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_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 1038: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
  if ((isstring((r[3])))) {
    r[4+0] = (cx_string_2D_3Elist);
    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;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1039);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1039: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236603);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1040: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
  if ((islist((r[3])))) {
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
    /* 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[0];  
    *--hp = obj_from_case(1041);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1041: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236594);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1042: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v35535;

s_loop_v35535: /* k sexps */
  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__233975);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2] = (car((r[1])));
    r[2] = obj_from_bool(isstring((r[2])));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1043);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35535;
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1044);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (car((r[1])));
    goto gs_unwrap_2Dvecs;
  }
  }

case 1043: /* 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 sexps */
    { /* 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 1044: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236577);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1045: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v35510;

s_loop_v35510: /* k sexps */
  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[2] = obj_from_bool((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1046);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35510;
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1047);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (car((r[1])));
    goto gs_unwrap_2Dvecs;
  }
  }

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 sexps */
    r[4] = (car((r[3])));
  if ((is_fixnum_obj(r[4]))) {
    { const fixnum_t v43557_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_fixnum(fxadd((v43557_a), fixnum_from_obj(r[1])));
  } else {
    { const flonum_t v43558_tmp = ((flonum_t)(v43557_a));
    r[5] = obj_from_flonum(5, (v43558_tmp) + flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v43556_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) + (v43556_tmp)); } 
  } else {
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) + flonum_from_obj(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 1047: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236551);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1048: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    /* r[0] */    
    /* r[1] */    
    goto s_loop_v35485;

s_loop_v35485: /* k sexps */
  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[2] = obj_from_bool((is_fixnum_obj(r[2])) || (is_flonum_obj(r[2])));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1049);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35485;
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1050);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (car((r[1])));
    goto gs_unwrap_2Dvecs;
  }
  }

case 1049: /* 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 sexps */
    r[4] = (car((r[3])));
  if ((is_fixnum_obj(r[4]))) {
    { const fixnum_t v43554_a = fixnum_from_obj(r[4]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_fixnum(fxmul((v43554_a), fixnum_from_obj(r[1])));
  } else {
    { const flonum_t v43555_tmp = ((flonum_t)(v43554_a));
    r[5] = obj_from_flonum(5, (v43555_tmp) * flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v43553_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) * (v43553_tmp)); } 
  } else {
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) * flonum_from_obj(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 1050: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236525);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1051: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1052);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_sid_3F;

case 1052: /* 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 sexp */
  if (bool_from_obj(r[1])) {
    r[4] = (cxs_sid_2Dname((r[3])));
    r[4] = (hpushstr(5, newstring(symbolname(getsymbol((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;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1053);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1053: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236516);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1054: /* clo k sexps env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k sexps env */
    r[3] = (car((r[1])));
  if ((isstring((r[3])))) {
    r[4] = (mksymbol(internsym(stringchars((r[3])))));
    r[5] = (isassv((r[4]), (r[2])));
    r[5] = (bool_from_obj(r[5]) ? (cdr((r[5]))) : (r[4]));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[4];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    /* 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[0];  
    *--hp = obj_from_case(1055);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

case 1055: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236501);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1056: /* compile-syntax-rules k synrules env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_compile_2Dsyntax_2Drules: /* k synrules env */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1057);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1060);
    r[4] = (hendblk(5+1));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    r[5] = obj_from_bool(ispair((r[5])));
  if (bool_from_obj(r[5])) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1150);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[1])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    goto gs_sid_3F;
  } else {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1057);
    r[5] = (hendblk(2+1));
    r[6+0] = obj_from_ktrap();
    r[6+1] = obj_from_bool(0);
    r[6+2] = r[0];  
    r[6+3] = r[2];  
    r[6+4] = r[5];  
    r[6+5] = r[1];  
    r[6+6] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34872;
  }

case 1057: /* 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 env ellipsis-id */
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1058);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_sid_3F;

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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k x ellipsis-id */
  if (bool_from_obj(r[1])) {
  if (bool_from_obj(objptr_from_obj(r[5])[0])) {
    r[6] = (objptr_from_obj(r[5])[0]);
    r[7] = (cxs_sid_2Did((r[4])));
    r[6] = obj_from_bool(((r[6]) == (r[7])) || ((is_flonum_obj(r[6])) && ((is_flonum_obj(r[7])) && (flonum_from_obj(r[6]) == flonum_from_obj(r[7])))));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1059);
    r[6] = (hendblk(1+1));
    r[0] = r[6];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_lookup_2Dsid;
  }
  } else {
    r[0] = r[3];  
    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 1059: /* 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] = obj_from_bool((r[1]) == obj_from_fixnum(-1));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1060: /* 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 */
s_l_v34872: /* ek r k env ellipsis? synrules ellipsis-id */
    (void)(objptr_from_obj(r[6])[0] = (r[1]));
  if (bool_from_obj(objptr_from_obj(r[6])[0])) {
    r[7] = (cdr((r[5])));
    r[7] = (cdr((r[7])));
  } else {
    r[7] = (cdr((r[5])));
  }
    r[8] = (car((r[7])));
    r[9] = (cdr((r[7])));
    r[10] = obj_from_bool(islist((r[8])));
    hreserve(hbsz(6+1), 11); /* 11 live regs */
    *--hp = r[4];  
    *--hp = r[9];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[8];  
    *--hp = obj_from_case(1061);
    r[11] = (hendblk(6+1));
  if (bool_from_obj(r[10])) {
    r[12+0] = obj_from_ktrap();
    r[12+1] = (r[10]);
    r[12+2] = r[8];  
    r[12+3] = r[2];  
    r[12+4] = r[3];  
    r[12+5] = r[5];  
    r[12+6] = r[9];  
    r[12+7] = r[4];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34880;
  } else {
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = obj_from_case(1149);
    r[12] = (hendblk(1+1));
    r[0] = (r[12]);
    r[1] = r[8];  
    goto gs_unwrap_2Dvecs;
  }

case 1061: /* 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_v34880: /* ek . pat-literal-sids k env synrules rules ellipsis? */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1073);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[2];  
    r[2] = r[7];  
    r[3] = r[5];  
    goto s_loop_v35350;

case 1062: /* 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_v35350: /* k l ellipsis? synrules */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1062);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(6+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(1063);
    r[5] = (hendblk(6+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_sid_3F;
  } 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 1063: /* 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 ellipsis? lit synrules loop l k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1064);
    r[8] = (hendblk(6+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    goto s_l_v35372;
  } else {
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_case(1070);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    r[1] = r[3];  
    goto gs_unwrap_2Dvecs;
  }

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+7] = p[6]; }
    r += 1; /* shift reg. wnd */
s_l_v35372: /* ek . ellipsis? lit synrules loop l k */
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1065);
    r[8] = (hendblk(3+1));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1066);
    r[8] = (hendblk(3+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 1065: /* 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 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+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r lit synrules k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1067);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[0] = r[4];  
    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 1067: /* 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 synrules k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1068);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236686);
    goto gs_unwrap_2Dvecs;

case 1068: /* 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 synrules r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1069);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1069: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236687);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

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 synrules k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1071);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236686);
    goto gs_unwrap_2Dvecs;

case 1071: /* 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 synrules r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1072);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1072: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236689);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1073: /* 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 . pat-literal-sids k env synrules rules ellipsis? */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1075);
    r[8] = (hendblk(5+1));
    r[0] = r[8];  
    r[1] = r[2];  
    goto s_loop_v35335;

s_loop_v35335: /* k l */
  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(1074);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v35335;
  } 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 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 l */
    r[4] = (car((r[3])));
    r[4] = (cxs_sid_2Did((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 1075: /* 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 k env synrules rules ellipsis? */
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = obj_from_case(1076);
    r[7] = (hendblk(1+1));
    r[8] = obj_from_bool(islist((r[5])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(1077);
    r[9] = (hendblk(2+1));
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(1104);
    r[9] = (hendblk(8+1));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(2+1), 10); /* 10 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(1077);
    r[10] = (hendblk(2+1));
    r[11+0] = obj_from_ktrap();
    r[11+1] = r[8];  
    r[11+2] = (r[10]);
    r[11+3] = r[1];  
    r[11+4] = r[7];  
    r[11+5] = r[6];  
    r[11+6] = r[5];  
    r[11+7] = r[2];  
    r[11+8] = r[3];  
    r[11+9] = r[4];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34892;
  } else {
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = obj_from_case(1148);
    r[10] = (hendblk(1+1));
    r[0] = (r[10]);
    r[1] = r[5];  
    goto gs_unwrap_2Dvecs;
  }

case 1076: /* 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 ellipsis? */
  if ((ispair((r[1])))) {
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (car((r[1])));
    r += 3; /* 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_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1077: /* clo k pat/tmpl in-template? */
    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 pat/tmpl in-template? ellipsis-pair? ellipsis? */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1078);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(1082);
    r[6] = (hendblk(1+1));
    r[7] = (bool_from_obj(r[2]) ? (r[1]) : (cdr((r[1]))));
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1083);
    r[8] = (hendblk(7+1));
  if (bool_from_obj(r[2])) {
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(1101);
    r[9] = (hendblk(3+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(1102);
    r[9] = (hendblk(5+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1078: /* clo k x reason */
    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 reason in-template? pat/tmpl */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1079);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    /* r[1] */    
    goto gs_unwrap_2Dvecs;

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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r in-template? pat/tmpl reason 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(1080);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (bool_from_obj(r[2]) ? (cx__236796) : (cx__236872));
    goto gs_unwrap_2Dvecs;

case 1080: /* 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 pat/tmpl r reason k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1081);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1081: /* 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 reason k */
    { /* string-append */
    int *d = stringcat(stringdata((r[4])), stringdata((cx__231375)));
    r[6] = (hpushstr(6, d)); }
    r[7+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (mksymbol(internsym("macroexpander")));
    r[7+3] = (r[6]);
    r[7+4] = (r[3]);
    r[7+5] = (r[2]);
    r[7+6] = (r[1]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

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

case 1083: /* 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; /* shift reg. wnd */
    /* ek . ellipsis-pair? ellipsis? bad-ellipsis in-template? ellipsis-follows x k */
    r[0] = r[8];  
    r[1] = r[7];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    goto s_check;

case 1084: /* 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+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
s_check: /* k x ellipsis-pair? ellipsis? bad-ellipsis in-template? ellipsis-follows */
    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(1084);
    r[7] = (hendblk(5+1));
  if ((ispair((r[1])))) {
    hreserve(hbsz(8+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1085);
    r[8] = (hendblk(8+1));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1097);
    r[8] = (hendblk(3+1));
    r[9+0] = r[3];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = (car((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1098);
    r[8] = (hendblk(7+1));
    r[0] = r[8];  
    /* r[1] */    
    goto gs_svector_3F;
  }

case 1085: /* 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 . ellipsis-pair? ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
    hreserve(hbsz(8+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[2];  
    *--hp = obj_from_case(1086);
    r[10] = (hendblk(8+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (car((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    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+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . ellipsis-pair? ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
    hreserve(hbsz(8+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[2];  
    *--hp = obj_from_case(1087);
    r[10] = (hendblk(8+1));
    hreserve(hbsz(3+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(1096);
    r[10] = (hendblk(3+1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1087: /* 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 . ellipsis-pair? ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
    hreserve(hbsz(8+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[2];  
    *--hp = obj_from_case(1088);
    r[10] = (hendblk(8+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1088: /* 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 ellipsis-pair? ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(8+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[2];  
    *--hp = obj_from_case(1089);
    r[10] = (hendblk(8+1));
    r[11] = (cdr((r[8])));
    r[11] = (cdr((r[11])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

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+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 ellipsis-pair? ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
  if (bool_from_obj(r[1])) {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    r[3] = (cx__236937);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    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(1090);
    r[10] = (hendblk(7+1));
    r[11] = (cdr((r[8])));
    r[11] = (cdr((r[11])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1090: /* 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 ellipsis? bad-ellipsis check in-template? ellipsis-follows x k */
  if (bool_from_obj(r[1])) {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (cdr((r[7])));
    r[3] = (cx__236932);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if (bool_from_obj(r[5])) {
    r[9] = (cdr((r[7])));
    r[9] = (cdr((r[9])));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[9] = obj_from_bool(islist((r[7])));
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1091);
    r[10] = (hendblk(5+1));
  if (bool_from_obj(r[9])) {
    r[0] = obj_from_ktrap();
    r[1] = r[9];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    r[5] = r[7];  
    r[6] = r[8];  
    goto s_l_v35225;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = r[7];  
    r[3] = (cx__236893);
    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+6] = p[5]; }
    r += 1; /* shift reg. wnd */
s_l_v35225: /* ek . ellipsis? bad-ellipsis check x k */
    r[7] = (cdr((r[5])));
    r[7] = (cdr((r[7])));
    r[8+0] = r[6];  
    r[8+1] = r[7];  
    r[8+2] = r[2];  
    r[8+3] = r[3];  
    r[8+4] = r[5];  
    r[8+5] = r[4];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v35226;

case 1092: /* 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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v35226: /* k l ellipsis? bad-ellipsis x check */
  if ((ispair((r[1])))) {
    r[6] = (car((r[1])));
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1092);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1093);
    r[7] = (hendblk(5+1));
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1095);
    r[7] = (hendblk(3+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;
  } 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 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+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . check y loop l k */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1094);
    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 1094: /* 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 1095: /* 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 bad-ellipsis x 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];  
    r[3] = (cx__236895);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[4];  
    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 1096: /* 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 ellipsis-follows x 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];  
    r[3] = (cx__236937);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[4];  
    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 1097: /* 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 ellipsis-follows x 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];  
    r[3] = (cx__236945);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[4];  
    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 1098: /* 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 bad-ellipsis in-template? ellipsis-pair? check ellipsis-follows k x */
  if (bool_from_obj(r[1])) {
    r[9] = (vectorref((r[8]), (+0)));
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[5];  
    *--hp = obj_from_case(1099);
    r[10] = (hendblk(5+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(bool_from_obj(r[3]) ? (cxs_template_2Dsbox_3F((r[8]))) : (cxs_pattern_2Dsbox_3F((r[8]))))) {
    r[9] = (boxref((r[8])));
    r[9] = (cdr((r[9])));
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[5];  
    *--hp = obj_from_case(1100);
    r[10] = (hendblk(5+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isbox((r[8])))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[8];  
    r[3] = (cx__236904);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[7];  
    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;
  }
  }
  }

case 1099: /* 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 check elts ellipsis-follows x k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = (cx__236909);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    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 1100: /* 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 check elts ellipsis-follows x k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = (cx__236907);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    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 1101: /* 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 ellipsis-follows x 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];  
    r[3] = (cx__236955);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[4];  
    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 1102: /* 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 ellipsis-pair? x ellipsis-follows pat/tmpl k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = (cx__236937);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1103);
    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 1103: /* 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 ellipsis-follows pat/tmpl 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];  
    r[3] = (cx__236954);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[4];  
    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;
  }

case 1104: /* 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 */
s_l_v34892: /* ek . check-ellipses r ellipsis-pair? ellipsis? rules k env synrules */
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(1147);
    r[10] = (hendblk(3+1));
    r[0] = (r[10]);
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v34899;

case 1105: /* 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+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v34899: /* k l check-ellipses r ellipsis-pair? ellipsis? */
  if ((ispair((r[1])))) {
    r[6] = (car((r[1])));
    r[7] = (cxs_list2_3F((r[6])));
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1105);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(8+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1106);
    r[8] = (hendblk(8+1));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1105);
    r[9] = (hendblk(4+1));
    r[10+0] = obj_from_ktrap();
    r[10+1] = r[7];  
    r[10+2] = r[2];  
    r[10+3] = r[3];  
    r[10+4] = r[4];  
    r[10+5] = r[5];  
    r[10+6] = r[9];  
    r[10+7] = r[1];  
    r[10+8] = r[0];  
    r[10+9] = r[6];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34907;
  } else {
    hreserve(hbsz(1+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_case(1146);
    r[9] = (hendblk(1+1));
    r[0] = r[9];  
    r[1] = r[6];  
    goto gs_unwrap_2Dvecs;
  }
  } 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 1106: /* 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 */
s_l_v34907: /* ek . check-ellipses r ellipsis-pair? ellipsis? loop l k rule */
    r[10] = (cdr((r[9])));
    r[10] = (car((r[10])));
    r[11] = (car((r[9])));
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = (r[10]);
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = (r[11]);
    *--hp = obj_from_case(1107);
    r[12] = (hendblk(9+1));
  if ((ispair((r[11])))) {
    r[0] = (r[12]);
    r[1] = (car((r[11])));
    goto gs_sid_3F;
  } else {
    r[13+0] = obj_from_ktrap();
    r[13+1] = obj_from_bool(0);
    r[13+2] = (r[11]);
    r[13+3] = r[2];  
    r[13+4] = r[3];  
    r[13+5] = r[4];  
    r[13+6] = r[5];  
    r[13+7] = (r[10]);
    r[13+8] = r[6];  
    r[13+9] = r[7];  
    r[13+10] = r[8];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34909;
  }

case 1107: /* 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 */
s_l_v34909: /* ek r pat check-ellipses r ellipsis-pair? ellipsis? tmpl loop l k */
    hreserve(hbsz(9+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 = r[2];  
    *--hp = obj_from_case(1108);
    r[11] = (hendblk(9+1));
  if (bool_from_obj(r[1])) {
    r[0] = obj_from_ktrap();
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    /* r[8] */    
    /* r[9] */    
    r[10] = (r[10]);
    goto s_l_v34923;
  } else {
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = r[2];  
    *--hp = obj_from_case(1144);
    r[12] = (hendblk(2+1));
    r[0] = (r[12]);
    r[1] = r[2];  
    goto gs_sid_3F;
  }

case 1108: /* 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+10] = p[9]; }
    r += 1; /* shift reg. wnd */
s_l_v34923: /* ek . pat check-ellipses r ellipsis-pair? ellipsis? tmpl loop l 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(1109);
    r[11] = (hendblk(8+1));
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = r[2];  
    *--hp = (r[11]);
    *--hp = obj_from_case(1143);
    r[11] = (hendblk(2+1));
    r[0] = (r[11]);
    r[1] = r[2];  
    goto gs_sid_3F;

case 1109: /* 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 check-ellipses r ellipsis-pair? ellipsis? tmpl loop l 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[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1110);
    r[10] = (hendblk(9+1));
    r[11+0] = r[2];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = (r[10]);
    r[11+2] = r[1];  
    r[11+3] = obj_from_bool(0);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1110: /* 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+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . check-ellipses r r ellipsis-pair? ellipsis? tmpl loop l 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(1111);
    r[11] = (hendblk(8+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = r[7];  
    r[3] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1111: /* 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 . r r ellipsis-pair? ellipsis? tmpl loop l k */
    r[10] = (cdr((r[3])));
    hreserve(hbsz(6+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1120);
    r[11] = (hendblk(6+1));
    r[12+0] = (r[11]);
    r[12+1] = (r[10]);
    r[12+2] = obj_from_fixnum(+0);
    r[12+3] = (mknull());
    r[12+4] = r[4];  
    r[12+5] = r[3];  
    r[12+6] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_collect;

case 1112: /* clo k x depth l */
    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_collect: /* k x depth l ellipsis-pair? r r */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1112);
    r[7] = (hendblk(3+1));
    hreserve(hbsz(8+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = obj_from_case(1113);
    r[7] = (hendblk(8+1));
    r[0] = r[7];  
    /* r[1] */    
    goto gs_sid_3F;

case 1113: /* 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 ellipsis-pair? collect depth r k l r x */
  if (bool_from_obj(r[1])) {
    r[10] = (cxs_sid_2Did((r[9])));
  if (bool_from_obj(ismemv((r[10]), (r[8])))) {
    r[0] = r[6];  
    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 (bool_from_obj(isassv((r[10]), (r[7])))) {
    hreserve(hbsz(2+1), 11); /* 11 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1114);
    r[11] = (hendblk(2+1));
    r[0] = (r[11]);
    r[1] = r[9];  
    goto gs_unwrap_2Dvecs;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[7];  
    *--hp = (r[11]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  } else {
  if ((isvector((r[9])))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (vectorref((r[9]), (+0)));
    r[3] = r[4];  
    r[4] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((isbox((r[9])))) {
    r[10] = (boxref((r[9])));
    r[11] = (cdr((r[10])));
    r[10] = (car((r[11])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (r[10]);
    r[3] = r[4];  
    r[4] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((ispair((r[9])))) {
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = obj_from_case(1117);
    r[10] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[9])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }

case 1114: /* 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(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1115);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236872);
    goto gs_unwrap_2Dvecs;

case 1115: /* 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(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1116);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1116: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236873);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1117: /* 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 collect depth x k */
  if (bool_from_obj(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(1118);
    r[7] = (hendblk(4+1));
    r[8] = (cdr((r[5])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[3];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r[9+3] = r[4];  
    r[9+4] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1119);
    r[7] = (hendblk(4+1));
    r[8+0] = r[3];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cdr((r[5])));
    r[8+3] = r[4];  
    r[8+4] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1118: /* 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 collect depth x k */
  if ((is_fixnum_obj(r[3]))) {
    r[6] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43552_tmp = ((flonum_t)(+1));
    r[6] = obj_from_flonum(6, (v43552_tmp) + flonum_from_obj(r[3])); } 
  }
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = (car((r[4])));
    r[7+3] = r[6];  
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1119: /* 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 collect depth x k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((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 1120: /* 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 ellipsis-pair? ellipsis? tmpl loop l k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1137);
    r[8] = (hendblk(6+1));
    r[9+0] = r[8];  
    r[9+1] = r[4];  
    r[9+2] = obj_from_fixnum(+0);
    r[9+3] = r[2];  
    r[9+4] = r[4];  
    r[9+5] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_collect_v34975;

case 1121: /* clo k x depth */
    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 */
s_collect_v34975: /* k x depth ellipsis-pair? tmpl r */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1121);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(7+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(1122);
    r[6] = (hendblk(7+1));
    r[0] = r[6];  
    /* r[1] */    
    goto gs_sid_3F;

case 1122: /* 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 ellipsis-pair? collect tmpl k depth r x */
  if (bool_from_obj(r[1])) {
    r[9] = (cxs_sid_2Did((r[8])));
    r[9] = (isassv((r[9]), (r[7])));
  if (bool_from_obj(r[9])) {
    r[10] = (cdr((r[9])));
  if ((is_fixnum_obj(r[6]))) {
    { const fixnum_t v43550_depth = fixnum_from_obj(r[6]);
  if ((is_fixnum_obj(r[10]))) {
    r[11] = obj_from_bool((v43550_depth) == fixnum_from_obj(r[10]));
  } else {
    { const flonum_t v43551_tmp = ((flonum_t)(v43550_depth));
    r[11] = obj_from_bool((v43551_tmp) == flonum_from_obj(r[10])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[10]))) {
    { const flonum_t v43549_tmp = ((flonum_t)fixnum_from_obj(r[10]));
    r[11] = obj_from_bool(flonum_from_obj(r[6]) == (v43549_tmp)); } 
  } else {
    r[11] = obj_from_bool(flonum_from_obj(r[6]) == flonum_from_obj(r[10]));
  }
  }
  if ((((is_fixnum_obj(r[10])) ? (fixnum_from_obj(r[10]) > 0) : (flonum_from_obj(r[10]) > 0.0)) && (!bool_from_obj(r[11])))) {
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = r[5];  
    *--hp = obj_from_case(1123);
    r[12] = (hendblk(2+1));
    hreserve(hbsz(2+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = r[4];  
    *--hp = obj_from_case(1124);
    r[12] = (hendblk(2+1));
    r[0] = (r[12]);
    r[1] = r[8];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[11]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    r[0] = r[5];  
    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 {
  if ((isvector((r[8])))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (vectorref((r[8]), (+0)));
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isbox((r[8])))) {
    r[9] = (boxref((r[8])));
    r[9] = (cdr((r[9])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[9];  
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((ispair((r[8])))) {
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(1127);
    r[9] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[5];  
    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 1123: /* 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 same-depth? */
    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 1124: /* 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 tmpl k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1125);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236796);
    goto gs_unwrap_2Dvecs;

case 1125: /* 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 tmpl r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1126);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1126: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236799);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1127: /* 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 collect depth x tmpl 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(1128);
    r[7] = (hendblk(6+1));
  if (bool_from_obj(r[1])) {
  if ((is_fixnum_obj(r[3]))) {
    r[8] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[3])));
  } else {
    { const flonum_t v43548_tmp = ((flonum_t)(+1));
    r[8] = obj_from_flonum(8, (v43548_tmp) + flonum_from_obj(r[3])); } 
  }
  } else {
    r[8] = r[3];  
  }
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = (car((r[4])));
    r[9+3] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1128: /* 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 collect depth x tmpl r k */
  if (bool_from_obj(r[6])) {
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(1129);
    r[8] = (hendblk(0+1));
  } else {
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(1130);
    r[8] = (hendblk(0+1));
  }
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1131);
    r[9] = (hendblk(7+1));
    r[0] = r[8];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1129: /* clo 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 1130: /* 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 1131: /* 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 collect depth x tmpl r k r */
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1132);
    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+3] = r[3];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1132: /* 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 x tmpl r k r */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1133);
    r[7] = (hendblk(3+1));
  if (bool_from_obj(r[4])) {
  if ((!bool_from_obj(r[6]))) {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(1134);
    r[8] = (hendblk(2+1));
    r[0] = r[8];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_bool(0);
    r[8+2] = r[5];  
    r[8+3] = r[1];  
    r[8+4] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v35005;
  }
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_bool(0);
    r[8+2] = r[5];  
    r[8+3] = r[1];  
    r[8+4] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v35005;
  }

case 1133: /* 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_v35005: /* ek . k r r */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (bool_from_obj(r[4]) ? (r[4]) : (r[3]));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1134: /* 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 tmpl k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1135);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__236796);
    goto gs_unwrap_2Dvecs;

case 1135: /* 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 tmpl r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1136);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1136: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__236797);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1137: /* 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 . ellipsis? r tmpl loop l k */
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1142);
    r[8] = (hendblk(3+1));
    r[9+0] = r[8];  
    r[9+1] = r[4];  
    r[9+2] = (mknull());
    r[9+3] = r[2];  
    r[9+4] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_collect_v34946;

case 1138: /* clo k x lits */
    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 */
s_collect_v34946: /* k x lits ellipsis? r */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1138);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(1139);
    r[5] = (hendblk(5+1));
    r[6+0] = r[3];  
    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 1139: /* 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 collect r x k lits */
  if (bool_from_obj(r[1])) {
    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 {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(1140);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[4];  
    goto gs_sid_3F;
  }

case 1140: /* 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 collect k lits r x */
  if (bool_from_obj(r[1])) {
    r[7] = (cxs_sid_2Did((r[6])));
    r[7] = (isassv((r[7]), (r[5])));
  if (bool_from_obj(r[7])) {
    r[7] = r[4];  
  } else {
    r[7] = (cxs_sid_2Did((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
  }
    r[0] = r[3];  
    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 ((isvector((r[6])))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (vectorref((r[6]), (+0)));
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isbox((r[6])))) {
    r[7] = (boxref((r[6])));
    r[7] = (cdr((r[7])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[7];  
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((ispair((r[6])))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = obj_from_case(1141);
    r[7] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = (cdr((r[6])));
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }

case 1141: /* 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 collect x k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1142: /* 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 1143: /* 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 pat */
  if (bool_from_obj(r[1])) {
    { /* 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;
  } else {
    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 1144: /* 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 pat k */
  if (bool_from_obj(r[1])) {
    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; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1145);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;
  }

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 k */
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236786);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1146: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236789);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1147: /* 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 . k env synrules */
    r[5] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* 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[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1148: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236984);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

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 k */
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__236744);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1150: /* 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 synrules */
  if (bool_from_obj(r[1])) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[4] = (cxs_sid_2Did((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;
  } else {
    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 1151: /* apply-synrules k transformer sexp id-n env k */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_apply_2Dsynrules: /* k transformer sexp id-n env k */
    r[6] = (car((r[1])));
    r[7] = (cdr((r[1])));
    r[7] = (car((r[7])));
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = obj_from_case(1152);
    r[8] = (hendblk(7+1));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = obj_from_case(1233);
    r[8] = (hendblk(2+1));
    r[9] = (cdr((r[6])));
    r[9] = (car((r[9])));
    r[0] = r[8];  
    r[1] = r[9];  
    goto gs_sid_3F;

case 1152: /* 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 k k sexp env id-n mac-env synrules */
  if (bool_from_obj(r[1])) {
    r[9] = (cdr((r[8])));
    r[9] = (cdr((r[9])));
  } else {
    r[9] = (cdr((r[8])));
  }
    r[10] = (car((r[9])));
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1154);
    r[11] = (hendblk(8+1));
    r[0] = (r[11]);
    r[1] = (r[10]);
    goto s_loop_v34836;

s_loop_v34836: /* k l */
  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(1153);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v34836;
  } 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 1153: /* 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] = (cxs_sid_2Did((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 1154: /* 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 k k sexp env id-n mac-env r rest */
    r[10] = (cdr((r[9])));
    hreserve(hbsz(1+1), 11); /* 11 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1155);
    r[11] = (hendblk(1+1));
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(1156);
    r[12] = (hendblk(2+1));
    hreserve(hbsz(1+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = obj_from_case(1159);
    r[13] = (hendblk(1+1));
    hreserve(hbsz(8+1), 14); /* 14 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = (r[13]);
    *--hp = (r[12]);
    *--hp = r[3];  
    *--hp = (r[11]);
    *--hp = obj_from_case(1166);
    r[14] = (hendblk(8+1));
    r[15+0] = r[2];  
    r[15+1] = (r[10]);
    r[15+2] = r[7];  
    r[15+3] = r[5];  
    r[15+4] = r[1];  
    r[15+5] = (r[12]);
    r[15+6] = (r[13]);
    r[15+7] = (r[11]);
    r[15+8] = (r[14]);
    r[15+9] = r[4];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v34306;

case 1155: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id r */
    r[3] = (ismemv((r[1]), (r[2])));
    r[3] = obj_from_bool(!bool_from_obj(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 1156: /* 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 mac-env r */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1157);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_sid_3F;
  } 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 1157: /* 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 mac-env k x r */
  if (bool_from_obj(r[1])) {
  if (bool_from_obj(r[5])) {
    r[6] = (cxs_sid_2Did((r[4])));
    r[6] = obj_from_bool(((r[5]) == (r[6])) || ((is_flonum_obj(r[5])) && ((is_flonum_obj(r[6])) && (flonum_from_obj(r[5]) == flonum_from_obj(r[6])))));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1158);
    r[6] = (hendblk(1+1));
    r[0] = r[6];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_lookup_2Dsid;
  }
  } else {
    r[0] = r[3];  
    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 1158: /* 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] = obj_from_bool((r[1]) == obj_from_fixnum(-1));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1159: /* clo k x include-scalars pred? */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x include-scalars pred? ellipsis-pair? */
    r[5+0] = r[0];  
    r[5+1] = r[1];  
    r[5+2] = r[2];  
    r[5+3] = (mknull());
    r[5+4] = r[4];  
    r[5+5] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_collect_v34761;

case 1160: /* clo k x inc l */
    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 */
s_collect_v34761: /* k x inc l ellipsis-pair? pred? */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1160);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(7+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = obj_from_case(1161);
    r[6] = (hendblk(7+1));
    r[0] = r[6];  
    /* r[1] */    
    goto gs_sid_3F;

case 1161: /* 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 ellipsis-pair? collect pred? inc k l x */
  if (bool_from_obj(r[1])) {
    r[9] = (cxs_sid_2Did((r[8])));
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(1162);
    r[10] = (hendblk(3+1));
  if (bool_from_obj(r[5])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_bool(0);
    r[2] = r[6];  
    r[3] = r[7];  
    r[4] = r[9];  
    goto s_l_v34783;
  }
  } else {
  if ((isvector((r[8])))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (vectorref((r[8]), (+0)));
    r[3] = r[5];  
    r[4] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((isbox((r[8])))) {
    r[9] = (boxref((r[8])));
    r[9] = (cdr((r[9])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[9];  
    r[3] = r[5];  
    r[4] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((ispair((r[8])))) {
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = obj_from_case(1163);
    r[9] = (hendblk(5+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }

case 1162: /* 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_v34783: /* ek r k l id */
  if (bool_from_obj(r[1])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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;
  } else {
    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 1163: /* 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 inc collect x k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1164);
    r[7] = (hendblk(3+1));
    r[8] = (cdr((r[5])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[4];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r[9+3] = r[3];  
    r[9+4] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(1165);
    r[7] = (hendblk(4+1));
    r[8+0] = r[4];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cdr((r[5])));
    r[8+3] = r[3];  
    r[8+4] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1164: /* 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 collect x k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[3])));
    r[5+3] = obj_from_bool(1);
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1165: /* 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 collect inc x k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((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 1166: /* clo k pat tmpl top-bindings */
    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+8] = p[5];
    r[1+9] = p[6];
    r[1+10] = p[7];
    r[1+11] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* k pat tmpl top-bindings not-pat-literal? k ellipsis-pair? list-ids sexp env mac-env id-n */
    hreserve(hbsz(1), 12); /* 12 live regs */
    *--hp = obj_from_void(0);
    r[12] = (hendblk(1));
    hreserve(hbsz(1), 13); /* 13 live regs */
    *--hp = obj_from_void(0);
    r[13] = (hendblk(1));
    hreserve(hbsz(9+1), 14); /* 14 live regs */
    *--hp = r[3];  
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(1172);
    r[14] = (hendblk(9+1));
    hreserve(hbsz(9+1), 15); /* 15 live regs */
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = r[0];  
    *--hp = (r[11]);
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = (r[14]);
    *--hp = r[7];  
    *--hp = obj_from_case(1167);
    r[14] = (hendblk(9+1));
    r[15+0] = r[7];  
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = (r[14]);
    r[15+2] = r[1];  
    r[15+3] = obj_from_bool(0);
    r[15+4] = r[4];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1167: /* 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 list-ids expand top-bindings tmpl k id-n k ellipsis-vars tmpl-literals */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[1];  
    *--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(1168);
    r[11] = (hendblk(9+1));
    hreserve(hbsz(1+1), 12); /* 12 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(1171);
    r[12] = (hendblk(1+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = r[5];  
    r[3] = obj_from_bool(1);
    r[4] = (r[12]);
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1168: /* 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 expand top-bindings tmpl k id-n k ellipsis-vars r tmpl-literals */
    hreserve(hbsz(9+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 = r[2];  
    *--hp = obj_from_case(1169);
    r[11] = (hendblk(9+1));
    r[0] = (r[11]);
    /* r[1] */    
    r[2] = (mknull());
    goto s_loop_v34733;

s_loop_v34733: /* k l result */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
  if (bool_from_obj(ismemv((r[4]), (r[2])))) {
    r[4] = r[2];  
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
  }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v34733;
  }

case 1169: /* 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 expand top-bindings tmpl k id-n k ellipsis-vars r tmpl-literals */
    (void)(objptr_from_obj(r[10])[0] = (r[1]));
    (void)(objptr_from_obj(r[8])[0] = (r[9]));
    hreserve(hbsz(4+1), 11); /* 11 live regs */
    *--hp = r[7];  
    *--hp = (r[10]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1170);
    r[11] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = r[4];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1170: /* 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 k id-n tmpl-literals k */
    { fixnum_t v43546_b;
    r[6] = (objptr_from_obj(r[4])[0]);
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43546_b = (n); }
  if ((is_fixnum_obj(r[3]))) {
    r[6] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (v43546_b)));
  } else {
    { const flonum_t v43547_tmp = ((flonum_t)(v43546_b));
    r[6] = obj_from_flonum(6, flonum_from_obj(r[3]) + (v43547_tmp)); } 
  } }
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[1];  
    r[7+3] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1171: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id top-bindings */
    r[3] = (isassv((r[1]), (r[2])));
    r[3] = obj_from_bool(!bool_from_obj(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 1172: /* clo k tmpl bindings */
    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+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6];
    r[1+9] = p[7];
    r[1+10] = p[8];
    r[1+11] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars sexp env mac-env id-n tmpl-literals top-bindings */
    hreserve(hbsz(9+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 = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1172);
    r[12] = (hendblk(9+1));
    r[13+0] = r[0];  
    r[13+1] = r[1];  
    r[13+2] = r[3];  
    r[13+3] = r[4];  
    r[13+4] = r[5];  
    r[13+5] = r[6];  
    r[13+6] = (r[12]);
    r[13+7] = r[7];  
    r[13+8] = r[8];  
    r[13+9] = r[9];  
    r[13+10] = (r[10]);
    r[13+11] = (r[11]);
    r[13+12] = r[2];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_expand_2Dpart;

case 1173: /* clo k tmpl */
    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+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars sexp expand env mac-env id-n tmpl-literals top-bindings bindings */
    hreserve(hbsz(11+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--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 = r[2];  
    *--hp = obj_from_case(1173);
    r[13] = (hendblk(11+1));
    hreserve(hbsz(14+1), 14); /* 14 live regs */
    *--hp = r[1];  
    *--hp = (r[12]);
    *--hp = r[0];  
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1174);
    r[13] = (hendblk(14+1));
    r[0] = (r[13]);
    /* r[1] */    
    goto gs_sid_3F;

case 1174: /* 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+11] = p[10];
    r[1+12] = p[11];
    r[1+13] = p[12];
    r[1+14] = p[13];
    r[1+15] = p[14]; }
    r += 1; /* shift reg. wnd */
    /* ek r ellipsis-pair? list-ids ellipsis-vars sexp expand env expand-part mac-env id-n tmpl-literals top-bindings k bindings tmpl */
  if (bool_from_obj(r[1])) {
    r[16] = (cxs_sid_2Did((r[15])));
    r[17] = (isassv((r[16]), (r[14])));
  if (bool_from_obj(r[17])) {
    r[0] = (r[13]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[17])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[18] = (isassv((r[16]), (r[12])));
  if (bool_from_obj(r[18])) {
    r[0] = (r[13]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[18])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(5+1), 19); /* 19 live regs */
    *--hp = (r[11]);
    *--hp = (r[16]);
    *--hp = (r[10]);
    *--hp = (r[15]);
    *--hp = (r[13]);
    *--hp = obj_from_case(1175);
    r[19] = (hendblk(5+1));
    r[0] = (r[19]);
    r[1] = (r[15]);
    r[2] = r[9];  
    goto gs_lookup_2Dsid;
  }
  }
  } else {
  if ((isvector((r[15])))) {
    hreserve(hbsz(1+1), 16); /* 16 live regs */
    *--hp = (r[13]);
    *--hp = obj_from_case(1176);
    r[16] = (hendblk(1+1));
    r[0] = r[8];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[16]);
    r[2] = (vectorref((r[15]), (+0)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isbox((r[15])))) {
    hreserve(hbsz(4+1), 16); /* 16 live regs */
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = (r[15]);
    *--hp = r[8];  
    *--hp = obj_from_case(1177);
    r[16] = (hendblk(4+1));
    r[0] = (r[16]);
    r[1] = (r[15]);
    goto gs_template_2Dsbox_2D_3Econv;
  } else {
  if ((ispair((r[15])))) {
    hreserve(hbsz(8+1), 16); /* 16 live regs */
    *--hp = (r[13]);
    *--hp = (r[15]);
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = (r[14]);
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1179);
    r[16] = (hendblk(8+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[16]);
    r[2] = (cdr((r[15])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = (r[13]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[15]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }

case 1175: /* 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 k tmpl id-n id tmpl-literals */
    { fixnum_t v43544_index;
    { fixnum_t v43543_b;
    r[7] = (objptr_from_obj(r[6])[0]);
    r[7] = (ismemv((r[5]), (r[7])));
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43543_b = (n); }
    v43544_index = (fxadd((-1), (v43543_b))); }
  if ((is_fixnum_obj(r[4]))) {
    r[7] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (v43544_index)));
  } else {
    { const flonum_t v43545_tmp = ((flonum_t)(v43544_index));
    r[7] = obj_from_flonum(7, flonum_from_obj(r[4]) + (v43545_tmp)); } 
  }
    r[8] = (cxs_sid_2Dname((r[3])));
    { /* vector */
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[7] = (hendblk(3+1)); }
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = obj_from_ktrap();
    r[8+2] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; }

case 1176: /* 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 */
    { /* vector */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(1+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 1177: /* 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 expand-part tmpl env k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1178);
    r[6] = (hendblk(3+1));
    r[7] = (boxref((r[3])));
    r[7] = (cdr((r[7])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1178: /* 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 env 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] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1179: /* 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 list-ids ellipsis-vars bindings sexp expand-part expand tmpl k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(6+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1180);
    r[10] = (hendblk(6+1));
    hreserve(hbsz(1+1), 11); /* 11 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1197);
    r[11] = (hendblk(1+1));
    r[12+0] = r[2];  
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = (r[10]);
    r[12+2] = (car((r[8])));
    r[12+3] = obj_from_bool(1);
    r[12+4] = (r[11]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = obj_from_case(1198);
    r[10] = (hendblk(3+1));
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1180: /* 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 bindings sexp expand-part expand tmpl k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1182);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v34657;

s_loop_v34657: /* k l bindings */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1181);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v34657;
  } 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 1181: /* 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 bindings l */
    r[5] = (car((r[4])));
    r[6] = (isassv((r[5]), (r[3])));
    r[5] = (cdr((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1182: /* 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 sexp expand-part r expand tmpl k */
    r[8] = (cdr((r[1])));
    r[8] = obj_from_bool(isnull((r[8])));
    hreserve(hbsz(7+1), 9); /* 9 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(1183);
    r[9] = (hendblk(7+1));
  if (bool_from_obj(r[8])) {
    r[10+0] = obj_from_ktrap();
    r[10+1] = r[8];  
    r[10+2] = r[2];  
    r[10+3] = r[3];  
    r[10+4] = r[1];  
    r[10+5] = r[4];  
    r[10+6] = r[5];  
    r[10+7] = r[6];  
    r[10+8] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34581;
  } else {
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = obj_from_case(1195);
    r[10] = (hendblk(1+1));
    r[0] = (r[10]);
    /* r[1] */    
    goto s_loop_v34569;
  }

case 1183: /* 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_v34581: /* ek r sexp expand-part r r expand tmpl k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1184);
    r[9] = (hendblk(5+1));
    r[10] = (cdr((r[7])));
    r[10] = (cdr((r[10])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[2];  
    *--hp = obj_from_case(1191);
    r[9] = (hendblk(2+1));
    r[0] = r[9];  
    r[1] = r[5];  
    goto gs_unwrap_2Dvecs;
  }

case 1184: /* 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 expand tmpl k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1185);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[2];  
    goto gs_apply_2Dmap_2Dlist;

case 1185: /* 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 expand tmpl k r */
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1190);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    /* r[1] */    
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v34610;

s_loop_v34610: /* k l r expand tmpl */
  if ((ispair((r[1])))) {
    r[5] = (cdr((r[1])));
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1186);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v34610;
  } 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 1186: /* 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 expand tmpl k l */
    r[7] = (car((r[6])));
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1187);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(0+1), 9); /* 9 live regs */
    *--hp = obj_from_case(1189);
    r[9] = (hendblk(0+1));
    r[10+0] = (cx__25residual_2Dmap);
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[8];  
    r[10+2] = r[9];  
    r[10+3] = r[2];  
    r[10+4] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1187: /* 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 expand tmpl k r */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1188);
    r[6] = (hendblk(2+1));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = (car((r[3])));
    r[7+3] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1188: /* 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 1189: /* 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 1190: /* 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 v43542_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43542_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43542_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 1191: /* 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 sexp k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1192);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = (cx__237085);
    goto gs_unwrap_2Dvecs;

case 1192: /* 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 sexp r k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1193);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_unwrap_2Dvecs;

case 1193: /* 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] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("macroexpander")));
    r[5+3] = (cx__237086);
    r[5+4] = (r[3]);
    r[5+5] = (r[2]);
    r[5+6] = (r[1]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

s_loop_v34569: /* k l */
  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(1194);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v34569;
  } 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 1194: /* 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])));
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
    { /* 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 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 k */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1196);
    r[3] = (hendblk(0+1));
    r[4+0] = r[2];  
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_pairwise_2Dandmap;

case 1196: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v43540_x = fixnum_from_obj(r[1]);
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool((v43540_x) == fixnum_from_obj(r[2]));
  } else {
    { const flonum_t v43541_tmp = ((flonum_t)(v43540_x));
    r[3] = obj_from_bool((v43541_tmp) == flonum_from_obj(r[2])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[2]))) {
    { const flonum_t v43539_tmp = ((flonum_t)fixnum_from_obj(r[2]));
    r[3] = obj_from_bool(flonum_from_obj(r[1]) == (v43539_tmp)); } 
  } else {
    r[3] = obj_from_bool(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 1197: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id ellipsis-vars */
    r[3] = (objptr_from_obj(r[2])[0]);
    r[3] = (ismemv((r[1]), (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 1198: /* 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 expand-part tmpl k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1199);
    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 1199: /* 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 1200: /* clo k rules */
    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 */
s_loop_v34306: /* k rules mac-env env r ellipsis-pair? list-ids not-pat-literal? expand-template sexp */
  if ((isnull((r[1])))) {
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1201);
    r[10] = (hendblk(1+1));
    r[0] = (r[10]);
    r[1] = r[9];  
    goto gs_unwrap_2Dvecs;
  } else {
    r[10] = (car((r[1])));
    r[11] = (car((r[10])));
    r[12] = (cdr((r[10])));
    r[12] = (car((r[12])));
    hreserve(hbsz(8+1), 13); /* 13 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[2];  
    *--hp = obj_from_case(1200);
    r[13] = (hendblk(8+1));
    hreserve(hbsz(11+1), 14); /* 14 live regs */
    *--hp = (r[11]);
    *--hp = r[0];  
    *--hp = (r[12]);
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = (r[13]);
    *--hp = obj_from_case(1202);
    r[13] = (hendblk(11+1));
  if ((ispair((r[11])))) {
  if ((ispair((r[9])))) {
    r[14] = (cdr((r[11])));
    r[15] = (cdr((r[9])));
    r[16+0] = (r[13]);
    r[16+1] = (r[14]);
    r[16+2] = (r[15]);
    r[16+3] = r[5];  
    r[16+4] = r[2];  
    r[16+5] = r[3];  
    r[16+6] = r[4];  
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_match;
  } else {
    hreserve(hbsz(8+1), 14); /* 14 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[2];  
    *--hp = obj_from_case(1200);
    r[14] = (hendblk(8+1));
    r[15+0] = obj_from_ktrap();
    r[15+1] = obj_from_bool(0);
    r[15+2] = (r[14]);
    r[15+3] = r[1];  
    r[15+4] = r[4];  
    r[15+5] = r[5];  
    r[15+6] = r[6];  
    r[15+7] = r[7];  
    r[15+8] = r[9];  
    r[15+9] = r[8];  
    r[15+10] = (r[12]);
    r[15+11] = r[0];  
    r[15+12] = (r[11]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34395;
  }
  } else {
    hreserve(hbsz(8+1), 14); /* 14 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[2];  
    *--hp = obj_from_case(1200);
    r[14] = (hendblk(8+1));
    r[15+0] = obj_from_ktrap();
    r[15+1] = obj_from_bool(0);
    r[15+2] = (r[14]);
    r[15+3] = r[1];  
    r[15+4] = r[4];  
    r[15+5] = r[5];  
    r[15+6] = r[6];  
    r[15+7] = r[7];  
    r[15+8] = r[9];  
    r[15+9] = r[8];  
    r[15+10] = (r[12]);
    r[15+11] = r[0];  
    r[15+12] = (r[11]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v34395;
  }
  }

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 k */
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("macroexpander")));
    r[3+3] = (cx__237391);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1202: /* 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+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
s_l_v34395: /* ek r loop rules r ellipsis-pair? list-ids not-pat-literal? sexp expand-template tmpl k pat */
  if (bool_from_obj(r[1])) {
    r[13] = (cdr((r[12])));
    r[14] = (cdr((r[8])));
    hreserve(hbsz(4+1), 15); /* 15 live regs */
    *--hp = (r[11]);
    *--hp = (r[12]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = obj_from_case(1217);
    r[15] = (hendblk(4+1));
    r[0] = (r[15]);
    r[1] = (r[13]);
    r[2] = (r[14]);
    r[3] = (mknull());
    /* r[4] */    
    /* r[5] */    
    /* r[6] */    
    /* r[7] */    
    goto s_collect_v34414;
  } else {
    hreserve(hbsz(5+1), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1218);
    r[13] = (hendblk(5+1));
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[13]);
    *--hp = r[8];  
    *--hp = obj_from_case(1219);
    r[13] = (hendblk(2+1));
    r[0] = (r[13]);
    r[1] = (r[12]);
    goto gs_sid_3F;
  }

case 1203: /* clo k pat sexp bindings */
    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_collect_v34414: /* k pat sexp bindings r ellipsis-pair? list-ids not-pat-literal? */
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1203);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(8+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1204);
    r[8] = (hendblk(8+1));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = obj_from_case(1216);
    r[8] = (hendblk(3+1));
    r[0] = r[8];  
    /* r[1] */    
    goto gs_sid_3F;

case 1204: /* 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 ellipsis-pair? list-ids not-pat-literal? collect k bindings sexp pat */
  if (bool_from_obj(r[1])) {
    r[10] = (cxs_sid_2Did((r[9])));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[7];  
    *--hp = (r[11]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1205);
    r[10] = (hendblk(8+1));
    r[0] = (r[10]);
    r[1] = r[9];  
    goto gs_svector_3F;
  }

case 1205: /* 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 ellipsis-pair? list-ids not-pat-literal? collect bindings sexp pat k */
  if (bool_from_obj(r[1])) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (vectorref((r[8]), (+0)));
    r[3] = (vectorref((r[7]), (+0)));
    r[4] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((isbox((r[8])))) {
    r[10] = (boxref((r[8])));
    r[11] = (cdr((r[10])));
    r[10] = (car((r[11])));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (r[10]);
    r[3] = r[7];  
    r[4] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((!(ispair((r[8]))))) {
    r[0] = r[9];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1206);
    r[10] = (hendblk(7+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 1206: /* 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 list-ids not-pat-literal? collect bindings k sexp pat */
  if (bool_from_obj(r[1])) {
    { fixnum_t v43534_tail_2Dlen;
    r[9] = (cdr((r[8])));
    r[9] = (cdr((r[9])));
    { /* length */
    int n; obj l = r[9];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43534_tail_2Dlen = (n); }
    { fixnum_t v43536_tmp;
    { fixnum_t v43535_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43535_tmp = (n); }
    v43536_tmp = (fxsub((v43535_tmp), (v43534_tail_2Dlen))); }
    { /* list-tail */
    obj l = r[7];   int c = (v43536_tmp);
    while (c-- > 0) l = cdr(l);
    r[9] = (l); } }
    { fixnum_t v43537_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43537_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43537_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[10] = (o); } }
    { /* list-tail */
    obj l = (r[10]); int c = (v43534_tail_2Dlen);
    while (c-- > 0) l = cdr(l);
    r[10] = (l); }
    { fixnum_t v43538_tmp;
    { /* length */
    int n; obj l = (r[10]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43538_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43538_tmp);
    hreserve(hbsz(3)*c, 11); /* 11 live regs */
    l = (r[10]); /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[10] = (o); } }
    hreserve(hbsz(6+1), 11); /* 11 live regs */
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = obj_from_case(1207);
    r[11] = (hendblk(6+1));
    r[12+0] = r[2];  
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = (r[11]);
    r[12+2] = (car((r[8])));
    r[12+3] = obj_from_bool(1);
    r[12+4] = r[3];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump; }
  } else {
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = obj_from_case(1215);
    r[9] = (hendblk(4+1));
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    r[3] = (cdr((r[7])));
    r[4] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 1207: /* 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 matches collect bindings tail pat k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1212);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[2];  
    r[2] = r[3];  
    r[3] = r[6];  
    goto s_loop_v34453;

s_loop_v34453: /* k l collect pat */
  if ((ispair((r[1])))) {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1208);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v34453;
  } 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 1208: /* 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 collect pat k l */
    r[6] = (car((r[5])));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1209);
    r[7] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = (car((r[3])));
    r[3] = r[6];  
    r[4] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1209: /* 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(1211);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto s_loop_v34464;

s_loop_v34464: /* k l */
  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(1210);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v34464;
  } 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 1210: /* 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 1211: /* 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 1212: /* 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 collect bindings tail pat k r */
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1213);
    r[9] = (hendblk(5+1));
    r[0] = r[9];  
    r[1] = r[8];  
    goto gs_apply_2Dmap_2Dlist;

case 1213: /* 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 collect bindings tail pat k */
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1214);
    r[7] = (hendblk(2+1));
    r[8] = (cdr((r[5])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r[9+3] = r[4];  
    r[9+4] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1214: /* 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 v43533_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43533_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43533_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[3];   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[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 1215: /* 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 collect sexp pat k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[4])));
    r[6+3] = (car((r[3])));
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 1216: /* 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 pat */
  if (bool_from_obj(r[1])) {
    r[5] = (cxs_sid_2Did((r[4])));
    r[5] = (ismemv((r[5]), (r[3])));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
    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;
  } else {
    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 1217: /* 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 expand-template tmpl pat k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cdr((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 1218: /* 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 rules expand-template tmpl k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (mknull());
    r[3] = r[5];  
    r[4] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1219: /* 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 sexp k */
  if (bool_from_obj(r[1])) {
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_sid_3F;
  } else {
    r[0] = r[3];  
    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 1220: /* clo k pat sexp */
    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+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_match: /* k pat sexp ellipsis-pair? mac-env env r */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1220);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(8+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(1221);
    r[7] = (hendblk(8+1));
    r[0] = r[7];  
    /* r[1] */    
    goto gs_sid_3F;

case 1221: /* 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 ellipsis-pair? match mac-env env sexp k r pat */
  if (bool_from_obj(r[1])) {
    r[10] = (cxs_sid_2Did((r[9])));
    r[10] = (ismemv((r[10]), (r[8])));
    r[10] = obj_from_bool(!bool_from_obj(r[10]));
  if (bool_from_obj(r[10])) {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(5+1), 11); /* 11 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[9];  
    *--hp = r[4];  
    *--hp = obj_from_case(1222);
    r[11] = (hendblk(5+1));
    r[0] = (r[11]);
    r[1] = r[6];  
    goto gs_sid_3F;
  }
  } else {
    hreserve(hbsz(6+1), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(1225);
    r[10] = (hendblk(6+1));
    r[0] = (r[10]);
    r[1] = r[9];  
    goto gs_svector_3F;
  }

case 1222: /* 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 mac-env pat env sexp k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1223);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_lookup_2Dsid;
  } else {
    r[0] = r[6];  
    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 1223: /* 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 sexp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1224);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_lookup_2Dsid;

case 1224: /* 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_bool(((r[3]) == (r[1])) || ((is_flonum_obj(r[3])) && ((is_flonum_obj(r[1])) && (flonum_from_obj(r[3]) == flonum_from_obj(r[1])))));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1225: /* 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 ellipsis-pair? env match sexp pat k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1226);
    r[8] = (hendblk(4+1));
    r[0] = r[8];  
    r[1] = r[5];  
    goto gs_svector_3F;
  } else {
  if (bool_from_obj(cxs_pattern_2Dsbox_3F((r[6])))) {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1227);
    r[8] = (hendblk(5+1));
    r[0] = r[8];  
    r[1] = r[6];  
    goto gs_pattern_2Dsbox_2D_3Etest;
  } else {
  if ((!(ispair((r[6]))))) {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(isequal((r[6]), (r[5])));
    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(1229);
    r[8] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (cdr((r[6])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 1226: /* 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 match sexp pat k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (vectorref((r[4]), (+0)));
    r[3] = (vectorref((r[3]), (+0)));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[5];  
    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 1227: /* 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 match sexp pat k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1228);
    r[7] = (hendblk(4+1));
    r[8+0] = r[1];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[4];  
    r[8+3] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1228: /* 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 match sexp pat k */
  if (bool_from_obj(r[1])) {
    r[6] = (boxref((r[4])));
    r[7] = (cdr((r[6])));
    r[6] = (car((r[7])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[5];  
    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 1229: /* 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 match sexp pat k */
  if (bool_from_obj(r[1])) {
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[5];  
    r[7+1] = r[6];  
    r[7+2] = r[3];  
    r[7+3] = r[2];  
    r[7+4] = r[4];  
    r[7+5] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_skip;
  } else {
  if ((ispair((r[3])))) {
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1232);
    r[6] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (car((r[4])));
    r[3] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[5];  
    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;
  }
  }

s_skip: /* k p s match pat sexp */
  if ((ispair((r[1])))) {
  if ((ispair((r[2])))) {
    r[6] = (cdr((r[1])));
    r[7] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[6];  
    r[2] = r[7];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_skip;
  } 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] */    
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_match_2Dcars;
  }

case 1230: /* clo k sexp s */
    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 */
s_match_2Dcars: /* k sexp s match pat */
  if ((ispair((r[2])))) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1230);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(1231);
    r[5] = (hendblk(4+1));
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[4])));
    r[6+3] = (car((r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[5] = (cdr((r[4])));
    r[5] = (cdr((r[5])));
    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+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1231: /* 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 match-cars s sexp k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[5];  
    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 1232: /* 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 match sexp pat k */
  if (bool_from_obj(r[1])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[5];  
    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 1233: /* 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 synrules */
  if (bool_from_obj(r[1])) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[4] = (cxs_sid_2Did((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;
  } else {
    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 1234: /* expand-top-level-forms! k forms environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_expand_2Dtop_2Dlevel_2Dforms_21: /* k forms environment */
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1235);
    r[3] = (hendblk(0+1));
    r[4+0] = r[0];  
    r[4+1] = r[1];  
    r[4+2] = r[2];  
    r[4+3] = (car((cx__2Acurrent_2Dmacro_2Dstore_2A)));
    r[4+4] = (cdr((cx__2Acurrent_2Dmacro_2Dstore_2A)));
    r[4+5] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_expand_2Dtop_2Dlevel_2Dforms;

case 1235: /* clo k outputs store loc-n */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k outputs store loc-n */
    (void)(car((cx__2Acurrent_2Dmacro_2Dstore_2A)) = (r[2]));
    (void)(cdr((cx__2Acurrent_2Dmacro_2Dstore_2A)) = (r[3]));
    r[4] = r[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 1236: /* make-lib k file/lib */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_make_2Dlib: /* k file/lib */
  if ((isstring((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_file_2Dresolve_2Drelative_2Dto_2Dcurrent;
  } else {
  if ((ispair((r[1])))) {
    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;
  } else {
    r[2+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("compiler")));
    r[2+3] = (cx__237581);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 1237: /* lib=? 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 1238: /* lib-public? k lib */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k lib */
    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 1239: /* adjoin-libs k libs1 libs2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_adjoin_2Dlibs: /* k libs1 libs2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1240);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_adjoin_2Dlibs;
  }

case 1240: /* 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 libs1 */
    r[4] = (car((r[3])));
    r[4] = (ismember((r[4]), (r[1])));
  if (bool_from_obj(r[4])) {
    r[4] = r[1];  
  } 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 1241: /* env-lookup k i env full? */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_env_2Dlookup: /* k i env full? */
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v34229;

s_loop_v34229: /* k env i full? */
  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 {
  if ((isprocedure((r[1])))) {
  if (bool_from_obj(r[3])) {
  if ((issymbol((r[2])))) {
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[2];  
    r += 4; /* 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_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[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[4] = obj_from_bool(((r[2]) == (r[4])) || ((is_flonum_obj(r[2])) && ((is_flonum_obj(r[4])) && (flonum_from_obj(r[2]) == flonum_from_obj(r[4])))));
  if (bool_from_obj(r[4])) {
    r[4] = (car((r[1])));
    r[4] = (cdr((r[4])));
    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 {
    r[4] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v34229;
  }
  }
  }

case 1242: /* adjoin-env k env1 env2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_adjoin_2Denv: /* k env1 env2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1243);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_adjoin_2Denv;
  }

case 1243: /* 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 env1 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1244);
    r[4] = (hendblk(3+1));
    r[5] = (car((r[3])));
    r[5] = (car((r[5])));
    r[6+0] = r[4];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = obj_from_bool(0);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_env_2Dlookup;

case 1244: /* 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 env1 */
  if (bool_from_obj(r[1])) {
    r[5] = (car((r[4])));
    r[5] = (cdr((r[5])));
    r[5] = obj_from_bool((r[5]) == (r[1]));
  if (bool_from_obj(r[5])) {
    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] = (car((r[4])));
    r[5] = (car((r[5])));
    r[6] = (car((r[4])));
    r[6] = (cdr((r[6])));
    r[7+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[2];  
    r[7+2] = (mksymbol(internsym("compiler")));
    r[7+3] = (cx__237646);
    r[7+4] = (r[5]);
    r[7+5] = (r[6]);
    r[7+6] = (r[1]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  }
  } else {
    r[5] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1245: /* adjoin-env/shadow k env1 env2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_adjoin_2Denv_2Fshadow: /* k env1 env2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1246);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_adjoin_2Denv_2Fshadow;
  }

case 1246: /* 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 env1 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1247);
    r[4] = (hendblk(3+1));
    r[5] = (car((r[3])));
    r[5] = (car((r[5])));
    r[6+0] = r[4];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = obj_from_bool(0);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_env_2Dlookup;

case 1247: /* 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 env1 */
  if (bool_from_obj(r[1])) {
    r[5] = (car((r[4])));
    r[5] = (cdr((r[5])));
    r[5] = obj_from_bool((r[5]) == (r[1]));
  if (bool_from_obj(r[5])) {
    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 {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1248);
    r[5] = (hendblk(3+1));
    r[6] = (car((r[4])));
    r[6] = (car((r[6])));
    r[7] = (car((r[4])));
    r[7] = (cdr((r[7])));
    r[8+0] = (cx_c_2Dwarning);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[5];  
    r[8+2] = (cx__237677);
    r[8+3] = r[6];  
    r[8+4] = (mksymbol(internsym("was:")));
    r[8+5] = (r[1]);
    r[8+6] = (mksymbol(internsym("now:")));
    r[8+7] = (r[7]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 8;
    goto jump;
  }
  } else {
    r[5] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1248: /* 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 . k r env1 */
    r[5] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1249: /* adjoin-esps k esps1 esps2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_adjoin_2Desps: /* k esps1 esps2 */
  if ((!bool_from_obj(r[1]))) {
    r[3] = r[2];  
  } else {
  if ((!bool_from_obj(r[2]))) {
    r[3] = r[1];  
  } else {
    { fixnum_t v43532_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43532_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43532_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 1250: /* adjoin-begs k begs1 begs2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k begs1 begs2 */
    { fixnum_t v43531_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43531_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43531_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 1251: /* preprocess-library k lib return */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_preprocess_2Dlibrary: /* k lib return */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1252);
    r[3] = (hendblk(2+1));
    r[4+0] = r[0];  
    r[4+1] = r[1];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_get_2Dlibrary_2Dinfo;

case 1252: /* clo k used-libs import-env export-specs beg-forms */
    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 used-libs import-env export-specs beg-forms lib return */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(1253);
    r[7] = (hendblk(5+1));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[0] = r[7];  
    /* r[1] */    
    r[2] = r[8];  
    goto gs_adjoin_2Dlibs;

case 1253: /* 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 import-env lib export-specs return k */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1254);
    r[7] = (hendblk(3+1));
    r[8+0] = r[7];  
    r[8+1] = r[4];  
    r[8+2] = r[3];  
    r[8+3] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_make_2Dexport_2Denv;

case 1254: /* 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 return 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 1255: /* preprocess-import-set k iset return */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_preprocess_2Dimport_2Dset: /* k iset return */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_pp;

s_pp: /* k s return */
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237866), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1256);
    r[4] = (hendblk(2+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_pp;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237832), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1259);
    r[4] = (hendblk(2+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_pp;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237800), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1262);
    r[4] = (hendblk(2+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_pp;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237754), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1265);
    r[4] = (hendblk(2+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_pp;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237710), (r[1])))) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1269);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_make_2Dlib;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((mksymbol(internsym("<string>"))), (r[1])))) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1270);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_make_2Dlib;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F(obj_from_bool(0), (r[1])))) {
    /* r[0] */    
    r[1] = obj_from_bool(0);
    /* r[2] */    
    goto gs_preprocess_2Dlibrary;
  } else {
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("compiler")));
    r[3+3] = (cx__237709);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }
  }
  }
  }
  }

case 1256: /* clo k libs env */
    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 libs env s return */
    r[5] = (cdr((r[3])));
    r[5] = (cdr((r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1258);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[5];  
    goto s_loop_v34102;

s_loop_v34102: /* k env ids */
  if ((isnull((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[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    { /* memq */
    obj x = (r[3]), l = r[2];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1257);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v34102;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v34102;
  }
  }

case 1257: /* 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 env */
    { /* 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 1258: /* 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 return libs 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 1259: /* clo k libs env */
    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 libs env s return */
    r[5] = (cdr((r[3])));
    r[5] = (cdr((r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1261);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[5];  
    goto s_loop_v34075;

s_loop_v34075: /* k env ids */
  if ((isnull((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[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    { /* memq */
    obj x = (r[3]), l = r[2];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v34075;
  } else {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1260);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v34075;
  }
  }

case 1260: /* 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 env */
    { /* 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 1261: /* 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 return libs 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 1262: /* clo k libs env */
    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 libs env s return */
    r[5] = (cdr((r[3])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[5] = (hpushstr(6, newstring(symbolname(getsymbol((r[5]))))));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1264);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[5];  
    goto s_loop_v34048;

s_loop_v34048: /* k env pfx */
  if ((isnull((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[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    r[3] = (hpushstr(4, newstring(symbolname(getsymbol((r[3]))))));
    { /* string-append */
    int *d = stringcat(stringdata((r[2])), stringdata((r[3])));
    r[3] = (hpushstr(4, d)); }
    r[3] = (mksymbol(internsym(stringchars((r[3])))));
    r[4] = (cdr((r[1])));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1263);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_loop_v34048;
  }

case 1263: /* 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 nn env */
    r[5] = (car((r[4])));
    r[5] = (cdr((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1264: /* 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 return libs 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 1265: /* clo k libs env */
    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 libs env s return */
    r[5] = (cdr((r[3])));
    r[5] = (cdr((r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1268);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[5];  
    goto s_loop_v34015;

s_loop_v34015: /* k env idpairs */
  if ((isnull((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[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    { /* assq */
    obj x = (r[3]), 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); }
  if (bool_from_obj(r[3])) {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1266);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_loop_v34015;
  } else {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1267);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    goto s_loop_v34015;
  }
  }

case 1266: /* 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 tmp env */
    r[5] = (car((r[4])));
    r[5] = (cdr((r[5])));
    r[6] = (cdr((r[3])));
    r[6] = (car((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    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 1267: /* 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 env */
    { /* 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 1268: /* 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 return libs 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 1269: /* 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 return k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_preprocess_2Dlibrary;

case 1270: /* 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 return k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_preprocess_2Dlibrary;

case 1271: /* preprocess-import-sets k isets return */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_preprocess_2Dimport_2Dsets: /* k isets return */
    r[3+0] = r[0];  
    r[3+1] = r[1];  
    r[3+2] = (mknull());
    r[3+3] = (mknull());
    r[3+4] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33957;

case 1272: /* clo k isets libs env */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v33957: /* k isets libs env return */
  if ((isnull((r[1])))) {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[2];  
    r[5+3] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(1272);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1273);
    r[5] = (hendblk(4+1));
    r[6+0] = r[0];  
    r[6+1] = (car((r[1])));
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_preprocess_2Dimport_2Dset;
  }

case 1273: /* clo k new-libs new-env */
    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+6] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* k new-libs new-env libs env loop isets */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1274);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = r[3];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_adjoin_2Dlibs;

case 1274: /* 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 new-env loop isets 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(1275);
    r[7] = (hendblk(4+1));
    r[0] = r[7];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_adjoin_2Denv;

case 1275: /* 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 isets k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cdr((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 1276: /* make-local-env k esps thislib import-env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_make_2Dlocal_2Denv: /* k esps thislib import-env */
    r[4+0] = r[0];  
    r[4+1] = r[1];  
    r[4+2] = r[3];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33922;

case 1277: /* clo k esps env */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v33922: /* k esps env thislib */
  if ((isnull((r[1])))) {
  if ((isstring((r[3])))) {
    r[4] = r[2];  
  } else {
    { fixnum_t v43530_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43530_tmp = (n); }
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1278);
    r[4] = (hendblk(1+1));
    { /* append */
    obj t, l, o, *p, *d; int c = (v43530_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[2];   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[4] = (o); } }
  }
    /* 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 {
    r[4] = (car((r[1])));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1277);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1280);
    r[5] = (hendblk(3+1));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((mksymbol(internsym("<symbol>"))), (r[4])))) {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1277);
    r[6] = (hendblk(1+1));
    r[7+0] = obj_from_ktrap();
    r[7+1] = r[2];  
    r[7+2] = r[6];  
    r[7+3] = r[1];  
    r[7+4] = r[0];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v33924;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237904), (r[4])))) {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1277);
    r[6] = (hendblk(1+1));
    r[7+0] = obj_from_ktrap();
    r[7+1] = r[2];  
    r[7+2] = r[6];  
    r[7+3] = r[1];  
    r[7+4] = r[0];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v33924;
  } else {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__237903);
    r[6+4] = (car((r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 1278: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id thislib */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(1279);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_file_2Flib_2D_3Emodname;

case 1279: /* 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 id */
    r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[3]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    r[4] = (mksymbol(internsym(stringchars((r[4])))));
    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 1280: /* 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_v33924: /* ek r loop esps k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cdr((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1281: /* make-export-env k esps thislib import-env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_make_2Dexport_2Denv: /* k esps thislib import-env */
  if ((isstring((r[2])))) {
  if (bool_from_obj(bool_from_obj(r[1]) ? (r[1]) : obj_from_bool(ispair((r[3]))))) {
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (mksymbol(internsym("compiler")));
    r[4+3] = (cx__237970);
    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] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1282);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    r[5+1] = r[1];  
    r[5+2] = (mknull());
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33883;
  }

case 1282: /* clo k lid eid env */
    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 */
    /* k lid eid env thislib import-env esps */
    { /* assq */
    obj x = (r[2]), l = (r[3]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[7] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[7])) {
    r[7+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = (mksymbol(internsym("compiler")));
    r[7+3] = (cx__237938);
    r[7+4] = (r[2]);
    r[7+5] = (r[6]);
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    { /* assq */
    obj x = (r[1]), l = (r[5]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[7] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[7])) {
    r[8] = (cdr((r[7])));
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[3];  
    *--hp = r[8];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[8];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1283);
    r[8] = (hendblk(4+1));
    r[0] = r[8];  
    r[1] = r[4];  
    goto gs_file_2Flib_2D_3Emodname;
  }
  }

case 1283: /* 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 k env eid lid */
    r[6] = (hpushstr(6, newstring(symbolname(getsymbol((r[5]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[6])));
    r[6] = (hpushstr(7, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[6])));
    r[6] = (hpushstr(7, d)); }
    r[6] = (mksymbol(internsym(stringchars((r[6])))));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[8];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1284: /* clo k esps env */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v33883: /* k esps env extend-export */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (car((r[1])));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1284);
    r[5] = (hendblk(1+1));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1285);
    r[5] = (hendblk(3+1));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((mksymbol(internsym("<symbol>"))), (r[4])))) {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[1])));
    r[6+3] = (car((r[1])));
    r[6+4] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237956), (r[4])))) {
    r[6] = (car((r[1])));
    r[7] = (cdr((r[6])));
    r[6] = (car((r[7])));
    r[7] = (car((r[1])));
    r[8] = (cdr((r[7])));
    r[8] = (cdr((r[8])));
    r[7] = (car((r[8])));
    r[8+0] = r[3];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[5];  
    r[8+2] = r[6];  
    r[8+3] = r[7];  
    r[8+4] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__237903);
    r[6+4] = (car((r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 1285: /* 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 esps k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cdr((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1286: /* process-header-forms k curlib all-forms return */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_process_2Dheader_2Dforms: /* k curlib all-forms return */
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = (mknull());
    r[4+3] = (mknull());
    r[4+4] = r[2];  
    r[4+5] = r[1];  
    r[4+6] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33814;

case 1287: /* clo k forms libs env */
    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_v33814: /* k forms libs env all-forms curlib return */
  if ((isnull((r[1])))) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_case(1288);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    goto gs_current_2Dfile;
  } else {
    r[7] = (car((r[1])));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238019), (r[7])))) {
    r[8] = (car((r[1])));
    r[8] = (cdr((r[8])));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1287);
    r[9] = (hendblk(3+1));
    hreserve(hbsz(4+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1289);
    r[9] = (hendblk(4+1));
    r[10+0] = r[0];  
    r[10+1] = r[8];  
    r[10+2] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_preprocess_2Dimport_2Dsets;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238005), (r[7])))) {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1292);
    r[8] = (hendblk(5+1));
    r[9] = (car((r[1])));
    r[10] = (cdr((r[9])));
    r[9] = (car((r[10])));
    r[0] = r[8];  
    r[1] = r[9];  
    goto gs_make_2Dlib;
  } else {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_case(1295);
    r[8] = (hendblk(5+1));
    r[0] = r[8];  
    goto gs_current_2Dfile;
  }
  }
  }

case 1288: /* 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 return env libs k forms */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    r[4] = obj_from_bool(0);
    r[5] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1289: /* clo k new-libs new-env */
    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+6] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* k new-libs new-env libs env loop forms */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1290);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = r[3];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_adjoin_2Dlibs;

case 1290: /* 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 new-env loop forms 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(1291);
    r[7] = (hendblk(4+1));
    r[0] = r[7];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_adjoin_2Denv;

case 1291: /* 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 forms k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cdr((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 1292: /* 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 all-forms curlib return forms 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(1293);
    r[7] = (hendblk(5+1));
    r[8] = (cxs_list1_3F((r[2])));
    r[8] = obj_from_bool(!bool_from_obj(r[8]));
  if (bool_from_obj(r[8])) {
    r[0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = (mksymbol(internsym("compiler")));
    r[3] = (cx__238001);
    r[4] = (car((r[5])));
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_void(0);
    r[8+2] = r[3];  
    r[8+3] = r[4];  
    r[8+4] = r[5];  
    r[8+5] = r[1];  
    r[8+6] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v33824;
  }

case 1293: /* 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 */
s_l_v33824: /* ek . curlib return forms r k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1294);
    r[7] = (hendblk(4+1));
  if (bool_from_obj(r[2])) {
    { const bool_t v43529_tmp = (isequal((r[2]), (r[5])));
    r[8] = obj_from_bool(!(v43529_tmp)); } 
  } else {
    r[8] = obj_from_bool(0);
  }
  if (bool_from_obj(r[8])) {
    r[8+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (mksymbol(internsym("compiler")));
    r[8+3] = (cx__237998);
    r[8+4] = (r[2]);
    r[8+5] = (mksymbol(internsym("<=>")));
    r[8+6] = (r[5]);
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_void(0);
    r[2] = r[3];  
    r[3] = r[4];  
    r[4] = r[5];  
    r[5] = r[6];  
    goto s_l_v33826;
  }

case 1294: /* 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_v33826: /* ek . return forms r k */
    r[6] = (car((r[3])));
    r[7] = (cdr((r[6])));
    r[6] = (cdr((r[7])));
    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_process_2Ddefine_2Dlibrary_2Ddecls;

case 1295: /* 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 return env libs k forms */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[4];  
    /* r[3] */    
    r[4] = obj_from_bool(0);
    r[5] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1296: /* process-includes k names ci? return */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_process_2Dincludes: /* k names ci? return */
    r[4+0] = r[0];  
    r[4+1] = r[1];  
    r[4+2] = (mknull());
    r[4+3] = r[2];  
    r[4+4] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33791;

case 1297: /* clo k names begs */
    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 */
s_loop_v33791: /* k names begs ci? return */
  if ((isnull((r[1])))) {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mknull());
    r[5+3] = (mknull());
    r[5+4] = (mknull());
    r[5+5] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1297);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(1298);
    r[5] = (hendblk(5+1));
    r[0] = r[5];  
    r[1] = (car((r[1])));
    goto gs_resolve_2Dinput_2Dfile_2Flib_2Dname;
  }

case 1298: /* 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 begs ci? names k */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--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)); }
    { fixnum_t v43528_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43528_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43528_tmp);
    hreserve(hbsz(3)*c, 8); /* 8 live regs */
    l = r[3];   t = r[7];   /* 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[7] = (o); } }
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cdr((r[5])));
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1299: /* process-define-library-decl k thislib d return */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_process_2Ddefine_2Dlibrary_2Ddecl: /* k thislib d return */
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238180), (r[2])))) {
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (mknull());
    r[4+3] = (mknull());
    r[4+4] = (cdr((r[2])));
    r[4+5] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238172), (r[2])))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1300);
    r[4] = (hendblk(1+1));
    /* r[0] */    
    r[1] = (cdr((r[2])));
    r[2] = r[4];  
    goto gs_preprocess_2Dimport_2Dsets;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238162), (r[2])))) {
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(1301);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    goto gs_current_2Dfile;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238148), (r[2])))) {
    /* r[0] */    
    r[1] = (cdr((r[2])));
    r[2] = obj_from_bool(0);
    /* r[3] */    
    goto gs_process_2Dincludes;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238138), (r[2])))) {
    /* r[0] */    
    r[1] = (cdr((r[2])));
    r[2] = obj_from_bool(1);
    /* r[3] */    
    goto gs_process_2Dincludes;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238130), (r[2])))) {
    r[4] = (cdr((r[2])));
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = (mknull());
    r[5+3] = (mknull());
    r[5+4] = (mknull());
    r[5+5] = (mknull());
    r[5+6] = r[1];  
    r[5+7] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33724;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238095), (r[2])))) {
    r[4] = (cdr((r[2])));
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[2];  
    r[5+3] = r[1];  
    r[5+4] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33719;
  } else {
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (mksymbol(internsym("compiler")));
    r[4+3] = (cx__238054);
    r[4+4] = (r[2]);
    r[4+5] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }
  }
  }
  }
  }

case 1300: /* clo k libs env */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k libs env return */
    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+3] = r[2];  
    r[4+4] = (mknull());
    r[4+5] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1301: /* 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 return k d */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (cdr((r[4])));
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (mknull());
    r[3] = (mknull());
    r[4] = (mknull());
    r[5] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1302: /* clo k names libs env esps begs */
    assert(rc == 7);
    { obj* p = objptr_from_obj(r[0]);
    r[1+6] = p[1];
    r[1+7] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v33724: /* k names libs env esps begs thislib return */
  if ((isnull((r[1])))) {
    r[8+0] = r[7];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[2];  
    r[8+3] = r[3];  
    r[8+4] = r[4];  
    r[8+5] = r[5];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(1302);
    r[8] = (hendblk(2+1));
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1303);
    r[8] = (hendblk(7+1));
    hreserve(hbsz(1+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = obj_from_case(1307);
    r[9] = (hendblk(1+1));
    r[0] = r[8];  
    r[1] = (car((r[1])));
    r[2] = obj_from_bool(0);
    r[3] = r[9];  
    goto gs_call_2Dwith_2Dfile_2Flib_2Dsexps;
  }

case 1303: /* 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 libs env esps loop begs names k */
    hreserve(hbsz(7+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 = obj_from_case(1304);
    r[9] = (hendblk(7+1));
    r[10+0] = r[9];  
    r[10+1] = r[2];  
    r[10+2] = (car((r[1])));
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_adjoin_2Dlibs;

case 1304: /* 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 env esps loop begs r names k */
    hreserve(hbsz(7+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 = obj_from_case(1305);
    r[9] = (hendblk(7+1));
    r[10] = (cdr((r[6])));
    r[10] = (car((r[10])));
    r[0] = r[9];  
    r[1] = (r[10]);
    /* r[2] */    
    goto gs_adjoin_2Denv;

case 1305: /* 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 esps loop begs r r names k */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1306);
    r[9] = (hendblk(7+1));
    r[10] = (cdr((r[5])));
    r[10] = (cdr((r[10])));
    r[10] = (car((r[10])));
    r[0] = r[9];  
    r[1] = (r[10]);
    /* r[2] */    
    goto gs_adjoin_2Desps;

case 1306: /* 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 loop begs r r r names k */
    r[9] = (cdr((r[4])));
    r[9] = (cdr((r[9])));
    r[9] = (cdr((r[9])));
    r[9] = (car((r[9])));
    { fixnum_t v43527_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43527_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43527_tmp);
    hreserve(hbsz(3)*c, 10); /* 10 live regs */
    l = r[3];   t = r[9];   /* 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[9] = (o); } }
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[8];  
    r[10+2] = (cdr((r[7])));
    r[10+3] = r[6];  
    r[10+4] = r[5];  
    r[10+5] = r[1];  
    r[10+6] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1307: /* clo k sexps */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k sexps thislib */
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r[3+3] = (cx__25residual_2Dlist);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine_2Dlibrary_2Ddecls;

s_loop_v33719: /* k clauses d thislib return */
  if ((isnull((r[1])))) {
    r[5+0] = r[4];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mknull());
    r[5+3] = (mknull());
    r[5+4] = (mknull());
    r[5+5] = (mknull());
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[5] = (car((r[1])));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238084), (r[5])))) {
    r[6] = (cdr((r[1])));
    r[6] = obj_from_bool(isnull((r[6])));
  if (bool_from_obj(r[6])) {
    r[6] = (car((r[1])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[0];  
    r[7+1] = r[3];  
    r[7+2] = r[6];  
    r[7+3] = r[4];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine_2Dlibrary_2Ddecls;
  } else {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__238078);
    r[6+4] = (r[2]);
    r[6+5] = (r[3]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238071), (r[5])))) {
    r[6] = (car((r[1])));
    r[6] = (car((r[6])));
    r[7] = (cxs_features());
    { /* memq */
    obj x = (r[6]), l = r[7];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[6] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[6])) {
    r[6] = (car((r[1])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[0];  
    r[7+1] = r[3];  
    r[7+2] = r[6];  
    r[7+3] = r[4];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine_2Dlibrary_2Ddecls;
  } else {
    r[6] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[6];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v33719;
  }
  } else {
    r[6+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (mksymbol(internsym("compiler")));
    r[6+3] = (cx__238061);
    r[6+4] = (car((r[1])));
    r[6+5] = (r[3]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  }
  }
  }

case 1308: /* process-define-library-decls k thislib decls return */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_process_2Ddefine_2Dlibrary_2Ddecls: /* k thislib decls return */
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = (mknull());
    r[4+3] = (mknull());
    r[4+4] = (mknull());
    r[4+5] = (mknull());
    r[4+6] = r[1];  
    r[4+7] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33666;

case 1309: /* clo k decls libs env esps begs */
    assert(rc == 7);
    { obj* p = objptr_from_obj(r[0]);
    r[1+6] = p[1];
    r[1+7] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v33666: /* k decls libs env esps begs thislib return */
  if ((isnull((r[1])))) {
    r[8+0] = r[7];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[0];  
    r[8+2] = r[2];  
    r[8+3] = r[3];  
    r[8+4] = r[4];  
    r[8+5] = r[5];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(1309);
    r[8] = (hendblk(2+1));
    hreserve(hbsz(6+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1310);
    r[8] = (hendblk(6+1));
    r[9+0] = r[0];  
    r[9+1] = r[6];  
    r[9+2] = (car((r[1])));
    r[9+3] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine_2Dlibrary_2Ddecl;
  }

case 1310: /* clo k new-libs new-env new-esps new-begs */
    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+8] = p[4];
    r[1+9] = p[5];
    r[1+10] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k new-libs new-env new-esps new-begs libs env esps loop begs decls */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = r[0];  
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(1311);
    r[11] = (hendblk(9+1));
    r[12+0] = (r[11]);
    r[12+1] = r[5];  
    r[12+2] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_adjoin_2Dlibs;

case 1311: /* 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 env new-env esps new-esps loop new-begs begs decls k */
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1312);
    r[11] = (hendblk(8+1));
    r[0] = (r[11]);
    r[1] = r[3];  
    /* r[2] */    
    goto gs_adjoin_2Denv;

case 1312: /* 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 esps new-esps loop new-begs begs r decls k */
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1313);
    r[10] = (hendblk(7+1));
    r[0] = (r[10]);
    r[1] = r[3];  
    /* r[2] */    
    goto gs_adjoin_2Desps;

case 1313: /* 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 loop new-begs begs r r decls k */
    { fixnum_t v43526_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43526_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43526_tmp);
    hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } }
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[8];  
    r[10+2] = (cdr((r[7])));
    r[10+3] = r[6];  
    r[10+4] = r[5];  
    r[10+5] = r[1];  
    r[10+6] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1314: /* clo k isets */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k isets gensym-count */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1315);
    r[3] = (hendblk(2+1));
    r[4+0] = r[3];  
    r[4+1] = (cx_scheme_2Deval);
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_load_2Dimport_2Dsets;

case 1315: /* 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 gensym-count */
    r[4] = (objptr_from_obj(r[3])[0]);
    r[4] = obj_from_bool(is_fixnum_obj(r[4]));
  if (bool_from_obj(r[4])) {
    r[4] = (objptr_from_obj(r[3])[0]);
    { /* fixnum->string */
    char buf[35], *s = buf + sizeof(buf) - 1; 
    int neg = 0;
    long num = fixnum_from_obj(r[4]);
    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[4] = (hpushstr(5, newstring(s))); }
  } else {
    r[4] = (objptr_from_obj(r[3])[0]);
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[4]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else if (*s == 0) {  *s++ = '.'; *s++ = '0'; *s = 0; }
    r[4] = (hpushstr(5, newstring(buf))); }
  }
    { /* string-append */
    int *d = stringcat(stringdata((cx__238210)), stringdata((r[4])));
    r[4] = (hpushstr(5, d)); }
    r[5] = (objptr_from_obj(r[3])[0]);
  if ((is_fixnum_obj(r[5]))) {
    r[5] = obj_from_fixnum(fxadd(fixnum_from_obj(r[5]), (+1)));
  } else {
    { const flonum_t v43524_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(6, flonum_from_obj(r[5]) + (v43524_tmp)); } 
  }
    (void)(objptr_from_obj(r[3])[0] = (r[5]));
    { fixnum_t v43525_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43525_tmp = (n); }
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(1316);
    r[5] = (hendblk(1+1));
    { /* append */
    obj t, l, o, *p, *d; int c = (v43525_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[1];   t = r[5];   /* 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 1316: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id ename */
    r[3] = (hpushstr(3, newstring(symbolname(getsymbol((r[1]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[3])));
    r[3] = (hpushstr(4, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[2])), stringdata((r[3])));
    r[3] = (hpushstr(4, d)); }
    r[3] = (mksymbol(internsym(stringchars((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 1317: /* make-library-info k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { /* make-vector */
    obj o; int i = 0, c = (+4);
    hreserve(hbsz(c+1), 1); /* 1 live regs */
    o = obj_from_bool(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[1] = (hendblk(c+1)); }
    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;

s_loop_v33631: /* k l */
  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(1318);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v33631;
  } 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 1318: /* 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 1319: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    { /* vector */
    hreserve(hbsz(4+1), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = (cx_root_2Denvironment);
    *--hp = (mknull());
    *--hp = obj_from_size(VECTOR_BTAG);
    r[2] = (hendblk(4+1)); }
    cx__2Aroot_2Dlibrary_2Dinfo_2A = r[2];  
    cx__2Abase_2Dlibrary_2Dinfo_2A = obj_from_bool(0);
    { static obj c[] = { obj_from_case(1320) }; cx_base_2Dlibrary_2Dinfo = (obj)c; }
    { static obj c[] = { obj_from_case(1324) }; cx_library_2Davailable_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1325) }; cx_lookup_2Dlibrary_2Dinfo = (obj)c; }
    { static obj c[] = { obj_from_case(1326) }; cx_get_2Dlibrary_2Dinfo = (obj)c; }
    cx__2Aloaded_2Dlibraries_2A = (mknull());
    cx__2Alibraries_2Dbeing_2Dloaded_2A = (mknull());
    { static obj c[] = { obj_from_case(1331) }; cx_check_2Dexport_2Dspecs_2Dafter_2Dload = (obj)c; }
    { static obj c[] = { obj_from_case(1338) }; cx_load_2Dimport_2Dsets = (obj)c; }
    { static obj c[] = { obj_from_case(1359) }; cx__25residual_2D_25procedure_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(1360) }; cx__25residual_2D_25procedure_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(1361) }; cx__25residual_2D_25procedure_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(1362) }; cx__25residual_2D_25make_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(1363) }; cx_print_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(1365) }; cx_make_2Dannotated_2Dprocedure = (obj)c; }
    { static obj c[] = { obj_from_case(1366) }; cx__25residual_2Dprocedure_2Dannotation = (obj)c; }
    { static obj c[] = { obj_from_case(1367) }; cx__25residual_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(1368) }; cx__25residual_2Drange_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(1369) }; cx__25residual_2Drest_2Dargc_2D_3Eannotation = (obj)c; }
    { static obj c[] = { obj_from_case(1370) }; cx_scheme_2Dcall_2Derror = (obj)c; }
    { static obj c[] = { obj_from_case(1371) }; cx__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F = (obj)c; }
    { static obj c[] = { obj_from_case(1372) }; cx_variable = (obj)c; }
    { static obj c[] = { obj_from_case(1373) }; cx_mutable_2Dvariable = (obj)c; }
    { static obj c[] = { obj_from_case(1374) }; cx_shape_2B = (obj)c; }
    { static obj c[] = { obj_from_case(1375) }; cx_shape = (obj)c; }
    { static obj c[] = { obj_from_case(1376) }; cx_parms_2D_3Eframe = (obj)c; }
    { static obj c[] = { obj_from_case(1380) }; cx_bindings_2D_3Evars = (obj)c; }
    { static obj c[] = { obj_from_case(1384) }; cx_bindings_2D_3Evals = (obj)c; }
    { static obj c[] = { obj_from_case(1386) }; cx_scheme_2Dcompile = (obj)c; }
    { static obj c[] = { obj_from_case(1436) }; cx__25residual_2Dvalue_2Dstore_2Dlocation_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(1437) }; cx__25residual_2Dvalue_2Dstore_2Dlocation_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(1438) }; cx_gen_2Dvar_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(1440) }; cx_gen_2Drte_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(1442) }; cx_gen_2Dslot_2Dref_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(1448) }; cx_gen_2Dslot_2Dref_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1454) }; cx_gen_2Dslot_2Dref_2Dup_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(1456) }; cx_gen_2Dglo_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(1458) }; cx_gen_2Dcst = (obj)c; }
    { static obj c[] = { obj_from_case(1468) }; cx_gen_2Dvar_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(1470) }; cx_gen_2Drte_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(1472) }; cx_gen_2Dslot_2Dset_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(1483) }; cx_gen_2Dslot_2Dset_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1494) }; cx_gen_2Dslot_2Dset_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(1510) }; cx_gen_2Dglo_2Dset = (obj)c; }
    { static obj c[] = { obj_from_case(1513) }; cx_gen_2Dlambda_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(1514) }; cx_gen_2Dlambda_2D1_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(1517) }; cx_gen_2Dlambda_2D2_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(1520) }; cx_gen_2Dlambda_2D3_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(1523) }; cx_gen_2Dlambda_2Dn_2Drest = (obj)c; }
    { static obj c[] = { obj_from_case(1527) }; cx_gen_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(1528) }; cx_gen_2Dlambda_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(1531) }; cx_gen_2Dlambda_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1534) }; cx_gen_2Dlambda_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(1537) }; cx_gen_2Dlambda_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(1540) }; cx_gen_2Dlambda_2D4 = (obj)c; }
    { static obj c[] = { obj_from_case(1543) }; cx_gen_2Dlambda_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(1547) }; cx_gen_2Dsequence = (obj)c; }
    { static obj c[] = { obj_from_case(1550) }; cx_gen_2Dwhen = (obj)c; }
    { static obj c[] = { obj_from_case(1553) }; cx_gen_2Dif = (obj)c; }
    { static obj c[] = { obj_from_case(1556) }; cx_gen_2Dletrec = (obj)c; }
    { static obj c[] = { obj_from_case(1557) }; cx_gen_2Dletrec_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1560) }; cx_gen_2Dletrec_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(1564) }; cx_gen_2Dletrec_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(1569) }; cx_gen_2Dletrec_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(1574) }; cx_gen_2Dglo_2Dcombination = (obj)c; }
    { static obj c[] = { obj_from_case(1576) }; cx_gen_2Dglo_2Dcombination_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(1578) }; cx_gen_2Dglo_2Dcombination_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1581) }; cx_gen_2Dglo_2Dcombination_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(1585) }; cx_gen_2Dglo_2Dcombination_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(1590) }; cx_gen_2Dglo_2Dcombination_2D4 = (obj)c; }
    { static obj c[] = { obj_from_case(1596) }; cx_gen_2Dglo_2Dcombination_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(1601) }; cx_gen_2Dcombination = (obj)c; }
    { static obj c[] = { obj_from_case(1602) }; cx_gen_2Dcombination_2D0 = (obj)c; }
    { static obj c[] = { obj_from_case(1605) }; cx_gen_2Dcombination_2D1 = (obj)c; }
    { static obj c[] = { obj_from_case(1609) }; cx_gen_2Dcombination_2D2 = (obj)c; }
    { static obj c[] = { obj_from_case(1614) }; cx_gen_2Dcombination_2D3 = (obj)c; }
    { static obj c[] = { obj_from_case(1620) }; cx_gen_2Dcombination_2D4 = (obj)c; }
    { static obj c[] = { obj_from_case(1627) }; cx_gen_2Dcombination_2Dn = (obj)c; }
    { static obj c[] = { obj_from_case(1633) }; cx_scheme_2Dcompile_2Drun = (obj)c; }
    { static obj c[] = { obj_from_case(1636) }; cx_scheme_2Dexpand_2Dcompile_2Drun = (obj)c; }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1640);
    r[3] = (hendblk(0+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);
    cx_scheme_2Dexpand_2Dto_2Dlist = (hendblk(3)); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1642);
    r[3] = (hendblk(0+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);
    cx_scheme_2Deval = (hendblk(3)); }
    cx__2Acurrent_2Dvalue_2Dstore_2A = (mknull());
    { static obj c[] = { obj_from_case(1644) }; cx_value_2Dstore_2Dlookup = (obj)c; }
    { static obj c[] = { obj_from_case(1645) }; cx_reverse_2Dglobal_2Dlookup = (obj)c; }
    { static obj c[] = { obj_from_case(1646) }; cx_get_2Dglobal = (obj)c; }
    { static obj c[] = { obj_from_case(1648) }; cx_set_2Dglobal_21 = (obj)c; }
    { static obj c[] = { obj_from_case(1650) }; cx_splice_2Dlast_2Dlist = (obj)c; }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1652);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2562);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(EQV_OBJ_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1320: /* base-library-info k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_base_2Dlibrary_2Dinfo: /* k */
    hreserve(hbsz(1+1), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1321);
    r[1] = (hendblk(1+1));
  if (bool_from_obj(cx__2Abase_2Dlibrary_2Dinfo_2A)) {
    r[2+0] = obj_from_ktrap();
    r[2+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[2+2] = r[0];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v33620;
  } else {
    { fixnum_t v43523_tmp;
    { /* length */
    int n; obj l = (cx__2Ainitial_2Dmacro_2Denvironment_2A);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43523_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43523_tmp);
    hreserve(hbsz(3)*c, 2); /* 2 live regs */
    l = (cx__2Ainitial_2Dmacro_2Denvironment_2A); t = (cx__2Ainitial_2Dvalue_2Denvironment_2A); /* 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); } }
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(1323);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v33608;
  }

case 1321: /* 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_v33620: /* ek . k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cx__2Abase_2Dlibrary_2Dinfo_2A);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v33608: /* k l */
  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(1322);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v33608;
  } 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 1322: /* 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 1323: /* 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 env */
    { /* vector */
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = (mknull());
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    cx__2Abase_2Dlibrary_2Dinfo_2A = r[4];  
    r[5] = obj_from_void(0);
    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 1324: /* library-available? k lib */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_library_2Davailable_3F: /* k lib */
  if (((r[1]) == obj_from_bool(0))) {
    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 {
  if ((isequal((r[1]), (cx__238268)))) {
    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 {
  if (bool_from_obj(isassoc((r[1]), (cx__2Alibrary_2Dinfo_2Dcache_2A)))) {
    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 {
  if ((isstring((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_file_2Dresolve_2Drelative_2Dto_2Dcurrent;
  } else {
  if (((ispair((r[1]))) && (islist((r[1]))))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_find_2Dlibrary_2Dpath;
  } 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_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }

case 1325: /* lookup-library-info k lib */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_lookup_2Dlibrary_2Dinfo: /* k lib */
  if (((r[1]) == obj_from_bool(0))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cx__2Aroot_2Dlibrary_2Dinfo_2A);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isequal((r[1]), (cx__238268)))) {
    /* r[0] */    
    goto gs_base_2Dlibrary_2Dinfo;
  } else {
    r[2] = (isassoc((r[1]), (cx__2Alibrary_2Dinfo_2Dcache_2A)));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[2])));
  } else {
    { /* make-vector */
    obj o; int i = 0, c = (+4);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    o = obj_from_bool(0); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    r[3] = (hendblk(c+1)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (cx__2Alibrary_2Dinfo_2Dcache_2A);
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Alibrary_2Dinfo_2Dcache_2A = (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 1326: /* get-library-info k lib return */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_get_2Dlibrary_2Dinfo: /* k lib return */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(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(1327);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_lookup_2Dlibrary_2Dinfo;

case 1327: /* 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 lib return k li */
    (void)(objptr_from_obj(r[5])[0] = (r[1]));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_case(1328);
    r[6] = (hendblk(3+1));
    r[7] = (objptr_from_obj(r[5])[0]);
    r[7] = (vectorref((r[7]), (+0)));
  if (bool_from_obj(r[7])) {
    r[0] = obj_from_ktrap();
    r[1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[2] = r[3];  
    r[3] = r[5];  
    /* r[4] */    
    goto s_l_v33573;
  } else {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(1329);
    r[7] = (hendblk(2+1));
    r[8+0] = r[6];  
    r[8+1] = r[2];  
    r[8+2] = obj_from_bool(0);
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_call_2Dwith_2Dfile_2Flib_2Dsexps;
  }

case 1328: /* 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_v33573: /* ek . return li k */
    r[5] = (objptr_from_obj(r[3])[0]);
    r[5] = (vectorref((r[5]), (+0)));
    r[6] = (objptr_from_obj(r[3])[0]);
    r[6] = (vectorref((r[6]), (+1)));
    r[7] = (objptr_from_obj(r[3])[0]);
    r[7] = (vectorref((r[7]), (+2)));
    r[8] = (objptr_from_obj(r[3])[0]);
    r[8] = (vectorref((r[8]), (+3)));
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[4];  
    r[9+2] = r[5];  
    r[9+3] = r[6];  
    r[9+4] = r[7];  
    r[9+5] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 1329: /* clo k all-forms */
    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 all-forms li lib */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1330);
    r[4] = (hendblk(1+1));
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[1];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Dheader_2Dforms;

case 1330: /* clo k used-libs import-env export-specs beg-forms */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k used-libs import-env export-specs beg-forms li */
    r[6] = (objptr_from_obj(r[5])[0]);
    (void)(vectorref((r[6]), (+0)) = (r[1]));
    r[6] = (objptr_from_obj(r[5])[0]);
    (void)(vectorref((r[6]), (+1)) = (r[2]));
    r[6] = (objptr_from_obj(r[5])[0]);
    (void)(vectorref((r[6]), (+2)) = (r[3]));
    r[6] = (objptr_from_obj(r[5])[0]);
    r[6] = obj_from_void(vectorref((r[6]), (+3)) = (r[4]));
    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 1331: /* check-export-specs-after-load k lib esps import-env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_check_2Dexport_2Dspecs_2Dafter_2Dload: /* k lib esps import-env */
  if ((isstring((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), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1332);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1333);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    r[5+1] = r[2];  
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33505;
  }

case 1332: /* clo k lid loc */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k lid loc lib */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_c_2Dwarning);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238361);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[1]);
    r[5+6] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 1333: /* clo k lid */
    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 lid lib undefined import-env */
    { /* assq */
    obj x = (r[1]), l = (r[4]), 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); }
  if (bool_from_obj(r[5])) {
    /* 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(3+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(1334);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_file_2Flib_2D_3Emodname;
  }

case 1334: /* 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 undefined k lid */
    r[5] = (hpushstr(5, newstring(symbolname(getsymbol((r[4]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[5])));
    r[5] = (hpushstr(6, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((r[1])), stringdata((r[5])));
    r[5] = (hpushstr(6, d)); }
    r[5] = (mksymbol(internsym(stringchars((r[5])))));
    r[6] = (car((cx__2Acurrent_2Dmacro_2Dstore_2A)));
    { /* assq */
    obj x = (r[5]), l = (r[6]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[6] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[6])) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* assq */
    obj x = (r[5]), l = (cx__2Acurrent_2Dvalue_2Dstore_2A), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[7] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[7])) {
    r[8] = (car((r[7])));
    r[9] = (cdr((r[7])));
    r[8] = obj_from_bool((r[8]) == (r[9]));
  if (bool_from_obj(r[8])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[4];  
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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;
  }
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[4];  
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 1335: /* clo k esps */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v33505: /* k esps check */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1335);
    r[3] = (hendblk(1+1));
  if ((isnull((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 {
    r[4] = (car((r[1])));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((mksymbol(internsym("<symbol>"))), (r[4])))) {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1336);
    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] = (car((r[1])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__237956), (r[4])))) {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1337);
    r[5] = (hendblk(3+1));
    r[6] = (car((r[1])));
    r[7] = (cdr((r[6])));
    r[6] = (car((r[7])));
    r[7+0] = r[2];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("compiler")));
    r[5+3] = (cx__237903);
    r[5+4] = (car((r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }
  }

case 1336: /* 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 esps 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 1337: /* 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 esps 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 1338: /* load-import-sets k eval-like isets */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_load_2Dimport_2Dsets: /* k eval-like isets */
    cx__2Alibraries_2Dbeing_2Dloaded_2A = (mknull());
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1339);
    r[3] = (hendblk(1+1));
    r[4+0] = r[0];  
    r[4+1] = r[2];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_preprocess_2Dimport_2Dsets;

case 1339: /* clo k libs-to-load import-env-for-load */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k libs-to-load import-env-for-load eval-like */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1342);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1343);
    r[5] = (hendblk(1+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[5];  
    goto s_loop_v33478;

case 1340: /* 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_v33478: /* k l load-lib! */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1340);
    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(1341);
    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;
  } 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 1341: /* 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 1342: /* 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 import-env-for-load */
    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 1343: /* clo k lib */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k lib eval-like */
  if (bool_from_obj(ismember((r[1]), (cx__2Aloaded_2Dlibraries_2A)))) {
    /* 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 {
    (void)(oportputcircular((cx__238487), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  if (bool_from_obj(ismember((r[1]), (cx__2Alibraries_2Dbeing_2Dloaded_2A)))) {
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("compiler")));
    r[3+3] = (cx__238484);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1343);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(1344);
    r[3] = (hendblk(3+1));
    r[4+0] = r[0];  
    r[4+1] = r[1];  
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_get_2Dlibrary_2Dinfo;
  }
  }

case 1344: /* clo k used-libs import-env export-specs beg-forms */
    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 used-libs import-env export-specs beg-forms load-lib! eval-like lib */
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (cx__2Alibraries_2Dbeing_2Dloaded_2A);
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Alibraries_2Dbeing_2Dloaded_2A = (hendblk(3)); }
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(1347);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    /* r[1] */    
    r[2] = r[5];  
    goto s_loop_v33449;

case 1345: /* 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_v33449: /* k l load-lib! */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1345);
    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(1346);
    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;
  } 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 1346: /* 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 1347: /* 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 . beg-forms import-env export-specs k lib eval-like */
    cx__2Alibraries_2Dbeing_2Dloaded_2A = (cdr((cx__2Alibraries_2Dbeing_2Dloaded_2A)));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1348);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[4];  
    r[2] = r[6];  
    /* r[3] */    
    goto gs_make_2Dlocal_2Denv;

case 1348: /* 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 beg-forms import-env export-specs k lib eval-like */
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1357);
    r[8] = (hendblk(4+1));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(1349);
    r[9] = (hendblk(2+1));
    r[10+0] = r[8];  
    r[10+1] = r[2];  
    r[10+2] = r[9];  
    r[10+3] = r[7];  
    r[10+4] = r[1];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33398;

case 1349: /* clo k expr */
    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 expr eval-like r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1350: /* clo k begs */
    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_v33398: /* k begs proc-expr! eval-like r */
  if ((isnull((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 {
    r[5] = (car((r[1])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1350);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1351);
    r[6] = (hendblk(3+1));
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238451), (r[5])))) {
    r[7] = (car((r[1])));
    r[7] = (car((r[7])));
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1352);
    r[8] = (hendblk(3+1));
    r[9+0] = r[6];  
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_with_2Dcurrent_2Dfile;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238428), (r[5])))) {
    r[7] = (car((r[1])));
    r[7] = (cdr((r[7])));
    r[0] = r[6];  
    r[1] = r[7];  
    r[2] = r[3];  
    r[3] = r[4];  
    goto s_loop_v33399;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__238412), (r[5])))) {
    r[7] = (car((r[1])));
    r[7] = (car((r[7])));
    r[8] = (car((r[1])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[6];  
    r[9+1] = r[2];  
    r[9+2] = r[7];  
    r[9+3] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_for_2Deach_2Dfile_2Flib_2Dsexp;
  } else {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1350);
    r[7] = (hendblk(3+1));
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_void(0);
    r[8+2] = r[7];  
    r[8+3] = r[1];  
    r[8+4] = r[0];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v33426;
  }
  }
  }
  }

case 1351: /* 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_v33426: /* ek . loop begs 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 1352: /* 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 eval-like r begs */
    r[4] = (car((r[3])));
    r[4] = (cdr((r[4])));
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33412;

case 1353: /* 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_v33412: /* k l eval-like r */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1353);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1354);
    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+3] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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 1354: /* 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 1355: /* 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_v33399: /* k l eval-like r */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1355);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1356);
    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+3] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    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 1356: /* 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 1357: /* 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 . import-env export-specs k lib */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1358);
    r[6] = (hendblk(2+1));
    r[7+0] = r[6];  
    r[7+1] = r[5];  
    r[7+2] = r[3];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_check_2Dexport_2Dspecs_2Dafter_2Dload;

case 1358: /* 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 lib */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (cx__2Aloaded_2Dlibraries_2A);
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Aloaded_2Dlibraries_2A = (hendblk(3)); }
    r[4] = obj_from_void(0);
    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 1359: /* %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 1360: /* %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 1361: /* %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 1362: /* %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 1363: /* print-procedure k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    (void)(oportputs(stringchars((cx__238572)), (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(1364);
    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_v33328;
  } 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_v33334;
  }

case 1364: /* 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_v33334: /* ek . k */
    (void)(oportputc(('>'), (cx__2Acurrent_2Doutput_2Dport_2A)));
    (void)(oportputc('\n', (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;

s_loop_v33328: /* k i x */
    r[3] = (*procedureref((r[2]), fixnum_from_obj(r[1])));
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[1]) == (+0));
  } else {
    { const flonum_t v43518_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v43518_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    (void)(oportputs(stringchars((cx__238552)), (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    (void)(oportputcircular((r[3]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
  }
    { bool_t v43522_tmp;
    { const fixnum_t v43520_b = (fxsub((procedurelen((r[2]))), (+1)));
  if ((is_fixnum_obj(r[1]))) {
    v43522_tmp = (fixnum_from_obj(r[1]) == (v43520_b));
  } else {
    { const flonum_t v43521_tmp = ((flonum_t)(v43520_b));
    v43522_tmp = (flonum_from_obj(r[1]) == (v43521_tmp)); } 
  } } 
    r[3] = obj_from_bool(!(v43522_tmp)); }
  if (bool_from_obj(r[3])) {
    (void)(oportputc((' '), (cx__2Acurrent_2Doutput_2Dport_2A)));
  if ((is_fixnum_obj(r[1]))) {
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[1]), (+1)));
  } else {
    { const flonum_t v43519_tmp = ((flonum_t)(+1));
    r[3] = obj_from_flonum(3, flonum_from_obj(r[1]) + (v43519_tmp)); } 
  }
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v33328;
  } 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 1365: /* 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_v33315;

s_loop_v33315: /* k i p newp ann vc */
    { const fixnum_t v43517_i = fixnum_from_obj(r[1]);
  if (((v43517_i) == fixnum_from_obj(r[5]))) {
    (void)(*procedureref((r[3]), (fxadd((v43517_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((v43517_i), (+1)))));
    (void)(*procedureref((r[3]), (fxadd((v43517_i), (+1)))) = (r[6]));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v43517_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_loop_v33315;
  } } 

case 1366: /* %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 1367: /* %residual-argc->annotation k c */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k c */
    { const fixnum_t v43516_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((v43516_c), (+1000))), (v43516_c)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump; } 

case 1368: /* %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 1369: /* %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 1370: /* scheme-call-error k n r p l */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dcall_2Derror: /* k n r p l */
  if (((r[2]) == (ACRES_BADPROC))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238638);
    r[5+3] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_BADARGC))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238635);
    r[5+3] = r[1];  
    r[5+4] = r[3];  
    r[5+5] = (mksymbol(internsym(":")));
    r[5+6] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_BADTYPE))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238632);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_BADINDEX))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238629);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_BADRANGE))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238626);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_ZERODIV))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238623);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
  if (((r[2]) == (ACRES_FIXOVER))) {
    r[5+0] = (cx_r_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__238620);
    r[5+3] = r[3];  
    r[5+4] = (mksymbol(internsym(":")));
    r[5+5] = (r[4]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(assert(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }

case 1371: /* %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 1372: /* variable k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_variable: /* k x */
  if ((!(issymbol((r[1]))))) {
    r[2+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (mksymbol(internsym("compiler")));
    r[2+3] = (cx__238656);
    r[2+4] = (r[1]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } 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 1373: /* mutable-variable k x ill */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_mutable_2Dvariable: /* k x ill */
  if ((!(issymbol((r[1]))))) {
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (mksymbol(internsym("compiler")));
    r[3+3] = (cx__238656);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    { /* 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); }
  if (bool_from_obj(r[3])) {
    r[3+0] = (cx_c_2Dwarning);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__238662);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* 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;
  }
  }

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

s_loop_v33240: /* k n l form */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[1]) <= (+0));
  } else {
    { const flonum_t v43514_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v43514_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[2])))) {
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+1)));
  } else {
    { const flonum_t v43515_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) - (v43515_tmp)); } 
  }
    r[6] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    goto s_loop_v33240;
  } else {
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("compiler")));
    r[5+3] = (cx__238681);
    r[5+4] = (r[3]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 1375: /* 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[2];  
    r[3+2] = r[1];  
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v33225;

s_loop_v33225: /* k n l form */
  if ((is_fixnum_obj(r[1]))) {
    r[4] = obj_from_bool(fixnum_from_obj(r[1]) == (+0));
  } else {
    { const flonum_t v43511_tmp = ((flonum_t)(+0));
    r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v43511_tmp)); } 
  }
  if (bool_from_obj(r[4])) {
    r[4] = obj_from_bool(isnull((r[2])));
  } else {
    r[4] = obj_from_bool(0);
  }
  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 ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool(fixnum_from_obj(r[1]) > (+0));
  } else {
    { const flonum_t v43513_tmp = ((flonum_t)(+0));
    r[5] = obj_from_bool(flonum_from_obj(r[1]) > (v43513_tmp)); } 
  }
  if (bool_from_obj(r[5])) {
    r[5] = obj_from_bool(ispair((r[2])));
  } else {
    r[5] = obj_from_bool(0);
  }
  if (bool_from_obj(r[5])) {
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+1)));
  } else {
    { const flonum_t v43512_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) - (v43512_tmp)); } 
  }
    r[6] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    goto s_loop_v33225;
  } else {
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (mksymbol(internsym("compiler")));
    r[5+3] = (cx__238681);
    r[5+4] = (r[3]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  }

case 1376: /* 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(1377);
    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(1379);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_variable;
  }
  }

case 1377: /* 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(1378);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[2])));
    goto gs_parms_2D_3Eframe;

case 1378: /* 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 1379: /* 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 1380: /* 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(1381);
    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 1381: /* 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(1382);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_variable;

case 1382: /* 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(1383);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[2])));
    goto gs_bindings_2D_3Evars;

case 1383: /* 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 1384: /* 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(1385);
    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 1385: /* 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 1386: /* scheme-compile k expr cte ill */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dcompile: /* k expr cte ill */
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1387);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1388);
    r[5] = (hendblk(1+1));
    r[6+0] = r[0];  
    r[6+1] = r[1];  
    r[6+2] = r[4];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r[6+5] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_comp;

case 1387: /* clo k frame cte */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k frame cte */
  if ((isnull((r[1])))) {
    r[3] = r[2];  
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--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 1388: /* clo k name */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k name cte */
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = obj_from_fixnum(+0);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop1;

case 1389: /* 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(1389);
    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])))) {
    r[7+0] = r[6];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[0];  
    r[7+2] = (car((r[1])));
    r[7+3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
    r += 7; /* 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])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[7];  
    r[4] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
    /* r[5] */    
    /* r[6] */    
    goto s_loop2;
  }
  }

case 1390: /* clo k expr */
    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_comp: /* k expr cons-cte cte ill lookup */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1390);
    r[6] = (hendblk(4+1));
  if ((issymbol((r[1])))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(1391);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    /* r[1] */    
    goto gs_variable;
  } else {
  if ((!(ispair((r[1]))))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_gen_2Dcst;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("quote"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1393);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+2);
    goto gs_shape;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("set!"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1394);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1398);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("if"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[6];  
    *--hp = obj_from_case(1402);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape_2B;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("letrec"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1406);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("begin"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1413);
    r[7] = (hendblk(3+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+2);
    goto gs_shape_2B;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("define"))));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1417);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = obj_from_fixnum(+3);
    goto gs_shape;
  } else {
    r[7] = (car((r[1])));
    r[7] = obj_from_bool(issymbol((r[7])));
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(1423);
    r[7] = (hendblk(4+1));
    r[0] = r[7];  
    r[1] = (car((r[1])));
    goto gs_variable;
  } else {
    r[7] = (car((r[1])));
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1432);
    r[8] = (hendblk(3+1));
    r[0] = r[8];  
    r[1] = r[7];  
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    goto s_comp;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 1391: /* 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 . lookup expr k */
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(1392);
    r[5] = (hendblk(1+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 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 k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dvar_2Dref;

case 1393: /* 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 1394: /* 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 . ill lookup comp expr k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1395);
    r[7] = (hendblk(4+1));
    r[8] = (cdr((r[5])));
    r[8] = (car((r[8])));
    r[0] = r[7];  
    r[1] = r[8];  
    /* r[2] */    
    goto gs_mutable_2Dvariable;

case 1395: /* 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 . lookup comp expr k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1396);
    r[6] = (hendblk(3+1));
    r[7] = (cdr((r[4])));
    r[7] = (car((r[7])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1396: /* 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 comp expr k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1397);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1397: /* 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 1398: /* 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 . cons-cte cte ill k expr */
    r[7] = (cdr((r[6])));
    r[7] = (car((r[7])));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1399);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[7];  
    goto gs_parms_2D_3Eframe;

case 1399: /* 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 cons-cte cte ill expr k parms */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1400);
    r[8] = (hendblk(5+1));
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r[9+3] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1400: /* 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 ill expr k parms r */
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1401);
    r[7] = (hendblk(3+1));
    r[8] = (cdr((r[3])));
    r[8] = (cdr((r[8])));
    r[8] = (car((r[8])));
    r[9+0] = r[7];  
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r[9+3] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcompile;

case 1401: /* 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 ((islist((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;
  } 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_2Drest;
  }

case 1402: /* 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 . comp k expr */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1403);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1403: /* 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 comp 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(1404);
    r[5] = (hendblk(4+1));
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1404: /* 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 comp 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(1405);
    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[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_gen_2Dwhen;
  }

case 1405: /* 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 1406: /* 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 . cons-cte cte ill k expr */
    r[7] = (cdr((r[6])));
    r[7] = (car((r[7])));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1407);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[7];  
    goto gs_bindings_2D_3Evars;

case 1407: /* 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 cons-cte cte bindings ill expr 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(1408);
    r[8] = (hendblk(4+1));
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r[9+3] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1408: /* 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 ill expr 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(1409);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    goto gs_bindings_2D_3Evals;

case 1409: /* 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 ill r expr k */
    r[6+0] = r[5];  
    r[6+1] = r[1];  
    r[6+2] = (mknull());
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r[6+5] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v32994;

case 1410: /* clo k vals codes */
    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 */
s_loop_v32994: /* k vals codes ill r expr */
  if ((isnull((r[1])))) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1411);
    r[6] = (hendblk(2+1));
    r[7] = (cdr((r[5])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    r[0] = r[6];  
    r[1] = r[7];  
    r[2] = r[4];  
    /* r[3] */    
    goto gs_scheme_2Dcompile;
  } else {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1410);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = obj_from_case(1412);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = (car((r[1])));
    r[2] = r[4];  
    /* r[3] */    
    goto gs_scheme_2Dcompile;
  }

case 1411: /* 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 codes k */
    { fixnum_t v43510_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43510_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43510_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[4] = (o); } }
    r[5+0] = r[3];  
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dletrec;

case 1412: /* 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 vals k codes */
    { /* 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] = (cdr((r[3])));
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 1413: /* 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 . comp expr k */
    r[5] = (cdr((r[3])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[4];  
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v32963;

case 1414: /* clo k expr0 exprs */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v32963: /* k expr0 exprs comp */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1414);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = obj_from_case(1415);
    r[4] = (hendblk(3+1));
    r[5+0] = 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;

case 1415: /* 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 k exprs */
  if ((isnull((r[4])))) {
    r[5+0] = r[3];  
    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 {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1416);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[4])));
    r[3] = (cdr((r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 1416: /* 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 1417: /* 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 . ill lookup comp expr k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1418);
    r[7] = (hendblk(4+1));
    r[8] = (cdr((r[5])));
    r[8] = (car((r[8])));
    r[0] = r[7];  
    r[1] = r[8];  
    /* r[2] */    
    goto gs_mutable_2Dvariable;

case 1418: /* 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 . lookup comp expr k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1419);
    r[6] = (hendblk(3+1));
    r[7] = (cdr((r[4])));
    r[7] = (car((r[7])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1419: /* 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 comp expr k */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(1420);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1420: /* 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 expr k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1421);
    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 1421: /* 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(1422);
    r[4] = (hendblk(2+1));
    r[5] = (cdr((r[2])));
    r[5] = (car((r[5])));
    r[0] = r[4];  
    r[1] = r[5];  
    goto gs_gen_2Dcst;

case 1422: /* 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 1423: /* 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 . lookup comp expr k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1424);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (car((r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1424: /* 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 comp expr k */
  if ((ispair((r[1])))) {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1425);
    r[5] = (hendblk(3+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;
  } else {
    r[5] = (cdr((r[3])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1431);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto s_loop_v32871;
  }

case 1425: /* 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 comp expr k */
    r[5] = (cdr((r[3])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1428);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto s_loop_v32896;

s_loop_v32896: /* k l comp */
  if ((ispair((r[1])))) {
    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(1426);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v32896;
  } 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 1426: /* 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 comp l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1427);
    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 1427: /* 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 1428: /* 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;

s_loop_v32871: /* k l comp */
  if ((ispair((r[1])))) {
    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(1429);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v32871;
  } 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 1429: /* 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 comp l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1430);
    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 1430: /* 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 1431: /* 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_2Dglo_2Dcombination;

case 1432: /* 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 comp expr k */
    r[5] = (cdr((r[3])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(1435);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[5];  
    /* r[2] */    
    goto s_loop_v32840;

s_loop_v32840: /* k l comp */
  if ((ispair((r[1])))) {
    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(1433);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v32840;
  } 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 1433: /* 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 comp l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1434);
    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 1434: /* 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 1435: /* 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 1436: /* %residual-value-store-location-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 1437: /* %residual-value-store-location-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 1438: /* 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(1439);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_value_2Dstore_2Dlookup;
  }

case 1439: /* 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 1440: /* 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(1441);
    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 v43509_tmp = ((flonum_t)(+2));
    r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v43509_tmp)); } 
  }
    r[0] = r[3];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_gen_2Drte_2Dref;
  }
  }

case 1441: /* 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 1442: /* 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(1443);
    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(1444);
    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(1445);
    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(1446);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1447);
    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 1443: /* 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 1444: /* 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 1445: /* 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 1446: /* 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 1447: /* 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 1448: /* 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(1449);
    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(1450);
    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(1451);
    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(1452);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1453);
    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 1449: /* 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 1450: /* 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 1451: /* 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 1452: /* 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 1453: /* 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 1454: /* 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(1455);
    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 1455: /* 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 1456: /* 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(1457);
    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 1457: /* 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 1458: /* 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(1459);
    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(1460);
    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(1461);
    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(1462);
    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(1463);
    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(1464);
    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(1465);
    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(1466);
    r[2] = (hendblk(0+1));
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1467);
    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 1459: /* 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 1460: /* 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 1461: /* 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 1462: /* 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 1463: /* 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 1464: /* 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 1465: /* 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 1466: /* 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 1467: /* 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 1468: /* 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(1469);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_value_2Dstore_2Dlookup;
  }

case 1469: /* 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 1470: /* 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(1471);
    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 v43508_tmp = ((flonum_t)(+2));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) - (v43508_tmp)); } 
  }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = obj_from_fixnum(+0);
    goto gs_gen_2Drte_2Dref;
  }
  }

case 1471: /* 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 1472: /* 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(1473);
    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(1475);
    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(1477);
    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(1479);
    r[3] = (hendblk(1+1));
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1481);
    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 1473: /* 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(1474);
    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 1474: /* 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 1475: /* 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(1476);
    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 1476: /* 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 1477: /* 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(1478);
    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 1478: /* 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 1479: /* 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(1480);
    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 1480: /* 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 1481: /* 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(1482);
    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 1482: /* 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 1483: /* 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(1484);
    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(1486);
    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(1488);
    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(1490);
    r[3] = (hendblk(1+1));
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1492);
    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 1484: /* 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(1485);
    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 1485: /* 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 1486: /* 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(1487);
    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 1487: /* 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 1488: /* 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(1489);
    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 1489: /* 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 1490: /* 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(1491);
    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 1491: /* 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 1492: /* 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(1493);
    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 1493: /* 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 1494: /* 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(1495);
    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(1498);
    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(1501);
    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(1504);
    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(1507);
    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 1495: /* 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(1496);
    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 1496: /* 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(1497);
    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 1497: /* 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 1498: /* 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(1499);
    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 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 code rte k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1500);
    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 1500: /* 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 1501: /* 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(1502);
    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 1502: /* 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(1503);
    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 1503: /* 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 1504: /* 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(1505);
    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 1505: /* 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(1506);
    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 1506: /* 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 1507: /* 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(1508);
    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 1508: /* 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(1509);
    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 1509: /* 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 1510: /* 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(1511);
    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 1511: /* 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(1512);
    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 1512: /* 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 1513: /* 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 1514: /* 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(1515);
    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 1515: /* 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(1516);
    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 1516: /* 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 1517: /* 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(1518);
    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 1518: /* 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(1519);
    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 1519: /* 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 1520: /* 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(1521);
    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 1521: /* 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(1522);
    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 1522: /* 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 1523: /* 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(1524);
    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 1524: /* 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(1525);
    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 1525: /* 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 v43507_tmp = ((flonum_t)(+1));
    r[8] = obj_from_flonum(8, flonum_from_obj(r[7]) + (v43507_tmp)); } 
  }
    { /* new-vector */
    int c = fixnum_from_obj(r[8]);
    hreserve(hbsz(c+1), 9); /* 9 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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(1526);
    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_v32248;

s_loop_v32248: /* k n x i l */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43505_i = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool((v43505_i) < fixnum_from_obj(r[1]));
  } else {
    { const flonum_t v43506_tmp = ((flonum_t)(v43505_i));
    r[5] = obj_from_bool((v43506_tmp) < flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v43504_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_bool(flonum_from_obj(r[3]) < (v43504_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 v43503_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) + (v43503_tmp)); } 
  }
    r[6] = (cdr((r[4])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[5];  
    r[4] = r[6];  
    goto s_loop_v32248;
  } 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 1526: /* 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 1527: /* 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 1528: /* 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(1529);
    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 1529: /* 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(1530);
    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 1530: /* 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 1531: /* 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(1532);
    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 1532: /* 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(1533);
    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 1533: /* 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 1534: /* 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(1535);
    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 1535: /* 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(1536);
    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 1536: /* 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 1537: /* 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(1538);
    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 1538: /* 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(1539);
    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 1539: /* 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 1540: /* 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(1541);
    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 1541: /* 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(1542);
    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 1542: /* 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 1543: /* 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(1544);
    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 1544: /* 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(1545);
    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 1545: /* 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 v43502_tmp = ((flonum_t)(+1));
    r[9] = obj_from_flonum(9, flonum_from_obj(r[8]) + (v43502_tmp)); } 
  }
    { /* new-vector */
    int c = fixnum_from_obj(r[9]);
    hreserve(hbsz(c+1), 10); /* 10 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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(1546);
    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_v32095;

s_loop_v32095: /* k n x i l */
  if ((is_fixnum_obj(r[3]))) {
    { const fixnum_t v43500_i = fixnum_from_obj(r[3]);
  if ((is_fixnum_obj(r[1]))) {
    r[5] = obj_from_bool((v43500_i) <= fixnum_from_obj(r[1]));
  } else {
    { const flonum_t v43501_tmp = ((flonum_t)(v43500_i));
    r[5] = obj_from_bool((v43501_tmp) <= flonum_from_obj(r[1])); } 
  } } 
  } else {
  if ((is_fixnum_obj(r[1]))) {
    { const flonum_t v43499_tmp = ((flonum_t)fixnum_from_obj(r[1]));
    r[5] = obj_from_bool(flonum_from_obj(r[3]) <= (v43499_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 v43498_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) + (v43498_tmp)); } 
  }
    r[6] = (cdr((r[4])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = r[5];  
    r[4] = r[6];  
    goto s_loop_v32095;
  } 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 1546: /* 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 1547: /* 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(1548);
    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 1548: /* 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(1549);
    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 1549: /* 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 1550: /* 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(1551);
    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 1551: /* 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(1552);
    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 1552: /* 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] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1553: /* 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(1554);
    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 1554: /* 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(1555);
    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 1555: /* 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 1556: /* 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 1557: /* 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(1558);
    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 1558: /* 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(1559);
    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 1559: /* 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 1560: /* 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(1561);
    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 1561: /* 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(1562);
    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 1562: /* 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(1563);
    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 1563: /* 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 1564: /* 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(1565);
    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 1565: /* 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(1566);
    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 1566: /* 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(1567);
    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 1567: /* 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(1568);
    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 1568: /* 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 1569: /* 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(1570);
    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 1570: /* 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 v43497_tmp = ((flonum_t)(+1));
    r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) + (v43497_tmp)); } 
  }
    { /* new-vector */
    int c = fixnum_from_obj(r[5]);
    hreserve(hbsz(c+1), 6); /* 6 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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(1573);
    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_v31902;

case 1571: /* clo k x i l */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
s_loop_v31902: /* k x i l */
  if ((ispair((r[3])))) {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(1571);
    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(1572);
    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 1572: /* 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 v43496_tmp = ((flonum_t)(+1));
    r[7] = obj_from_flonum(7, flonum_from_obj(r[6]) + (v43496_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 1573: /* 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 1574: /* gen-glo-combination k var args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination: /* k var args */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(1575);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_value_2Dstore_2Dlookup;

case 1575: /* 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 */
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
  if (((((r[4]) == obj_from_fixnum(+0)) && ((r[4]) == obj_from_fixnum(+0))) && (1))) {
    r[0] = r[2];  
    /* r[1] */    
    goto gs_gen_2Dglo_2Dcombination_2D0;
  } else {
  if (((((r[4]) == obj_from_fixnum(+1)) && ((r[4]) == obj_from_fixnum(+1))) && (1))) {
    r[0] = r[2];  
    /* r[1] */    
    r[2] = (car((r[3])));
    goto gs_gen_2Dglo_2Dcombination_2D1;
  } else {
  if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) {
    r[5] = (cdr((r[3])));
    r[5] = (car((r[5])));
    r[0] = r[2];  
    /* r[1] */    
    r[2] = (car((r[3])));
    r[3] = r[5];  
    goto gs_gen_2Dglo_2Dcombination_2D2;
  } else {
  if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) {
    r[5] = (cdr((r[3])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[7+0] = r[2];  
    r[7+1] = r[1];  
    r[7+2] = (car((r[3])));
    r[7+3] = r[5];  
    r[7+4] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dglo_2Dcombination_2D3;
  } else {
  if (((((r[4]) == obj_from_fixnum(+4)) && ((r[4]) == obj_from_fixnum(+4))) && (1))) {
    r[5] = (cdr((r[3])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[7] = (cdr((r[3])));
    r[7] = (cdr((r[7])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    r[8+0] = r[2];  
    r[8+1] = r[1];  
    r[8+2] = (car((r[3])));
    r[8+3] = r[5];  
    r[8+4] = r[6];  
    r[8+5] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dglo_2Dcombination_2D4;
  } else {
    r[5+0] = r[2];  
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_gen_2Dglo_2Dcombination_2Dn;
  }
  }
  }
  }
  }

case 1576: /* gen-glo-combination-0 k i */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2D0: /* k i */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(1577);
    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 1577: /* 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] = (cdr((r[2])));
    r[4] = (argcheck((r[3]), 0, 0));
  if ((!(isimm((r[4]), ARCRES_ITAG)))) {
    /* 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 (((r[4]) == (ACRES_APPLY))) {
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    /* r[0] */    
    r[1] = obj_from_fixnum(+0);
    r[2] = r[4];  
    /* r[3] */    
    r[4] = (mknull());
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1578: /* gen-glo-combination-1 k i arg1 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2D1: /* k i arg1 */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1579);
    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 1579: /* 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 arg1 i */
    r[4] = (cdr((r[3])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = obj_from_case(1580);
    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 1580: /* 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 */
    r[4] = (argcheck((r[3]), 1, 0, (r[1])));
  if ((!(isimm((r[4]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[4]) == (ACRES_APPLY))) {
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* 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] = r[2];  
    r[6+1] = obj_from_fixnum(+1);
    r[6+2] = r[4];  
    r[6+3] = r[3];  
    r[6+4] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1581: /* gen-glo-combination-2 k i arg1 arg2 */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2D2: /* k i arg1 arg2 */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1582);
    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 1582: /* 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 arg1 arg2 i */
    r[5] = (cdr((r[4])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1583);
    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[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1583: /* 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 k p */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1584);
    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 1584: /* 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 p r */
    r[5] = (argcheck((r[3]), 2, 0, (r[4]), (r[1])));
  if ((!(isimm((r[5]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[5]) == (ACRES_APPLY))) {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[2];  
    r[6+2] = r[4];  
    r[6+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--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 = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = r[2];  
    r[7+1] = obj_from_fixnum(+2);
    r[7+2] = r[5];  
    r[7+3] = r[3];  
    r[7+4] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1585: /* gen-glo-combination-3 k i arg1 arg2 arg3 */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2D3: /* k i arg1 arg2 arg3 */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1586);
    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 1586: /* 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 arg1 arg2 arg3 i */
    r[6] = (cdr((r[5])));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1587);
    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[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1587: /* 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 k p */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1588);
    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 1588: /* 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 k p r */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1589);
    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 1589: /* 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 k p r r */
    r[6] = (argcheck((r[3]), 3, 0, (r[4]), (r[5]), (r[1])));
  if ((!(isimm((r[6]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[6]) == (ACRES_APPLY))) {
    r[7+0] = r[3];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[2];  
    r[7+2] = r[4];  
    r[7+3] = r[5];  
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    { /* 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[7];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[2];  
    r[8+1] = obj_from_fixnum(+3);
    r[8+2] = r[6];  
    r[8+3] = r[3];  
    r[8+4] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1590: /* gen-glo-combination-4 k i arg1 arg2 arg3 arg4 */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2D4: /* k i arg1 arg2 arg3 arg4 */
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(1591);
    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 1591: /* 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 arg1 arg2 arg3 arg4 i */
    r[7] = (cdr((r[6])));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1592);
    r[8] = (hendblk(6+1));
    r[9+0] = r[2];  
    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;

case 1592: /* 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 k p */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1593);
    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 1593: /* 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 k p r */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1594);
    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 1594: /* 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 k p r r */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1595);
    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 1595: /* 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 k p r r r */
    r[7] = (argcheck((r[3]), 4, 0, (r[4]), (r[5]), (r[6]), (r[1])));
  if ((!(isimm((r[7]), ARCRES_ITAG)))) {
    r[0] = r[2];  
    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 (((r[7]) == (ACRES_APPLY))) {
    r[8+0] = r[3];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[2];  
    r[8+2] = r[4];  
    r[8+3] = r[5];  
    r[8+4] = r[6];  
    r[8+5] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[9+0] = r[2];  
    r[9+1] = obj_from_fixnum(+4);
    r[9+2] = r[7];  
    r[9+3] = r[3];  
    r[9+4] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1596: /* gen-glo-combination-n k argc i args */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_gen_2Dglo_2Dcombination_2Dn: /* k argc i args */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1597);
    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 1597: /* 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 args argc i */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(1598);
    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 s_evaluate;

case 1598: /* 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 argc i */
    r[5] = (cdr((r[4])));
    r[6] = (argcheck((r[5]), fixnum_from_obj(r[3]), (r[1])));
  if ((!(isimm((r[6]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[6]) == (ACRES_APPLY))) {
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[7] = obj_from_objptr(c); }
    r[8+0] = r[7];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[2];  
    r[8+2] = r[5];  
    r[8+3] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[7+0] = r[2];  
    r[7+1] = r[3];  
    r[7+2] = r[6];  
    r[7+3] = r[5];  
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

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(1599);
    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 1599: /* 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(1600);
    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 1600: /* 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 1601: /* 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 1602: /* 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(1603);
    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 1603: /* 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(1604);
    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 1604: /* 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] = (argcheck((r[1]), 0, 0));
  if ((!(isimm((r[3]), ARCRES_ITAG)))) {
    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[3]) == (ACRES_APPLY))) {
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    r[4+0] = r[2];  
    r[4+1] = obj_from_fixnum(+0);
    r[4+2] = r[3];  
    r[4+3] = r[1];  
    r[4+4] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1605: /* 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(1606);
    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 1606: /* 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(1607);
    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 1607: /* 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 */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(1608);
    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 1608: /* 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] = (argcheck((r[3]), 1, 0, (r[1])));
  if ((!(isimm((r[4]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[4]) == (ACRES_APPLY))) {
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* 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] = r[2];  
    r[6+1] = obj_from_fixnum(+1);
    r[6+2] = r[4];  
    r[6+3] = r[3];  
    r[6+4] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1609: /* 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(1610);
    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 1610: /* 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(1611);
    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 1611: /* 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 */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1612);
    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;

case 1612: /* 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 k r */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1613);
    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 1613: /* 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 r */
    r[5] = (argcheck((r[3]), 2, 0, (r[4]), (r[1])));
  if ((!(isimm((r[5]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[5]) == (ACRES_APPLY))) {
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[2];  
    r[6+2] = r[4];  
    r[6+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--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 = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = r[2];  
    r[7+1] = obj_from_fixnum(+2);
    r[7+2] = r[5];  
    r[7+3] = r[3];  
    r[7+4] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1614: /* 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(1615);
    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 1615: /* 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(1616);
    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 1616: /* 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 */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1617);
    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;

case 1617: /* 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 k r */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1618);
    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 1618: /* 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 k r r */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1619);
    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 1619: /* 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 k r r r */
    r[6] = (argcheck((r[3]), 3, 0, (r[4]), (r[5]), (r[1])));
  if ((!(isimm((r[6]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[6]) == (ACRES_APPLY))) {
    r[7+0] = r[3];  
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[2];  
    r[7+2] = r[4];  
    r[7+3] = r[5];  
    r[7+4] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    { /* 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[7];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[2];  
    r[8+1] = obj_from_fixnum(+3);
    r[8+2] = r[6];  
    r[8+3] = r[3];  
    r[8+4] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1620: /* 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(1621);
    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 1621: /* 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(1622);
    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 1622: /* 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 */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1623);
    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;

case 1623: /* 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 k r */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1624);
    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 1624: /* 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 k r r */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(1625);
    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 1625: /* 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 k r r r */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1626);
    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 1626: /* 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 k r r r r */
    r[7] = (argcheck((r[3]), 4, 0, (r[4]), (r[5]), (r[6]), (r[1])));
  if ((!(isimm((r[7]), ARCRES_ITAG)))) {
    r[0] = r[2];  
    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 (((r[7]) == (ACRES_APPLY))) {
    r[8+0] = r[3];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[2];  
    r[8+2] = r[4];  
    r[8+3] = r[5];  
    r[8+4] = r[6];  
    r[8+5] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    r[9+0] = r[2];  
    r[9+1] = obj_from_fixnum(+4);
    r[9+2] = r[7];  
    r[9+3] = r[3];  
    r[9+4] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 1627: /* 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[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(1628);
    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 1628: /* 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 args oper argc */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(1629);
    r[5] = (hendblk(4+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 s_evaluate_v31476;

case 1629: /* 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 oper rte k argc */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(1630);
    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 1630: /* 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 argc r */
    r[5] = (argcheck((r[1]), fixnum_from_obj(r[3]), (r[4])));
  if ((!(isimm((r[5]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[5]) == (ACRES_APPLY))) {
    { /* 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[2];  
    r[7+2] = r[1];  
    r[7+3] = r[4];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[6+0] = r[2];  
    r[6+1] = r[3];  
    r[6+2] = r[5];  
    r[6+3] = r[1];  
    r[6+4] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

s_evaluate_v31476: /* 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(1631);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_evaluate_v31476;
  } 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 1631: /* 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(1632);
    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 1632: /* 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 1633: /* scheme-compile-run k expr environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dcompile_2Drun: /* k expr environment */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(1634);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = (mknull());
    goto s_loop_v31459;

s_loop_v31459: /* k e ill */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
    r[4] = (cdr((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v31459;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 1634: /* 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 expr k immlocs */
    (void)(objptr_from_obj(r[4])[0] = (r[1]));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(1635);
    r[5] = (hendblk(1+1));
    r[0] = r[5];  
    r[1] = r[2];  
    r[2] = (mknull());
    r[3] = (objptr_from_obj(r[4])[0]);
    goto gs_scheme_2Dcompile;

case 1635: /* 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 1636: /* scheme-expand-compile-run k form environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_scheme_2Dexpand_2Dcompile_2Drun: /* k form environment */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(1637);
    r[3] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[3];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_expand_2Dtop_2Dlevel_2Dforms_21;

case 1637: /* 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 environment k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v31424;

case 1638: /* clo k outs */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v31424: /* k outs environment */
  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 {
    r[3] = (cdr((r[1])));
    r[3] = obj_from_bool(isnull((r[3])));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcompile_2Drun;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(1638);
    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(1639);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_scheme_2Dcompile_2Drun;
  }
  }

case 1639: /* 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 outs 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 1640: /* clo k expr ?environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k expr ?environment */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1641);
    r[3] = (hendblk(3+1));
  if ((iscircular((r[1])))) {
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (mksymbol(internsym("compiler")));
    r[4+3] = (cx__2310210);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = 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_v31409;
  }

case 1641: /* 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_v31409: /* ek . ?environment expr k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = ((isnull((r[2]))) ? (cx__2Acurrent_2Denvironment_2A) : (car((r[2]))));
    goto gs_expand_2Dtop_2Dlevel_2Dforms_21;

case 1642: /* clo k expr ?environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k expr ?environment */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(1643);
    r[3] = (hendblk(3+1));
  if ((iscircular((r[1])))) {
    r[4+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (mksymbol(internsym("compiler")));
    r[4+3] = (cx__2310210);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = 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_v31395;
  }

case 1643: /* 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_v31395: /* ek . ?environment expr k */
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = ((isnull((r[2]))) ? (cx__2Acurrent_2Denvironment_2A) : (car((r[2]))));
    goto gs_scheme_2Dexpand_2Dcompile_2Drun;

case 1644: /* value-store-lookup k name */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_value_2Dstore_2Dlookup: /* k name */
    { /* assq */
    obj x = (r[1]), l = (cx__2Acurrent_2Dvalue_2Dstore_2A), 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__2Acurrent_2Dvalue_2Dstore_2A);
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Acurrent_2Dvalue_2Dstore_2A = (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 1645: /* reverse-global-lookup k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_reverse_2Dglobal_2Dlookup: /* k val */
    r[2] = (cx__2Acurrent_2Dvalue_2Dstore_2A);
    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_v31377;

s_loop_v31377: /* 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_v31377;
  }
  }

case 1646: /* 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(1647);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_value_2Dstore_2Dlookup;

case 1647: /* 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 1648: /* 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(1649);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_value_2Dstore_2Dlookup;

case 1649: /* 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 1650: /* 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_v31334;

s_loop_v31334: /* 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(1651);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v31334;
  } 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 1651: /* 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 1652: /* 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(1653);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eqv?")));
    goto gs_value_2Dstore_2Dlookup;

case 1653: /* 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(1654);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2561);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(EQ_OBJ_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1654: /* 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(1655);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eq?")));
    goto gs_value_2Dstore_2Dlookup;

case 1655: /* 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(1656);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2560);
    r[4] = (hendblk(0+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 1656: /* 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(1657);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("equal?")));
    goto gs_value_2Dstore_2Dlookup;

case 1657: /* 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(1658);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2559);
    r[4] = (hendblk(0+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 1658: /* 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(1659);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("number?")));
    goto gs_value_2Dstore_2Dlookup;

case 1659: /* 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(1660);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2558);
    r[4] = (hendblk(0+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 1660: /* 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(1661);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("complex?")));
    goto gs_value_2Dstore_2Dlookup;

case 1661: /* 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(1662);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2557);
    r[4] = (hendblk(0+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 1662: /* 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(1663);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("real?")));
    goto gs_value_2Dstore_2Dlookup;

case 1663: /* 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(1664);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2556);
    r[4] = (hendblk(0+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 1664: /* 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(1665);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("rational?")));
    goto gs_value_2Dstore_2Dlookup;

case 1665: /* 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(1666);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2555);
    r[4] = (hendblk(0+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 1666: /* 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(1667);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("integer?")));
    goto gs_value_2Dstore_2Dlookup;

case 1667: /* 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(1668);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2554);
    r[4] = (hendblk(0+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 1668: /* 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(1669);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact?")));
    goto gs_value_2Dstore_2Dlookup;

case 1669: /* 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(1670);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2553);
    r[4] = (hendblk(0+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 1670: /* 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(1671);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("inexact?")));
    goto gs_value_2Dstore_2Dlookup;

case 1671: /* 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(1672);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3D);
    r[2] = obj_from_fixnum(E_Z_Z_Z_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1672: /* 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(1673);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("=")));
    goto gs_value_2Dstore_2Dlookup;

case 1673: /* 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(1674);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3C);
    r[2] = obj_from_fixnum(L_X_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1674: /* 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(1675);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("<")));
    goto gs_value_2Dstore_2Dlookup;

case 1675: /* 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(1676);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3E);
    r[2] = obj_from_fixnum(G_X_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1676: /* 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(1677);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym(">")));
    goto gs_value_2Dstore_2Dlookup;

case 1677: /* 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(1678);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3C_3D);
    r[2] = obj_from_fixnum(LE_X_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1678: /* 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(1679);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("<=")));
    goto gs_value_2Dstore_2Dlookup;

case 1679: /* 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(1680);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_3E_3D);
    r[2] = obj_from_fixnum(GE_X_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1680: /* 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(1681);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym(">=")));
    goto gs_value_2Dstore_2Dlookup;

case 1681: /* 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(1682);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2552);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1682: /* 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(1683);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("zero?")));
    goto gs_value_2Dstore_2Dlookup;

case 1683: /* 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(1684);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2551);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1684: /* 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(1685);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("positive?")));
    goto gs_value_2Dstore_2Dlookup;

case 1685: /* 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(1686);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2550);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1686: /* 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(1687);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("negative?")));
    goto gs_value_2Dstore_2Dlookup;

case 1687: /* 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(1688);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2549);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1688: /* 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(1689);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("odd?")));
    goto gs_value_2Dstore_2Dlookup;

case 1689: /* 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(1690);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2548);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1690: /* 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(1691);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("even?")));
    goto gs_value_2Dstore_2Dlookup;

case 1691: /* 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(1692);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2544);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2545);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2546);
    r[6] = (hendblk(0+1));
    hreserve(hbsz(0+1), 7); /* 7 live regs */
    *--hp = obj_from_case(2547);
    r[7] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = (cx__25residual_2Dmax);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(6+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1692: /* 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(1693);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("max")));
    goto gs_value_2Dstore_2Dlookup;

case 1693: /* 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(1694);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2540);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2541);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2542);
    r[6] = (hendblk(0+1));
    hreserve(hbsz(0+1), 7); /* 7 live regs */
    *--hp = obj_from_case(2543);
    r[7] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = (cx__25residual_2Dmin);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(6+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_X_X_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1694: /* 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(1695);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("min")));
    goto gs_value_2Dstore_2Dlookup;

case 1695: /* 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(1696);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2B);
    r[2] = obj_from_fixnum(ADD_Z_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1696: /* 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(1697);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("+")));
    goto gs_value_2Dstore_2Dlookup;

case 1697: /* 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(1698);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2A);
    r[2] = obj_from_fixnum(MUL_Z_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1698: /* 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(1699);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("*")));
    goto gs_value_2Dstore_2Dlookup;

case 1699: /* 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(1700);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2D);
    r[2] = obj_from_fixnum(SUB_Z_Z_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1700: /* 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(1701);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("-")));
    goto gs_value_2Dstore_2Dlookup;

case 1701: /* 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(1702);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2F);
    r[2] = obj_from_fixnum(DIV_Z_Z_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1702: /* 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(1703);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("/")));
    goto gs_value_2Dstore_2Dlookup;

case 1703: /* 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(1704);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dabs);
    r[2] = obj_from_fixnum(ABS_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1704: /* 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(1705);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("abs")));
    goto gs_value_2Dstore_2Dlookup;

case 1705: /* 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(1706);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dquotient);
    r[2] = obj_from_fixnum(QUO_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1706: /* 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(1707);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("quotient")));
    goto gs_value_2Dstore_2Dlookup;

case 1707: /* 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(1708);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dremainder);
    r[2] = obj_from_fixnum(REM_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1708: /* 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(1709);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("remainder")));
    goto gs_value_2Dstore_2Dlookup;

case 1709: /* 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(1710);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmodulo);
    r[2] = obj_from_fixnum(MLO_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1710: /* 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(1711);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("modulo")));
    goto gs_value_2Dstore_2Dlookup;

case 1711: /* 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(1712);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dgcd);
    r[2] = obj_from_fixnum(GCD_N_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1712: /* 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(1713);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("gcd")));
    goto gs_value_2Dstore_2Dlookup;

case 1713: /* 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(1714);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dlcm);
    r[2] = obj_from_fixnum(LCM_N_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1714: /* 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(1715);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("lcm")));
    goto gs_value_2Dstore_2Dlookup;

case 1715: /* 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(1716);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2539);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Q);
    goto gs_make_2Dannotated_2Dprocedure;

case 1716: /* 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(1717);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("numerator")));
    goto gs_value_2Dstore_2Dlookup;

case 1717: /* 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(1718);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2538);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Q);
    goto gs_make_2Dannotated_2Dprocedure;

case 1718: /* 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(1719);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("denominator")));
    goto gs_value_2Dstore_2Dlookup;

case 1719: /* 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(1720);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dfloor);
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1720: /* 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(1721);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("floor")));
    goto gs_value_2Dstore_2Dlookup;

case 1721: /* 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(1722);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dceiling);
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1722: /* 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(1723);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("ceiling")));
    goto gs_value_2Dstore_2Dlookup;

case 1723: /* 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(1724);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dtruncate);
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1724: /* 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(1725);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("truncate")));
    goto gs_value_2Dstore_2Dlookup;

case 1725: /* 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(1726);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dround);
    r[2] = obj_from_fixnum(ARGCHECK_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1726: /* 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(1727);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("round")));
    goto gs_value_2Dstore_2Dlookup;

case 1727: /* 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(1728);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2537);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_X_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1728: /* 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(1729);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("rationalize")));
    goto gs_value_2Dstore_2Dlookup;

case 1729: /* 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(1730);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexp);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1730: /* 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(1731);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exp")));
    goto gs_value_2Dstore_2Dlookup;

case 1731: /* 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(1732);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dsin);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1732: /* 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(1733);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("sin")));
    goto gs_value_2Dstore_2Dlookup;

case 1733: /* 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(1734);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dcos);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1734: /* 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(1735);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cos")));
    goto gs_value_2Dstore_2Dlookup;

case 1735: /* 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(1736);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dtan);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1736: /* 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(1737);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("tan")));
    goto gs_value_2Dstore_2Dlookup;

case 1737: /* 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(1738);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dasin);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1738: /* 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(1739);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("asin")));
    goto gs_value_2Dstore_2Dlookup;

case 1739: /* 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(1740);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dacos);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1740: /* 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(1741);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("acos")));
    goto gs_value_2Dstore_2Dlookup;

case 1741: /* 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(1742);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Datan);
    r[2] = obj_from_fixnum(ARGCHECK_Z_OR_X_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1742: /* 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(1743);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("atan")));
    goto gs_value_2Dstore_2Dlookup;

case 1743: /* 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(1744);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dsqrt);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1744: /* 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(1745);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("sqrt")));
    goto gs_value_2Dstore_2Dlookup;

case 1745: /* 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(1746);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dexpt);
    r[2] = obj_from_fixnum(EXPT_Z_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1746: /* 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(1747);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("expt")));
    goto gs_value_2Dstore_2Dlookup;

case 1747: /* 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(1748);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Drectangular);
    r[2] = obj_from_fixnum(ARGCHECK_X_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1748: /* 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(1749);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-rectangular")));
    goto gs_value_2Dstore_2Dlookup;

case 1749: /* 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(1750);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmake_2Dpolar);
    r[2] = obj_from_fixnum(ARGCHECK_X_X);
    goto gs_make_2Dannotated_2Dprocedure;

case 1750: /* 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(1751);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-polar")));
    goto gs_value_2Dstore_2Dlookup;

case 1751: /* 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(1752);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2536);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1752: /* 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(1753);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("real-part")));
    goto gs_value_2Dstore_2Dlookup;

case 1753: /* 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(1754);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2535);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1754: /* 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(1755);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("imag-part")));
    goto gs_value_2Dstore_2Dlookup;

case 1755: /* 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(1756);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmagnitude);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1756: /* 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(1757);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("magnitude")));
    goto gs_value_2Dstore_2Dlookup;

case 1757: /* 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(1758);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2534);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1758: /* 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(1759);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("angle")));
    goto gs_value_2Dstore_2Dlookup;

case 1759: /* 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(1760);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dinexact);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1760: /* 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(1761);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact->inexact")));
    goto gs_value_2Dstore_2Dlookup;

case 1761: /* 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(1762);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2533);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(TOEXACT_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1762: /* 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(1763);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("inexact->exact")));
    goto gs_value_2Dstore_2Dlookup;

case 1763: /* 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(1764);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2531);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2532);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z_RADIX_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1764: /* 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(1765);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("number->string")));
    goto gs_value_2Dstore_2Dlookup;

case 1765: /* 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(1766);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2529);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2530);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_RADIX_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1766: /* 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(1767);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string->number")));
    goto gs_value_2Dstore_2Dlookup;

case 1767: /* 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(1768);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2528);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(NOT_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1768: /* 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(1769);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("not")));
    goto gs_value_2Dstore_2Dlookup;

case 1769: /* 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(1770);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2527);
    r[4] = (hendblk(0+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 1770: /* 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(1771);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("boolean?")));
    goto gs_value_2Dstore_2Dlookup;

case 1771: /* 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(1772);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2526);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ISPAIR_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1772: /* 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(1773);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("pair?")));
    goto gs_value_2Dstore_2Dlookup;

case 1773: /* 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(1774);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2525);
    r[4] = (hendblk(0+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 1774: /* 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(1775);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cons")));
    goto gs_value_2Dstore_2Dlookup;

case 1775: /* 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(1776);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2524);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CAR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1776: /* 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(1777);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("car")));
    goto gs_value_2Dstore_2Dlookup;

case 1777: /* 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(1778);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2523);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CDR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1778: /* 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(1779);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cdr")));
    goto gs_value_2Dstore_2Dlookup;

case 1779: /* 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(1780);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2522);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PAIR_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1780: /* 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(1781);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("set-car!")));
    goto gs_value_2Dstore_2Dlookup;

case 1781: /* 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(1782);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2521);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PAIR_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1782: /* 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(1783);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("set-cdr!")));
    goto gs_value_2Dstore_2Dlookup;

case 1783: /* 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(1784);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2520);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CAAR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1784: /* 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(1785);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("caar")));
    goto gs_value_2Dstore_2Dlookup;

case 1785: /* 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(1786);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2519);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CADR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1786: /* 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(1787);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cadr")));
    goto gs_value_2Dstore_2Dlookup;

case 1787: /* 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(1788);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2518);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CDAR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1788: /* 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(1789);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cdar")));
    goto gs_value_2Dstore_2Dlookup;

case 1789: /* 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(1790);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2517);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(CDDR_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1790: /* 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(1791);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("cddr")));
    goto gs_value_2Dstore_2Dlookup;

case 1791: /* 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(1792);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2516);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ISNULL_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1792: /* 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(1793);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("null?")));
    goto gs_value_2Dstore_2Dlookup;

case 1793: /* 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(1794);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2515);
    r[4] = (hendblk(0+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 1794: /* 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(1795);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list?")));
    goto gs_value_2Dstore_2Dlookup;

case 1795: /* 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(1796);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dlist);
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1796: /* 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(1797);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list")));
    goto gs_value_2Dstore_2Dlookup;

case 1797: /* 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(1798);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2514);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(LENGTH_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1798: /* 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(1799);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("length")));
    goto gs_value_2Dstore_2Dlookup;

case 1799: /* 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(1800);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2509);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2510);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2511);
    r[6] = (hendblk(0+1));
    hreserve(hbsz(0+1), 7); /* 7 live regs */
    *--hp = obj_from_case(2512);
    r[7] = (hendblk(0+1));
    hreserve(hbsz(0+1), 8); /* 8 live regs */
    *--hp = obj_from_case(2513);
    r[8] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(6+1), 9); /* 9 live regs */
    *--hp = (cx__25residual_2Dappend);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(6+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_LIST_ETC_OBJ_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1800: /* 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(1801);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("append")));
    goto gs_value_2Dstore_2Dlookup;

case 1801: /* 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(1802);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2508);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1802: /* 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(1803);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("reverse")));
    goto gs_value_2Dstore_2Dlookup;

case 1803: /* 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(1804);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2507);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1804: /* 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(1805);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("memq")));
    goto gs_value_2Dstore_2Dlookup;

case 1805: /* 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(1806);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2506);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1806: /* 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(1807);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("memv")));
    goto gs_value_2Dstore_2Dlookup;

case 1807: /* 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(1808);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2505);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1808: /* 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(1809);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assq")));
    goto gs_value_2Dstore_2Dlookup;

case 1809: /* 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(1810);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2504);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1810: /* 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(1811);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assv")));
    goto gs_value_2Dstore_2Dlookup;

case 1811: /* 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(1812);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2503);
    r[4] = (hendblk(0+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 1812: /* 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(1813);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("symbol?")));
    goto gs_value_2Dstore_2Dlookup;

case 1813: /* 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(1814);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2502);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_SYMBOL);
    goto gs_make_2Dannotated_2Dprocedure;

case 1814: /* 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(1815);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("symbol->string")));
    goto gs_value_2Dstore_2Dlookup;

case 1815: /* 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(1816);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2501);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 1816: /* 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(1817);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string->symbol")));
    goto gs_value_2Dstore_2Dlookup;

case 1817: /* 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(1818);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2500);
    r[4] = (hendblk(0+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 1818: /* 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(1819);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char?")));
    goto gs_value_2Dstore_2Dlookup;

case 1819: /* 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(1820);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2499);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1820: /* 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(1821);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-alphabetic?")));
    goto gs_value_2Dstore_2Dlookup;

case 1821: /* 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(1822);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2498);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1822: /* 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(1823);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-numeric?")));
    goto gs_value_2Dstore_2Dlookup;

case 1823: /* 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(1824);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2497);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1824: /* 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(1825);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-whitespace?")));
    goto gs_value_2Dstore_2Dlookup;

case 1825: /* 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(1826);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2496);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1826: /* 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(1827);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-upper-case?")));
    goto gs_value_2Dstore_2Dlookup;

case 1827: /* 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(1828);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2495);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1828: /* 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(1829);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-lower-case?")));
    goto gs_value_2Dstore_2Dlookup;

case 1829: /* 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(1830);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2494);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1830: /* 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(1831);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char->integer")));
    goto gs_value_2Dstore_2Dlookup;

case 1831: /* 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(1832);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2493);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1832: /* 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(1833);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("integer->char")));
    goto gs_value_2Dstore_2Dlookup;

case 1833: /* 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(1834);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2492);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1834: /* 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(1835);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-upcase")));
    goto gs_value_2Dstore_2Dlookup;

case 1835: /* 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(1836);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2491);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1836: /* 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(1837);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-downcase")));
    goto gs_value_2Dstore_2Dlookup;

case 1837: /* 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(1838);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2490);
    r[4] = (hendblk(0+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 1838: /* 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(1839);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string?")));
    goto gs_value_2Dstore_2Dlookup;

case 1839: /* 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(1840);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2488);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2489);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_CHAR_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1840: /* 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(1841);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-string")));
    goto gs_value_2Dstore_2Dlookup;

case 1841: /* 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(1842);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dstring);
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1842: /* 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(1843);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string")));
    goto gs_value_2Dstore_2Dlookup;

case 1843: /* 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(1844);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2487);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(LENGTH_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 1844: /* 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(1845);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-length")));
    goto gs_value_2Dstore_2Dlookup;

case 1845: /* 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(1846);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2486);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(REF_STRING_INDEX);
    goto gs_make_2Dannotated_2Dprocedure;

case 1846: /* 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(1847);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ref")));
    goto gs_value_2Dstore_2Dlookup;

case 1847: /* 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(1848);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2485);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(SET_STRING_INDEX_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1848: /* 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(1849);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-set!")));
    goto gs_value_2Dstore_2Dlookup;

case 1849: /* 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(1850);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2484);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 1850: /* 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(1851);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring")));
    goto gs_value_2Dstore_2Dlookup;

case 1851: /* 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(1852);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2481);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2482);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2483);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = (cx__25residual_2Dstring_2Dappend);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1852: /* 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(1853);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-append")));
    goto gs_value_2Dstore_2Dlookup;

case 1853: /* 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(1854);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2480);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1854: /* 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(1855);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list->string")));
    goto gs_value_2Dstore_2Dlookup;

case 1855: /* 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(1856);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2479);
    r[4] = (hendblk(0+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 1856: /* 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(1857);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector?")));
    goto gs_value_2Dstore_2Dlookup;

case 1857: /* 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(1858);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2477);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2478);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_OBJ_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1858: /* 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(1859);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-vector")));
    goto gs_value_2Dstore_2Dlookup;

case 1859: /* 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(1860);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dvector);
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1860: /* 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(1861);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector")));
    goto gs_value_2Dstore_2Dlookup;

case 1861: /* 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(1862);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2476);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(LENGTH_VECTOR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1862: /* 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(1863);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-length")));
    goto gs_value_2Dstore_2Dlookup;

case 1863: /* 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(1864);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2475);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(REF_VECTOR_INDEX);
    goto gs_make_2Dannotated_2Dprocedure;

case 1864: /* 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(1865);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-ref")));
    goto gs_value_2Dstore_2Dlookup;

case 1865: /* 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(1866);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2474);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(SET_VECTOR_INDEX_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1866: /* 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(1867);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-set!")));
    goto gs_value_2Dstore_2Dlookup;

case 1867: /* 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(1868);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2473);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1868: /* 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(1869);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list->vector")));
    goto gs_value_2Dstore_2Dlookup;

case 1869: /* 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(1870);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_vector_2Dfill_21);
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 1870: /* 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(1871);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-fill!")));
    goto gs_value_2Dstore_2Dlookup;

case 1871: /* 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")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Avalues_2Dtag_2A = (hendblk(3)); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(1872);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2472);
    r[4] = (hendblk(0+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 1872: /* 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(1873);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("procedure?")));
    goto gs_value_2Dstore_2Dlookup;

case 1873: /* 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(1874);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2469);
    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)); }
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2471);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PROC_OBJ_ETC_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 1874: /* 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(1875);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("apply")));
    goto gs_value_2Dstore_2Dlookup;

case 1875: /* 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(1876);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2465);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PROC1CC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1876: /* 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(1877);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call/cc")));
    goto gs_value_2Dstore_2Dlookup;

case 1877: /* 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(1878);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (mksymbol(internsym("call/cc")));
    goto gs_value_2Dstore_2Dlookup;

case 1878: /* 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(1879);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = (mksymbol(internsym("call-with-current-continuation")));
    goto gs_value_2Dstore_2Dlookup;

case 1879: /* 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(1880);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2464);
    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];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1880: /* 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(1881);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("values")));
    goto gs_value_2Dstore_2Dlookup;

case 1881: /* 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(1882);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2462);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_THUNK_PROC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1882: /* 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(1883);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-values")));
    goto gs_value_2Dstore_2Dlookup;

case 1883: /* 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(1884);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_dynamic_2Dwind);
    r[2] = obj_from_fixnum(ARGCHECK_THUNK_THUNK_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 1884: /* 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(1885);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("dynamic-wind")));
    goto gs_value_2Dstore_2Dlookup;

case 1885: /* 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(1886);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2460);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2461);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_ENVIRONMENT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1886: /* 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(1887);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eval")));
    goto gs_value_2Dstore_2Dlookup;

case 1887: /* 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(1888);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_call_2Dwith_2Dinput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_PROC1IP);
    goto gs_make_2Dannotated_2Dprocedure;

case 1888: /* 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(1889);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-input-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1889: /* 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(1890);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_call_2Dwith_2Doutput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_PROC1OP);
    goto gs_make_2Dannotated_2Dprocedure;

case 1890: /* 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(1891);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-output-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1891: /* 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(1892);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2459);
    r[4] = (hendblk(0+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 1892: /* 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(1893);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("input-port?")));
    goto gs_value_2Dstore_2Dlookup;

case 1893: /* 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(1894);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2458);
    r[4] = (hendblk(0+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 1894: /* 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(1895);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("output-port?")));
    goto gs_value_2Dstore_2Dlookup;

case 1895: /* 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(1896);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2455);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2456);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2457);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT_BOOLEAN_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1896: /* 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(1897);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-input-port")));
    goto gs_value_2Dstore_2Dlookup;

case 1897: /* 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(1898);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2452);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2453);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2454);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT_OPT_BOOLEAN_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1898: /* 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(1899);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-output-port")));
    goto gs_value_2Dstore_2Dlookup;

case 1899: /* 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(1900);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Dinput_2Dfrom_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 1900: /* 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(1901);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-input-from-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1901: /* 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(1902);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Doutput_2Dto_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 1902: /* 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(1903);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-output-to-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1903: /* 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(1904);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Dinput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 1904: /* 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(1905);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-input-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1905: /* 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(1906);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Doutput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 1906: /* 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(1907);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-output-file")));
    goto gs_value_2Dstore_2Dlookup;

case 1907: /* 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(1908);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2451);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1908: /* 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(1909);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("close-input-port")));
    goto gs_value_2Dstore_2Dlookup;

case 1909: /* 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(1910);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2450);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1910: /* 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(1911);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("close-output-port")));
    goto gs_value_2Dstore_2Dlookup;

case 1911: /* 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(1912);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2448);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2449);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1912: /* 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(1913);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read")));
    goto gs_value_2Dstore_2Dlookup;

case 1913: /* 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(1914);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2446);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2447);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1914: /* 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(1915);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-char")));
    goto gs_value_2Dstore_2Dlookup;

case 1915: /* 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(1916);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2444);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2445);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1916: /* 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(1917);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("peek-char")));
    goto gs_value_2Dstore_2Dlookup;

case 1917: /* 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(1918);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2443);
    r[4] = (hendblk(0+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 1918: /* 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(1919);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eof-object?")));
    goto gs_value_2Dstore_2Dlookup;

case 1919: /* 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(1920);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2441);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2442);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1920: /* 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(1921);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ready?")));
    goto gs_value_2Dstore_2Dlookup;

case 1921: /* 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(1922);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2439);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2440);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1922: /* 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(1923);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write")));
    goto gs_value_2Dstore_2Dlookup;

case 1923: /* 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(1924);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2437);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2438);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1924: /* 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(1925);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("display")));
    goto gs_value_2Dstore_2Dlookup;

case 1925: /* 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(1926);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2435);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2436);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1926: /* 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(1927);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-char")));
    goto gs_value_2Dstore_2Dlookup;

case 1927: /* 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(1928);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2433);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2434);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1928: /* 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(1929);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("newline")));
    goto gs_value_2Dstore_2Dlookup;

case 1929: /* 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(1930);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2432);
    r[4] = (hendblk(0+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 1930: /* 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(1931);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("promise?")));
    goto gs_value_2Dstore_2Dlookup;

case 1931: /* 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(1932);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2431);
    r[4] = (hendblk(0+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 1932: /* 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(1933);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-promise")));
    goto gs_value_2Dstore_2Dlookup;

case 1933: /* 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(1934);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2430);
    r[4] = (hendblk(0+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 1934: /* 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(1935);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-lazy-promise")));
    goto gs_value_2Dstore_2Dlookup;

case 1935: /* 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(1936);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_force);
    r[2] = obj_from_fixnum(ARGCHECK_BOX);
    goto gs_make_2Dannotated_2Dprocedure;

case 1936: /* 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(1937);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("force")));
    goto gs_value_2Dstore_2Dlookup;

case 1937: /* 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(1938);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2428);
    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];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_PROC1_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1938: /* 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(1939);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-parameter")));
    goto gs_value_2Dstore_2Dlookup;

case 1939: /* 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(1940);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2426);
    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];  
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1940: /* 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(1941);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-case-lambda")));
    goto gs_value_2Dstore_2Dlookup;

case 1941: /* 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(1942);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2425);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(TOEXACT_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1942: /* 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(1943);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact")));
    goto gs_value_2Dstore_2Dlookup;

case 1943: /* 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(1944);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dinexact);
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1944: /* 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(1945);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("inexact")));
    goto gs_value_2Dstore_2Dlookup;

case 1945: /* 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(1946);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2424);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1946: /* 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(1947);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact-integer?")));
    goto gs_value_2Dstore_2Dlookup;

case 1947: /* 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(1948);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2423);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1948: /* 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(1949);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("nan?")));
    goto gs_value_2Dstore_2Dlookup;

case 1949: /* 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(1950);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2422);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1950: /* 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(1951);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("finite?")));
    goto gs_value_2Dstore_2Dlookup;

case 1951: /* 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(1952);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2421);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z);
    goto gs_make_2Dannotated_2Dprocedure;

case 1952: /* 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(1953);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("infinite?")));
    goto gs_value_2Dstore_2Dlookup;

case 1953: /* 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(1954);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmodquo);
    r[2] = obj_from_fixnum(MQU_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1954: /* 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(1955);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("floor-quotient")));
    goto gs_value_2Dstore_2Dlookup;

case 1955: /* 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(1956);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dmodulo);
    r[2] = obj_from_fixnum(MLO_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1956: /* 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(1957);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("floor-remainder")));
    goto gs_value_2Dstore_2Dlookup;

case 1957: /* 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(1958);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dquotient);
    r[2] = obj_from_fixnum(QUO_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1958: /* 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(1959);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("truncate-quotient")));
    goto gs_value_2Dstore_2Dlookup;

case 1959: /* 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(1960);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dremainder);
    r[2] = obj_from_fixnum(REM_N_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 1960: /* 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(1961);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("truncate-remainder")));
    goto gs_value_2Dstore_2Dlookup;

case 1961: /* 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(1962);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2419);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2420);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_Z_Z_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1962: /* 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(1963);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("log")));
    goto gs_value_2Dstore_2Dlookup;

case 1963: /* 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(1964);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2418);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K);
    goto gs_make_2Dannotated_2Dprocedure;

case 1964: /* 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(1965);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exact-integer-sqrt")));
    goto gs_value_2Dstore_2Dlookup;

case 1965: /* 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(1966);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2417);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dboolean_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_BOOLEAN_BOOLEAN_BOOLEAN_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1966: /* 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(1967);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("boolean=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1967: /* 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(1968);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2415);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2416);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_OBJ_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 1968: /* 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(1969);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-list")));
    goto gs_value_2Dstore_2Dlookup;

case 1969: /* 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(1970);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_list_2Dcopy);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 1970: /* 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(1971);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list-copy")));
    goto gs_value_2Dstore_2Dlookup;

case 1971: /* 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(1972);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2414);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dsymbol_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_SYMBOL_SYMBOL_SYMBOL_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1972: /* 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(1973);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("symbol=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1973: /* 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(1974);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2413);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1974: /* 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(1975);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1975: /* 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(1976);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2412);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_3C_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1976: /* 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(1977);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char<?")));
    goto gs_value_2Dstore_2Dlookup;

case 1977: /* 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(1978);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2411);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_3E_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1978: /* 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(1979);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char>?")));
    goto gs_value_2Dstore_2Dlookup;

case 1979: /* 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(1980);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2410);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_3C_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1980: /* 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(1981);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char<=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1981: /* 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(1982);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2409);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_3E_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1982: /* 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(1983);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char>=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1983: /* 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(1984);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2408);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_2Dci_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1984: /* 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(1985);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1985: /* 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(1986);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2407);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_2Dci_3C_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1986: /* 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(1987);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci<?")));
    goto gs_value_2Dstore_2Dlookup;

case 1987: /* 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(1988);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2406);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_2Dci_3E_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1988: /* 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(1989);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci>?")));
    goto gs_value_2Dstore_2Dlookup;

case 1989: /* 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(1990);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2405);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_2Dci_3C_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1990: /* 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(1991);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci<=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1991: /* 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(1992);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2404);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dchar_2Dci_3E_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR_CHAR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1992: /* 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(1993);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-ci>=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1993: /* 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(1994);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2403);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1994: /* 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(1995);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("char-foldcase")));
    goto gs_value_2Dstore_2Dlookup;

case 1995: /* 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(1996);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2402);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_CHAR);
    goto gs_make_2Dannotated_2Dprocedure;

case 1996: /* 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(1997);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("digit-value")));
    goto gs_value_2Dstore_2Dlookup;

case 1997: /* 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(1998);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2401);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 1998: /* 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(1999);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string=?")));
    goto gs_value_2Dstore_2Dlookup;

case 1999: /* 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(2000);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2400);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_3C_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2000: /* 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(2001);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string<?")));
    goto gs_value_2Dstore_2Dlookup;

case 2001: /* 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(2002);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2399);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_3E_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2002: /* 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(2003);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string>?")));
    goto gs_value_2Dstore_2Dlookup;

case 2003: /* 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(2004);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2398);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_3C_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2004: /* 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(2005);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string<=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2005: /* 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(2006);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2397);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_3E_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2006: /* 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(2007);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string>=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2007: /* 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(2008);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2396);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_2Dci_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2008: /* 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(2009);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2009: /* 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(2010);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2395);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_2Dci_3C_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2010: /* 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(2011);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci<?")));
    goto gs_value_2Dstore_2Dlookup;

case 2011: /* 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(2012);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2394);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_2Dci_3E_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2012: /* 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(2013);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci>?")));
    goto gs_value_2Dstore_2Dlookup;

case 2013: /* 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(2014);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2393);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_2Dci_3C_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2014: /* 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(2015);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci<=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2015: /* 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(2016);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2392);
    r[4] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = (cx__25residual_2Dstring_2Dci_3E_3D_3F);
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING_STRING_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2016: /* 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(2017);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-ci>=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2017: /* 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(2018);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2391);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2018: /* 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(2019);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-upcase")));
    goto gs_value_2Dstore_2Dlookup;

case 2019: /* 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(2020);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2390);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2020: /* 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(2021);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-downcase")));
    goto gs_value_2Dstore_2Dlookup;

case 2021: /* 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(2022);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2389);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2022: /* 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(2023);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("string-foldcase")));
    goto gs_value_2Dstore_2Dlookup;

case 2023: /* 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(2024);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2386);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2387);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2388);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = (cx_vector_2Dappend);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2024: /* 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(2025);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("vector-append")));
    goto gs_value_2Dstore_2Dlookup;

case 2025: /* 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(2026);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2385);
    r[4] = (hendblk(0+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 2026: /* 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(2027);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector?")));
    goto gs_value_2Dstore_2Dlookup;

case 2027: /* 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(2028);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2383);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2384);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_U8_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2028: /* 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(2029);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2029: /* 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(2030);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dbytevector);
    r[2] = obj_from_fixnum(ARGCHECK_U8_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2030: /* 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(2031);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2031: /* 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(2032);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2382);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR);
    goto gs_make_2Dannotated_2Dprocedure;

case 2032: /* 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(2033);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector-length")));
    goto gs_value_2Dstore_2Dlookup;

case 2033: /* 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(2034);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2381);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_U8VECTOR);
    goto gs_make_2Dannotated_2Dprocedure;

case 2034: /* 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(2035);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector=?")));
    goto gs_value_2Dstore_2Dlookup;

case 2035: /* 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(2036);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2380);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_INDEX);
    goto gs_make_2Dannotated_2Dprocedure;

case 2036: /* 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(2037);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector-u8-ref")));
    goto gs_value_2Dstore_2Dlookup;

case 2037: /* 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(2038);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2379);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_INDEX_U8);
    goto gs_make_2Dannotated_2Dprocedure;

case 2038: /* 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(2039);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector-u8-set!")));
    goto gs_value_2Dstore_2Dlookup;

case 2039: /* 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(2040);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2378);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 2040: /* 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(2041);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("list->bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2041: /* 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(2042);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2375);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2376);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2377);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = (cx_bytevector_2Dappend);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2042: /* 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(2043);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("bytevector-append")));
    goto gs_value_2Dstore_2Dlookup;

case 2043: /* 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(2044);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Dexception_2Dhandler);
    r[2] = obj_from_fixnum(ARGCHECK_PROC1_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 2044: /* 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(2045);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-exception-handler")));
    goto gs_value_2Dstore_2Dlookup;

case 2045: /* 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(2046);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_raise);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2046: /* 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(2047);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("raise")));
    goto gs_value_2Dstore_2Dlookup;

case 2047: /* 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(2048);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_raise_2Dcontinuable);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2048: /* 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(2049);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("raise-continuable")));
    goto gs_value_2Dstore_2Dlookup;

case 2049: /* 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(2050);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_error);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_OBJ_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2050: /* 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(2051);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("error")));
    goto gs_value_2Dstore_2Dlookup;

case 2051: /* 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(2052);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2374);
    r[4] = (hendblk(0+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 2052: /* 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(2053);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("error-object?")));
    goto gs_value_2Dstore_2Dlookup;

case 2053: /* 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(2054);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2373);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD);
    goto gs_make_2Dannotated_2Dprocedure;

case 2054: /* 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(2055);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("error-object-message")));
    goto gs_value_2Dstore_2Dlookup;

case 2055: /* 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(2056);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2372);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD);
    goto gs_make_2Dannotated_2Dprocedure;

case 2056: /* 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(2057);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("error-object-irritants")));
    goto gs_value_2Dstore_2Dlookup;

case 2057: /* 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(2058);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_read_2Derror_3F);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2058: /* 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(2059);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-error?")));
    goto gs_value_2Dstore_2Dlookup;

case 2059: /* 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(2060);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_file_2Derror_3F);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2060: /* 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(2061);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("file-error?")));
    goto gs_value_2Dstore_2Dlookup;

case 2061: /* 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(2062);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_environment);
    r[2] = obj_from_fixnum(ARGCHECK_LIST_ETC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2062: /* 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(2063);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2063: /* 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(2064);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2371);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 2064: /* 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(2065);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("scheme-report-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2065: /* 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(2066);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2370);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_N);
    goto gs_make_2Dannotated_2Dprocedure;

case 2066: /* 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(2067);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("null-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2067: /* 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(2068);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2368);
    r[4] = (hendblk(0+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 2068: /* 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(2069);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("interaction-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2069: /* 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(2070);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2367);
    r[4] = (hendblk(0+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 2070: /* 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(2071);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("port?")));
    goto gs_value_2Dstore_2Dlookup;

case 2071: /* 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(2072);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2366);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2072: /* 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(2073);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("textual-port?")));
    goto gs_value_2Dstore_2Dlookup;

case 2073: /* 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(2074);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2365);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2074: /* 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(2075);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("binary-port?")));
    goto gs_value_2Dstore_2Dlookup;

case 2075: /* 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(2076);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2364);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2076: /* 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(2077);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("close-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2077: /* 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(2078);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_call_2Dwith_2Dport);
    r[2] = obj_from_fixnum(ARGCHECK_PORT_PROC1P);
    goto gs_make_2Dannotated_2Dprocedure;

case 2078: /* 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(2079);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("call-with-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2079: /* 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(2080);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2361);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2362);
    r[5] = (hendblk(0+1));
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(2363);
    r[6] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT_OPT_BOOLEAN_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2080: /* 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(2081);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-error-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2081: /* 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(2082);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2082: /* 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(2083);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-binary-input-file")));
    goto gs_value_2Dstore_2Dlookup;

case 2083: /* 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(2084);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2360);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2084: /* 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(2085);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-input-string")));
    goto gs_value_2Dstore_2Dlookup;

case 2085: /* 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(2086);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2359);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR);
    goto gs_make_2Dannotated_2Dprocedure;

case 2086: /* 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(2087);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-input-bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2087: /* 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(2088);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2088: /* 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(2089);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-binary-output-file")));
    goto gs_value_2Dstore_2Dlookup;

case 2089: /* 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(2090);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2358);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2090: /* 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(2091);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("input-port-open?")));
    goto gs_value_2Dstore_2Dlookup;

case 2091: /* 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(2092);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2357);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2092: /* 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(2093);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("output-port-open?")));
    goto gs_value_2Dstore_2Dlookup;

case 2093: /* 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(2094);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2356);
    r[4] = (hendblk(0+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 2094: /* 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(2095);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-output-string")));
    goto gs_value_2Dstore_2Dlookup;

case 2095: /* 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(2096);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2355);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2096: /* 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(2097);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("get-output-string")));
    goto gs_value_2Dstore_2Dlookup;

case 2097: /* 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(2098);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2354);
    r[4] = (hendblk(0+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 2098: /* 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(2099);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("open-output-bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2099: /* 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(2100);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2353);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2100: /* 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(2101);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("get-output-bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2101: /* 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(2102);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2352);
    r[4] = (hendblk(0+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 2102: /* 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(2103);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("eof-object")));
    goto gs_value_2Dstore_2Dlookup;

case 2103: /* 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(2104);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2350);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2351);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2104: /* 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(2105);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-u8")));
    goto gs_value_2Dstore_2Dlookup;

case 2105: /* 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(2106);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2348);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2349);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2106: /* 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(2107);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("peek-u8")));
    goto gs_value_2Dstore_2Dlookup;

case 2107: /* 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(2108);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2346);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2347);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2108: /* 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(2109);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("u8-ready?")));
    goto gs_value_2Dstore_2Dlookup;

case 2109: /* 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(2110);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2344);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2345);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2110: /* 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(2111);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-line")));
    goto gs_value_2Dstore_2Dlookup;

case 2111: /* 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(2112);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2342);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2343);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2112: /* 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(2113);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-string")));
    goto gs_value_2Dstore_2Dlookup;

case 2113: /* 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(2114);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2340);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2341);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_K_IPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2114: /* 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(2115);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-bytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2115: /* 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(2116);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2338);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2339);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2116: /* 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(2117);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-shared")));
    goto gs_value_2Dstore_2Dlookup;

case 2117: /* 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(2118);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2336);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2337);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2118: /* 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(2119);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-simple")));
    goto gs_value_2Dstore_2Dlookup;

case 2119: /* 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(2120);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2334);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2335);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2120: /* 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(2121);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("flush-output-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2121: /* 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(2122);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2332);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2333);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = obj_from_bool(0);
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(4+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8_OPORT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2122: /* 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(2123);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-u8")));
    goto gs_value_2Dstore_2Dlookup;

case 2123: /* 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(2124);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2330);
    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(ARGCHECK_OBJ_ENVIRONMENT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2124: /* 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(2125);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("load")));
    goto gs_value_2Dstore_2Dlookup;

case 2125: /* 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(2126);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_exit);
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2126: /* 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(2127);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("exit")));
    goto gs_value_2Dstore_2Dlookup;

case 2127: /* 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(2128);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_emergency_2Dexit);
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+1)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2128: /* 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(2129);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("emergency-exit")));
    goto gs_value_2Dstore_2Dlookup;

case 2129: /* 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(2130);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2329);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2130: /* 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(2131);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("file-exists?")));
    goto gs_value_2Dstore_2Dlookup;

case 2131: /* 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(2132);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_delete_2Dfile);
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2132: /* 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(2133);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("delete-file")));
    goto gs_value_2Dstore_2Dlookup;

case 2133: /* 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(2134);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_command_2Dline);
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+0)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2134: /* 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(2135);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("command-line")));
    goto gs_value_2Dstore_2Dlookup;

case 2135: /* 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(2136);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2328);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2136: /* 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(2137);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("get-environment-variable")));
    goto gs_value_2Dstore_2Dlookup;

case 2137: /* 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(2138);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2327);
    r[4] = (hendblk(0+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 2138: /* 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(2139);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-second")));
    goto gs_value_2Dstore_2Dlookup;

case 2139: /* 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(2140);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2326);
    r[4] = (hendblk(0+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 2140: /* 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(2141);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-jiffy")));
    goto gs_value_2Dstore_2Dlookup;

case 2141: /* 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(2142);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2325);
    r[4] = (hendblk(0+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 2142: /* 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(2143);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("jiffies-per-second")));
    goto gs_value_2Dstore_2Dlookup;

case 2143: /* 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(2144);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2324);
    r[4] = (hendblk(0+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 2144: /* 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(2145);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("features")));
    goto gs_value_2Dstore_2Dlookup;

case 2145: /* 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(2146);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2323);
    r[4] = (hendblk(0+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 2146: /* 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(2147);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("circular?")));
    goto gs_value_2Dstore_2Dlookup;

case 2147: /* 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(2148);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2322);
    r[4] = (hendblk(0+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 2148: /* 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(2149);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("byte?")));
    goto gs_value_2Dstore_2Dlookup;

case 2149: /* 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(2150);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2321);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_PAIR);
    goto gs_make_2Dannotated_2Dprocedure;

case 2150: /* 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(2151);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("last-pair")));
    goto gs_value_2Dstore_2Dlookup;

case 2151: /* 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(2152);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2320);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 2152: /* 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(2153);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("meml")));
    goto gs_value_2Dstore_2Dlookup;

case 2153: /* 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(2154);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2319);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 2154: /* 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(2155);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("assl")));
    goto gs_value_2Dstore_2Dlookup;

case 2155: /* 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(2156);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_substring_2D_3Elist);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2156: /* 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(2157);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring->list")));
    goto gs_value_2Dstore_2Dlookup;

case 2157: /* 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(2158);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2318);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_INDEX_STRING_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2158: /* 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(2159);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring-copy!")));
    goto gs_value_2Dstore_2Dlookup;

case 2159: /* 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(2160);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2317);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_CHAR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2160: /* 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(2161);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring-fill!")));
    goto gs_value_2Dstore_2Dlookup;

case 2161: /* 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(2162);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2316);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2162: /* 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(2163);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring->vector")));
    goto gs_value_2Dstore_2Dlookup;

case 2163: /* 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(2164);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_subvector_2D_3Elist);
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2164: /* 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(2165);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subvector->list")));
    goto gs_value_2Dstore_2Dlookup;

case 2165: /* 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(2166);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_subvector_2D_3Estring);
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2166: /* 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(2167);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subvector->string")));
    goto gs_value_2Dstore_2Dlookup;

case 2167: /* 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(2168);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2315);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_INDEX_VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2168: /* 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(2169);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subvector-copy!")));
    goto gs_value_2Dstore_2Dlookup;

case 2169: /* 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(2170);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_subvector);
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2170: /* 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(2171);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subvector")));
    goto gs_value_2Dstore_2Dlookup;

case 2171: /* 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(2172);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2314);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_VECTOR_OBJ_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2172: /* 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(2173);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subvector-fill!")));
    goto gs_value_2Dstore_2Dlookup;

case 2173: /* 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(2174);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_subbytevector_2D_3Elist);
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2174: /* 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(2175);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subbytevector->list")));
    goto gs_value_2Dstore_2Dlookup;

case 2175: /* 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(2176);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2313);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_INDEX_U8VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2176: /* 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(2177);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subbytevector-copy!")));
    goto gs_value_2Dstore_2Dlookup;

case 2177: /* 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(2178);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2312);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2178: /* 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(2179);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subbytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2179: /* 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(2180);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_subutf8_2D_3Estring);
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2180: /* 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(2181);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("subutf8->string")));
    goto gs_value_2Dstore_2Dlookup;

case 2181: /* 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(2182);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_substring_2D_3Eutf8);
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END);
    goto gs_make_2Dannotated_2Dprocedure;

case 2182: /* 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(2183);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("substring->utf8")));
    goto gs_value_2Dstore_2Dlookup;

case 2183: /* 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(2184);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx__25residual_2Drecord_3F);
    r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2184: /* 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(2185);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("record?")));
    goto gs_value_2Dstore_2Dlookup;

case 2185: /* 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(2186);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2311);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_K);
    goto gs_make_2Dannotated_2Dprocedure;

case 2186: /* 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(2187);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("make-record")));
    goto gs_value_2Dstore_2Dlookup;

case 2187: /* 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(2188);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2310);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD);
    goto gs_make_2Dannotated_2Dprocedure;

case 2188: /* 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(2189);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("record-type-descriptor")));
    goto gs_value_2Dstore_2Dlookup;

case 2189: /* 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(2190);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2309);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD);
    goto gs_make_2Dannotated_2Dprocedure;

case 2190: /* 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(2191);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("record-length")));
    goto gs_value_2Dstore_2Dlookup;

case 2191: /* 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(2192);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2308);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD_INDEX);
    goto gs_make_2Dannotated_2Dprocedure;

case 2192: /* 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(2193);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("record-ref")));
    goto gs_value_2Dstore_2Dlookup;

case 2193: /* 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(2194);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2307);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_RECORD_INDEX_OBJ);
    goto gs_make_2Dannotated_2Dprocedure;

case 2194: /* 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(2195);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("record-set!")));
    goto gs_value_2Dstore_2Dlookup;

case 2195: /* 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(2196);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2306);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 2196: /* 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(2197);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("new-record-type")));
    goto gs_value_2Dstore_2Dlookup;

case 2197: /* 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(2198);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Dinput_2Dfrom_2Dport);
    r[2] = obj_from_fixnum(ARGCHECK_IPORT_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 2198: /* 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(2199);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-input-from-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2199: /* 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(2200);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_with_2Doutput_2Dto_2Dport);
    r[2] = obj_from_fixnum(ARGCHECK_OPORT_THUNK);
    goto gs_make_2Dannotated_2Dprocedure;

case 2200: /* 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(2201);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("with-output-to-port")));
    goto gs_value_2Dstore_2Dlookup;

case 2201: /* 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(2202);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2305);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END_IPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2202: /* 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(2203);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-substring!")));
    goto gs_value_2Dstore_2Dlookup;

case 2203: /* 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(2204);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2304);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_START_END_IPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2204: /* 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(2205);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("read-subbytevector!")));
    goto gs_value_2Dstore_2Dlookup;

case 2205: /* 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(2206);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2303);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING_START_END_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2206: /* 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(2207);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-substring")));
    goto gs_value_2Dstore_2Dlookup;

case 2207: /* 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(2208);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2302);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_U8VECTOR_START_END_OPORT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2208: /* 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(2209);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("write-subbytevector")));
    goto gs_value_2Dstore_2Dlookup;

case 2209: /* 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(2210);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2301);
    r[4] = (hendblk(0+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 2210: /* 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(2211);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("void")));
    goto gs_value_2Dstore_2Dlookup;

case 2211: /* 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(2212);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2300);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_LIST);
    goto gs_make_2Dannotated_2Dprocedure;

case 2212: /* 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(2213);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("reverse!")));
    goto gs_value_2Dstore_2Dlookup;

case 2213: /* 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(2214);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2299);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_STRING);
    goto gs_make_2Dannotated_2Dprocedure;

case 2214: /* 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(2215);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("system")));
    goto gs_value_2Dstore_2Dlookup;

case 2215: /* 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(2216);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = (cx_print_2Dprocedure);
    r[2] = obj_from_fixnum(ARGCHECK_PROC);
    goto gs_make_2Dannotated_2Dprocedure;

case 2216: /* 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(2217);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("print-procedure")));
    goto gs_value_2Dstore_2Dlookup;

case 2217: /* 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(2218);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2298);
    r[4] = (hendblk(0+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 2218: /* 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(2219);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2219: /* 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(2220);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2297);
    r[4] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_ENVIRONMENT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2220: /* 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(2221);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("set-current-environment!")));
    goto gs_value_2Dstore_2Dlookup;

case 2221: /* 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(2222);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2296);
    r[4] = (hendblk(0+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 2222: /* 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(2223);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-macro-store")));
    goto gs_value_2Dstore_2Dlookup;

case 2223: /* 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(2224);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2295);
    r[4] = (hendblk(0+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 2224: /* 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(2225);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("current-value-store")));
    goto gs_value_2Dstore_2Dlookup;

case 2225: /* 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(2226);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2294);
    r[4] = (hendblk(0+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 2226: /* 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(2227);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("root-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2227: /* 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(2228);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2293);
    r[4] = (hendblk(0+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 2228: /* 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(2229);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("initial-value-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2229: /* 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(2230);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2292);
    r[4] = (hendblk(0+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 2230: /* 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(2231);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("initial-macro-environment")));
    goto gs_value_2Dstore_2Dlookup;

case 2231: /* 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(2232);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2291);
    r[4] = (hendblk(0+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 2232: /* 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(2233);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("library-info-cache")));
    goto gs_value_2Dstore_2Dlookup;

case 2233: /* 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(2234);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2287);
    r[4] = (hendblk(0+1));
    hreserve(hbsz(0+1), 5); /* 5 live regs */
    *--hp = obj_from_case(2289);
    r[5] = (hendblk(0+1));
    { /* vector */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(3+1)); }
    { /* make-argc-dispatch-lambda */
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_objptr(appcases+3);
    r[4] = (hendblk(2)); }
    r[0] = r[3];  
    r[1] = r[4];  
    r[2] = obj_from_fixnum(ARGCHECK_OBJ_ENVIRONMENT_OPT);
    goto gs_make_2Dannotated_2Dprocedure;

case 2234: /* 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(2235);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("expand")));
    goto gs_value_2Dstore_2Dlookup;

case 2235: /* 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(2236);
    r[3] = (hendblk(0+1));
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2286);
    r[4] = (hendblk(0+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 2236: /* 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(2237);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (mksymbol(internsym("lis3")));
    goto gs_value_2Dstore_2Dlookup;

case 2237: /* 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(ints_init_code, NULL)));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(2238);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = obj_from_bool(0);
    goto gs__25read;

case 2238: /* 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(2242);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v28967;

case 2239: /* 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_v28967: /* 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(2239);
    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(2240);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_scheme_2Deval);
    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 2240: /* 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(2241);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    r[2] = obj_from_bool(0);
    goto gs__25read;

case 2241: /* 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 2242: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    r += 1; /* shift reg. wnd */
    /* ek . */
    r[2] = (cx__2Acurrent_2Dvalue_2Dstore_2A);
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(2243);
    r[3] = (hendblk(0+1));
    r[0] = r[3];  
    r[1] = r[2];  
    r[2] = (mknull());
    goto s_loop_v28956;

s_loop_v28956: /* k l e */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(issymbol((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[5] = (car((r[1])));
    r[5] = (car((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v28956;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v28956;
  }
  }

case 2243: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    cx__2Ainitial_2Dvalue_2Denvironment_2A = r[1];  
    r[2] = (car((cx__2Acurrent_2Dmacro_2Dstore_2A)));
    { fixnum_t v43495_tmp;
    { /* length */
    int n; obj l = (cx__2311044);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43495_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43495_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = (cx__2311044); t = (cx_root_2Denvironment); /* 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); } }
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(2244);
    r[4] = (hendblk(0+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v28945;

s_loop_v28945: /* k l e */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(issymbol((r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[5] = (car((r[1])));
    r[5] = (car((r[5])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v28945;
  } else {
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v28945;
  }
  }

case 2244: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    cx__2Ainitial_2Dmacro_2Denvironment_2A = r[1];  
    { fixnum_t v43493_tmp;
    { /* length */
    int n; obj l = (cx__2Ainitial_2Dvalue_2Denvironment_2A);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43493_tmp = (n); }
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(2245);
    r[2] = (hendblk(0+1));
    { /* append */
    obj t, l, o, *p, *d; int c = (v43493_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = (cx__2Ainitial_2Dvalue_2Denvironment_2A); 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[2] = (o); } }
    { fixnum_t v43494_tmp;
    { /* length */
    int n; obj l = (cx__2Ainitial_2Dmacro_2Denvironment_2A);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43494_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43494_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = (cx__2Ainitial_2Dmacro_2Denvironment_2A); 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; }  
    cx__2Arepl_2Dbase_2Denvironment_2A = (o); } }
    { static obj c[] = { obj_from_case(2246) }; cx_fprintf_2A = (obj)c; }
    { static obj c[] = { obj_from_case(2248) }; cx_scheme_2Deval_2D_3Elist = (obj)c; }
    { static obj c[] = { obj_from_case(2250) }; cx_int_2Dpp = (obj)c; }
    { static obj c[] = { obj_from_case(2251) }; cx_int_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(2259) }; cx_greet_2Donce = (obj)c; }
    { static obj c[] = { obj_from_case(2261) }; cx_int_2Drepl = (obj)c; }
    { static obj c[] = { obj_from_case(2270) }; 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 2245: /* clo k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k id */
    r[2] = (hpushstr(2, newstring(symbolname(getsymbol((r[1]))))));
    { /* string-append */
    int *d = stringcat(stringdata((cx__231472)), stringdata((r[2])));
    r[2] = (hpushstr(3, d)); }
    { /* string-append */
    int *d = stringcat(stringdata((cx__2311086)), stringdata((r[2])));
    r[2] = (hpushstr(3, d)); }
    r[2] = (mksymbol(internsym(stringchars((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 2246: /* fprintf* k port fstr olst */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_fprintf_2A: /* k port fstr olst */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(2247);
    r[4] = (hendblk(3+1));
    r[5+0] = (cx_string_2D_3Elist);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2247: /* 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 port olst 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 s_loop_v28916;

s_loop_v28916: /* k flst olst port */
  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[4] = (car((r[1])));
    r[4] = obj_from_bool(char_from_obj(r[4]) == ('~'));
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[1])));
    r[4] = obj_from_bool(ispair((r[4])));
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
  if ((char_from_obj(r[4]) == ('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 {
    r[5] = (car((r[2])));
    (void)(oportputcircular((r[5]), (r[3]), 1));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    r[6] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    goto s_loop_v28916;
  }
  } else {
  if ((char_from_obj(r[4]) == ('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 {
    r[5] = (car((r[2])));
    (void)(oportputcircular((r[5]), (r[3]), 0));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    r[6] = (cdr((r[2])));
    /* r[0] */    
    r[1] = r[5];  
    r[2] = r[6];  
    /* r[3] */    
    goto s_loop_v28916;
  }
  } else {
  if ((char_from_obj(r[4]) == ('%'))) {
    (void)(oportputc('\n', (r[3])));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    /* r[0] */    
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v28916;
  } else {
  if ((char_from_obj(r[4]) == ('~'))) {
    (void)(oportputc(('~'), (r[3])));
    r[5] = (cdr((r[1])));
    r[5] = (cdr((r[5])));
    /* r[0] */    
    r[1] = r[5];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v28916;
  } 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[4] = (car((r[1])));
    (void)(oportputc(char_from_obj(r[4]), (r[3])));
    r[4] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v28916;
  }
  }

case 2248: /* 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(2249);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_scheme_2Deval);
    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 2249: /* 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 2250: /* int-pp k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    r[2] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    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 2251: /* int-rep k port */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_int_2Drep: /* k port */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2252);
    r[2] = (hendblk(1+1));
    r[3+0] = r[2];  
    r[3+1] = r[1];  
    r[3+2] = obj_from_bool(0);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;

case 2252: /* 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 {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__2311233), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (cxs_sexp_2Dmatch_3F((cx__2311224), (r[3])));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(2253);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx_scheme_2Deval);
    r[4+2] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_load_2Dimport_2Dsets;
  } else {
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("compiler")));
    r[3+3] = (cx__2311218);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__2311215), (r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = (cxs_sexp_2Dmatch_3F((cx__2311208), (r[3])));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(isstring((r[3])));
  if (bool_from_obj(r[3])) {
    /* r[3] */    
  } else {
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[3] = (cxs_sexp_2Dmatch_3F((cx__2311200), (r[4])));
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(2255);
    r[3] = (hendblk(2+1));
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_make_2Dlib;
  } else {
    r[3+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (mksymbol(internsym("compiler")));
    r[3+3] = (cx__2311159);
    r[3+4] = (r[1]);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(2258);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scheme_2Deval_2D_3Elist;
  }
  }
  }

case 2253: /* 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 */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(2254);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (cx__2Acurrent_2Denvironment_2A);
    goto gs_adjoin_2Denv_2Fshadow;

case 2254: /* 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 */
    cx__2Acurrent_2Denvironment_2A = r[1];  
    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 2255: /* 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(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(2256);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_lookup_2Dlibrary_2Dinfo;

case 2256: /* 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] = (vectorref((r[1]), (+0)));
    r[5] = obj_from_bool(!bool_from_obj(r[5]));
  if (bool_from_obj(r[5])) {
    r[5] = (cdr((r[2])));
    r[5] = (cdr((r[5])));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2257);
    r[6] = (hendblk(1+1));
    r[7+0] = r[4];  
    r[7+1] = r[3];  
    r[7+2] = r[5];  
    r[7+3] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine_2Dlibrary_2Ddecls;
  } else {
    r[5+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (mksymbol(internsym("compiler")));
    r[5+3] = (cx__2311165);
    r[5+4] = (r[3]);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 2257: /* clo k used-libs import-env export-specs beg-forms */
    assert(rc == 6);
    { obj* p = objptr_from_obj(r[0]);
    r[1+5] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k used-libs import-env export-specs beg-forms r */
    (void)(vectorref((r[5]), (+0)) = (r[1]));
    (void)(vectorref((r[5]), (+1)) = (r[2]));
    (void)(vectorref((r[5]), (+2)) = (r[3]));
    (void)(vectorref((r[5]), (+3)) = (r[4]));
    r[6] = obj_from_bool(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 2258: /* 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_loop_v28841;

s_loop_v28841: /* 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])));
  if ((!((r[2]) == obj_from_void(0)))) {
    (void)(oportputcircular((r[2]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
  }
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    goto s_loop_v28841;
  }

case 2259: /* 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(2260);
    r[1] = (hendblk(1+1));
    r[2+0] = r[1];  
    r[2+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[2+2] = (cx__2311241);
    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 2260: /* 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 2261: /* int-repl k port */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_int_2Drepl: /* k port */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(2262);
    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_v28785;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(2269);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    goto gs_greet_2Donce;
  }

case 2262: /* 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_v28785: /* ek . port k */
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v28786;

case 2263: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v28786: /* k port */
    (void)(oportputcircular((cx__2311250), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2263);
    r[2] = (hendblk(1+1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(2264);
    r[2] = (hendblk(2+1));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2265);
    r[3] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = r[3];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 2264: /* 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 2265: /* clo k return */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k return port */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(2266);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2267);
    r[4] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_set_2Dreset_2Dhandler_21;

case 2266: /* 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 k */
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_int_2Drep;

case 2267: /* 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(2268);
    r[2] = (hendblk(2+1));
    r[3+0] = r[2];  
    r[3+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[3+2] = (cx__2311247);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2268: /* 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 2269: /* 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__2311255);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2270: /* main k argv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k argv */
    cx__2Acurrent_2Denvironment_2A = (cx__2Arepl_2Dbase_2Denvironment_2A);
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2271);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    r[1] = (cx__2311319);
    goto gs_add_2Dlibrary_2Dpath_21;

case 2271: /* 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(2272);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    goto gs_command_2Dline;

case 2272: /* 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_v28687;

case 2273: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v28687: /* k args */
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(2273);
    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_int_2Drepl;
  }
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__2311313))) == 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_v28687;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__2311309))) == 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_v28687;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__2311305))) == 0);
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = obj_from_bool(ispair((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(2274);
    r[3] = (hendblk(3+1));
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_add_2Dlibrary_2Dpath_21;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__2311291))) == 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__2311294))) == 0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2275);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__2311265);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;
  } else {
    { bool_t v43492_tmp;
    r[3] = (car((r[1])));
    { /* file-exists? */ 
    FILE *f = fopen(stringchars((r[3])), "r");
    if (f != NULL) fclose(f);
    v43492_tmp = (f != NULL); }
    r[3] = obj_from_bool(!(v43492_tmp)); }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2280);
    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__2311286);
    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(2281);
    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_v28695;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(2285);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    goto gs_greet_2Donce;
  }
  }
  }
  }
  }
  }
  }

case 2274: /* 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[5] = (cdr((r[3])));
    r[5] = (cdr((r[5])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2275: /* 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(2276);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__2311264);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2276: /* 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(2277);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__2311263);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2277: /* 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(2278);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__2311262);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2278: /* 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(2279);
    r[3] = (hendblk(1+1));
    r[4+0] = r[3];  
    r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r[4+2] = (cx__2311261);
    r[4+3] = (mknull());
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2279: /* 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 2280: /* 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 2281: /* 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_v28695: /* 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(2282);
    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_v28697;
  } 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__2311278);
    r[3] = r[6];  
    goto gs_fprintf_2A;
  }

case 2282: /* 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_v28697: /* 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(2283);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = (mksymbol(internsym("load")));
    goto gs_value_2Dstore_2Dlookup;

case 2283: /* 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(2284);
    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 2284: /* 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 2285: /* 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__2311255);
    r[3+3] = (mknull());
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_fprintf_2A;

case 2286: /* clo k x y z */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x y z */
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = ((hp = cxa_lis3(r, 4, hp, (r[1]), (r[2]), (r[3])), *hp++));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2287: /* clo k x environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x environment */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2288);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_scheme_2Dexpand_2Dto_2Dlist);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2288: /* 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 = 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] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2289: /* clo 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(2290);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_scheme_2Dexpand_2Dto_2Dlist);
    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 2290: /* 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 = 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] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2291: /* 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] = (cx__2Alibrary_2Dinfo_2Dcache_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2292: /* 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] = (cx__2Ainitial_2Dmacro_2Denvironment_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2293: /* 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] = (cx__2Ainitial_2Dvalue_2Denvironment_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2294: /* 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] = (cx_root_2Denvironment);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2295: /* 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] = (cx__2Acurrent_2Dvalue_2Dstore_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2296: /* 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] = (cx__2Acurrent_2Dmacro_2Dstore_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2297: /* clo k e */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k e */
    cx__2Acurrent_2Denvironment_2A = 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 2298: /* 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] = (cx__2Acurrent_2Denvironment_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2299: /* 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 2300: /* 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 2301: /* 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 2302: /* clo k from start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k from start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2303: /* clo k from start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k from start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2304: /* clo k vec start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2305: /* clo k str start end p */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str start end p */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2306: /* clo k name fields */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name fields */
    { /* 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 2307: /* clo k r i x */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k r 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(recordref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 2309: /* clo k r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k r */
    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(recordlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 2311: /* clo k rtd n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k rtd n */
    { /* make-record */
    int c = fixnum_from_obj(r[2]);
    hreserve(hbsz(c+1), 3); /* 3 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = r[1];   assert(isobjptr(*hp));
    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 2312: /* clo k bv start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k bv start end */
    { /* subbytevector */
    int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
    r[4] = (hpushu8v(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 2313: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2314: /* clo k vec x start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k vec x start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2315: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2316: /* clo k str start end */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k str start end */
    { /* new-vector */
    int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
    hreserve(hbsz(c+1), 4); /* 4 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--hp = obj_from_size(VECTOR_BTAG);
    r[4] = (hendblk(c+1)); }
    r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (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;

case 2317: /* clo k str c start end */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k str c start end */
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2318: /* clo k to at from start end */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
    /* k to at from start end */
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2319: /* 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 2320: /* 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 2321: /* clo 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 2322: /* 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_byte_obj((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2323: /* 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(iscircular((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2324: /* 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] = (cxs_features());
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2325: /* 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 2326: /* 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 2327: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1] = obj_from_flonum(1, difftime(time(NULL), 0)+37.0);
    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 2328: /* 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 2329: /* 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 2330: /* clo k name ?environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k name ?environment */
    r[3] = ((ispair((cx_environment))) ? (car((r[2]))) : (cx__2Acurrent_2Denvironment_2A));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(2331);
    r[4] = (hendblk(2+1));
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r[5+3] = obj_from_bool(0);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_for_2Deach_2Dfile_2Flib_2Dsexp;

case 2331: /* clo k sexp */
    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 sexp env name */
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__2310914), (r[1])))) {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__2310910);
    r[4+3] = r[3];  
    r[4+4] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if (bool_from_obj(cxs_sexp_2Dmatch_3F((cx__2310911), (r[1])))) {
    r[4+0] = (cx_error);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__2310910);
    r[4+3] = r[3];  
    r[4+4] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[4+0] = (cx_scheme_2Deval);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 2332: /* 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_void(oportputc(fixnum_from_obj(r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2333: /* 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_void(oportputc(fixnum_from_obj(r[1]), (cx__2Acurrent_2Doutput_2Dport_2A)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2334: /* 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_void(oportflush((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2335: /* 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(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2336: /* 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_void(oportputsimple((r[1]), (r[2]), 0));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2337: /* 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_void(oportputsimple((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2338: /* 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_void(oportputshared((r[1]), (r[2]), 0));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2339: /* 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_void(oportputshared((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2340: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = (cx_read_2Dbytevector);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2341: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = (cx_read_2Dbytevector);
    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 2342: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = (cx_read_2Dstring);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2343: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = (cx_read_2Dstring);
    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 2344: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    /* r[0] */    
    /* r[1] */    
    goto gs__25read_2Dline;

case 2345: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    r[1+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read_2Dline;

case 2346: /* 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(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2347: /* 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_bool(1);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2348: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { int c = iportpeekc((r[1]));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
    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 2349: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A));  r[1] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
    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 2350: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { int c = iportgetc((r[1]));  r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
    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 2351: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A));  r[1] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
    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 2352: /* 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] = (mkeof());
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2353: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* get-output-bytevector */
    obj o = r[1];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG &&
        vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[2] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf); 
    r[2] = (hpushu8v(2, newbytevector((unsigned char *)pcb->buf, len))); } }
    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 2354: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { /* open-output-bytevector */
    r[1] = (mkoport_bytevector(1, newcb())); }
    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 2355: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* get-output-string */
    obj o = r[1];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[2] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[2] = (hpushstr(2, newstring(cbdata(pcb)))); } }
    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 2356: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { /* open-output-string */
    r[1] = (mkoport_string(1, newcb())); }
    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 2357: /* 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_bool(ckoportvt((r[1])) != (cxtype_oport_t *)OPORT_CLOSED_NTAG);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2358: /* 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_bool(ckiportvt((r[1])) != (cxtype_iport_t *)IPORT_CLOSED_NTAG);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2359: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* open-input-bytevector */
    int *d = dupbytevector(bytevectordata((r[1])));
    unsigned char *p = bvdatabytes(d), *e = p + *d;
    r[2] = (mkiport_bytevector(2, bvialloc(p, e, 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 2360: /* 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 2361: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Derror_2Dport_2A = r[1];  
    r[3] = obj_from_void(0);
  } else {
    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 2362: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    cx__2Acurrent_2Derror_2Dport_2A = 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 2363: /* 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] = (cx__2Acurrent_2Derror_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2364: /* 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] = (cxs_close_2Dport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2365: /* 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_2Dport_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2366: /* 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_2Dport_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2367: /* 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_2Dport_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2368: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    hreserve(hbsz(0+1), 1); /* 1 live regs */
    *--hp = obj_from_case(2369);
    r[1] = (hendblk(0+1));
    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 2369: /* clo k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k id */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (cx__2Acurrent_2Denvironment_2A);
    r[2+3] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_env_2Dlookup;

case 2370: /* clo k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
  if (((((r[1]) == obj_from_fixnum(+5)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    r[2+0] = (cx_environment);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__2310822);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = (cx_error);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__2310821);
    r[2+3] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 2371: /* clo k n */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k n */
  if (((((r[1]) == obj_from_fixnum(+5)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    r[2+0] = (cx_environment);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__2310806);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = (cx_error);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = (cx__2310805);
    r[2+3] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

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

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

case 2374: /* clo k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    { /* record? */
    obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E); 
    if (!isrecord(o)) r[2] = obj_from_bool(0);
    else r[2] = obj_from_bool(recordrtd(o) == t); }
    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 2375: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = (cx_bytevector_2Dappend);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2376: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = (cx_bytevector_2Dappend);
    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 2377: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = (cx_bytevector_2Dappend);
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = r[0];  
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 2378: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43491_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43491_tmp = (n); }
    { /* list->bytevector */
    int i, c = (v43491_tmp); 
    obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */
    obj l = r[1];   /* gc-safe */
    unsigned char *s = bytevectorbytes(o);
    for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_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 2379: /* clo k bv k b */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k bv k b */
    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(*bytevectorref((r[1]), fixnum_from_obj(r[2])) = byte_from_fixnum(fixnum_from_obj(r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2380: /* clo k bv k */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k bv 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_fixnum(*bytevectorref((r[1]), fixnum_from_obj(r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2381: /* 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(bytevectoreq(bytevectordata((r[1])), bytevectordata((r[2]))));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2382: /* clo k bv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k bv */
    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(bytevectorlen((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2383: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = (hpushu8v(3, makebytevector(fixnum_from_obj(r[1]), byte_from_fixnum(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 2384: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (hpushu8v(2, allocbytevector(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 2385: /* 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(isbytevector((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2386: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3+0] = (cx_vector_2Dappend);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2387: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = (cx_vector_2Dappend);
    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 2388: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = (cx_vector_2Dappend);
    pc = objptr_from_obj(r[1+0])[0];
    r[1+1] = r[0];  
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 2389: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-downcase */
    int *d = dupstring(stringdata((r[1]))); char *s;
    for (s = sdatachars(d); *s; ++s) *s = tolower(*s);
    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 2390: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-downcase */
    int *d = dupstring(stringdata((r[1]))); char *s;
    for (s = sdatachars(d); *s; ++s) *s = tolower(*s);
    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 2391: /* clo k s */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k s */
    { /* string-upcase */
    int *d = dupstring(stringdata((r[1]))); char *s;
    for (s = sdatachars(d); *s; ++s) *s = toupper(*s);
    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 2392: /* 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 2393: /* 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 2394: /* 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 2395: /* 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 2396: /* 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 2397: /* 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 2398: /* 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 2399: /* 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 2400: /* 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 2401: /* 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 2402: /* 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_2Ddigit_2Dvalue((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2403: /* 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 2404: /* 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 2405: /* 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 2406: /* 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 2407: /* 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 2408: /* 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 2409: /* 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 2410: /* 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 2411: /* 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 2412: /* 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 2413: /* 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 2414: /* 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(getsymbol((r[1])) == getsymbol((r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

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

case 2416: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_void(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25make_2Dlist;

case 2417: /* 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(bool_from_obj(r[1]) == bool_from_obj(r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2418: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = obj_from_fixnum(fxsqrt(fixnum_from_obj(r[1])));
    { const fixnum_t v43489_b = (fxmul(fixnum_from_obj(r[2]), fixnum_from_obj(r[2])));
  if ((is_fixnum_obj(r[1]))) {
    r[3] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (v43489_b)));
  } else {
    { const flonum_t v43490_tmp = ((flonum_t)(v43489_b));
    r[3] = obj_from_flonum(3, flonum_from_obj(r[1]) - (v43490_tmp)); } 
  } } 
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--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 2419: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if ((fixnum_from_obj(r[2]) == (+10))) {
    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, log10(flonum_from_obj(r[3])));
  } else {
    { flonum_t v43488_tmp;
    { flonum_t v43487_tmp;
    r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
    v43488_tmp = (log(flonum_from_obj(r[3])));
    r[3] = ((is_flonum_obj(r[2])) ? (r[2]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[2])));
    v43487_tmp = (log(flonum_from_obj(r[3])));
    r[3] = obj_from_flonum(3, (v43488_tmp) / (v43487_tmp)); } }
  }
    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 2420: /* clo 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 2421: /* 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_2Dinfinite_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2422: /* 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_2Dfinite_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2423: /* 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_2Dnan_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2424: /* 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 2425: /* 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_2Dexact((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2426: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2427);
    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] = (cx__25residual_2Dmake_2Dcase_2Dlambda);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2427: /* 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] */    
    r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2428: /* clo k args */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k args */
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(2429);
    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] = (cx_make_2Dparameter);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2429: /* 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] */    
    r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+2)));
    goto gs_make_2Dannotated_2Dprocedure;

case 2430: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* box */ 
    hreserve(hbsz(2), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_size(BOX_BTAG); 
    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 2431: /* clo k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_bool(1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* box */ 
    hreserve(hbsz(2), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_size(BOX_BTAG); 
    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 2432: /* 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(isbox((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2433: /* 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_void(oportputc('\n', (r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2434: /* 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(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2435: /* 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_void(oportputc(char_from_obj(r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2436: /* 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_void(oportputc(char_from_obj(r[1]), (cx__2Acurrent_2Doutput_2Dport_2A)));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2437: /* 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_void(oportputcircular((r[1]), (r[2]), 1));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2438: /* 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_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2439: /* 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_void(oportputcircular((r[1]), (r[2]), 0));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2440: /* 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_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2441: /* 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(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2442: /* 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_bool(1);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2443: /* 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 2444: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { int c = iportpeekc((r[1]));  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 2445: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A));  r[1] = (c == EOF ? mkeof() : obj_from_char(c)); }
    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 2446: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { int c = iportgetc((r[1]));  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 2447: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    { int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A));  r[1] = (c == EOF ? mkeof() : obj_from_char(c)); }
    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 2448: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;

case 2449: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    r[1+0] = r[0];  
    r[1+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r[1+2] = obj_from_bool(0);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs__25read;

case 2450: /* clo k p */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k p */
    { /* close-output-port */
    obj o = r[1];   cxtype_oport_t *vt = oportvt(o); assert(vt);
    vt->close(oportdata(o)); vt->free(oportdata(o)); 
    objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; 
    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 2451: /* 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);
    vt->close(iportdata(o)); vt->free(iportdata(o));  
    objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG; 
    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 2452: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Doutput_2Dport_2A = r[1];  
    r[3] = obj_from_void(0);
  } else {
    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 2453: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    cx__2Acurrent_2Doutput_2Dport_2A = 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 2454: /* 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] = (cx__2Acurrent_2Doutput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2455: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (bool_from_obj(r[2])) {
    cx__2Acurrent_2Dinput_2Dport_2A = r[1];  
    r[3] = obj_from_void(0);
  } else {
    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 2456: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    cx__2Acurrent_2Dinput_2Dport_2A = 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 2457: /* 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] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2458: /* 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 2459: /* 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(isiport((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2460: /* clo k x environment */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x environment */
    r[3+0] = (cx_scheme_2Deval);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[1];  
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 2461: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = (cx_scheme_2Deval);
    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 2462: /* 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(2463);
    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 2463: /* 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])) {
    r[4] = (cdr((r[1])));
    { fixnum_t v43486_tmp;
    r[5] = (cdr((r[1])));
    { /* length */
    int n; obj l = r[5];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43486_tmp = (n); }
    r[5] = (argcheck((r[3]), (v43486_tmp), (r[4]))); }
  if ((!(isimm((r[5]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[5]) == (ACRES_APPLY))) {
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[6] = obj_from_objptr(c); }
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = r[3];  
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[6] = (cdr((r[1])));
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[6] = obj_from_fixnum(n); }
    r[0] = r[2];  
    r[1] = r[6];  
    r[2] = r[5];  
    /* r[3] */    
    /* r[4] */    
    goto gs_scheme_2Dcall_2Derror;
  }
  }
  } else {
    r[4] = (argcheck((r[3]), 1, 0, (r[1])));
  if ((!(isimm((r[4]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[4]) == (ACRES_APPLY))) {
    r[5+0] = r[3];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[2];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* 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] = r[2];  
    r[6+1] = obj_from_fixnum(+1);
    r[6+2] = r[4];  
    r[6+3] = r[3];  
    r[6+4] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }
  }

case 2464: /* 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 2465: /* 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(2466);
    r[2] = (hendblk(1+1));
    /* r[0] */    
    r[1] = r[2];  
    goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;

case 2466: /* 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(2467);
    r[3] = (hendblk(2+1));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(2468);
    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 2467: /* 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 2468: /* 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 2469: /* clo k x a*l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x a*l */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(2470);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_splice_2Dlast_2Dlist;

case 2470: /* 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 */
    { fixnum_t v43485_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43485_tmp = (n); }
    r[4] = (argcheck((r[3]), (v43485_tmp), (r[1]))); }
  if ((!(isimm((r[4]), ARCRES_ITAG)))) {
    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;
  } else {
  if (((r[4]) == (ACRES_APPLY))) {
    { /* 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[2];  
    r[6+2] = r[3];  
    r[6+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[5] = obj_from_fixnum(n); }
    r[6+0] = r[2];  
    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);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 2471: /* clo k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    { fixnum_t v43484_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43484_tmp = (n); }
    r[3] = (argcheck((r[1]), (v43484_tmp), (r[2]))); }
  if ((!(isimm((r[3]), ARCRES_ITAG)))) {
    /* 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 {
  if (((r[3]) == (ACRES_APPLY))) {
    { /* 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[0];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
    r[5+0] = r[0];  
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[1];  
    r[5+4] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_scheme_2Dcall_2Derror;
  }
  }

case 2472: /* 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 2473: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43483_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43483_tmp = (n); }
    { /* list->vector */
    obj l; int i, c = (v43483_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 2474: /* 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 2475: /* 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 2476: /* 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 2477: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { /* 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 2478: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* new-vector */
    int c = fixnum_from_obj(r[1]);
    hreserve(hbsz(c+1), 2); /* 2 live regs */
    hp -= c; memset(hp, 0, c * sizeof(obj));
    *--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 2479: /* 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 2480: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43482_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43482_tmp = (n); }
    { /* list->string */
    int i, c = (v43482_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 2481: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { /* 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 2482: /* 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 2483: /* 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] = (cx__233975);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2484: /* 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 2485: /* 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 2486: /* 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 2487: /* 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 2488: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    r[3] = (hpushstr(3, allocstring(fixnum_from_obj(r[1]), char_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 2489: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2] = (hpushstr(2, allocstring(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 2490: /* 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 2491: /* 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 2492: /* 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 2493: /* 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 2494: /* 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 2495: /* 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 2496: /* 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 2497: /* 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 2498: /* 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 2499: /* 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 2500: /* 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 2501: /* 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])))));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2502: /* 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 2503: /* 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 2504: /* 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 2505: /* 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 2506: /* 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 2507: /* 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 2508: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { fixnum_t v43481_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43481_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v43481_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 2509: /* clo k x y z t */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k x y z t */
    { fixnum_t v43478_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43478_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43478_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[3];   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[5] = (o); } }
    { fixnum_t v43479_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43479_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43479_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[2];   t = r[5];   /* 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); } }
    { fixnum_t v43480_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43480_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43480_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[1];   t = r[5];   /* 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[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 2510: /* clo k x y z */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x y z */
    { fixnum_t v43476_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43476_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43476_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[2];   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); } }
    { fixnum_t v43477_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43477_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43477_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[1];   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[4] = (o); } }
    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 2511: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { fixnum_t v43475_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v43475_tmp = (n); }
    { /* append */
    obj t, l, o, *p, *d; int c = (v43475_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 2512: /* 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 2513: /* 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 2514: /* 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 2515: /* 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 2516: /* 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 2517: /* clo 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 2518: /* clo 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 2519: /* clo 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 2520: /* clo 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 2521: /* 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 2522: /* 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 2523: /* 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 2524: /* 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 2525: /* 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 2526: /* 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 2527: /* 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 2528: /* 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 2529: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[1]));
    int radix = fixnum_from_obj(r[2]); long l; double d;
    if (0) r[3] = (0); /* to fool sfc unboxer */
    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 2530: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* string->fixnum-or-flonum */
    char *s = stringchars((r[1]));
    int radix = (+10); long l; double d;
    if (0) r[2] = (0); /* to fool sfc unboxer */
    switch (strtofxfl(s, radix, &l, &d)) {
    case 'e': r[2] = obj_from_fixnum(l); break;
    case 'i': r[2] = obj_from_flonum(2, d); break;
    default : r[2] = obj_from_bool(0); break;
    } }
    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 2531: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
    { /* 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 2532: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
  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[2] = (hpushstr(2, newstring(s))); }
  } else {
    { /* flonum->string */
    char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
    for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
    if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
    else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; 
    else 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 2533: /* 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_2Dexact((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2534: /* 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 2535: /* 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 2536: /* 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 2537: /* 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 2538: /* 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 2539: /* 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 2540: /* clo k x y z t */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k x y z t */
    r[5+0] = (cx__25residual_2Dmin);
    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+5] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 2541: /* clo k x y z */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x y z */
    r[4+0] = (cx__25residual_2Dmin);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r[4+4] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 2542: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (((is_fixnum_obj(r[1])) && (is_fixnum_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] = ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs__25residual_2Dmin_2F2;
  }

case 2543: /* 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 2544: /* clo k x y z t */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
    /* k x y z t */
    r[5+0] = (cx__25residual_2Dmax);
    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+5] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;

case 2545: /* clo k x y z */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k x y z */
    r[4+0] = (cx__25residual_2Dmax);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r[4+4] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 2546: /* clo k x y */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x y */
  if (((is_fixnum_obj(r[1])) && (is_fixnum_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] = ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs__25residual_2Dmax_2F2;
  }

case 2547: /* 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 2548: /* 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 2549: /* 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 2550: /* 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 2551: /* 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 2552: /* 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 2553: /* 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 2554: /* 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 2555: /* 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 2556: /* 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 2557: /* 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 2558: /* 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 2559: /* 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 2560: /* 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 2561: /* 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 2562: /* 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;

case 2563: /* clo k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    { /* record? */
    obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E); 
    if (!isrecord(o)) r[2] = obj_from_bool(0);
    else r[2] = obj_from_bool(recordrtd(o) == t); }
  if (bool_from_obj(r[2])) {
    { /* define apply */
    static obj c[] = { obj_from_objptr(appcases+0) }; 
    r[2] = obj_from_objptr(c); }
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx_simple_2Derror);
    r[3+3] = (recordref((r[1]), (+0)));
    r[3+4] = (recordref((r[1]), (+1)));
    r[3+5] = (recordref((r[1]), (+2)));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 6;
    goto jump;
  } else {
    r[2+0] = (cx_simple_2Derror);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = obj_from_bool(0);
    r[2+3] = (cx__232182);
    r[2+4] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 2564: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k default-handler */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (objptr_from_obj(r[1])[0]);
    r += 2; /* 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; 
}