/* s5iof.sf */
/* Generated by #F $Id$ */
#ifdef PROFILE
#define host host_module_s5iof
#endif
#define MODULE module_s5iof
#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 isimm(o, t) (((o) & 0xff) == (((t) << 1) | 1))
long getimmu(obj o, int t) {
assert(isimm(o, t));
return (long)((o >> 8) & 0xffffff);
}
long getimms(obj o, int t) {
assert(isimm(o, t));
return (long)((((o >> 8) & 0xffffff) ^ 0x800000) - 0x800000);
}
#ifdef NDEBUG
#define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
#define getimms(o, t) (long)(((((o) >> 8) & 0xffffff) ^ 0x800000) - 0x800000)
#else
extern long getimmu(obj o, int t);
extern long getimms(obj o, int t);
#endif
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 1) | 1)
#ifndef NDEBUG
int isnative(obj o, cxtype_t *tp) {
return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp;
}
void *getnative(obj o, cxtype_t *tp) {
assert(isnative(o, tp));
return (void*)(*objptr_from_obj(o));
}
#endif
#ifdef NDEBUG
static int isnative(obj o, cxtype_t *tp)
{ return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; }
#define getnative(o, t) ((void*)(*objptr_from_obj(o)))
#else
extern int isnative(obj o, cxtype_t *tp);
extern void *getnative(obj o, cxtype_t *tp);
#endif
int istagged(obj o, int t) {
if (!isobjptr(o)) return 0;
else { obj h = objptr_from_obj(o)[-1];
return notaptr(h) && size_from_obj(h) >= 1
&& hblkref(o, 0) == obj_from_size(t); }
}
obj cktagged(obj o, int t) {
assert(istagged(o, t));
return o;
}
int taggedlen(obj o, int t) {
assert(istagged(o, t));
return hblklen(o) - 1;
}
obj* taggedref(obj o, int t, int i) {
int len; assert(istagged(o, t));
len = hblklen(o);
assert(i >= 0 && i < len-1);
return &hblkref(o, i+1);
}
extern int istagged(obj o, int t);
#ifdef NDEBUG
#define cktagged(o, t) (o)
#define taggedlen(o, t) (hblklen(o)-1)
#define taggedref(o, t, i) (&hblkref(o, (i)+1))
#else
extern obj cktagged(obj o, int t);
extern int taggedlen(obj o, int t);
extern obj* taggedref(obj o, int t, int i);
#endif
/* booleans */
#define TRUE_ITAG 0
typedef int bool_t;
#define is_bool_obj(o) (!((o) & ~(obj)1))
#define is_bool_bool(b) ((void)(b), 1)
#define void_from_bool(b) (void)(b)
#define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0)
/* numbers */
#define FIXNUM_BIT 24
#define FIXNUM_MIN -8388608
#define FIXNUM_MAX 8388607
#ifdef NDEBUG
#define fxneg(x) (-(x))
#define fxabs(x) (labs(x))
#define fxadd(x, y) ((x) + (y))
#define fxsub(x, y) ((x) - (y))
#define fxmul(x, y) ((x) * (y))
/* exact integer division */
#define fxidv(x, y) ((x) / (y))
/* truncated division (common/C99) */
#define fxquo(x, y) ((x) / (y))
#define fxrem(x, y) ((x) % (y))
/* floor division */
static long fxmlo(long x, long y) {
long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
static long fxdiv(long x, long y) {
long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
static long fxmod(long x, long y) {
long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
}
static long fxgcd(long x, long y) {
long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c;
return a;
}
#define fxasl(x, y) ((x) << (y))
#define fxasr(x, y) ((x) >> (y))
#define fxflo(f) ((long)(f))
#else
extern long fxneg(long x);
extern long fxabs(long x);
extern long fxadd(long x, long y);
extern long fxsub(long x, long y);
extern long fxmul(long x, long y);
extern long fxidv(long x, long y);
extern long fxquo(long x, long y);
extern long fxrem(long x, long y);
extern long fxmlo(long x, long y);
extern long fxdiv(long x, long y);
extern long fxmod(long x, long y);
extern long fxgcd(long x, long y);
extern long fxasl(long x, long y);
extern long fxasr(long x, long y);
extern long fxflo(double f);
#endif
#ifndef NDEBUG
long fxneg(long x) {
assert(x != FIXNUM_MIN);
return -x;
}
long fxabs(long x) {
assert(x != FIXNUM_MIN);
return labs(x);
}
long fxadd(long x, long y) {
long z = x + y;
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
return z;
}
long fxsub(long x, long y) {
long z = x - y;
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
return z;
}
long fxmul(long x, long y) {
double z = (double)x * (double)y;
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
return x * y;
}
/* exact integer division */
long fxidv(long x, long y) {
assert(y);
assert(x != FIXNUM_MIN || y != -1);
assert(x % y == 0);
return x / y;
}
/* truncated division (common/C99) */
long fxquo(long x, long y) {
assert(y);
assert(x != FIXNUM_MIN || y != -1);
return x / y;
}
long fxrem(long x, long y) {
assert(y);
return x % y;
}
/* floor division */
long fxmlo(long x, long y) {
long r;
assert(y);
r = x % y;
return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
long fxdiv(long x, long y) {
long q, r;
assert(y);
assert(x != FIXNUM_MIN || y != -1);
q = x / y, r = x % y;
return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
long fxmod(long x, long y) {
long r;
assert(y);
r = x % y;
return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
}
long fxgcd(long x, long y) {
long a = labs(x), b = labs(y), c;
assert(a <= FIXNUM_MAX || b <= FIXNUM_MAX);
while (b) c = a%b, a = b, b = c;
return a;
}
long fxasl(long x, long y) {
assert(y >= 0 && y < FIXNUM_BIT);
return x << y;
}
long fxasr(long x, long y) {
assert(y >= 0 && y < FIXNUM_BIT);
assert(!y || x >= 0); /* >> of negative x is undefined */
return x >> y;
}
long fxflo(double f) {
long l = (long)f;
assert((double)l == f);
assert(l >= FIXNUM_MIN && l <= FIXNUM_MAX);
return l;
}
#endif
extern long fxpow(long x, long y);
long fxpow(long x, long y) {
assert(y >= 0);
retry: if (y == 0) return 1; if (y == 1) return x;
if (y % 2 == 1) x *= fxpow(x, y-1);
else { x *= x; y /= 2; assert(x <= FIXNUM_MAX); goto retry; }
assert(x <= FIXNUM_MAX); return x;
}
extern int fxifdv(long x, long y, long *pi, double *pd);
int fxifdv(long x, long y, long *pi, double *pd) {
assert(y);
assert(x != FIXNUM_MIN || y != -1);
if (x % y == 0) { *pi = x / y; return 1; }
else { *pd = (double)x / (double)y; return 0; }
}
extern double flquo(double x, double y);
double flquo(double x, double y) {
double z;
assert(y != 0.0 && x == floor(x) && y == floor(y));
modf(x / y, &z);
return z;
}
extern double flrem(double x, double y);
double flrem(double x, double y) {
assert(y != 0.0 && x == floor(x) && y == floor(y));
return fmod(x, y);
}
extern double flmlo(double x, double y);
double flmlo(double x, double y) {
assert(y != 0.0 && x == floor(x) && y == floor(y));
return x - y * floor(x / y);
}
extern double flgcd(double x, double y);
double flgcd(double x, double y) {
double a = fabs(x), b = fabs(y), c;
assert(a == floor(a) && b == floor(b));
while (b > 0.0) c = fmod(a, b), a = b, b = c;
return a;
}
extern double flround(double x);
double flround(double x) {
double f = floor(x), c = ceil(x), d = x-f, u = c-x;
if (d == u) return fmod(f, 2.0) == 0.0 ? f : c;
else return (d < u) ? f : c;
}
extern int strtofxfl(const char *s, int radix, long *pl, double *pd);
int strtofxfl(const char *s, int radix, long *pl, double *pd) {
char *e; int conv = 0, eno = errno; long l; double d;
for (; s[0] == '#'; s += 2) {
switch (s[1]) {
case 'b': case 'B': radix = 2; break;
case 'o': case 'O': radix = 8; break;
case 'd': case 'D': radix = 10; break;
case 'x': case 'X': radix = 16; break;
case 'e': case 'E': conv = 'e'; break;
case 'i': case 'I': conv = 'i'; break;
default: return 0;
}
}
if (isspace(*s)) return 0;
l = (errno = 0, strtol(s, &e, radix));
if (!errno && l >= FIXNUM_MIN && l <= FIXNUM_MAX && e != s && !*e)
return errno = eno, (conv == 'i') ? (*pd = (double)l, 'i') : (*pl = l, 'e');
if (radix != 10) return errno = eno, 0;
d = (errno = 0, strtod(s, &e));
if (!errno && e != s && !*e) {
if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d))
return errno = eno, 0;
else return errno = eno, (conv == 'e') ? (*pl = fxflo(d), 'e') : (*pd = d, 'i');
}
return errno = eno, 0;
}
/* fixnums */
#define FIXNUM_ITAG 1
typedef long fixnum_t;
#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG))
#define is_fixnum_fixnum(i) ((void)(i), 1)
#define is_bool_fixnum(i) ((void)(i), 0)
#define is_fixnum_bool(i) ((void)(i), 0)
#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG))
#define fixnum_from_fixnum(i) (i)
#define fixnum_from_flonum(l,x) ((fixnum_t)(x))
#define bool_from_fixnum(i) ((void)(i), 1)
#define void_from_fixnum(i) (void)(i)
#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG)
/* flonums */
static cxtype_t cxt_flonum = { "flonum", free };
cxtype_t *FLONUM_NTAG = &cxt_flonum;
extern cxtype_t *FLONUM_NTAG;
typedef double flonum_t;
#define is_flonum_obj(o) (isnative(o, FLONUM_NTAG))
#define is_flonum_flonum(f) ((void)(f), 1)
#define is_flonum_bool(f) ((void)(f), 0)
#define is_bool_flonum(f) ((void)(f), 0)
#define is_fixnum_flonum(i) ((void)(i), 0)
#define is_flonum_fixnum(i) ((void)(i), 0)
#define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG))
#define flonum_from_flonum(l, f) (f)
#define flonum_from_fixnum(x) ((flonum_t)(x))
#define bool_from_flonum(f) ((void)(f), 0)
#define void_from_flonum(l, f) (void)(f)
#define obj_from_flonum(l, f) hpushptr(dupflonum(f), FLONUM_NTAG, l)
extern flonum_t *dupflonum(flonum_t f);
flonum_t *dupflonum(flonum_t f) {
flonum_t *pf = cxm_cknull(malloc(sizeof(flonum_t)), "malloc(flonum)");
*pf = f; return pf;
}
/* characters */
#define CHAR_ITAG 2
typedef int char_t;
#define 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)getimms(o, CHAR_ITAG))
#define char_from_char(i) (i)
#define bool_from_char(i) ((void)(i), 1)
#define void_from_char(i) (void)(i)
#define obj_from_char(i) mkimm(i, CHAR_ITAG)
/* strings */
static cxtype_t cxt_string = { "string", free };
cxtype_t *STRING_NTAG = &cxt_string;
extern cxtype_t *STRING_NTAG;
#define isstring(o) (isnative(o, STRING_NTAG))
#define stringdata(o) ((int*)getnative(o, STRING_NTAG))
#define sdatachars(d) ((char*)((d)+1))
#define stringlen(o) (*stringdata(o))
#define stringchars(o) ((char*)(stringdata(o)+1))
#define hpushstr(l, s) hpushptr(s, STRING_NTAG, l)
char* stringref(obj o, int i) {
int *d = stringdata(o);
assert(i >= 0 && i < *d);
return ((char*)(d+1))+i;
}
#ifdef NDEBUG
#define stringref(o, i) (stringchars(o)+(i))
#else
extern char* stringref(obj o, int i);
#endif
extern int *newstring(char *s);
int *newstring(char *s) {
int l, *d; assert(s); l = (int)strlen(s);
d = cxm_cknull(malloc(sizeof(int)+l+1), "malloc(string)");
*d = l; strcpy((char*)(d+1), s); return d;
}
extern int *allocstring(int n, int c);
int *allocstring(int n, int c) {
int *d; char *s; assert(n+1 > 0);
d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
*d = n; s = (char*)(d+1); memset(s, c, n); s[n] = 0;
return d;
}
extern int *substring(int *d, int from, int to);
int *substring(int *d0, int from, int to) {
int n = to-from, *d1; char *s0, *s1; assert(d0);
assert(0 <= from && from <= to && to <= *d0);
d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
*d1 = n; s0 = (char*)(d0+1); s1 = (char*)(d1+1);
memcpy(s1, s0+from, n); s1[n] = 0;
return d1;
}
extern int *stringcat(int *d0, int *d1);
int *stringcat(int *d0, int *d1) {
int l0 = *d0, l1 = *d1, n = l0+l1; char *s0, *s1, *s;
int *d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
*d = n; s = (char*)(d+1); s0 = (char*)(d0+1); s1 = (char*)(d1+1);
memcpy(s, s0, l0); memcpy(s+l0, s1, l1); s[n] = 0;
return d;
}
extern int *dupstring(int *d);
int *dupstring(int *d0) {
int n = *d0, *d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
memcpy(d1, d0, sizeof(int)+n+1);
return d1;
}
extern void stringfill(int *d, int c);
void stringfill(int *d, int c) {
int l = *d, i; char *s = (char*)(d+1);
for (i = 0; i < l; ++i) s[i] = c;
}
extern int strcmp_ci(char *s1, char*s2);
int strcmp_ci(char *s1, char *s2) {
int c1, c2, d;
do { c1 = *s1++; c2 = *s2++; d = (unsigned)tolower(c1) - (unsigned)tolower(c2); }
while (!d && c1 && c2);
return d;
}
/* vectors */
#define VECTOR_BTAG 1
#define isvector(o) istagged(o, VECTOR_BTAG)
#define vectorref(v, i) *taggedref(v, VECTOR_BTAG, i)
#define vectorlen(v) taggedlen(v, VECTOR_BTAG)
/* 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, int fc) {
unsigned long i = 0, l = (unsigned long)strlen(s), h = l;
if (!fc) while (i < l) { h = (h << 4) ^ (h >> 28) ^ s[i++]; }
else while (i < l) { int c = s[i++] & 0xff; h = (h << 4) ^ (h >> 28) ^ (c < 128 ? tolower(c) : c); }
return h ^ (h >> 10) ^ (h >> 20);
}
static int symnameeq(char *s1, char *s2, int fc) {
if (fc) {
while (*s1 && *s2) {
int c1 = *s1++ & 0xff, c2 = *s2++ & 0xff; if (c1 == c2) continue;
if (c1 > 127 || c2 > 127 || tolower(c1) != tolower(c2)) return 0;
}
return !*s1 && !*s2;
}
return (strcmp(s1, s2) == 0);
}
extern char *symbolname(int sym);
char *symbolname(int sym) {
assert(sym >= 0); assert(sym < (int)symt.u);
return symt.a[sym];
}
extern int internsym(char *name, int fc);
int internsym(char *name, int fc) {
size_t i, j; /* based on a code (C) 1998, 1999 by James Clark. */
if (symt.sz == 0) { /* init */
symt.a = cxm_cknull(calloc(64, sizeof(char*)), "symtab[0]");
symt.v = cxm_cknull(calloc(64, sizeof(char**)), "symtab[1]");
symt.sz = 64, symt.maxu = 64 / 2;
i = hashs(name, fc) & (symt.sz-1);
} else {
unsigned long h = hashs(name, fc);
for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1))
if (symnameeq(name, *symt.v[i], fc)) return (int)(symt.v[i] - symt.a);
if (symt.u == symt.maxu) { /* rehash */
size_t nsz = symt.sz * 2;
char **na = cxm_cknull(calloc(nsz, sizeof(char*)), "symtab[2]");
char ***nv = cxm_cknull(calloc(nsz, sizeof(char**)), "symtab[3]");
for (i = 0; i < symt.sz; i++)
if (symt.v[i]) {
for (j = hashs(*symt.v[i], fc) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
nv[j] = symt.v[i] - symt.a + na;
}
free(symt.v); symt.v = nv; symt.sz = nsz; symt.maxu = nsz / 2;
memcpy(na, symt.a, symt.u * sizeof(char*)); free(symt.a); symt.a = na;
for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1)) ;
}
}
if (fc) {
char *s = name, *d = cxm_cknull(malloc(strlen(name)+1), "symtab[4]");
*(symt.v[i] = symt.a + symt.u) = d;
while (*s) { int c = *s++ & 0xff; *d++ = (c < 128 ? tolower(c) : c); } *d = *s;
} else {
*(symt.v[i] = symt.a + symt.u) =
strcpy(cxm_cknull(malloc(strlen(name)+1), "symtab[4]"), name);
}
return (int)((symt.u)++);
}
int isprocedure(obj o) {
if (!o) return 0;
else if (isaptr(o) && !isobjptr(o)) return 1;
else if (!isobjptr(o)) return 0;
else { obj h = objptr_from_obj(o)[-1];
return notaptr(h) && size_from_obj(h) >= 1
&& isaptr(hblkref(o, 0)); }
}
int procedurelen(obj o) {
assert(isprocedure(o));
return isobjptr(o) ? hblklen(o) : 1;
}
obj* procedureref(obj o, int i) {
int len; assert(isprocedure(o));
len = isobjptr(o) ? hblklen(o) : 1;
assert(i >= 0 && i < len);
return &hblkref(o, i);
}
/* procedures */
extern int isprocedure(obj o);
extern int procedurelen(obj o);
extern obj* procedureref(obj o, int i);
/* apply and dotted lambda list */
extern obj appcases[];
/* apply/dotted lambda adapter entry points */
static obj apphost(obj);
obj appcases[5] = { (obj)apphost, (obj)apphost, (obj)apphost, (obj)apphost , (obj)apphost };
/* apphost procedure */
#define APPLY_MAX_REGS 1024 /* limit on rc for apply & friends */
static obj apphost(obj pc)
{
register obj *r = cxg_regs;
register obj *hp = cxg_hp;
register int rc = cxg_rc;
jump:
switch (objptr_from_obj(pc)-appcases) {
case 0: /* apply */
/* clo k f arg... arglist */
assert(rc >= 4);
{ int i; obj l;
rreserve(APPLY_MAX_REGS);
l = r[--rc];
r[0] = r[2];
/* k in r[1] */
for (i = 3; i < rc; ++i) r[i-1] = r[i];
for (--rc; l != mknull(); l = cdr(l)) r[rc++] = car(l);
/* f k arg... arg... */
assert(rc <= APPLY_MAX_REGS);
pc = objptr_from_obj(r[0])[0];
goto jump; }
case 1: /* dotted lambda adapter */
/* clo k arg... */
{ obj* p = objptr_from_obj(r[0]);
int n = fixnum_from_obj(p[1]) + 2;
r[0] = p[2]; /* f */
/* k in r[1] */
assert(rc >= n);
rreserve(n+1);
if (rc == n) r[rc++] = mknull();
else { /* collect rest list */
obj l = mknull();
hreserve(hbsz(3)*(rc-n), rc);
while (rc > n) { *--hp = l; *--hp = r[--rc];
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[rc++] = l; }
/* f k arg... arglist */
pc = objptr_from_obj(r[0])[0];
goto jump; }
case 2: /* void continuation adapter */
/* cclo ek arg ... */
assert(rc >= 2);
{ obj* p = objptr_from_obj(r[0]);
r[0] = p[1]; /* cont */
pc = objptr_from_obj(r[0])[0];
/* ek in r[1] */
rreserve(3);
r[2] = obj_from_void(0);
rc = 3;
goto jump; }
case 3: /* argc dispatcher */
/* clo k arg... */
{ obj* p = objptr_from_obj(r[0]);
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 127
#define mkeof() mkimm(-1, EOF_ITAG)
#define iseof(o) ((o) == mkimm(-1, EOF_ITAG))
/* input ports */
typedef struct { /* extends cxtype_t */
const char *tname;
void (*free)(void*);
int (*close)(void*);
int (*getch)(void*);
int (*ungetch)(int, void*);
} cxtype_iport_t;
extern cxtype_t *IPORT_FILE_NTAG;
extern cxtype_t *IPORT_STRING_NTAG;
static cxtype_iport_t *iportvt(obj o) {
cxtype_t *pt; if (!isobjptr(o)) return NULL;
pt = (cxtype_t*)objptr_from_obj(o)[-1];
if (pt == IPORT_FILE_NTAG || pt == IPORT_STRING_NTAG) return (cxtype_iport_t*)pt;
else return NULL; }
#define isiport(o) (iportvt(o) != NULL)
#define iportdata(o) ((void*)(*objptr_from_obj(o)))
static void ffree(void *vp) {
/* FILE *fp = vp; assert(fp); cannot fclose(fp) here because of FILE reuse! */ }
static cxtype_iport_t cxt_iport_file = {
"file-input-port", ffree, (int (*)(void*))fclose,
(int (*)(void*))(fgetc), (int (*)(int, void*))(ungetc) };
cxtype_t *IPORT_FILE_NTAG = (cxtype_t *)&cxt_iport_file;
#define mkiport_file(l, fp) hpushptr(fp, IPORT_FILE_NTAG, l)
/* string input ports */
typedef struct { char *p; void *base; } sifile_t;
sifile_t *sialloc(char *p, void *base) {
sifile_t *fp = cxm_cknull(malloc(sizeof(sifile_t)), "malloc(sifile)");
fp->p = p; fp->base = base; return fp; }
extern sifile_t *sialloc(char *p, void *base);
static void sifree(sifile_t *fp) {
assert(fp); if (fp->base) free(fp->base); free(fp); }
static void siclose(sifile_t *fp) {
assert(fp); if (fp->base) free(fp->base); fp->base = NULL; fp->p = ""; }
static int sigetch(sifile_t *fp) {
int c; assert(fp && fp->p); if (!(c = *(fp->p))) return EOF; ++(fp->p); return c; }
static int siungetch(int c, sifile_t *fp) {
assert(fp && fp->p); --(fp->p); assert(c == *(fp->p)); return c; }
static cxtype_iport_t cxt_iport_string = {
"string-input-port", (void (*)(void*))sifree, (int (*)(void*))siclose,
(int (*)(void*))sigetch, (int (*)(int, void*))siungetch };
cxtype_t *IPORT_STRING_NTAG = (cxtype_t *)&cxt_iport_string;
#define mkiport_string(l, fp) hpushptr(fp, IPORT_STRING_NTAG, l)
/* output ports */
static void opclose(void *vp) {
/* FILE *fp = vp; assert(fp);
* cannot fclose(fp) here because of FILE reuse! */
}
static cxtype_t cxt_oport = { "oport", opclose };
cxtype_t *OPORT_NTAG = &cxt_oport;
extern cxtype_t *OPORT_NTAG;
#define isoport(o) (isnative(o, OPORT_NTAG))
#define oportdata(o) ((FILE*)getnative(o, OPORT_NTAG))
#define mkoport(l, fp) hpushptr(fp, OPORT_NTAG, l)
extern int iseqv(obj x, obj y);
int iseqv(obj x, obj y) {
obj h; if (x == y) return 1;
if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
if (h == (obj)FLONUM_NTAG) return *(flonum_t*)objptr_from_obj(x)[0] == *(flonum_t*)objptr_from_obj(y)[0];
return 0;
}
extern obj ismemv(obj x, obj l);
obj ismemv(obj x, obj l) {
if (!x || notaptr(x) || notobjptr(x)) {
for (; l != mknull(); l = cdr(l))
{ if (car(l) == x) return l; }
} else if (is_flonum_obj(x)) {
flonum_t fx = flonum_from_obj(x);
for (; l != mknull(); l = cdr(l))
{ obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
} else { /* for others, memv == memq */
for (; l != mknull(); l = cdr(l))
{ if (car(l) == x) return l; }
} return 0;
}
extern obj isassv(obj x, obj l);
obj isassv(obj x, obj l) {
if (!x || notaptr(x) || notobjptr(x)) {
for (; l != mknull(); l = cdr(l))
{ obj p = car(l); if (car(p) == x) return p; }
} else if (is_flonum_obj(x)) {
flonum_t fx = flonum_from_obj(x);
for (; l != mknull(); l = cdr(l))
{ obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
} else { /* for others, assv == assq */
for (; l != mknull(); l = cdr(l))
{ obj p = car(l); if (car(p) == x) return p; }
} return 0;
}
extern int isequal(obj x, obj y);
int isequal(obj x, obj y) {
obj h; int i, n; loop: if (x == y) return 1;
if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y);
if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0;
if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0;
for (i = 1; i < n-1; ++i) if (!isequal(hblkref(x, i), hblkref(y, i))) return 0;
if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return 1;
}
extern obj ismember(obj x, obj l);
obj ismember(obj x, obj l) {
if (!x || notaptr(x) || notobjptr(x)) {
for (; l != mknull(); l = cdr(l))
{ if (car(l) == x) return l; }
} else if (is_flonum_obj(x)) {
flonum_t fx = flonum_from_obj(x);
for (; l != mknull(); l = cdr(l))
{ obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
} else if (isstring(x)) {
char *xs = stringchars(x);
for (; l != mknull(); l = cdr(l))
{ obj y = car(l); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return l; }
} else {
for (; l != mknull(); l = cdr(l))
{ if (isequal(car(l), x)) return l; }
} return 0;
}
extern obj isassoc(obj x, obj l);
obj isassoc(obj x, obj l) {
if (!x || notaptr(x) || notobjptr(x)) {
for (; l != mknull(); l = cdr(l))
{ obj p = car(l); if (car(p) == x) return p; }
} else if (is_flonum_obj(x)) {
flonum_t fx = flonum_from_obj(x);
for (; l != mknull(); l = cdr(l))
{ obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
} else if (isstring(x)) {
char *xs = stringchars(x);
for (; l != mknull(); l = cdr(l))
{ obj p = car(l), y = car(p); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return p; }
} else {
for (; l != mknull(); l = cdr(l))
{ obj p = car(l); if (isequal(car(p), x)) return p; }
} return 0;
}
enum {
ARGCHECK_N_OPT = -1000,
ARGCHECK_N,
ARGCHECK_N_N,
ARGCHECK_N_ETC,
ARGCHECK_Q,
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_OR_X_X,
ARGCHECK_Z_RADIX_OPT,
ARGCHECK_K_CHAR_OPT,
ARGCHECK_K_OBJ_OPT,
ARGCHECK_PAIR,
ARGCHECK_PAIR_OBJ,
ARGCHECK_LIST,
ARGCHECK_LIST_ETC_OBJ_OPT,
ARGCHECK_OBJ_LIST,
ARGCHECK_OBJ_ALIST,
ARGCHECK_SYMBOL,
ARGCHECK_CHAR,
ARGCHECK_CHAR_CHAR,
ARGCHECK_CHAR_ETC,
ARGCHECK_STRING,
ARGCHECK_STRING_STRING,
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_VECTOR,
//ARGCHECK_VECTOR_INDEX,
//ARGCHECK_VECTOR_INDEX_OBJ,
ARGCHECK_VECTOR_OBJ,
ARGCHECK_PROC,
ARGCHECK_PROC_OBJ_ETC_LIST,
ARGCHECK_PROC1CC,
ARGCHECK_THUNK_PROC,
ARGCHECK_THUNK_THUNK_THUNK,
ARGCHECK_STRING_THUNK,
ARGCHECK_STRING_PROC1IP,
ARGCHECK_STRING_PROC1OP,
ARGCHECK_IPORT,
ARGCHECK_IPORT_OPT,
ARGCHECK_OPORT,
ARGCHECK_OPORT_OPT,
ARGCHECK_OBJ_OPORT_OPT,
ARGCHECK_CHAR_OPORT_OPT,
ADD_Z_ETC,
SUB_Z_Z_ETC,
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,
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 126
#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)
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 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_IPORT_OPT:
case ARGCHECK_OPORT_OPT:
case ADD_Z_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_PROC:
case ARGCHECK_PROC1CC:
case ARGCHECK_OBJ_OPORT_OPT:
case NOT_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_IPORT:
case ARGCHECK_IPORT_OPT:
case ARGCHECK_OBJ_OPORT_OPT:
case NOT_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_OPORT:
case ARGCHECK_OPORT_OPT:
case ARGCHECK_OBJ_OPORT_OPT:
case NOT_OBJ:
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 argument checks */
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)) continue;
if (is_flonum_obj(o)) { flonum_t f = flonum_from_obj(o); if (f == floor(f)) continue; }
res = ACRES_BADTYPE; break;
} 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_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); l = cdr(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); l = cdr(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_PAIR:
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;
paair:
if (ac != 1) res = ACRES_BADARGC; else {
obj o; if (l) o = car(l); else o = va_arg(args, obj);
if (!ispair(o) || !ispair(car(o))) res = ACRES_BADTYPE;
} break;
padir:
if (ac != 1) res = ACRES_BADARGC; else {
obj o; if (l) o = car(l); else o = va_arg(args, obj);
if (!ispair(o) || !ispair(cdr(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_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_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_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_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_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_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_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_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_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_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_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_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_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;
/* special checks for popular operations; may return result if no allocation is needed */
case ADD_Z_ETC:
if (ac == 0) {
res = obj_from_fixnum(0);
} else 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 = o;
else 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_fixnum_obj(o2)) res = obj_from_fixnum(fxadd(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 SUB_Z_Z_ETC:
if (ac < 1) res = ACRES_BADARGC; else if (ac == 1) {
obj o; if (l) o = car(l); else o = va_arg(args, obj);
if (is_fixnum_obj(o)) res = obj_from_fixnum(fxneg(fixnum_from_obj(o)));
else if (!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_fixnum_obj(o2)) res = obj_from_fixnum(fxsub(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 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 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 {
long n; 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);
}
va_end(args);
return res;
}
}
/* initialization code */
static char *siof_init_code =
"(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 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 make-promise"
" (lambda (proc)"
" ((lambda (result-ready? result)"
" (lambda ()"
" (if result-ready?"
" result"
" ((lambda (x)"
" (if result-ready?"
" result"
" (begin"
" (set! result-ready? #t)"
" (set! result x)"
" result)))"
" (proc)))))"
" #f"
" #f)))"
""
"(define-syntax delay"
" (syntax-rules ()"
" [(delay exp)"
" (make-promise (lambda () exp))]))"
""
"(define (force promise) "
" (promise))"
""
"(set! call/cc"
" (let ([old-call/cc call/cc])"
" (lambda (p)"
" (old-call/cc"
" (lambda (k)"
" (p (lambda args"
" (k (apply values args)))))))))"
""
"(set! call-with-current-continuation call/cc)"
""
""
"(define (list-tail ls k)"
" (if (= k 0) ls (list-tail (cdr ls) (- k 1))))"
""
"(define (list-ref ls k) "
" (car (list-tail ls k)))"
""
"(define (caaar x) (car (car (car x))))"
"(define (caadr x) (car (car (cdr x))))"
"(define (cadar x) (car (cdr (car x))))"
"(define (caddr x) (car (cdr (cdr x))))"
"(define (cdaar x) (cdr (car (car x))))"
"(define (cdadr x) (cdr (car (cdr x))))"
"(define (cddar x) (cdr (cdr (car x))))"
"(define (cdddr x) (cdr (cdr (cdr x))))"
"(define (caaaar x) (car (car (car (car x)))))"
"(define (caaadr x) (car (car (car (cdr x)))))"
"(define (caadar x) (car (car (cdr (car x)))))"
"(define (caaddr x) (car (car (cdr (cdr x)))))"
"(define (cadaar x) (car (cdr (car (car x)))))"
"(define (cadadr x) (car (cdr (car (cdr x)))))"
"(define (caddar x) (car (cdr (cdr (car x)))))"
"(define (cadddr x) (car (cdr (cdr (cdr x)))))"
"(define (cdaaar x) (cdr (car (car (car x)))))"
"(define (cdaadr x) (cdr (car (car (cdr x)))))"
"(define (cdadar x) (cdr (car (cdr (car x)))))"
"(define (cdaddr x) (cdr (car (cdr (cdr x)))))"
"(define (cddaar x) (cdr (cdr (car (car x)))))"
"(define (cddadr x) (cdr (cdr (car (cdr x)))))"
"(define (cdddar x) (cdr (cdr (cdr (car x)))))"
"(define (cddddr x) (cdr (cdr (cdr (cdr x)))))"
""
"(define (map f l . l*)"
" (if (null? l*) "
" (let loop ([l l] [r '()])"
" (if (null? l) "
" (reverse! r)"
" (loop (cdr l) (cons (f (car l)) r))))"
" (let loop ([l* (cons l l*)] [r '()])"
" (if (null? (car l*)) "
" (reverse! r)"
" (loop (map cdr l*) (cons (apply f (map car l*)) r))))))"
""
"(define (for-each p l . l*)"
" (if (null? l*) "
" (let loop ([l l])"
" (if (not (null? l))"
" (begin (p (car l)) (loop (cdr l)))))"
" (let loop ([l* (cons l l*)])"
" (if (not (null? (car l*))) "
" (begin (apply p (map car l*)) (loop (map cdr l*)))))))"
;
/* cx globals */
extern obj cx_wrap_2Dvecs; /* wrap-vecs */
obj cx__25fail_2Dlambda; /* %fail-lambda */
obj cx__25residual_2A; /* %residual* */
obj cx__25residual_2B; /* %residual+ */
obj cx__25residual_2D; /* %residual- */
obj cx__25residual_2D_25make_2Dprocedure; /* %residual-%make-procedure */
obj cx__25residual_2D_25procedure_2Dlength; /* %residual-%procedure-length */
obj cx__25residual_2D_25procedure_2Dref; /* %residual-%procedure-ref */
obj cx__25residual_2D_25procedure_2Dset_21; /* %residual-%procedure-set! */
obj cx__25residual_2Dabort; /* %residual-abort */
obj cx__25residual_2Dabs; /* %residual-abs */
obj cx__25residual_2Dacos; /* %residual-acos */
obj cx__25residual_2Dangle; /* %residual-angle */
obj cx__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F; /* %residual-annotated-procedure-argc-ok? */
obj cx__25residual_2Dappend; /* %residual-append */
obj cx__25residual_2Dappend_2F2; /* %residual-append/2 */
obj cx__25residual_2Dargc_2D_3Eannotation; /* %residual-argc->annotation */
obj cx__25residual_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_2Dassoc; /* %residual-assoc */
obj cx__25residual_2Dassq; /* %residual-assq */
obj cx__25residual_2Dassv; /* %residual-assv */
obj cx__25residual_2Datan; /* %residual-atan */
obj cx__25residual_2Datom_3F; /* %residual-atom? */
obj cx__25residual_2Dboolean_3F; /* %residual-boolean? */
obj cx__25residual_2Dbox; /* %residual-box */
obj cx__25residual_2Dbox_3F; /* %residual-box? */
obj cx__25residual_2Dcaaaar; /* %residual-caaaar */
obj cx__25residual_2Dcaaadr; /* %residual-caaadr */
obj cx__25residual_2Dcaaar; /* %residual-caaar */
obj cx__25residual_2Dcaadar; /* %residual-caadar */
obj cx__25residual_2Dcaaddr; /* %residual-caaddr */
obj cx__25residual_2Dcaadr; /* %residual-caadr */
obj cx__25residual_2Dcaar; /* %residual-caar */
obj cx__25residual_2Dcadaar; /* %residual-cadaar */
obj cx__25residual_2Dcadadr; /* %residual-cadadr */
obj cx__25residual_2Dcadar; /* %residual-cadar */
obj cx__25residual_2Dcaddar; /* %residual-caddar */
obj cx__25residual_2Dcadddr; /* %residual-cadddr */
obj cx__25residual_2Dcaddr; /* %residual-caddr */
obj cx__25residual_2Dcadr; /* %residual-cadr */
obj cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile; /* %residual-call-with-input-file */
obj cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile; /* %residual-call-with-output-file */
obj cx__25residual_2Dcall_2Dwith_2Dvalues; /* %residual-call-with-values */
obj cx__25residual_2Dcar; /* %residual-car */
obj cx__25residual_2Dcdaaar; /* %residual-cdaaar */
obj cx__25residual_2Dcdaadr; /* %residual-cdaadr */
obj cx__25residual_2Dcdaar; /* %residual-cdaar */
obj cx__25residual_2Dcdadar; /* %residual-cdadar */
obj cx__25residual_2Dcdaddr; /* %residual-cdaddr */
obj cx__25residual_2Dcdadr; /* %residual-cdadr */
obj cx__25residual_2Dcdar; /* %residual-cdar */
obj cx__25residual_2Dcddaar; /* %residual-cddaar */
obj cx__25residual_2Dcddadr; /* %residual-cddadr */
obj cx__25residual_2Dcddar; /* %residual-cddar */
obj cx__25residual_2Dcdddar; /* %residual-cdddar */
obj cx__25residual_2Dcddddr; /* %residual-cddddr */
obj cx__25residual_2Dcdddr; /* %residual-cdddr */
obj cx__25residual_2Dcddr; /* %residual-cddr */
obj cx__25residual_2Dcdr; /* %residual-cdr */
obj cx__25residual_2Dceiling; /* %residual-ceiling */
obj cx__25residual_2Dchar_2D_3Einteger; /* %residual-char->integer */
obj cx__25residual_2Dchar_2Dalphabetic_3F; /* %residual-char-alphabetic? */
obj cx__25residual_2Dchar_2Dci_3C_3D_3F; /* %residual-char-ci<=? */
obj cx__25residual_2Dchar_2Dci_3C_3F; /* %residual-char-ci<? */
obj cx__25residual_2Dchar_2Dci_3D_3F; /* %residual-char-ci=? */
obj cx__25residual_2Dchar_2Dci_3E_3D_3F; /* %residual-char-ci>=? */
obj cx__25residual_2Dchar_2Dci_3E_3F; /* %residual-char-ci>? */
obj cx__25residual_2Dchar_2Ddowncase; /* %residual-char-downcase */
obj cx__25residual_2Dchar_2Dlower_2Dcase_3F; /* %residual-char-lower-case? */
obj cx__25residual_2Dchar_2Dnumeric_3F; /* %residual-char-numeric? */
obj cx__25residual_2Dchar_2Dready_3F; /* %residual-char-ready? */
obj cx__25residual_2Dchar_2Dupcase; /* %residual-char-upcase */
obj cx__25residual_2Dchar_2Dupper_2Dcase_3F; /* %residual-char-upper-case? */
obj cx__25residual_2Dchar_2Dwhitespace_3F; /* %residual-char-whitespace? */
obj cx__25residual_2Dchar_3C_3D_3F; /* %residual-char<=? */
obj cx__25residual_2Dchar_3C_3F; /* %residual-char<? */
obj cx__25residual_2Dchar_3D_3F; /* %residual-char=? */
obj cx__25residual_2Dchar_3E_3D_3F; /* %residual-char>=? */
obj cx__25residual_2Dchar_3E_3F; /* %residual-char>? */
obj cx__25residual_2Dchar_3F; /* %residual-char? */
obj cx__25residual_2Dclose_2Dinput_2Dport; /* %residual-close-input-port */
obj cx__25residual_2Dclose_2Doutput_2Dport; /* %residual-close-output-port */
obj cx__25residual_2Dcons; /* %residual-cons */
obj cx__25residual_2Dcons_2A; /* %residual-cons* */
obj cx__25residual_2Dcos; /* %residual-cos */
obj cx__25residual_2Dcurrent_2Derror_2Dport; /* %residual-current-error-port */
obj cx__25residual_2Dcurrent_2Dinput_2Dport; /* %residual-current-input-port */
obj cx__25residual_2Dcurrent_2Djiffy; /* %residual-current-jiffy */
obj cx__25residual_2Dcurrent_2Doutput_2Dport; /* %residual-current-output-port */
obj cx__25residual_2Ddelete_2Dfile; /* %residual-delete-file */
obj cx__25residual_2Ddenominator; /* %residual-denominator */
obj cx__25residual_2Ddisplay; /* %residual-display */
obj cx__25residual_2Ddisplay_2Dfixnum; /* %residual-display-fixnum */
obj cx__25residual_2Ddisplay_2Dflonum; /* %residual-display-flonum */
obj cx__25residual_2Ddisplay_2Dinput_2Dport; /* %residual-display-input-port */
obj cx__25residual_2Ddisplay_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_2D_3Einexact; /* %residual-exact->inexact */
obj cx__25residual_2Dexit; /* %residual-exit */
obj cx__25residual_2Dexp; /* %residual-exp */
obj cx__25residual_2Dexpt; /* %residual-expt */
obj cx__25residual_2Dfile_2Dexists_3F; /* %residual-file-exists? */
obj cx__25residual_2Dfixnum_2D_3Eflonum; /* %residual-fixnum->flonum */
obj cx__25residual_2Dfixnum_3F; /* %residual-fixnum? */
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_2Dflush_2Doutput_2Dport; /* %residual-flush-output-port */
obj cx__25residual_2Dfor_2Deach; /* %residual-for-each */
obj cx__25residual_2Dgcd; /* %residual-gcd */
obj cx__25residual_2Dget_2Ddatum; /* %residual-get-datum */
obj cx__25residual_2Dget_2Denvironment_2Dvariable; /* %residual-get-environment-variable */
obj cx__25residual_2Dimag_2Dpart; /* %residual-imag-part */
obj cx__25residual_2Dinexact_2D_3Eexact; /* %residual-inexact->exact */
obj cx__25residual_2Dinput_2Dport_3F; /* %residual-input-port? */
obj cx__25residual_2Dinteger_2D_3Echar; /* %residual-integer->char */
obj cx__25residual_2Dinteger_3F; /* %residual-integer? */
obj cx__25residual_2Djiffies_2Dper_2Dsecond; /* %residual-jiffies-per-second */
obj cx__25residual_2Dlast_2Dpair; /* %residual-last-pair */
obj cx__25residual_2Dlcm; /* %residual-lcm */
obj cx__25residual_2Dlength; /* %residual-length */
obj cx__25residual_2Dlist; /* %residual-list */
obj cx__25residual_2Dlist_2D_3Estring; /* %residual-list->string */
obj cx__25residual_2Dlist_2D_3Evector; /* %residual-list->vector */
obj cx__25residual_2Dlist_2Dcopy; /* %residual-list-copy */
obj cx__25residual_2Dlist_2Dref; /* %residual-list-ref */
obj cx__25residual_2Dlist_2Dtail; /* %residual-list-tail */
obj cx__25residual_2Dlist_3F; /* %residual-list? */
obj cx__25residual_2Dlog; /* %residual-log */
obj cx__25residual_2Dmagnitude; /* %residual-magnitude */
obj cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda; /* %residual-make-argc-dispatch-lambda */
obj cx__25residual_2Dmake_2Dcase_2Dlambda; /* %residual-make-case-lambda */
obj cx__25residual_2Dmake_2Dimproper_2Dlambda; /* %residual-make-improper-lambda */
obj cx__25residual_2Dmake_2Dpolar; /* %residual-make-polar */
obj cx__25residual_2Dmake_2Drectangular; /* %residual-make-rectangular */
obj cx__25residual_2Dmake_2Dstring; /* %residual-make-string */
obj cx__25residual_2Dmake_2Dvector; /* %residual-make-vector */
obj cx__25residual_2Dmake_2Dvoid_2Dcontinuation; /* %residual-make-void-continuation */
obj cx__25residual_2Dmap; /* %residual-map */
obj cx__25residual_2Dmax; /* %residual-max */
obj cx__25residual_2Dmax_2F2; /* %residual-max/2 */
obj cx__25residual_2Dmember; /* %residual-member */
obj cx__25residual_2Dmemq; /* %residual-memq */
obj cx__25residual_2Dmemv; /* %residual-memv */
obj cx__25residual_2Dmin; /* %residual-min */
obj cx__25residual_2Dmin_2F2; /* %residual-min/2 */
obj cx__25residual_2Dmodulo; /* %residual-modulo */
obj cx__25residual_2Dnegative_3F; /* %residual-negative? */
obj cx__25residual_2Dnewline; /* %residual-newline */
obj cx__25residual_2Dnot; /* %residual-not */
obj cx__25residual_2Dnull_3F; /* %residual-null? */
obj cx__25residual_2Dnumber_2D_3Estring; /* %residual-number->string */
obj cx__25residual_2Dnumerator; /* %residual-numerator */
obj cx__25residual_2Dodd_3F; /* %residual-odd? */
obj cx__25residual_2Dopen_2Dfile_2A; /* %residual-open-file* */
obj cx__25residual_2Dopen_2Dinput_2Dfile; /* %residual-open-input-file */
obj cx__25residual_2Dopen_2Dinput_2Dstring; /* %residual-open-input-string */
obj cx__25residual_2Dopen_2Doutput_2Dfile; /* %residual-open-output-file */
obj cx__25residual_2Doutput_2Dport_3F; /* %residual-output-port? */
obj cx__25residual_2Dpair_3F; /* %residual-pair? */
obj cx__25residual_2Dpeek_2Dchar; /* %residual-peek-char */
obj cx__25residual_2Dpositive_3F; /* %residual-positive? */
obj cx__25residual_2Dprocedure_2Dannotation; /* %residual-procedure-annotation */
obj cx__25residual_2Dprocedure_3F; /* %residual-procedure? */
obj cx__25residual_2Dput_2Ddatum; /* %residual-put-datum */
obj cx__25residual_2Dquotient; /* %residual-quotient */
obj cx__25residual_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_2Dreal_2D_3Efixnum; /* %residual-real->fixnum */
obj cx__25residual_2Dreal_2D_3Eflonum; /* %residual-real->flonum */
obj cx__25residual_2Dreal_2Dpart; /* %residual-real-part */
obj cx__25residual_2Dreal_3F; /* %residual-real? */
obj cx__25residual_2Dremainder; /* %residual-remainder */
obj cx__25residual_2Drename_2Dfile; /* %residual-rename-file */
obj cx__25residual_2Drest_2Dargc_2D_3Eannotation; /* %residual-rest-argc->annotation */
obj cx__25residual_2Dreverse; /* %residual-reverse */
obj cx__25residual_2Dreverse_21; /* %residual-reverse! */
obj cx__25residual_2Dround; /* %residual-round */
obj cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dref; /* %residual-scheme-global-var-ref */
obj cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dset_21; /* %residual-scheme-global-var-set! */
obj cx__25residual_2Dset_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_2Dsin; /* %residual-sin */
obj cx__25residual_2Dsqrt; /* %residual-sqrt */
obj cx__25residual_2Dstring; /* %residual-string */
obj cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum; /* %residual-string->fixnum-or-flonum */
obj cx__25residual_2Dstring_2D_3Elist; /* %residual-string->list */
obj cx__25residual_2Dstring_2D_3Enumber; /* %residual-string->number */
obj cx__25residual_2Dstring_2D_3Esymbol; /* %residual-string->symbol */
obj cx__25residual_2Dstring_2D_3Esymbol_2Fcf; /* %residual-string->symbol/cf */
obj cx__25residual_2Dstring_2Dappend; /* %residual-string-append */
obj cx__25residual_2Dstring_2Dappend_2F2; /* %residual-string-append/2 */
obj cx__25residual_2Dstring_2Dci_3C_3D_3F; /* %residual-string-ci<=? */
obj cx__25residual_2Dstring_2Dci_3C_3F; /* %residual-string-ci<? */
obj cx__25residual_2Dstring_2Dci_3D_3F; /* %residual-string-ci=? */
obj cx__25residual_2Dstring_2Dci_3E_3D_3F; /* %residual-string-ci>=? */
obj cx__25residual_2Dstring_2Dci_3E_3F; /* %residual-string-ci>? */
obj cx__25residual_2Dstring_2Dcopy; /* %residual-string-copy */
obj cx__25residual_2Dstring_2Dfill_21; /* %residual-string-fill! */
obj cx__25residual_2Dstring_2Dlength; /* %residual-string-length */
obj cx__25residual_2Dstring_2Dposition; /* %residual-string-position */
obj cx__25residual_2Dstring_2Dref; /* %residual-string-ref */
obj cx__25residual_2Dstring_2Dset_21; /* %residual-string-set! */
obj cx__25residual_2Dstring_3C_3D_3F; /* %residual-string<=? */
obj cx__25residual_2Dstring_3C_3F; /* %residual-string<? */
obj cx__25residual_2Dstring_3D_3F; /* %residual-string=? */
obj cx__25residual_2Dstring_3E_3D_3F; /* %residual-string>=? */
obj cx__25residual_2Dstring_3E_3F; /* %residual-string>? */
obj cx__25residual_2Dstring_3F; /* %residual-string? */
obj cx__25residual_2Dsubstring; /* %residual-substring */
obj cx__25residual_2Dsymbol_2D_3Estring; /* %residual-symbol->string */
obj cx__25residual_2Dsymbol_3F; /* %residual-symbol? */
obj cx__25residual_2Dsystem; /* %residual-system */
obj cx__25residual_2Dtan; /* %residual-tan */
obj cx__25residual_2Dtruncate; /* %residual-truncate */
obj cx__25residual_2Dunbox; /* %residual-unbox */
obj cx__25residual_2Dvalues; /* %residual-values */
obj cx__25residual_2Dvector; /* %residual-vector */
obj cx__25residual_2Dvector_2D_3Elist; /* %residual-vector->list */
obj cx__25residual_2Dvector_2Dlength; /* %residual-vector-length */
obj cx__25residual_2Dvector_2Dref; /* %residual-vector-ref */
obj cx__25residual_2Dvector_2Dset_21; /* %residual-vector-set! */
obj cx__25residual_2Dvector_3F; /* %residual-vector? */
obj cx__25residual_2Dvoid; /* %residual-void */
obj cx__25residual_2Dwrite; /* %residual-write */
obj cx__25residual_2Dwrite_2Dchar; /* %residual-write-char */
obj cx__25residual_2Dwrite_2Dstring; /* %residual-write-string */
obj cx__25residual_2Dzero_3F; /* %residual-zero? */
obj cx__25residual_2F; /* %residual/ */
obj cx__25residual_3C; /* %residual< */
obj cx__25residual_3C_3D; /* %residual<= */
obj cx__25residual_3D; /* %residual= */
obj cx__25residual_3E; /* %residual> */
obj cx__25residual_3E_3D; /* %residual>= */
obj cx__2Acurrent_2Ddynamic_2Dstate_2A; /* *current-dynamic-state* */
obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */
obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */
obj cx__2Aexit_2A; /* *exit* */
obj cx__2Agreeting_2A; /* *greeting* */
obj cx__2Aquiet_2A; /* *quiet* */
obj cx__2Avalues_2Dtag_2A; /* *values-tag* */
obj cx_acons; /* acons */
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_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_builtins_2Dstore; /* builtins-store */
obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */
obj cx_check_2Dsyntax_2Dbindings; /* check-syntax-bindings */
obj cx_code_2Doutput; /* code-output */
obj cx_command_2Dline; /* command-line */
obj cx_comp_2Dbegin; /* comp-begin */
obj cx_comp_2Dcombination; /* comp-combination */
obj cx_comp_2Ddefine; /* comp-define */
obj cx_comp_2Dif; /* comp-if */
obj cx_comp_2Dlambda; /* comp-lambda */
obj cx_comp_2Dletrec; /* comp-letrec */
obj cx_comp_2Dquote; /* comp-quote */
obj cx_comp_2Dself_2Deval; /* comp-self-eval */
obj cx_comp_2Dsequence; /* comp-sequence */
obj cx_comp_2Dsequence_2Daux; /* comp-sequence-aux */
obj cx_comp_2Dset_21; /* comp-set! */
obj cx_comp_2Dvals; /* comp-vals */
obj cx_comp_2Dvar; /* comp-var */
obj cx_comp_2Dvar_2Dcombination; /* comp-var-combination */
obj cx_compile_2Dsyntax_2Dlambda; /* compile-syntax-lambda */
obj cx_compile_2Dsyntax_2Drules; /* compile-syntax-rules */
obj cx_dynamic_2Dstate_2Dreroot_21; /* dynamic-state-reroot! */
obj cx_dynamic_2Dwind; /* dynamic-wind */
obj cx_empty_2Denv; /* empty-env */
obj cx_empty_2Dstore; /* empty-store */
obj cx_error; /* error */
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_fixnum_2D_3Estring; /* fixnum->string */
obj cx_flonum_2D_3Estring; /* flonum->string */
obj cx_fprintf_2A; /* fprintf* */
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_greet_2Donce; /* greet-once */
obj cx_intloc_2D_3Evar; /* intloc->var */
obj cx_lcm_2F2; /* lcm/2 */
obj cx_list_2D_3Esvector; /* list->svector */
obj cx_list1_3F; /* list1? */
obj cx_list2_3F; /* list2? */
obj cx_loc_2D_3Evar; /* loc->var */
obj cx_lookup_2Dlocation; /* lookup-location */
obj cx_lookup_2Dsid; /* lookup-sid */
obj cx_lookup_2Dvar; /* lookup-var */
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_2Dpromise; /* make-promise */
obj cx_make_2Dsid; /* make-sid */
obj cx_map_2Dvecs; /* map-vecs */
obj cx_null_2Dloc_2Dn; /* null-loc-n */
obj cx_null_2Dmstore; /* null-mstore */
obj cx_null_2Doutput; /* null-output */
obj cx_null_2Dprog; /* null-prog */
obj cx_null_2Dstore; /* null-store */
obj cx_null_2Dstuff; /* null-stuff */
obj cx_pairwise_2Dandmap; /* pairwise-andmap */
obj cx_parms_2D_3Eframe; /* parms->frame */
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_print_2Derror_2Dmessage; /* print-error-message */
obj cx_print_2Dprocedure; /* print-procedure */
obj cx_push_2Dframe; /* push-frame */
obj cx_r_2Derror; /* r-error */
obj cx_read_2Ddatum; /* read-datum */
obj cx_renamed_2Dsid_3F; /* renamed-sid? */
obj cx_reset; /* reset */
obj cx_rest_2Dparam_3F; /* rest-param? */
obj cx_reverse_2Dglobal_2Dlookup; /* reverse-global-lookup */
obj cx_sbox_2D_3Esexp_2Dlist; /* sbox->sexp-list */
obj cx_scheme_2Dcall_2Derror; /* scheme-call-error */
obj cx_scheme_2Dcomp; /* scheme-comp */
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_scheme_2Dglobal_2Denvironment; /* scheme-global-environment */
obj cx_scheme_2Dglobal_2Dvar; /* scheme-global-var */
obj cx_scheme_2Dglobal_2Dvariables; /* scheme-global-variables */
obj cx_set_2Dglobal_21; /* set-global! */
obj cx_set_2Dreset_2Dhandler_21; /* set-reset-handler! */
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_siof_2Dpp; /* siof-pp */
obj cx_siof_2Drep; /* siof-rep */
obj cx_siof_2Drepl; /* siof-repl */
obj cx_splice_2Dlast_2Dlist; /* splice-last-list */
obj cx_string_2D_3Efixnum; /* string->fixnum */
obj cx_string_2D_3Eflonum; /* string->flonum */
obj cx_substitute_2Din_2Dstore; /* substitute-in-store */
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_unwrap_2Dvec; /* unwrap-vec */
obj cx_unwrap_2Dvecs; /* unwrap-vecs */
obj cx_variable; /* variable */
obj cx_variable_3F; /* variable? */
obj cx_vector_2Dfill_21; /* vector-fill! */
obj cx_with_2Dinput_2Dfrom_2Dfile; /* with-input-from-file */
obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */
obj cx_wrap_2Dvec; /* wrap-vec */
obj cx_wrap_2Dvecs; /* wrap-vecs */
obj cx_write_2Ddatum; /* write-datum */
static obj cx__231019; /* constant #1019 */
static obj cx__231039; /* constant #1039 */
static obj cx__231043; /* constant #1043 */
static obj cx__231047; /* constant #1047 */
static obj cx__231050; /* constant #1050 */
static obj cx__231077; /* constant #1077 */
static obj cx__231093; /* constant #1093 */
static obj cx__231101; /* constant #1101 */
static obj cx__231107; /* constant #1107 */
static obj cx__231117; /* constant #1117 */
static obj cx__231151; /* constant #1151 */
static obj cx__231152; /* constant #1152 */
static obj cx__231155; /* constant #1155 */
static obj cx__231162; /* constant #1162 */
static obj cx__231167; /* constant #1167 */
static obj cx__231172; /* constant #1172 */
static obj cx__231174; /* constant #1174 */
static obj cx__231179; /* constant #1179 */
static obj cx__231220; /* constant #1220 */
static obj cx__231237; /* constant #1237 */
static obj cx__231286; /* constant #1286 */
static obj cx__231324; /* constant #1324 */
static obj cx__231368; /* constant #1368 */
static obj cx__231369; /* constant #1369 */
static obj cx__231439; /* constant #1439 */
static obj cx__231578; /* constant #1578 */
static obj cx__231590; /* constant #1590 */
static obj cx__231594; /* constant #1594 */
static obj cx__232078; /* constant #2078 */
static obj cx__232160; /* constant #2160 */
static obj cx__232466; /* constant #2466 */
static obj cx__232543; /* constant #2543 */
static obj cx__232544; /* constant #2544 */
static obj cx__232589; /* constant #2589 */
static obj cx__232681; /* constant #2681 */
static obj cx__232682; /* constant #2682 */
static obj cx__232689; /* constant #2689 */
static obj cx__232750; /* constant #2750 */
static obj cx__232752; /* constant #2752 */
static obj cx__232761; /* constant #2761 */
static obj cx__232774; /* constant #2774 */
static obj cx__232841; /* constant #2841 */
static obj cx__232875; /* constant #2875 */
static obj cx__232882; /* constant #2882 */
static obj cx__232958; /* constant #2958 */
static obj cx__232959; /* constant #2959 */
static obj cx__232990; /* constant #2990 */
static obj cx__233022; /* constant #3022 */
static obj cx__233040; /* constant #3040 */
static obj cx__233046; /* constant #3046 */
static obj cx__233052; /* constant #3052 */
static obj cx__233062; /* constant #3062 */
static obj cx__233064; /* constant #3064 */
static obj cx__233066; /* constant #3066 */
static obj cx__233071; /* constant #3071 */
static obj cx__233074; /* constant #3074 */
static obj cx__233075; /* constant #3075 */
static obj cx__233076; /* constant #3076 */
static obj cx__233078; /* constant #3078 */
static obj cx__233092; /* constant #3092 */
static obj cx__233217; /* constant #3217 */
static obj cx__233235; /* constant #3235 */
static obj cx__233268; /* constant #3268 */
static obj cx__233502; /* constant #3502 */
static obj cx__233538; /* constant #3538 */
static obj cx__233639; /* constant #3639 */
static obj cx__233654; /* constant #3654 */
static obj cx__233663; /* constant #3663 */
static obj cx__233689; /* constant #3689 */
static obj cx__233715; /* constant #3715 */
static obj cx__233732; /* constant #3732 */
static obj cx__233741; /* constant #3741 */
static obj cx__233751; /* constant #3751 */
static obj cx__233771; /* constant #3771 */
static obj cx__233781; /* constant #3781 */
static obj cx__233796; /* constant #3796 */
static obj cx__233797; /* constant #3797 */
static obj cx__233799; /* constant #3799 */
static obj cx__233854; /* constant #3854 */
static obj cx__233932; /* constant #3932 */
static obj cx__233935; /* constant #3935 */
static obj cx__233942; /* constant #3942 */
static obj cx__233943; /* constant #3943 */
static obj cx__233945; /* constant #3945 */
static obj cx__233995; /* constant #3995 */
static obj cx__233996; /* constant #3996 */
static obj cx__234012; /* constant #4012 */
static obj cx__234016; /* constant #4016 */
static obj cx__234018; /* constant #4018 */
static obj cx__234027; /* constant #4027 */
static obj cx__234030; /* constant #4030 */
static obj cx__234032; /* constant #4032 */
static obj cx__234055; /* constant #4055 */
static obj cx__234060; /* constant #4060 */
static obj cx__234068; /* constant #4068 */
static obj cx__234077; /* constant #4077 */
static obj cx__234078; /* constant #4078 */
static obj cx__234210; /* constant #4210 */
static obj cx__234211; /* constant #4211 */
static obj cx__234487; /* constant #4487 */
static obj cx__234511; /* constant #4511 */
static obj cx__234603; /* constant #4603 */
static obj cx__234609; /* constant #4609 */
static obj cx__234658; /* constant #4658 */
static obj cx__234661; /* constant #4661 */
static obj cx__234664; /* constant #4664 */
static obj cx__234667; /* constant #4667 */
static obj cx__234670; /* constant #4670 */
static obj cx__234722; /* constant #4722 */
static obj cx__234733; /* constant #4733 */
static obj cx__23595; /* constant #595 */
static obj cx__23599; /* constant #599 */
static obj cx__23637; /* constant #637 */
static obj cx__236861; /* constant #6861 */
static obj cx__236867; /* constant #6867 */
static obj cx__236870; /* constant #6870 */
static obj cx__236875; /* constant #6875 */
static obj cx__236881; /* constant #6881 */
static obj cx__236882; /* constant #6882 */
static obj cx__236883; /* constant #6883 */
static obj cx__236884; /* constant #6884 */
static obj cx__236896; /* constant #6896 */
static obj cx__236904; /* constant #6904 */
static obj cx__236910; /* constant #6910 */
static obj cx__236915; /* constant #6915 */
static obj cx__236921; /* constant #6921 */
static obj cx__236927; /* constant #6927 */
static obj cx__23713; /* constant #713 */
static obj cx__23719; /* constant #719 */
static obj cx__23720; /* constant #720 */
static obj cx__23722; /* constant #722 */
static obj cx__23729; /* constant #729 */
static obj cx__23732; /* constant #732 */
static obj cx__23738; /* constant #738 */
static obj cx__23785; /* constant #785 */
static obj cx__23825; /* constant #825 */
static obj cx__23827; /* constant #827 */
static obj cx__23830; /* constant #830 */
static obj cx__23833; /* constant #833 */
static obj cx__23838; /* constant #838 */
static obj cx__23841; /* constant #841 */
static obj cx__23844; /* constant #844 */
static obj cx__23847; /* constant #847 */
static obj cx__23850; /* constant #850 */
static obj cx__23862; /* constant #862 */
static obj cx__23918; /* constant #918 */
static obj cx__23922; /* constant #922 */
static obj cx__23933; /* constant #933 */
static obj cx__23956; /* constant #956 */
static obj cx__23966; /* constant #966 */
static obj cx__23970; /* constant #970 */
static obj cx__23974; /* constant #974 */
static obj cx__23998; /* constant #998 */
/* helper functions */
/* %residual-real->fixnum */
static obj cxs__25residual_2Dreal_2D_3Efixnum(obj v18_n)
{
return ((is_fixnum_obj(v18_n)) ? (v18_n) : obj_from_fixnum(fxflo(flonum_from_obj(v18_n))));
}
/* %residual-real? */
static obj cxs__25residual_2Dreal_3F(obj v22_x)
{
return ((is_fixnum_obj(v22_x)) ? obj_from_bool(is_fixnum_obj(v22_x)) : obj_from_bool(is_flonum_obj(v22_x)));
}
/* %residual-integer? */
static obj cxs__25residual_2Dinteger_3F(obj v27_x)
{
if ((is_fixnum_obj(v27_x))) {
return obj_from_bool(is_fixnum_obj(v27_x));
} else {
if ((is_flonum_obj(v27_x))) {
{ /* flinteger? */
flonum_t f = flonum_from_obj(v27_x);
return obj_from_bool(f == floor(f)); };
} else {
return obj_from_bool(0);
}
}
}
/* %residual-inexact->exact */
static obj cxs__25residual_2Dinexact_2D_3Eexact(obj v32_x)
{
return ((is_fixnum_obj(v32_x)) ? (v32_x) : obj_from_fixnum(fxflo(flonum_from_obj(v32_x))));
}
/* %residual-zero? */
static obj cxs__25residual_2Dzero_3F(obj v40_x)
{
return ((is_fixnum_obj(v40_x)) ? obj_from_bool(fixnum_from_obj(v40_x) == 0) : obj_from_bool(flonum_from_obj(v40_x) == 0.0));
}
/* %residual-positive? */
static obj cxs__25residual_2Dpositive_3F(obj v43_x)
{
return ((is_fixnum_obj(v43_x)) ? obj_from_bool(fixnum_from_obj(v43_x) > 0) : obj_from_bool(flonum_from_obj(v43_x) > 0.0));
}
/* %residual-negative? */
static obj cxs__25residual_2Dnegative_3F(obj v46_x)
{
return ((is_fixnum_obj(v46_x)) ? obj_from_bool(fixnum_from_obj(v46_x) < 0) : obj_from_bool(flonum_from_obj(v46_x) < 0.0));
}
/* %residual-even? */
static obj cxs__25residual_2Deven_3F(obj v49_x)
{
if ((is_fixnum_obj(v49_x))) {
return obj_from_bool((fixnum_from_obj(v49_x) & 1) == 0);
} else {
{ /* fleven? */
flonum_t f = flonum_from_obj(v49_x) / 2.0;
return obj_from_bool(f == floor(f)); };
}
}
/* %residual-odd? */
static obj cxs__25residual_2Dodd_3F(obj v52_x)
{
if ((is_fixnum_obj(v52_x))) {
return obj_from_bool((fixnum_from_obj(v52_x) & 1) != 0);
} else {
{ /* flodd? */
flonum_t f = (flonum_from_obj(v52_x) + 1.0) / 2.0;
return obj_from_bool(f == floor(f)); };
}
}
/* %residual-numerator */
static obj cxs__25residual_2Dnumerator(obj v121_n)
{
return (v121_n);
}
/* %residual-rationalize */
static obj cxs__25residual_2Drationalize(obj v126_n, obj v125_d)
{
return (v126_n);
}
/* vector-fill! */
static obj cxs_vector_2Dfill_21(obj v311_v, obj v310_x)
{
{ /* letrec */
obj v315_i;
{ /* let */
obj v8384_tmp = obj_from_fixnum(+0);
/* tail call */
v315_i = (v8384_tmp);
goto s_loop;
}
s_loop:
if ((fixnum_from_obj(v315_i) == (vectorlen((v311_v))))) {
return ((0) ? obj_from_bool(0) : obj_from_void(0));
} else {
(void) obj_from_void(vectorref((v311_v), fixnum_from_obj(v315_i)) = (v310_x));
{ /* let */
obj v8383_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v315_i), (+1)));
/* tail call */
v315_i = (v8383_tmp);
goto s_loop;
}
}
}
}
/* %residual-eqv? */
static obj cxs__25residual_2Deqv_3F(obj v676_x, obj v675_y)
{
return (((v676_x) == (v675_y)) ? obj_from_bool((v676_x) == (v675_y)) : ((is_flonum_obj(v676_x)) ? ((is_flonum_obj(v675_y)) ? obj_from_bool(flonum_from_obj(v676_x) == flonum_from_obj(v675_y)) : obj_from_bool(0)) : obj_from_bool(0)));
}
/* %residual-real-part */
static obj cxs__25residual_2Dreal_2Dpart(obj v1610_x)
{
return (v1610_x);
}
/* %residual-angle */
static obj cxs__25residual_2Dangle(obj v1618_x)
{
return (bool_from_obj((is_fixnum_obj(v1618_x)) ? obj_from_bool(fixnum_from_obj(v1618_x) < 0) : obj_from_bool(flonum_from_obj(v1618_x) < 0.0)) ? (cx__231594) : obj_from_fixnum(+0));
}
/* renamed-sid? */
static obj cxs_renamed_2Dsid_3F(obj v2375_sexp)
{
return ((isvector((v2375_sexp))) ? obj_from_bool((+1) < (vectorlen((v2375_sexp)))) : obj_from_bool(0));
}
/* svector? */
static obj cxs_svector_3F(obj v2378_sexp)
{
return ((isvector((v2378_sexp))) ? obj_from_bool((+1) == (vectorlen((v2378_sexp)))) : obj_from_bool(0));
}
/* sid-name */
static obj cxs_sid_2Dname(obj v2394_sid)
{
return ((issymbol((v2394_sid))) ? (v2394_sid) : (vectorref((v2394_sid), (+0))));
}
/* sid-id */
static obj cxs_sid_2Did(obj v2399_sid)
{
return ((issymbol((v2399_sid))) ? (v2399_sid) : (vectorref((v2399_sid), (+1))));
}
/* sid-location */
static obj cxs_sid_2Dlocation(obj v2404_sid)
{
return ((issymbol((v2404_sid))) ? (v2404_sid) : (vectorref((v2404_sid), fixnum_from_obj(((+2) == (vectorlen((v2404_sid)))) ? obj_from_fixnum(+0) : obj_from_fixnum(+2)))));
}
/* list1? */
static obj cxs_list1_3F(obj v2410_x)
{
return ((ispair((v2410_x))) ? obj_from_bool(isnull((cdr((v2410_x))))) : obj_from_bool(0));
}
/* list2? */
static obj cxs_list2_3F(obj v2415_x)
{
return ((ispair((v2415_x))) ? (cxs_list1_3F((cdr((v2415_x))))) : obj_from_bool(0));
}
/* lookup-sid */
static obj cxs_lookup_2Dsid(obj v2524_sid, obj v2523_env)
{
{ /* let */
obj v2527_tmp = (isassv((cxs_sid_2Did((v2524_sid))), (v2523_env)));
return (bool_from_obj(v2527_tmp) ? (cdr((v2527_tmp))) : (cxs_sid_2Dlocation((v2524_sid))));
}
}
/* pattern-sbox? */
static obj cxs_pattern_2Dsbox_3F(obj v3537_b)
{
if ((isbox((v3537_b)))) {
if (bool_from_obj(cxs_list2_3F((boxref((v3537_b)))))) {
{ /* memq */
obj x = (car((boxref((v3537_b))))), l = (cx__233538);
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 v3581_b)
{
if ((isbox((v3581_b)))) {
if ((ispair((boxref((v3581_b)))))) {
{ /* let */
obj v3583_l = (boxref((v3581_b)));
{ /* let */
obj v3585_key = (car((v3583_l)));
return (bool_from_obj(((v3585_key) == (mksymbol(internsym("number->string", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("string->number", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("list->string", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("string->list", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("length", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("string-append", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? obj_from_bool(islist((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("+", 1)))) ? obj_from_bool(1) : (((v3585_key) == (mksymbol(internsym("*", 1)))) ? obj_from_bool(1) : obj_from_bool(0))) ? obj_from_bool(islist((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("id->string", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_l))))) : (bool_from_obj(((v3585_key) == (mksymbol(internsym("string->id", 1)))) ? obj_from_bool(1) : obj_from_bool(0)) ? (cxs_list1_3F((cdr((v3583_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 v4675_ap, obj v4674_argc)
{
{ /* let */
obj v4679_ann = (*procedureref((v4675_ap), (fxsub((procedurelen((v4675_ap))), (+1)))));
return (((fxquo(fixnum_from_obj(v4679_ann), (+1000))) <= fixnum_from_obj(v4674_argc)) ? obj_from_bool(fixnum_from_obj(v4674_argc) <= (fxrem(fixnum_from_obj(v4679_ann), (+1000)))) : obj_from_bool(0));
}
}
/* rest-param? */
static obj cxs_rest_2Dparam_3F(obj v4818_parms)
{
s_rest_2Dparam_3F:
if ((ispair((v4818_parms)))) {
{ /* let */
obj v8382_tmp = (cdr((v4818_parms)));
/* tail call */
v4818_parms = (v8382_tmp);
goto s_rest_2Dparam_3F;
}
} else {
return ((isnull((v4818_parms))) ? obj_from_bool(0) : obj_from_bool(1));
}
}
/* gc roots */
static obj *globv[] = {
&cx__25fail_2Dlambda,
&cx__25residual_2A,
&cx__25residual_2B,
&cx__25residual_2D,
&cx__25residual_2Dappend,
&cx__25residual_2Datan,
&cx__25residual_2Dchar_2Dready_3F,
&cx__25residual_2Dcons_2A,
&cx__25residual_2Ddisplay,
&cx__25residual_2Ddisplay_2Dfixnum,
&cx__25residual_2Ddisplay_2Dflonum,
&cx__25residual_2Ddisplay_2Dinput_2Dport,
&cx__25residual_2Ddisplay_2Doutput_2Dport,
&cx__25residual_2Ddisplay_2Dprocedure,
&cx__25residual_2Dexit,
&cx__25residual_2Dfor_2Deach,
&cx__25residual_2Dgcd,
&cx__25residual_2Dlcm,
&cx__25residual_2Dlist,
&cx__25residual_2Dmake_2Dcase_2Dlambda,
&cx__25residual_2Dmake_2Dstring,
&cx__25residual_2Dmake_2Dvector,
&cx__25residual_2Dmap,
&cx__25residual_2Dmax,
&cx__25residual_2Dmin,
&cx__25residual_2Dnewline,
&cx__25residual_2Dnumber_2D_3Estring,
&cx__25residual_2Dpeek_2Dchar,
&cx__25residual_2Dread,
&cx__25residual_2Dread_2Dchar,
&cx__25residual_2Dstring,
&cx__25residual_2Dstring_2D_3Enumber,
&cx__25residual_2Dstring_2Dappend,
&cx__25residual_2Dvalues,
&cx__25residual_2Dvector,
&cx__25residual_2Dwrite,
&cx__25residual_2Dwrite_2Dchar,
&cx__25residual_2Dwrite_2Dstring,
&cx__25residual_2F,
&cx__25residual_3C,
&cx__25residual_3C_3D,
&cx__25residual_3D,
&cx__25residual_3E,
&cx__25residual_3E_3D,
&cx__2Acurrent_2Ddynamic_2Dstate_2A,
&cx__2Acurrent_2Derror_2Dport_2A,
&cx__2Acurrent_2Dinput_2Dport_2A,
&cx__2Acurrent_2Doutput_2Dport_2A,
&cx__2Aexit_2A,
&cx__2Agreeting_2A,
&cx__2Aquiet_2A,
&cx__2Avalues_2Dtag_2A,
&cx_apply,
&cx_assertion_2Dviolation,
&cx_builtins_2Dstore,
&cx_empty_2Denv,
&cx_empty_2Dstore,
&cx_error,
&cx_null_2Dloc_2Dn,
&cx_null_2Doutput,
&cx_null_2Dprog,
&cx_null_2Dstore,
&cx_null_2Dstuff,
&cx_r_2Derror,
&cx_read_2Ddatum,
&cx_reset,
&cx_scheme_2Dglobal_2Denvironment,
&cx_scheme_2Dglobal_2Dvariables,
&cx_write_2Ddatum,
&cx__231019,
&cx__231039,
&cx__231043,
&cx__231047,
&cx__231050,
&cx__231077,
&cx__231093,
&cx__231101,
&cx__231107,
&cx__231117,
&cx__231151,
&cx__231152,
&cx__231155,
&cx__231162,
&cx__231167,
&cx__231172,
&cx__231174,
&cx__231179,
&cx__231220,
&cx__231237,
&cx__231286,
&cx__231324,
&cx__231368,
&cx__231369,
&cx__231439,
&cx__231578,
&cx__231590,
&cx__231594,
&cx__232078,
&cx__232160,
&cx__232466,
&cx__232543,
&cx__232544,
&cx__232589,
&cx__232681,
&cx__232682,
&cx__232689,
&cx__232750,
&cx__232752,
&cx__232761,
&cx__232774,
&cx__232841,
&cx__232875,
&cx__232882,
&cx__232958,
&cx__232959,
&cx__232990,
&cx__233022,
&cx__233040,
&cx__233046,
&cx__233052,
&cx__233062,
&cx__233064,
&cx__233066,
&cx__233071,
&cx__233074,
&cx__233075,
&cx__233076,
&cx__233078,
&cx__233092,
&cx__233217,
&cx__233235,
&cx__233268,
&cx__233502,
&cx__233538,
&cx__233639,
&cx__233654,
&cx__233663,
&cx__233689,
&cx__233715,
&cx__233732,
&cx__233741,
&cx__233751,
&cx__233771,
&cx__233781,
&cx__233796,
&cx__233797,
&cx__233799,
&cx__233854,
&cx__233932,
&cx__233935,
&cx__233942,
&cx__233943,
&cx__233945,
&cx__233995,
&cx__233996,
&cx__234012,
&cx__234016,
&cx__234018,
&cx__234027,
&cx__234030,
&cx__234032,
&cx__234055,
&cx__234060,
&cx__234068,
&cx__234077,
&cx__234078,
&cx__234210,
&cx__234211,
&cx__234487,
&cx__234511,
&cx__234603,
&cx__234609,
&cx__234658,
&cx__234661,
&cx__234664,
&cx__234667,
&cx__234670,
&cx__234722,
&cx__234733,
&cx__23595,
&cx__23599,
&cx__23637,
&cx__236861,
&cx__236867,
&cx__236870,
&cx__236875,
&cx__236881,
&cx__236882,
&cx__236883,
&cx__236884,
&cx__236896,
&cx__236904,
&cx__236910,
&cx__236915,
&cx__236921,
&cx__236927,
&cx__23713,
&cx__23719,
&cx__23720,
&cx__23722,
&cx__23729,
&cx__23732,
&cx__23738,
&cx__23785,
&cx__23825,
&cx__23827,
&cx__23830,
&cx__23833,
&cx__23838,
&cx__23841,
&cx__23844,
&cx__23847,
&cx__23850,
&cx__23862,
&cx__23918,
&cx__23922,
&cx__23933,
&cx__23956,
&cx__23966,
&cx__23970,
&cx__23974,
&cx__23998,
};
static cxroot_t root = {
sizeof(globv)/sizeof(obj *), globv, NULL
};
/* entry points */
static obj host(obj);
static obj cases[1647] = {
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(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__23595 = (hpushstr(0, newstring("r")));
cx__23599 = (hpushstr(0, newstring("cannot open file")));
cx__23637 = (hpushstr(0, newstring("w")));
cx__23713 = (hpushstr(0, newstring("#<unknown>")));
cx__23719 = (hpushstr(0, newstring("#f")));
cx__23720 = (hpushstr(0, newstring("#t")));
cx__23722 = (hpushstr(0, newstring("()")));
cx__23729 = (hpushstr(0, newstring("#<oport>")));
cx__23732 = (hpushstr(0, newstring("#<eof>")));
cx__23738 = (hpushstr(0, newstring("#&")));
cx__23785 = (hpushstr(0, newstring("#(")));
{ static char s[] = { 35, 92, 0 };
cx__23825 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 115, 112, 97, 99, 101, 0 };
cx__23827 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 114, 101, 116, 117, 114, 110, 0 };
cx__23830 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 112, 97, 103, 101, 0 };
cx__23833 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 118, 116, 97, 98, 0 };
cx__23838 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 110, 101, 119, 108, 105, 110, 101, 0 };
cx__23841 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 116, 97, 98, 0 };
cx__23844 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 98, 97, 99, 107, 115, 112, 97, 99, 101, 0 };
cx__23847 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 35, 92, 97, 108, 97, 114, 109, 0 };
cx__23850 = (hpushstr(0, newstring(s))); }
cx__23862 = (hpushstr(0, newstring(" . ")));
cx__23918 = (hpushstr(0, newstring(": ")));
cx__23922 = (hpushstr(0, newstring(" in ")));
cx__23933 = (hpushstr(0, newstring("Error")));
cx__23956 = (hpushstr(0, newstring("Assertion violation")));
cx__23966 = (hpushstr(0, newstring("right parenthesis")));
cx__23970 = (hpushstr(0, newstring("right bracket")));
{ static char s[] = { 34, 32, 46, 32, 34, 0 };
cx__23974 = (hpushstr(0, newstring(s))); }
cx__23998 = (hpushstr(0, newstring("unexpected number/symbol char")));
cx__231019 = (hpushstr(0, newstring("unsupported number syntax")));
cx__231039 = (hpushstr(0, newstring("+")));
cx__231043 = (hpushstr(0, newstring("-")));
cx__231047 = (hpushstr(0, newstring("...")));
cx__231050 = (hpushstr(0, newstring(".")));
{ static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 115, 104, 111, 114, 116, 0 };
cx__231077 = (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__231093 = (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__231101 = (hpushstr(0, newstring(s))); }
cx__231107 = (hpushstr(0, newstring("end of file within a string")));
cx__231117 = (hpushstr(0, newstring("invalid char escape in string")));
cx__231151 = (hpushstr(0, newstring("error inside list --")));
cx__231152 = (hpushstr(0, newstring("dot in #(...)")));
cx__231155 = (hpushstr(0, newstring("randomness after form after dot")));
cx__231162 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses")));
cx__231167 = (hpushstr(0, newstring("missing car -- ( immediately followed by .")));
cx__231172 = (hpushstr(0, newstring("illegal character read")));
cx__231174 = (hpushstr(0, newstring("unknown # syntax")));
{ static char s[] = { 117, 110, 107, 110, 111, 119, 110, 32, 35, 92, 32, 110, 97, 109, 101, 0 };
cx__231179 = (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__231220 = (hpushstr(0, newstring(s))); }
cx__231237 = (hpushstr(0, newstring("end of file in #| comment")));
cx__231286 = (hpushstr(0, newstring("end of file after #")));
cx__231324 = (hpushstr(0, newstring("end of file after ,")));
cx__231368 = (hpushstr(0, newstring("unexpected token:")));
cx__231369 = (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__231439 = (hpushstr(0, newstring(s))); }
cx__231578 = (hpushstr(0, newstring("nonzero imag part not supported")));
cx__231590 = (hpushstr(0, newstring("angle not supported")));
cx__231594 = obj_from_flonum(0, +3.141592653589793238462643e+0);
cx__232078 = (hpushstr(0, newstring("")));
cx__232160 = (hpushstr(0, newstring("unexpected number of arguments")));
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("builtin", 1)));
*--hp = obj_from_size(PAIR_BTAG);
cx__232466 = (hendblk(3)); }
cx__232543 = (hpushstr(0, newstring(" (or an internal define-syntax): ")));
cx__232544 = (hpushstr(0, newstring("premature use of keyword bound by letrec-syntax")));
cx__232589 = (hpushstr(0, newstring("_")));
cx__232681 = (hpushstr(0, newstring(" in lambda formals: ")));
cx__232682 = (hpushstr(0, newstring("duplicate variable: ")));
cx__232689 = (hpushstr(0, newstring("non-identifier: ")));
cx__232750 = (hpushstr(0, newstring(" and: ")));
cx__232752 = (hpushstr(0, newstring("duplicate bindings for a keyword: ")));
cx__232761 = (hpushstr(0, newstring("malformed syntax binding: ")));
cx__232774 = (hpushstr(0, newstring("non-list syntax bindings list: ")));
cx__232841 = (hpushstr(0, newstring("invalid expander: ")));
cx__232875 = (hpushstr(0, newstring("incorrect number of arguments to syntax lambda: ")));
cx__232882 = (hpushstr(0, newstring("syntax lambda applied in bad context: ")));
cx__232958 = (hpushstr(0, newstring(" expression: ")));
cx__232959 = (hpushstr(0, newstring("malformed ")));
cx__232990 = (hpushstr(0, newstring("attempt to set a keyword: ")));
cx__233022 = (hpushstr(0, newstring("malformed definition: ")));
cx__233040 = (hpushstr(0, newstring("empty begin expression: ")));
cx__233046 = (hpushstr(0, newstring("malformed syntax-lambda form: ")));
cx__233052 = (hpushstr(0, newstring("empty syntax-rules form: ")));
cx__233062 = (hpushstr(0, newstring("definition")));
cx__233064 = (hpushstr(0, newstring("syntax")));
cx__233066 = (hpushstr(0, newstring("expression")));
cx__233071 = (hpushstr(0, newstring(" used in bad context: ")));
cx__233074 = (hpushstr(0, newstring(" used as an expression, syntax, or definition.")));
cx__233075 = (hpushstr(0, newstring("unexpected type of s-expression: ")));
cx__233076 = (hpushstr(0, newstring("vector: ")));
cx__233078 = (hpushstr(0, newstring("improper list: ")));
cx__233092 = (hpushstr(0, newstring("null used as an expression or syntax: ")));
cx__233217 = (hpushstr(0, newstring("duplicate internal definitions: ")));
cx__233235 = (hpushstr(0, newstring("variable definition in a syntax body: ")));
cx__233268 = (hpushstr(0, newstring("non-syntax definition in a syntax body: ")));
cx__233502 = (hpushstr(0, newstring(" in syntax-lambda formals: ")));
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("id?", 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("string?", 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("number?", 1)));
*--hp = obj_from_size(PAIR_BTAG);
cx__233538 = (hendblk(3)); }
cx__233639 = (hpushstr(0, newstring("string->id: not a string: ")));
cx__233654 = (hpushstr(0, newstring("id->string: not an id: ")));
cx__233663 = (hpushstr(0, newstring("*: not a number: ")));
cx__233689 = (hpushstr(0, newstring("+: not a number: ")));
cx__233715 = (hpushstr(0, newstring("string-append: not a string: ")));
cx__233732 = (hpushstr(0, newstring("length: not a list: ")));
cx__233741 = (hpushstr(0, newstring("string->list: not a string: ")));
cx__233751 = (hpushstr(0, newstring("list->string: not a list of chars: ")));
cx__233771 = (hpushstr(0, newstring("string->number: not a string: ")));
cx__233781 = (hpushstr(0, newstring("number->string: not a number: ")));
cx__233796 = (hpushstr(0, newstring(" in literals list of: ")));
cx__233797 = (hpushstr(0, newstring("ellipsis ")));
cx__233799 = (hpushstr(0, newstring("non-id: ")));
cx__233854 = (hpushstr(0, newstring("pattern literals list is not a list: ")));
cx__233932 = (hpushstr(0, newstring("malformed pattern: ")));
cx__233935 = (hpushstr(0, newstring("malformed syntax rule: ")));
cx__233942 = (hpushstr(0, newstring(" in template: ")));
cx__233943 = (hpushstr(0, newstring("template ellipsis closes no variables: ")));
cx__233945 = (hpushstr(0, newstring("pattern var used at bad depth: ")));
cx__233995 = (hpushstr(0, newstring(" in pattern: ")));
cx__233996 = (hpushstr(0, newstring("duplicate pattern var: ")));
cx__234012 = (hpushstr(0, newstring("ellipsis following ")));
cx__234016 = (hpushstr(0, newstring("improper list pattern with an ellipsis")));
cx__234018 = (hpushstr(0, newstring("list or vector pattern with multiple ellipses")));
cx__234027 = (hpushstr(0, newstring("malformed box")));
{ static char s[] = { 97, 32, 39, 35, 38, 40, 111, 112, 39, 0 };
cx__234030 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 97, 32, 39, 35, 40, 39, 0 };
cx__234032 = (hpushstr(0, newstring(s))); }
cx__234055 = (hpushstr(0, newstring("an ellipsis")));
{ static char s[] = { 97, 32, 39, 46, 39, 0 };
cx__234060 = (hpushstr(0, newstring(s))); }
{ static char s[] = { 97, 32, 39, 40, 39, 0 };
cx__234068 = (hpushstr(0, newstring(s))); }
cx__234077 = (hpushstr(0, newstring("the pattern keyword")));
cx__234078 = (hpushstr(0, newstring("nothing")));
cx__234210 = (hpushstr(0, newstring(" in macro call: ")));
cx__234211 = (hpushstr(0, newstring("unequal sequence lengths for pattern vars: ")));
cx__234487 = (hpushstr(0, newstring("no matching rule for macro use: ")));
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("syntax-lambda", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("syntax-rules", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("set!", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("quote", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("lambda", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("if", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("define-syntax", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("define", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("begin", 1)));
*--hp = obj_from_size(PAIR_BTAG);
cx__234511 = (hendblk(3)); }
cx__234603 = (hpushstr(0, newstring("#<code>")));
cx__234609 = (hpushstr(0, newstring("#<procedure ")));
cx__234658 = (hpushstr(0, newstring("bad index range in call to")));
cx__234661 = (hpushstr(0, newstring("index out of range in call to")));
cx__234664 = (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__234667 = (hpushstr(0, newstring(s))); }
cx__234670 = (hpushstr(0, newstring("attempt to call non-procedure")));
cx__234722 = (hpushstr(0, newstring("identifier expected")));
cx__234733 = (hpushstr(0, newstring("ill-constructed form")));
cx__236861 = (hpushstr(0, newstring("S5IOF Scheme Interpreter 1.0.1~%")));
cx__236867 = (hpushstr(0, newstring("; returning to top level~%")));
cx__236870 = (hpushstr(0, newstring("> ")));
cx__236875 = (hpushstr(0, newstring("~%")));
cx__236881 = (hpushstr(0, newstring("-x exit after loading files on the command line~%")));
cx__236882 = (hpushstr(0, newstring("-q suppress greeting~%")));
cx__236883 = (hpushstr(0, newstring("Usage: s5iof [-qx] file ...~%")));
cx__236884 = (hpushstr(0, newstring("s5iof 1.0.1~%")));
cx__236896 = (hpushstr(0, newstring("; loading ~a...~%")));
cx__236904 = (hpushstr(0, newstring("cannot open input file ~a~%")));
cx__236910 = (hpushstr(0, newstring("-h")));
cx__236915 = (hpushstr(0, newstring("--help")));
cx__236921 = (hpushstr(0, newstring("-x")));
cx__236927 = (hpushstr(0, newstring("-q")));
{ static obj c[] = { obj_from_case(1) }; cx__25residual_2Dvoid = (obj)c; }
{ static obj c[] = { obj_from_case(2) }; cx__25residual_2Dboolean_3F = (obj)c; }
{ static obj c[] = { obj_from_case(3) }; cx__25residual_2Dnot = (obj)c; }
{ static obj c[] = { obj_from_case(4) }; cx__25residual_2Dfixnum_3F = (obj)c; }
{ static obj c[] = { obj_from_case(5) }; cx__25residual_2Dflonum_3F = (obj)c; }
{ static obj c[] = { obj_from_case(6) }; cx__25residual_2Dfixnum_2D_3Eflonum = (obj)c; }
{ static obj c[] = { obj_from_case(7) }; cx__25residual_2Dflonum_2D_3Efixnum = (obj)c; }
{ static obj c[] = { obj_from_case(8) }; cx__25residual_2Dreal_2D_3Eflonum = (obj)c; }
{ static obj c[] = { obj_from_case(9) }; cx__25residual_2Dreal_2D_3Efixnum = (obj)c; }
{ static obj c[] = { obj_from_case(10) }; cx__25residual_2Dreal_3F = (obj)c; }
{ static obj c[] = { obj_from_case(11) }; cx__25residual_2Dinteger_3F = (obj)c; }
{ static obj c[] = { obj_from_case(12) }; cx__25residual_2Dinexact_2D_3Eexact = (obj)c; }
{ static obj c[] = { obj_from_case(13) }; cx__25residual_2Dexact_2D_3Einexact = (obj)c; }
{ static obj c[] = { obj_from_case(14) }; cx__25residual_2Dzero_3F = (obj)c; }
{ static obj c[] = { obj_from_case(15) }; cx__25residual_2Dpositive_3F = (obj)c; }
{ static obj c[] = { obj_from_case(16) }; cx__25residual_2Dnegative_3F = (obj)c; }
{ static obj c[] = { obj_from_case(17) }; cx__25residual_2Deven_3F = (obj)c; }
{ static obj c[] = { obj_from_case(18) }; cx__25residual_2Dodd_3F = (obj)c; }
{ static obj c[] = { obj_from_case(19) }; cx__25residual_2Dabs = (obj)c; }
{ static obj c[] = { obj_from_case(20) }; cx__25residual_2Dquotient = (obj)c; }
{ static obj c[] = { obj_from_case(21) }; cx__25residual_2Dremainder = (obj)c; }
{ static obj c[] = { obj_from_case(22) }; cx__25residual_2Dmodulo = (obj)c; }
{ static obj c[] = { obj_from_case(23) }; cx_lcm_2F2 = (obj)c; }
{ static obj c[] = { obj_from_case(24) }; cx__25residual_2Dnumerator = (obj)c; }
{ static obj c[] = { obj_from_case(25) }; cx__25residual_2Ddenominator = (obj)c; }
{ static obj c[] = { obj_from_case(26) }; cx__25residual_2Drationalize = (obj)c; }
{ static obj c[] = { obj_from_case(27) }; cx__25residual_2Dfloor = (obj)c; }
{ static obj c[] = { obj_from_case(28) }; cx__25residual_2Dceiling = (obj)c; }
{ static obj c[] = { obj_from_case(29) }; cx__25residual_2Dtruncate = (obj)c; }
{ static obj c[] = { obj_from_case(30) }; cx__25residual_2Dround = (obj)c; }
{ static obj c[] = { obj_from_case(31) }; cx__25residual_2Dsqrt = (obj)c; }
{ static obj c[] = { obj_from_case(32) }; cx__25residual_2Dexp = (obj)c; }
{ static obj c[] = { obj_from_case(33) }; cx__25residual_2Dlog = (obj)c; }
{ static obj c[] = { obj_from_case(34) }; cx__25residual_2Dsin = (obj)c; }
{ static obj c[] = { obj_from_case(35) }; cx__25residual_2Dcos = (obj)c; }
{ static obj c[] = { obj_from_case(36) }; cx__25residual_2Dtan = (obj)c; }
{ static obj c[] = { obj_from_case(37) }; cx__25residual_2Dasin = (obj)c; }
{ static obj c[] = { obj_from_case(38) }; cx__25residual_2Dacos = (obj)c; }
{ static obj c[] = { obj_from_case(39) }; cx__25residual_2Dexpt = (obj)c; }
{ static obj c[] = { obj_from_case(40) }; cx__25residual_2Dchar_3F = (obj)c; }
{ static obj c[] = { obj_from_case(41) }; cx__25residual_2Dchar_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(42) }; cx__25residual_2Dchar_3C_3F = (obj)c; }
{ static obj c[] = { obj_from_case(43) }; cx__25residual_2Dchar_3E_3F = (obj)c; }
{ static obj c[] = { obj_from_case(44) }; cx__25residual_2Dchar_3C_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(45) }; cx__25residual_2Dchar_3E_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(46) }; cx__25residual_2Dchar_2Dci_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(47) }; cx__25residual_2Dchar_2Dci_3C_3F = (obj)c; }
{ static obj c[] = { obj_from_case(48) }; cx__25residual_2Dchar_2Dci_3E_3F = (obj)c; }
{ static obj c[] = { obj_from_case(49) }; cx__25residual_2Dchar_2Dci_3C_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(50) }; cx__25residual_2Dchar_2Dci_3E_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(51) }; cx__25residual_2Dchar_2Dalphabetic_3F = (obj)c; }
{ static obj c[] = { obj_from_case(52) }; cx__25residual_2Dchar_2Dnumeric_3F = (obj)c; }
{ static obj c[] = { obj_from_case(53) }; cx__25residual_2Dchar_2Dwhitespace_3F = (obj)c; }
{ static obj c[] = { obj_from_case(54) }; cx__25residual_2Dchar_2Dupper_2Dcase_3F = (obj)c; }
{ static obj c[] = { obj_from_case(55) }; cx__25residual_2Dchar_2Dlower_2Dcase_3F = (obj)c; }
{ static obj c[] = { obj_from_case(56) }; cx__25residual_2Dchar_2D_3Einteger = (obj)c; }
{ static obj c[] = { obj_from_case(57) }; cx__25residual_2Dinteger_2D_3Echar = (obj)c; }
{ static obj c[] = { obj_from_case(58) }; cx__25residual_2Dchar_2Dupcase = (obj)c; }
{ static obj c[] = { obj_from_case(59) }; cx__25residual_2Dchar_2Ddowncase = (obj)c; }
{ static obj c[] = { obj_from_case(60) }; cx__25residual_2Dstring_3F = (obj)c; }
{ static obj c[] = { obj_from_case(61) }; cx__25residual_2Dstring_2Dlength = (obj)c; }
{ static obj c[] = { obj_from_case(62) }; cx__25residual_2Dstring_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(63) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(64) }; cx__25residual_2Dstring_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(65) }; cx__25residual_2Dstring_3C_3F = (obj)c; }
{ static obj c[] = { obj_from_case(66) }; cx__25residual_2Dstring_3E_3F = (obj)c; }
{ static obj c[] = { obj_from_case(67) }; cx__25residual_2Dstring_3C_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(68) }; cx__25residual_2Dstring_3E_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(69) }; cx__25residual_2Dstring_2Dci_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(70) }; cx__25residual_2Dstring_2Dci_3C_3F = (obj)c; }
{ static obj c[] = { obj_from_case(71) }; cx__25residual_2Dstring_2Dci_3E_3F = (obj)c; }
{ static obj c[] = { obj_from_case(72) }; cx__25residual_2Dstring_2Dci_3C_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(73) }; cx__25residual_2Dstring_2Dci_3E_3D_3F = (obj)c; }
{ static obj c[] = { obj_from_case(74) }; cx__25residual_2Dsubstring = (obj)c; }
{ static obj c[] = { obj_from_case(75) }; cx__25residual_2Dstring_2Dappend_2F2 = (obj)c; }
{ static obj c[] = { obj_from_case(76) }; cx__25residual_2Dstring_2Dcopy = (obj)c; }
{ static obj c[] = { obj_from_case(77) }; cx__25residual_2Dstring_2Dfill_21 = (obj)c; }
{ static obj c[] = { obj_from_case(78) }; cx__25residual_2Dstring_2Dposition = (obj)c; }
{ static obj c[] = { obj_from_case(79) }; cx__25residual_2Dvector_3F = (obj)c; }
{ static obj c[] = { obj_from_case(80) }; cx__25residual_2Dmake_2Dvector = (obj)c; }
{ static obj c[] = { obj_from_case(81) }; cx__25residual_2Dvector_2Dlength = (obj)c; }
{ static obj c[] = { obj_from_case(82) }; cx__25residual_2Dvector_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(83) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(84) }; cx_vector_2Dfill_21 = (obj)c; }
{ static obj c[] = { obj_from_case(85) }; cx__25residual_2Dbox_3F = (obj)c; }
{ static obj c[] = { obj_from_case(86) }; cx__25residual_2Dbox = (obj)c; }
{ static obj c[] = { obj_from_case(87) }; cx__25residual_2Dunbox = (obj)c; }
{ static obj c[] = { obj_from_case(88) }; cx__25residual_2Dset_2Dbox_21 = (obj)c; }
{ static obj c[] = { obj_from_case(89) }; cx__25residual_2Dnull_3F = (obj)c; }
{ static obj c[] = { obj_from_case(90) }; cx__25residual_2Dpair_3F = (obj)c; }
{ static obj c[] = { obj_from_case(91) }; cx__25residual_2Datom_3F = (obj)c; }
{ static obj c[] = { obj_from_case(92) }; cx__25residual_2Dlist_3F = (obj)c; }
{ static obj c[] = { obj_from_case(93) }; cx__25residual_2Dcons = (obj)c; }
{ static obj c[] = { obj_from_case(94) }; cx__25residual_2Dcar = (obj)c; }
{ static obj c[] = { obj_from_case(95) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; }
{ static obj c[] = { obj_from_case(96) }; cx__25residual_2Dcdr = (obj)c; }
{ static obj c[] = { obj_from_case(97) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; }
{ static obj c[] = { obj_from_case(98) }; cx__25residual_2Dcaar = (obj)c; }
{ static obj c[] = { obj_from_case(99) }; cx__25residual_2Dcadr = (obj)c; }
{ static obj c[] = { obj_from_case(100) }; cx__25residual_2Dcdar = (obj)c; }
{ static obj c[] = { obj_from_case(101) }; cx__25residual_2Dcddr = (obj)c; }
{ static obj c[] = { obj_from_case(102) }; cx__25residual_2Dcaaar = (obj)c; }
{ static obj c[] = { obj_from_case(103) }; cx__25residual_2Dcaadr = (obj)c; }
{ static obj c[] = { obj_from_case(104) }; cx__25residual_2Dcadar = (obj)c; }
{ static obj c[] = { obj_from_case(105) }; cx__25residual_2Dcaddr = (obj)c; }
{ static obj c[] = { obj_from_case(106) }; cx__25residual_2Dcdaar = (obj)c; }
{ static obj c[] = { obj_from_case(107) }; cx__25residual_2Dcdadr = (obj)c; }
{ static obj c[] = { obj_from_case(108) }; cx__25residual_2Dcddar = (obj)c; }
{ static obj c[] = { obj_from_case(109) }; cx__25residual_2Dcdddr = (obj)c; }
{ static obj c[] = { obj_from_case(110) }; cx__25residual_2Dcaaaar = (obj)c; }
{ static obj c[] = { obj_from_case(111) }; cx__25residual_2Dcaaadr = (obj)c; }
{ static obj c[] = { obj_from_case(112) }; cx__25residual_2Dcaadar = (obj)c; }
{ static obj c[] = { obj_from_case(113) }; cx__25residual_2Dcaaddr = (obj)c; }
{ static obj c[] = { obj_from_case(114) }; cx__25residual_2Dcadaar = (obj)c; }
{ static obj c[] = { obj_from_case(115) }; cx__25residual_2Dcadadr = (obj)c; }
{ static obj c[] = { obj_from_case(116) }; cx__25residual_2Dcaddar = (obj)c; }
{ static obj c[] = { obj_from_case(117) }; cx__25residual_2Dcadddr = (obj)c; }
{ static obj c[] = { obj_from_case(118) }; cx__25residual_2Dcdaaar = (obj)c; }
{ static obj c[] = { obj_from_case(119) }; cx__25residual_2Dcdaadr = (obj)c; }
{ static obj c[] = { obj_from_case(120) }; cx__25residual_2Dcdadar = (obj)c; }
{ static obj c[] = { obj_from_case(121) }; cx__25residual_2Dcdaddr = (obj)c; }
{ static obj c[] = { obj_from_case(122) }; cx__25residual_2Dcddaar = (obj)c; }
{ static obj c[] = { obj_from_case(123) }; cx__25residual_2Dcddadr = (obj)c; }
{ static obj c[] = { obj_from_case(124) }; cx__25residual_2Dcdddar = (obj)c; }
{ static obj c[] = { obj_from_case(125) }; cx__25residual_2Dcddddr = (obj)c; }
{ static obj c[] = { obj_from_case(126) }; cx__25residual_2Dlength = (obj)c; }
{ static obj c[] = { obj_from_case(127) }; cx__25residual_2Dreverse = (obj)c; }
{ static obj c[] = { obj_from_case(128) }; cx__25residual_2Dreverse_21 = (obj)c; }
{ static obj c[] = { obj_from_case(129) }; cx__25residual_2Dappend_2F2 = (obj)c; }
{ static obj c[] = { obj_from_case(130) }; cx__25residual_2Dlist_2Dcopy = (obj)c; }
{ static obj c[] = { obj_from_case(131) }; cx__25residual_2Dlist_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(132) }; cx__25residual_2Dlist_2Dtail = (obj)c; }
{ static obj c[] = { obj_from_case(133) }; cx__25residual_2Dlast_2Dpair = (obj)c; }
{ static obj c[] = { obj_from_case(134) }; cx__25residual_2Dsymbol_3F = (obj)c; }
{ static obj c[] = { obj_from_case(135) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; }
{ static obj c[] = { obj_from_case(136) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; }
{ static obj c[] = { obj_from_case(137) }; cx__25residual_2Dstring_2D_3Esymbol_2Fcf = (obj)c; }
{ static obj c[] = { obj_from_case(138) }; cx_fixnum_2D_3Estring = (obj)c; }
{ static obj c[] = { obj_from_case(139) }; cx_flonum_2D_3Estring = (obj)c; }
{ static obj c[] = { obj_from_case(140) }; cx_string_2D_3Efixnum = (obj)c; }
{ static obj c[] = { obj_from_case(141) }; cx_string_2D_3Eflonum = (obj)c; }
{ static obj c[] = { obj_from_case(142) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; }
{ static obj c[] = { obj_from_case(143) }; cx__25residual_2Dvector_2D_3Elist = (obj)c; }
{ static obj c[] = { obj_from_case(144) }; cx__25residual_2Dlist_2D_3Evector = (obj)c; }
{ static obj c[] = { obj_from_case(145) }; cx__25residual_2Dlist_2D_3Estring = (obj)c; }
{ static obj c[] = { obj_from_case(146) }; cx__25residual_2Dstring_2D_3Elist = (obj)c; }
{ static obj c[] = { obj_from_case(147) }; 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(148) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(149) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; }
{ static obj c[] = { obj_from_case(150) }; cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(151) }; cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F = (obj)c; }
{ static obj c[] = { obj_from_case(152) }; cx_make_2Dpromise = (obj)c; }
{ static obj c[] = { obj_from_case(155) }; cx__25residual_2Deof_2Dobject = (obj)c; }
{ static obj c[] = { obj_from_case(156) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; }
{ static obj c[] = { obj_from_case(157) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; }
{ static obj c[] = { obj_from_case(158) }; cx__25residual_2Dclose_2Dinput_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(159) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; }
cx__2Acurrent_2Dinput_2Dport_2A = (mkiport_file(0, stdin));
{ static obj c[] = { obj_from_case(160) }; cx__25residual_2Dcurrent_2Dinput_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(161) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(162) }; cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(165) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(168) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; }
{ static obj c[] = { obj_from_case(169) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; }
cx__2Acurrent_2Doutput_2Dport_2A = (mkoport(0, stdout));
{ static obj c[] = { obj_from_case(170) }; cx__25residual_2Dcurrent_2Doutput_2Dport = (obj)c; }
cx__2Acurrent_2Derror_2Dport_2A = (mkoport(0, stderr));
{ static obj c[] = { obj_from_case(171) }; cx__25residual_2Dcurrent_2Derror_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(172) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(173) }; cx__25residual_2Dflush_2Doutput_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(174) }; cx__25residual_2Dclose_2Doutput_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(175) }; cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(178) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(181) }; cx__25residual_2Deq_3F = (obj)c; }
{ static obj c[] = { obj_from_case(182) }; cx__25residual_2Deqv_3F = (obj)c; }
{ static obj c[] = { obj_from_case(183) }; cx__25residual_2Dequal_3F = (obj)c; }
{ static obj c[] = { obj_from_case(184) }; cx__25residual_2Dmemq = (obj)c; }
{ static obj c[] = { obj_from_case(185) }; cx__25residual_2Dmemv = (obj)c; }
{ static obj c[] = { obj_from_case(186) }; cx__25residual_2Dmember = (obj)c; }
{ static obj c[] = { obj_from_case(187) }; cx__25residual_2Dassq = (obj)c; }
{ static obj c[] = { obj_from_case(188) }; cx__25residual_2Dassv = (obj)c; }
{ static obj c[] = { obj_from_case(189) }; cx__25residual_2Dassoc = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(191);
r[0] = (hendblk(0+1));
hreserve(hbsz(1+1), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_case(190);
cx_write_2Ddatum = (hendblk(1+1));
{ static obj c[] = { obj_from_case(199) }; cx__25residual_2Dput_2Ddatum = (obj)c; }
{ static obj c[] = { obj_from_case(200) }; cx_print_2Derror_2Dmessage = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(207);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx_error = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(209);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx_assertion_2Dviolation = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("reader-token", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (cx__23966);
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (cx__23970);
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (cx__23974);
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = obj_from_case(211);
r[4] = (hendblk(1+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(212);
r[5] = (hendblk(0+1));
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = obj_from_case(213);
r[6] = (hendblk(1+1));
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[3];
*--hp = r[5];
*--hp = obj_from_case(217);
r[7] = (hendblk(2+1));
hreserve(hbsz(7+1), 8); /* 8 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = r[2];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[3];
*--hp = obj_from_case(230);
r[8] = (hendblk(7+1));
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[4];
*--hp = r[8];
*--hp = obj_from_case(220);
cx_read_2Ddatum = (hendblk(2+1));
{ static obj c[] = { obj_from_case(250) }; cx__25residual_2Dget_2Ddatum = (obj)c; }
{ static obj c[] = { obj_from_case(251) }; cx__25residual_2Dfile_2Dexists_3F = (obj)c; }
{ static obj c[] = { obj_from_case(252) }; cx__25residual_2Ddelete_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(253) }; cx__25residual_2Drename_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(254) }; 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(256) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; }
{ static obj c[] = { obj_from_case(259) }; cx_dynamic_2Dwind = (obj)c; }
{ static obj c[] = { obj_from_case(264) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; }
{ static obj c[] = { obj_from_case(266) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; }
{ static obj c[] = { obj_from_case(267) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; }
{ static obj c[] = { obj_from_case(268) }; cx__25residual_2Dabort = (obj)c; }
{ static obj c[] = { obj_from_case(269) }; cx_reset = (obj)c; }
{ static obj c[] = { obj_from_case(270) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; }
{ static obj c[] = { obj_from_case(271) }; cx__25residual_2Dargv_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(272) }; cx_command_2Dline = (obj)c; }
{ static obj c[] = { obj_from_case(273) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; }
{ static obj c[] = { obj_from_case(274) }; cx__25residual_2Dsystem = (obj)c; }
{ static obj c[] = { obj_from_case(275) }; cx__25residual_2Dmake_2Drectangular = (obj)c; }
{ static obj c[] = { obj_from_case(276) }; cx__25residual_2Dmake_2Dpolar = (obj)c; }
{ static obj c[] = { obj_from_case(277) }; cx__25residual_2Dreal_2Dpart = (obj)c; }
{ static obj c[] = { obj_from_case(278) }; cx__25residual_2Dimag_2Dpart = (obj)c; }
{ static obj c[] = { obj_from_case(279) }; cx__25residual_2Dmagnitude = (obj)c; }
{ static obj c[] = { obj_from_case(280) }; cx__25residual_2Dangle = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(281);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dvalues = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(283);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_3D = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(284);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_3C = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(285);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_3E = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(286);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_3C_3D = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(287);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_3E_3D = (hendblk(3)); }
{ static obj c[] = { obj_from_case(288) }; cx__25residual_2Dmax_2F2 = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(289);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmax = (hendblk(3)); }
{ static obj c[] = { obj_from_case(292) }; cx__25residual_2Dmin_2F2 = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(293);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmin = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(296);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2B = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(297);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2A = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(298);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dgcd = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(299);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dlcm = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(302);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2D = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(303);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2F = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(304);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Datan = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(305);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+2);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmap = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(314);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+2);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dfor_2Deach = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(323);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmake_2Dstring = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(324);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dstring = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(325);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dstring_2Dappend = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(327);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmake_2Dvector = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(328);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dvector = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(329);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dlist = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(330);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dcons_2A = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(332);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dappend = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(334);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(335);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(336);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25fail_2Dlambda = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(337);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(338);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dread_2Dchar = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(339);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dpeek_2Dchar = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(340);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(341);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(342);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(343);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(344);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(345);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay_2Doutput_2Dport = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(346);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dwrite_2Dchar = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(347);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dwrite_2Dstring = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(348);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dnewline = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(349);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dwrite = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(350);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Ddisplay = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(351);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dread = (hendblk(3)); }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(352);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx__25residual_2Dexit = (hendblk(3)); }
{ static obj c[] = { obj_from_case(353) }; cx_append_2A = (obj)c; }
{ static obj c[] = { obj_from_case(355) }; cx_apply_2Dmap_2Dlist = (obj)c; }
{ static obj c[] = { obj_from_case(362) }; cx_pairwise_2Dandmap = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(364);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx_r_2Derror = (hendblk(3)); }
{ static obj c[] = { obj_from_case(367) }; cx_sid_3F = (obj)c; }
{ static obj c[] = { obj_from_case(368) }; cx_renamed_2Dsid_3F = (obj)c; }
{ static obj c[] = { obj_from_case(369) }; cx_svector_3F = (obj)c; }
{ static obj c[] = { obj_from_case(370) }; cx_svector_2D_3Elist = (obj)c; }
{ static obj c[] = { obj_from_case(371) }; cx_list_2D_3Esvector = (obj)c; }
{ static obj c[] = { obj_from_case(372) }; cx_make_2Dsid = (obj)c; }
{ static obj c[] = { obj_from_case(373) }; cx_sid_2Dname = (obj)c; }
{ static obj c[] = { obj_from_case(374) }; cx_sid_2Did = (obj)c; }
{ static obj c[] = { obj_from_case(375) }; cx_sid_2Dlocation = (obj)c; }
{ static obj c[] = { obj_from_case(376) }; cx_list1_3F = (obj)c; }
{ static obj c[] = { obj_from_case(377) }; cx_list2_3F = (obj)c; }
{ static obj c[] = { obj_from_case(378) }; cx_map_2Dvecs = (obj)c; }
{ static obj c[] = { obj_from_case(385) }; cx_wrap_2Dvec = (obj)c; }
{ static obj c[] = { obj_from_case(387) }; cx_wrap_2Dvecs = (obj)c; }
{ static obj c[] = { obj_from_case(390) }; cx_unwrap_2Dvec = (obj)c; }
{ static obj c[] = { obj_from_case(392) }; cx_unwrap_2Dvecs = (obj)c; }
{ static obj c[] = { obj_from_case(393) }; cx_make_2Dcode = (obj)c; }
{ static obj c[] = { obj_from_case(394) }; cx_make_2Dbuiltin = (obj)c; }
{ static obj c[] = { obj_from_case(395) }; cx_variable_3F = (obj)c; }
{ static obj c[] = { obj_from_case(396) }; cx_expanded_2Dcode_3F = (obj)c; }
{ static obj c[] = { obj_from_case(397) }; cx_code_2Doutput = (obj)c; }
{ static obj c[] = { obj_from_case(398) }; cx_syntax_3F = (obj)c; }
{ static obj c[] = { obj_from_case(399) }; cx_builtin_3F = (obj)c; }
{ static obj c[] = { obj_from_case(400) }; cx_builtin_2Dname = (obj)c; }
{ static obj c[] = { obj_from_case(401) }; cx_expander_3F = (obj)c; }
{ static obj c[] = { obj_from_case(402) }; cx_make_2Dexpander = (obj)c; }
{ static obj c[] = { obj_from_case(403) }; cx_expander_2Dform = (obj)c; }
{ static obj c[] = { obj_from_case(404) }; cx_expander_2Denv = (obj)c; }
{ static obj c[] = { obj_from_case(405) }; cx_acons = (obj)c; }
cx_empty_2Denv = (mknull());
cx_empty_2Dstore = (mknull());
{ static obj c[] = { obj_from_case(406) }; cx_lookup_2Dsid = (obj)c; }
{ static obj c[] = { obj_from_case(407) }; cx_lookup_2Dlocation = (obj)c; }
{ static obj c[] = { obj_from_case(408) }; cx_lookup2 = (obj)c; }
{ static obj c[] = { obj_from_case(410) }; cx_extend_2Denv = (obj)c; }
{ static obj c[] = { obj_from_case(411) }; cx_extend_2Dstore = (obj)c; }
{ static obj c[] = { obj_from_case(412) }; cx_substitute_2Din_2Dstore = (obj)c; }
{ static obj c[] = { obj_from_case(417) }; cx_symloc_2D_3Evar = (obj)c; }
{ static obj c[] = { obj_from_case(418) }; cx_intloc_2D_3Evar = (obj)c; }
{ static obj c[] = { obj_from_case(419) }; cx_loc_2D_3Evar = (obj)c; }
{ static obj c[] = { obj_from_case(420) }; cx_make_2Dbegin = (obj)c; }
{ static obj c[] = { obj_from_case(421) }; cx_expand_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(435) }; cx_check_2Dsyntax_2Dbindings = (obj)c; }
{ static obj c[] = { obj_from_case(443) }; cx_expand_2Dsyntax_2Dbindings = (obj)c; }
{ static obj c[] = { obj_from_case(446) }; cx_apply_2Dexpander = (obj)c; }
{ static obj c[] = { obj_from_case(452) }; cx_expand_2Dany = (obj)c; }
{ static obj c[] = { obj_from_case(491) }; cx_expand_2Dval = (obj)c; }
{ static obj c[] = { obj_from_case(494) }; cx_expand_2Dexpr = (obj)c; }
{ static obj c[] = { obj_from_case(496) }; cx_expand_2Dbody = (obj)c; }
{ static obj c[] = { obj_from_case(535) }; cx_expand_2Dtop_2Dlevel_2Dforms = (obj)c; }
{ static obj c[] = { obj_from_case(549) }; cx_compile_2Dsyntax_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(555) }; cx_sbox_2D_3Esexp_2Dlist = (obj)c; }
{ static obj c[] = { obj_from_case(556) }; cx_pattern_2Dsbox_2D_3Esexp = (obj)c; }
{ static obj c[] = { obj_from_case(557) }; cx_pattern_2Dsbox_3F = (obj)c; }
{ static obj c[] = { obj_from_case(558) }; cx_pattern_2Dsbox_2D_3Etest = (obj)c; }
{ static obj c[] = { obj_from_case(562) }; cx_template_2Dsbox_2D_3Esexp = (obj)c; }
{ static obj c[] = { obj_from_case(563) }; cx_template_2Dsbox_3F = (obj)c; }
{ static obj c[] = { obj_from_case(564) }; cx_template_2Dsbox_2D_3Econv = (obj)c; }
{ static obj c[] = { obj_from_case(580) }; cx_compile_2Dsyntax_2Drules = (obj)c; }
{ static obj c[] = { obj_from_case(656) }; cx_apply_2Dsynrules = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(728);
r[0] = (hendblk(0+1));
r[1+0] = r[0];
r[1+1] = (cx__234511);
r[1+2] = (mknull());
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v21584;
case 1: /* %residual-void k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
r[1+0] = r[0];
pc = objptr_from_obj(r[1+0])[0];
r[1+1] = obj_from_ktrap();
r[1+2] = obj_from_void(0);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 2: /* %residual-boolean? k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(is_bool_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 3: /* %residual-not k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(!bool_from_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 4: /* %residual-fixnum? k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(is_fixnum_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 5: /* %residual-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 6: /* %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 7: /* %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 8: /* %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 9: /* %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 10: /* %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 11: /* %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 12: /* %residual-inexact->exact k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dinexact_2D_3Eexact((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 13: /* %residual-exact->inexact k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 14: /* %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 15: /* %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 16: /* %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 17: /* %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 18: /* %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 19: /* %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 20: /* %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 v27145_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxquo((v27145_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v27146_tmp = ((flonum_t)(v27145_x));
r[3] = obj_from_flonum(3, flquo((v27146_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v27144_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v27144_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 21: /* %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 v27142_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxrem((v27142_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v27143_tmp = ((flonum_t)(v27142_x));
r[3] = obj_from_flonum(3, flrem((v27143_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v27141_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v27141_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 22: /* %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 v27139_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxmlo((v27139_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v27140_tmp = ((flonum_t)(v27139_x));
r[3] = obj_from_flonum(3, flmlo((v27140_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v27138_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v27138_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 23: /* 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 v27130_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxgcd((v27130_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v27131_tmp = ((flonum_t)(v27130_x));
r[3] = obj_from_flonum(3, flgcd((v27131_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v27129_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v27129_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 v27133_a = fixnum_from_obj(r[4]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_fixnum(fxquo((v27133_a), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v27134_tmp = ((flonum_t)(v27133_a));
r[4] = obj_from_flonum(5, flquo((v27134_tmp), flonum_from_obj(r[3]))); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27132_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v27132_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 v27136_a = fixnum_from_obj(r[4]);
if ((is_fixnum_obj(r[5]))) {
r[3] = obj_from_fixnum(fxmul((v27136_a), fixnum_from_obj(r[5])));
} else {
{ const flonum_t v27137_tmp = ((flonum_t)(v27136_a));
r[3] = obj_from_flonum(6, (v27137_tmp) * flonum_from_obj(r[5])); }
} }
} else {
if ((is_fixnum_obj(r[5]))) {
{ const flonum_t v27135_tmp = ((flonum_t)fixnum_from_obj(r[5]));
r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v27135_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 24: /* %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 25: /* %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 26: /* %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 27: /* %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 28: /* %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 29: /* %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 30: /* %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 31: /* %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 32: /* %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 33: /* %residual-log k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
r[2] = obj_from_flonum(3, log(flonum_from_obj(r[2])));
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 34: /* %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 35: /* %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 36: /* %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 37: /* %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 38: /* %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 39: /* %residual-expt k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v27127_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxpow((v27127_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v27128_tmp = ((flonum_t)(v27127_x));
r[3] = obj_from_flonum(3, pow((v27128_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v27126_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), (v27126_tmp))); }
} else {
r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
}
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 40: /* %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 41: /* %residual-char=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) == char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 42: /* %residual-char<? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) < char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 43: /* %residual-char>? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) > char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 44: /* %residual-char<=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) <= char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 45: /* %residual-char>=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) >= char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 46: /* %residual-char-ci=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 47: /* %residual-char-ci<? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 48: /* %residual-char-ci>? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 49: /* %residual-char-ci<=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 50: /* %residual-char-ci>=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 51: /* %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 52: /* %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 53: /* %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 54: /* %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 55: /* %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 56: /* %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 57: /* %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 58: /* %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 59: /* %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 60: /* %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 61: /* %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 62: /* %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 63: /* %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 64: /* %residual-string=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) == 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 65: /* %residual-string<? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) < 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 66: /* %residual-string>? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) > 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 67: /* %residual-string<=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) <= 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 68: /* %residual-string>=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) >= 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 69: /* %residual-string-ci=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) == 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 70: /* %residual-string-ci<? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) < 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 71: /* %residual-string-ci>? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) > 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 72: /* %residual-string-ci<=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) <= 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 73: /* %residual-string-ci>=? k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(strcmp_ci(stringchars((r[1])), stringchars((r[2]))) >= 0);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 74: /* %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 75: /* %residual-string-append/2 k s1 s2 */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k s1 s2 */
{ /* string-append */
int *d = stringcat(stringdata((r[1])), stringdata((r[2])));
r[3] = (hpushstr(3, d)); }
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 76: /* %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 77: /* %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 78: /* %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 79: /* %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 80: /* %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 81: /* %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 82: /* %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 83: /* %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 84: /* vector-fill! k v x */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k v x */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (cxs_vector_2Dfill_21((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 85: /* %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 86: /* %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 87: /* %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 88: /* %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 89: /* %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 90: /* %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 91: /* %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 92: /* %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 93: /* %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 94: /* %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 95: /* %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 96: /* %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 97: /* %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 98: /* %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 99: /* %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 100: /* %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 101: /* %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 102: /* %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 103: /* %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 104: /* %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 105: /* %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 106: /* %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 107: /* %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 108: /* %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 109: /* %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 110: /* %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 111: /* %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 112: /* %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 113: /* %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 114: /* %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 115: /* %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 116: /* %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 117: /* %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 118: /* %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 119: /* %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 120: /* %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 121: /* %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 122: /* %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 123: /* %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 124: /* %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 125: /* %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 126: /* %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 127: /* %residual-reverse k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27125_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27125_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27125_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 128: /* %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 129: /* %residual-append/2 k l o */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k l o */
{ fixnum_t v27124_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27124_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27124_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 130: /* %residual-list-copy k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27123_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27123_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27123_tmp);
hreserve(hbsz(3)*c, 2); /* 2 live regs */
l = r[1]; t = (mknull()); /* gc-safe */
o = t; p = &o;
for (; l != mknull(); l = cdr(l)) {
*--hp = t; d = hp; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG);
*p = hendblk(3); p = d; }
r[2] = (o); } }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 131: /* %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 132: /* %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 133: /* %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 134: /* %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 135: /* %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 136: /* %residual-string->symbol k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mksymbol(internsym(stringchars((r[1])), 0)));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 137: /* %residual-string->symbol/cf k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mksymbol(internsym(stringchars((r[1])), 1)));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 138: /* 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 139: /* flonum->string k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
{ /* flonum->string */
char buf[30], *s;
sprintf(buf, "%.15g", flonum_from_obj(r[1]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[2] = (hpushstr(2, newstring(buf))); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 140: /* 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 141: /* string->flonum k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
{ /* string->flonum */
char *e, *s = stringchars((r[1]));
double d = (errno = 0, strtod(s, &e));
if (errno || e == s || *e) r[2] = obj_from_bool(0);
else r[2] = obj_from_flonum(2, d); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 142: /* %residual-string->fixnum-or-flonum k s r */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k s r */
{ /* string->fixnum-or-flonum */
char *s = stringchars((r[1]));
int radix = fixnum_from_obj(r[2]); long l; double d;
switch (strtofxfl(s, radix, &l, &d)) {
case 'e': r[3] = obj_from_fixnum(l); break;
case 'i': r[3] = obj_from_flonum(3, d); break;
default : r[3] = obj_from_bool(0); break;
} }
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 143: /* %residual-vector->list k v */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k v */
{ /* vector->list */
obj v, l = mknull(); int c = (vectorlen((r[1])));
hreserve(hbsz(3)*c, 2); /* 2 live regs */
v = r[1]; /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[2] = (l); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 144: /* %residual-list->vector k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27122_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27122_tmp = (n); }
{ /* list->vector */
obj l; int i, c = (v27122_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 145: /* %residual-list->string k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27121_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27121_tmp = (n); }
{ /* list->string */
int i, c = (v27121_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 146: /* %residual-string->list k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
{ /* string->list */
int c = (stringlen((r[1])));
unsigned char *s; obj l = mknull();
hreserve(hbsz(3)*c, 2); /* 2 live regs */
s = (unsigned char *)stringchars((r[1])); /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[2] = (l); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 147: /* %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 148: /* %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 149: /* %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 150: /* %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 151: /* %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 152: /* make-promise k proc */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k proc */
hreserve(hbsz(1), 2); /* 2 live regs */
*--hp = obj_from_bool(0);
r[2] = (hendblk(1));
hreserve(hbsz(1), 3); /* 3 live regs */
*--hp = obj_from_bool(0);
r[3] = (hendblk(1));
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
*--hp = r[1];
*--hp = obj_from_case(153);
r[2] = (hendblk(3+1));
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 153: /* clo k */
assert(rc == 2);
{ obj* p = objptr_from_obj(r[0]);
r[1+1] = p[1];
r[1+2] = p[2];
r[1+3] = p[3]; }
r += 1; /* shift reg. wnd */
/* k proc result result-ready? */
if (bool_from_obj(objptr_from_obj(r[3])[0])) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (objptr_from_obj(r[2])[0]);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = r[0];
*--hp = obj_from_case(154);
r[4] = (hendblk(3+1));
r[5+0] = r[1];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
}
case 154: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k result result-ready? */
if (bool_from_obj(objptr_from_obj(r[4])[0])) {
r[5] = (objptr_from_obj(r[3])[0]);
} else {
(void)(objptr_from_obj(r[4])[0] = obj_from_bool(1));
(void)(objptr_from_obj(r[3])[0] = (r[1]));
r[5] = (objptr_from_obj(r[3])[0]);
}
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 155: /* %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 156: /* %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 157: /* %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 158: /* %residual-close-input-port k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
{ /* close-input-port */
obj o = r[1]; cxtype_iport_t *vt = iportvt(o); assert(vt);
r[2] = obj_from_void(vt->close(iportdata(o))); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 159: /* %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 160: /* %residual-current-input-port k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
r[1+0] = r[0];
pc = objptr_from_obj(r[1+0])[0];
r[1+1] = obj_from_ktrap();
r[1+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 161: /* %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__23595))));
if (bool_from_obj(r[2])) {
r[3] = (mkiport_file(3, (void*)((r[2]))));
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = (cx_error);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = (mksymbol(internsym("open-input-file", 1)));
r[3+3] = (cx__23599);
r[3+4] = (r[1]);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 162: /* %residual-call-with-input-file k fn proc */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k fn proc */
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23595))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(163);
r[4] = (hendblk(2+1));
if (bool_from_obj(r[3])) {
r[5] = (mkiport_file(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[2];
r[6+3] = r[0];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25867;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (mksymbol(internsym("open-input-file", 1)));
r[5+3] = (cx__23599);
r[5+4] = (r[1]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 163: /* clo ek r */
assert(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_v25867: /* ek r proc k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(164);
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 164: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k r */
{ /* close-input-port */
obj o = r[3]; cxtype_iport_t *vt = iportvt(o); assert(vt);
(void)(vt->close(iportdata(o))); }
r[4] = r[1];
r[5+0] = r[2];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 165: /* with-input-from-file k fn thunk */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k fn thunk */
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23595))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(166);
r[4] = (hendblk(2+1));
if (bool_from_obj(r[3])) {
r[5] = (mkiport_file(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[2];
r[6+3] = r[0];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25847;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (mksymbol(internsym("open-input-file", 1)));
r[5+3] = (cx__23599);
r[5+4] = (r[1]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 166: /* clo ek r */
assert(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_v25847: /* ek r thunk k */
r[4] = (cx__2Acurrent_2Dinput_2Dport_2A);
cx__2Acurrent_2Dinput_2Dport_2A = r[1];
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(167);
r[5] = (hendblk(3+1));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
case 167: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k p0 r */
{ /* close-input-port */
obj o = r[4]; cxtype_iport_t *vt = iportvt(o); assert(vt);
(void)(vt->close(iportdata(o))); }
cx__2Acurrent_2Dinput_2Dport_2A = r[3];
r[5] = r[1];
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 168: /* %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 169: /* %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 170: /* %residual-current-output-port k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
r[1+0] = r[0];
pc = objptr_from_obj(r[1+0])[0];
r[1+1] = obj_from_ktrap();
r[1+2] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 171: /* %residual-current-error-port k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
r[1+0] = r[0];
pc = objptr_from_obj(r[1+0])[0];
r[1+1] = obj_from_ktrap();
r[1+2] = (cx__2Acurrent_2Derror_2Dport_2A);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 172: /* %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__23637))));
if (bool_from_obj(r[2])) {
r[3] = (mkoport(3, (void*)((r[2]))));
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = (cx_error);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = (mksymbol(internsym("open-output-file", 1)));
r[3+3] = (cx__23599);
r[3+4] = (r[1]);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 173: /* %residual-flush-output-port k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_void(fflush(oportdata((r[1]))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 174: /* %residual-close-output-port k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_void(fclose(oportdata((r[1]))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 175: /* %residual-call-with-output-file k fn proc */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k fn proc */
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23637))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(176);
r[4] = (hendblk(2+1));
if (bool_from_obj(r[3])) {
r[5] = (mkoport(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[2];
r[6+3] = r[0];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25789;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (mksymbol(internsym("open-output-file", 1)));
r[5+3] = (cx__23599);
r[5+4] = (r[1]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 176: /* clo ek r */
assert(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_v25789: /* ek r proc k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(177);
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 177: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k r */
(void)(fclose(oportdata((r[3]))));
r[4] = r[1];
r[5+0] = r[2];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 178: /* with-output-to-file k fn thunk */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k fn thunk */
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23637))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(179);
r[4] = (hendblk(2+1));
if (bool_from_obj(r[3])) {
r[5] = (mkoport(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[2];
r[6+3] = r[0];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25769;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (mksymbol(internsym("open-output-file", 1)));
r[5+3] = (cx__23599);
r[5+4] = (r[1]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 179: /* clo ek r */
assert(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_v25769: /* ek r thunk k */
r[4] = (cx__2Acurrent_2Doutput_2Dport_2A);
cx__2Acurrent_2Doutput_2Dport_2A = r[1];
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(180);
r[5] = (hendblk(3+1));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
case 180: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k p0 r */
(void)(fclose(oportdata((r[4]))));
cx__2Acurrent_2Doutput_2Dport_2A = r[3];
r[5] = r[1];
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 181: /* %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 182: /* %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 183: /* %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 184: /* %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 185: /* %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 186: /* %residual-member k x l */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x l */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (ismember((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 187: /* %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 188: /* %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 189: /* %residual-assoc k x l */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x l */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (isassoc((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 190: /* clo k x d? p */
assert(rc == 5);
{ obj* p = objptr_from_obj(r[0]);
r[1+4] = p[1]; }
r += 1; /* shift reg. wnd */
/* k x d? p sub-write */
r[5+0] = r[4];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
r[5+2] = r[1];
r[5+3] = r[2];
r[5+4] = r[3];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 191: /* clo k x d? p */
assert(rc == 5);
r += 1; /* shift reg. wnd */
s_sub_2Dwrite: /* k x d? p */
if ((iseof((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputs(stringchars((cx__23732)), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isiport((r[1])))) {
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = obj_from_void(fprintf(oportdata((r[3])), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isoport((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputs(stringchars((cx__23729)), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((issymbol((r[1])))) {
r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[1]))))));
r[4] = obj_from_void(fputs(stringchars((r[4])), oportdata((r[3]))));
r[5+0] = r[0];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((ispair((r[1])))) {
/* r[0] */
/* r[1] */
/* r[2] */
/* r[3] */
goto s_sub_2Dwrite_2Dpair;
} else {
if ((is_fixnum_obj(r[1]))) {
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = obj_from_void(fprintf(oportdata((r[3])), "%ld", fixnum_from_obj(r[1])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((is_flonum_obj(r[1]))) {
{ /* display-flonum */
char buf[30], *s;
sprintf(buf, "%.17g", flonum_from_obj(r[1]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[4] = obj_from_void(fputs(buf, oportdata((r[3])))); }
r[5+0] = r[0];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputs(stringchars((cx__23722)), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((is_bool_obj(r[1]))) {
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = obj_from_void(fputs(stringchars((bool_from_obj(r[1]) ? (cx__23720) : (cx__23719))), oportdata((r[3]))));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((is_char_obj(r[1]))) {
{ const char_t v27120_x = char_from_obj(r[1]);
if (bool_from_obj(r[2])) {
r[4] = obj_from_void(fputc((v27120_x), oportdata((r[3]))));
} else {
if (((v27120_x) == (7))) {
r[4] = obj_from_void(fputs(stringchars((cx__23850)), oportdata((r[3]))));
} else {
if (((v27120_x) == (8))) {
r[4] = obj_from_void(fputs(stringchars((cx__23847)), oportdata((r[3]))));
} else {
if (((v27120_x) == (9))) {
r[4] = obj_from_void(fputs(stringchars((cx__23844)), oportdata((r[3]))));
} else {
if (((v27120_x) == (10))) {
r[4] = obj_from_void(fputs(stringchars((cx__23841)), oportdata((r[3]))));
} else {
if (((v27120_x) == (11))) {
r[4] = obj_from_void(fputs(stringchars((cx__23838)), oportdata((r[3]))));
} else {
if (((v27120_x) == (12))) {
r[4] = obj_from_void(fputs(stringchars((cx__23833)), oportdata((r[3]))));
} else {
if (((v27120_x) == (12))) {
r[4] = obj_from_void(fputs(stringchars((cx__23833)), oportdata((r[3]))));
} else {
if (((v27120_x) == (13))) {
r[4] = obj_from_void(fputs(stringchars((cx__23830)), oportdata((r[3]))));
} else {
if (((v27120_x) == (' '))) {
r[4] = obj_from_void(fputs(stringchars((cx__23827)), oportdata((r[3]))));
} else {
(void)(fputs(stringchars((cx__23825)), oportdata((r[3]))));
r[4] = obj_from_void(fputc((v27120_x), oportdata((r[3]))));
}
}
}
}
}
}
}
}
}
}
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
} else {
if ((isstring((r[1])))) {
if (bool_from_obj(r[2])) {
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = obj_from_void(fputs(stringchars((r[1])), oportdata((r[3]))));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
(void)(fputc((34), oportdata((r[3]))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[0];
*--hp = obj_from_case(192);
r[4] = (hendblk(2+1));
r[5+0] = r[4];
r[5+1] = obj_from_fixnum(+0);
r[5+2] = r[3];
r[5+3] = r[1];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop;
}
} else {
if ((isvector((r[1])))) {
/* r[0] */
/* r[1] */
/* r[2] */
/* r[3] */
goto s_sub_2Dwrite_2Dvector;
} else {
if ((isbox((r[1])))) {
/* r[0] */
/* r[1] */
/* r[2] */
/* r[3] */
goto s_sub_2Dwrite_2Dbox;
} else {
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = obj_from_void((isprocedure((r[1]))) ? (void)(fprintf(oportdata((r[3])), "#<procedure @%p>", objptr_from_obj((r[1])))) : (void)(fputs(stringchars((cx__23713)), oportdata((r[3])))));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
}
}
}
}
}
}
}
}
}
}
s_loop: /* k i p x */
if ((is_fixnum_obj(r[1]))) {
r[4] = obj_from_bool(fixnum_from_obj(r[1]) == (stringlen((r[3]))));
} else {
{ const flonum_t v27119_tmp = ((flonum_t)(stringlen((r[3]))));
r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v27119_tmp)); }
}
if (bool_from_obj(r[4])) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ const char_t v27117_c = (*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
(void)((((v27117_c) == (34)) || ((v27117_c) == (92))) ? (void)(fputc((92), oportdata((r[2])))) : (void)(0));
(void)(fputc((v27117_c), oportdata((r[2])))); }
if ((is_fixnum_obj(r[1]))) {
r[4] = obj_from_fixnum(fxadd(fixnum_from_obj(r[1]), (+1)));
} else {
{ const flonum_t v27118_tmp = ((flonum_t)(+1));
r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v27118_tmp)); }
}
/* r[0] */
r[1] = r[4];
/* r[2] */
/* r[3] */
goto s_loop;
}
case 192: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . k p */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc((34), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
s_sub_2Dwrite_2Dbox: /* k x d? p */
(void)(fputs(stringchars((cx__23738)), oportdata((r[3]))));
r[4] = (boxref((r[1])));
/* r[0] */
r[1] = r[4];
/* r[2] */
/* r[3] */
goto s_sub_2Dwrite;
s_sub_2Dwrite_2Dvector: /* k x d? p */
(void)(fputs(stringchars((cx__23785)), oportdata((r[3]))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[0];
*--hp = obj_from_case(193);
r[4] = (hendblk(2+1));
if ((!((vectorlen((r[1]))) == (+0)))) {
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(191);
r[5] = (hendblk(0+1));
r[6+0] = r[4];
r[6+1] = obj_from_fixnum(+0);
r[6+2] = r[5];
r[6+3] = r[2];
r[6+4] = r[3];
r[6+5] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25592;
} else {
r[5+0] = obj_from_ktrap();
r[5+1] = obj_from_void(0);
r[5+2] = r[0];
r[5+3] = r[3];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25604;
}
case 193: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v25604: /* ek . k p */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc((')'), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 194: /* clo k i */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
s_loop_v25592: /* k i sub-write d? p x */
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(194);
r[6] = (hendblk(4+1));
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[5];
*--hp = r[1];
*--hp = r[4];
*--hp = r[0];
*--hp = r[6];
*--hp = obj_from_case(195);
r[6] = (hendblk(5+1));
r[7+0] = r[2];
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[6];
r[7+2] = (vectorref((r[5]), fixnum_from_obj(r[1])));
r[7+3] = r[3];
r[7+4] = r[4];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 195: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
/* ek . loop k p i x */
{ bool_t v27116_tmp;
{ const fixnum_t v27114_b = (fxsub((vectorlen((r[6]))), (+1)));
if ((is_fixnum_obj(r[5]))) {
v27116_tmp = (fixnum_from_obj(r[5]) == (v27114_b));
} else {
{ const flonum_t v27115_tmp = ((flonum_t)(v27114_b));
v27116_tmp = (flonum_from_obj(r[5]) == (v27115_tmp)); }
} }
r[7] = obj_from_bool(!(v27116_tmp)); }
if (bool_from_obj(r[7])) {
(void)(fputc((' '), oportdata((r[4]))));
if ((is_fixnum_obj(r[5]))) {
r[7] = obj_from_fixnum(fxadd(fixnum_from_obj(r[5]), (+1)));
} else {
{ const flonum_t v27113_tmp = ((flonum_t)(+1));
r[7] = obj_from_flonum(7, flonum_from_obj(r[5]) + (v27113_tmp)); }
}
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[7];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
s_sub_2Dwrite_2Dpair: /* k x d? p */
(void)(fputc(('('), oportdata((r[3]))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[0];
*--hp = obj_from_case(198);
r[4] = (hendblk(2+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(191);
r[5] = (hendblk(0+1));
r[6+0] = r[4];
r[6+1] = r[1];
r[6+2] = r[5];
r[6+3] = r[2];
r[6+4] = r[3];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25565;
case 196: /* clo k x */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
s_loop_v25565: /* k x sub-write d? p */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(196);
r[5] = (hendblk(3+1));
hreserve(hbsz(6+1), 6); /* 6 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = r[0];
*--hp = r[5];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(197);
r[5] = (hendblk(6+1));
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[5];
r[6+2] = (car((r[1])));
r[6+3] = r[3];
r[6+4] = r[4];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 197: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6]; }
r += 1; /* shift reg. wnd */
/* ek . sub-write d? loop k p x */
r[8] = (cdr((r[7])));
r[8] = obj_from_bool(ispair((r[8])));
if (bool_from_obj(r[8])) {
(void)(fputc((' '), oportdata((r[6]))));
r[0] = r[4];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (cdr((r[7])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[8] = (cdr((r[7])));
r[8] = obj_from_bool(isnull((r[8])));
if (bool_from_obj(r[8])) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[8];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
(void)(fputs(stringchars((cx__23862)), oportdata((r[6]))));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (cdr((r[7])));
/* r[3] */
r[4] = r[6];
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 198: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . k p */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc((')'), oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 199: /* %residual-put-datum k p d */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k p d */
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[2];
r[3+3] = obj_from_bool(0);
r[3+4] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 200: /* print-error-message k prefix args ep */
assert(rc == 5);
r += 1; /* shift reg. wnd */
gs_print_2Derror_2Dmessage: /* k prefix args ep */
(void)(((isstring((r[1]))) || (issymbol((r[1])))) ? (void)(fputs(stringchars((r[1])), oportdata((r[3])))) : (void)(fputs(stringchars((cx__23933)), oportdata((r[3])))));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[0];
*--hp = obj_from_case(201);
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = r[2];
r[2] = r[3];
goto s_pr_2Dwhere;
case 201: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . k ep */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc('\n', oportdata((r[3]))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 202: /* clo k args ep */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_pr_2Drest: /* k args ep */
if ((ispair((r[1])))) {
(void)(fputc((' '), oportdata((r[2]))));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(202);
r[3] = (hendblk(0+1));
hreserve(hbsz(4+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[3];
*--hp = obj_from_case(203);
r[3] = (hendblk(4+1));
r[4+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (car((r[1])));
r[4+3] = obj_from_bool(0);
r[4+4] = r[2];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 203: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek . pr-rest ep args k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (cdr((r[4])));
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 204: /* clo k args ep */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_pr_2Dmsg: /* k args ep */
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(202);
r[3] = (hendblk(0+1));
if ((ispair((r[1])))) {
r[4] = (car((r[1])));
r[4] = obj_from_bool(isstring((r[4])));
if (bool_from_obj(r[4])) {
hreserve(hbsz(4+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[3];
*--hp = obj_from_case(205);
r[4] = (hendblk(4+1));
r[5+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (car((r[1])));
r[5+3] = obj_from_bool(1);
r[5+4] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
/* r[0] */
/* r[1] */
/* r[2] */
goto s_pr_2Drest;
}
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 205: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek . pr-rest ep args k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (cdr((r[4])));
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
s_pr_2Dwhere: /* k args ep */
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(204);
r[3] = (hendblk(0+1));
if ((ispair((r[1])))) {
r[4] = (car((r[1])));
r[4] = obj_from_bool(!bool_from_obj(r[4]));
if (bool_from_obj(r[4])) {
(void)(fputs(stringchars((cx__23918)), oportdata((r[2]))));
r[4] = (cdr((r[1])));
/* r[0] */
r[1] = r[4];
/* r[2] */
goto s_pr_2Dmsg;
} else {
r[4] = (car((r[1])));
r[4] = obj_from_bool(issymbol((r[4])));
if (bool_from_obj(r[4])) {
(void)(fputs(stringchars((cx__23922)), oportdata((r[2]))));
hreserve(hbsz(4+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[0];
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(206);
r[4] = (hendblk(4+1));
r[5+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (car((r[1])));
r[5+3] = obj_from_bool(0);
r[5+4] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
(void)(fputs(stringchars((cx__23918)), oportdata((r[2]))));
/* r[0] */
/* r[1] */
/* r[2] */
goto s_pr_2Dmsg;
}
}
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 206: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek . pr-msg args k ep */
(void)(fputs(stringchars((cx__23918)), oportdata((r[5]))));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = (cdr((r[3])));
r[3] = r[5];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 207: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
(void)(fputc('\n', oportdata((cx__2Acurrent_2Derror_2Dport_2A))));
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(208);
r[2] = (hendblk(1+1));
r[3+0] = r[2];
r[3+1] = (cx__23933);
r[3+2] = r[1];
r[3+3] = (cx__2Acurrent_2Derror_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_print_2Derror_2Dmessage;
case 208: /* clo ek . */
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 209: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
(void)(fputc('\n', oportdata((cx__2Acurrent_2Derror_2Dport_2A))));
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(210);
r[2] = (hendblk(1+1));
r[3+0] = r[2];
r[3+1] = (cx__23956);
r[3+2] = r[1];
r[3+3] = (cx__2Acurrent_2Derror_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_print_2Derror_2Dmessage;
case 210: /* clo ek . */
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 211: /* clo k form */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* k form reader-token-marker */
if ((ispair((r[1])))) {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (r[2]));
} else {
r[3] = obj_from_bool(0);
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 212: /* clo k c */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k c */
{ const char_t v27112_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((v27112_c))) || (((v27112_c) == (')')) || (((v27112_c) == ('(')) || (((v27112_c) == (']')) || (((v27112_c) == ('[')) || (((v27112_c) == (34)) || ((v27112_c) == (';'))))))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
case 213: /* clo k p in-string? */
assert(rc == 4);
{ obj* p = objptr_from_obj(r[0]);
r[1+3] = p[1]; }
r += 1; /* shift reg. wnd */
/* k p in-string? char-delimiter? */
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(214);
r[5] = (hendblk(0+1));
r[6+0] = r[0];
r[6+1] = r[4];
r[6+2] = (mknull());
r[6+3] = obj_from_fixnum(+0);
r[6+4] = r[3];
r[6+5] = r[1];
r[6+6] = r[5];
r[6+7] = r[2];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25411;
case 214: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
if ((isnull((r[1])))) {
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("read", 1)));
r[2+3] = (cx__231077);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
{ /* reverse! */
obj t, v = mknull(), l = r[1];
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
r[2] = (v); }
{ fixnum_t v27111_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27111_tmp = (n); }
{ /* list->string */
int i, c = (v27111_tmp);
obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */
obj l = r[2]; /* gc-safe */
unsigned char *s = (unsigned char *)stringchars(o);
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
r[2] = (o); } }
{ /* string->fixnum */
char *e, *s = stringchars((r[2]));
int radix = (+16); long l;
if (s[0] == '#' && (s[1] == 'b' || s[1] == 'B')) s += 2, radix = 2;
else if (s[0] == '#' && (s[1] == 'o' || s[1] == 'O')) s += 2, radix = 8;
else if (s[0] == '#' && (s[1] == 'd' || s[1] == 'D')) s += 2, radix = 10;
else if (s[0] == '#' && (s[1] == 'x' || s[1] == 'X')) s += 2, radix = 16;
l = (errno = 0, strtol(s, &e, radix));
if (errno || l < FIXNUM_MIN || l > FIXNUM_MAX || e == s || *e) r[2] = obj_from_bool(0);
else r[2] = obj_from_fixnum(l); }
r[2] = obj_from_char((char_t)fixnum_from_obj(r[2]));
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 215: /* 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_v25411: /* k c l cc char-delimiter? p rev-digits->char in-string? */
if ((iseof((r[1])))) {
if (bool_from_obj(r[7])) {
r[8+0] = (cx_error);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[0];
r[8+2] = (mksymbol(internsym("read", 1)));
r[8+3] = (cx__231107);
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[8+0] = r[6];
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[0];
r[8+2] = r[2];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
} else {
if ((bool_from_obj(r[7]) && (char_from_obj(r[1]) == (';')))) {
{ obj o = r[5]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
r[8+0] = r[6];
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[0];
r[8+2] = r[2];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(4+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = obj_from_case(215);
r[8] = (hendblk(4+1));
hreserve(hbsz(7+1), 9); /* 9 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = r[6];
*--hp = r[1];
*--hp = r[3];
*--hp = r[5];
*--hp = r[8];
*--hp = obj_from_case(216);
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(215);
r[9] = (hendblk(4+1));
r[10+0] = obj_from_ktrap();
r[10+1] = obj_from_bool(0);
r[10+2] = r[9];
r[10+3] = r[5];
r[10+4] = r[3];
r[10+5] = r[1];
r[10+6] = r[6];
r[10+7] = r[2];
r[10+8] = r[0];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25413;
}
}
}
case 216: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v25413: /* ek r loop p cc c rev-digits->char l k */
if (bool_from_obj(r[1])) {
r[0] = r[6];
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = r[7];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ const fixnum_t v27110_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5]));
r[9] = obj_from_bool(((v27110_scalar_2Dvalue) >= (+48)) && ((v27110_scalar_2Dvalue) <= (+57)));
if (bool_from_obj(r[9])) {
/* r[9] */
} else {
r[10] = obj_from_bool(((v27110_scalar_2Dvalue) >= (+65)) && ((v27110_scalar_2Dvalue) <= (+70)));
r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v27110_scalar_2Dvalue) >= (+97)) && ((v27110_scalar_2Dvalue) <= (+102))));
} }
r[9] = obj_from_bool(!bool_from_obj(r[9]));
if (bool_from_obj(r[9])) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231101);
r[4] = (r[5]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
if ((is_fixnum_obj(r[4]))) {
r[9] = obj_from_bool(fixnum_from_obj(r[4]) > (+2));
} else {
{ const flonum_t v27109_tmp = ((flonum_t)(+2));
r[9] = obj_from_bool(flonum_from_obj(r[4]) > (v27109_tmp)); }
}
if (bool_from_obj(r[9])) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231093);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[7];
*--hp = r[5];
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
if ((is_fixnum_obj(r[4]))) {
r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
} else {
{ const flonum_t v27108_tmp = ((flonum_t)(+1));
r[11] = obj_from_flonum(11, flonum_from_obj(r[4]) + (v27108_tmp)); }
}
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = r[9];
r[3] = (r[10]);
r[4] = (r[11]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
case 217: /* clo k c p */
assert(rc == 4);
{ obj* p = objptr_from_obj(r[0]);
r[1+3] = p[1];
r[1+4] = p[2]; }
r += 1; /* shift reg. wnd */
/* k c p char-delimiter? dot */
{ obj o = r[2]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
r[7+0] = r[0];
r[7+1] = r[5];
r[7+2] = r[6];
r[7+3] = obj_from_bool(char_from_obj(r[1]) == ('#'));
r[7+4] = r[3];
r[7+5] = r[2];
r[7+6] = r[4];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25388;
case 218: /* 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_v25388: /* 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(218);
r[7] = (hendblk(3+1));
hreserve(hbsz(7+1), 8); /* 8 live regs */
*--hp = r[2];
*--hp = r[3];
*--hp = r[6];
*--hp = r[0];
*--hp = r[1];
*--hp = r[5];
*--hp = r[7];
*--hp = obj_from_case(219);
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(218);
r[8] = (hendblk(3+1));
r[9+0] = obj_from_ktrap();
r[9+1] = obj_from_bool(iseof((r[1])));
r[9+2] = r[8];
r[9+3] = r[5];
r[9+4] = r[1];
r[9+5] = r[0];
r[9+6] = r[6];
r[9+7] = r[3];
r[9+8] = r[2];
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25390;
} 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 219: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v25390: /* ek r loop p c k dot hash? l */
if (bool_from_obj(r[1])) {
{ /* reverse! */
obj t, v = mknull(), l = r[8];
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
r[9] = (v); }
r[10] = (car((r[9])));
{ fixnum_t v27105_tmp;
{ /* length */
int n; obj l = r[9];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27105_tmp = (n); }
{ /* list->string */
int i, c = (v27105_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__231050))) == 0)) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[6];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[12] = obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231039))) == 0);
if (bool_from_obj(r[12])) {
r[12] = (r[12]);
} else {
r[13] = obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231043))) == 0);
r[12] = (bool_from_obj(r[13]) ? (r[13]) : obj_from_bool(strcmp(stringchars((r[11])), stringchars((cx__231047))) == 0));
}
if (bool_from_obj(r[12])) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((!bool_from_obj(r[7]))) {
if (((stringlen((r[11]))) >= (+2))) {
{ const char_t v27107_tmp = (*(unsigned char*)stringref((r[11]), (+0)));
r[12] = obj_from_bool((v27107_tmp) == ('-')); }
if (bool_from_obj(r[12])) {
{ const char_t v27106_tmp = (*(unsigned char*)stringref((r[11]), (+1)));
r[12] = obj_from_bool((v27106_tmp) == ('>')); }
} else {
r[12] = obj_from_bool(0);
}
} else {
r[12] = obj_from_bool(0);
}
} else {
r[12] = obj_from_bool(0);
}
if (bool_from_obj(r[12])) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ /* string->fixnum-or-flonum */
char *s = stringchars((r[11]));
int radix = (+10); long l; double d;
switch (strtofxfl(s, radix, &l, &d)) {
case 'e': r[12] = obj_from_fixnum(l); break;
case 'i': r[12] = obj_from_flonum(12, d); break;
default : r[12] = obj_from_bool(0); break;
} }
if (bool_from_obj(r[12])) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (r[12]);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231019);
r[4] = (r[11]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
} else {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mksymbol(internsym(stringchars((r[11])), 1)));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
} else {
if ((char_from_obj(r[4]) == ('#'))) {
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[8];
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = r[9];
r[3] = (r[10]);
r[4] = obj_from_bool(1);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
{ /* string-position */
char *s = stringchars((cx__231439)), *p = strchr(s, char_from_obj(r[4]));
if (p) r[9] = obj_from_fixnum(p-s); else r[9] = obj_from_bool(0); }
if (bool_from_obj(r[9])) {
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[8];
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = r[9];
r[3] = (r[10]);
r[4] = r[7];
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__23998);
r[4] = (r[4]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
case 220: /* clo k p */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* k p sub-read reader-token? */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[3];
*--hp = obj_from_case(221);
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 221: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r reader-token? k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(222);
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 222: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k r */
if ((!bool_from_obj(r[1]))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[2];
r[4+2] = (mksymbol(internsym("read", 1)));
r[4+3] = (cx__231368);
r[4+4] = (cdr((r[3])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
s_sub_2Dread_2Dlist: /* k c p close-token dot? dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
hreserve(hbsz(7+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(230);
r[12] = (hendblk(7+1));
hreserve(hbsz(7+1), 13); /* 13 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(247);
r[13] = (hendblk(7+1));
hreserve(hbsz(8+1), 14); /* 14 live regs */
*--hp = r[5];
*--hp = r[0];
*--hp = r[3];
*--hp = r[4];
*--hp = r[2];
*--hp = (r[12]);
*--hp = (r[13]);
*--hp = (r[11]);
*--hp = obj_from_case(223);
r[13] = (hendblk(8+1));
r[0] = (r[13]);
r[1] = r[2];
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
r[5] = r[8];
r[6] = r[9];
r[7] = (r[10]);
r[8] = (r[11]);
goto s_sub_2Dread;
case 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+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7];
r[1+9] = p[8]; }
r += 1; /* shift reg. wnd */
/* ek r reader-token? sub-read-carefully sub-read p dot? close-token k dot */
if (((r[1]) == (r[9]))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231167);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[10+0] = r[8];
r[10+1] = r[1];
r[10+2] = r[2];
r[10+3] = r[3];
r[10+4] = r[4];
r[10+5] = r[5];
r[10+6] = r[6];
r[10+7] = r[9];
r[10+8] = r[7];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_recur;
}
case 224: /* clo k form */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7]; }
r += 1; /* shift reg. wnd */
s_recur: /* k form reader-token? sub-read-carefully sub-read p dot? dot close-token */
if ((iseof((r[1])))) {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[0];
r[9+2] = (mksymbol(internsym("read", 1)));
r[9+3] = (cx__231162);
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if (((r[1]) == (r[8]))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if (((r[1]) == (r[7]))) {
if (bool_from_obj(r[6])) {
hreserve(hbsz(4+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[0];
*--hp = r[5];
*--hp = r[4];
*--hp = obj_from_case(225);
r[9] = (hendblk(4+1));
r[10+0] = r[3];
pc = objptr_from_obj(r[10+0])[0];
r[10+1] = r[9];
r[10+2] = r[5];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[0];
r[9+2] = (mksymbol(internsym("read", 1)));
r[9+3] = (cx__231152);
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
} else {
hreserve(hbsz(7+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(224);
r[9] = (hendblk(7+1));
hreserve(hbsz(5+1), 10); /* 10 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[9];
*--hp = r[5];
*--hp = r[4];
*--hp = obj_from_case(227);
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 225: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r sub-read p k close-token */
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[1];
*--hp = r[4];
*--hp = obj_from_case(226);
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 226: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k r close-token */
if (((r[1]) == (r[4]))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[2];
r[5+2] = (mksymbol(internsym("read", 1)));
r[5+3] = (cx__231155);
r[5+4] = (r[1]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 227: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
/* ek r sub-read p recur form k */
if (bool_from_obj(r[1])) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231151);
r[4] = (cdr((r[5])));
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[5];
*--hp = r[6];
*--hp = r[4];
*--hp = obj_from_case(228);
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 228: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(229);
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 229: /* clo ek r */
assert(rc == 3);
{ 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 230: /* clo k p */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7]; }
r += 1; /* shift reg. wnd */
s_sub_2Dread: /* k p dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
hreserve(hbsz(7+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(230);
r[9] = (hendblk(7+1));
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[10] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[10])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (r[10]);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isspace(char_from_obj(r[10])))) {
/* r[0] */
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread;
} else {
if ((char_from_obj(r[10]) == ('('))) {
r[11+0] = r[0];
r[11+1] = (r[10]);
r[11+2] = r[1];
r[11+3] = r[7];
r[11+4] = obj_from_bool(1);
r[11+5] = r[2];
r[11+6] = r[3];
r[11+7] = r[4];
r[11+8] = r[5];
r[11+9] = r[6];
r[11+10] = r[7];
r[11+11] = r[8];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_sub_2Dread_2Dlist;
} else {
if ((char_from_obj(r[10]) == (')'))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[7];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((char_from_obj(r[10]) == ('['))) {
r[11+0] = r[0];
r[11+1] = (r[10]);
r[11+2] = r[1];
r[11+3] = r[6];
r[11+4] = obj_from_bool(1);
r[11+5] = r[2];
r[11+6] = r[3];
r[11+7] = r[4];
r[11+8] = r[5];
r[11+9] = r[6];
r[11+10] = r[7];
r[11+11] = r[8];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_sub_2Dread_2Dlist;
} else {
if ((char_from_obj(r[10]) == (']'))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[6];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((char_from_obj(r[10]) == (39))) {
hreserve(hbsz(1+1), 11); /* 11 live regs */
*--hp = r[0];
*--hp = obj_from_case(231);
r[11] = (hendblk(1+1));
r[0] = (r[11]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
if ((char_from_obj(r[10]) == ('`'))) {
hreserve(hbsz(1+1), 11); /* 11 live regs */
*--hp = r[0];
*--hp = obj_from_case(232);
r[11] = (hendblk(1+1));
r[0] = (r[11]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
{ /* string-position */
char *s = stringchars((cx__231439)), *p = strchr(s, char_from_obj(r[10]));
if (p) r[11] = obj_from_fixnum(p-s); else r[11] = obj_from_bool(0); }
if (bool_from_obj(r[11])) {
r[11+0] = r[5];
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = r[0];
r[11+2] = (r[10]);
r[11+3] = r[1];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[10]) == (';'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(3+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[9];
*--hp = obj_from_case(233);
r[12] = (hendblk(3+1));
r[13+0] = (r[12]);
r[13+1] = (r[11]);
r[13+2] = r[1];
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25283;
} else {
if ((char_from_obj(r[10]) == (','))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[11])))) {
r[12+0] = (cx_error);
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[0];
r[12+2] = (mksymbol(internsym("read", 1)));
r[12+3] = (cx__231324);
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[11]) == ('@'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(1+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = obj_from_case(234);
r[12] = (hendblk(1+1));
r[0] = (r[12]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
hreserve(hbsz(1+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = obj_from_case(235);
r[12] = (hendblk(1+1));
r[0] = (r[12]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
}
}
} else {
if ((char_from_obj(r[10]) == (34))) {
r[11+0] = r[0];
r[11+1] = (mknull());
r[11+2] = r[4];
r[11+3] = r[1];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v25248;
} else {
if ((char_from_obj(r[10]) == ('#'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[11] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[11])))) {
r[12+0] = (cx_error);
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[0];
r[12+2] = (mksymbol(internsym("read", 1)));
r[12+3] = (cx__231286);
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((tolower(char_from_obj(r[11])) == tolower(('t')))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
r[12] = obj_from_bool(1);
r[13+0] = r[0];
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = obj_from_ktrap();
r[13+2] = (r[12]);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((tolower(char_from_obj(r[11])) == tolower(('f')))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
r[12] = obj_from_bool(0);
r[13+0] = r[0];
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = obj_from_ktrap();
r[13+2] = (r[12]);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if (((tolower(char_from_obj(r[11])) == tolower(('b'))) || ((tolower(char_from_obj(r[11])) == tolower(('o'))) || ((tolower(char_from_obj(r[11])) == tolower(('d'))) || ((tolower(char_from_obj(r[11])) == tolower(('x'))) || ((tolower(char_from_obj(r[11])) == tolower(('i'))) || (tolower(char_from_obj(r[11])) == tolower(('e'))))))))) {
r[12+0] = r[5];
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[0];
r[12+2] = obj_from_char('#');
r[12+3] = r[1];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[11]) == ('&'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(1+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = obj_from_case(239);
r[12] = (hendblk(1+1));
r[0] = (r[12]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
if ((char_from_obj(r[11]) == (';'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(3+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[9];
*--hp = obj_from_case(240);
r[12] = (hendblk(3+1));
r[0] = (r[12]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
if ((char_from_obj(r[11]) == ('|'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(3+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[9];
*--hp = obj_from_case(243);
r[12] = (hendblk(3+1));
r[0] = (r[12]);
/* r[1] */
goto s_recur_v25227;
} else {
if ((char_from_obj(r[11]) == ('('))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(1+1), 12); /* 12 live regs */
*--hp = r[0];
*--hp = obj_from_case(244);
r[12] = (hendblk(1+1));
r[13+0] = (r[12]);
r[13+1] = (r[11]);
r[13+2] = r[1];
r[13+3] = r[7];
r[13+4] = obj_from_bool(0);
r[13+5] = r[2];
r[13+6] = r[3];
r[13+7] = r[4];
r[13+8] = r[5];
r[13+9] = r[6];
r[13+10] = r[7];
r[13+11] = r[8];
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_sub_2Dread_2Dlist;
} else {
if ((char_from_obj(r[11]) == (92))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[12] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[12])))) {
r[13+0] = (cx_error);
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = r[0];
r[13+2] = (mksymbol(internsym("read", 1)));
r[13+3] = (cx__231220);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((('x') == char_from_obj(r[12]))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(4+1), 13); /* 13 live regs */
*--hp = (r[12]);
*--hp = r[0];
*--hp = r[1];
*--hp = r[4];
*--hp = obj_from_case(245);
r[13] = (hendblk(4+1));
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[14] = (c == EOF ? mkeof() : obj_from_char(c)); }
r[15+0] = r[3];
pc = objptr_from_obj(r[15+0])[0];
r[15+1] = (r[13]);
r[15+2] = (r[14]);
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isalpha(char_from_obj(r[12])))) {
hreserve(hbsz(2+1), 13); /* 13 live regs */
*--hp = (r[12]);
*--hp = r[0];
*--hp = obj_from_case(246);
r[13] = (hendblk(2+1));
r[0] = (r[13]);
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread_2Dcarefully;
} else {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
r[13] = (r[12]);
r[14+0] = r[0];
pc = objptr_from_obj(r[14+0])[0];
r[14+1] = obj_from_ktrap();
r[14+2] = (r[13]);
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
} else {
r[12+0] = (cx_error);
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[0];
r[12+2] = (mksymbol(internsym("read", 1)));
r[12+3] = (cx__231174);
r[12+4] = (r[11]);
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
}
}
}
}
}
} else {
r[11+0] = (cx_error);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = r[0];
r[11+2] = (mksymbol(internsym("read", 1)));
r[11+3] = (cx__231172);
r[11+4] = (r[10]);
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
}
}
}
}
}
}
}
}
}
case 231: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("quote", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 232: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("quasiquote", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
s_loop_v25283: /* k c p */
if ((iseof((r[1])))) {
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(iseof((r[1])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((char_from_obj(r[1]) == (10))) {
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) == (10));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ obj o = r[2]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
/* r[0] */
r[1] = r[3];
/* r[2] */
goto s_loop_v25283;
}
}
case 233: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 234: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("unquote-splicing", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 235: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("unquote", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 236: /* 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_v25248: /* k l sub-read-x-char-escape p */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(236);
r[4] = (hendblk(2+1));
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[5])))) {
r[6+0] = (cx_error);
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[0];
r[6+2] = (mksymbol(internsym("read", 1)));
r[6+3] = (cx__231107);
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[5]) == (92))) {
{ obj o = r[3]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[6] = (c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(6+1), 7); /* 7 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[4];
*--hp = r[6];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(237);
r[7] = (hendblk(6+1));
if ((iseof((r[6])))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231107);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[8+0] = obj_from_ktrap();
r[8+1] = obj_from_void(0);
r[8+2] = r[2];
r[8+3] = r[3];
r[8+4] = r[6];
r[8+5] = r[4];
r[8+6] = r[0];
r[8+7] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v25250;
}
} 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 v27104_tmp;
{ /* length */
int n; obj l = r[6];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27104_tmp = (n); }
{ /* list->string */
int i, c = (v27104_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_v25248;
}
}
}
case 237: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v25250: /* ek . sub-read-x-char-escape p c loop k l */
hreserve(hbsz(3+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(238);
r[8] = (hendblk(3+1));
if (((char_from_obj(r[4]) == (92)) || (char_from_obj(r[4]) == (34)))) {
r[0] = obj_from_ktrap();
r[1] = r[4];
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('a'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(7);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('b'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(8);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('t'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(9);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('n'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(10);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('v'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(11);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('f'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(12);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('r'))) {
r[0] = obj_from_ktrap();
r[1] = obj_from_char(13);
r[2] = r[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v25252;
} else {
if ((char_from_obj(r[4]) == ('x'))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = r[3];
r[3] = obj_from_bool(1);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231117);
r[4] = (r[4]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
}
}
}
}
}
case 238: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_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_v25252: /* ek r loop k l */
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 239: /* clo 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 240: /* clo ek . */
assert(rc >= 2);
r[2] = 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 241: /* clo k */
assert(rc == 2);
{ obj* p = objptr_from_obj(r[0]);
r[1+1] = p[1]; }
r += 1; /* shift reg. wnd */
s_recur_v25227: /* k p */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(241);
r[2] = (hendblk(1+1));
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[3])))) {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("read", 1)));
r[4+3] = (cx__231237);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[3]) == ('|'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[4])))) {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
r[5+2] = (mksymbol(internsym("read", 1)));
r[5+3] = (cx__231237);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[4]) == ('#'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
r[6+0] = r[0];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
/* r[0] */
/* r[1] */
goto s_recur_v25227;
}
}
} else {
if ((char_from_obj(r[3]) == ('#'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
if ((iseof((r[4])))) {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
r[5+2] = (mksymbol(internsym("read", 1)));
r[5+3] = (cx__231237);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((char_from_obj(r[4]) == ('|'))) {
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
(void)(c == EOF ? mkeof() : obj_from_char(c)); }
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(242);
r[5] = (hendblk(2+1));
r[0] = r[5];
/* r[1] */
goto s_recur_v25227;
} else {
/* r[0] */
/* r[1] */
goto s_recur_v25227;
}
}
} else {
/* r[0] */
/* r[1] */
goto s_recur_v25227;
}
}
}
case 242: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . 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 243: /* clo ek . */
assert(rc >= 2);
r[2] = 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 244: /* clo 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 v27103_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27103_tmp = (n); }
{ /* list->vector */
obj l; int i, c = (v27103_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 245: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 246: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k c */
{ fixnum_t v27102_a;
r[4] = (hpushstr(4, newstring(symbolname(getsymbol((r[1]))))));
v27102_a = (stringlen((r[4])));
r[4] = obj_from_bool((v27102_a) == (+1)); }
if (bool_from_obj(r[4])) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("space", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(' ');
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("alarm", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(7);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("backspace", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(8);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("tab", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(9);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("newline", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("linefeed", 1)))) && (1)))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(10);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("vtab", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(11);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("page", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(12);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("return", 1)))) && (1))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_char(13);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[2];
r[4+2] = (mksymbol(internsym("read", 1)));
r[4+3] = (cx__231179);
r[4+4] = (r[1]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
}
}
}
}
}
case 247: /* clo k p */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7]; }
r += 1; /* shift reg. wnd */
s_sub_2Dread_2Dcarefully: /* k p dot char-delimiter? sub-read-x-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[0];
*--hp = r[8];
*--hp = obj_from_case(248);
r[9] = (hendblk(2+1));
r[0] = r[9];
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
/* r[6] */
/* r[7] */
/* r[8] */
goto s_sub_2Dread;
case 248: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r reader-token? k */
if ((iseof((r[1])))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = (mksymbol(internsym("read", 1)));
r[3] = (cx__231369);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[1];
*--hp = obj_from_case(249);
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 249: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r r k */
if (bool_from_obj(r[1])) {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (mksymbol(internsym("read", 1)));
r[4+3] = (cx__231368);
r[4+4] = (cdr((r[2])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 250: /* %residual-get-datum k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
r[2+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = r[1];
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 251: /* %residual-file-exists? k fn */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k fn */
{ /* file-exists? */
FILE *f = fopen(stringchars((r[1])), "r");
if (f != NULL) fclose(f);
r[2] = obj_from_bool(f != NULL); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 252: /* %residual-delete-file k fn */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k fn */
{ /* delete-file */
int res = remove(stringchars((r[1])));
r[2] = obj_from_bool(res == 0); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 253: /* %residual-rename-file k fnold fnnew */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k fnold fnnew */
{ /* delete-file */
int res = rename(stringchars((r[1])), stringchars((r[2])));
r[3] = obj_from_bool(res == 0); }
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 254: /* %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(255);
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 255: /* 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 256: /* 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(257);
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 257: /* 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(258);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[2];
goto gs_dynamic_2Dstate_2Dreroot_21;
case 258: /* clo ek . */
assert(rc >= 2);
r[2] = 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 259: /* dynamic-wind k before during after */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k before during after */
r[4] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(260);
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 260: /* clo ek . */
assert(rc >= 2);
r[2] = 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(261);
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(263);
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 261: /* 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(262);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto gs_dynamic_2Dstate_2Dreroot_21;
case 262: /* clo ek . */
assert(rc >= 2);
r[2] = 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 263: /* 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 264: /* dynamic-state-reroot! k there */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_dynamic_2Dstate_2Dreroot_21: /* k there */
{ const bool_t v27101_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1]));
r[2] = obj_from_bool(!(v27101_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(265);
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 265: /* clo ek . */
assert(rc >= 2);
r[2] = 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 266: /* %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 267: /* %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 268: /* %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 269: /* 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 270: /* 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 271: /* %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 272: /* 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_v25036;
s_loop_v25036: /* k r i */
{ const fixnum_t v27100_i = fixnum_from_obj(r[2]);
{ /* argv-ref */
int i = (v27100_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((v27100_i), (1)));
goto s_loop_v25036;
} 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 273: /* %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 274: /* %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 275: /* %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 v27099_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27099_tmp)); }
}
if (bool_from_obj(r[3])) {
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = (cx_error);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = (mksymbol(internsym("make-rectangular", 1)));
r[3+3] = (cx__231578);
r[3+4] = (r[2]);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 276: /* %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 v27098_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27098_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 v27096_a = fixnum_from_obj(r[2]);
if ((is_fixnum_obj(cx__231594))) {
r[3] = obj_from_bool((v27096_a) == fixnum_from_obj(cx__231594));
} else {
{ const flonum_t v27097_tmp = ((flonum_t)(v27096_a));
r[3] = obj_from_bool((v27097_tmp) == flonum_from_obj(cx__231594)); }
} }
} else {
if ((is_fixnum_obj(cx__231594))) {
{ const flonum_t v27095_tmp = ((flonum_t)fixnum_from_obj(cx__231594));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v27095_tmp)); }
} else {
r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__231594));
}
}
if (bool_from_obj(r[3])) {
r[3] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxneg(fixnum_from_obj(r[1]))) : obj_from_flonum(3, -flonum_from_obj(r[1])));
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = (cx_error);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = (mksymbol(internsym("make-polar", 1)));
r[3+3] = (cx__231590);
r[3+4] = (r[2]);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 277: /* %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 278: /* %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 279: /* %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 280: /* %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 281: /* 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(282);
r[2] = (hendblk(1+1));
/* r[0] */
r[1] = r[2];
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
case 282: /* 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 283: /* 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_v24959;
}
s_loop_v24959: /* 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 v27093_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_bool((v27093_x) == fixnum_from_obj(r[3]));
} else {
{ const flonum_t v27094_tmp = ((flonum_t)(v27093_x));
r[4] = obj_from_bool((v27094_tmp) == flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27092_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v27092_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_v24959;
} 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 284: /* 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_v24946;
}
s_loop_v24946: /* 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 v27090_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_bool((v27090_x) < fixnum_from_obj(r[3]));
} else {
{ const flonum_t v27091_tmp = ((flonum_t)(v27090_x));
r[4] = obj_from_bool((v27091_tmp) < flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27089_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v27089_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_v24946;
} 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 285: /* 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_v24933;
}
s_loop_v24933: /* 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 v27087_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_bool((v27087_x) > fixnum_from_obj(r[3]));
} else {
{ const flonum_t v27088_tmp = ((flonum_t)(v27087_x));
r[4] = obj_from_bool((v27088_tmp) > flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27086_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v27086_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_v24933;
} 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 286: /* 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_v24920;
}
s_loop_v24920: /* 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 v27084_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_bool((v27084_x) <= fixnum_from_obj(r[3]));
} else {
{ const flonum_t v27085_tmp = ((flonum_t)(v27084_x));
r[4] = obj_from_bool((v27085_tmp) <= flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27083_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v27083_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_v24920;
} 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 287: /* 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_v24907;
}
s_loop_v24907: /* 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 v27081_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_bool((v27081_x) >= fixnum_from_obj(r[3]));
} else {
{ const flonum_t v27082_tmp = ((flonum_t)(v27081_x));
r[4] = obj_from_bool((v27082_tmp) >= flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27080_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v27080_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_v24907;
} 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 288: /* %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 289: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
/* r[0] */
/* r[1] */
/* r[2] */
goto s_loop_v24878;
case 290: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_loop_v24878: /* 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(290);
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(291);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = (car((r[2])));
goto gs__25residual_2Dmax_2F2;
}
case 291: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 292: /* %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 293: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
/* r[0] */
/* r[1] */
/* r[2] */
goto s_loop_v24849;
case 294: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_loop_v24849: /* 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(294);
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(295);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = (car((r[2])));
goto gs__25residual_2Dmin_2F2;
}
case 295: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 296: /* 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_v24836;
}
s_loop_v24836: /* 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 v27078_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[3] = obj_from_fixnum(fxadd((v27078_x), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v27079_tmp = ((flonum_t)(v27078_x));
r[3] = obj_from_flonum(4, (v27079_tmp) + flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27077_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v27077_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_v24836;
}
case 297: /* 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_v24823;
}
s_loop_v24823: /* 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 v27075_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[3] = obj_from_fixnum(fxmul((v27075_x), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v27076_tmp = ((flonum_t)(v27075_x));
r[3] = obj_from_flonum(4, (v27076_tmp) * flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27074_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v27074_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_v24823;
}
case 298: /* 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_v24810;
}
s_loop_v24810: /* 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 v27072_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[3] = obj_from_fixnum(fxgcd((v27072_x), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v27073_tmp = ((flonum_t)(v27072_x));
r[3] = obj_from_flonum(4, flgcd((v27073_tmp), flonum_from_obj(r[3]))); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27071_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v27071_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_v24810;
}
case 299: /* 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_v24791;
}
case 300: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_loop_v24791: /* 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(300);
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(301);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = (car((r[2])));
goto gs_lcm_2F2;
}
case 301: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 302: /* 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_v24776;
}
s_loop_v24776: /* 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 v27069_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
r[3] = obj_from_fixnum(fxsub((v27069_x), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v27070_tmp = ((flonum_t)(v27069_x));
r[3] = obj_from_flonum(4, (v27070_tmp) - flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27068_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v27068_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_v24776;
}
case 303: /* 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_v24761;
}
s_loop_v24761: /* 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 v27066_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[3]))) {
{ /* fxfl/ */
fixnum_t x = (v27066_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 v27067_tmp = ((flonum_t)(v27066_x));
r[3] = obj_from_flonum(4, (v27067_tmp) / flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v27065_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v27065_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_v24761;
}
case 304: /* 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 305: /* clo k f l l* */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k f l l* */
if ((isnull((r[3])))) {
r[4+0] = r[0];
r[4+1] = r[2];
r[4+2] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v24726;
} 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_v24679;
}
s_loop_v24726: /* k l f */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3] = (cdr((r[1])));
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(306);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
goto s_loop_v24726;
}
case 306: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r f l k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = obj_from_case(307);
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 307: /* clo ek r */
assert(rc == 3);
{ 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 308: /* 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_v24679: /* k l* r f */
r[4] = (car((r[1])));
r[4] = obj_from_bool(isnull((r[4])));
if (bool_from_obj(r[4])) {
{ /* reverse! */
obj t, v = mknull(), l = r[2];
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
r[4] = (v); }
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(308);
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(310);
r[4] = (hendblk(5+1));
r[0] = r[4];
/* r[1] */
goto s_loop_v24709;
}
s_loop_v24709: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(309);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24709;
}
case 309: /* clo ek r */
assert(rc == 3);
{ 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 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; /* shift reg. wnd */
/* ek r l* f loop k r */
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[1];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(312);
r[7] = (hendblk(5+1));
r[0] = r[7];
r[1] = r[2];
goto s_loop_v24694;
s_loop_v24694: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(311);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24694;
}
case 311: /* clo ek r */
assert(rc == 3);
{ 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 312: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
/* ek r f loop r k r */
{ /* define apply */
static obj c[] = { obj_from_objptr(appcases+0) };
r[7] = obj_from_objptr(c); }
hreserve(hbsz(4+1), 8); /* 8 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(313);
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 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; /* 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 314: /* 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_v24658;
} 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_v24613;
}
case 315: /* 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_v24658: /* k l p */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(315);
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(316);
r[3] = (hendblk(3+1));
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (car((r[1])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 316: /* clo ek . */
assert(rc >= 2);
r[2] = 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 317: /* 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_v24613: /* k l* p */
r[3] = (car((r[1])));
r[3] = obj_from_bool(ispair((r[3])));
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(317);
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(319);
r[3] = (hendblk(4+1));
r[0] = r[3];
/* r[1] */
goto s_loop_v24643;
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
s_loop_v24643: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(318);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24643;
}
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; /* 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 319: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(320);
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 320: /* clo ek . */
assert(rc >= 2);
r[2] = 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(322);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = r[2];
goto s_loop_v24624;
s_loop_v24624: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(321);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24624;
}
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; /* 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 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 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 323: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
{ const fixnum_t v27064_x = fixnum_from_obj(r[1]);
if ((isnull((r[2])))) {
r[3] = (hpushstr(3, allocstring((v27064_x), '?')));
} else {
r[3] = (car((r[2])));
r[3] = (hpushstr(4, allocstring((v27064_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 324: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27063_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27063_tmp = (n); }
{ /* list->string */
int i, c = (v27063_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 325: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
/* r[0] */
/* r[1] */
goto s_loop_v24582;
s_loop_v24582: /* 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__232078);
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(326);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24582;
}
}
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; /* 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 327: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
{ const fixnum_t v27062_x = fixnum_from_obj(r[1]);
if ((isnull((r[2])))) {
{ /* make-vector */
obj o; int i = 0, c = (v27062_x);
hreserve(hbsz(c+1), 3); /* 3 live regs */
o = obj_from_void(0); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
r[3] = (hendblk(c+1)); }
} else {
r[3] = (car((r[2])));
{ /* make-vector */
obj o; int i = 0, c = (v27062_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 328: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27061_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27061_tmp = (n); }
{ /* list->vector */
obj l; int i, c = (v27061_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 329: /* 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 330: /* clo k x l */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x l */
/* r[0] */
/* r[1] */
/* r[2] */
goto s_loop_v24541;
s_loop_v24541: /* 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(331);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = r[3];
r[2] = r[4];
goto s_loop_v24541;
}
case 331: /* clo ek r */
assert(rc == 3);
{ 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 332: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
/* r[0] */
/* r[1] */
goto s_loop_v24524;
s_loop_v24524: /* 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(333);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24524;
}
}
case 333: /* clo ek r */
assert(rc == 3);
{ 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 v27060_tmp;
{ /* length */
int n; obj l = r[4];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27060_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27060_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 334: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
if ((is_fixnum_obj(r[1]))) {
{ /* fixnum->string */
char buf[35], *s = buf + sizeof(buf) - 1;
int neg = 0;
long num = fixnum_from_obj(r[1]);
long radix = (+10);
if (num < 0) { neg = 1; num = -num; }
*s = 0;
do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
while (num /= radix);
if (neg) *--s = '-';
r[3] = (hpushstr(3, newstring(s))); }
} else {
{ /* flonum->string */
char buf[30], *s;
sprintf(buf, "%.15g", flonum_from_obj(r[1]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[3] = (hpushstr(3, newstring(buf))); }
}
} else {
r[3] = (car((r[2])));
{ /* fixnum->string */
char buf[35], *s = buf + sizeof(buf) - 1;
int neg = 0;
long num = fixnum_from_obj(r[1]);
long radix = fixnum_from_obj(r[3]);
if (num < 0) { neg = 1; num = -num; }
*s = 0;
do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
while (num /= radix);
if (neg) *--s = '-';
r[3] = (hpushstr(4, newstring(s))); }
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 335: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
{ /* string->fixnum-or-flonum */
char *s = stringchars((r[1]));
int radix = (+10); long l; double d;
switch (strtofxfl(s, radix, &l, &d)) {
case 'e': r[3] = obj_from_fixnum(l); break;
case 'i': r[3] = obj_from_flonum(3, d); break;
default : r[3] = obj_from_bool(0); break;
} }
} else {
r[3] = (car((r[2])));
{ /* string->fixnum-or-flonum */
char *s = stringchars((r[1]));
int radix = fixnum_from_obj(r[3]); long l; double d;
switch (strtofxfl(s, radix, &l, &d)) {
case 'e': r[3] = obj_from_fixnum(l); break;
case 'i': r[3] = obj_from_flonum(4, d); break;
default : r[3] = obj_from_bool(0); break;
} }
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 336: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("case-lambda", 1)));
r[2+3] = (cx__232160);
r[2+4] = (r[1]);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 337: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27059_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27059_tmp = (n); }
{ /* %residual-make-case-lambda */
obj l; int i, c = (v27059_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 338: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
if ((isnull((r[1])))) {
{ obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
} else {
r[2] = (car((r[1])));
{ obj o = r[2]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 339: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
if ((isnull((r[1])))) {
{ obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
} else {
r[2] = (car((r[1])));
{ obj o = r[2]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 340: /* 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 341: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
{ const fixnum_t v27058_x = fixnum_from_obj(r[1]);
if ((isnull((r[2])))) {
r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "%ld", (v27058_x)));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fprintf(oportdata((r[3])), "%ld", (v27058_x)));
}
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
case 342: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
{ const flonum_t v27057_x = flonum_from_obj(r[1]);
if ((isnull((r[2])))) {
{ /* display-flonum */
char buf[30], *s;
sprintf(buf, "%.17g", (v27057_x));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[3] = obj_from_void(fputs(buf, oportdata((cx__2Acurrent_2Doutput_2Dport_2A)))); }
} else {
r[3] = (car((r[2])));
{ /* display-flonum */
char buf[30], *s;
sprintf(buf, "%.17g", (v27057_x));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[3] = obj_from_void(fputs(buf, oportdata((r[3])))); }
}
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
case 343: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "#<procedure @%p>", objptr_from_obj((r[1]))));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fprintf(oportdata((r[3])), "#<procedure @%p>", objptr_from_obj((r[1]))));
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 344: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fprintf(oportdata((r[3])), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 345: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3] = obj_from_void(fprintf(oportdata((cx__2Acurrent_2Doutput_2Dport_2A)), "#<%s>", ((cxtype_iport_t*)cxm_cknull(iportvt((r[1])), "iportvt"))->tname));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fputs(stringchars((cx__23729)), oportdata((r[3]))));
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 346: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
{ const char_t v27056_x = char_from_obj(r[1]);
if ((isnull((r[2])))) {
r[3] = obj_from_void(fputc((v27056_x), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fputc((v27056_x), oportdata((r[3]))));
}
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
case 347: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3] = obj_from_void(fputs(stringchars((r[1])), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
} else {
r[3] = (car((r[2])));
r[3] = obj_from_void(fputs(stringchars((r[1])), oportdata((r[3]))));
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 348: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
if ((isnull((r[1])))) {
r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
} else {
r[2] = (car((r[1])));
r[2] = obj_from_void(fputc('\n', oportdata((r[2]))));
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 349: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(0);
r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(0);
r[3+4] = (car((r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 350: /* clo k x args */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x args */
if ((isnull((r[2])))) {
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(1);
r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(1);
r[3+4] = (car((r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 351: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
if ((isnull((r[1])))) {
r[2+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (car((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 352: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k args */
if ((isnull((r[1])))) {
r[2] = obj_from_void(exit((+0)));
} else {
r[2] = (car((r[1])));
r[2] = obj_from_void(exit(fixnum_from_obj(r[2])));
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 353: /* 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(354);
r[2] = (hendblk(2+1));
r[0] = r[2];
r[1] = (cdr((r[1])));
goto gs_append_2A;
}
}
case 354: /* clo ek r */
assert(rc == 3);
{ 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 v27055_tmp;
{ /* length */
int n; obj l = r[4];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27055_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27055_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 355: /* 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_v24318;
case 356: /* clo k lst res */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_loop_v24318: /* k lst res */
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(356);
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(357);
r[3] = (hendblk(4+1));
r[0] = r[3];
/* r[1] */
goto s_loop_v24359;
s_loop_v24359: /* 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_v24359;
}
} 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 357: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 v27054_tmp;
{ /* length */
int n; obj l = r[5];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27054_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27054_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(359);
r[6] = (hendblk(4+1));
r[0] = r[6];
r[1] = r[2];
goto s_loop_v24344;
}
s_loop_v24344: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(358);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24344;
}
case 358: /* clo ek r */
assert(rc == 3);
{ 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 359: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(361);
r[6] = (hendblk(4+1));
r[0] = r[6];
r[1] = r[2];
goto s_loop_v24329;
s_loop_v24329: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(360);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v24329;
}
case 360: /* clo ek r */
assert(rc == 3);
{ 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 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+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 362: /* 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(363);
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 363: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 364: /* 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_v24283;
case 365: /* 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_v24283: /* k args a* msg */
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(365);
r[4] = (hendblk(1+1));
if ((isnull((r[1])))) {
{ /* define apply */
static obj c[] = { obj_from_objptr(appcases+0) };
r[5] = obj_from_objptr(c); }
{ /* reverse! */
obj t, v = mknull(), l = r[2];
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
r[6] = (v); }
r[7+0] = r[5];
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[0];
r[7+2] = (cx_error);
r[7+3] = obj_from_bool(0);
r[7+4] = r[3];
r[7+5] = r[6];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 6;
goto jump;
} else {
r[5] = (car((r[1])));
r[5] = obj_from_bool(isprocedure((r[5])));
if (bool_from_obj(r[5])) {
hreserve(hbsz(4+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[4];
*--hp = obj_from_case(366);
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_v24283;
}
}
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+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 367: /* sid? k sexp */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_sid_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] = ((issymbol((r[1]))) ? obj_from_bool(issymbol((r[1]))) : (cxs_renamed_2Dsid_3F((r[1]))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 368: /* renamed-sid? 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] = (cxs_renamed_2Dsid_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 369: /* svector? 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] = (cxs_svector_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 370: /* 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 371: /* 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 372: /* make-sid k name renamed-id location */
assert(rc == 5);
r += 1; /* shift reg. wnd */
gs_make_2Dsid: /* k name renamed-id location */
if (((r[1]) == (r[3]))) {
{ /* vector */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[1];
*--hp = obj_from_size(VECTOR_BTAG);
r[4] = (hendblk(2+1)); }
} else {
{ /* 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 373: /* 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 374: /* 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 375: /* 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 376: /* 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 377: /* 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 378: /* 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 379: /* 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(380);
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
/* r[2] */
goto s_mv2;
case 380: /* clo ek r */
assert(rc == 3);
{ 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 381: /* 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(381);
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(379);
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(382);
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 382: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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(383);
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(384);
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 383: /* clo ek r */
assert(rc == 3);
{ 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 384: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 385: /* 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(386);
r[2] = (hendblk(1+1));
{ /* vector->list */
obj v, l = mknull(); int c = (vectorlen((r[1])));
hreserve(hbsz(3)*c, 3); /* 3 live regs */
v = r[1]; /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[3] = (l); }
r[0] = r[2];
r[1] = r[3];
goto gs_wrap_2Dvecs;
case 386: /* clo 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 387: /* 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(388);
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 388: /* 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(389);
r[2] = (hendblk(1+1));
{ /* vector->list */
obj v, l = mknull(); int c = (vectorlen((r[1])));
hreserve(hbsz(3)*c, 3); /* 3 live regs */
v = r[1]; /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[3] = (l); }
r[4+0] = (cx_wrap_2Dvecs);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[2];
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 389: /* clo 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 390: /* unwrap-vec k v-sexp */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k v-sexp */
if (((+1) == (vectorlen((r[1]))))) {
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(391);
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 391: /* clo 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 v27053_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27053_tmp = (n); }
{ /* list->vector */
obj l; int i, c = (v27053_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 392: /* 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 393: /* 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 394: /* 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__232466);
*--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 395: /* 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 396: /* 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 397: /* 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 398: /* 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 399: /* 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", 1))) == (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 400: /* 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 401: /* expander? k syntax */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k syntax */
{ bool_t v27052_tmp;
r[2] = (car((r[1])));
r[2] = (car((r[2])));
v27052_tmp = ((mksymbol(internsym("builtin", 1))) == (r[2]));
r[2] = obj_from_bool(!(v27052_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 402: /* 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 403: /* 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 404: /* 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 405: /* 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 406: /* lookup-sid k sid env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k sid env */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (cxs_lookup_2Dsid((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 407: /* 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 408: /* lookup2 k sid env store */
assert(rc == 5);
r += 1; /* shift reg. wnd */
gs_lookup2: /* k sid env store */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(409);
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (cxs_lookup_2Dsid((r[1]), (r[2])));
r[2] = r[3];
goto gs_lookup_2Dlocation;
case 409: /* clo ek r */
assert(rc == 3);
{ 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 {
{ /* string-append */
int *d = stringcat(stringdata((cx__232544)), stringdata((cx__232543)));
r[4] = (hpushstr(4, d)); }
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[3];
r[5+2] = (mksymbol(internsym("macroexpander", 1)));
r[5+3] = (r[4]);
r[5+4] = (r[2]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 410: /* 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 411: /* 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 412: /* 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(413);
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_v23944;
} 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_v23956;
}
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 */
s_l_v23956: /* 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(414);
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(415);
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_v23964;
}
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+5] = p[4]; }
r += 1; /* shift reg. wnd */
s_l_v23964: /* 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 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; /* 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_v23944: /* 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(416);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = r[4];
/* r[2] */
goto s_loop_v23944;
}
case 416: /* clo ek r */
assert(rc == 3);
{ 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 417: /* 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)))) ? (1) : (((r[1]) == (mksymbol(internsym("define", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("if", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("lambda", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("letrec", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("quote", 1)))) ? (1) : (((r[1]) == (mksymbol(internsym("set!", 1)))) && (1))))))))) {
/* r[0] */
r[1] = r[2];
goto s_l_v23935;
} else {
{ fixnum_t v27051_x;
r[3] = (objptr_from_obj(r[2])[0]);
v27051_x = (stringlen((r[3])));
r[3] = obj_from_bool((v27051_x) > 0); }
if (bool_from_obj(r[3])) {
{ char_t v27050_tmp;
r[3] = (objptr_from_obj(r[2])[0]);
v27050_tmp = (*(unsigned char*)stringref((r[3]), (+0)));
r[3] = obj_from_bool(('_') == (v27050_tmp)); }
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
/* r[0] */
r[1] = r[2];
goto s_l_v23935;
} 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_v23935: /* k str */
r[2] = (objptr_from_obj(r[1])[0]);
{ /* string-append */
int *d = stringcat(stringdata((r[2])), stringdata((cx__232589)));
r[2] = (hpushstr(3, d)); }
{ /* string-append */
int *d = stringcat(stringdata((cx__232589)), stringdata((r[2])));
r[2] = (hpushstr(3, d)); }
r[2] = (mksymbol(internsym(stringchars((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 418: /* 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;
sprintf(buf, "%.15g", flonum_from_obj(r[1]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[4] = (hpushstr(4, newstring(buf))); }
}
{ /* string-append */
int *d = stringcat(stringdata((cx__232589)), 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__232589)), stringdata((r[4])));
r[4] = (hpushstr(5, d)); }
r[3] = (mksymbol(internsym(stringchars((r[4])), 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 419: /* 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 420: /* 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", 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 421: /* 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 v27049_tmp = (islist((r[1])));
r[7] = obj_from_bool(!(v27049_tmp)); }
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(432);
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(422);
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(432);
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_v23827;
}
case 422: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v23827: /* 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(427);
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_v23865;
case 423: /* 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_v23865: /* k l formals r */
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[4] = (car((r[1])));
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(423);
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(424);
r[5] = (hendblk(6+1));
r[0] = r[5];
r[1] = r[4];
goto gs_sid_3F;
}
case 424: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(425);
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_v23869;
} else {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[8];
r[9+2] = (mksymbol(internsym("macroexpander", 1)));
r[9+3] = (cx__232689);
r[9+4] = (r[3]);
r[9+5] = (cx__232681);
r[9+6] = (r[2]);
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
}
case 425: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23869: /* 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(426);
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])) {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[8];
r[9+2] = (mksymbol(internsym("macroexpander", 1)));
r[9+3] = (cx__232682);
r[9+4] = (r[3]);
r[9+5] = (cx__232681);
r[9+6] = (r[2]);
r += 9; /* 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[5];
r[3] = r[6];
r[4] = r[7];
goto s_l_v23871;
}
case 426: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
s_l_v23871: /* 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 427: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23830;
case 428: /* 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_v23830: /* 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(428);
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(429);
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 v27048_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27048_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27048_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(430);
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_v23832;
}
}
case 429: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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)); }
r[12+0] = r[2];
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[4];
r[12+2] = (cdr((r[8])));
r[12+3] = (r[11]);
r[12+4] = r[9];
r[12+5] = (r[10]);
r[12+6] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[7])));
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
case 430: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v23832: /* 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(431);
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 431: /* clo ek r */
assert(rc == 3);
{ 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 432: /* 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(433);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_dot_2Dflattened;
}
case 433: /* clo ek r */
assert(rc == 3);
{ 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(434);
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 434: /* clo ek r */
assert(rc == 3);
{ 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 435: /* 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(436);
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_v23759;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__232774);
r[4+4] = (r[1]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 436: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23759: /* ek . bindings k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(440);
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = r[2];
goto s_loop_v23777;
case 437: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
s_loop_v23777: /* 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_void(0);
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(437);
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(438);
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(437);
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_v23779;
}
}
case 438: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v23779: /* 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(439);
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_v23781;
} else {
r[7+0] = (cx_error);
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[6];
r[7+2] = (mksymbol(internsym("macroexpander", 1)));
r[7+3] = (cx__232761);
r[7+4] = (r[2]);
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 439: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23781: /* 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 440: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23762;
case 441: /* clo k bs */
assert(rc == 3);
r += 1; /* shift reg. wnd */
s_loop_v23762: /* 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(441);
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(442);
r[3] = (hendblk(3+1));
if (bool_from_obj(r[2])) {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__232752);
r[4+4] = (car((r[1])));
r[4+5] = (cx__232750);
r[4+6] = (r[2]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
} else {
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(441);
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_v23764;
}
}
case 442: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
s_l_v23764: /* 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 443: /* 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_v23710;
case 444: /* 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_v23710: /* 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(444);
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(445);
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 v27047_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27047_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27047_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_v23711;
}
case 445: /* 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;
s_loop_v23711: /* k store vals bs k loc-n ienv */
if ((!(isnull((r[2]))))) {
r[7] = (car((r[3])));
r[7] = (car((r[7])));
r[7] = (cxs_lookup_2Dsid((r[7]), (r[6])));
r[8] = (car((r[2])));
{ /* cons */
hreserve(hbsz(3), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_size(PAIR_BTAG);
r[9] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[1];
*--hp = r[9];
*--hp = obj_from_size(PAIR_BTAG);
r[8] = (hendblk(3)); }
r[9] = (cdr((r[2])));
r[10] = (cdr((r[3])));
/* r[0] */
r[1] = r[8];
r[2] = r[9];
r[3] = (r[10]);
/* r[4] */
/* r[5] */
/* r[6] */
goto s_loop_v23711;
} 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 446: /* 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)))) && (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(447);
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)))) && (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(448);
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_v23642;
} 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_v23642;
} 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_v23642;
} 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_v23642;
} else {
r[14+0] = (cx_error);
pc = objptr_from_obj(r[14+0])[0];
r[14+1] = (r[13]);
r[14+2] = (mksymbol(internsym("macroexpander", 1)));
r[14+3] = (cx__232882);
r[14+4] = (r[2]);
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
} else {
r[13+0] = (cx_error);
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = r[0];
r[13+2] = (mksymbol(internsym("macroexpander", 1)));
r[13+3] = (cx__232841);
r[13+4] = (r[1]);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 447: /* 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 448: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23642: /* 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 v27046_tmp;
{ fixnum_t v27045_tmp;
{ /* length */
int n; obj l = (r[14]);
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27046_tmp = (n); }
{ /* length */
int n; obj l = (r[15]);
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27045_tmp = (n); }
r[18] = obj_from_bool((v27046_tmp) == (v27045_tmp)); } }
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(449);
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_v23644;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[19]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__232875);
r[4] = (r[12]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 449: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23644: /* 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_v23645;
s_loop_v23645: /* 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])));
r[16] = (car((r[1])));
r[16] = (cxs_sid_2Did((r[16])));
{ /* cons */
hreserve(hbsz(3), 17); /* 17 live regs */
*--hp = r[2];
*--hp = (r[16]);
*--hp = obj_from_size(PAIR_BTAG);
r[17] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 18); /* 18 live regs */
*--hp = r[3];
*--hp = (r[17]);
*--hp = obj_from_size(PAIR_BTAG);
r[16] = (hendblk(3)); }
/* r[0] */
r[1] = (r[15]);
r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
r[3] = (r[16]);
/* 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_v23645;
} 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(450);
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 450: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(451);
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 451: /* 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 452: /* 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(453);
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(454);
r[11] = (hendblk(12+1));
r[0] = (r[11]);
/* r[1] */
goto gs_sid_3F;
case 453: /* 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 {
{ /* string-append */
int *d = stringcat(stringdata((r[3])), stringdata((cx__233071)));
r[4] = (hpushstr(4, d)); }
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
r[5+2] = (mksymbol(internsym("macroexpander", 1)));
r[5+3] = (r[4]);
r[5+4] = (r[2]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 454: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(455);
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 ((isnull((r[10])))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[11]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233092);
r[4] = (r[10]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
if ((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(458);
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(462);
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]))) || (is_char_obj(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(490);
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__233066);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[11]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = ((ispair((r[10]))) ? (cx__233078) : ((isvector((r[10]))) ? (cx__233076) : (cx__233075)));
r[4] = (r[10]);
r[5] = (cx__233074);
rreserve(MAX_HOSTREGS);
rc = 6;
goto jump;
}
}
}
}
case 455: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 v27044_tmp;
r[11] = (car((r[1])));
r[11] = (car((r[11])));
v27044_tmp = ((mksymbol(internsym("builtin", 1))) == (r[11]));
r[11] = obj_from_bool(!(v27044_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(456);
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__233064);
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(457);
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__233066);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 456: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 457: /* clo ek r */
assert(rc == 3);
{ 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 458: /* 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", 1))) == (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(461);
r[9] = (hendblk(3+1));
r[0] = r[9];
r[1] = r[8];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23564;
}
s_loop_v23564: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(459);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23564;
}
case 459: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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(460);
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 460: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 461: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 462: /* 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 v27043_tmp;
r[18] = (car((r[1])));
r[18] = (car((r[18])));
v27043_tmp = ((mksymbol(internsym("builtin", 1))) == (r[18]));
r[18] = obj_from_bool(!(v27043_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)))) && (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(463);
r[20] = (hendblk(7+1));
if ((fixnum_from_obj(r[19]) < (+1))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[20]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233052);
r[4] = (r[17]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} 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_v23529;
}
} else {
if ((((r[18]) == (mksymbol(internsym("syntax-lambda", 1)))) && (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(466);
r[20] = (hendblk(7+1));
if ((fixnum_from_obj(r[19]) < (+2))) {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[20]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233046);
r[4] = (r[17]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} 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_v23511;
}
} else {
if ((((r[18]) == (mksymbol(internsym("begin", 1)))) && (1))) {
if (bool_from_obj(r[8])) {
r[20+0] = r[8];
pc = objptr_from_obj(r[20+0])[0];
r[20+1] = r[0];
r[20+2] = (r[17]);
r[20+3] = (r[14]);
r[20+4] = (r[13]);
r[20+5] = r[3];
r[20+6] = r[4];
r += 20; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
} else {
if ((isnull((r[16])))) {
r[20+0] = (cx_error);
pc = objptr_from_obj(r[20+0])[0];
r[20+1] = r[0];
r[20+2] = (mksymbol(internsym("macroexpander", 1)));
r[20+3] = (cx__233040);
r[20+4] = (r[17]);
r += 20; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
hreserve(hbsz(1+1), 20); /* 20 live regs */
*--hp = r[0];
*--hp = obj_from_case(471);
r[20] = (hendblk(1+1));
r[0] = (r[20]);
r[1] = (r[16]);
r[2] = r[5];
r[3] = r[6];
r[4] = (r[13]);
r[5] = (r[14]);
goto s_loop_v23493;
}
}
} else {
if ((((r[18]) == (mksymbol(internsym("define", 1)))) ? (1) : (((r[18]) == (mksymbol(internsym("define-syntax", 1)))) && (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(472);
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_v23470;
}
} else {
hreserve(hbsz(11+1), 20); /* 20 live regs */
*--hp = (r[18]);
*--hp = (r[17]);
*--hp = r[0];
*--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(475);
r[20] = (hendblk(11+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__233066);
r += 21; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
}
}
}
case 463: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23529: /* 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(464);
r[9] = (hendblk(6+1));
r[0] = r[9];
r[1] = r[7];
/* r[2] */
goto gs_compile_2Dsyntax_2Drules;
case 464: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(465);
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__233064);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 465: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 466: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23511: /* 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(467);
r[9] = (hendblk(6+1));
r[0] = r[9];
r[1] = r[7];
/* r[2] */
goto gs_compile_2Dsyntax_2Dlambda;
case 467: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(468);
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__233064);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 468: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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;
s_loop_v23493: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(469);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23493;
}
case 469: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(470);
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 470: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 471: /* clo 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_make_2Dbegin;
case 472: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v23470: /* 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(473);
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_v23472;
} else {
r[13] = obj_from_bool(((+1) == fixnum_from_obj(r[2])) && ((r[10]) == (mksymbol(internsym("define", 1)))));
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_v23472;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[12]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233022);
r[4] = (r[9]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 473: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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_v23472: /* 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(474);
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__233062);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 474: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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 475: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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 loc-n store len loc-n store env id-n tail k sexp builtin */
{ const fixnum_t v27042_len = fixnum_from_obj(r[4]);
hreserve(hbsz(2+1), 13); /* 13 live regs */
*--hp = (r[12]);
*--hp = (r[11]);
*--hp = obj_from_case(476);
r[13] = (hendblk(2+1));
if ((((r[12]) == (mksymbol(internsym("lambda", 1)))) && (1))) {
hreserve(hbsz(7+1), 14); /* 14 live regs */
*--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(477);
r[14] = (hendblk(7+1));
r[0] = (r[14]);
r[1] = obj_from_bool((v27042_len) == (+2));
r[2] = (r[11]);
r[3] = (r[12]);
goto s_l_v23460;
} else {
if ((((r[12]) == (mksymbol(internsym("quote", 1)))) && (1))) {
hreserve(hbsz(3+1), 14); /* 14 live regs */
*--hp = (r[10]);
*--hp = r[1];
*--hp = r[9];
*--hp = obj_from_case(479);
r[14] = (hendblk(3+1));
r[0] = (r[14]);
r[1] = obj_from_bool((v27042_len) == (+1));
r[2] = (r[11]);
r[3] = (r[12]);
goto s_l_v23460;
} else {
if ((((r[12]) == (mksymbol(internsym("set!", 1)))) && (1))) {
hreserve(hbsz(10+1), 14); /* 14 live regs */
*--hp = (r[10]);
*--hp = r[1];
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[3];
*--hp = r[2];
*--hp = (r[11]);
*--hp = r[6];
*--hp = (r[13]);
*--hp = obj_from_case(481);
r[14] = (hendblk(10+1));
if (((v27042_len) == (+2))) {
r[0] = (r[14]);
r[1] = (car((r[9])));
goto gs_sid_3F;
} else {
r[15+0] = obj_from_ktrap();
r[15+1] = obj_from_bool(0);
r[15+2] = (r[13]);
r[15+3] = r[6];
r[15+4] = (r[11]);
r[15+5] = r[2];
r[15+6] = r[3];
r[15+7] = r[7];
r[15+8] = r[8];
r[15+9] = r[9];
r[15+10] = r[1];
r[15+11] = (r[10]);
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v23406;
}
} else {
if ((((r[12]) == (mksymbol(internsym("if", 1)))) && (1))) {
hreserve(hbsz(7+1), 14); /* 14 live regs */
*--hp = (r[10]);
*--hp = r[1];
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(486);
r[14] = (hendblk(7+1));
r[0] = (r[14]);
r[1] = obj_from_bool(((+2) <= (v27042_len)) && ((v27042_len) <= (+3)));
r[2] = (r[11]);
r[3] = (r[12]);
goto s_l_v23460;
} else {
r[0] = r[1];
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
} }
case 476: /* 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_v23460: /* k test sexp builtin */
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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__232959);
r[4+4] = (r[3]);
r[4+5] = (cx__232958);
r[4+6] = (r[2]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
}
case 477: /* clo ek . */
assert(rc >= 2);
r[2] = 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 r k */
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(478);
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 478: /* clo ek r */
assert(rc == 3);
{ 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 */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda", 1)));
*--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 479: /* clo ek . */
assert(rc >= 2);
r[2] = 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 r k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(480);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (car((r[2])));
goto gs_unwrap_2Dvecs;
case 480: /* clo ek r */
assert(rc == 3);
{ 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 */
{ /* 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", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 481: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v23406: /* ek r expr-assert store sexp loc-n store env id-n tail r 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(482);
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 482: /* clo ek . */
assert(rc >= 2);
r[2] = 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 r k */
hreserve(hbsz(8+1), 11); /* 11 live regs */
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(483);
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 483: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 r 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(484);
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_v23412;
} else {
r[11+0] = (cx_error);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = (r[10]);
r[11+2] = (mksymbol(internsym("macroexpander", 1)));
r[11+3] = (cx__232990);
r[11+4] = (r[2]);
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 484: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23412: /* ek . loc-n store env id-n tail r k r */
hreserve(hbsz(3+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(485);
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 485: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r r 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!", 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[3];
r[2] = r[7];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 486: /* clo ek . */
assert(rc >= 2);
r[2] = 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 r k */
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(489);
r[9] = (hendblk(2+1));
r[0] = r[9];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23384;
s_loop_v23384: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(487);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23384;
}
case 487: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(488);
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 488: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 489: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r r k */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("if", 1)));
*--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 490: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 491: /* 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(492);
r[7] = (hendblk(3+1));
hreserve(hbsz(1+1), 8); /* 8 live regs */
*--hp = r[6];
*--hp = obj_from_case(493);
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 492: /* 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 493: /* 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 494: /* 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(495);
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 495: /* 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 496: /* 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(0+1), 13); /* 13 live regs */
*--hp = obj_from_case(516);
r[13] = (hendblk(0+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] = (bool_from_obj(r[7]) ? (mknull()) : obj_from_bool(0));
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_v23112;
case 497: /* 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_v23112: /* 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(498);
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_v23132;
} 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(497);
r[17] = (hendblk(6+1));
hreserve(hbsz(2+1), 18); /* 18 live regs */
*--hp = r[2];
*--hp = (r[17]);
*--hp = obj_from_case(515);
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 498: /* 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_v23132: /* 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(500);
r[16] = (hendblk(15+1));
r[0] = (r[16]);
r[1] = r[2];
goto s_loop_v23240;
s_loop_v23240: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(499);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v23240;
}
case 499: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 500: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(501);
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 501: /* 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]))) && (!(ispair((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 {
hreserve(hbsz(8+1), 15); /* 15 live regs */
*--hp = r[0];
*--hp = r[7];
*--hp = (r[13]);
*--hp = r[9];
*--hp = r[1];
*--hp = (r[10]);
*--hp = r[2];
*--hp = (r[12]);
*--hp = obj_from_case(502);
r[15] = (hendblk(8+1));
if ((isnull((r[14])))) {
hreserve(hbsz(1+1), 16); /* 16 live regs */
*--hp = (r[15]);
*--hp = obj_from_case(511);
r[16] = (hendblk(1+1));
r[17+0] = (r[16]);
r[17+1] = (r[11]);
r[17+2] = (r[10]);
r[17+3] = r[9];
r[17+4] = r[1];
r[17+5] = r[2];
r += 17; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_expand_2Dexpr;
} else {
hreserve(hbsz(2+1), 16); /* 16 live regs */
*--hp = r[3];
*--hp = (r[15]);
*--hp = obj_from_case(514);
r[16] = (hendblk(2+1));
r[17+0] = (r[16]);
r[17+1] = (r[14]);
r[17+2] = r[2];
r[17+3] = r[1];
r[17+4] = r[9];
r[17+5] = (r[10]);
r += 17; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v23143;
}
}
case 502: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 exprs loc-n id-n store env vds ek k */
{ fixnum_t v27041_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27041_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27041_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(8+1), 11); /* 11 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(505);
r[11] = (hendblk(8+1));
r[12+0] = (r[11]);
r[12+1] = (r[10]);
r[12+2] = r[3];
r[12+3] = r[5];
r[12+4] = r[6];
r[12+5] = r[4];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v23209;
s_loop_v23209: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(503);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23209;
}
case 503: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(504);
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 504: /* clo ek r */
assert(rc == 3);
{ 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 505: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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 id-n store env vds ek k r */
{ fixnum_t v27040_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27040_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27040_tmp);
hreserve(hbsz(3)*c, 10); /* 10 live regs */
l = r[1]; 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[10] = (o); } }
hreserve(hbsz(7+1), 11); /* 11 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(506);
r[11] = (hendblk(7+1));
r[0] = (r[11]);
r[1] = (r[10]);
goto gs_make_2Dbegin;
case 506: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 id-n store env vds ek k */
{ fixnum_t v27039_tmp;
{ /* length */
int n; obj l = r[6];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27039_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27039_tmp);
hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } }
hreserve(hbsz(3+1), 10); /* 10 live regs */
*--hp = r[1];
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(510);
r[10] = (hendblk(3+1));
r[0] = (r[10]);
r[1] = r[9];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23178;
s_loop_v23178: /* k l loc-n id-n store env */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(507);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23178;
}
case 507: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(508);
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 508: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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(509);
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 509: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* 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 510: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r ek k r */
if ((isnull((r[1])))) {
r[5] = r[4];
} else {
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
*--hp = r[4];
*--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)); }
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("letrec", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
}
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 511: /* clo 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_v23143: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(512);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v23143;
}
case 512: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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(513);
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 513: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 514: /* clo ek r */
assert(rc == 3);
{ 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 515: /* 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 516: /* clo k sexp vds sds exprs id-n env store loc-n k ek */
assert(rc == 12);
r += 1; /* shift reg. wnd */
/* k sexp vds sds exprs id-n env store loc-n k ek */
hreserve(hbsz(4+1), 11); /* 11 live regs */
*--hp = r[4];
*--hp = r[2];
*--hp = r[3];
*--hp = r[9];
*--hp = obj_from_case(517);
r[11] = (hendblk(4+1));
hreserve(hbsz(0+1), 12); /* 12 live regs */
*--hp = obj_from_case(516);
r[12] = (hendblk(0+1));
hreserve(hbsz(6+1), 13); /* 13 live regs */
*--hp = r[2];
*--hp = r[3];
*--hp = r[4];
*--hp = (r[10]);
*--hp = r[9];
*--hp = (r[12]);
*--hp = obj_from_case(527);
r[12] = (hendblk(6+1));
r[13+0] = r[0];
r[13+1] = r[1];
r[13+2] = r[5];
r[13+3] = r[6];
r[13+4] = r[7];
r[13+5] = r[8];
r[13+6] = obj_from_bool(0);
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 517: /* 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; /* shift reg. wnd */
/* k builtin sexp id-n env store loc-n k sds vds exprs */
if (bool_from_obj(cxs_list2_3F((r[2])))) {
if (bool_from_obj(r[10])) {
r[11] = (cdr((r[2])));
r[11] = (car((r[11])));
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = (r[10]);
*--hp = (r[11]);
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
r[12+0] = r[7];
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = r[0];
r[12+2] = r[9];
r[12+3] = r[8];
r[12+4] = (r[11]);
r[12+5] = r[3];
r[12+6] = r[4];
r[12+7] = r[5];
r[12+8] = r[6];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 9;
goto jump;
} else {
r[11+0] = (cx_error);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = r[0];
r[11+2] = (mksymbol(internsym("macroexpander", 1)));
r[11+3] = (cx__233268);
r[11+4] = (r[2]);
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} else {
r[11] = (cdr((r[2])));
r[11] = (car((r[11])));
r[12] = (cxs_sid_2Did((r[11])));
{ /* cons */
hreserve(hbsz(3), 13); /* 13 live regs */
*--hp = r[6];
*--hp = (r[12]);
*--hp = obj_from_size(PAIR_BTAG);
r[13] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 14); /* 14 live regs */
*--hp = r[4];
*--hp = (r[13]);
*--hp = obj_from_size(PAIR_BTAG);
r[13] = (hendblk(3)); }
hreserve(hbsz(2+1), 14); /* 14 live regs */
*--hp = (r[12]);
*--hp = r[2];
*--hp = obj_from_case(518);
r[14] = (hendblk(2+1));
hreserve(hbsz(13+1), 15); /* 15 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[9];
*--hp = r[2];
*--hp = r[8];
*--hp = (r[10]);
*--hp = r[3];
*--hp = (r[13]);
*--hp = r[5];
*--hp = r[6];
*--hp = r[7];
*--hp = (r[11]);
*--hp = (r[14]);
*--hp = obj_from_case(521);
r[15] = (hendblk(13+1));
r[0] = (r[15]);
r[1] = r[8];
r[2] = (r[14]);
goto s_loop_v23070;
}
case 518: /* 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])) {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233217);
r[4+4] = (r[1]);
r[4+5] = (cx__232750);
r[4+6] = (r[2]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
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 519: /* 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_v23070: /* k l check */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(519);
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(520);
r[3] = (hendblk(3+1));
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (car((r[1])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 520: /* clo ek . */
assert(rc >= 2);
r[2] = 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 521: /* clo ek . */
assert(rc >= 2);
r[2] = 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(524);
r[15] = (hendblk(12+1));
r[0] = (r[15]);
r[1] = (r[12]);
/* r[2] */
goto s_loop_v23055;
case 522: /* 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_v23055: /* k l check */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(522);
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(523);
r[3] = (hendblk(3+1));
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (car((r[1])));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 523: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . 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 524: /* clo ek . */
assert(rc >= 2);
r[2] = 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)))) && (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)); }
r[15+0] = r[3];
pc = objptr_from_obj(r[15+0])[0];
r[15+1] = (r[12]);
r[15+2] = (r[11]);
r[15+3] = (r[14]);
r[15+4] = r[8];
r[15+5] = r[7];
r[15+6] = r[6];
r[15+7] = r[5];
r[15+8] = obj_from_fixnum(fxadd(fixnum_from_obj(r[4]), (+1)));
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 9;
goto jump;
} else {
if ((((r[13]) == (mksymbol(internsym("define", 1)))) && (1))) {
hreserve(hbsz(11+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 = r[2];
*--hp = obj_from_case(525);
r[14] = (hendblk(11+1));
if (bool_from_obj(r[8])) {
r[15+0] = obj_from_ktrap();
r[15+1] = r[8];
r[15+2] = r[2];
r[15+3] = r[3];
r[15+4] = r[6];
r[15+5] = r[7];
r[15+6] = r[8];
r[15+7] = r[9];
r[15+8] = (r[11]);
r[15+9] = (r[10]);
r[15+10] = (r[12]);
r[15+11] = r[5];
r[15+12] = r[4];
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v23040;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[14]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233235);
r[4] = (r[10]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} 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 525: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v23040: /* ek . sid k env id-n exprs sds vds sexp k store loc-n */
hreserve(hbsz(10+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 = obj_from_case(526);
r[13] = (hendblk(10+1));
r[0] = (r[13]);
r[1] = (r[12]);
/* r[2] */
goto gs_intloc_2D_3Evar;
case 526: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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)); }
{ /* cons */
hreserve(hbsz(3), 13); /* 13 live regs */
*--hp = r[7];
*--hp = r[8];
*--hp = obj_from_size(PAIR_BTAG);
r[13] = (hendblk(3)); }
r[14+0] = r[2];
pc = objptr_from_obj(r[14+0])[0];
r[14+1] = r[9];
r[14+2] = (r[13]);
r[14+3] = r[6];
r[14+4] = r[5];
r[14+5] = r[4];
r[14+6] = r[3];
r[14+7] = (r[12]);
r[14+8] = obj_from_fixnum(fxadd(fixnum_from_obj(r[11]), (+1)));
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 9;
goto jump;
case 527: /* 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 ek 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_v22947;
case 528: /* clo k sexps vds sds exprs id-n env store loc-n ek */
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_v22947: /* k sexps vds sds exprs id-n env store loc-n ek 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(528);
r[12] = (hendblk(2+1));
hreserve(hbsz(2+1), 13); /* 13 live regs */
*--hp = r[1];
*--hp = (r[12]);
*--hp = obj_from_case(529);
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(530);
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 529: /* 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 530: /* 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 ek */
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(533);
r[9] = (hendblk(3+1));
r[0] = r[9];
r[1] = r[8];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v22962;
s_loop_v22962: /* k l loc-n store env id-n */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(531);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v22962;
}
case 531: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(532);
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 532: /* clo ek r */
assert(rc == 3);
{ 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 533: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 ek k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(534);
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 534: /* clo ek r */
assert(rc == 3);
{ 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 535: /* expand-top-level-forms k forms store loc-n k */
assert(rc == 6);
r += 1; /* shift reg. wnd */
gs_expand_2Dtop_2Dlevel_2Dforms: /* k forms store loc-n k */
hreserve(hbsz(4+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = r[3];
*--hp = r[4];
*--hp = obj_from_case(536);
r[5] = (hendblk(4+1));
r[0] = r[5];
/* r[1] */
goto gs_wrap_2Dvecs;
case 536: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r k loc-n store k */
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[2];
*--hp = obj_from_case(548);
r[6] = (hendblk(1+1));
r[7+0] = r[5];
r[7+1] = r[1];
r[7+2] = obj_from_fixnum(+0);
r[7+3] = (mknull());
r[7+4] = r[4];
r[7+5] = r[3];
r[7+6] = (mknull());
r[7+7] = r[6];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_expand;
case 537: /* 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(537);
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(538);
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(539);
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(546);
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 538: /* 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 539: /* 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(540);
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])));
r[16] = (cxs_sid_2Dlocation((r[15])));
r[17] = (cdr((r[14])));
r[17] = (car((r[17])));
if (((r[1]) == (mksymbol(internsym("define", 1))))) {
hreserve(hbsz(11+1), 18); /* 18 live regs */
*--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[16]);
*--hp = (r[15]);
*--hp = obj_from_case(541);
r[18] = (hendblk(11+1));
r[0] = (r[18]);
r[1] = (r[17]);
r[2] = r[3];
r[3] = r[4];
r[4] = r[5];
r[5] = r[6];
goto gs_expand_2Dexpr;
} else {
hreserve(hbsz(7+1), 18); /* 18 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[9];
*--hp = (r[12]);
*--hp = r[8];
*--hp = r[7];
*--hp = (r[16]);
*--hp = obj_from_case(544);
r[18] = (hendblk(7+1));
/* r[0] */
r[1] = (r[17]);
r[2] = r[3];
r[3] = r[4];
r[4] = r[5];
r[5] = r[6];
r[6] = (r[18]);
goto gs_expand_2Dval;
}
}
case 540: /* clo ek r */
assert(rc == 3);
{ 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 541: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 loc 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(542);
r[13] = (hendblk(11+1));
r[0] = (r[13]);
r[1] = r[3];
/* r[2] */
goto gs_loc_2D_3Evar;
case 542: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 loc 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", 1)));
*--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(543);
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 543: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 544: /* 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 loc 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(545);
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 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+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 546: /* 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(547);
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 547: /* 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 548: /* 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 v27038_tmp;
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27038_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27038_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 549: /* 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(554);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
r[2] = r[3];
goto s_loop_v22782;
case 550: /* 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_v22782: /* k l formals */
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] = (car((r[1])));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = obj_from_case(550);
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(551);
r[4] = (hendblk(5+1));
r[0] = r[4];
r[1] = r[3];
goto gs_sid_3F;
}
case 551: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(552);
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_v22786;
} else {
r[8+0] = (cx_error);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[7];
r[8+2] = (mksymbol(internsym("macroexpander", 1)));
r[8+3] = (cx__232689);
r[8+4] = (r[2]);
r[8+5] = (cx__233502);
r[8+6] = (r[3]);
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
}
case 552: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22786: /* 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(553);
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])) {
r[8+0] = (cx_error);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[7];
r[8+2] = (mksymbol(internsym("macroexpander", 1)));
r[8+3] = (cx__232682);
r[8+4] = (r[2]);
r[8+5] = (cx__233502);
r[8+6] = (r[3]);
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[4];
r[3] = r[5];
r[4] = r[6];
goto s_l_v22788;
}
case 553: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22788: /* 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 554: /* clo ek . */
assert(rc >= 2);
r[2] = 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", 1)));
*--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 555: /* 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 556: /* 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 557: /* 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 558: /* 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("number?", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(559);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("string?", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(560);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("id?", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(561);
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 559: /* 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 560: /* 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 561: /* clo k sexp env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k sexp env */
/* r[0] */
/* r[1] */
goto gs_sid_3F;
case 562: /* 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 563: /* 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 564: /* 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("number->string", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(565);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("string->number", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(566);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("list->string", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(567);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("string->list", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(569);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("length", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(570);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("string-append", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(571);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("+", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(573);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("*", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(575);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("id->string", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(577);
r[2] = (hendblk(0+1));
} else {
if ((((r[2]) == (mksymbol(internsym("string->id", 1)))) && (1))) {
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(579);
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 565: /* 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;
sprintf(buf, "%.15g", flonum_from_obj(r[3]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233781);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 566: /* 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;
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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233771);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 567: /* 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(568);
r[4] = (hendblk(2+1));
if ((islist((r[3])))) {
r[0] = r[4];
r[1] = r[3];
goto s_loop_v22677;
} 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_v22683;
}
case 568: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
s_l_v22683: /* ek r k sexp */
if (bool_from_obj(r[1])) {
{ fixnum_t v27037_tmp;
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27037_tmp = (n); }
{ /* list->string */
int i, c = (v27037_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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[2];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233751);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
s_loop_v22677: /* 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_v22677;
} 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 569: /* 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->list */
int c = (stringlen((r[3])));
unsigned char *s; obj l = mknull();
hreserve(hbsz(3)*c, 4); /* 4 live regs */
s = (unsigned char *)stringchars((r[3])); /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[4] = (l); }
/* r[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+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233741);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 570: /* 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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233732);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 571: /* clo k sexps env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k sexps env */
/* r[0] */
/* r[1] */
goto s_loop_v22642;
s_loop_v22642: /* 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__232078);
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(572);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v22642;
} else {
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("macroexpander", 1)));
r[2+3] = (cx__233715);
r[2+4] = (car((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 572: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 573: /* clo k sexps env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k sexps env */
/* r[0] */
/* r[1] */
goto s_loop_v22623;
s_loop_v22623: /* 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(574);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v22623;
} else {
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("macroexpander", 1)));
r[2+3] = (cx__233689);
r[2+4] = (car((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
}
case 574: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k sexps */
r[4] = (car((r[3])));
if ((is_fixnum_obj(r[4]))) {
{ const fixnum_t v27035_a = fixnum_from_obj(r[4]);
if ((is_fixnum_obj(r[1]))) {
r[5] = obj_from_fixnum(fxadd((v27035_a), fixnum_from_obj(r[1])));
} else {
{ const flonum_t v27036_tmp = ((flonum_t)(v27035_a));
r[5] = obj_from_flonum(5, (v27036_tmp) + flonum_from_obj(r[1])); }
} }
} else {
if ((is_fixnum_obj(r[1]))) {
{ const flonum_t v27034_tmp = ((flonum_t)fixnum_from_obj(r[1]));
r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) + (v27034_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 575: /* clo k sexps env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k sexps env */
/* r[0] */
/* r[1] */
goto s_loop_v22604;
s_loop_v22604: /* 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(576);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v22604;
} else {
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("macroexpander", 1)));
r[2+3] = (cx__233663);
r[2+4] = (car((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
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 sexps */
r[4] = (car((r[3])));
if ((is_fixnum_obj(r[4]))) {
{ const fixnum_t v27032_a = fixnum_from_obj(r[4]);
if ((is_fixnum_obj(r[1]))) {
r[5] = obj_from_fixnum(fxmul((v27032_a), fixnum_from_obj(r[1])));
} else {
{ const flonum_t v27033_tmp = ((flonum_t)(v27032_a));
r[5] = obj_from_flonum(5, (v27033_tmp) * flonum_from_obj(r[1])); }
} }
} else {
if ((is_fixnum_obj(r[1]))) {
{ const flonum_t v27031_tmp = ((flonum_t)fixnum_from_obj(r[1]));
r[5] = obj_from_flonum(5, flonum_from_obj(r[4]) * (v27031_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 577: /* 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(578);
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = r[3];
goto gs_sid_3F;
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 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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[2];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233654);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 579: /* 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])), 0)));
r[5] = (isassv((r[4]), (r[2])));
r[5] = (bool_from_obj(r[5]) ? (cdr((r[5]))) : (r[4]));
r[6+0] = r[0];
r[6+1] = r[4];
r[6+2] = r[4];
r[6+3] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_make_2Dsid;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233639);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 580: /* 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(581);
r[4] = (hendblk(2+1));
hreserve(hbsz(5+1), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[1];
*--hp = r[4];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(583);
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(655);
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(581);
r[5] = (hendblk(2+1));
r[6+0] = obj_from_ktrap();
r[6+1] = obj_from_bool(0);
r[6+2] = r[2];
r[6+3] = r[0];
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_v22103;
}
case 581: /* 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[2];
*--hp = r[0];
*--hp = obj_from_case(582);
r[4] = (hendblk(4+1));
r[0] = r[4];
/* r[1] */
goto gs_sid_3F;
case 582: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r k env 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])))));
} else {
r[6] = (cxs_lookup_2Dsid((r[4]), (r[3])));
r[6] = obj_from_bool((mksymbol(internsym("...", 1))) == (r[6]));
}
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 {
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 583: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
s_l_v22103: /* ek r env k 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(7+1), 11); /* 11 live regs */
*--hp = r[4];
*--hp = r[5];
*--hp = r[3];
*--hp = r[2];
*--hp = r[6];
*--hp = r[9];
*--hp = r[8];
*--hp = obj_from_case(584);
r[11] = (hendblk(7+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[9];
r[12+4] = r[6];
r[12+5] = r[2];
r[12+6] = r[3];
r[12+7] = r[5];
r[12+8] = r[4];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v22105;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[11]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233854);
r[4] = (r[8]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 584: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22105: /* ek . pat-literal-sids rules ellipsis-id env k synrules ellipsis? */
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(590);
r[9] = (hendblk(7+1));
r[0] = r[9];
r[1] = r[2];
r[2] = r[8];
r[3] = r[7];
goto s_loop_v22523;
case 585: /* 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_v22523: /* k l ellipsis? synrules */
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[4] = (car((r[1])));
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(585);
r[5] = (hendblk(2+1));
hreserve(hbsz(6+1), 6); /* 6 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(586);
r[5] = (hendblk(6+1));
r[0] = r[5];
r[1] = r[4];
goto gs_sid_3F;
}
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+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? synrules lit 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(587);
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_v22527;
} else {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[8];
r[9+2] = (mksymbol(internsym("macroexpander", 1)));
r[9+3] = (cx__233799);
r[9+4] = (r[4]);
r[9+5] = (cx__233796);
r[9+6] = (r[3]);
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
}
case 587: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6]; }
r += 1; /* shift reg. wnd */
s_l_v22527: /* ek . ellipsis? synrules lit loop l k */
hreserve(hbsz(3+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(588);
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(589);
r[8] = (hendblk(3+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 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 . 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 589: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r synrules lit k */
if (bool_from_obj(r[1])) {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = (mksymbol(internsym("macroexpander", 1)));
r[5+3] = (cx__233797);
r[5+4] = (r[3]);
r[5+5] = (cx__233796);
r[5+6] = (r[2]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
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 590: /* clo ek . */
assert(rc >= 2);
r[2] = 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 . pat-literal-sids rules ellipsis-id env k synrules ellipsis? */
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(592);
r[9] = (hendblk(6+1));
r[0] = r[9];
r[1] = r[2];
goto s_loop_v22508;
s_loop_v22508: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(591);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v22508;
}
case 591: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r 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 592: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 rules ellipsis-id env k synrules ellipsis? */
hreserve(hbsz(1+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = obj_from_case(593);
r[8] = (hendblk(1+1));
hreserve(hbsz(6+1), 9); /* 9 live regs */
*--hp = r[1];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(648);
r[9] = (hendblk(6+1));
hreserve(hbsz(2+1), 10); /* 10 live regs */
*--hp = r[7];
*--hp = r[8];
*--hp = obj_from_case(594);
r[10] = (hendblk(2+1));
r[11+0] = r[9];
r[11+1] = r[2];
r[11+2] = (r[10]);
r[11+3] = r[1];
r[11+4] = r[8];
r[11+5] = r[7];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v22160;
case 593: /* 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 594: /* 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[2];
*--hp = r[1];
*--hp = obj_from_case(595);
r[5] = (hendblk(2+1));
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = obj_from_case(596);
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(597);
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(614);
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(615);
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 595: /* 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 pat/tmpl in-template? */
{ /* string-append */
int *d = stringcat(stringdata((r[2])), stringdata((cx__23918)));
r[5] = (hpushstr(5, d)); }
r[6+0] = (cx_error);
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[0];
r[6+2] = (mksymbol(internsym("macroexpander", 1)));
r[6+3] = (r[5]);
r[6+4] = (r[1]);
r[6+5] = (bool_from_obj(r[4]) ? (cx__233942) : (cx__233995));
r[6+6] = (r[3]);
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
case 596: /* 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__234012)), 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 597: /* clo ek . */
assert(rc >= 2);
r[2] = 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 598: /* 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(598);
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(599);
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(611);
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 {
if (bool_from_obj(cxs_svector_3F((r[1])))) {
r[8] = (vectorref((r[1]), (+0)));
hreserve(hbsz(5+1), 9); /* 9 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[6];
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(612);
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[8];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if (bool_from_obj(bool_from_obj(r[5]) ? (cxs_template_2Dsbox_3F((r[1]))) : (cxs_pattern_2Dsbox_3F((r[1]))))) {
r[8] = (boxref((r[1])));
r[8] = (cdr((r[8])));
hreserve(hbsz(5+1), 9); /* 9 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[6];
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(613);
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[8];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isbox((r[1])))) {
r[8+0] = r[4];
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[0];
r[8+2] = r[1];
r[8+3] = (cx__234027);
r += 8; /* 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 599: /* clo ek . */
assert(rc >= 2);
r[2] = 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(600);
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 600: /* clo ek . */
assert(rc >= 2);
r[2] = 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(601);
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(610);
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 601: /* clo ek . */
assert(rc >= 2);
r[2] = 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(602);
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 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+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(603);
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 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+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__234060);
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(604);
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 604: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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__234055);
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(605);
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_v22416;
} else {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
r[2] = r[7];
r[3] = (cx__234016);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
}
}
case 605: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22416: /* 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_v22417;
case 606: /* 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_v22417: /* k l ellipsis? bad-ellipsis x check */
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[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(606);
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(607);
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(609);
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;
}
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+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(608);
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 608: /* clo ek . */
assert(rc >= 2);
r[2] = 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 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+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__234018);
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 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+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__234060);
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 611: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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__234068);
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 612: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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__234032);
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 613: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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__234030);
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 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+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__234078);
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 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+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__234060);
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(616);
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 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+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__234077);
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;
}
s_loop_v22160: /* k l check-ellipses r ellipsis-pair? ellipsis? */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(617);
r[7] = (hendblk(6+1));
r[0] = r[7];
r[1] = r[6];
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v22160;
}
case 617: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 check-ellipses r ellipsis-pair? ellipsis? k l */
r[8] = (car((r[7])));
r[9] = (cxs_list2_3F((r[8])));
hreserve(hbsz(7+1), 10); /* 10 live regs */
*--hp = r[8];
*--hp = r[1];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(618);
r[10] = (hendblk(7+1));
if (bool_from_obj(r[9])) {
r[11+0] = obj_from_ktrap();
r[11+1] = r[9];
r[11+2] = r[2];
r[11+3] = r[3];
r[11+4] = r[4];
r[11+5] = r[5];
r[11+6] = r[6];
r[11+7] = r[1];
r[11+8] = r[8];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v22164;
} else {
r[0] = (cx_error);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
r[2] = (mksymbol(internsym("macroexpander", 1)));
r[3] = (cx__233935);
r[4] = (r[8]);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 618: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22164: /* ek . check-ellipses r ellipsis-pair? ellipsis? k r rule */
r[9] = (cdr((r[8])));
r[9] = (car((r[9])));
r[10] = (car((r[8])));
hreserve(hbsz(8+1), 11); /* 11 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[9];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = (r[10]);
*--hp = obj_from_case(619);
r[11] = (hendblk(8+1));
if ((ispair((r[10])))) {
r[0] = (r[11]);
r[1] = (car((r[10])));
goto gs_sid_3F;
} else {
r[12+0] = obj_from_ktrap();
r[12+1] = obj_from_bool(0);
r[12+2] = (r[10]);
r[12+3] = r[2];
r[12+4] = r[3];
r[12+5] = r[4];
r[12+6] = r[5];
r[12+7] = r[9];
r[12+8] = r[6];
r[12+9] = r[7];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v22166;
}
case 619: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v22166: /* ek r pat check-ellipses r ellipsis-pair? ellipsis? tmpl k r */
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(620);
r[10] = (hendblk(8+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] */
goto s_l_v22174;
} else {
hreserve(hbsz(2+1), 11); /* 11 live regs */
*--hp = (r[10]);
*--hp = r[2];
*--hp = obj_from_case(647);
r[11] = (hendblk(2+1));
r[0] = (r[11]);
r[1] = r[2];
goto gs_sid_3F;
}
case 620: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22174: /* ek . pat check-ellipses r ellipsis-pair? ellipsis? tmpl k r */
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(621);
r[10] = (hendblk(7+1));
hreserve(hbsz(2+1), 11); /* 11 live regs */
*--hp = r[2];
*--hp = (r[10]);
*--hp = obj_from_case(646);
r[10] = (hendblk(2+1));
r[0] = (r[10]);
r[1] = r[2];
goto gs_sid_3F;
case 621: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 check-ellipses r ellipsis-pair? ellipsis? tmpl k r */
hreserve(hbsz(8+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[1];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(622);
r[9] = (hendblk(8+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] = obj_from_bool(0);
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 622: /* clo ek . */
assert(rc >= 2);
r[2] = 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 . check-ellipses r r ellipsis-pair? ellipsis? tmpl k r */
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(623);
r[10] = (hendblk(7+1));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
r[2] = r[7];
r[3] = obj_from_bool(1);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 623: /* clo ek . */
assert(rc >= 2);
r[2] = 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 . r r ellipsis-pair? ellipsis? tmpl k r */
r[9] = (cdr((r[3])));
hreserve(hbsz(5+1), 10); /* 10 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = obj_from_case(629);
r[10] = (hendblk(5+1));
r[11+0] = (r[10]);
r[11+1] = r[9];
r[11+2] = obj_from_fixnum(+0);
r[11+3] = (mknull());
r[11+4] = r[4];
r[11+5] = r[3];
r[11+6] = r[2];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_collect;
case 624: /* 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(624);
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(625);
r[7] = (hendblk(8+1));
r[0] = r[7];
/* r[1] */
goto gs_sid_3F;
case 625: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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])))) {
r[11+0] = (cx_error);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = r[6];
r[11+2] = (mksymbol(internsym("macroexpander", 1)));
r[11+3] = (cx__233996);
r[11+4] = (r[9]);
r[11+5] = (cx__233995);
r[11+6] = (r[5]);
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
} 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(626);
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 626: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(627);
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(628);
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 627: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[3])));
r[6+4] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 628: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 629: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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? ellipsis? tmpl k r */
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(640);
r[7] = (hendblk(5+1));
r[8+0] = r[7];
r[8+1] = r[4];
r[8+2] = obj_from_fixnum(+0);
r[8+3] = r[2];
r[8+4] = r[4];
r[8+5] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_collect_v22226;
case 630: /* 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_v22226: /* 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(630);
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(631);
r[6] = (hendblk(7+1));
r[0] = r[6];
/* r[1] */
goto gs_sid_3F;
case 631: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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])));
hreserve(hbsz(3+1), 11); /* 11 live regs */
*--hp = (r[10]);
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(632);
r[11] = (hendblk(3+1));
if ((((is_fixnum_obj(r[10])) ? (fixnum_from_obj(r[10]) > 0) : (flonum_from_obj(r[10]) > 0.0)) && (!(fixnum_from_obj(r[6]) == fixnum_from_obj(r[10]))))) {
r[12+0] = (cx_error);
pc = objptr_from_obj(r[12+0])[0];
r[12+1] = (r[11]);
r[12+2] = (mksymbol(internsym("macroexpander", 1)));
r[12+3] = (cx__233945);
r[12+4] = (r[8]);
r[12+5] = (cx__233942);
r[12+6] = (r[4]);
r += 12; /* 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[5];
r[3] = r[6];
r[4] = (r[10]);
goto s_l_v22272;
}
} 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[8];
*--hp = r[4];
*--hp = r[6];
*--hp = r[3];
*--hp = obj_from_case(633);
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 632: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22272: /* ek . k depth pat-depth */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(fixnum_from_obj(r[3]) == fixnum_from_obj(r[4]));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 633: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 tmpl x 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(634);
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] = (car((r[5])));
r[8+3] = (bool_from_obj(r[1]) ? obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[3]))) : (r[3]));
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 634: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6]; }
r += 1; /* shift reg. wnd */
/* ek r collect depth tmpl x r k */
if (bool_from_obj(r[6])) {
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(635);
r[8] = (hendblk(0+1));
} else {
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(636);
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(637);
r[9] = (hendblk(7+1));
r[0] = r[8];
pc = objptr_from_obj(r[0])[0];
r[1] = r[9];
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 635: /* 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 636: /* 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 637: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 tmpl x 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(638);
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 638: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
/* ek r tmpl x r k r */
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[1];
*--hp = r[5];
*--hp = obj_from_case(639);
r[7] = (hendblk(3+1));
if (bool_from_obj(r[4])) {
if ((!bool_from_obj(r[6]))) {
r[8+0] = (cx_error);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[7];
r[8+2] = (mksymbol(internsym("macroexpander", 1)));
r[8+3] = (cx__233943);
r[8+4] = (r[3]);
r[8+5] = (cx__233942);
r[8+6] = (r[2]);
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
} 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_v22238;
}
} 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_v22238;
}
case 639: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v22238: /* 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 640: /* clo ek . */
assert(rc >= 2);
r[2] = 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 . ellipsis? r tmpl k r */
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = obj_from_case(645);
r[7] = (hendblk(2+1));
r[8+0] = r[7];
r[8+1] = r[4];
r[8+2] = (mknull());
r[8+3] = r[2];
r[8+4] = r[3];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_collect_v22197;
case 641: /* 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_v22197: /* k x lits ellipsis? r */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(641);
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(642);
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 642: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(643);
r[7] = (hendblk(5+1));
r[0] = r[7];
r[1] = r[4];
goto gs_sid_3F;
}
case 643: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(644);
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 644: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 645: /* clo ek r */
assert(rc == 3);
{ 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 646: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 647: /* clo ek r */
assert(rc == 3);
{ 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 {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (mksymbol(internsym("macroexpander", 1)));
r[4+3] = (cx__233932);
r[4+4] = (r[2]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
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+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 rules ellipsis-id env k synrules 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(649);
r[9] = (hendblk(5+1));
r[0] = r[9];
r[1] = r[8];
goto gs_append_2A;
case 649: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
r += 1; /* shift reg. wnd */
/* ek r rules ellipsis-id env k synrules */
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = obj_from_case(650);
r[7] = (hendblk(3+1));
if (bool_from_obj(objptr_from_obj(r[3])[0])) {
r[0] = obj_from_ktrap();
/* r[1] */
r[2] = r[4];
r[3] = r[5];
r[4] = r[6];
goto s_l_v22131;
} else {
r[8+0] = r[7];
r[8+1] = r[2];
r[8+2] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_list_2Ddots_2Dids;
}
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+4] = p[3]; }
r += 1; /* shift reg. wnd */
s_l_v22131: /* ek r env k synrules */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(651);
r[5] = (hendblk(2+1));
r[6+0] = r[5];
r[6+1] = r[1];
r[6+2] = (mknull());
r[6+3] = r[2];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v22138;
s_loop_v22138: /* k ids reduced-env env */
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] = (cdr((r[1])));
r[5] = (car((r[1])));
r[6] = (isassv((r[5]), (r[2])));
r[6] = obj_from_bool(!bool_from_obj(r[6]));
if (bool_from_obj(r[6])) {
r[6] = (isassv((r[5]), (r[3])));
} else {
r[6] = obj_from_bool(0);
}
if (bool_from_obj(r[6])) {
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[2];
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
} else {
r[5] = r[2];
}
/* r[0] */
r[1] = r[4];
r[2] = r[5];
/* r[3] */
goto s_loop_v22138;
}
case 651: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k synrules */
r[4] = (cdr((r[3])));
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("syntax-rules", 1)));
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
{ /* 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[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 652: /* clo k x ids */
assert(rc == 4);
r += 1; /* shift reg. wnd */
s_list_2Ddots_2Dids: /* k x ids */
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(652);
r[3] = (hendblk(0+1));
hreserve(hbsz(4+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = r[0];
*--hp = r[3];
*--hp = obj_from_case(653);
r[3] = (hendblk(4+1));
r[0] = r[3];
/* r[1] */
goto gs_sid_3F;
case 653: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r list-dots-ids k ids x */
if (bool_from_obj(r[1])) {
r[6] = (cxs_sid_2Dlocation((r[5])));
r[6] = obj_from_bool((mksymbol(internsym("...", 1))) == (r[6]));
if (bool_from_obj(r[6])) {
r[6] = (cxs_sid_2Did((r[5])));
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[4];
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
} else {
r[6] = r[4];
}
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 {
if ((isvector((r[5])))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = (vectorref((r[5]), (+0)));
r[3] = r[4];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((isbox((r[5])))) {
r[6] = (boxref((r[5])));
r[6] = (cdr((r[6])));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[6];
r[3] = r[4];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((ispair((r[5])))) {
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[3];
*--hp = r[5];
*--hp = r[2];
*--hp = obj_from_case(654);
r[6] = (hendblk(3+1));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = (cdr((r[5])));
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 654: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 list-dots-ids 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 655: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 656: /* 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(657);
r[8] = (hendblk(7+1));
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[6];
*--hp = r[8];
*--hp = obj_from_case(727);
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 657: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(659);
r[11] = (hendblk(8+1));
r[0] = (r[11]);
r[1] = (r[10]);
goto s_loop_v22067;
s_loop_v22067: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(658);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v22067;
}
case 658: /* clo ek r */
assert(rc == 3);
{ 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 659: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(660);
r[11] = (hendblk(1+1));
hreserve(hbsz(2+1), 12); /* 12 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = obj_from_case(661);
r[12] = (hendblk(2+1));
hreserve(hbsz(1+1), 13); /* 13 live regs */
*--hp = (r[12]);
*--hp = obj_from_case(663);
r[13] = (hendblk(1+1));
hreserve(hbsz(8+1), 14); /* 14 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = (r[13]);
*--hp = (r[12]);
*--hp = r[3];
*--hp = (r[11]);
*--hp = obj_from_case(670);
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_v21603;
case 660: /* 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 661: /* 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[2];
*--hp = r[0];
*--hp = obj_from_case(662);
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 662: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r k mac-env 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])))));
} else {
r[6] = (cxs_lookup_2Dsid((r[4]), (r[3])));
r[6] = obj_from_bool((mksymbol(internsym("...", 1))) == (r[6]));
}
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 {
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 663: /* 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_v21998;
case 664: /* 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_v21998: /* 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(664);
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(665);
r[6] = (hendblk(7+1));
r[0] = r[6];
/* r[1] */
goto gs_sid_3F;
case 665: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(666);
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_v22020;
}
} 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(667);
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 666: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
s_l_v22020: /* 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 667: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(668);
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(669);
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 668: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r 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 669: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 670: /* 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 id-n mac-env */
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(676);
r[14] = (hendblk(9+1));
hreserve(hbsz(9+1), 15); /* 15 live regs */
*--hp = (r[12]);
*--hp = (r[13]);
*--hp = r[0];
*--hp = (r[10]);
*--hp = r[5];
*--hp = r[2];
*--hp = r[3];
*--hp = (r[14]);
*--hp = r[7];
*--hp = obj_from_case(671);
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 671: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(672);
r[11] = (hendblk(9+1));
hreserve(hbsz(1+1), 12); /* 12 live regs */
*--hp = r[4];
*--hp = obj_from_case(675);
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 672: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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(673);
r[11] = (hendblk(9+1));
r[0] = (r[11]);
/* r[1] */
r[2] = (mknull());
goto s_loop_v21970;
s_loop_v21970: /* 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_v21970;
}
case 673: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(674);
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 674: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r k id-n tmpl-literals k */
{ fixnum_t v27030_tmp;
r[6] = (objptr_from_obj(r[4])[0]);
{ /* length */
int n; obj l = r[6];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27030_tmp = (n); }
r[6] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (v27030_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 675: /* 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 676: /* 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 id-n mac-env 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(676);
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 677: /* 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 id-n mac-env 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(677);
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(678);
r[13] = (hendblk(14+1));
r[0] = (r[13]);
/* r[1] */
goto gs_sid_3F;
case 678: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 id-n mac-env 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 {
{ fixnum_t v27029_index;
{ fixnum_t v27028_tmp;
r[19] = (objptr_from_obj(r[11])[0]);
r[19] = (ismemv((r[16]), (r[19])));
{ /* length */
int n; obj l = (r[19]);
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27028_tmp = (n); }
v27029_index = (fxadd((-1), (v27028_tmp))); }
r[19] = (cxs_lookup_2Dsid((r[15]), (r[10])));
r[0] = (r[13]);
r[1] = (cxs_sid_2Dname((r[15])));
r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[9]), (v27029_index)));
r[3] = (r[19]);
goto gs_make_2Dsid; }
}
}
} else {
if ((isvector((r[15])))) {
hreserve(hbsz(1+1), 16); /* 16 live regs */
*--hp = (r[13]);
*--hp = obj_from_case(679);
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(680);
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(682);
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 679: /* clo 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 680: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+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(681);
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 681: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 682: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(683);
r[10] = (hendblk(6+1));
hreserve(hbsz(1+1), 11); /* 11 live regs */
*--hp = r[3];
*--hp = obj_from_case(697);
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(698);
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 683: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4];
r[1+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(685);
r[8] = (hendblk(6+1));
r[0] = r[8];
/* r[1] */
/* r[2] */
goto s_loop_v21900;
s_loop_v21900: /* k l bindings */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3] = (cdr((r[1])));
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = r[0];
*--hp = obj_from_case(684);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
goto s_loop_v21900;
}
case 684: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 685: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(686);
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_v21842;
} else {
hreserve(hbsz(1+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = obj_from_case(695);
r[10] = (hendblk(1+1));
r[0] = (r[10]);
/* r[1] */
goto s_loop_v21830;
}
case 686: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v21842: /* 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(687);
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 {
r[9+0] = (cx_error);
pc = objptr_from_obj(r[9+0])[0];
r[9+1] = r[8];
r[9+2] = (mksymbol(internsym("macroexpander", 1)));
r[9+3] = (cx__234211);
r[9+4] = (r[5]);
r[9+5] = (cx__234210);
r[9+6] = (r[2]);
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
}
case 687: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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(688);
r[7] = (hendblk(5+1));
r[0] = r[7];
r[1] = r[2];
goto gs_apply_2Dmap_2Dlist;
case 688: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(693);
r[7] = (hendblk(2+1));
r[0] = r[7];
/* r[1] */
/* r[2] */
/* r[3] */
/* r[4] */
goto s_loop_v21853;
s_loop_v21853: /* k l r expand tmpl */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(689);
r[6] = (hendblk(5+1));
r[0] = r[6];
r[1] = r[5];
/* r[2] */
/* r[3] */
/* r[4] */
goto s_loop_v21853;
}
case 689: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(690);
r[8] = (hendblk(4+1));
hreserve(hbsz(0+1), 9); /* 9 live regs */
*--hp = obj_from_case(692);
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 690: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(691);
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 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; /* 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 692: /* 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 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; /* shift reg. wnd */
/* ek r k r */
{ fixnum_t v27027_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27027_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27027_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;
s_loop_v21830: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(694);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v21830;
}
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])));
{ /* 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 695: /* clo 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(696);
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 696: /* 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(fixnum_from_obj(r[1]) == fixnum_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 697: /* 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 698: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(699);
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 699: /* clo ek r */
assert(rc == 3);
{ 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 700: /* 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_v21603: /* k rules mac-env env r ellipsis-pair? list-ids not-pat-literal? expand-template sexp */
if ((isnull((r[1])))) {
r[10+0] = (cx_error);
pc = objptr_from_obj(r[10+0])[0];
r[10+1] = r[0];
r[10+2] = (mksymbol(internsym("macroexpander", 1)));
r[10+3] = (cx__234487);
r[10+4] = (r[9]);
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} 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(700);
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(701);
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(700);
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_v21668;
}
} 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(700);
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_v21668;
}
}
case 701: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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_v21668: /* 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(715);
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_v21687;
} 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(716);
r[13] = (hendblk(5+1));
hreserve(hbsz(2+1), 14); /* 14 live regs */
*--hp = (r[13]);
*--hp = r[8];
*--hp = obj_from_case(717);
r[13] = (hendblk(2+1));
r[0] = (r[13]);
r[1] = (r[12]);
goto gs_sid_3F;
}
case 702: /* 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_v21687: /* 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(702);
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(703);
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(714);
r[8] = (hendblk(3+1));
r[0] = r[8];
/* r[1] */
goto gs_sid_3F;
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+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 {
if (bool_from_obj(cxs_svector_3F((r[9])))) {
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = (vectorref((r[9]), (+0)));
r[3] = (vectorref((r[8]), (+0)));
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[5];
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = (r[10]);
r[3] = r[8];
r[4] = r[7];
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
if ((!(ispair((r[9]))))) {
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 {
hreserve(hbsz(7+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[6];
*--hp = r[7];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(704);
r[10] = (hendblk(7+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;
}
}
}
}
case 704: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 v27022_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)) ;
v27022_tail_2Dlen = (n); }
{ fixnum_t v27024_tmp;
{ fixnum_t v27023_tmp;
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27023_tmp = (n); }
v27024_tmp = (fxsub((v27023_tmp), (v27022_tail_2Dlen))); }
{ /* list-tail */
obj l = r[7]; int c = (v27024_tmp);
while (c-- > 0) l = cdr(l);
r[9] = (l); } }
{ fixnum_t v27025_tmp;
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27025_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27025_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 = (v27022_tail_2Dlen);
while (c-- > 0) l = cdr(l);
r[10] = (l); }
{ fixnum_t v27026_tmp;
{ /* length */
int n; obj l = (r[10]);
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27026_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27026_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(705);
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(713);
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 705: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(710);
r[8] = (hendblk(6+1));
r[0] = r[8];
r[1] = r[2];
r[2] = r[3];
r[3] = r[6];
goto s_loop_v21724;
s_loop_v21724: /* k l collect pat */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[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(706);
r[5] = (hendblk(4+1));
r[0] = r[5];
r[1] = r[4];
/* r[2] */
/* r[3] */
goto s_loop_v21724;
}
case 706: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(707);
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 707: /* clo ek r */
assert(rc == 3);
{ 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(709);
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
goto s_loop_v21735;
s_loop_v21735: /* k l */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mknull());
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(708);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v21735;
}
case 708: /* clo ek r */
assert(rc == 3);
{ 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 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 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 710: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(711);
r[9] = (hendblk(5+1));
r[0] = r[9];
r[1] = r[8];
goto gs_apply_2Dmap_2Dlist;
case 711: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(712);
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 712: /* clo ek r */
assert(rc == 3);
{ 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 v27021_tmp;
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27021_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27021_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 713: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 714: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 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+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 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+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 717: /* clo ek r */
assert(rc == 3);
{ 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 718: /* 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(718);
r[7] = (hendblk(4+1));
hreserve(hbsz(8+1), 8); /* 8 live regs */
*--hp = r[1];
*--hp = r[6];
*--hp = r[0];
*--hp = r[5];
*--hp = r[2];
*--hp = r[4];
*--hp = r[7];
*--hp = r[3];
*--hp = obj_from_case(719);
r[7] = (hendblk(8+1));
r[0] = r[7];
/* r[1] */
goto gs_sid_3F;
case 719: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 sexp env 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[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[9];
*--hp = r[7];
*--hp = obj_from_case(720);
r[11] = (hendblk(5+1));
r[0] = (r[11]);
r[1] = r[5];
goto gs_sid_3F;
}
} else {
if (bool_from_obj(cxs_svector_3F((r[9])))) {
if (bool_from_obj(cxs_svector_3F((r[5])))) {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
r[2] = (vectorref((r[9]), (+0)));
r[3] = (vectorref((r[5]), (+0)));
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] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
} else {
if (bool_from_obj(cxs_pattern_2Dsbox_3F((r[9])))) {
hreserve(hbsz(5+1), 10); /* 10 live regs */
*--hp = r[7];
*--hp = r[9];
*--hp = r[5];
*--hp = r[3];
*--hp = r[6];
*--hp = obj_from_case(721);
r[10] = (hendblk(5+1));
r[0] = (r[10]);
r[1] = r[9];
goto gs_pattern_2Dsbox_2D_3Etest;
} else {
if ((!(ispair((r[9]))))) {
r[0] = r[7];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(isequal((r[9]), (r[5])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(4+1), 10); /* 10 live regs */
*--hp = r[7];
*--hp = r[9];
*--hp = r[5];
*--hp = r[3];
*--hp = obj_from_case(723);
r[10] = (hendblk(4+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;
}
}
}
}
case 720: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 pat mac-env sexp env */
if (bool_from_obj(r[1])) {
r[7] = (cxs_lookup_2Dsid((r[5]), (r[6])));
r[8] = (cxs_lookup_2Dsid((r[3]), (r[4])));
r[7] = obj_from_bool(((r[8]) == (r[7])) || ((is_flonum_obj(r[8])) && ((is_flonum_obj(r[7])) && (flonum_from_obj(r[8]) == flonum_from_obj(r[7])))));
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 {
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 721: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(722);
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 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+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 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+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(726);
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 724: /* 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(724);
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(725);
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 725: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 726: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 727: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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;
}
s_loop_v21584: /* k bs store */
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])));
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (cx__232466);
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[5] = (car((r[1])));
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[2];
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
/* r[0] */
r[1] = r[3];
r[2] = r[4];
goto s_loop_v21584;
}
case 728: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
cx_builtins_2Dstore = r[1];
cx_null_2Dprog = (mknull());
hreserve(hbsz(0+1), 2); /* 2 live regs */
*--hp = obj_from_case(729);
r[2] = (hendblk(0+1));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1646);
r[3] = (hendblk(0+1));
r[4+0] = r[2];
r[4+1] = (mknull());
r[4+2] = (cx_builtins_2Dstore);
r[4+3] = obj_from_fixnum(+0);
r[4+4] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_expand_2Dtop_2Dlevel_2Dforms;
case 729: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
cx_null_2Dstuff = r[1];
cx_null_2Doutput = (car((cx_null_2Dstuff)));
r[2] = (cdr((cx_null_2Dstuff)));
cx_null_2Dstore = (car((r[2])));
r[2] = (cdr((cx_null_2Dstuff)));
r[2] = (cdr((r[2])));
cx_null_2Dloc_2Dn = (car((r[2])));
{ static obj c[] = { obj_from_case(730) }; cx_null_2Dmstore = (obj)c; }
{ static obj c[] = { obj_from_case(731) }; cx_expand_2Dtop_2Dlevel_2Dforms_21 = (obj)c; }
{ static obj c[] = { obj_from_case(733) }; cx__25residual_2D_25procedure_2Dlength = (obj)c; }
{ static obj c[] = { obj_from_case(734) }; cx__25residual_2D_25procedure_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(735) }; cx__25residual_2D_25procedure_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(736) }; cx__25residual_2D_25make_2Dprocedure = (obj)c; }
{ static obj c[] = { obj_from_case(737) }; cx_print_2Dprocedure = (obj)c; }
{ static obj c[] = { obj_from_case(741) }; cx_make_2Dannotated_2Dprocedure = (obj)c; }
{ static obj c[] = { obj_from_case(742) }; cx__25residual_2Dprocedure_2Dannotation = (obj)c; }
{ static obj c[] = { obj_from_case(743) }; cx__25residual_2Dargc_2D_3Eannotation = (obj)c; }
{ static obj c[] = { obj_from_case(744) }; cx__25residual_2Drange_2Dargc_2D_3Eannotation = (obj)c; }
{ static obj c[] = { obj_from_case(745) }; cx__25residual_2Drest_2Dargc_2D_3Eannotation = (obj)c; }
{ static obj c[] = { obj_from_case(746) }; cx_scheme_2Dcall_2Derror = (obj)c; }
{ static obj c[] = { obj_from_case(747) }; cx__25residual_2Dannotated_2Dprocedure_2Dargc_2Dok_3F = (obj)c; }
{ static obj c[] = { obj_from_case(748) }; cx_push_2Dframe = (obj)c; }
{ static obj c[] = { obj_from_case(749) }; cx_lookup_2Dvar = (obj)c; }
{ static obj c[] = { obj_from_case(751) }; cx_variable = (obj)c; }
{ static obj c[] = { obj_from_case(752) }; cx_shape_2B = (obj)c; }
{ static obj c[] = { obj_from_case(753) }; cx_shape = (obj)c; }
{ static obj c[] = { obj_from_case(754) }; cx_comp_2Dvar = (obj)c; }
{ static obj c[] = { obj_from_case(757) }; cx_comp_2Dself_2Deval = (obj)c; }
{ static obj c[] = { obj_from_case(758) }; cx_comp_2Dquote = (obj)c; }
{ static obj c[] = { obj_from_case(760) }; cx_comp_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(765) }; cx_comp_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(770) }; cx_parms_2D_3Eframe = (obj)c; }
{ static obj c[] = { obj_from_case(774) }; cx_rest_2Dparam_3F = (obj)c; }
{ static obj c[] = { obj_from_case(775) }; cx_comp_2Dif = (obj)c; }
{ static obj c[] = { obj_from_case(780) }; cx_bindings_2D_3Evars = (obj)c; }
{ static obj c[] = { obj_from_case(784) }; cx_bindings_2D_3Evals = (obj)c; }
{ static obj c[] = { obj_from_case(786) }; cx_comp_2Dletrec = (obj)c; }
{ static obj c[] = { obj_from_case(793) }; cx_comp_2Dvals = (obj)c; }
{ static obj c[] = { obj_from_case(796) }; cx_comp_2Dbegin = (obj)c; }
{ static obj c[] = { obj_from_case(798) }; cx_comp_2Dsequence = (obj)c; }
{ static obj c[] = { obj_from_case(799) }; cx_comp_2Dsequence_2Daux = (obj)c; }
{ static obj c[] = { obj_from_case(802) }; cx_comp_2Ddefine = (obj)c; }
{ static obj c[] = { obj_from_case(809) }; cx_comp_2Dvar_2Dcombination = (obj)c; }
{ static obj c[] = { obj_from_case(813) }; cx_comp_2Dcombination = (obj)c; }
{ static obj c[] = { obj_from_case(816) }; cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(817) }; cx__25residual_2Dscheme_2Dglobal_2Dvar_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(818) }; cx_gen_2Dvar_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(820) }; cx_gen_2Drte_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(822) }; cx_gen_2Dslot_2Dref_2D0 = (obj)c; }
{ static obj c[] = { obj_from_case(828) }; cx_gen_2Dslot_2Dref_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(834) }; cx_gen_2Dslot_2Dref_2Dup_2D2 = (obj)c; }
{ static obj c[] = { obj_from_case(836) }; cx_gen_2Dglo_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(838) }; cx_gen_2Dcst = (obj)c; }
{ static obj c[] = { obj_from_case(848) }; cx_gen_2Dvar_2Dset = (obj)c; }
{ static obj c[] = { obj_from_case(850) }; cx_gen_2Drte_2Dset = (obj)c; }
{ static obj c[] = { obj_from_case(852) }; cx_gen_2Dslot_2Dset_2D0 = (obj)c; }
{ static obj c[] = { obj_from_case(863) }; cx_gen_2Dslot_2Dset_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(874) }; cx_gen_2Dslot_2Dset_2Dn = (obj)c; }
{ static obj c[] = { obj_from_case(890) }; cx_gen_2Dglo_2Dset = (obj)c; }
{ static obj c[] = { obj_from_case(893) }; cx_gen_2Dlambda_2Drest = (obj)c; }
{ static obj c[] = { obj_from_case(894) }; cx_gen_2Dlambda_2D1_2Drest = (obj)c; }
{ static obj c[] = { obj_from_case(897) }; cx_gen_2Dlambda_2D2_2Drest = (obj)c; }
{ static obj c[] = { obj_from_case(900) }; cx_gen_2Dlambda_2D3_2Drest = (obj)c; }
{ static obj c[] = { obj_from_case(903) }; cx_gen_2Dlambda_2Dn_2Drest = (obj)c; }
{ static obj c[] = { obj_from_case(907) }; cx_gen_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(908) }; cx_gen_2Dlambda_2D0 = (obj)c; }
{ static obj c[] = { obj_from_case(911) }; cx_gen_2Dlambda_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(914) }; cx_gen_2Dlambda_2D2 = (obj)c; }
{ static obj c[] = { obj_from_case(917) }; cx_gen_2Dlambda_2D3 = (obj)c; }
{ static obj c[] = { obj_from_case(920) }; cx_gen_2Dlambda_2D4 = (obj)c; }
{ static obj c[] = { obj_from_case(923) }; cx_gen_2Dlambda_2Dn = (obj)c; }
{ static obj c[] = { obj_from_case(927) }; cx_gen_2Dsequence = (obj)c; }
{ static obj c[] = { obj_from_case(930) }; cx_gen_2Dwhen = (obj)c; }
{ static obj c[] = { obj_from_case(933) }; cx_gen_2Dif = (obj)c; }
{ static obj c[] = { obj_from_case(936) }; cx_gen_2Dletrec = (obj)c; }
{ static obj c[] = { obj_from_case(937) }; cx_gen_2Dletrec_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(940) }; cx_gen_2Dletrec_2D2 = (obj)c; }
{ static obj c[] = { obj_from_case(944) }; cx_gen_2Dletrec_2D3 = (obj)c; }
{ static obj c[] = { obj_from_case(949) }; cx_gen_2Dletrec_2Dn = (obj)c; }
{ static obj c[] = { obj_from_case(954) }; cx_gen_2Dglo_2Dcombination = (obj)c; }
{ static obj c[] = { obj_from_case(956) }; cx_gen_2Dglo_2Dcombination_2D0 = (obj)c; }
{ static obj c[] = { obj_from_case(958) }; cx_gen_2Dglo_2Dcombination_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(961) }; cx_gen_2Dglo_2Dcombination_2D2 = (obj)c; }
{ static obj c[] = { obj_from_case(965) }; cx_gen_2Dglo_2Dcombination_2D3 = (obj)c; }
{ static obj c[] = { obj_from_case(970) }; cx_gen_2Dglo_2Dcombination_2D4 = (obj)c; }
{ static obj c[] = { obj_from_case(976) }; cx_gen_2Dglo_2Dcombination_2Dn = (obj)c; }
{ static obj c[] = { obj_from_case(981) }; cx_gen_2Dcombination = (obj)c; }
{ static obj c[] = { obj_from_case(982) }; cx_gen_2Dcombination_2D0 = (obj)c; }
{ static obj c[] = { obj_from_case(985) }; cx_gen_2Dcombination_2D1 = (obj)c; }
{ static obj c[] = { obj_from_case(989) }; cx_gen_2Dcombination_2D2 = (obj)c; }
{ static obj c[] = { obj_from_case(994) }; cx_gen_2Dcombination_2D3 = (obj)c; }
{ static obj c[] = { obj_from_case(1000) }; cx_gen_2Dcombination_2D4 = (obj)c; }
{ static obj c[] = { obj_from_case(1007) }; cx_gen_2Dcombination_2Dn = (obj)c; }
{ static obj c[] = { obj_from_case(1013) }; cx_scheme_2Dcomp = (obj)c; }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (cx_null_2Dloc_2Dn);
*--hp = (cx_null_2Dstore);
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
cx_scheme_2Dglobal_2Denvironment = (hendblk(3)); }
{ static obj c[] = { obj_from_case(1014) }; cx_scheme_2Dcompile_2Drun = (obj)c; }
{ static obj c[] = { obj_from_case(1016) }; cx_scheme_2Dexpand_2Dcompile_2Drun = (obj)c; }
{ static obj c[] = { obj_from_case(1020) }; cx_scheme_2Dexpand_2Dto_2Dlist = (obj)c; }
{ static obj c[] = { obj_from_case(1021) }; cx_scheme_2Deval = (obj)c; }
{ static obj c[] = { obj_from_case(1022) }; cx_scheme_2Dglobal_2Dvar = (obj)c; }
cx_scheme_2Dglobal_2Dvariables = (mknull());
{ static obj c[] = { obj_from_case(1023) }; cx_reverse_2Dglobal_2Dlookup = (obj)c; }
{ static obj c[] = { obj_from_case(1024) }; cx_get_2Dglobal = (obj)c; }
{ static obj c[] = { obj_from_case(1026) }; cx_set_2Dglobal_21 = (obj)c; }
{ static obj c[] = { obj_from_case(1028) }; cx_splice_2Dlast_2Dlist = (obj)c; }
hreserve(hbsz(0+1), 2); /* 2 live regs */
*--hp = obj_from_case(1030);
r[2] = (hendblk(0+1));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1645);
r[3] = (hendblk(0+1));
r[4+0] = r[2];
r[4+1] = r[3];
r[4+2] = obj_from_fixnum(EQV_OBJ_OBJ);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_make_2Dannotated_2Dprocedure;
case 730: /* null-mstore k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (cx_null_2Dloc_2Dn);
*--hp = (cx_null_2Dstore);
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
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 731: /* expand-top-level-forms! k forms mstore */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_expand_2Dtop_2Dlevel_2Dforms_21: /* k forms mstore */
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(732);
r[3] = (hendblk(1+1));
r[4+0] = r[0];
r[4+1] = r[1];
r[4+2] = (car((r[2])));
r[4+3] = (cdr((r[2])));
r[4+4] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_expand_2Dtop_2Dlevel_2Dforms;
case 732: /* clo k outputs store loc-n */
assert(rc == 5);
{ obj* p = objptr_from_obj(r[0]);
r[1+4] = p[1]; }
r += 1; /* shift reg. wnd */
/* k outputs store loc-n mstore */
(void)(car((r[4])) = (r[2]));
(void)(cdr((r[4])) = (r[3]));
r[5] = r[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 733: /* %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 734: /* %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 735: /* %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 736: /* %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 737: /* print-procedure k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
(void)(fputs(stringchars((cx__234609)), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(738);
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_v21501;
} 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_v21513;
}
case 738: /* clo ek . */
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_v21513: /* ek . k */
(void)(fputc(('>'), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
(void)(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
r[3] = obj_from_void(0);
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 739: /* clo k i */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
s_loop_v21501: /* k i x */
r[3] = (*procedureref((r[2]), fixnum_from_obj(r[1])));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = obj_from_case(739);
r[4] = (hendblk(1+1));
hreserve(hbsz(4+1), 5); /* 5 live regs */
*--hp = r[2];
*--hp = r[1];
*--hp = r[0];
*--hp = r[4];
*--hp = obj_from_case(740);
r[4] = (hendblk(4+1));
if ((fixnum_from_obj(r[1]) == (+0))) {
r[5] = obj_from_void(fputs(stringchars((cx__234603)), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[2];
*--hp = obj_from_case(739);
r[6] = (hendblk(1+1));
r[7+0] = obj_from_ktrap();
r[7+1] = r[5];
r[7+2] = r[6];
r[7+3] = r[0];
r[7+4] = r[1];
r[7+5] = r[2];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v21503;
} else {
r[0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = r[3];
r[3] = obj_from_bool(0);
r[4] = (cx__2Acurrent_2Doutput_2Dport_2A);
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 740: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v21503: /* ek . loop k i x */
{ const fixnum_t v27020_i = fixnum_from_obj(r[4]);
if ((!((v27020_i) == (fxsub((procedurelen((r[5]))), (+1)))))) {
(void)(fputc((' '), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = obj_from_fixnum(fxadd((v27020_i), (+1)));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} }
case 741: /* 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_v21488;
s_loop_v21488: /* k i p newp ann vc */
{ const fixnum_t v27019_i = fixnum_from_obj(r[1]);
if (((v27019_i) == fixnum_from_obj(r[5]))) {
(void)(*procedureref((r[3]), (fxadd((v27019_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((v27019_i), (+1)))));
(void)(*procedureref((r[3]), (fxadd((v27019_i), (+1)))) = (r[6]));
/* r[0] */
r[1] = obj_from_fixnum(fxadd((v27019_i), (+1)));
/* r[2] */
/* r[3] */
/* r[4] */
/* r[5] */
goto s_loop_v21488;
} }
case 742: /* %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 743: /* %residual-argc->annotation k c */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k c */
{ const fixnum_t v27018_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((v27018_c), (+1000))), (v27018_c)));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump; }
case 744: /* %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 745: /* %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 746: /* 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__234670);
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__234667);
r[5+3] = r[1];
r[5+4] = r[3];
r[5+5] = (mksymbol(internsym(":", 1)));
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__234664);
r[5+3] = r[3];
r[5+4] = (mksymbol(internsym(":", 1)));
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__234661);
r[5+3] = r[3];
r[5+4] = (mksymbol(internsym(":", 1)));
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__234658);
r[5+3] = r[3];
r[5+4] = (mksymbol(internsym(":", 1)));
r[5+5] = (r[4]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 6;
goto jump;
} else {
/* r[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 747: /* %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 748: /* push-frame k frame env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_push_2Dframe: /* k frame env */
if ((isnull((r[1])))) {
r[3] = r[2];
} else {
r[3] = (cdr((r[2])));
r[4] = (car((r[2])));
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
}
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 749: /* lookup-var k name env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_lookup_2Dvar: /* k name env */
r[3] = (car((r[2])));
r[4+0] = r[0];
r[4+1] = r[3];
r[4+2] = obj_from_fixnum(+0);
r[4+3] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop1;
case 750: /* 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(750);
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 751: /* variable k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_variable: /* k x */
if ((!(issymbol((r[1]))))) {
r[2+0] = (cx_error);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = (mksymbol(internsym("compiler", 1)));
r[2+3] = (cx__234722);
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 752: /* 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_v21387;
s_loop_v21387: /* k n l form */
{ const fixnum_t v27017_n = fixnum_from_obj(r[1]);
if (((v27017_n) <= (+0))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool((v27017_n) <= (+0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((ispair((r[2])))) {
r[4] = (cdr((r[2])));
/* r[0] */
r[1] = obj_from_fixnum(fxsub((v27017_n), (+1)));
r[2] = r[4];
/* r[3] */
goto s_loop_v21387;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (mksymbol(internsym("compiler", 1)));
r[4+3] = (cx__234733);
r[4+4] = (r[3]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} }
case 753: /* 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_v21372;
s_loop_v21372: /* k n l form */
{ const fixnum_t v27016_n = fixnum_from_obj(r[1]);
r[4] = obj_from_bool(((v27016_n) == (+0)) && (isnull((r[2]))));
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 ((((v27016_n) > (+0)) && (ispair((r[2]))))) {
r[5] = (cdr((r[2])));
/* r[0] */
r[1] = obj_from_fixnum(fxsub((v27016_n), (+1)));
r[2] = r[5];
/* r[3] */
goto s_loop_v21372;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
r[5+2] = (mksymbol(internsym("compiler", 1)));
r[5+3] = (cx__234733);
r[5+4] = (r[3]);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} }
case 754: /* comp-var k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dvar: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(755);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
goto gs_variable;
case 755: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(1+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = obj_from_case(756);
r[5] = (hendblk(1+1));
r[0] = r[5];
r[1] = r[3];
/* r[2] */
goto gs_lookup_2Dvar;
case 756: /* clo 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 757: /* comp-self-eval k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dself_2Deval: /* k expr env */
/* r[0] */
/* r[1] */
goto gs_gen_2Dcst;
case 758: /* comp-quote k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dquote: /* k expr env */
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(759);
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+2);
goto gs_shape;
case 759: /* clo ek . */
assert(rc >= 2);
r[2] = 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 760: /* comp-set! k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dset_21: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(761);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+3);
goto gs_shape;
case 761: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(762);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[3])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
goto gs_variable;
case 762: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(763);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[3])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_lookup_2Dvar;
case 763: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env expr k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = obj_from_case(764);
r[5] = (hendblk(2+1));
r[6] = (cdr((r[3])));
r[6] = (cdr((r[6])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_scheme_2Dcomp;
case 764: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 765: /* comp-lambda k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dlambda: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(766);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+3);
goto gs_shape;
case 766: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env k expr */
r[5] = (cdr((r[4])));
r[5] = (car((r[5])));
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[3];
*--hp = r[4];
*--hp = r[2];
*--hp = obj_from_case(767);
r[6] = (hendblk(4+1));
r[0] = r[6];
r[1] = r[5];
goto gs_parms_2D_3Eframe;
case 767: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r env expr k parms */
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[1];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(768);
r[6] = (hendblk(4+1));
r[0] = r[6];
/* r[1] */
/* r[2] */
goto gs_push_2Dframe;
case 768: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r expr k parms r */
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(769);
r[6] = (hendblk(3+1));
r[7] = (cdr((r[2])));
r[7] = (cdr((r[7])));
r[7] = (car((r[7])));
r[8+0] = r[6];
r[8+1] = r[7];
r[8+2] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_scheme_2Dcomp;
case 769: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r k parms r */
{ /* length */
int n; obj l = r[4];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
r[5] = obj_from_fixnum(n); }
if (bool_from_obj(cxs_rest_2Dparam_3F((r[3])))) {
r[6+0] = r[2];
r[6+1] = r[5];
r[6+2] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_gen_2Dlambda_2Drest;
} else {
r[6+0] = r[2];
r[6+1] = r[5];
r[6+2] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_gen_2Dlambda;
}
case 770: /* 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(771);
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(773);
r[2] = (hendblk(2+1));
r[0] = r[2];
/* r[1] */
goto gs_variable;
}
}
case 771: /* clo ek . */
assert(rc >= 2);
r[2] = 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(772);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (cdr((r[2])));
goto gs_parms_2D_3Eframe;
case 772: /* clo ek r */
assert(rc == 3);
{ 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 773: /* clo ek . */
assert(rc >= 2);
r[2] = 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 774: /* rest-param? k parms */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k parms */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs_rest_2Dparam_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 775: /* comp-if k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dif: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(776);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+3);
goto gs_shape_2B;
case 776: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env k expr */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(777);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[4])));
r[6] = (cdr((r[6])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_scheme_2Dcomp;
case 777: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env k expr */
hreserve(hbsz(4+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(778);
r[5] = (hendblk(4+1));
r[6] = (cdr((r[4])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_scheme_2Dcomp;
case 778: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek r env r k expr */
r[6] = (cdr((r[5])));
r[6] = (cdr((r[6])));
r[6] = (cdr((r[6])));
r[6] = obj_from_bool(ispair((r[6])));
if (bool_from_obj(r[6])) {
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = r[3];
*--hp = obj_from_case(779);
r[6] = (hendblk(3+1));
r[7] = (cdr((r[5])));
r[7] = (cdr((r[7])));
r[7] = (cdr((r[7])));
r[7] = (car((r[7])));
r[0] = r[6];
r[1] = r[7];
/* r[2] */
goto gs_scheme_2Dcomp;
} else {
r[0] = r[4];
/* r[1] */
r[2] = r[3];
goto gs_gen_2Dwhen;
}
case 779: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* 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 780: /* 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(781);
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 781: /* clo ek . */
assert(rc >= 2);
r[2] = 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(782);
r[6] = (hendblk(3+1));
r[0] = r[6];
r[1] = r[5];
goto gs_variable;
case 782: /* clo ek . */
assert(rc >= 2);
r[2] = 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(783);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (cdr((r[2])));
goto gs_bindings_2D_3Evars;
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 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 784: /* 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(785);
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 785: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* 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 786: /* comp-letrec k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dletrec: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(787);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+3);
goto gs_shape;
case 787: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env k expr */
r[5] = (cdr((r[4])));
r[5] = (car((r[5])));
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[3];
*--hp = r[4];
*--hp = r[5];
*--hp = r[2];
*--hp = obj_from_case(788);
r[6] = (hendblk(4+1));
r[0] = r[6];
r[1] = r[5];
goto gs_bindings_2D_3Evars;
case 788: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 bindings expr k */
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(789);
r[6] = (hendblk(3+1));
r[0] = r[6];
/* r[1] */
/* r[2] */
goto gs_push_2Dframe;
case 789: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r bindings expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[1];
*--hp = obj_from_case(790);
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = r[2];
goto gs_bindings_2D_3Evals;
case 790: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r r expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(791);
r[5] = (hendblk(3+1));
r[0] = r[5];
/* r[1] */
/* r[2] */
goto gs_comp_2Dvals;
case 791: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r r expr k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = obj_from_case(792);
r[5] = (hendblk(2+1));
r[6] = (cdr((r[3])));
r[6] = (cdr((r[6])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_scheme_2Dcomp;
case 792: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r r k */
r[4+0] = r[3];
r[4+1] = r[2];
r[4+2] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_gen_2Dletrec;
case 793: /* comp-vals k l env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dvals: /* k l env */
if ((ispair((r[1])))) {
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(794);
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (cdr((r[1])));
/* r[2] */
goto gs_comp_2Dvals;
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 794: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env l k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
*--hp = obj_from_case(795);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (car((r[3])));
/* r[2] */
goto gs_scheme_2Dcomp;
case 795: /* clo ek r */
assert(rc == 3);
{ 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 796: /* comp-begin k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dbegin: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(797);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+2);
goto gs_shape_2B;
case 797: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
r[0] = r[4];
r[1] = (cdr((r[3])));
/* r[2] */
goto gs_comp_2Dsequence;
case 798: /* comp-sequence k exprs env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dsequence: /* k exprs env */
if ((ispair((r[1])))) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dsequence_2Daux;
} else {
/* r[0] */
r[1] = (mknull());
goto gs_gen_2Dcst;
}
case 799: /* comp-sequence-aux k exprs env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dsequence_2Daux: /* k exprs env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(800);
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (car((r[1])));
/* r[2] */
goto gs_scheme_2Dcomp;
case 800: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env k exprs */
r[5] = (cdr((r[4])));
if ((ispair((r[5])))) {
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[3];
*--hp = r[1];
*--hp = obj_from_case(801);
r[6] = (hendblk(2+1));
r[0] = r[6];
r[1] = r[5];
/* r[2] */
goto gs_comp_2Dsequence_2Daux;
} else {
r[6+0] = r[3];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 801: /* clo ek r */
assert(rc == 3);
{ 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 802: /* comp-define k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Ddefine: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(803);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
r[2] = obj_from_fixnum(+3);
goto gs_shape;
case 803: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(804);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[3])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
goto gs_variable;
case 804: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(805);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[3])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_lookup_2Dvar;
case 805: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[1];
*--hp = obj_from_case(806);
r[5] = (hendblk(3+1));
r[6] = (cdr((r[3])));
r[6] = (cdr((r[6])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_scheme_2Dcomp;
case 806: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(807);
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 807: /* clo ek r */
assert(rc == 3);
{ 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(808);
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 808: /* clo ek r */
assert(rc == 3);
{ 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 809: /* comp-var-combination k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dvar_2Dcombination: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(810);
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (car((r[1])));
goto gs_variable;
case 810: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . env expr k */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(811);
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = (car((r[3])));
/* r[2] */
goto gs_lookup_2Dvar;
case 811: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env expr k */
if ((ispair((r[1])))) {
r[0] = r[4];
r[1] = r[3];
/* r[2] */
goto gs_comp_2Dcombination;
} else {
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = obj_from_case(812);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (cdr((r[3])));
/* r[2] */
goto gs_comp_2Dvals;
}
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 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 813: /* comp-combination k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_comp_2Dcombination: /* k expr env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(814);
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (car((r[1])));
/* r[2] */
goto gs_scheme_2Dcomp;
case 814: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r env expr k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = obj_from_case(815);
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (cdr((r[3])));
/* r[2] */
goto gs_comp_2Dvals;
case 815: /* clo ek r */
assert(rc == 3);
{ 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 816: /* %residual-scheme-global-var-ref k i */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k i */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cdr((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 817: /* %residual-scheme-global-var-set! k i val */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k i val */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 818: /* 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(819);
r[2] = (hendblk(1+1));
r[0] = r[2];
/* r[1] */
goto gs_scheme_2Dglobal_2Dvar;
}
case 819: /* clo 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 820: /* 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(821);
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+2)));
/* r[2] */
goto gs_gen_2Drte_2Dref;
}
}
case 821: /* clo 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 822: /* 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(823);
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(824);
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(825);
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(826);
r[2] = (hendblk(0+1));
} else {
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(827);
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 823: /* 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 824: /* 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 825: /* 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 826: /* 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 827: /* 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 828: /* 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(829);
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(830);
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(831);
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(832);
r[2] = (hendblk(0+1));
} else {
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(833);
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 829: /* 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 830: /* 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 831: /* 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 832: /* 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 833: /* 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 834: /* 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(835);
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 835: /* 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 836: /* 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(837);
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 837: /* 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 838: /* 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(839);
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(840);
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(841);
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(842);
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(843);
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(844);
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(845);
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(846);
r[2] = (hendblk(0+1));
} else {
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(847);
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 839: /* 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 840: /* 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 841: /* 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 842: /* 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 843: /* 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 844: /* 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 845: /* 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 846: /* 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 847: /* 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 848: /* 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(849);
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Dglobal_2Dvar;
}
case 849: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r code k */
r[0] = r[3];
/* r[1] */
/* r[2] */
goto gs_gen_2Dglo_2Dset;
case 850: /* 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(851);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+2)));
r[2] = obj_from_fixnum(+0);
goto gs_gen_2Drte_2Dref;
}
}
case 851: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 852: /* 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(853);
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(855);
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(857);
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(859);
r[3] = (hendblk(1+1));
} else {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(861);
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 853: /* 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(854);
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 854: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 855: /* 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(856);
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 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; /* 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 857: /* 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(858);
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 858: /* clo ek r */
assert(rc == 3);
{ 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 859: /* 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(860);
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 860: /* clo ek r */
assert(rc == 3);
{ 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 861: /* 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(862);
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 862: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 863: /* 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(864);
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(866);
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(868);
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(870);
r[3] = (hendblk(1+1));
} else {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(872);
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 864: /* 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(865);
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 865: /* clo ek r */
assert(rc == 3);
{ 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 866: /* 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(867);
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 867: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 868: /* 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(869);
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 869: /* clo ek r */
assert(rc == 3);
{ 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 870: /* 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(871);
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 871: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 872: /* 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(873);
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 873: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 874: /* 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(875);
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(878);
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(881);
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(884);
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(887);
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 875: /* 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(876);
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 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; /* 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(877);
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 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; /* 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 878: /* 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(879);
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 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+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(880);
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 880: /* clo ek r */
assert(rc == 3);
{ 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 881: /* 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(882);
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 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+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(883);
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 883: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 884: /* 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(885);
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 885: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(886);
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 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; /* 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 887: /* 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(888);
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 888: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(889);
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 889: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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 890: /* 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(891);
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 891: /* 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(892);
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 892: /* clo ek r */
assert(rc == 3);
{ 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 893: /* 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 894: /* 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(895);
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 895: /* 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(896);
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 896: /* 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 897: /* 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(898);
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 898: /* 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(899);
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 899: /* 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 900: /* 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(901);
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 901: /* 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(902);
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 902: /* 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 903: /* 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(904);
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 904: /* 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(905);
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 905: /* 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 */
{ /* make-vector */
obj o; int i = 0, c = (fxadd(fixnum_from_obj(r[7]), (+1)));
hreserve(hbsz(c+1), 8); /* 8 live regs */
o = obj_from_void(0); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
r[8] = (hendblk(c+1)); }
(void)(vectorref((r[8]), (+0)) = (r[6]));
(void)(vectorref((r[8]), (+1)) = (r[1]));
(void)(vectorref((r[8]), (+2)) = (r[2]));
(void)(vectorref((r[8]), (+3)) = (r[3]));
hreserve(hbsz(3+1), 9); /* 9 live regs */
*--hp = r[0];
*--hp = r[8];
*--hp = r[5];
*--hp = obj_from_case(906);
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_v20389;
s_loop_v20389: /* k n x i l */
{ const fixnum_t v27015_i = fixnum_from_obj(r[3]);
if (((v27015_i) < fixnum_from_obj(r[1]))) {
r[5] = (car((r[4])));
(void)(vectorref((r[2]), (v27015_i)) = (r[5]));
r[5] = (cdr((r[4])));
/* r[0] */
/* r[1] */
/* r[2] */
r[3] = obj_from_fixnum(fxadd((v27015_i), (+1)));
r[4] = r[5];
goto s_loop_v20389;
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(vectorref((r[2]), (v27015_i)) = (r[4]));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} }
case 906: /* clo ek . */
assert(rc >= 2);
r[2] = 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 907: /* 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 908: /* 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(909);
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 909: /* 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(910);
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 910: /* 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 911: /* 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(912);
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 912: /* 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(913);
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 913: /* 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 914: /* 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(915);
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 915: /* 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(916);
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 916: /* 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 917: /* 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(918);
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 918: /* 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(919);
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 919: /* 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 920: /* 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(921);
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 921: /* 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(922);
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 922: /* 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 923: /* 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(924);
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 924: /* 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(925);
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 925: /* 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 */
{ /* make-vector */
obj o; int i = 0, c = (fxadd(fixnum_from_obj(r[8]), (+1)));
hreserve(hbsz(c+1), 9); /* 9 live regs */
o = obj_from_void(0); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
r[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(926);
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_v20236;
s_loop_v20236: /* k n x i l */
{ const fixnum_t v27014_i = fixnum_from_obj(r[3]);
if (((v27014_i) <= fixnum_from_obj(r[1]))) {
r[5] = (car((r[4])));
(void)(vectorref((r[2]), (v27014_i)) = (r[5]));
r[5] = (cdr((r[4])));
/* r[0] */
/* r[1] */
/* r[2] */
r[3] = obj_from_fixnum(fxadd((v27014_i), (+1)));
r[4] = r[5];
goto s_loop_v20236;
} 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 926: /* clo ek . */
assert(rc >= 2);
r[2] = 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 927: /* 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(928);
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 928: /* 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(929);
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 929: /* clo ek . */
assert(rc >= 2);
r[2] = 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 930: /* 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(931);
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 931: /* 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(932);
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 932: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek r code2 rte k */
if (bool_from_obj(r[1])) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = r[4];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 933: /* 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(934);
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 934: /* 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(935);
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 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+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 936: /* 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 937: /* 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(938);
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 938: /* 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(939);
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 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; /* 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 940: /* 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(941);
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 941: /* 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(942);
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 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; /* 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(943);
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 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; /* 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 944: /* 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(945);
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 945: /* 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(946);
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 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+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(947);
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 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+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(948);
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 948: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 949: /* 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(950);
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 950: /* 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 */
{ /* make-vector */
obj o; int i = 0, c = (fxadd(fixnum_from_obj(r[4]), (+1)));
hreserve(hbsz(c+1), 5); /* 5 live regs */
o = obj_from_void(0); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
r[5] = (hendblk(c+1)); }
(void)(vectorref((r[5]), (+0)) = (r[1]));
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[0];
*--hp = r[5];
*--hp = r[3];
*--hp = obj_from_case(953);
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_v20043;
case 951: /* clo k x i l */
assert(rc == 5);
r += 1; /* shift reg. wnd */
s_loop_v20043: /* k x i l */
if ((ispair((r[3])))) {
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(951);
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(952);
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 952: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 */
{ const fixnum_t v27013_i = fixnum_from_obj(r[6]);
(void)(vectorref((r[5]), (v27013_i)) = (r[1]));
r[7+0] = r[2];
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[4];
r[7+2] = r[5];
r[7+3] = obj_from_fixnum(fxadd((v27013_i), (+1)));
r[7+4] = (cdr((r[3])));
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump; }
case 953: /* clo ek . */
assert(rc >= 2);
r[2] = 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 954: /* 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(955);
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Dglobal_2Dvar;
case 955: /* clo ek r */
assert(rc == 3);
{ 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 956: /* 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(957);
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 957: /* 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 958: /* 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(959);
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 959: /* 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(960);
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 960: /* clo ek r */
assert(rc == 3);
{ 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 961: /* 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(962);
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 962: /* 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(963);
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 963: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(964);
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 964: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 965: /* 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(966);
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 966: /* 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(967);
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 967: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(968);
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 968: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(969);
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 969: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 970: /* 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(971);
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 971: /* 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(972);
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 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 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(973);
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 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+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(974);
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 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+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(975);
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 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+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 976: /* 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(977);
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 977: /* 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(978);
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 978: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(979);
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 979: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(980);
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 980: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 981: /* 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 982: /* 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(983);
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 983: /* 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(984);
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 984: /* clo 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 985: /* 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(986);
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 986: /* 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(987);
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 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; /* 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(988);
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 988: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k 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 989: /* 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(990);
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 990: /* 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(991);
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 991: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(992);
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 992: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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(993);
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 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; /* 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 994: /* 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(995);
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 995: /* 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(996);
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 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+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(997);
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 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+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(998);
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 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+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(999);
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 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+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 1000: /* 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(1001);
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 1001: /* 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(1002);
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 1002: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(1003);
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 1003: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(1004);
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 1004: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+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(1005);
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 1005: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(1006);
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 1006: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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 1007: /* 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(1008);
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 1008: /* 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(1009);
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_v19617;
case 1009: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(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(1010);
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 1010: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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_v19617: /* 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(1011);
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
goto s_evaluate_v19617;
} 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 1011: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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(1012);
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 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 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 1013: /* scheme-comp k expr env */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_scheme_2Dcomp: /* k expr env */
if ((issymbol((r[1])))) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dvar;
} else {
if ((!(ispair((r[1]))))) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dself_2Deval;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dquote;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dset_21;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dlambda;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dif;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letrec", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dletrec;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dbegin;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define", 1))));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Ddefine;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool(issymbol((r[3])));
if (bool_from_obj(r[3])) {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dvar_2Dcombination;
} else {
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_comp_2Dcombination;
}
}
}
}
}
}
}
}
}
}
case 1014: /* scheme-compile-run k expr genv */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_scheme_2Dcompile_2Drun: /* k expr genv */
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = obj_from_case(1015);
r[3] = (hendblk(1+1));
r[0] = r[3];
/* r[1] */
/* r[2] */
goto gs_scheme_2Dcomp;
case 1015: /* clo 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 1016: /* scheme-expand-compile-run k form genv */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_scheme_2Dexpand_2Dcompile_2Drun: /* k form genv */
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = obj_from_case(1017);
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] = (cdr((r[2])));
goto gs_expand_2Dtop_2Dlevel_2Dforms_21;
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 genv k */
r[0] = r[3];
/* r[1] */
/* r[2] */
goto s_loop_v19570;
case 1018: /* 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_v19570: /* k outs genv */
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(1018);
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(1019);
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (car((r[1])));
/* r[2] */
goto gs_scheme_2Dcompile_2Drun;
}
}
case 1019: /* clo ek . */
assert(rc >= 2);
r[2] = 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 1020: /* scheme-expand-to-list k expr */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_scheme_2Dexpand_2Dto_2Dlist: /* k expr */
{ /* 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];
r[3+1] = r[2];
r[3+2] = (cdr((cx_scheme_2Dglobal_2Denvironment)));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_expand_2Dtop_2Dlevel_2Dforms_21;
case 1021: /* scheme-eval k expr */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_scheme_2Deval: /* k expr */
r[2+0] = r[0];
r[2+1] = r[1];
r[2+2] = (cx_scheme_2Dglobal_2Denvironment);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_scheme_2Dexpand_2Dcompile_2Drun;
case 1022: /* scheme-global-var k name */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_scheme_2Dglobal_2Dvar: /* k name */
{ /* assq */
obj x = (r[1]), l = (cx_scheme_2Dglobal_2Dvariables), p = mknull();
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
r[2] = (l == mknull() ? obj_from_bool(0) : p); }
if (bool_from_obj(r[2])) {
/* r[2] */
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (cx_scheme_2Dglobal_2Dvariables);
*--hp = r[3];
*--hp = obj_from_size(PAIR_BTAG);
cx_scheme_2Dglobal_2Dvariables = (hendblk(3)); }
r[2] = r[3];
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1023: /* reverse-global-lookup k val */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_reverse_2Dglobal_2Dlookup: /* k val */
r[2] = (cx_scheme_2Dglobal_2Dvariables);
r[3+0] = r[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v19539;
s_loop_v19539: /* 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_v19539;
}
}
case 1024: /* 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(1025);
r[2] = (hendblk(1+1));
r[0] = r[2];
/* r[1] */
goto gs_scheme_2Dglobal_2Dvar;
case 1025: /* clo 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 1026: /* 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(1027);
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Dglobal_2Dvar;
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 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 1028: /* 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_v19496;
s_loop_v19496: /* 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(1029);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto s_loop_v19496;
} 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 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 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 1030: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1031);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("eqv?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1031: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1032);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1644);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(EQ_OBJ_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1032: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1033);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("eq?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1033: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1034);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1643);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
goto gs_make_2Dannotated_2Dprocedure;
case 1034: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1035);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("equal?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1035: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1036);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1642);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1036: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1037);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("number?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1038);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1641);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1038: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1039);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("complex?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1040);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1640);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1040: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1041);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("real?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1042);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1639);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1042: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1043);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("rational?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1043: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1044);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1638);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1044: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1045);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("integer?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1045: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1046);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1637);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1046: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1047);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("exact?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1048);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1636);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1048: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1049);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("inexact?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1049: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1050);
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 1050: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1051);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("=", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1051: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1052);
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 1052: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1053);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("<", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1054);
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 1054: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1055);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym(">", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1056);
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 1056: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1057);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("<=", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1057: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1058);
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 1058: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1059);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym(">=", 1)));
goto gs_scheme_2Dglobal_2Dvar;
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 r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1060);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1635);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1060: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1061);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("zero?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1061: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1062);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1634);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1062: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1063);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("positive?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1063: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1064);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1633);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1064: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1065);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("negative?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1065: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1066);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1632);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_N);
goto gs_make_2Dannotated_2Dprocedure;
case 1066: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1067);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("odd?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1067: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1068);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1631);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_N);
goto gs_make_2Dannotated_2Dprocedure;
case 1068: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1069);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("even?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1069: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1070);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1627);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1628);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1629);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1630);
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 1070: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1071);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("max", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1071: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1072);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1623);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1624);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1625);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1626);
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 1072: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1073);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("min", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1073: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1074);
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 1074: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1075);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("+", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1075: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1076);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1618);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1619);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1620);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1621);
r[7] = (hendblk(0+1));
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(1622);
r[8] = (hendblk(0+1));
{ /* vector */
hreserve(hbsz(6+1), 9); /* 9 live regs */
*--hp = (cx__25residual_2A);
*--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_Z_ETC);
goto gs_make_2Dannotated_2Dprocedure;
case 1076: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1077);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("*", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1077: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1078);
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 1078: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1079);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("-", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1079: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1080);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1614);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1615);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1616);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1617);
r[7] = (hendblk(0+1));
{ /* vector */
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = (cx__25residual_2F);
*--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_Z_Z_ETC);
goto gs_make_2Dannotated_2Dprocedure;
case 1080: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1081);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("/", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1081: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1082);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dabs);
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1082: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1083);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("abs", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1083: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1084);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dquotient);
r[2] = obj_from_fixnum(ARGCHECK_N_N);
goto gs_make_2Dannotated_2Dprocedure;
case 1084: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1085);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("quotient", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1085: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1086);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dremainder);
r[2] = obj_from_fixnum(ARGCHECK_N_N);
goto gs_make_2Dannotated_2Dprocedure;
case 1086: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1087);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("remainder", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1087: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1088);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dmodulo);
r[2] = obj_from_fixnum(ARGCHECK_N_N);
goto gs_make_2Dannotated_2Dprocedure;
case 1088: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1089);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("modulo", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1089: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1090);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1609);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1610);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1611);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1612);
r[7] = (hendblk(0+1));
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(1613);
r[8] = (hendblk(0+1));
{ /* vector */
hreserve(hbsz(6+1), 9); /* 9 live regs */
*--hp = (cx__25residual_2Dgcd);
*--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_N_ETC);
goto gs_make_2Dannotated_2Dprocedure;
case 1090: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1091);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("gcd", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1091: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1092);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1601);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1604);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1606);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1607);
r[7] = (hendblk(0+1));
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(1608);
r[8] = (hendblk(0+1));
{ /* vector */
hreserve(hbsz(6+1), 9); /* 9 live regs */
*--hp = (cx__25residual_2Dlcm);
*--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_N_ETC);
goto gs_make_2Dannotated_2Dprocedure;
case 1092: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1093);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("lcm", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1093: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1094);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1600);
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 1094: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1095);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("numerator", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1095: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1096);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1599);
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 1096: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1097);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("denominator", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1097: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1098);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dfloor);
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1098: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1099);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("floor", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1099: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1100);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dceiling);
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1100: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1101);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("ceiling", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1101: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1102);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dtruncate);
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1102: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1103);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("truncate", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1103: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1104);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dround);
r[2] = obj_from_fixnum(ARGCHECK_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1104: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1105);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("round", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1105: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1106);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1598);
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 1106: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1107);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("rationalize", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1107: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1108);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dexp);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1108: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1109);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("exp", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1109: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1110);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dlog);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1110: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1111);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("log", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1111: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1112);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dsin);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1112: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1113);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("sin", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1113: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1114);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dcos);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1114: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1115);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cos", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1115: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1116);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dtan);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1116: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1117);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("tan", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1117: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1118);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dasin);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1118: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1119);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("asin", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1119: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1120);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dacos);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1120: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1121);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("acos", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1121: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1122);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Datan);
r[2] = obj_from_fixnum(ARGCHECK_Z_OR_X_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1122: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1123);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("atan", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1123: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1124);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dsqrt);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1124: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1125);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("sqrt", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1125: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1126);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dexpt);
r[2] = obj_from_fixnum(ARGCHECK_Z_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1126: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1127);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("expt", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1127: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1128);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dmake_2Drectangular);
r[2] = obj_from_fixnum(ARGCHECK_X_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1128: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1129);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("make-rectangular", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1129: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1130);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dmake_2Dpolar);
r[2] = obj_from_fixnum(ARGCHECK_X_X);
goto gs_make_2Dannotated_2Dprocedure;
case 1130: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1131);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("make-polar", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1131: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1132);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1597);
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 1132: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1133);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("real-part", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1133: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1134);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1596);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1134: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1135);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("imag-part", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1135: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1136);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dmagnitude);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1136: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1137);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("magnitude", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1137: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1138);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1595);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1138: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1139);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("angle", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1139: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1140);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dexact_2D_3Einexact);
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1140: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1141);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("exact->inexact", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1141: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1142);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1594);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_Z);
goto gs_make_2Dannotated_2Dprocedure;
case 1142: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1143);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("inexact->exact", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1143: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1144);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1592);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1593);
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 1144: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1145);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("number->string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1145: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1146);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1590);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1591);
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 1146: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1147);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string->number", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1147: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1148);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1589);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(NOT_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1148: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1149);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("not", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1149: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1150);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1588);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1150: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1151);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("boolean?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1151: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1152);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1587);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ISPAIR_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1152: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1153);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("pair?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1153: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1154);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1586);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+2), (+1000))), (+2)));
goto gs_make_2Dannotated_2Dprocedure;
case 1154: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1155);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cons", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1155: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1156);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1585);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(CAR_PAIR);
goto gs_make_2Dannotated_2Dprocedure;
case 1156: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1157);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("car", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1157: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1158);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1584);
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 1158: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1159);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cdr", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1159: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1160);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1583);
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 1160: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1161);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("set-car!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1161: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1162);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1582);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_PAIR_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1162: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1163);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("set-cdr!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1163: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1164);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1581);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(CAAR_PAIR);
goto gs_make_2Dannotated_2Dprocedure;
case 1164: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1165);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("caar", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1165: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1166);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1580);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(CADR_PAIR);
goto gs_make_2Dannotated_2Dprocedure;
case 1166: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1167);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cadr", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1167: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1168);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1579);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(CDAR_PAIR);
goto gs_make_2Dannotated_2Dprocedure;
case 1168: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1169);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cdar", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1169: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1170);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1578);
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 1170: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1171);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("cddr", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1171: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1172);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1577);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ISNULL_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1172: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1173);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("null?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1173: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1174);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1576);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1174: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1175);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("list?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1175: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1176);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dlist);
r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+1), (+1))), (+1000))), (+999)));
goto gs_make_2Dannotated_2Dprocedure;
case 1176: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1177);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("list", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1177: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1178);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1575);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(LENGTH_LIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1178: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1179);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("length", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1179: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1180);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1570);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1571);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1572);
r[6] = (hendblk(0+1));
hreserve(hbsz(0+1), 7); /* 7 live regs */
*--hp = obj_from_case(1573);
r[7] = (hendblk(0+1));
hreserve(hbsz(0+1), 8); /* 8 live regs */
*--hp = obj_from_case(1574);
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 1180: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1181);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("append", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1181: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1182);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1569);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_LIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1182: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1183);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("reverse", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1183: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1184);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1568);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1184: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1185);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("memq", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1185: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1186);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1567);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1186: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1187);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("memv", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1187: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1188);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1566);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_LIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1188: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1189);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("member", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1189: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1190);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1565);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1190: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1191);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("assq", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1191: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1192);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1564);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1192: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1193);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("assv", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1193: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1194);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1563);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_OBJ_ALIST);
goto gs_make_2Dannotated_2Dprocedure;
case 1194: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1195);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("assoc", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1195: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1196);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1562);
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 1196: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1197);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("symbol?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1197: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1198);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1561);
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 1198: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1199);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("symbol->string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1199: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1200);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1560);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1200: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1201);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string->symbol", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1201: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1202);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1559);
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 1202: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1203);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1203: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1204);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1558);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1204: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1205);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1205: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1206);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1557);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1206: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1207);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char<?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1207: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1208);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1556);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1208: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1209);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char>?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1209: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1210);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1555);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1210: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1211);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char<=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1211: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1212);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1554);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1212: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1213);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char>=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1213: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1214);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1553);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1214: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1215);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ci=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1215: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1216);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1552);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1216: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1217);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ci<?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1217: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1218);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1551);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1218: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1219);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ci>?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1219: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1220);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1550);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1220: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1221);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ci<=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1221: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1222);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1549);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1222: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1223);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ci>=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1223: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1224);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1548);
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 1224: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1225);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-alphabetic?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1225: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1226);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1547);
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 1226: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1227);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-numeric?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1227: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1228);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1546);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1228: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1229);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-whitespace?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1229: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1230);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1545);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1230: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1231);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-upper-case?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1231: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1232);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1544);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1232: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1233);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-lower-case?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1233: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1234);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1543);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1234: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1235);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char->integer", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1235: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1236);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1542);
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 1236: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1237);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("integer->char", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1237: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1238);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1541);
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 1238: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1239);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-upcase", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1239: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1240);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1540);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1240: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1241);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-downcase", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1241: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1242);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1539);
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 1242: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1243);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1243: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1244);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1537);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1538);
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 1244: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1245);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("make-string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1245: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1246);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dstring);
r[2] = obj_from_fixnum(ARGCHECK_CHAR_ETC);
goto gs_make_2Dannotated_2Dprocedure;
case 1246: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1247);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1247: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1248);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1536);
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 1248: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1249);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-length", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1249: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1250);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1535);
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 1250: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1251);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ref", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1251: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1252);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1534);
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 1252: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1253);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-set!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1253: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1254);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1533);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1254: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1255);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1255: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1256);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1532);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1256: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1257);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string<?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1257: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1258);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1531);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1258: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1259);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string>?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1259: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1260);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1530);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1260: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1261);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string<=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1261: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1262);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1529);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1262: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1263);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string>=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1263: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1264);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1528);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1264: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1265);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ci=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1265: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1266);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1527);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1266: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1267);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ci<?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1267: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1268);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1526);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1268: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1269);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ci>?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1269: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1270);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1525);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1270: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1271);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ci<=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1271: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1272);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1524);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1272: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1273);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-ci>=?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1273: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1274);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1523);
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 1274: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1275);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("substring", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1275: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1276);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1520);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1521);
r[5] = (hendblk(0+1));
hreserve(hbsz(0+1), 6); /* 6 live regs */
*--hp = obj_from_case(1522);
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 1276: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1277);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-append", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1277: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1278);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1519);
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 1278: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1279);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string->list", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1279: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1280);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1518);
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 1280: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1281);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("list->string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1281: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1282);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1517);
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 1282: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1283);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-copy", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1283: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1284);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1516);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_STRING_CHAR);
goto gs_make_2Dannotated_2Dprocedure;
case 1284: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1285);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("string-fill!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1285: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1286);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1515);
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 1286: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1287);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1287: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1288);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1513);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1514);
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 1288: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1289);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("make-vector", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1289: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1290);
r[3] = (hendblk(0+1));
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 1290: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1291);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1291: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1292);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1512);
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 1292: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1293);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector-length", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1293: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1294);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1511);
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 1294: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1295);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector-ref", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1295: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1296);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1510);
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 1296: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1297);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector-set!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1297: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1298);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1509);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_VECTOR);
goto gs_make_2Dannotated_2Dprocedure;
case 1298: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1299);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector->list", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1299: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1300);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1508);
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 1300: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1301);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("list->vector", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1301: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1302);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1507);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(ARGCHECK_VECTOR_OBJ);
goto gs_make_2Dannotated_2Dprocedure;
case 1302: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1303);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("vector-fill!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1303: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("values", 1)));
*--hp = obj_from_size(PAIR_BTAG);
cx__2Avalues_2Dtag_2A = (hendblk(3)); }
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1304);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1506);
r[4] = (hendblk(0+1));
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+1)));
goto gs_make_2Dannotated_2Dprocedure;
case 1304: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1305);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("procedure?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1305: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1306);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1503);
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(1505);
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 1306: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1307);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("apply", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1307: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1308);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1499);
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 1308: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1309);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("call/cc", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1309: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1310);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (mksymbol(internsym("call/cc", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1310: /* 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(1311);
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = (mksymbol(internsym("call-with-current-continuation", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1311: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1312);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1498);
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 1312: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1313);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("values", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1313: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1314);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1496);
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 1314: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1315);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("call-with-values", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1315: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1316);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx_dynamic_2Dwind);
r[2] = obj_from_fixnum(ARGCHECK_THUNK_THUNK_THUNK);
goto gs_make_2Dannotated_2Dprocedure;
case 1316: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1317);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("dynamic-wind", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1317: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1318);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1495);
r[4] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
r[4] = (hendblk(3)); }
r[0] = r[3];
r[1] = r[4];
r[2] = obj_from_fixnum(fxadd((fxmul((+1), (+1000))), (+2)));
goto gs_make_2Dannotated_2Dprocedure;
case 1318: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1319);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("eval", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1319: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1320);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1494);
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 1320: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1321);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("scheme-report-environment", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1321: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1322);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1493);
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 1322: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1323);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("null-environment", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1323: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1324);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1492);
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 1324: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1325);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("interaction-environment", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1325: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1326);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dcall_2Dwith_2Dinput_2Dfile);
r[2] = obj_from_fixnum(ARGCHECK_STRING_PROC1IP);
goto gs_make_2Dannotated_2Dprocedure;
case 1326: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1327);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("call-with-input-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1327: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1328);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dcall_2Dwith_2Doutput_2Dfile);
r[2] = obj_from_fixnum(ARGCHECK_STRING_PROC1OP);
goto gs_make_2Dannotated_2Dprocedure;
case 1328: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1329);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("call-with-output-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1329: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1330);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1491);
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 1330: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1331);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("input-port?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1331: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1332);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1490);
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 1332: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1333);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("output-port?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1333: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1334);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+0)));
goto gs_make_2Dannotated_2Dprocedure;
case 1334: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1335);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("current-input-port", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1335: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1336);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
r[2] = obj_from_fixnum(fxadd((fxmul((+0), (+1000))), (+0)));
goto gs_make_2Dannotated_2Dprocedure;
case 1336: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1337);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("current-output-port", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1337: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1338);
r[3] = (hendblk(0+1));
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 1338: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1339);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("with-input-from-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1339: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1340);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx_with_2Doutput_2Dto_2Dfile);
r[2] = obj_from_fixnum(ARGCHECK_STRING_THUNK);
goto gs_make_2Dannotated_2Dprocedure;
case 1340: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1341);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("with-output-to-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1341: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1342);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dopen_2Dinput_2Dfile);
r[2] = obj_from_fixnum(ARGCHECK_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1342: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1343);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("open-input-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1343: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1344);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx__25residual_2Dopen_2Doutput_2Dfile);
r[2] = obj_from_fixnum(ARGCHECK_STRING);
goto gs_make_2Dannotated_2Dprocedure;
case 1344: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1345);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("open-output-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1345: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1346);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1489);
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 1346: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1347);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("close-input-port", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1347: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1348);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1488);
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 1348: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1349);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("close-output-port", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1349: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1350);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1486);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1487);
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 1350: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1351);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("read", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1351: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1352);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1484);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1485);
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 1352: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1353);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("read-char", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1353: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1354);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1482);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1483);
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 1354: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1355);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("peek-char", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1355: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1356);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1481);
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 1356: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1357);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("eof-object?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1357: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1358);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1479);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1480);
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 1358: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1359);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("char-ready?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1359: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1360);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1477);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1478);
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 1360: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1361);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("write", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1361: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1362);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1475);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1476);
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 1362: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1363);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("display", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1363: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1364);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1473);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1474);
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 1364: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1365);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("write-char", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1365: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1366);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1471);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1472);
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 1366: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1367);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("newline", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1367: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1368);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1464);
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 1368: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1369);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("load", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1369: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1370);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1462);
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 1370: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1371);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("make-case-lambda", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1371: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1372);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (cx_error);
r[2] = obj_from_fixnum(fxadd((fxmul((fxsub((+2), (+1))), (+1000))), (+999)));
goto gs_make_2Dannotated_2Dprocedure;
case 1372: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1373);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("error", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1373: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1374);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1461);
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 1374: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1375);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("file-exists?", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1375: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1376);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1460);
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 1376: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1377);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("delete-file", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1377: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1378);
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 1378: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1379);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("command-line", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1379: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1380);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1459);
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 1380: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1381);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("get-environment-variable", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1381: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1382);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1458);
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 1382: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1383);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("current-jiffy", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1383: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1384);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1457);
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 1384: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1385);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("jiffies-per-second", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1385: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1386);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1456);
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 1386: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1387);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("open-input-string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1387: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1388);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1455);
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 1388: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1389);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("void", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1389: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1390);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1454);
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 1390: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1391);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("reverse!", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1391: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1392);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1452);
r[4] = (hendblk(0+1));
hreserve(hbsz(0+1), 5); /* 5 live regs */
*--hp = obj_from_case(1453);
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_N_OPT);
goto gs_make_2Dannotated_2Dprocedure;
case 1392: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1393);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("exit", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1393: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1394);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1451);
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 1394: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1395);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("system", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1395: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1396);
r[3] = (hendblk(0+1));
r[0] = r[3];
r[1] = (mksymbol(internsym("display", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1396: /* 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(1397);
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = (mksymbol(internsym("write-string", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1397: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1398);
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 1398: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1399);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("print-procedure", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1399: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1400);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1449);
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 1400: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1401);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("print-globals", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1401: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r r */
(void)(cdr((r[1])) = (r[2]));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1402);
r[3] = (hendblk(0+1));
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1447);
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 1402: /* clo ek r */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1403);
r[2] = (hendblk(1+1));
r[0] = r[2];
r[1] = (mksymbol(internsym("expand", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1403: /* clo ek r */
assert(rc == 3);
{ obj* p = 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(siof_init_code, NULL)));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(1404);
r[4] = (hendblk(1+1));
r[0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1404: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r p */
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1408);
r[3] = (hendblk(0+1));
r[0] = r[3];
/* r[1] */
/* r[2] */
goto s_loop_v17977;
case 1405: /* 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_v17977: /* 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(1405);
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(1406);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Deval;
}
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; /* 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(1407);
r[5] = (hendblk(2+1));
r[0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 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; /* 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 1408: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
r += 1; /* shift reg. wnd */
/* ek . */
{ static obj c[] = { obj_from_case(1409) }; cx_fprintf_2A = (obj)c; }
{ static obj c[] = { obj_from_case(1413) }; cx_scheme_2Deval_2D_3Elist = (obj)c; }
{ static obj c[] = { obj_from_case(1415) }; cx_siof_2Dpp = (obj)c; }
{ static obj c[] = { obj_from_case(1417) }; cx_siof_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(1423) }; cx_greet_2Donce = (obj)c; }
{ static obj c[] = { obj_from_case(1425) }; cx_siof_2Drepl = (obj)c; }
{ static obj c[] = { obj_from_case(1434) }; 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 1409: /* fprintf* k port fstr olst */
assert(rc == 5);
r += 1; /* shift reg. wnd */
gs_fprintf_2A: /* k port fstr olst */
{ /* string->list */
int c = (stringlen((r[2])));
unsigned char *s; obj l = mknull();
hreserve(hbsz(3)*c, 4); /* 4 live regs */
s = (unsigned char *)stringchars((r[2])); /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[4] = (l); }
r[5+0] = r[0];
r[5+1] = r[4];
r[5+2] = r[3];
r[5+3] = r[1];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_loop_v17946;
case 1410: /* clo k flst olst */
assert(rc == 4);
{ obj* p = objptr_from_obj(r[0]);
r[1+3] = p[1]; }
r += 1; /* shift reg. wnd */
s_loop_v17946: /* k flst olst port */
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(1410);
r[4] = (hendblk(1+1));
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(1);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[5] = (car((r[1])));
r[5] = obj_from_bool(char_from_obj(r[5]) == ('~'));
if (bool_from_obj(r[5])) {
r[5] = (cdr((r[1])));
r[5] = obj_from_bool(ispair((r[5])));
if (bool_from_obj(r[5])) {
r[5] = (cdr((r[1])));
r[5] = (car((r[5])));
if ((char_from_obj(r[5]) == ('a'))) {
if ((isnull((r[2])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[4];
*--hp = obj_from_case(1411);
r[6] = (hendblk(4+1));
r[7+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[6];
r[7+2] = (car((r[2])));
r[7+3] = obj_from_bool(1);
r[7+4] = r[3];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} else {
if ((char_from_obj(r[5]) == ('s'))) {
if ((isnull((r[2])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[4];
*--hp = obj_from_case(1412);
r[6] = (hendblk(4+1));
r[7+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[6];
r[7+2] = (car((r[2])));
r[7+3] = obj_from_bool(0);
r[7+4] = r[3];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
} else {
if ((char_from_obj(r[5]) == ('%'))) {
(void)(fputc('\n', oportdata((r[3]))));
r[6] = (cdr((r[1])));
r[6] = (cdr((r[6])));
/* r[0] */
r[1] = r[6];
/* r[2] */
/* r[3] */
goto s_loop_v17946;
} else {
if ((char_from_obj(r[5]) == ('~'))) {
(void)(fputc(('~'), oportdata((r[3]))));
r[6] = (cdr((r[1])));
r[6] = (cdr((r[6])));
/* r[0] */
r[1] = r[6];
/* r[2] */
/* r[3] */
goto s_loop_v17946;
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
}
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
} else {
r[5] = (car((r[1])));
(void)(fputc(char_from_obj(r[5]), oportdata((r[3]))));
r[5] = (cdr((r[1])));
/* r[0] */
r[1] = r[5];
/* r[2] */
/* r[3] */
goto s_loop_v17946;
}
}
case 1411: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek . loop olst flst k */
r[6] = (cdr((r[4])));
r[6] = (cdr((r[6])));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = r[6];
r[3] = (cdr((r[3])));
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 1412: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
/* ek . loop olst flst k */
r[6] = (cdr((r[4])));
r[6] = (cdr((r[6])));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = r[6];
r[3] = (cdr((r[3])));
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 1413: /* 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(1414);
r[2] = (hendblk(1+1));
r[0] = r[2];
/* r[1] */
goto gs_scheme_2Deval;
case 1414: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r 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 1415: /* siof-pp k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(1416);
r[2] = (hendblk(1+1));
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r[3+3] = obj_from_bool(0);
r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1416: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek . k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1417: /* siof-rep k port */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_siof_2Drep: /* k port */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(1418);
r[2] = (hendblk(1+1));
r[3+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1418: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
if ((iseof((r[1])))) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(1419);
r[3] = (hendblk(1+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Deval_2D_3Elist;
}
case 1419: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
r[0] = r[2];
/* r[1] */
goto s_evloop;
case 1420: /* clo k results */
assert(rc == 3);
r += 1; /* shift reg. wnd */
s_evloop: /* k results */
if ((isnull((r[1])))) {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(1);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2] = (car((r[1])));
hreserve(hbsz(0+1), 3); /* 3 live regs */
*--hp = obj_from_case(1420);
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(1421);
r[3] = (hendblk(3+1));
if ((!((r[2]) == obj_from_void(0)))) {
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(1422);
r[4] = (hendblk(1+1));
r[5+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = r[2];
r[5+3] = obj_from_bool(0);
r[5+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
} else {
hreserve(hbsz(0+1), 4); /* 4 live regs */
*--hp = obj_from_case(1420);
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_v17899;
}
}
case 1421: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v17899: /* ek . evloop results k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = (cdr((r[3])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1422: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek . k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1423: /* 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(1424);
r[1] = (hendblk(1+1));
r[2+0] = r[1];
r[2+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[2+2] = (cx__236861);
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 1424: /* clo ek . */
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 1425: /* siof-repl k port */
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_siof_2Drepl: /* k port */
hreserve(hbsz(2+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(1426);
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_v17835;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(1433);
r[3] = (hendblk(1+1));
r[0] = r[3];
goto gs_greet_2Donce;
}
case 1426: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v17835: /* ek . port k */
r[0] = r[3];
r[1] = r[2];
goto s_loop_v17836;
case 1427: /* clo k */
assert(rc == 2);
{ obj* p = objptr_from_obj(r[0]);
r[1+1] = p[1]; }
r += 1; /* shift reg. wnd */
s_loop_v17836: /* k port */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_case(1427);
r[2] = (hendblk(1+1));
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = r[1];
*--hp = obj_from_case(1428);
r[2] = (hendblk(3+1));
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = (cx__236870);
r[3+3] = obj_from_bool(1);
r[3+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1428: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . port loop k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(1429);
r[5] = (hendblk(2+1));
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[2];
*--hp = obj_from_case(1430);
r[6] = (hendblk(2+1));
hreserve(hbsz(1+1), 7); /* 7 live regs */
*--hp = r[5];
*--hp = obj_from_case(1431);
r[7] = (hendblk(1+1));
r[0] = r[6];
r[1] = r[7];
goto gs_set_2Dreset_2Dhandler_21;
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; /* 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 1430: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . port return */
r[0] = r[3];
r[1] = r[2];
goto gs_siof_2Drep;
case 1431: /* 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(1432);
r[2] = (hendblk(2+1));
r[3+0] = r[2];
r[3+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[3+2] = (cx__236867);
r[3+3] = (mknull());
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1432: /* clo ek . */
assert(rc >= 2);
r[2] = 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 1433: /* clo ek . */
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__236875);
r[3+3] = (mknull());
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1434: /* main k argv */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k argv */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(1435);
r[2] = (hendblk(1+1));
r[0] = r[2];
goto gs_command_2Dline;
case 1435: /* clo 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_v17753;
case 1436: /* clo k args */
assert(rc == 3);
r += 1; /* shift reg. wnd */
s_loop_v17753: /* k args */
hreserve(hbsz(0+1), 2); /* 2 live regs */
*--hp = obj_from_case(1436);
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_siof_2Drepl;
}
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236927))) == 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_v17753;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236921))) == 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_v17753;
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool(strcmp(stringchars((r[3])), stringchars((cx__236910))) == 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__236915))) == 0);
}
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = obj_from_case(1437);
r[3] = (hendblk(1+1));
r[4+0] = r[3];
r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[4+2] = (cx__236884);
r[4+3] = (mknull());
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
} else {
{ bool_t v27012_tmp;
r[3] = (car((r[1])));
{ /* file-exists? */
FILE *f = fopen(stringchars((r[3])), "r");
if (f != NULL) fclose(f);
v27012_tmp = (f != NULL); }
r[3] = obj_from_bool(!(v27012_tmp)); }
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = obj_from_case(1441);
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__236904);
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(1442);
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_v17761;
} else {
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_case(1446);
r[4] = (hendblk(1+1));
r[0] = r[4];
goto gs_greet_2Donce;
}
}
}
}
}
}
case 1437: /* clo ek . */
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(1438);
r[3] = (hendblk(1+1));
r[4+0] = r[3];
r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[4+2] = (cx__236883);
r[4+3] = (mknull());
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1438: /* clo ek . */
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(1439);
r[3] = (hendblk(1+1));
r[4+0] = r[3];
r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[4+2] = (cx__236882);
r[4+3] = (mknull());
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1439: /* clo ek . */
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(1440);
r[3] = (hendblk(1+1));
r[4+0] = r[3];
r[4+1] = (cx__2Acurrent_2Doutput_2Dport_2A);
r[4+2] = (cx__236881);
r[4+3] = (mknull());
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1440: /* clo ek . */
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 1441: /* clo ek . */
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 1442: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v17761: /* 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(1443);
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_v17763;
} 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__236896);
r[3] = r[6];
goto gs_fprintf_2A;
}
case 1443: /* clo ek . */
assert(rc >= 2);
r[2] = 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_v17763: /* 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(1444);
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = (mksymbol(internsym("load", 1)));
goto gs_scheme_2Dglobal_2Dvar;
case 1444: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+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(1445);
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 1445: /* clo ek . */
assert(rc >= 2);
r[2] = 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 1446: /* clo ek . */
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__236875);
r[3+3] = (mknull());
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_fprintf_2A;
case 1447: /* 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(1448);
r[2] = (hendblk(1+1));
r[0] = r[2];
/* r[1] */
goto gs_scheme_2Dexpand_2Dto_2Dlist;
case 1448: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r 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 1449: /* clo k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
hreserve(hbsz(1+1), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_case(1450);
r[1] = (hendblk(1+1));
r[2+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[1];
r[2+2] = (cx_scheme_2Dglobal_2Dvariables);
r[2+3] = obj_from_bool(0);
r[2+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1450: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek . k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1451: /* 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 1452: /* 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(exit(fixnum_from_obj(r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1453: /* 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 1454: /* 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 1455: /* 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 1456: /* 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 1457: /* 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 1458: /* 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 1459: /* 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 1460: /* clo k fn */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k fn */
{ /* delete-file */
int res = remove(stringchars((r[1])));
r[2] = obj_from_bool(res == 0); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1461: /* 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 1462: /* clo k clargs */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k clargs */
{ /* 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(1463);
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 1463: /* clo 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 1464: /* clo k fn */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k fn */
r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23595))));
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = obj_from_case(1465);
r[3] = (hendblk(1+1));
if (bool_from_obj(r[2])) {
r[4] = (mkiport_file(4, (void*)((r[2]))));
r[5+0] = obj_from_ktrap();
r[5+1] = r[4];
r[5+2] = r[0];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto s_l_v17543;
} else {
r[4+0] = (cx_error);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (mksymbol(internsym("open-input-file", 1)));
r[4+3] = (cx__23599);
r[4+4] = (r[1]);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
}
case 1465: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
s_l_v17543: /* ek r k */
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(1466);
r[3] = (hendblk(2+1));
r[4+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1466: /* clo ek r */
assert(rc == 3);
{ 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(1470);
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
r[2] = r[3];
goto s_loop_v17552;
case 1467: /* 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_v17552: /* k x r */
if ((iseof((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(1);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(1467);
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(1468);
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
goto gs_scheme_2Deval;
}
case 1468: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
r += 1; /* shift reg. wnd */
/* ek . r loop k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(1469);
r[5] = (hendblk(2+1));
r[0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 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 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 1470: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k r */
{ /* close-input-port */
obj o = r[3]; cxtype_iport_t *vt = iportvt(o); assert(vt);
(void)(vt->close(iportdata(o))); }
r[4] = r[1];
r[5+0] = r[2];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1471: /* 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(fputc('\n', oportdata((r[1]))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1472: /* 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(fputc('\n', oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1473: /* 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(fputc(char_from_obj(r[1]), oportdata((r[2]))));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1474: /* 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(fputc(char_from_obj(r[1]), oportdata((cx__2Acurrent_2Doutput_2Dport_2A))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1475: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(1);
r[3+4] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1476: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = (cx_write_2Ddatum);
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+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1477: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[1];
r[3+3] = obj_from_bool(0);
r[3+4] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1478: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = (cx_write_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = r[1];
r[2+3] = obj_from_bool(0);
r[2+4] = (cx__2Acurrent_2Doutput_2Dport_2A);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
case 1479: /* 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 1480: /* 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 1481: /* 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 1482: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[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 1483: /* clo k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
{ obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
int c; void *p; assert(vt); p = iportdata(o); c = vt->getch(p); if (c != EOF) vt->ungetch(c, p);
r[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 1484: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
{ obj o = r[1]; cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1485: /* clo k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
{ obj o = (cx__2Acurrent_2Dinput_2Dport_2A); cxtype_iport_t *vt = iportvt(o);
int c; assert(vt); c = vt->getch(iportdata(o));
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 1486: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = r[1];
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1487: /* clo k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
r[1+0] = (cx_read_2Ddatum);
pc = objptr_from_obj(r[1+0])[0];
r[1+1] = r[0];
r[1+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1488: /* clo k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_void(fclose(oportdata((r[1]))));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1489: /* clo k p */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k p */
{ /* close-input-port */
obj o = r[1]; cxtype_iport_t *vt = iportvt(o); assert(vt);
r[2] = obj_from_void(vt->close(iportdata(o))); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1490: /* 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 1491: /* 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 1492: /* 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 1493: /* clo k version */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k version */
if ((is_fixnum_obj(r[1]))) {
r[2] = obj_from_bool(fixnum_from_obj(r[1]) == (+5));
} else {
{ const flonum_t v27011_tmp = ((flonum_t)(+5));
r[2] = obj_from_bool(flonum_from_obj(r[1]) == (v27011_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 1494: /* clo k version */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k version */
if ((is_fixnum_obj(r[1]))) {
r[2] = obj_from_bool(fixnum_from_obj(r[1]) == (+5));
} else {
{ const flonum_t v27010_tmp = ((flonum_t)(+5));
r[2] = obj_from_bool(flonum_from_obj(r[1]) == (v27010_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 1495: /* clo k x ignored */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x ignored */
/* r[0] */
/* r[1] */
goto gs_scheme_2Deval;
case 1496: /* 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(1497);
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 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 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 v27009_tmp;
r[5] = (cdr((r[1])));
{ /* length */
int n; obj l = r[5];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27009_tmp = (n); }
r[5] = (argcheck((r[3]), (v27009_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 1498: /* 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 1499: /* 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(1500);
r[2] = (hendblk(1+1));
/* r[0] */
r[1] = r[2];
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
case 1500: /* 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(1501);
r[3] = (hendblk(2+1));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[1];
*--hp = obj_from_case(1502);
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 1501: /* clo ek r */
assert(rc == 3);
{ 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 1502: /* 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 1503: /* 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(1504);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
goto gs_splice_2Dlast_2Dlist;
case 1504: /* clo ek r */
assert(rc == 3);
{ 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 v27008_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27008_tmp = (n); }
r[4] = (argcheck((r[3]), (v27008_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 1505: /* clo k x l */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x l */
{ fixnum_t v27007_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27007_tmp = (n); }
r[3] = (argcheck((r[1]), (v27007_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 1506: /* 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 1507: /* clo k v x */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k v x */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (cxs_vector_2Dfill_21((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1508: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27006_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27006_tmp = (n); }
{ /* list->vector */
obj l; int i, c = (v27006_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 1509: /* clo k v */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k v */
{ /* vector->list */
obj v, l = mknull(); int c = (vectorlen((r[1])));
hreserve(hbsz(3)*c, 2); /* 2 live regs */
v = r[1]; /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[2] = (l); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1510: /* 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 1511: /* 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 1512: /* 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 1513: /* 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 1514: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
{ /* make-vector */
obj o; int i = 0, c = fixnum_from_obj(r[1]);
hreserve(hbsz(c+1), 2); /* 2 live regs */
o = obj_from_void(0); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
r[2] = (hendblk(c+1)); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
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 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 1516: /* clo k s c */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k s c */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1517: /* clo k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
{ /* string-copy */
int *d = dupstring(stringdata((r[1])));
r[2] = (hpushstr(2, d)); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1518: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27005_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27005_tmp = (n); }
{ /* list->string */
int i, c = (v27005_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 1519: /* clo k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
{ /* string->list */
int c = (stringlen((r[1])));
unsigned char *s; obj l = mknull();
hreserve(hbsz(3)*c, 2); /* 2 live regs */
s = (unsigned char *)stringchars((r[1])); /* gc-safe */
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
r[2] = (l); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1520: /* 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 1521: /* 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 1522: /* 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__232078);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1523: /* 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 1524: /* 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 1525: /* 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 1526: /* 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 1527: /* 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 1528: /* 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 1529: /* 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 1530: /* 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 1531: /* 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 1532: /* 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 1533: /* 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 1534: /* 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 1535: /* 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 1536: /* 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 1537: /* 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 1538: /* 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 1539: /* 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 1540: /* 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 1541: /* 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 1542: /* 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 1543: /* 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 1544: /* 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 1545: /* 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 1546: /* 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 1547: /* 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 1548: /* 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 1549: /* 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 1550: /* 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 1551: /* 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 1552: /* 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 1553: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(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 1554: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) >= char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1555: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) <= char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1556: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) > char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1557: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) < char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1558: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(char_from_obj(r[1]) == char_from_obj(r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1559: /* 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 1560: /* clo k s */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k s */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (mksymbol(internsym(stringchars((r[1])), 0)));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1561: /* 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 1562: /* 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 1563: /* 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 1564: /* 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 1565: /* 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 1566: /* 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 1567: /* 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 1568: /* 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 1569: /* clo k l */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k l */
{ fixnum_t v27004_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27004_tmp = (n); }
{ /* reverse */
obj l, o = mknull(); int c = (v27004_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 1570: /* clo k x y z t */
assert(rc == 6);
r += 1; /* shift reg. wnd */
/* k x y z t */
{ fixnum_t v27001_tmp;
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27001_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27001_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 v27002_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27002_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27002_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 v27003_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27003_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27003_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 1571: /* clo k x y z */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k x y z */
{ fixnum_t v26999_tmp;
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v26999_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v26999_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 v27000_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v27000_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v27000_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 1572: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
{ fixnum_t v26998_tmp;
{ /* length */
int n; obj l = r[1];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
v26998_tmp = (n); }
{ /* append */
obj t, l, o, *p, *d; int c = (v26998_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 1573: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = r[1];
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1574: /* 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 1575: /* 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 1576: /* 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 1577: /* 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 1578: /* 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 1579: /* 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 1580: /* 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 1581: /* 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 1582: /* 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 1583: /* 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 1584: /* 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 1585: /* 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 1586: /* 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 1587: /* 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 1588: /* 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 1589: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(!bool_from_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1590: /* 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;
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 1591: /* 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;
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 1592: /* 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 1593: /* 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;
sprintf(buf, "%.15g", flonum_from_obj(r[1]));
for (s = buf; *s != 0; s++) if (*s == 'e' || *s == '.') break;
if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
r[2] = (hpushstr(2, newstring(buf))); }
}
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1594: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dinexact_2D_3Eexact((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1595: /* 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 1596: /* 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 1597: /* 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 1598: /* 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 1599: /* 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 1600: /* 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 1601: /* clo k x y z t */
assert(rc == 6);
r += 1; /* shift reg. wnd */
/* k x y z t */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(1602);
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = r[3];
r[2] = r[4];
goto gs_lcm_2F2;
case 1602: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_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 y x k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
*--hp = obj_from_case(1603);
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_lcm_2F2;
case 1603: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r x k */
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_lcm_2F2;
case 1604: /* clo k x y z */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k x y z */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(1605);
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = r[2];
r[2] = r[3];
goto gs_lcm_2F2;
case 1605: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r x k */
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_lcm_2F2;
case 1606: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
/* r[0] */
/* r[1] */
/* r[2] */
goto gs_lcm_2F2;
case 1607: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = r[1];
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1608: /* 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_fixnum(+1);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1609: /* clo k x y z t */
assert(rc == 6);
r += 1; /* shift reg. wnd */
/* k x y z t */
if ((is_fixnum_obj(r[3]))) {
{ const fixnum_t v26990_z = fixnum_from_obj(r[3]);
if ((is_fixnum_obj(r[4]))) {
r[5] = obj_from_fixnum(fxgcd((v26990_z), fixnum_from_obj(r[4])));
} else {
{ const flonum_t v26991_tmp = ((flonum_t)(v26990_z));
r[5] = obj_from_flonum(5, flgcd((v26991_tmp), flonum_from_obj(r[4]))); }
} }
} else {
if ((is_fixnum_obj(r[4]))) {
{ const flonum_t v26989_tmp = ((flonum_t)fixnum_from_obj(r[4]));
r[5] = obj_from_flonum(5, flgcd(flonum_from_obj(r[3]), (v26989_tmp))); }
} else {
r[5] = obj_from_flonum(5, flgcd(flonum_from_obj(r[3]), flonum_from_obj(r[4])));
}
}
if ((is_fixnum_obj(r[2]))) {
{ const fixnum_t v26993_y = fixnum_from_obj(r[2]);
if ((is_fixnum_obj(r[5]))) {
r[5] = obj_from_fixnum(fxgcd((v26993_y), fixnum_from_obj(r[5])));
} else {
{ const flonum_t v26994_tmp = ((flonum_t)(v26993_y));
r[5] = obj_from_flonum(6, flgcd((v26994_tmp), flonum_from_obj(r[5]))); }
} }
} else {
if ((is_fixnum_obj(r[5]))) {
{ const flonum_t v26992_tmp = ((flonum_t)fixnum_from_obj(r[5]));
r[5] = obj_from_flonum(6, flgcd(flonum_from_obj(r[2]), (v26992_tmp))); }
} else {
r[5] = obj_from_flonum(6, flgcd(flonum_from_obj(r[2]), flonum_from_obj(r[5])));
}
}
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26996_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[5]))) {
r[5] = obj_from_fixnum(fxgcd((v26996_x), fixnum_from_obj(r[5])));
} else {
{ const flonum_t v26997_tmp = ((flonum_t)(v26996_x));
r[5] = obj_from_flonum(6, flgcd((v26997_tmp), flonum_from_obj(r[5]))); }
} }
} else {
if ((is_fixnum_obj(r[5]))) {
{ const flonum_t v26995_tmp = ((flonum_t)fixnum_from_obj(r[5]));
r[5] = obj_from_flonum(6, flgcd(flonum_from_obj(r[1]), (v26995_tmp))); }
} else {
r[5] = obj_from_flonum(6, flgcd(flonum_from_obj(r[1]), flonum_from_obj(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;
case 1610: /* clo k x y z */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k x y z */
if ((is_fixnum_obj(r[2]))) {
{ const fixnum_t v26984_y = fixnum_from_obj(r[2]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_fixnum(fxgcd((v26984_y), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v26985_tmp = ((flonum_t)(v26984_y));
r[4] = obj_from_flonum(4, flgcd((v26985_tmp), flonum_from_obj(r[3]))); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v26983_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_flonum(4, flgcd(flonum_from_obj(r[2]), (v26983_tmp))); }
} else {
r[4] = obj_from_flonum(4, flgcd(flonum_from_obj(r[2]), flonum_from_obj(r[3])));
}
}
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26987_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[4]))) {
r[4] = obj_from_fixnum(fxgcd((v26987_x), fixnum_from_obj(r[4])));
} else {
{ const flonum_t v26988_tmp = ((flonum_t)(v26987_x));
r[4] = obj_from_flonum(5, flgcd((v26988_tmp), flonum_from_obj(r[4]))); }
} }
} else {
if ((is_fixnum_obj(r[4]))) {
{ const flonum_t v26986_tmp = ((flonum_t)fixnum_from_obj(r[4]));
r[4] = obj_from_flonum(5, flgcd(flonum_from_obj(r[1]), (v26986_tmp))); }
} else {
r[4] = obj_from_flonum(5, flgcd(flonum_from_obj(r[1]), flonum_from_obj(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 1611: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26981_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxgcd((v26981_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v26982_tmp = ((flonum_t)(v26981_x));
r[3] = obj_from_flonum(3, flgcd((v26982_tmp), flonum_from_obj(r[2]))); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v26980_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v26980_tmp))); }
} else {
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 1612: /* 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 1613: /* 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_fixnum(+0);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1614: /* clo k x y z t */
assert(rc == 6);
r += 1; /* shift reg. wnd */
/* k x y z t */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26972_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
{ /* fxfl/ */
fixnum_t x = (v26972_x), y = fixnum_from_obj(r[2]);
long i; double d;
if (0) r[5] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[5] = obj_from_fixnum(i);
else r[5] = obj_from_flonum(5, d); }
} else {
{ const flonum_t v26973_tmp = ((flonum_t)(v26972_x));
r[5] = obj_from_flonum(5, (v26973_tmp) / flonum_from_obj(r[2])); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v26971_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) / (v26971_tmp)); }
} else {
r[5] = obj_from_flonum(5, flonum_from_obj(r[1]) / flonum_from_obj(r[2]));
}
}
if ((is_fixnum_obj(r[5]))) {
{ const fixnum_t v26975_a = fixnum_from_obj(r[5]);
if ((is_fixnum_obj(r[3]))) {
{ /* fxfl/ */
fixnum_t x = (v26975_a), y = fixnum_from_obj(r[3]);
long i; double d;
if (0) r[5] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[5] = obj_from_fixnum(i);
else r[5] = obj_from_flonum(6, d); }
} else {
{ const flonum_t v26976_tmp = ((flonum_t)(v26975_a));
r[5] = obj_from_flonum(6, (v26976_tmp) / flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v26974_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[5] = obj_from_flonum(6, flonum_from_obj(r[5]) / (v26974_tmp)); }
} else {
r[5] = obj_from_flonum(6, flonum_from_obj(r[5]) / flonum_from_obj(r[3]));
}
}
if ((is_fixnum_obj(r[5]))) {
{ const fixnum_t v26978_a = fixnum_from_obj(r[5]);
if ((is_fixnum_obj(r[4]))) {
{ /* fxfl/ */
fixnum_t x = (v26978_a), y = fixnum_from_obj(r[4]);
long i; double d;
if (0) r[5] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[5] = obj_from_fixnum(i);
else r[5] = obj_from_flonum(6, d); }
} else {
{ const flonum_t v26979_tmp = ((flonum_t)(v26978_a));
r[5] = obj_from_flonum(6, (v26979_tmp) / flonum_from_obj(r[4])); }
} }
} else {
if ((is_fixnum_obj(r[4]))) {
{ const flonum_t v26977_tmp = ((flonum_t)fixnum_from_obj(r[4]));
r[5] = obj_from_flonum(6, flonum_from_obj(r[5]) / (v26977_tmp)); }
} else {
r[5] = obj_from_flonum(6, flonum_from_obj(r[5]) / flonum_from_obj(r[4]));
}
}
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 x y z */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k x y z */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26966_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
{ /* fxfl/ */
fixnum_t x = (v26966_x), y = fixnum_from_obj(r[2]);
long i; double d;
if (0) r[4] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[4] = obj_from_fixnum(i);
else r[4] = obj_from_flonum(4, d); }
} else {
{ const flonum_t v26967_tmp = ((flonum_t)(v26966_x));
r[4] = obj_from_flonum(4, (v26967_tmp) / flonum_from_obj(r[2])); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v26965_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v26965_tmp)); }
} else {
r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[2]));
}
}
if ((is_fixnum_obj(r[4]))) {
{ const fixnum_t v26969_a = fixnum_from_obj(r[4]);
if ((is_fixnum_obj(r[3]))) {
{ /* fxfl/ */
fixnum_t x = (v26969_a), y = fixnum_from_obj(r[3]);
long i; double d;
if (0) r[4] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[4] = obj_from_fixnum(i);
else r[4] = obj_from_flonum(5, d); }
} else {
{ const flonum_t v26970_tmp = ((flonum_t)(v26969_a));
r[4] = obj_from_flonum(5, (v26970_tmp) / flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v26968_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_flonum(5, flonum_from_obj(r[4]) / (v26968_tmp)); }
} else {
r[4] = obj_from_flonum(5, flonum_from_obj(r[4]) / flonum_from_obj(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 1616: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26963_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
{ /* fxfl/ */
fixnum_t x = (v26963_x), 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); }
} else {
{ const flonum_t v26964_tmp = ((flonum_t)(v26963_x));
r[3] = obj_from_flonum(3, (v26964_tmp) / flonum_from_obj(r[2])); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v26962_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flonum_from_obj(r[1]) / (v26962_tmp)); }
} else {
r[3] = obj_from_flonum(3, 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 1617: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
if ((is_fixnum_obj(r[1]))) {
{ /* fxfl/ */
fixnum_t x = (+1), y = fixnum_from_obj(r[1]);
long i; double d;
if (0) r[2] = (0); /* to fool sfc unboxer */
else if (fxifdv(x, y, &i, &d)) r[2] = obj_from_fixnum(i);
else r[2] = obj_from_flonum(2, d); }
} else {
r[2] = obj_from_flonum(2, 1.0/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 1618: /* clo k x y z t */
assert(rc == 6);
r += 1; /* shift reg. wnd */
/* k x y z t */
if ((is_fixnum_obj(r[3]))) {
{ const fixnum_t v26954_z = fixnum_from_obj(r[3]);
if ((is_fixnum_obj(r[4]))) {
r[5] = obj_from_fixnum(fxmul((v26954_z), fixnum_from_obj(r[4])));
} else {
{ const flonum_t v26955_tmp = ((flonum_t)(v26954_z));
r[5] = obj_from_flonum(5, (v26955_tmp) * flonum_from_obj(r[4])); }
} }
} else {
if ((is_fixnum_obj(r[4]))) {
{ const flonum_t v26953_tmp = ((flonum_t)fixnum_from_obj(r[4]));
r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) * (v26953_tmp)); }
} else {
r[5] = obj_from_flonum(5, flonum_from_obj(r[3]) * flonum_from_obj(r[4]));
}
}
if ((is_fixnum_obj(r[2]))) {
{ const fixnum_t v26957_y = fixnum_from_obj(r[2]);
if ((is_fixnum_obj(r[5]))) {
r[5] = obj_from_fixnum(fxmul((v26957_y), fixnum_from_obj(r[5])));
} else {
{ const flonum_t v26958_tmp = ((flonum_t)(v26957_y));
r[5] = obj_from_flonum(6, (v26958_tmp) * flonum_from_obj(r[5])); }
} }
} else {
if ((is_fixnum_obj(r[5]))) {
{ const flonum_t v26956_tmp = ((flonum_t)fixnum_from_obj(r[5]));
r[5] = obj_from_flonum(6, flonum_from_obj(r[2]) * (v26956_tmp)); }
} else {
r[5] = obj_from_flonum(6, flonum_from_obj(r[2]) * flonum_from_obj(r[5]));
}
}
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26960_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[5]))) {
r[5] = obj_from_fixnum(fxmul((v26960_x), fixnum_from_obj(r[5])));
} else {
{ const flonum_t v26961_tmp = ((flonum_t)(v26960_x));
r[5] = obj_from_flonum(6, (v26961_tmp) * flonum_from_obj(r[5])); }
} }
} else {
if ((is_fixnum_obj(r[5]))) {
{ const flonum_t v26959_tmp = ((flonum_t)fixnum_from_obj(r[5]));
r[5] = obj_from_flonum(6, flonum_from_obj(r[1]) * (v26959_tmp)); }
} else {
r[5] = obj_from_flonum(6, flonum_from_obj(r[1]) * flonum_from_obj(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;
case 1619: /* clo k x y z */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k x y z */
if ((is_fixnum_obj(r[2]))) {
{ const fixnum_t v26948_y = fixnum_from_obj(r[2]);
if ((is_fixnum_obj(r[3]))) {
r[4] = obj_from_fixnum(fxmul((v26948_y), fixnum_from_obj(r[3])));
} else {
{ const flonum_t v26949_tmp = ((flonum_t)(v26948_y));
r[4] = obj_from_flonum(4, (v26949_tmp) * flonum_from_obj(r[3])); }
} }
} else {
if ((is_fixnum_obj(r[3]))) {
{ const flonum_t v26947_tmp = ((flonum_t)fixnum_from_obj(r[3]));
r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) * (v26947_tmp)); }
} else {
r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) * flonum_from_obj(r[3]));
}
}
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26951_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[4]))) {
r[4] = obj_from_fixnum(fxmul((v26951_x), fixnum_from_obj(r[4])));
} else {
{ const flonum_t v26952_tmp = ((flonum_t)(v26951_x));
r[4] = obj_from_flonum(5, (v26952_tmp) * flonum_from_obj(r[4])); }
} }
} else {
if ((is_fixnum_obj(r[4]))) {
{ const flonum_t v26950_tmp = ((flonum_t)fixnum_from_obj(r[4]));
r[4] = obj_from_flonum(5, flonum_from_obj(r[1]) * (v26950_tmp)); }
} else {
r[4] = obj_from_flonum(5, flonum_from_obj(r[1]) * flonum_from_obj(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 1620: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
if ((is_fixnum_obj(r[1]))) {
{ const fixnum_t v26945_x = fixnum_from_obj(r[1]);
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_fixnum(fxmul((v26945_x), fixnum_from_obj(r[2])));
} else {
{ const flonum_t v26946_tmp = ((flonum_t)(v26945_x));
r[3] = obj_from_flonum(3, (v26946_tmp) * flonum_from_obj(r[2])); }
} }
} else {
if ((is_fixnum_obj(r[2]))) {
{ const flonum_t v26944_tmp = ((flonum_t)fixnum_from_obj(r[2]));
r[3] = obj_from_flonum(3, flonum_from_obj(r[1]) * (v26944_tmp)); }
} else {
r[3] = obj_from_flonum(3, 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 1621: /* 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 1622: /* 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_fixnum(+1);
r += 1; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1623: /* 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 1624: /* 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 1625: /* 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 1626: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = r[1];
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1627: /* 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 1628: /* 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 1629: /* 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 1630: /* 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 1631: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Deven_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1632: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dodd_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1633: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dnegative_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1634: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dpositive_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1635: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dzero_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1636: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(is_flonum_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1637: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_bool(is_fixnum_obj(r[1]));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1638: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1639: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1640: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1641: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1642: /* clo k x */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k x */
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1643: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool(isequal((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1644: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = obj_from_bool((r[1]) == (r[2]));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1645: /* clo k x y */
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k x y */
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = (cxs__25residual_2Deqv_3F((r[1]), (r[2])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 1646: /* clo k acc store loc-n */
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k acc store loc-n */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[3];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[2];
*--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[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;
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;
}