diff --git a/i.c b/i.c index 806d361..f089f53 100644 --- a/i.c +++ b/i.c @@ -13,7 +13,7 @@ extern obj cx__2Acurrent_2Dinput_2A; extern obj cx__2Acurrent_2Doutput_2A; extern obj cx__2Acurrent_2Derror_2A; -#define istagged(o, t) istagged_inlined(o, t) +//#define istagged(o, t) istagged_inlined(o, t) /* forwards */ static struct intgtab_entry *lookup_integrable(int sym); @@ -122,6 +122,12 @@ static obj *init_modules(obj *r, obj *sp, obj *hp); #define VM_STACK_RSZ 256 /* red zone for overflow checks */ #define VM_STACK_GSZ (VM_STACK_LEN-VM_STACK_RSZ) +/* faster non-debug type testing */ +#ifdef NDEBUG /* quick */ +static int istagged_inline(obj o, int t) { return isobjptr(o) && hblkref(o, 0) == obj_from_size(t); } +#define istagged(o, t) istagged_inline(o, t) +#endif + /* box representation extras */ #define boxbsz() hbsz(1+1) #define hend_box() (*--hp = obj_from_size(BOX_BTAG), hendblk(1+1)) @@ -135,8 +141,8 @@ static obj *init_modules(obj *r, obj *sp, obj *hp); #define hend_vec(n) (*--hp = obj_from_size(VECTOR_BTAG), hendblk((n)+1)) /* record representation extras */ -#define recbsz(c) hbsz((c)+2) -#define hend_rec(rtd, c) (*--hp = rtd, *--hp = obj_from_size(RECORD_BTAG), hendblk((c)+2)) +#define recbsz(c) hbsz((c)+1) +#define hend_rec(rtd, c) (*--hp = rtd, hendblk((c)+1)) /* vm closure representation */ #ifdef NDEBUG /* quick */ @@ -154,11 +160,11 @@ static obj *init_modules(obj *r, obj *sp, obj *hp); #endif /* vm tuple representation (c != 1) */ -#define istuple(x) isrecord -#define tupleref recordref -#define tuplelen recordlen -#define tuplebsz(c) hbsz((c)+2) -#define hend_tuple(c) (*--hp = 0, *--hp = obj_from_size(RECORD_BTAG), hendblk((c)+2)) +#define istuple(x) istagged(x, 0) +#define tupleref(x,i) *taggedref(x, 0, i) +#define tuplelen(x) taggedlen(x, 0) +#define tuplebsz(c) hbsz((c)+1) +#define hend_tuple(c) (*--hp = obj_from_size(0), hendblk((c)+1)) /* in/re-loading gc-save shadow registers */ #define unload_ip() (rx = obj_from_fixnum(ip - &vectorref(vmcloref(rd, 0), 0))) @@ -218,14 +224,20 @@ static void _sck(obj *s) { #define is_eof(o) ((o) == mkeof()) #define fixnum_obj(x) obj_from_fixnum(x) #define is_fixnum(o) is_fixnum_obj(o) -#define are_fixnums(o1, o2) are_fixnum_objs(o1, o2) -#define get_fixnum(o) get_fixnum_unchecked(o) +#define are_fixnums(o1, o2) (is_fixnum(o1) && is_fixnum(o2)) +#define get_fixnum(o) fixnum_from_obj(o) #define is_byte(o) is_byte_obj(o) #define byte_obj(x) obj_from_fixnum((unsigned char)(x)) -#define get_byte(o) ((unsigned char)get_fixnum_unchecked(o)) +#define get_byte(o) ((unsigned char)fixnum_from_obj(o)) +#ifdef FLONUMS_BOXED #define flonum_obj(x) hp_pushptr(dupflonum(x), FLONUM_NTAG) #define is_flonum(o) is_flonum_obj(o) #define get_flonum(o) flonum_from_obj(o) +#else +#define flonum_obj(x) obj_from_flonum(0, x) +#define is_flonum(o) is_flonum_obj(o) +#define get_flonum(o) flonum_from_obj(o) +#endif #define is_symbol(o) issymbol(o) #define get_symbol(o) getsymbol(o) #define is_pair(o) ispair(o) @@ -1362,7 +1374,7 @@ define_instruction(bvecp) { define_instruction(bvec) { int i, n = get_fixnum(*ip++); - obj o = bytevector_obj(allocbytevector(n, 0)); + obj o = bytevector_obj(allocbytevector(n)); unsigned char *s = (unsigned char *)bytevectorbytes(o); for (i = 0; i < n; ++i) { obj x = sref(i); ck8(x); s[i] = byte_from_obj(x); @@ -1375,7 +1387,7 @@ define_instruction(bmk) { int n, b; obj x = spop(); ckk(ac); ck8(x); n = get_fixnum(ac), b = byte_from_obj(x); - ac = bytevector_obj(allocbytevector(n, b)); + ac = bytevector_obj(makebytevector(n, b)); gonexti(); } @@ -1558,7 +1570,7 @@ define_instruction(ltov) { define_instruction(ltob) { obj l = ac, o; int n = 0, i; unsigned char *s; while (is_pair(l)) { l = pair_cdr(l); ++n; } cku(l); - o = bytevector_obj(allocbytevector(n, 0)); + o = bytevector_obj(allocbytevector(n)); s = bytevectorbytes(o); for (i = 0, l = ac; i < n; ++i, l = pair_cdr(l)) { obj x = pair_car(l); ck8(x); @@ -1994,12 +2006,6 @@ define_instruction(jdiv) { gonexti(); } -define_instruction(jrem) { - obj x = ac, y = spop(); ckj(x); ckj(y); - ac = flonum_obj(flrem(get_flonum(x), get_flonum(y))); - gonexti(); -} - define_instruction(jlt) { obj x = ac, y = spop(); ckj(x); ckj(y); ac = bool_obj(get_flonum(x) < get_flonum(y)); @@ -2085,11 +2091,21 @@ define_instruction(jtoi) { } define_instruction(jquo) { - obj x = ac, y = spop(); ckj(x); ckj(y); - ac = flonum_obj(flquo(get_flonum(x), get_flonum(y))); + obj x = ac, y = spop(); double n, d, i; + ckj(x); ckj(y); + n = get_flonum(x), d = get_flonum(y); modf(n/d, &i); + ac = flonum_obj(i); gonexti(); } +define_instruction(jrem) { + /* NB: we keep sign: (flremainder -10.0 2.0) => -0.0 */ + obj x = ac, y = spop(); ckj(x); ckj(y); + ac = flonum_obj(fmod(get_flonum(x), get_flonum(y))); + gonexti(); +} + + define_instruction(jmqu) { obj x = ac, y = spop(); ckj(x); ckj(y); ac = flonum_obj(flmqu(get_flonum(x), get_flonum(y))); @@ -2115,9 +2131,8 @@ define_instruction(jceil) { } define_instruction(jtrunc) { - double f, i; ckj(ac); - f = get_flonum(ac); - modf(f, &i); + double i; ckj(ac); + modf(get_flonum(ac), &i); ac = flonum_obj(i); gonexti(); } @@ -2300,14 +2315,15 @@ define_instruction(quo) { if (unlikely(y == fixnum_obj(0))) fail("division by zero"); ac = fixnum_obj(fxquo(get_fixnum(x), get_fixnum(y))); } else { - double dx, dy; - if (likely(is_flonum(x))) dx = get_flonum(x); + double dx, dy, dz; + if (likely(is_flonum(x) && flisint(dx = get_flonum(x)))) /* ok */; else if (likely(is_fixnum(x))) dx = (double)get_fixnum(x); - else failtype(x, "number"); - if (likely(is_flonum(y))) dy = get_flonum(y); + else failtype(x, "integer"); + if (likely(is_flonum(y) && flisint(dy = get_flonum(y)))) /* ok */; else if (likely(is_fixnum(y))) dy = (double)get_fixnum(y); - else failtype(y, "number"); - ac = flonum_obj(flquo(dx, dy)); + else failtype(y, "integer"); + modf(dx / dy, &dz); + ac = flonum_obj(dz); } gonexti(); } @@ -2318,14 +2334,16 @@ define_instruction(rem) { if (unlikely(y == fixnum_obj(0))) fail("division by zero"); ac = fixnum_obj(fxrem(get_fixnum(x), get_fixnum(y))); } else { - double dx, dy; - if (likely(is_flonum(x))) dx = get_flonum(x); + double dx, dy, dz; + if (likely(is_flonum(x) && flisint(dx = get_flonum(x)))) /* ok */; else if (likely(is_fixnum(x))) dx = (double)get_fixnum(x); - else failtype(x, "number"); - if (likely(is_flonum(y))) dy = get_flonum(y); + else failtype(x, "integer"); + if (likely(is_flonum(y) && flisint(dy = get_flonum(y)))) /* ok */; else if (likely(is_fixnum(y))) dy = (double)get_fixnum(y); - else failtype(y, "number"); - ac = flonum_obj(flrem(dx, dy)); + else failtype(y, "integer"); + dz = fmod(dx, dy); + /* keep zero positive: (remainder -10.0 2.0) => 0.0, not -0.0 */ + ac = flonum_obj((dz == 0.0) ? 0.0 : dz); } gonexti(); } @@ -2437,8 +2455,9 @@ define_instruction(ge) { define_instruction(eq) { obj x = ac, y = spop(); - if (x == y) ac = bool_obj(1); - else if (is_flonum(x) || is_flonum(y)) { + if (likely(are_fixnums(x, y))) { + ac = bool_obj(x == y); + } else if (is_flonum(x) || is_flonum(y)) { double dx, dy; if (likely(is_flonum(x))) dx = get_flonum(x); else if (likely(is_fixnum(x))) dx = (double)get_fixnum(x); @@ -2453,8 +2472,9 @@ define_instruction(eq) { define_instruction(ne) { obj x = ac, y = spop(); - if (x == y) ac = bool_obj(0); - else if (is_flonum(x) || is_flonum(y)) { + if (likely(are_fixnums(x, y))) { + ac = bool_obj(x != y); + } else if (is_flonum(x) || is_flonum(y)) { double dx, dy; if (likely(is_flonum(x))) dx = get_flonum(x); else if (likely(is_fixnum(x))) dx = (double)get_fixnum(x); diff --git a/k.c b/k.c index 9fb27ea..7a0c44c 100644 --- a/k.c +++ b/k.c @@ -20,7 +20,20 @@ extern void module_n(void); /* n.sf */ #include /* standard definitions */ +#ifdef NAN_BOXING +#include +typedef int64_t obj; /* pointers are this size, higher 16 bits and lower bit zero */ +typedef int64_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) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask) +#define isobjptr(o) (!notobjptr(o)) +#define notaptr(o) ((o) & 0xffff000000000001ULL) +#define isaptr(o) (!notaptr(o)) +#else 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 */ @@ -32,6 +45,7 @@ typedef struct { /* type descriptor */ #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 1) #define isaptr(o) (!notaptr(o)) +#endif #define obj_from_obj(o) (o) #define obj_from_objptr(p) ((obj)(p)) @@ -82,18 +96,32 @@ extern char **cxg_argv; /* extra definitions */ /* basic object representation */ -#define isimm(o, t) (((o) & 0xf) == (((t) << 1) | 1)) -#define isimm2(o1, o2, t) (((((o1) & 0xf) << 4) | ((o2) & 0xf)) == (((((t) << 1) | 1) << 4) | (((t) << 1) | 1))) -#define getimmu_unchecked(o) (long)(((o) >> 4) & 0xfffffff) -#define getimms_unchecked(o) (long)(((((o) >> 4) & 0xfffffff) ^ 0x8000000) - 0x8000000) +#ifdef NAN_BOXING +#define isim0(o) (((o) & 0xffff000000000003ULL) == 3) +#define isimm(o, t) (((o) & 0xffff0000000000ffULL) == (((t) << 2) | 1)) #ifdef NDEBUG - #define getimmu(o, t) getimmu_unchecked(o) - #define getimms(o, t) getimms_unchecked(o) + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) #else + extern long getim0s(obj o); extern long getimmu(obj o, int t); - extern long getimms(obj o, int t); #endif -#define mkimm(o, t) (obj)((((o) & 0xfffffff) << 4) | ((t) << 1) | 1) +#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3)) +#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1)) +#else +#define isim0(o) (((o) & 3) == 3) +#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1)) +#ifdef NDEBUG + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) +#else + extern long getim0s(obj o); + extern long getimmu(obj o, int t); +#endif +#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3) +#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1) +#define FLONUMS_BOXED +#endif #ifdef NDEBUG static int isnative(obj o, cxtype_t *tp) { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; } @@ -112,8 +140,18 @@ extern int istagged(obj o, int t); extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif -/* unit */ -#define obj_from_unit() (obj_from_size(0x6DF6F577)) +extern int istyped(obj o); +#ifdef NDEBUG + #define cktyped(o, t) (o) + #define typedtype(o) (&hblkref(o, 0)) + #define typedlen(o) (hblklen(o)-1) + #define typedref(o, i) (&hblkref(o, (i)+1)) +#else + extern obj cktyped(obj o); + extern obj* typedtype(obj o); + extern int typedlen(obj o); + extern obj* typedref(obj o, int i); +#endif /* booleans */ #define TRUE_ITAG 0 typedef int bool_t; @@ -121,10 +159,18 @@ typedef int bool_t; #define is_bool_bool(b) ((void)(b), 1) #define void_from_bool(b) (void)(b) #define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0) +/* void */ +#define VOID_ITAG 1 +#define mkvoid() mkimm(0, VOID_ITAG) +#define isvoid(o) ((o) == mkimm(0, VOID_ITAG)) +#undef obj_from_void +#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG)) +/* unit */ +#define obj_from_unit() (obj_from_size(0x6DF6F577)) /* numbers */ -#define FIXNUM_BIT 28 -#define FIXNUM_MIN -134217728 -#define FIXNUM_MAX 134217727 +#define FIXNUM_BIT 30 +#define FIXNUM_MIN -536870912 +#define FIXNUM_MAX 536870911 #ifdef NDEBUG #define fxneg(x) (-(x)) #define fxabs(x) (labs(x)) @@ -187,21 +233,44 @@ extern double flgcd(double x, double y); extern double flround(double x); extern int strtofxfl(char *s, int radix, long *pl, double *pd); /* fixnums */ -#define FIXNUM_ITAG 1 typedef long fixnum_t; -#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG)) -#define are_fixnum_objs(o1, o2) (isimm2((o1), (o2), FIXNUM_ITAG)) -#define get_fixnum_unchecked(o) (getimms_unchecked(o)) +#define is_fixnum_obj(o) (isim0(o)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define is_bool_fixnum(i) ((void)(i), 0) #define is_fixnum_bool(i) ((void)(i), 0) -#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG)) +#define fixnum_from_obj(o) (getim0s(o)) #define fixnum_from_fixnum(i) (i) #define fixnum_from_flonum(l,x) ((fixnum_t)(x)) #define bool_from_fixnum(i) ((void)(i), 1) #define void_from_fixnum(i) (void)(i) -#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG) +#define obj_from_fixnum(i) mkim0((fixnum_t)(i)) /* flonums */ +#ifndef FLONUMS_BOXED +typedef double flonum_t; +#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL) +#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_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) +union iod { cxoint_t i; double d; }; +static double flonum_from_obj(obj o) { + union iod u; + assert(is_flonum_obj(o)); + u.i = ~o; + return u.d; +} +static obj obj_from_flonum(int rc, double d) { + union iod u; + u.d = d; + assert(is_flonum_obj(~u.i)); + return ~u.i; +} +#else /* FLONUMS_BOXED */ extern cxtype_t *FLONUM_NTAG; typedef double flonum_t; #define is_flonum_obj(o) (isnative(o, FLONUM_NTAG)) @@ -217,6 +286,7 @@ typedef double flonum_t; #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); +#endif /* characters */ #define CHAR_ITAG 2 typedef int char_t; @@ -229,7 +299,7 @@ typedef int char_t; #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_obj(o) ((int)getimmu(o, CHAR_ITAG)) #define char_from_char(i) (i) #define bool_from_char(i) ((void)(i), 1) #define void_from_char(i) (void)(i) @@ -248,12 +318,13 @@ extern cxtype_t *STRING_NTAG; extern char* stringref(obj o, int i); #endif extern int *newstring(char *s); +extern int *newstringn(char *s, int n); extern int *allocstring(int n, int c); extern int *substring(int *d, int from, int to); extern int *stringcat(int *d0, int *d1); extern int *dupstring(int *d); extern void stringfill(int *d, int c); -extern int strcmp_ci(char *s1, char*s2); +extern int strcmp_ci(char *s1, char *s2); /* vectors */ #define VECTOR_BTAG 1 #define isvector(o) istagged(o, VECTOR_BTAG) @@ -281,7 +352,8 @@ static int is_byte_obj(obj o) { return (obj_from_fixnum(0) <= o && o <= obj_from extern unsigned char* bytevectorref(obj o, int i); #endif extern int *newbytevector(unsigned char *s, int n); -extern int *allocbytevector(int n, int c); +extern int *makebytevector(int n, int c); +extern int *allocbytevector(int n); extern int *dupbytevector(int *d); extern int bytevectoreq(int *d0, int *d1); extern int *subbytevector(int *d, int from, int to); @@ -307,11 +379,10 @@ extern int islist(obj l); extern char *symbolname(int sym); extern int internsym(char *name); /* records */ -#define RECORD_BTAG 4 -#define isrecord(o) istagged(o, RECORD_BTAG) -#define recordrtd(r) *taggedref(r, RECORD_BTAG, 0) -#define recordref(r, i) *taggedref(r, RECORD_BTAG, (i)+1) -#define recordlen(r) (taggedlen(r, RECORD_BTAG)-1) +#define isrecord(o) istyped(o) +#define recordrtd(r) *typedtype(r) +#define recordlen(r) typedlen(r) +#define recordref(r, i) *typedref(r, i) /* procedures */ extern int isprocedure(obj o); extern int procedurelen(obj o); @@ -320,8 +391,8 @@ extern obj* procedureref(obj o, int i); extern obj appcases[]; /* eof */ #define EOF_ITAG 7 -#define mkeof() mkimm(-1, EOF_ITAG) -#define iseof(o) ((o) == mkimm(-1, EOF_ITAG)) +#define mkeof() mkimm(0, EOF_ITAG) +#define iseof(o) ((o) == mkimm(0, EOF_ITAG)) /* input ports */ typedef struct { /* extends cxtype_t */ const char *tname; @@ -424,6 +495,7 @@ extern void oportputshared(obj x, obj p, int disp); #include "i.h" /* cx globals */ +extern obj cx__25append; /* %append */ extern obj cx__25read; /* %read */ extern obj cx__25residual_2Dcadr; /* %residual-cadr */ extern obj cx__25residual_2Dcdr; /* %residual-cdr */ @@ -441,6 +513,10 @@ extern obj cx_error; /* error */ extern obj cx_file_2Derror; /* file-error */ extern obj cx_fixnum_2D_3Estring; /* fixnum->string */ extern obj cx_flonum_2D_3Estring; /* flonum->string */ +extern obj cx_list_2D_3Estring; /* list->string */ +extern obj cx_list_2D_3Evector; /* list->vector */ +extern obj cx_string_2D_3Elist; /* string->list */ +extern obj cx_vector_2D_3Elist; /* vector->list */ extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */ obj cx__25residual_2Dbinding_2Dset_2Dval_21; /* %residual-binding-set-val! */ obj cx__25residual_2Dbinding_2Dspecial_3F; /* %residual-binding-special? */ @@ -572,84 +648,84 @@ obj cx_xform_2Dsyntax_2Derror; /* xform-syntax-error */ obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */ obj cx_xform_2Dsyntax_2Dlength; /* xform-syntax-length */ obj cx_xform_2Dwithcc; /* xform-withcc */ -static obj cx__231020; /* constant #1020 */ -static obj cx__231028; /* constant #1028 */ -static obj cx__231054; /* constant #1054 */ -static obj cx__231070; /* constant #1070 */ +static obj cx__231013; /* constant #1013 */ +static obj cx__231021; /* constant #1021 */ +static obj cx__231047; /* constant #1047 */ +static obj cx__231063; /* constant #1063 */ +static obj cx__231106; /* constant #1106 */ static obj cx__231113; /* constant #1113 */ -static obj cx__231120; /* constant #1120 */ -static obj cx__231133; /* constant #1133 */ -static obj cx__231177; /* constant #1177 */ -static obj cx__231251; /* constant #1251 */ -static obj cx__231315; /* constant #1315 */ -static obj cx__231763; /* constant #1763 */ -static obj cx__231823; /* constant #1823 */ -static obj cx__231906; /* constant #1906 */ -static obj cx__231951; /* constant #1951 */ -static obj cx__232044; /* constant #2044 */ -static obj cx__232065; /* constant #2065 */ -static obj cx__232412; /* constant #2412 */ -static obj cx__232719; /* constant #2719 */ -static obj cx__232884; /* constant #2884 */ -static obj cx__233022; /* constant #3022 */ -static obj cx__233027; /* constant #3027 */ -static obj cx__233031; /* constant #3031 */ -static obj cx__233055; /* constant #3055 */ -static obj cx__233056; /* constant #3056 */ -static obj cx__233065; /* constant #3065 */ -static obj cx__233066; /* constant #3066 */ -static obj cx__233077; /* constant #3077 */ -static obj cx__233100; /* constant #3100 */ -static obj cx__233169; /* constant #3169 */ -static obj cx__233173; /* constant #3173 */ -static obj cx__233295; /* constant #3295 */ -static obj cx__233337; /* constant #3337 */ +static obj cx__231126; /* constant #1126 */ +static obj cx__231167; /* constant #1167 */ +static obj cx__231239; /* constant #1239 */ +static obj cx__231303; /* constant #1303 */ +static obj cx__231735; /* constant #1735 */ +static obj cx__231795; /* constant #1795 */ +static obj cx__231878; /* constant #1878 */ +static obj cx__231913; /* constant #1913 */ +static obj cx__232006; /* constant #2006 */ +static obj cx__232027; /* constant #2027 */ +static obj cx__232371; /* constant #2371 */ +static obj cx__232678; /* constant #2678 */ +static obj cx__232843; /* constant #2843 */ +static obj cx__232981; /* constant #2981 */ +static obj cx__232986; /* constant #2986 */ +static obj cx__232990; /* constant #2990 */ +static obj cx__233014; /* constant #3014 */ +static obj cx__233015; /* constant #3015 */ +static obj cx__233024; /* constant #3024 */ +static obj cx__233025; /* constant #3025 */ +static obj cx__233036; /* constant #3036 */ +static obj cx__233059; /* constant #3059 */ +static obj cx__233120; /* constant #3120 */ +static obj cx__233124; /* constant #3124 */ +static obj cx__233244; /* constant #3244 */ +static obj cx__233280; /* constant #3280 */ +static obj cx__233288; /* constant #3288 */ +static obj cx__233289; /* constant #3289 */ +static obj cx__233290; /* constant #3290 */ +static obj cx__233291; /* constant #3291 */ +static obj cx__233292; /* constant #3292 */ +static obj cx__233315; /* constant #3315 */ +static obj cx__233319; /* constant #3319 */ static obj cx__23334; /* constant #334 */ -static obj cx__233345; /* constant #3345 */ -static obj cx__233346; /* constant #3346 */ -static obj cx__233347; /* constant #3347 */ -static obj cx__233348; /* constant #3348 */ -static obj cx__233349; /* constant #3349 */ -static obj cx__233372; /* constant #3372 */ -static obj cx__233376; /* constant #3376 */ -static obj cx__233646; /* constant #3646 */ -static obj cx__233848; /* constant #3848 */ +static obj cx__233589; /* constant #3589 */ +static obj cx__233791; /* constant #3791 */ +static obj cx__234193; /* constant #4193 */ static obj cx__23424; /* constant #424 */ -static obj cx__234250; /* constant #4250 */ -static obj cx__234380; /* constant #4380 */ -static obj cx__23474; /* constant #474 */ -static obj cx__234788; /* constant #4788 */ +static obj cx__234323; /* constant #4323 */ +static obj cx__23472; /* constant #472 */ +static obj cx__234731; /* constant #4731 */ +static obj cx__234755; /* constant #4755 */ +static obj cx__234756; /* constant #4756 */ static obj cx__234812; /* constant #4812 */ -static obj cx__234813; /* constant #4813 */ -static obj cx__23484; /* constant #484 */ -static obj cx__234869; /* constant #4869 */ -static obj cx__234876; /* constant #4876 */ -static obj cx__234883; /* constant #4883 */ -static obj cx__234885; /* constant #4885 */ -static obj cx__234941; /* constant #4941 */ -static obj cx__234972; /* constant #4972 */ -static obj cx__234977; /* constant #4977 */ -static obj cx__234978; /* constant #4978 */ -static obj cx__234996; /* constant #4996 */ -static obj cx__234999; /* constant #4999 */ -static obj cx__235005; /* constant #5005 */ -static obj cx__235013; /* constant #5013 */ -static obj cx__235021; /* constant #5021 */ -static obj cx__23509; /* constant #509 */ -static obj cx__23517; /* constant #517 */ -static obj cx__23527; /* constant #527 */ -static obj cx__23540; /* constant #540 */ -static obj cx__23565; /* constant #565 */ -static obj cx__23571; /* constant #571 */ -static obj cx__23597; /* constant #597 */ -static obj cx__23622; /* constant #622 */ -static obj cx__23640; /* constant #640 */ -static obj cx__23650; /* constant #650 */ -static obj cx__23673; /* constant #673 */ -static obj cx__23933; /* constant #933 */ -static obj cx__23979; /* constant #979 */ +static obj cx__234819; /* constant #4819 */ +static obj cx__23482; /* constant #482 */ +static obj cx__234826; /* constant #4826 */ +static obj cx__234828; /* constant #4828 */ +static obj cx__234884; /* constant #4884 */ +static obj cx__234915; /* constant #4915 */ +static obj cx__234920; /* constant #4920 */ +static obj cx__234921; /* constant #4921 */ +static obj cx__234939; /* constant #4939 */ +static obj cx__234942; /* constant #4942 */ +static obj cx__234948; /* constant #4948 */ +static obj cx__234956; /* constant #4956 */ +static obj cx__234964; /* constant #4964 */ +static obj cx__23507; /* constant #507 */ +static obj cx__23515; /* constant #515 */ +static obj cx__23525; /* constant #525 */ +static obj cx__23538; /* constant #538 */ +static obj cx__23563; /* constant #563 */ +static obj cx__23569; /* constant #569 */ +static obj cx__23595; /* constant #595 */ +static obj cx__23620; /* constant #620 */ +static obj cx__23638; /* constant #638 */ +static obj cx__23648; /* constant #648 */ +static obj cx__23669; /* constant #669 */ +static obj cx__23929; /* constant #929 */ +static obj cx__23972; /* constant #972 */ +static obj cx__23974; /* constant #974 */ static obj cx__2398; /* constant #98 */ -static obj cx__23981; /* constant #981 */ /* helper functions */ /* set-member? */ @@ -663,11 +739,11 @@ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) return obj_from_bool(1); } else { { /* let */ - obj v5451_tmp = (cdr((v1_s))); - obj v5450_tmp = (v2_x); + obj v5394_tmp = (cdr((v1_s))); + obj v5393_tmp = (v2_x); /* tail call */ - v2_x = (v5450_tmp); - v1_s = (v5451_tmp); + v2_x = (v5393_tmp); + v1_s = (v5394_tmp); goto s_set_2Dmember_3F; } } @@ -688,18 +764,18 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) } else { if ((ispair((v41_pat)))) { { /* let */ - obj v5444_tmp; + obj v5387_tmp; { /* let */ - obj v5448_tmp; + obj v5391_tmp; { /* let */ - obj v5449_tmp; + obj v5392_tmp; { static obj o = 0; static char s[] = { 36, 0 }; - v5449_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; - v5448_tmp = obj_from_bool((car((v41_pat))) == (v5449_tmp)); + v5392_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; + v5391_tmp = obj_from_bool((car((v41_pat))) == (v5392_tmp)); } - v5444_tmp = (bool_from_obj(v5448_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); + v5387_tmp = (bool_from_obj(v5391_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); } - if (bool_from_obj(v5444_tmp)) { + if (bool_from_obj(v5387_tmp)) { return obj_from_bool((v40_exp) == (car((cdr((v41_pat)))))); } else { if (bool_from_obj((ispair((cdr((v41_pat))))) ? (((car((cdr((v41_pat))))) == (mksymbol(internsym("...")))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) { @@ -717,9 +793,9 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) if ((ispair((v58_lst)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((v56_pat), (car((v58_lst)))))) { { /* let */ - obj v5447_tmp = (cdr((v58_lst))); + obj v5390_tmp = (cdr((v58_lst))); /* tail call */ - v58_lst = (v5447_tmp); + v58_lst = (v5390_tmp); goto s_f; } } else { @@ -735,11 +811,11 @@ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) if ((ispair((v40_exp)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((car((v41_pat))), (car((v40_exp)))))) { { /* let */ - obj v5446_tmp = (cdr((v40_exp))); - obj v5445_tmp = (cdr((v41_pat))); + obj v5389_tmp = (cdr((v40_exp))); + obj v5388_tmp = (cdr((v41_pat))); /* tail call */ - v41_pat = (v5445_tmp); - v40_exp = (v5446_tmp); + v41_pat = (v5388_tmp); + v40_exp = (v5389_tmp); goto s_syntax_2Dmatch_3F; } } else { @@ -766,11 +842,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) obj v120_l; obj v119_n; { /* let */ - obj v5443_tmp = obj_from_fixnum(+0); - obj v5442_tmp = (v116_l); + obj v5386_tmp = obj_from_fixnum(+0); + obj v5385_tmp = (v116_l); /* tail call */ - v120_l = (v5442_tmp); - v119_n = (v5443_tmp); + v120_l = (v5385_tmp); + v119_n = (v5386_tmp); goto s_loop; } s_loop: @@ -781,11 +857,11 @@ static obj cxs_posq(obj v117_x, obj v116_l) return (v119_n); } else { { /* let */ - obj v5441_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); - obj v5440_tmp = (cdr((v120_l))); + obj v5384_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); + obj v5383_tmp = (cdr((v120_l))); /* tail call */ - v120_l = (v5440_tmp); - v119_n = (v5441_tmp); + v120_l = (v5383_tmp); + v119_n = (v5384_tmp); goto s_loop; } } @@ -870,84 +946,84 @@ static obj *globv[] = { &cx_test5, &cx_transform, &cx_x_2Derror, - &cx__231020, - &cx__231028, - &cx__231054, - &cx__231070, + &cx__231013, + &cx__231021, + &cx__231047, + &cx__231063, + &cx__231106, &cx__231113, - &cx__231120, - &cx__231133, - &cx__231177, - &cx__231251, - &cx__231315, - &cx__231763, - &cx__231823, - &cx__231906, - &cx__231951, - &cx__232044, - &cx__232065, - &cx__232412, - &cx__232719, - &cx__232884, - &cx__233022, - &cx__233027, - &cx__233031, - &cx__233055, - &cx__233056, - &cx__233065, - &cx__233066, - &cx__233077, - &cx__233100, - &cx__233169, - &cx__233173, - &cx__233295, - &cx__233337, + &cx__231126, + &cx__231167, + &cx__231239, + &cx__231303, + &cx__231735, + &cx__231795, + &cx__231878, + &cx__231913, + &cx__232006, + &cx__232027, + &cx__232371, + &cx__232678, + &cx__232843, + &cx__232981, + &cx__232986, + &cx__232990, + &cx__233014, + &cx__233015, + &cx__233024, + &cx__233025, + &cx__233036, + &cx__233059, + &cx__233120, + &cx__233124, + &cx__233244, + &cx__233280, + &cx__233288, + &cx__233289, + &cx__233290, + &cx__233291, + &cx__233292, + &cx__233315, + &cx__233319, &cx__23334, - &cx__233345, - &cx__233346, - &cx__233347, - &cx__233348, - &cx__233349, - &cx__233372, - &cx__233376, - &cx__233646, - &cx__233848, + &cx__233589, + &cx__233791, + &cx__234193, &cx__23424, - &cx__234250, - &cx__234380, - &cx__23474, - &cx__234788, + &cx__234323, + &cx__23472, + &cx__234731, + &cx__234755, + &cx__234756, &cx__234812, - &cx__234813, - &cx__23484, - &cx__234869, - &cx__234876, - &cx__234883, - &cx__234885, - &cx__234941, - &cx__234972, - &cx__234977, - &cx__234978, - &cx__234996, - &cx__234999, - &cx__235005, - &cx__235013, - &cx__235021, - &cx__23509, - &cx__23517, - &cx__23527, - &cx__23540, - &cx__23565, - &cx__23571, - &cx__23597, - &cx__23622, - &cx__23640, - &cx__23650, - &cx__23673, - &cx__23933, - &cx__23979, + &cx__234819, + &cx__23482, + &cx__234826, + &cx__234828, + &cx__234884, + &cx__234915, + &cx__234920, + &cx__234921, + &cx__234939, + &cx__234942, + &cx__234948, + &cx__234956, + &cx__234964, + &cx__23507, + &cx__23515, + &cx__23525, + &cx__23538, + &cx__23563, + &cx__23569, + &cx__23595, + &cx__23620, + &cx__23638, + &cx__23648, + &cx__23669, + &cx__23929, + &cx__23972, + &cx__23974, &cx__2398, - &cx__23981, }; static cxroot_t root = { @@ -956,7 +1032,7 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -static obj cases[567] = { +static obj cases[579] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, @@ -1070,7 +1146,9 @@ static obj cases[567] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, - (obj)host, (obj)host, + (obj)host, (obj)host, (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 */ @@ -1088,22 +1166,22 @@ case 0: /* load module */ cx__2398 = (hpushstr(0, newstring("#"))); cx__23334 = (hpushstr(0, newstring("transformer: "))); cx__23424 = (hpushstr(0, newstring("improper use of syntax form"))); - cx__23474 = (hpushstr(0, newstring("improper quote form"))); - cx__23484 = (hpushstr(0, newstring("improper syntax-length form"))); - cx__23509 = (hpushstr(0, newstring("improper syntax-error form"))); - cx__23517 = (hpushstr(0, newstring("improper set! form"))); - cx__23527 = (hpushstr(0, newstring("set! to non-identifier form"))); + cx__23472 = (hpushstr(0, newstring("improper quote form"))); + cx__23482 = (hpushstr(0, newstring("improper syntax-length form"))); + cx__23507 = (hpushstr(0, newstring("improper syntax-error form"))); + cx__23515 = (hpushstr(0, newstring("improper set! form"))); + cx__23525 = (hpushstr(0, newstring("set! to non-identifier form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__23540 = (hendblk(3)); } - cx__23565 = (hpushstr(0, newstring("improper set& form"))); - cx__23571 = (hpushstr(0, newstring("set& of a non-variable"))); - cx__23597 = (hpushstr(0, newstring("improper begin form"))); - cx__23622 = (hpushstr(0, newstring("improper if form"))); - cx__23640 = (hpushstr(0, newstring("malformed if form"))); + cx__23538 = (hendblk(3)); } + cx__23563 = (hpushstr(0, newstring("improper set& form"))); + cx__23569 = (hpushstr(0, newstring("set& of a non-variable"))); + cx__23595 = (hpushstr(0, newstring("improper begin form"))); + cx__23620 = (hpushstr(0, newstring("improper if form"))); + cx__23638 = (hpushstr(0, newstring("malformed if form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1115,32 +1193,32 @@ case 0: /* load module */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__23650 = (hendblk(3)); } - cx__23673 = (hpushstr(0, newstring("improper application"))); - cx__23933 = (hpushstr(0, newstring("improper lambda body"))); - cx__23979 = (hpushstr(0, newstring("improper lambda* form"))); - cx__23981 = (hpushstr(0, newstring("improper lambda* clause"))); - cx__231020 = (hpushstr(0, newstring("improper syntax-lambda body"))); - cx__231028 = (hpushstr(0, newstring("invalif syntax-lambda application"))); - cx__231054 = (hpushstr(0, newstring("improper letcc form"))); - cx__231070 = (hpushstr(0, newstring("improper withcc form"))); - cx__231113 = (hpushstr(0, newstring("improper define-syntax form"))); + cx__23648 = (hendblk(3)); } + cx__23669 = (hpushstr(0, newstring("improper application"))); + cx__23929 = (hpushstr(0, newstring("improper lambda body"))); + cx__23972 = (hpushstr(0, newstring("improper lambda* form"))); + cx__23974 = (hpushstr(0, newstring("improper lambda* clause"))); + cx__231013 = (hpushstr(0, newstring("improper syntax-lambda body"))); + cx__231021 = (hpushstr(0, newstring("invalif syntax-lambda application"))); + cx__231047 = (hpushstr(0, newstring("improper letcc form"))); + cx__231063 = (hpushstr(0, newstring("improper withcc form"))); + cx__231106 = (hpushstr(0, newstring("improper define-syntax form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("undefined"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231120 = (hendblk(3)); } - cx__231133 = (hpushstr(0, newstring("improper define form"))); - cx__231177 = (hpushstr(0, newstring("improper body form"))); + cx__231113 = (hendblk(3)); } + cx__231126 = (hpushstr(0, newstring("improper define form"))); + cx__231167 = (hpushstr(0, newstring("improper body form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231251 = (hendblk(3)); } - cx__231315 = (hpushstr(0, newstring("improper use of ..."))); - cx__231763 = (hpushstr(0, newstring("invalid syntax"))); + cx__231239 = (hendblk(3)); } + cx__231303 = (hpushstr(0, newstring("improper use of ..."))); + cx__231735 = (hpushstr(0, newstring("invalid syntax"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1314,12 +1392,12 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__231823 = (hendblk(3)); } - cx__231906 = (hpushstr(0, newstring("compiler: "))); - cx__231951 = (hpushstr(0, newstring("cannot encode literal"))); - cx__232044 = (hpushstr(0, newstring("0123456789"))); - cx__232065 = (hpushstr(0, newstring("misplaced define form"))); - cx__232412 = (hpushstr(0, newstring("unsupported integrable type"))); + cx__231795 = (hendblk(3)); } + cx__231878 = (hpushstr(0, newstring("compiler: "))); + cx__231913 = (hpushstr(0, newstring("cannot encode literal"))); + cx__232006 = (hpushstr(0, newstring("0123456789"))); + cx__232027 = (hpushstr(0, newstring("misplaced define form"))); + cx__232371 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1337,33 +1415,33 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232719 = (hendblk(3)); } + cx__232678 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - cx__232884 = (hendblk(3)); } + cx__232843 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; - cx__233022 = (hpushstr(0, newstring(s))); } + cx__232981 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; - cx__233027 = (hpushstr(0, newstring(s))); } + cx__232986 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; - cx__233031 = (hpushstr(0, newstring(s))); } + cx__232990 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 10, 0 }; - cx__233055 = (hpushstr(0, newstring(s))); } + cx__233014 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 }; - cx__233056 = (hpushstr(0, newstring(s))); } + cx__233015 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 34, 0 }; - cx__233065 = (hpushstr(0, newstring(s))); } + cx__233024 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 }; - cx__233066 = (hpushstr(0, newstring(s))); } + cx__233025 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 }; - cx__233077 = (hpushstr(0, newstring(s))); } + cx__233036 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 }; - cx__233100 = (hpushstr(0, newstring(s))); } - cx__233169 = (hpushstr(0, newstring("r"))); - cx__233173 = (hpushstr(0, newstring("cannot open input file"))); + cx__233059 = (hpushstr(0, newstring(s))); } + cx__233120 = (hpushstr(0, newstring("r"))); + cx__233124 = (hpushstr(0, newstring("cannot open input file"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -1381,15 +1459,15 @@ case 0: /* load module */ *--hp = r[0]; *--hp = obj_from_char(92); *--hp = obj_from_size(PAIR_BTAG); - cx__233295 = (hendblk(3)); } + cx__233244 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; - cx__233337 = (hpushstr(0, newstring(s))); } - cx__233345 = (hpushstr(0, newstring("_code[] = {"))); - cx__233346 = (hpushstr(0, newstring("char *"))); - cx__233347 = (hpushstr(0, newstring(" */"))); - cx__233348 = (hpushstr(0, newstring(".c -- generated via skint -c "))); - cx__233349 = (hpushstr(0, newstring("/* "))); - cx__233372 = (hpushstr(0, newstring("K5"))); + cx__233280 = (hpushstr(0, newstring(s))); } + cx__233288 = (hpushstr(0, newstring("_code[] = {"))); + cx__233289 = (hpushstr(0, newstring("char *"))); + cx__233290 = (hpushstr(0, newstring(" */"))); + cx__233291 = (hpushstr(0, newstring(".c -- generated via skint -c "))); + cx__233292 = (hpushstr(0, newstring("/* "))); + cx__233315 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2205,7 +2283,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233376 = (hendblk(3)); } + cx__233319 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2805,7 +2883,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233646 = (hendblk(3)); } + cx__233589 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4005,7 +4083,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__233848 = (hendblk(3)); } + cx__233791 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -4389,7 +4467,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234250 = (hendblk(3)); } + cx__234193 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5529,16 +5607,16 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234380 = (hendblk(3)); } - cx__234788 = (hpushstr(0, newstring(" ms."))); - cx__234812 = (hpushstr(0, newstring("Elapsed time: "))); - cx__234813 = (hpushstr(0, newstring("Running tests ..."))); - cx__234869 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); - cx__234876 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); - cx__234883 = (hpushstr(0, newstring("unexpected transformed output"))); - cx__234885 = (hpushstr(0, newstring("TRANSFORM =>"))); + cx__234323 = (hendblk(3)); } + cx__234731 = (hpushstr(0, newstring(" ms."))); + cx__234755 = (hpushstr(0, newstring("Elapsed time: "))); + cx__234756 = (hpushstr(0, newstring("Running tests ..."))); + cx__234812 = (hpushstr(0, newstring("DECODE+EXECUTE =>"))); + cx__234819 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); + cx__234826 = (hpushstr(0, newstring("unexpected transformed output"))); + cx__234828 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 }; - cx__234941 = (hpushstr(0, newstring(s))); } + cx__234884 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5550,8 +5628,8 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("main"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234972 = (hendblk(3)); } - cx__234977 = (hpushstr(0, newstring("unexpected benchmark file format"))); + cx__234915 = (hendblk(3)); } + cx__234920 = (hpushstr(0, newstring("unexpected benchmark file format"))); r[0] = (hpushstr(0, newstring("libl.sf"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5564,21 +5642,21 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("load"))); *--hp = obj_from_size(PAIR_BTAG); - cx__234978 = (hendblk(3)); } + cx__234921 = (hendblk(3)); } r[0] = (hpushstr(0, newstring("-v"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__234996 = (hendblk(3)); } + cx__234939 = (hendblk(3)); } r[0] = (hpushstr(0, newstring("-t"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); - cx__234999 = (hendblk(3)); } + cx__234942 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5591,7 +5669,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__235005 = (hendblk(3)); } + cx__234948 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5604,7 +5682,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__235013 = (hendblk(3)); } + cx__234956 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -5617,7 +5695,7 @@ case 0: /* load module */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - cx__235021 = (hendblk(3)); } + cx__234964 = (hendblk(3)); } { static obj c[] = { obj_from_case(1) }; cx_set_2Dmember_3F = (obj)c; } { static obj c[] = { obj_from_case(2) }; cx_set_2Dcons = (obj)c; } { static obj c[] = { obj_from_case(3) }; cx_set_2Dunion = (obj)c; } @@ -5701,28 +5779,28 @@ case 0: /* load module */ cx_x_2Derror = (hendblk(3)); } { static obj c[] = { obj_from_case(54) }; cx_xform = (obj)c; } { static obj c[] = { obj_from_case(62) }; cx_xform_2Dsexp_2D_3Edatum = (obj)c; } - { static obj c[] = { obj_from_case(69) }; cx_xform_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(71) }; cx_xform_2Dquote = (obj)c; } - { static obj c[] = { obj_from_case(73) }; cx_xform_2Dsyntax_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(74) }; cx_xform_2Dsyntax_2Derror = (obj)c; } - { static obj c[] = { obj_from_case(78) }; cx_xform_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(81) }; cx_xform_2Dset_26 = (obj)c; } - { static obj c[] = { obj_from_case(83) }; cx_xform_2Dbegin = (obj)c; } - { static obj c[] = { obj_from_case(87) }; cx_xform_2Dif = (obj)c; } - { static obj c[] = { obj_from_case(91) }; cx_xform_2Dcall = (obj)c; } - { static obj c[] = { obj_from_case(95) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; } - { static obj c[] = { obj_from_case(96) }; cx_xform_2Dintegrable = (obj)c; } - { static obj c[] = { obj_from_case(103) }; cx_xform_2Dlambda = (obj)c; } - { static obj c[] = { obj_from_case(114) }; cx_xform_2Dlambda_2A = (obj)c; } - { static obj c[] = { obj_from_case(121) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } - { static obj c[] = { obj_from_case(129) }; cx_xform_2Dletcc = (obj)c; } - { static obj c[] = { obj_from_case(134) }; cx_xform_2Dwithcc = (obj)c; } - { static obj c[] = { obj_from_case(137) }; cx_xform_2Dbody = (obj)c; } - { static obj c[] = { obj_from_case(145) }; cx_xform_2Dlabels = (obj)c; } - { static obj c[] = { obj_from_case(156) }; cx_xform_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(159) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(70) }; cx_xform_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(72) }; cx_xform_2Dquote = (obj)c; } + { static obj c[] = { obj_from_case(74) }; cx_xform_2Dsyntax_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(75) }; cx_xform_2Dsyntax_2Derror = (obj)c; } + { static obj c[] = { obj_from_case(79) }; cx_xform_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(82) }; cx_xform_2Dset_26 = (obj)c; } + { static obj c[] = { obj_from_case(84) }; cx_xform_2Dbegin = (obj)c; } + { static obj c[] = { obj_from_case(88) }; cx_xform_2Dif = (obj)c; } + { static obj c[] = { obj_from_case(93) }; cx_xform_2Dcall = (obj)c; } + { static obj c[] = { obj_from_case(97) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; } + { static obj c[] = { obj_from_case(98) }; cx_xform_2Dintegrable = (obj)c; } + { static obj c[] = { obj_from_case(105) }; cx_xform_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(117) }; cx_xform_2Dlambda_2A = (obj)c; } + { static obj c[] = { obj_from_case(124) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(132) }; cx_xform_2Dletcc = (obj)c; } + { static obj c[] = { obj_from_case(137) }; cx_xform_2Dwithcc = (obj)c; } + { static obj c[] = { obj_from_case(140) }; cx_xform_2Dbody = (obj)c; } + { static obj c[] = { obj_from_case(149) }; cx_xform_2Dlabels = (obj)c; } + { static obj c[] = { obj_from_case(161) }; cx_xform_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(164) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(162); + *--hp = obj_from_case(167); r[0] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5928,11 +6006,11 @@ case 0: /* load module */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__2Atransformers_2A = (hendblk(3)); } - { static obj c[] = { obj_from_case(163) }; cx_top_2Dtransformer_2Denv = (obj)c; } - { static obj c[] = { obj_from_case(167) }; cx_install_2Dtransformer_21 = (obj)c; } - { static obj c[] = { obj_from_case(169) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } + { static obj c[] = { obj_from_case(168) }; cx_top_2Dtransformer_2Denv = (obj)c; } + { static obj c[] = { obj_from_case(172) }; cx_install_2Dtransformer_21 = (obj)c; } + { static obj c[] = { obj_from_case(174) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(172); + *--hp = obj_from_case(177); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -5940,9 +6018,9 @@ case 0: /* load module */ *--hp = obj_from_fixnum(+2); *--hp = obj_from_objptr(appcases+1); cx_transform = (hendblk(3)); } - { static obj c[] = { obj_from_case(173) }; cx_syntax_2Drules_2A = (obj)c; } + { static obj c[] = { obj_from_case(178) }; cx_syntax_2Drules_2A = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(229); + *--hp = obj_from_case(238); r[0] = (hendblk(0+1)); r[1+0] = r[0]; r[1+1] = (mksymbol(internsym("syntax-rules"))); @@ -6532,16 +6610,16 @@ gs_normalize_2Darity: /* k arity */ r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13986; + goto s_loop_v14006; } -s_loop_v13986: /* k cnt l */ +s_loop_v14006: /* k cnt l */ if ((ispair((r[2])))) { r[3] = (cdr((r[2]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[1]))); r[2] = r[3]; - goto s_loop_v13986; + goto s_loop_v14006; } else { if ((isnull((r[2])))) { { /* cons */ @@ -6599,10 +6677,10 @@ gs_flatten_2Didslist: /* k ilist */ r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13973; + goto s_loop_v13993; } -s_loop_v13973: /* k l r */ +s_loop_v13993: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); @@ -6615,7 +6693,7 @@ s_loop_v13973: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v13973; + goto s_loop_v13993; } else { if ((isnull((r[1])))) { { /* reverse! */ @@ -7540,21 +7618,19 @@ s_conv: /* k sexp */ goto s_conv; } else { if ((isvector((r[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); } - hreserve(hbsz(1+1), 4); /* 4 live regs */ + hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(68); - r[4] = (hendblk(1+1)); - r[0] = r[4]; - r[1] = r[3]; - /* r[2] */ - goto s_loop_v13702; + *--hp = r[2]; + *--hp = obj_from_case(66); + r[3] = (hendblk(2+1)); + r[4+0] = (cx_vector_2D_3Elist); + 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; } else { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -7611,19 +7687,35 @@ case 65: /* clo ek r */ rc = 3; goto jump; -s_loop_v13702: /* k l conv */ +case 66: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r conv k */ + hreserve(hbsz(1+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(69); + r[4] = (hendblk(1+1)); + r[0] = r[4]; + /* r[1] */ + /* r[2] */ + goto s_loop_v13718; + +s_loop_v13718: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(66); + *--hp = obj_from_case(67); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13702; + goto s_loop_v13718; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -7634,7 +7726,7 @@ s_loop_v13702: /* k l conv */ goto jump; } -case 66: /* clo ek r */ +case 67: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7645,7 +7737,7 @@ case 66: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(67); + *--hp = obj_from_case(68); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -7655,7 +7747,7 @@ case 66: /* clo ek r */ rc = 3; goto jump; -case 67: /* clo ek r */ +case 68: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7677,40 +7769,28 @@ case 67: /* clo ek r */ rc = 3; goto jump; -case 68: /* clo ek r */ +case 69: /* clo 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 v14256_tmp; - { /* length */ - int n; obj l = r[1]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14256_tmp = (n); } - { /* list->vector */ - obj l; int i, c = (v14256_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 */ + r[3+0] = (cx_list_2D_3Evector); + 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 69: /* xform-ref k id env */ +case 70: /* xform-ref k id env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dref: /* k id env */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(70); + *--hp = obj_from_case(71); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -7721,7 +7801,7 @@ gs_xform_2Dref: /* k id env */ rc = 3; goto jump; -case 70: /* clo ek r */ +case 71: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7752,14 +7832,14 @@ case 70: /* clo ek r */ rc = 3; goto jump; -case 71: /* xform-quote k tail env */ +case 72: /* xform-quote k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dquote: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(72); + *--hp = obj_from_case(73); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -7774,7 +7854,7 @@ gs_xform_2Dquote: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23474); + r[4+2] = (cx__23472); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -7782,7 +7862,7 @@ gs_xform_2Dquote: /* k tail env */ goto jump; } -case 72: /* clo ek r */ +case 73: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7808,7 +7888,7 @@ case 72: /* clo ek r */ rc = 3; goto jump; -case 73: /* xform-syntax-length k tail env */ +case 74: /* xform-syntax-length k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Dlength: /* k tail env */ @@ -7854,7 +7934,7 @@ gs_xform_2Dsyntax_2Dlength: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23484); + r[4+2] = (cx__23482); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -7862,30 +7942,30 @@ gs_xform_2Dsyntax_2Dlength: /* k tail env */ goto jump; } -case 74: /* xform-syntax-error k tail env */ +case 75: /* xform-syntax-error k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Derror: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(77); + *--hp = obj_from_case(78); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ - goto s_loop_v13634; + goto s_loop_v13648; -s_loop_v13634: /* k l */ +s_loop_v13648: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(75); + *--hp = obj_from_case(76); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v13634; + goto s_loop_v13648; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -7897,7 +7977,7 @@ s_loop_v13634: /* k l */ goto jump; } -case 75: /* clo ek r */ +case 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7907,13 +7987,13 @@ case 75: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(76); + *--hp = obj_from_case(77); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (car((r[2]))); goto gs_xform_2Dsexp_2D_3Edatum; -case 76: /* clo ek r */ +case 77: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7935,7 +8015,7 @@ case 76: /* clo ek r */ rc = 3; goto jump; -case 77: /* clo ek r */ +case 78: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7968,7 +8048,7 @@ case 77: /* clo ek r */ r[5+0] = (cx_x_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; - r[5+2] = (cx__23509); + r[5+2] = (cx__23507); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -7976,7 +8056,7 @@ case 77: /* clo ek r */ goto jump; } -case 78: /* xform-set! k tail env */ +case 79: /* xform-set! k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_21: /* k tail env */ @@ -7991,7 +8071,7 @@ gs_xform_2Dset_21: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(79); + *--hp = obj_from_case(80); r[3] = (hendblk(3+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -8012,7 +8092,7 @@ gs_xform_2Dset_21: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23517); + r[4+2] = (cx__23515); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8020,7 +8100,7 @@ gs_xform_2Dset_21: /* k tail env */ goto jump; } -case 79: /* clo ek r */ +case 80: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8031,7 +8111,7 @@ case 79: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(80); + *--hp = obj_from_case(81); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -8041,7 +8121,7 @@ case 79: /* clo ek r */ rc = 3; goto jump; -case 80: /* clo ek r */ +case 81: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8080,7 +8160,7 @@ case 80: /* clo ek r */ r[4] = obj_from_bool(!(ispair((r[4])))); if (bool_from_obj(r[4])) { (void)(cdr((r[1])) = (r[3])); - r[4] = (cx__23540); + r[4] = (cx__23538); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -8125,7 +8205,7 @@ case 80: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23527); + r[2] = (cx__23525); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8133,14 +8213,14 @@ case 80: /* clo ek r */ } } -case 81: /* xform-set& k tail env */ +case 82: /* xform-set& k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_26: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(82); + *--hp = obj_from_case(83); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -8160,7 +8240,7 @@ gs_xform_2Dset_26: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23565); + r[4+2] = (cx__23563); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8168,7 +8248,7 @@ gs_xform_2Dset_26: /* k tail env */ goto jump; } -case 82: /* clo ek r */ +case 83: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -8202,7 +8282,7 @@ case 82: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23571); + r[2] = (cx__23569); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8236,7 +8316,7 @@ case 82: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__23571); + r[2] = (cx__23569); rreserve(MAX_HOSTREGS); rc = 3; goto jump; @@ -8244,19 +8324,19 @@ case 82: /* clo ek r */ } } -case 83: /* xform-begin k tail env */ +case 84: /* xform-begin k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbegin: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(86); + *--hp = obj_from_case(87); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13569; + goto s_loop_v13583; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8267,7 +8347,7 @@ gs_xform_2Dbegin: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23597); + r[4+2] = (cx__23595); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8275,19 +8355,19 @@ gs_xform_2Dbegin: /* k tail env */ goto jump; } -s_loop_v13569: /* k l env */ +s_loop_v13583: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(84); + *--hp = obj_from_case(85); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13569; + goto s_loop_v13583; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8298,7 +8378,7 @@ s_loop_v13569: /* k l env */ goto jump; } -case 84: /* clo ek r */ +case 85: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8309,7 +8389,7 @@ case 84: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(85); + *--hp = obj_from_case(86); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8319,7 +8399,7 @@ case 84: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 85: /* clo ek r */ +case 86: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8341,7 +8421,7 @@ case 85: /* clo ek r */ rc = 3; goto jump; -case 86: /* clo ek r */ +case 87: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -8372,7 +8452,7 @@ case 86: /* clo ek r */ rc = 3; goto jump; -case 87: /* xform-if k tail env */ +case 88: /* xform-if k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dif: /* k tail env */ @@ -8380,12 +8460,12 @@ gs_xform_2Dif: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(90); + *--hp = obj_from_case(91); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13538; + goto s_loop_v13552; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -8396,7 +8476,7 @@ gs_xform_2Dif: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23622); + r[4+2] = (cx__23620); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8404,19 +8484,19 @@ gs_xform_2Dif: /* k tail env */ goto jump; } -s_loop_v13538: /* k l env */ +s_loop_v13552: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(88); + *--hp = obj_from_case(89); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13538; + goto s_loop_v13552; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8427,7 +8507,7 @@ s_loop_v13538: /* k l env */ goto jump; } -case 88: /* clo ek r */ +case 89: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8438,7 +8518,7 @@ case 88: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(89); + *--hp = obj_from_case(90); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8448,7 +8528,7 @@ case 88: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 89: /* clo ek r */ +case 90: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8470,7 +8550,7 @@ case 89: /* clo ek r */ rc = 3; goto jump; -case 90: /* clo ek r */ +case 91: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8482,34 +8562,18 @@ case 90: /* clo ek r */ for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[4] = obj_from_fixnum(n); } if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) { - { fixnum_t v14255_tmp; - { /* length */ - int n; obj l = r[1]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14255_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14255_tmp); - hreserve(hbsz(3)*c, 5); /* 5 live regs */ - l = r[1]; t = (cx__23650); /* 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); } } - { /* cons */ - hreserve(hbsz(3), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = (mksymbol(internsym("if"))); - *--hp = obj_from_size(PAIR_BTAG); - r[5] = (hendblk(3)); } - r[6+0] = r[3]; + hreserve(hbsz(1+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(92); + r[5] = (hendblk(1+1)); + r[6+0] = (cx__25append); pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = obj_from_ktrap(); - r[6+2] = r[5]; + r[6+1] = r[5]; + r[6+2] = r[1]; + r[6+3] = (cx__23648); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 3; + rc = 4; goto jump; } else { if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) { @@ -8537,7 +8601,7 @@ case 90: /* clo ek r */ r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[3]; - r[6+2] = (cx__23640); + r[6+2] = (cx__23638); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8546,7 +8610,28 @@ case 90: /* clo ek r */ } } -case 91: /* xform-call k xexp tail env */ +case 92: /* clo 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 = (mksymbol(internsym("if"))); + *--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 93: /* xform-call k xexp tail env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform_2Dcall: /* k xexp tail env */ @@ -8554,12 +8639,12 @@ gs_xform_2Dcall: /* k xexp tail env */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(94); + *--hp = obj_from_case(96); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v13505; + goto s_loop_v13513; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -8570,7 +8655,7 @@ gs_xform_2Dcall: /* k xexp tail env */ r[5+0] = (cx_x_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; - r[5+2] = (cx__23673); + r[5+2] = (cx__23669); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -8578,19 +8663,19 @@ gs_xform_2Dcall: /* k xexp tail env */ goto jump; } -s_loop_v13505: /* k l env */ +s_loop_v13513: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(92); + *--hp = obj_from_case(94); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13505; + goto s_loop_v13513; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8601,7 +8686,7 @@ s_loop_v13505: /* k l env */ goto jump; } -case 92: /* clo ek r */ +case 94: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8612,7 +8697,7 @@ case 92: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(93); + *--hp = obj_from_case(95); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8622,7 +8707,7 @@ case 92: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 93: /* clo ek r */ +case 95: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8644,7 +8729,7 @@ case 93: /* clo ek r */ rc = 3; goto jump; -case 94: /* clo ek r */ +case 96: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8688,7 +8773,7 @@ case 94: /* clo ek r */ goto jump; } -case 95: /* integrable-argc-match? k igt n */ +case 97: /* integrable-argc-match? k igt n */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ @@ -8696,79 +8781,79 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0)); } else { - { const flonum_t v14254_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14254_tmp)); } + { const flonum_t v14264_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14264_tmp)); } } } else { if (((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+1)); } else { - { const flonum_t v14253_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14253_tmp)); } + { const flonum_t v14263_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14263_tmp)); } } } else { if (((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+2)); } else { - { const flonum_t v14252_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14252_tmp)); } + { const flonum_t v14262_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14262_tmp)); } } } else { if (((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+3)); } else { - { const flonum_t v14251_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14251_tmp)); } + { const flonum_t v14261_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14261_tmp)); } } } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { - { const flonum_t v14250_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14250_tmp)); } + { const flonum_t v14260_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14260_tmp)); } } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { - { const flonum_t v14249_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14249_tmp)); } + { const flonum_t v14259_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14259_tmp)); } } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+2)); } else { - { const flonum_t v14248_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14248_tmp)); } + { const flonum_t v14258_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14258_tmp)); } } } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { - { const flonum_t v14247_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14247_tmp)); } + { const flonum_t v14257_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14257_tmp)); } } } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+0) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v14246_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool((v14246_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14256_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool((v14256_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+1)); } else { - { const flonum_t v14245_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14245_tmp)); } + { const flonum_t v14255_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14255_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8778,15 +8863,15 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+1) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v14244_tmp = ((flonum_t)(+1)); - r[3] = obj_from_bool((v14244_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14254_tmp = ((flonum_t)(+1)); + r[3] = obj_from_bool((v14254_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+2)); } else { - { const flonum_t v14243_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14243_tmp)); } + { const flonum_t v14253_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14253_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8796,15 +8881,15 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+2) <= fixnum_from_obj(r[2])); } else { - { const flonum_t v14242_tmp = ((flonum_t)(+2)); - r[3] = obj_from_bool((v14242_tmp) <= flonum_from_obj(r[2])); } + { const flonum_t v14252_tmp = ((flonum_t)(+2)); + r[3] = obj_from_bool((v14252_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+3)); } else { - { const flonum_t v14241_tmp = ((flonum_t)(+3)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14241_tmp)); } + { const flonum_t v14251_tmp = ((flonum_t)(+3)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14251_tmp)); } } } else { r[3] = obj_from_bool(0); @@ -8814,8 +8899,8 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { - { const flonum_t v14240_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14240_tmp)); } + { const flonum_t v14250_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14250_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); @@ -8840,7 +8925,7 @@ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ rc = 3; goto jump; -case 96: /* xform-integrable k ig tail env */ +case 98: /* xform-integrable k ig tail env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform_2Dintegrable: /* k ig tail env */ @@ -8852,7 +8937,7 @@ gs_xform_2Dintegrable: /* k ig tail env */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(97); + *--hp = obj_from_case(99); r[5] = (hendblk(4+1)); r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; @@ -8863,7 +8948,7 @@ gs_xform_2Dintegrable: /* k ig tail env */ rc = 3; goto jump; -case 97: /* clo ek r */ +case 99: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8877,7 +8962,7 @@ case 97: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(98); + *--hp = obj_from_case(100); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[3]; @@ -8888,7 +8973,7 @@ case 97: /* clo ek r */ r[2] = r[7]; goto gs_integrable_2Dargc_2Dmatch_3F; -case 98: /* clo ek r */ +case 100: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8901,12 +8986,12 @@ case 98: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(101); + *--hp = obj_from_case(103); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13456; + goto s_loop_v13464; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; @@ -8915,7 +9000,7 @@ case 98: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(102); + *--hp = obj_from_case(104); r[7] = (hendblk(3+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -8926,19 +9011,19 @@ case 98: /* clo ek r */ goto jump; } -s_loop_v13456: /* k l env */ +s_loop_v13464: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(99); + *--hp = obj_from_case(101); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13456; + goto s_loop_v13464; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -8949,7 +9034,7 @@ s_loop_v13456: /* k l env */ goto jump; } -case 99: /* clo ek r */ +case 101: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8960,7 +9045,7 @@ case 99: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(100); + *--hp = obj_from_case(102); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -8970,7 +9055,7 @@ case 99: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 100: /* clo ek r */ +case 102: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8992,7 +9077,7 @@ case 100: /* clo ek r */ rc = 3; goto jump; -case 101: /* clo ek r */ +case 103: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9019,7 +9104,7 @@ case 101: /* clo ek r */ rc = 3; goto jump; -case 102: /* clo ek r */ +case 104: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9047,7 +9132,7 @@ case 102: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dcall; -case 103: /* xform-lambda k tail env */ +case 105: /* xform-lambda k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda: /* k tail env */ @@ -9055,7 +9140,7 @@ gs_xform_2Dlambda: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(104); + *--hp = obj_from_case(106); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { r[0] = r[3]; @@ -9069,17 +9154,17 @@ gs_xform_2Dlambda: /* k tail env */ r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13370; + goto s_l_v13372; } -case 104: /* clo ek r */ +case 106: /* clo ek r */ assert(rc == 3); { obj* p = objptr_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_v13370: /* ek r env tail k */ +s_l_v13372: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; @@ -9089,7 +9174,7 @@ s_l_v13370: /* ek r env tail k */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13371; + goto s_loop_v13373; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -9100,24 +9185,24 @@ s_l_v13370: /* ek r env tail k */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__23933); + r[2] = (cx__23929); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 105: /* clo k vars ienv ipars */ +case 107: /* clo k vars ienv ipars */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v13371: /* k vars ienv ipars tail */ +s_loop_v13373: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; - *--hp = obj_from_case(105); + *--hp = obj_from_case(107); r[6] = (hendblk(1+1)); hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[0]; @@ -9126,7 +9211,7 @@ s_loop_v13371: /* k vars ienv ipars tail */ *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(106); + *--hp = obj_from_case(108); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[5]; @@ -9136,7 +9221,7 @@ s_loop_v13371: /* k vars ienv ipars tail */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(109); + *--hp = obj_from_case(111); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[4]))); @@ -9144,12 +9229,12 @@ s_loop_v13371: /* k vars ienv ipars tail */ goto gs_xform_2Dbody; } else { hreserve(hbsz(5+1), 5); /* 5 live regs */ - *--hp = r[3]; *--hp = r[0]; + *--hp = r[3]; *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(110); + *--hp = obj_from_case(112); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ @@ -9157,7 +9242,7 @@ s_loop_v13371: /* k vars ienv ipars tail */ } } -case 106: /* clo ek r */ +case 108: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9175,7 +9260,7 @@ case 106: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(107); + *--hp = obj_from_case(109); r[8] = (hendblk(6+1)); r[9+0] = (cx_gensym); pc = objptr_from_obj(r[9+0])[0]; @@ -9186,7 +9271,7 @@ case 106: /* clo ek r */ rc = 3; goto jump; -case 107: /* clo ek r */ +case 109: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9203,7 +9288,7 @@ case 107: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(108); + *--hp = obj_from_case(110); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = r[3]; @@ -9213,7 +9298,7 @@ case 107: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 108: /* clo ek r */ +case 110: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9240,7 +9325,7 @@ case 108: /* clo ek r */ rc = 5; goto jump; -case 109: /* clo ek r */ +case 111: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9253,13 +9338,13 @@ case 109: /* clo ek r */ *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } - { fixnum_t v14239_tmp; + { fixnum_t v14249_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14239_tmp = (n); } + v14249_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14239_tmp); + obj l, o = mknull(); int c = (v14249_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); @@ -9285,7 +9370,7 @@ case 109: /* clo ek r */ rc = 3; goto jump; -case 110: /* clo ek r */ +case 112: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9294,14 +9379,14 @@ case 110: /* clo ek r */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ - /* ek r ienv vars tail k ipars */ + /* ek r ienv vars tail ipars 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(111); + *--hp = obj_from_case(113); r[7] = (hendblk(5+1)); r[8+0] = (cx_gensym); pc = objptr_from_obj(r[8+0])[0]; @@ -9312,7 +9397,7 @@ case 110: /* clo ek r */ rc = 3; goto jump; -case 111: /* clo ek r */ +case 113: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9321,13 +9406,13 @@ case 111: /* clo ek r */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ - /* ek r ienv vars tail k ipars */ + /* ek r ienv vars tail ipars k */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; - *--hp = r[1]; *--hp = r[5]; + *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(112); + *--hp = obj_from_case(114); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[3]; @@ -9337,7 +9422,7 @@ case 111: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 112: /* clo ek r */ +case 114: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9345,12 +9430,12 @@ case 112: /* clo ek r */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ - /* ek r tail k r ipars */ + /* ek r tail r ipars k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(113); + *--hp = obj_from_case(115); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = (cdr((r[2]))); @@ -9359,80 +9444,87 @@ case 112: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; -case 113: /* clo ek r */ +case 115: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_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 ipars */ + /* ek r r ipars k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v14237_tmp; + hreserve(hbsz(2+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = obj_from_case(116); + r[6] = (hendblk(2+1)); + { fixnum_t v14248_tmp; { /* length */ - int n; obj l = r[4]; + int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14237_tmp = (n); } + v14248_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14237_tmp); - hreserve(hbsz(3)*c, 6); /* 6 live regs */ - l = r[4]; /* gc-safe */ + obj l, o = mknull(); int c = (v14248_tmp); + hreserve(hbsz(3)*c, 7); /* 7 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[6] = (o); } } - { fixnum_t v14238_tmp; - { /* length */ - int n; obj l = r[6]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14238_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14238_tmp); - hreserve(hbsz(3)*c, 7); /* 7 live regs */ - l = r[6]; 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[6] = (o); } } + r[7] = (o); } } + r[8+0] = (cx__25append); + pc = objptr_from_obj(r[8+0])[0]; + r[8+1] = r[6]; + r[8+2] = r[7]; + r[8+3] = r[2]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 116: /* clo ek r */ + assert(rc == 3); + { obj* 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), 7); /* 7 live regs */ - *--hp = r[5]; - *--hp = r[6]; + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); - r[6] = (hendblk(3)); } + r[4] = (hendblk(3)); } { /* cons */ - hreserve(hbsz(3), 7); /* 7 live regs */ - *--hp = r[6]; + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[4]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } + r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = r[7]; + r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 114: /* xform-lambda* k tail env */ +case 117: /* xform-lambda* k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda_2A: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(120); + *--hp = obj_from_case(123); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v13326; + goto s_loop_v13328; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -9443,7 +9535,7 @@ gs_xform_2Dlambda_2A: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__23979); + r[4+2] = (cx__23972); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9451,19 +9543,19 @@ gs_xform_2Dlambda_2A: /* k tail env */ goto jump; } -s_loop_v13326: /* k l env */ +s_loop_v13328: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(115); + *--hp = obj_from_case(118); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13326; + goto s_loop_v13328; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -9474,7 +9566,7 @@ s_loop_v13326: /* k l env */ goto jump; } -case 115: /* clo ek r */ +case 118: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9486,13 +9578,13 @@ case 115: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(116); + *--hp = obj_from_case(119); r[6] = (hendblk(2+1)); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(117); + *--hp = obj_from_case(120); r[6] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_3F((r[5])))) { r[7] = (car((r[5]))); @@ -9516,7 +9608,7 @@ case 115: /* clo ek r */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(116); + *--hp = obj_from_case(119); r[8] = (hendblk(2+1)); r[9+0] = obj_from_ktrap(); r[9+1] = r[7]; @@ -9525,7 +9617,7 @@ case 115: /* clo ek r */ r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13330; + goto s_l_v13332; } else { r[0] = r[6]; r[1] = (car((r[5]))); @@ -9535,7 +9627,7 @@ case 115: /* clo ek r */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(116); + *--hp = obj_from_case(119); r[7] = (hendblk(2+1)); r[8+0] = obj_from_ktrap(); r[8+1] = obj_from_bool(0); @@ -9544,87 +9636,9 @@ case 115: /* clo ek r */ r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13330; + goto s_l_v13332; } -case 116: /* clo ek r */ - assert(rc == 3); - { obj* 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 117: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_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_v13330: /* ek r env aexp k */ - if (bool_from_obj(r[1])) { - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(118); - r[5] = (hendblk(2+1)); - r[6] = (cdr((r[3]))); - r[6] = (car((r[6]))); - r[7+0] = r[5]; - r[7+1] = obj_from_bool(0); - r[7+2] = r[6]; - r[7+3] = r[2]; - r += 7; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_xform; - } else { - r[0] = (cx_x_2Derror); - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cx__23981); - /* r[3] */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 118: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r aexp k */ - { /* cons */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = (mknull()); - *--hp = r[1]; - *--hp = obj_from_size(PAIR_BTAG); - r[4] = (hendblk(3)); } - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(119); - r[5] = (hendblk(2+1)); - r[0] = r[5]; - r[1] = (car((r[2]))); - goto gs_normalize_2Darity; - case 119: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -9648,6 +9662,84 @@ case 119: /* clo ek r */ goto jump; case 120: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_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_v13332: /* ek r env aexp k */ + if (bool_from_obj(r[1])) { + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(121); + r[5] = (hendblk(2+1)); + r[6] = (cdr((r[3]))); + r[6] = (car((r[6]))); + r[7+0] = r[5]; + r[7+1] = obj_from_bool(0); + r[7+2] = r[6]; + r[7+3] = r[2]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_xform; + } else { + r[0] = (cx_x_2Derror); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (cx__23974); + /* r[3] */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } + +case 121: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r aexp k */ + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = (mknull()); + *--hp = r[1]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(122); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = (car((r[2]))); + goto gs_normalize_2Darity; + +case 122: /* clo ek r */ + assert(rc == 3); + { obj* 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 123: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9668,7 +9760,7 @@ case 120: /* clo ek r */ rc = 3; goto jump; -case 121: /* xform-syntax-lambda k tail env */ +case 124: /* xform-syntax-lambda k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ @@ -9676,11 +9768,11 @@ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(122); + *--hp = obj_from_case(125); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { hreserve(hbsz(0+1), 4); /* 4 live regs */ - *--hp = obj_from_case(128); + *--hp = obj_from_case(131); r[4] = (hendblk(0+1)); r[5+0] = r[3]; r[5+1] = r[4]; @@ -9696,17 +9788,17 @@ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ r[4+4] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v13272; + goto s_l_v13274; } -case 122: /* clo ek r */ +case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_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_v13272: /* ek r k env tail */ +s_l_v13274: /* ek r k env tail */ if (bool_from_obj(r[1])) { r[5] = (car((r[4]))); r[6] = (cdr((r[4]))); @@ -9714,7 +9806,7 @@ s_l_v13272: /* ek r k env tail */ *--hp = r[5]; *--hp = r[3]; *--hp = r[6]; - *--hp = obj_from_case(123); + *--hp = obj_from_case(126); r[5] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -9733,14 +9825,14 @@ s_l_v13272: /* ek r k env tail */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; - r[2] = (cx__231020); + r[2] = (cx__231013); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 123: /* clo k use useenv */ +case 126: /* clo k use useenv */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -9749,18 +9841,18 @@ case 123: /* clo k use useenv */ r += 1; /* shift reg. wnd */ /* k use useenv forms env vars */ if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { - { fixnum_t v14236_tmp; - { fixnum_t v14235_tmp; + { fixnum_t v14247_tmp; + { fixnum_t v14246_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14236_tmp = (n); } + v14247_tmp = (n); } r[6] = (cdr((r[1]))); { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14235_tmp = (n); } - r[6] = obj_from_bool((v14236_tmp) == (v14235_tmp)); } } + v14246_tmp = (n); } + r[6] = obj_from_bool((v14247_tmp) == (v14246_tmp)); } } } else { r[6] = obj_from_bool(0); } @@ -9774,12 +9866,12 @@ case 123: /* clo k use useenv */ r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13275; + goto s_loop_v13277; } else { r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231028); + r[6+2] = (cx__231021); r[6+3] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9787,17 +9879,17 @@ case 123: /* clo k use useenv */ goto jump; } -case 124: /* clo k vars exps env */ +case 127: /* clo k vars exps env */ 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_loop_v13275: /* k vars exps env useenv forms */ +s_loop_v13277: /* k vars exps env useenv forms */ if ((isnull((r[1])))) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; - *--hp = obj_from_case(125); + *--hp = obj_from_case(128); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; @@ -9807,7 +9899,7 @@ s_loop_v13275: /* k vars exps env useenv forms */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(124); + *--hp = obj_from_case(127); r[6] = (hendblk(2+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[0]; @@ -9815,7 +9907,7 @@ s_loop_v13275: /* k vars exps env useenv forms */ *--hp = r[2]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(126); + *--hp = obj_from_case(129); r[6] = (hendblk(5+1)); r[0] = r[6]; r[1] = obj_from_bool(1); @@ -9824,7 +9916,7 @@ s_loop_v13275: /* k vars exps env useenv forms */ goto gs_xform; } -case 125: /* clo ek r */ +case 128: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9850,7 +9942,7 @@ case 125: /* clo ek r */ rc = 3; goto jump; -case 126: /* clo ek r */ +case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9865,7 +9957,7 @@ case 126: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(127); + *--hp = obj_from_case(130); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = (car((r[5]))); @@ -9875,7 +9967,7 @@ case 126: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dbinding; -case 127: /* clo ek r */ +case 130: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9895,7 +9987,7 @@ case 127: /* clo ek r */ rc = 5; goto jump; -case 128: /* clo k x */ +case 131: /* clo k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -9908,7 +10000,7 @@ case 128: /* clo k x */ rc = 3; goto jump; -case 129: /* xform-letcc k tail env */ +case 132: /* xform-letcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dletcc: /* k tail env */ @@ -9925,7 +10017,7 @@ gs_xform_2Dletcc: /* k tail env */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(130); + *--hp = obj_from_case(133); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[3]; @@ -9940,7 +10032,7 @@ gs_xform_2Dletcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231054); + r[4+2] = (cx__231047); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -9948,7 +10040,7 @@ gs_xform_2Dletcc: /* k tail env */ goto jump; } -case 130: /* clo ek r */ +case 133: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9962,7 +10054,7 @@ case 130: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(131); + *--hp = obj_from_case(134); r[6] = (hendblk(4+1)); r[7+0] = (cx_gensym); pc = objptr_from_obj(r[7+0])[0]; @@ -9973,7 +10065,7 @@ case 130: /* clo ek r */ rc = 3; goto jump; -case 131: /* clo ek r */ +case 134: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9986,7 +10078,7 @@ case 131: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(132); + *--hp = obj_from_case(135); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[3]; @@ -9996,7 +10088,7 @@ case 131: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 132: /* clo ek r */ +case 135: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10007,7 +10099,7 @@ case 132: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(133); + *--hp = obj_from_case(136); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = (cdr((r[2]))); @@ -10016,7 +10108,7 @@ case 132: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; -case 133: /* clo ek r */ +case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10049,7 +10141,7 @@ case 133: /* clo ek r */ rc = 3; goto jump; -case 134: /* xform-withcc k tail env */ +case 137: /* xform-withcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dwithcc: /* k tail env */ @@ -10058,7 +10150,7 @@ gs_xform_2Dwithcc: /* k tail env */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(135); + *--hp = obj_from_case(138); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); @@ -10074,7 +10166,7 @@ gs_xform_2Dwithcc: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231070); + r[4+2] = (cx__231063); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10082,7 +10174,7 @@ gs_xform_2Dwithcc: /* k tail env */ goto jump; } -case 135: /* clo ek r */ +case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10099,7 +10191,7 @@ case 135: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(136); + *--hp = obj_from_case(139); r[6] = (hendblk(2+1)); r[7+0] = r[6]; r[7+1] = obj_from_bool(0); @@ -10109,7 +10201,7 @@ case 135: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 136: /* clo ek r */ +case 139: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10136,7 +10228,7 @@ case 136: /* clo ek r */ rc = 3; goto jump; -case 137: /* xform-body k tail env */ +case 140: /* xform-body k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbody: /* k tail env */ @@ -10155,8 +10247,17 @@ gs_xform_2Dbody: /* k tail env */ rc = 3; goto jump; } else { - { const bool_t v14234_tmp = (islist((r[1]))); - r[3] = obj_from_bool(!(v14234_tmp)); } + if (bool_from_obj(cxs_list1_3F((r[1])))) { + r[3+0] = r[0]; + r[3+1] = obj_from_bool(0); + r[3+2] = (car((r[1]))); + r[3+3] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_xform; + } else { + { const bool_t v14245_tmp = (islist((r[1]))); + r[3] = obj_from_bool(!(v14245_tmp)); } if (bool_from_obj(r[3])) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -10167,7 +10268,7 @@ gs_xform_2Dbody: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231177); + r[4+2] = (cx__231167); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -10182,14 +10283,15 @@ gs_xform_2Dbody: /* k tail env */ r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13156; + goto s_loop_v13152; + } } } -case 138: /* clo k env ids inits nids body */ +case 141: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ -s_loop_v13156: /* k env ids inits nids body */ +s_loop_v13152: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); @@ -10202,7 +10304,7 @@ s_loop_v13156: /* k env ids inits nids body */ r[8] = (car((r[6]))); r[9] = (cdr((r[6]))); hreserve(hbsz(0+1), 10); /* 10 live regs */ - *--hp = obj_from_case(138); + *--hp = obj_from_case(141); r[10] = (hendblk(0+1)); hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[9]; @@ -10211,11 +10313,11 @@ s_loop_v13156: /* k env ids inits nids body */ *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; - *--hp = r[7]; *--hp = (r[10]); + *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(139); + *--hp = obj_from_case(142); r[10] = (hendblk(10+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -10225,37 +10327,37 @@ s_loop_v13156: /* k env ids inits nids body */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { - { fixnum_t v14233_tmp; + { fixnum_t v14244_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14233_tmp = (n); } + v14244_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14233_tmp); + obj l, o = mknull(); int c = (v14244_tmp); hreserve(hbsz(3)*c, 6); /* 6 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[6] = (o); } } - { fixnum_t v14232_tmp; + { fixnum_t v14243_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14232_tmp = (n); } + v14243_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14232_tmp); + obj l, o = mknull(); int c = (v14243_tmp); hreserve(hbsz(3)*c, 7); /* 7 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[7] = (o); } } - { fixnum_t v14231_tmp; + { fixnum_t v14242_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14231_tmp = (n); } + v14242_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14231_tmp); + obj l, o = mknull(); int c = (v14242_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -10272,7 +10374,7 @@ s_loop_v13156: /* k env ids inits nids body */ goto gs_xform_2Dlabels; } -case 139: /* clo ek r */ +case 142: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10286,41 +10388,31 @@ case 139: /* clo ek r */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ - /* ek r body first loop rest nids inits ids env k tail */ + /* ek r body first rest loop nids inits ids env k tail */ if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) { if ((islist((r[11])))) { - { fixnum_t v14230_tmp; - { /* length */ - int n; obj l = (r[11]); - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14230_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14230_tmp); - hreserve(hbsz(3)*c, 12); /* 12 live regs */ - l = (r[11]); 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[12] = (o); } } - r[13+0] = r[4]; - pc = objptr_from_obj(r[13+0])[0]; - r[13+1] = (r[10]); - r[13+2] = r[9]; - r[13+3] = r[8]; - r[13+4] = r[7]; - r[13+5] = r[6]; - r[13+6] = (r[12]); - r += 13; /* shift reg wnd */ + hreserve(hbsz(6+1), 12); /* 12 live regs */ + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = obj_from_case(143); + r[12] = (hendblk(6+1)); + r[0] = (cx__25append); + pc = objptr_from_obj(r[0])[0]; + r[1] = (r[12]); + r[2] = (r[11]); + r[3] = r[4]; rreserve(MAX_HOSTREGS); - rc = 7; + rc = 4; goto jump; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); - r[2] = (cx__23597); + r[2] = (cx__23595); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -10355,14 +10447,14 @@ case 139: /* clo ek r */ *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[15] = (hendblk(3)); } - r[16+0] = r[4]; + r[16+0] = r[5]; pc = objptr_from_obj(r[16+0])[0]; r[16+1] = (r[10]); r[16+2] = r[9]; r[16+3] = (r[13]); r[16+4] = (r[14]); r[16+5] = (r[15]); - r[16+6] = r[5]; + r[16+6] = r[4]; r += 16; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; @@ -10385,10 +10477,10 @@ case 139: /* clo ek r */ *--hp = (r[13]); *--hp = r[7]; *--hp = r[6]; - *--hp = r[5]; *--hp = r[4]; + *--hp = r[5]; *--hp = r[9]; - *--hp = obj_from_case(140); + *--hp = obj_from_case(144); r[14] = (hendblk(9+1)); r[0] = (r[14]); r[1] = (r[12]); @@ -10397,7 +10489,7 @@ case 139: /* clo ek r */ r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); - r[2] = (cx__231133); + r[2] = (cx__231126); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -10423,20 +10515,20 @@ case 139: /* clo ek r */ *--hp = (r[13]); *--hp = r[7]; *--hp = r[6]; - *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(143); + *--hp = r[5]; + *--hp = obj_from_case(147); r[14] = (hendblk(8+1)); r[0] = (r[14]); r[1] = (r[12]); - r[2] = (cx__231120); + r[2] = (cx__231113); r[3] = r[9]; goto gs_add_2Dbinding; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); - r[2] = (cx__231113); + r[2] = (cx__231106); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -10445,14 +10537,14 @@ case 139: /* clo ek r */ } else { if ((isprocedure((r[1])))) { hreserve(hbsz(7+1), 12); /* 12 live regs */ - *--hp = r[5]; + *--hp = r[4]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = r[4]; - *--hp = obj_from_case(144); + *--hp = r[5]; + *--hp = obj_from_case(148); r[12] = (hendblk(7+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -10463,37 +10555,37 @@ case 139: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14229_tmp; + { fixnum_t v14241_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14229_tmp = (n); } + v14241_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14229_tmp); + obj l, o = mknull(); int c = (v14241_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } - { fixnum_t v14228_tmp; + { fixnum_t v14240_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14228_tmp = (n); } + v14240_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14228_tmp); + obj l, o = mknull(); int c = (v14240_tmp); hreserve(hbsz(3)*c, 13); /* 13 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[13] = (o); } } - { fixnum_t v14227_tmp; + { fixnum_t v14239_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14227_tmp = (n); } + v14239_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14227_tmp); + obj l, o = mknull(); int c = (v14239_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -10513,7 +10605,31 @@ case 139: /* clo ek r */ } } -case 140: /* clo ek r */ +case 143: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 loop nids inits ids env k */ + 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+3] = r[5]; + r[8+4] = r[4]; + r[8+5] = r[3]; + r[8+6] = r[1]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 7; + goto jump; + +case 144: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10537,7 +10653,7 @@ case 140: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(141); + *--hp = obj_from_case(145); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); pc = objptr_from_obj(r[12+0])[0]; @@ -10548,7 +10664,7 @@ case 140: /* clo ek r */ rc = 3; goto jump; -case 141: /* clo ek r */ +case 145: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10572,7 +10688,7 @@ case 141: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(142); + *--hp = obj_from_case(146); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; @@ -10582,7 +10698,7 @@ case 141: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; -case 142: /* clo ek r */ +case 146: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10627,7 +10743,7 @@ case 142: /* clo ek r */ rc = 7; goto jump; -case 143: /* clo ek r */ +case 147: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10671,7 +10787,7 @@ case 143: /* clo ek r */ rc = 7; goto jump; -case 144: /* clo ek r */ +case 148: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10702,7 +10818,7 @@ case 144: /* clo ek r */ rc = 7; goto jump; -case 145: /* xform-labels k ids inits nids body env */ +case 149: /* xform-labels k ids inits nids body env */ assert(rc == 7); r += 1; /* shift reg. wnd */ gs_xform_2Dlabels: /* k ids inits nids body env */ @@ -10716,31 +10832,31 @@ gs_xform_2Dlabels: /* k ids inits nids body env */ r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v13065; + goto s_loop_v13055; -case 146: /* clo k ids inits nids sets lids */ +case 150: /* clo k ids inits nids sets lids */ assert(rc == 7); { obj* p = objptr_from_obj(r[0]); r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v13065: /* k ids inits nids sets lids env body */ +s_loop_v13055: /* k ids inits nids sets lids env body */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(146); + *--hp = obj_from_case(150); r[8] = (hendblk(2+1)); if ((isnull((r[1])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ - *--hp = r[4]; *--hp = r[5]; *--hp = r[0]; - *--hp = obj_from_case(149); + *--hp = r[4]; + *--hp = obj_from_case(153); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; - goto s_loop_v13113; + goto s_loop_v13109; } else { r[9] = (car((r[1]))); r[9] = obj_from_bool(!bool_from_obj(r[9])); @@ -10753,7 +10869,7 @@ s_loop_v13065: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(152); + *--hp = obj_from_case(157); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = obj_from_bool(0); @@ -10772,7 +10888,7 @@ s_loop_v13065: /* k ids inits nids sets lids env body */ *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; - *--hp = obj_from_case(153); + *--hp = obj_from_case(158); r[9] = (hendblk(7+1)); r[10] = (car((r[2]))); { /* cons */ @@ -10802,7 +10918,7 @@ s_loop_v13065: /* k ids inits nids sets lids env body */ *--hp = r[5]; *--hp = r[8]; *--hp = r[6]; - *--hp = obj_from_case(154); + *--hp = obj_from_case(159); r[9] = (hendblk(8+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; @@ -10816,19 +10932,19 @@ s_loop_v13065: /* k ids inits nids sets lids env body */ } } -s_loop_v13113: /* k l env */ +s_loop_v13109: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(147); + *--hp = obj_from_case(151); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v13113; + goto s_loop_v13109; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -10839,7 +10955,7 @@ s_loop_v13113: /* k l env */ goto jump; } -case 147: /* clo ek r */ +case 151: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10850,7 +10966,7 @@ case 147: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(148); + *--hp = obj_from_case(152); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); @@ -10860,7 +10976,7 @@ case 147: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 148: /* clo ek r */ +case 152: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10882,81 +10998,88 @@ case 148: /* clo ek r */ rc = 3; goto jump; -case 149: /* clo ek r */ +case 153: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_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 lids sets */ - { fixnum_t v14225_tmp; + /* ek r sets k lids */ + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(154); + r[5] = (hendblk(2+1)); + { fixnum_t v14238_tmp; { /* length */ - int n; obj l = r[4]; + int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14225_tmp = (n); } + v14238_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14225_tmp); - hreserve(hbsz(3)*c, 5); /* 5 live regs */ - l = r[4]; /* gc-safe */ + obj l, o = mknull(); int c = (v14238_tmp); + hreserve(hbsz(3)*c, 6); /* 6 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[5] = (o); } } - { fixnum_t v14226_tmp; - { /* length */ - int n; obj l = r[5]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14226_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14226_tmp); - hreserve(hbsz(3)*c, 6); /* 6 live regs */ - l = r[5]; 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[6] = (o); } } - if (bool_from_obj(cxs_list1_3F((r[6])))) { - r[7] = (car((r[6]))); + r[7+0] = (cx__25append); + pc = objptr_from_obj(r[7+0])[0]; + r[7+1] = r[5]; + r[7+2] = r[6]; + r[7+3] = r[1]; + r += 7; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + 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; /* shift reg. wnd */ + /* ek r k lids */ + if (bool_from_obj(cxs_list1_3F((r[1])))) { + r[4] = (car((r[1]))); } else { { /* cons */ - hreserve(hbsz(3), 7); /* 7 live regs */ - *--hp = r[6]; + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[1]; *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } + r[4] = (hendblk(3)); } } if ((isnull((r[3])))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = r[7]; + r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { - hreserve(hbsz(3+1), 8); /* 8 live regs */ + hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[2]; - *--hp = r[7]; + *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(151); - r[8] = (hendblk(3+1)); - r[0] = r[8]; + *--hp = obj_from_case(156); + r[5] = (hendblk(3+1)); + r[0] = r[5]; r[1] = r[3]; - goto s_loop_v13098; + goto s_loop_v13090; } -s_loop_v13098: /* k l */ +s_loop_v13090: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(150); + *--hp = obj_from_case(155); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v13098; + goto s_loop_v13090; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -10968,7 +11091,7 @@ s_loop_v13098: /* k l */ goto jump; } -case 150: /* clo ek r */ +case 155: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -10977,7 +11100,7 @@ case 150: /* clo ek r */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = (cx__231251); + *--hp = (cx__231239); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; @@ -10989,7 +11112,7 @@ case 150: /* clo ek r */ rc = 3; goto jump; -case 151: /* clo ek r */ +case 156: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11003,13 +11126,13 @@ case 151: /* clo ek r */ *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } - { fixnum_t v14224_tmp; + { fixnum_t v14237_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14224_tmp = (n); } + v14237_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14224_tmp); + obj l, o = mknull(); int c = (v14237_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -11038,7 +11161,7 @@ case 151: /* clo ek r */ rc = 5; goto jump; -case 152: /* clo ek r */ +case 157: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11069,7 +11192,7 @@ case 152: /* clo ek r */ rc = 7; goto jump; -case 153: /* clo ek r */ +case 158: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11107,7 +11230,7 @@ case 153: /* clo ek r */ rc = 7; goto jump; -case 154: /* clo ek r */ +case 159: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11129,7 +11252,7 @@ case 154: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(155); + *--hp = obj_from_case(160); r[10] = (hendblk(8+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); @@ -11139,7 +11262,7 @@ case 154: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_xform; -case 155: /* clo ek r */ +case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11166,7 +11289,7 @@ case 155: /* clo ek r */ rc = 7; goto jump; -case 156: /* xform-define k tail env */ +case 161: /* xform-define k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine: /* k tail env */ @@ -11197,7 +11320,7 @@ gs_xform_2Ddefine: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(157); + *--hp = obj_from_case(162); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11218,7 +11341,7 @@ gs_xform_2Ddefine: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231133); + r[4+2] = (cx__231126); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11227,7 +11350,7 @@ gs_xform_2Ddefine: /* k tail env */ } } -case 157: /* clo ek r */ +case 162: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11243,13 +11366,13 @@ case 157: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(158); + *--hp = obj_from_case(163); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 158: /* clo ek r */ +case 163: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11276,7 +11399,7 @@ case 158: /* clo ek r */ rc = 3; goto jump; -case 159: /* xform-define-syntax k tail env */ +case 164: /* xform-define-syntax k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ @@ -11290,7 +11413,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(160); + *--hp = obj_from_case(165); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); @@ -11311,7 +11434,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231113); + r[4+2] = (cx__231106); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -11319,7 +11442,7 @@ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ goto jump; } -case 160: /* clo ek r */ +case 165: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11335,13 +11458,13 @@ case 160: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(161); + *--hp = obj_from_case(166); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; -case 161: /* clo ek r */ +case 166: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11368,21 +11491,21 @@ case 161: /* clo ek r */ rc = 3; goto jump; -case 162: /* clo k sexp env */ +case 167: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ r[3+0] = (cx_x_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__231315); + r[3+2] = (cx__231303); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 163: /* top-transformer-env k id */ +case 168: /* top-transformer-env k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_top_2Dtransformer_2Denv: /* k id */ @@ -11402,7 +11525,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(164); + *--hp = obj_from_case(169); r[4] = (hendblk(2+1)); r[5+0] = (cx_transform); pc = objptr_from_obj(r[5+0])[0]; @@ -11430,7 +11553,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(165); + *--hp = obj_from_case(170); r[4] = (hendblk(2+1)); r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; @@ -11443,7 +11566,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(166); + *--hp = obj_from_case(171); r[3] = (hendblk(1+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; @@ -11455,7 +11578,7 @@ gs_top_2Dtransformer_2Denv: /* k id */ } } -case 164: /* clo ek r */ +case 169: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11471,7 +11594,7 @@ case 164: /* clo ek r */ rc = 3; goto jump; -case 165: /* clo ek r */ +case 170: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11515,7 +11638,7 @@ case 165: /* clo ek r */ rc = 3; goto jump; -case 166: /* clo ek r */ +case 171: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11530,20 +11653,20 @@ case 166: /* clo ek r */ rc = 3; goto jump; -case 167: /* install-transformer! k s t */ +case 172: /* install-transformer! k s t */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s t */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(168); + *--hp = obj_from_case(173); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_top_2Dtransformer_2Denv; -case 168: /* clo ek r */ +case 173: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11559,14 +11682,14 @@ case 168: /* clo ek r */ rc = 3; goto jump; -case 169: /* install-transformer-rules! k s ell lits rules */ +case 174: /* install-transformer-rules! k s ell lits rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ /* k s ell lits rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(170); + *--hp = obj_from_case(175); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cx_top_2Dtransformer_2Denv); @@ -11575,7 +11698,7 @@ case 169: /* install-transformer-rules! k s ell lits rules */ /* r[4] */ goto gs_syntax_2Drules_2A; -case 170: /* clo ek r */ +case 175: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11585,13 +11708,13 @@ case 170: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(171); + *--hp = obj_from_case(176); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_top_2Dtransformer_2Denv; -case 171: /* clo ek r */ +case 176: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11607,7 +11730,7 @@ case 171: /* clo ek r */ rc = 3; goto jump; -case 172: /* clo k appos? sexp optenv */ +case 177: /* clo k appos? sexp optenv */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k appos? sexp optenv */ @@ -11617,22 +11740,22 @@ case 172: /* clo k appos? sexp optenv */ r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3])))); goto gs_xform; -case 173: /* syntax-rules* k mac-env ellipsis pat-literals rules */ +case 178: /* syntax-rules* k mac-env ellipsis pat-literals rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(175); + *--hp = obj_from_case(180); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; - *--hp = obj_from_case(177); + *--hp = obj_from_case(182); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(174); + *--hp = obj_from_case(179); r[7] = (hendblk(1+1)); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[4]; @@ -11641,7 +11764,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ *--hp = r[7]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(183); + *--hp = obj_from_case(189); r[5] = (hendblk(6+1)); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; @@ -11652,7 +11775,7 @@ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ rc = 3; goto jump; -case 174: /* clo k id */ +case 179: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11672,7 +11795,7 @@ case 174: /* clo k id */ rc = 3; goto jump; -case 175: /* clo k x */ +case 180: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11693,7 +11816,7 @@ case 175: /* clo k x */ if (bool_from_obj(cxs_id_3F((r[4])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(176); + *--hp = obj_from_case(181); r[5] = (hendblk(1+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -11723,7 +11846,7 @@ case 175: /* clo k x */ goto jump; } -case 176: /* clo ek r */ +case 181: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11738,7 +11861,7 @@ case 176: /* clo ek r */ rc = 3; goto jump; -case 177: /* clo k x include-scalars pred? */ +case 182: /* clo k x include-scalars pred? */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -11754,7 +11877,7 @@ case 177: /* clo k x include-scalars pred? */ rreserve(MAX_HOSTREGS); goto s_collect; -case 178: /* clo k x inc l */ +case 183: /* clo k x inc l */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -11764,14 +11887,14 @@ s_collect: /* 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(178); + *--hp = obj_from_case(183); r[6] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(179); + *--hp = obj_from_case(184); r[7] = (hendblk(3+1)); if (bool_from_obj(r[2])) { r[8+0] = r[5]; @@ -11790,24 +11913,25 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ r[8+4] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12894; + goto s_l_v12884; } } else { if ((isvector((r[1])))) { - { /* vector->list */ - obj v, l = mknull(); int c = (vectorlen((r[1]))); - hreserve(hbsz(3)*c, 7); /* 7 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[7] = (l); } - /* r[0] */ - r[1] = r[7]; - /* r[2] */ - /* r[3] */ - /* r[4] */ - /* r[5] */ - goto s_collect; + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[3]; + *--hp = r[6]; + *--hp = obj_from_case(185); + r[7] = (hendblk(4+1)); + r[8+0] = (cx_vector_2D_3Elist); + 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; } else { if ((ispair((r[1])))) { hreserve(hbsz(5+1), 7); /* 7 live regs */ @@ -11816,7 +11940,7 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(180); + *--hp = obj_from_case(186); r[7] = (hendblk(5+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -11838,14 +11962,14 @@ s_collect: /* k x inc l ellipsis-pair? pred? */ } } -case 179: /* clo ek r */ +case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_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_v12894: /* ek r k l x */ +s_l_v12884: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -11870,7 +11994,27 @@ s_l_v12894: /* ek r k l x */ goto jump; } -case 180: /* clo ek r */ +case 185: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r collect l inc k */ + 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+3] = r[4]; + r[6+4] = r[3]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 186: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11885,7 +12029,7 @@ case 180: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(181); + *--hp = obj_from_case(187); r[7] = (hendblk(3+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -11905,7 +12049,7 @@ case 180: /* clo ek r */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; - *--hp = obj_from_case(182); + *--hp = obj_from_case(188); r[7] = (hendblk(4+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -11919,7 +12063,7 @@ case 180: /* clo ek r */ goto jump; } -case 181: /* clo ek r */ +case 187: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11938,7 +12082,7 @@ case 181: /* clo ek r */ rc = 5; goto jump; -case 182: /* clo ek r */ +case 188: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11958,7 +12102,7 @@ case 182: /* clo ek r */ rc = 5; goto jump; -case 183: /* clo k use use-env */ +case 189: /* clo k use use-env */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -11980,9 +12124,9 @@ case 183: /* clo k use use-env */ r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12574; + goto s_loop_v12540; -case 184: /* clo k rules */ +case 190: /* clo k rules */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11993,7 +12137,7 @@ case 184: /* clo k rules */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_loop_v12574: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ +s_loop_v12540: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; @@ -12002,7 +12146,7 @@ s_loop_v12574: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(184); + *--hp = obj_from_case(190); r[9] = (hendblk(7+1)); hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[1]; @@ -12015,13 +12159,13 @@ s_loop_v12574: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(185); + *--hp = obj_from_case(191); r[9] = (hendblk(10+1)); if ((isnull((r[1])))) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; - r[2] = (cx__231763); + r[2] = (cx__231735); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; @@ -12035,7 +12179,7 @@ s_loop_v12574: /* k rules use-env pat-literals use mac-env not-pat-literal? elli *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(184); + *--hp = obj_from_case(190); r[10] = (hendblk(7+1)); r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_void(0); @@ -12051,10 +12195,10 @@ s_loop_v12574: /* k rules use-env pat-literals use mac-env not-pat-literal? elli r[11+11] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12576; + goto s_l_v12542; } -case 185: /* clo ek . */ +case 191: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -12069,7 +12213,7 @@ case 185: /* clo ek . */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ -s_l_v12576: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ +s_l_v12542: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ r[12] = (car((r[11]))); r[13] = (car((r[12]))); r[14] = (cdr((r[12]))); @@ -12084,7 +12228,7 @@ s_l_v12576: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[6]; *--hp = (r[11]); *--hp = r[5]; - *--hp = obj_from_case(186); + *--hp = obj_from_case(192); r[15] = (hendblk(9+1)); hreserve(hbsz(8+1), 16); /* 16 live regs */ *--hp = (r[13]); @@ -12095,7 +12239,7 @@ s_l_v12576: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip *--hp = r[7]; *--hp = r[9]; *--hp = r[8]; - *--hp = obj_from_case(210); + *--hp = obj_from_case(217); r[16] = (hendblk(8+1)); r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[0])[0]; @@ -12105,7 +12249,7 @@ s_l_v12576: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellip rc = 3; goto jump; -case 186: /* clo ek r */ +case 192: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12137,11 +12281,11 @@ case 186: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(187); + *--hp = obj_from_case(193); r[13] = (hendblk(10+1)); hreserve(hbsz(1+1), 14); /* 14 live regs */ *--hp = r[1]; - *--hp = obj_from_case(209); + *--hp = obj_from_case(216); r[14] = (hendblk(1+1)); r[15+0] = r[8]; pc = objptr_from_obj(r[15+0])[0]; @@ -12163,7 +12307,7 @@ case 186: /* clo ek r */ goto jump; } -case 187: /* clo ek r */ +case 193: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12188,26 +12332,26 @@ case 187: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(191); + *--hp = obj_from_case(197); r[12] = (hendblk(9+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ - goto s_loop_v12827; + goto s_loop_v12811; -s_loop_v12827: /* k l mac-env */ +s_loop_v12811: /* k l mac-env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(188); + *--hp = obj_from_case(194); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12827; + goto s_loop_v12811; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -12218,7 +12362,7 @@ s_loop_v12827: /* k l mac-env */ goto jump; } -case 188: /* clo ek r */ +case 194: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12231,7 +12375,7 @@ case 188: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(189); + *--hp = obj_from_case(195); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -12241,7 +12385,7 @@ case 188: /* clo ek r */ rc = 3; goto jump; -case 189: /* clo ek r */ +case 195: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12253,13 +12397,13 @@ case 189: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(190); + *--hp = obj_from_case(196); r[5] = (hendblk(3+1)); r[0] = r[5]; /* r[1] */ goto gs_new_2Did; -case 190: /* clo ek r */ +case 196: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12287,7 +12431,7 @@ case 190: /* clo ek r */ rc = 3; goto jump; -case 191: /* clo ek r */ +case 197: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12310,7 +12454,7 @@ case 191: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(192); + *--hp = obj_from_case(198); r[11] = (hendblk(8+1)); r[12+0] = r[5]; pc = objptr_from_obj(r[12+0])[0]; @@ -12323,7 +12467,7 @@ case 191: /* clo ek r */ rc = 5; goto jump; -case 192: /* clo ek r */ +case 198: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12350,7 +12494,7 @@ case 192: /* clo ek r */ rreserve(MAX_HOSTREGS); goto s_expand; -case 193: /* clo k tmpl bindings */ +case 199: /* clo k tmpl bindings */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -12366,7 +12510,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(193); + *--hp = obj_from_case(199); r[8] = (hendblk(5+1)); r[9+0] = r[0]; r[9+1] = r[1]; @@ -12381,7 +12525,7 @@ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals rreserve(MAX_HOSTREGS); goto s_expand_2Dpart; -case 194: /* clo k tmpl */ +case 200: /* clo k tmpl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12401,7 +12545,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(194); + *--hp = obj_from_case(200); r[9] = (hendblk(7+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* assq */ @@ -12436,27 +12580,19 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite goto jump; } else { if ((isvector((r[1])))) { - { /* vector->list */ - obj v, l = mknull(); int c = (vectorlen((r[1]))); - hreserve(hbsz(3)*c, 10); /* 10 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[10] = (l); } - hreserve(hbsz(1+1), 11); /* 11 live regs */ + hreserve(hbsz(2+1), 10); /* 10 live regs */ *--hp = r[0]; - *--hp = obj_from_case(195); - r[11] = (hendblk(1+1)); - r[0] = (r[11]); - r[1] = (r[10]); - /* r[2] */ - /* r[3] */ - /* r[4] */ - /* r[5] */ - /* r[6] */ - /* r[7] */ - /* r[8] */ - goto s_expand_2Dpart; + *--hp = r[9]; + *--hp = obj_from_case(201); + r[10] = (hendblk(2+1)); + r[11+0] = (cx_vector_2D_3Elist); + pc = objptr_from_obj(r[11+0])[0]; + r[11+1] = (r[10]); + r[11+2] = r[1]; + r += 11; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; } else { hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[1]; @@ -12466,7 +12602,7 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(196); + *--hp = obj_from_case(203); r[10] = (hendblk(7+1)); if ((ispair((r[1])))) { r[11+0] = r[2]; @@ -12489,39 +12625,47 @@ s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-lite r[11+8] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12721; + goto s_l_v12699; } } } -case 195: /* clo ek r */ +case 201: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r expand-part k */ + hreserve(hbsz(1+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(202); + r[4] = (hendblk(1+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 202: /* clo 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 v14223_tmp; - { /* length */ - int n; obj l = r[1]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14223_tmp = (n); } - { /* list->vector */ - obj l; int i, c = (v14223_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 */ + r[3+0] = (cx_list_2D_3Evector); + 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 196: /* clo ek r */ +case 203: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12532,7 +12676,7 @@ case 196: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v12721: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ +s_l_v12699: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ if (bool_from_obj(r[1])) { hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[8]; @@ -12540,11 +12684,11 @@ s_l_v12721: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(197); + *--hp = obj_from_case(204); r[9] = (hendblk(5+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; - *--hp = obj_from_case(206); + *--hp = obj_from_case(213); r[10] = (hendblk(1+1)); r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; @@ -12562,7 +12706,7 @@ s_l_v12721: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(207); + *--hp = obj_from_case(214); r[9] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -12582,7 +12726,7 @@ s_l_v12721: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ } } -case 197: /* clo ek r */ +case 204: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12599,7 +12743,7 @@ case 197: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; - *--hp = obj_from_case(198); + *--hp = obj_from_case(205); r[8] = (hendblk(3+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -12613,7 +12757,7 @@ case 197: /* clo ek r */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(200); + *--hp = obj_from_case(207); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); @@ -12630,15 +12774,15 @@ case 197: /* clo ek r */ *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(203); + *--hp = obj_from_case(210); r[8] = (hendblk(4+1)); r[0] = r[8]; /* r[1] */ /* r[2] */ - goto s_loop_v12760; + goto s_loop_v12738; } -case 198: /* clo k vals */ +case 205: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12650,7 +12794,7 @@ case 198: /* clo k vals */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(199); + *--hp = obj_from_case(206); r[5] = (hendblk(3+1)); r[6+0] = (cx__25residual_2Dmap); pc = objptr_from_obj(r[6+0])[0]; @@ -12663,7 +12807,7 @@ case 198: /* clo k vals */ rc = 5; goto jump; -case 199: /* clo ek r */ +case 206: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12681,207 +12825,6 @@ case 199: /* clo ek r */ rc = 4; goto jump; -case 200: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_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(201); - 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 201: /* clo ek r */ - assert(rc == 3); - { obj* 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; - -s_loop_v12760: /* k l bindings */ - if ((ispair((r[1])))) { - r[3] = (cdr((r[1]))); - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[1]; - *--hp = r[2]; - *--hp = r[0]; - *--hp = obj_from_case(202); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - r[1] = r[3]; - /* r[2] */ - goto s_loop_v12760; - } 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 202: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_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]))); - { /* assq */ - obj x = (r[5]), l = (r[3]), p = mknull(); - for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } - r[6] = (l == mknull() ? obj_from_bool(0) : p); } - 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 203: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(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-using-vals expand-part tmpl k */ - hreserve(hbsz(3+1), 6); /* 6 live regs */ - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(204); - r[6] = (hendblk(3+1)); - r[7] = (objptr_from_obj(r[2])[0]); - { /* cons */ - hreserve(hbsz(3), 8); /* 8 live regs */ - *--hp = r[1]; - *--hp = r[7]; - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } - r[8+0] = (cx_apply); - pc = objptr_from_obj(r[8+0])[0]; - r[8+1] = r[6]; - r[8+2] = (cx__25residual_2Dmap); - r[8+3] = r[7]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 204: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+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(205); - r[5] = (hendblk(2+1)); - r[6] = (cdr((r[3]))); - r[6] = (cdr((r[6]))); - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[5]; - r[2] = r[6]; - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 205: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r k r */ - { fixnum_t v14222_tmp; - { /* length */ - int n; obj l = r[3]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14222_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14222_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 206: /* 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]); - { /* memq */ - obj x = (r[1]), l = r[3]; - 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 207: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -12925,7 +12868,194 @@ case 208: /* clo ek r */ rc = 3; goto jump; -case 209: /* clo k id */ +s_loop_v12738: /* k l bindings */ + if ((ispair((r[1])))) { + r[3] = (cdr((r[1]))); + hreserve(hbsz(3+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[2]; + *--hp = r[0]; + *--hp = obj_from_case(209); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + r[1] = r[3]; + /* r[2] */ + goto s_loop_v12738; + } 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 209: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_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]))); + { /* assq */ + obj x = (r[5]), l = (r[3]), p = mknull(); + for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } + r[6] = (l == mknull() ? obj_from_bool(0) : p); } + 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 210: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(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-using-vals expand-part tmpl k */ + hreserve(hbsz(3+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(211); + r[6] = (hendblk(3+1)); + r[7] = (objptr_from_obj(r[2])[0]); + { /* cons */ + hreserve(hbsz(3), 8); /* 8 live regs */ + *--hp = r[1]; + *--hp = r[7]; + *--hp = obj_from_size(PAIR_BTAG); + r[7] = (hendblk(3)); } + r[8+0] = (cx_apply); + pc = objptr_from_obj(r[8+0])[0]; + r[8+1] = r[6]; + r[8+2] = (cx__25residual_2Dmap); + r[8+3] = r[7]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 211: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_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[4]; + *--hp = r[1]; + *--hp = obj_from_case(212); + r[5] = (hendblk(2+1)); + r[6] = (cdr((r[3]))); + r[6] = (cdr((r[6]))); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[5]; + r[2] = r[6]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 212: /* clo ek r */ + assert(rc == 3); + { 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] = (cx__25append); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = r[2]; + r[4+3] = r[1]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 213: /* 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]); + { /* memq */ + obj x = (r[1]), l = r[3]; + 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 214: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_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(215); + 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 215: /* clo ek r */ + assert(rc == 3); + { obj* 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 216: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12945,7 +13075,7 @@ case 209: /* clo k id */ rc = 3; goto jump; -case 210: /* clo k return */ +case 217: /* clo k return */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12973,7 +13103,7 @@ case 210: /* clo k return */ rreserve(MAX_HOSTREGS); goto s_match; -case 211: /* clo k pat sexp bindings */ +case 218: /* clo k pat sexp bindings */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -12993,12 +13123,12 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(211); + *--hp = obj_from_case(218); r[11] = (hendblk(7+1)); hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); - *--hp = obj_from_case(212); + *--hp = obj_from_case(219); r[12] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* memq */ @@ -13012,7 +13142,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = (r[12]); *--hp = r[1]; *--hp = r[8]; - *--hp = obj_from_case(213); + *--hp = obj_from_case(220); r[13] = (hendblk(4+1)); r[14+0] = r[7]; pc = objptr_from_obj(r[14+0])[0]; @@ -13027,7 +13157,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env r[1] = obj_from_bool(0); r[2] = (r[10]); /* r[3] */ - goto s_l_v12687; + goto s_l_v12665; } } else { { /* cons */ @@ -13055,23 +13185,23 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env if ((isvector((r[1])))) { hreserve(hbsz(5+1), 13); /* 13 live regs */ *--hp = r[0]; - *--hp = r[1]; - *--hp = r[2]; *--hp = r[3]; *--hp = (r[11]); - *--hp = obj_from_case(215); + *--hp = r[2]; + *--hp = r[1]; + *--hp = obj_from_case(222); r[13] = (hendblk(5+1)); if ((isvector((r[2])))) { r[14+0] = obj_from_ktrap(); r[14+1] = obj_from_bool(isvector((r[2]))); - r[14+2] = (r[11]); - r[14+3] = r[3]; - r[14+4] = r[2]; - r[14+5] = r[1]; + r[14+2] = r[1]; + r[14+3] = r[2]; + r[14+4] = (r[11]); + r[14+5] = r[3]; r[14+6] = r[0]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12669; + goto s_l_v12635; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; @@ -13088,7 +13218,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env r[1] = (r[13]); r[2] = (r[10]); /* r[3] */ - goto s_l_v12687; + goto s_l_v12665; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; @@ -13099,7 +13229,7 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env *--hp = r[6]; *--hp = r[5]; *--hp = (r[10]); - *--hp = obj_from_case(216); + *--hp = obj_from_case(225); r[13] = (hendblk(8+1)); r[14+0] = r[4]; pc = objptr_from_obj(r[14+0])[0]; @@ -13113,13 +13243,13 @@ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env } } -case 212: /* clo k condition */ +case 219: /* clo k condition */ assert(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_v12687: /* k condition return bindings */ +s_l_v12665: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13139,7 +13269,7 @@ s_l_v12687: /* k condition return bindings */ goto jump; } -case 213: /* clo ek r */ +case 220: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13152,7 +13282,7 @@ case 213: /* clo ek r */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(214); + *--hp = obj_from_case(221); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13162,7 +13292,7 @@ case 213: /* clo ek r */ rc = 3; goto jump; -case 214: /* clo ek r */ +case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13179,7 +13309,7 @@ case 214: /* clo ek r */ rc = 3; goto jump; -case 215: /* clo ek . */ +case 222: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13189,33 +13319,67 @@ case 215: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v12669: /* ek . match bindings sexp pat k */ - { /* vector->list */ - obj v, l = mknull(); int c = (vectorlen((r[5]))); - hreserve(hbsz(3)*c, 7); /* 7 live regs */ - v = r[5]; /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c); - *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } - r[7] = (l); } - { /* vector->list */ - obj v, l = mknull(); int c = (vectorlen((r[4]))); - hreserve(hbsz(3)*c, 8); /* 8 live regs */ - v = r[4]; /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c); - *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } - r[8] = (l); } - r[9+0] = r[2]; - pc = objptr_from_obj(r[9+0])[0]; - r[9+1] = r[6]; - r[9+2] = r[7]; - r[9+3] = r[8]; - r[9+4] = r[3]; - r += 9; /* shift reg wnd */ +s_l_v12635: /* ek . pat sexp match bindings 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(223); + r[7] = (hendblk(4+1)); + r[0] = (cx_vector_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[7]; + /* r[2] */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 223: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r sexp match bindings k */ + hreserve(hbsz(4+1), 6); /* 6 live regs */ + *--hp = r[5]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(224); + r[6] = (hendblk(4+1)); + r[0] = (cx_vector_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[6]; + /* r[2] */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 224: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(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 bindings r k */ + r[6+0] = r[2]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = r[4]; + r[6+3] = r[1]; + r[6+4] = r[3]; + r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; -case 216: /* clo ek r */ +case 225: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13245,7 +13409,7 @@ case 216: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(217); + *--hp = obj_from_case(226); r[11] = (hendblk(9+1)); if ((islist((r[8])))) { { /* length */ @@ -13265,7 +13429,7 @@ case 216: /* clo ek r */ r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12589; + goto s_l_v12555; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13282,7 +13446,7 @@ case 216: /* clo ek r */ *--hp = r[9]; *--hp = r[8]; *--hp = r[5]; - *--hp = obj_from_case(228); + *--hp = obj_from_case(237); r[10] = (hendblk(4+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -13304,7 +13468,7 @@ case 216: /* clo ek r */ } } -case 217: /* clo ek r */ +case 226: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13317,7 +13481,7 @@ case 217: /* clo ek r */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v12589: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ +s_l_v12555: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[1]; @@ -13328,7 +13492,7 @@ s_l_v12589: /* ek r return list-ids not-pat-literal? match bindings pat k sexp t *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(218); + *--hp = obj_from_case(227); r[11] = (hendblk(9+1)); if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) { r[0] = r[2]; @@ -13352,10 +13516,10 @@ s_l_v12589: /* ek r return list-ids not-pat-literal? match bindings pat k sexp t r[12+10] = (r[10]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v12591; + goto s_l_v12557; } -case 218: /* clo ek . */ +case 227: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -13369,35 +13533,35 @@ case 218: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ -s_l_v12591: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ - { const fixnum_t v14219_tail_2Dlen = fixnum_from_obj(r[10]); +s_l_v12557: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ + { const fixnum_t v14234_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ - obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14219_tail_2Dlen))); + obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14234_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } - { fixnum_t v14220_tmp; + { fixnum_t v14235_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14220_tmp = (n); } + v14235_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14220_tmp); + obj l, o = mknull(); int c = (v14235_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } { /* list-tail */ - obj l = (r[12]); int c = (v14219_tail_2Dlen); + obj l = (r[12]); int c = (v14234_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } - { fixnum_t v14221_tmp; + { fixnum_t v14236_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14221_tmp = (n); } + v14236_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14221_tmp); + obj l, o = mknull(); int c = (v14236_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = (r[12]); /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -13410,7 +13574,7 @@ s_l_v12591: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l *--hp = r[5]; *--hp = r[4]; *--hp = (r[12]); - *--hp = obj_from_case(219); + *--hp = obj_from_case(228); r[13] = (hendblk(6+1)); r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; @@ -13423,7 +13587,7 @@ s_l_v12591: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-l rc = 5; goto jump; } -case 219: /* clo ek r */ +case 228: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13441,15 +13605,15 @@ case 219: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(225); + *--hp = obj_from_case(234); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; - goto s_loop_v12612; + goto s_loop_v12578; -s_loop_v12612: /* k l match pat */ +s_loop_v12578: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ @@ -13457,13 +13621,13 @@ s_loop_v12612: /* k l match pat */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(220); + *--hp = obj_from_case(229); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ - goto s_loop_v12612; + goto s_loop_v12578; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13474,7 +13638,7 @@ s_loop_v12612: /* k l match pat */ goto jump; } -case 220: /* clo ek r */ +case 229: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13489,7 +13653,7 @@ case 220: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[7]; - *--hp = obj_from_case(221); + *--hp = obj_from_case(230); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13501,7 +13665,7 @@ case 220: /* clo ek r */ rc = 5; goto jump; -case 221: /* clo ek r */ +case 230: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13512,26 +13676,26 @@ case 221: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(224); + *--hp = obj_from_case(233); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ - goto s_loop_v12623; + goto s_loop_v12589; -s_loop_v12623: /* k l f */ +s_loop_v12589: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(222); + *--hp = obj_from_case(231); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12623; + goto s_loop_v12589; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13542,7 +13706,7 @@ s_loop_v12623: /* k l f */ goto jump; } -case 222: /* clo ek r */ +case 231: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13553,7 +13717,7 @@ case 222: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(223); + *--hp = obj_from_case(232); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -13563,7 +13727,7 @@ case 222: /* clo ek r */ rc = 3; goto jump; -case 223: /* clo ek r */ +case 232: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13585,7 +13749,7 @@ case 223: /* clo ek r */ rc = 3; goto jump; -case 224: /* clo ek r */ +case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13607,7 +13771,7 @@ case 224: /* clo ek r */ rc = 3; goto jump; -case 225: /* clo ek r */ +case 234: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13636,7 +13800,7 @@ case 225: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(226); + *--hp = obj_from_case(235); r[10] = (hendblk(5+1)); r[0] = (cx_apply); pc = objptr_from_obj(r[0])[0]; @@ -13647,7 +13811,7 @@ case 225: /* clo ek r */ rc = 4; goto jump; -case 226: /* clo ek r */ +case 235: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13658,9 +13822,9 @@ case 226: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r match bindings r pat k */ hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[1]; *--hp = r[6]; - *--hp = obj_from_case(227); + *--hp = r[1]; + *--hp = obj_from_case(236); r[7] = (hendblk(2+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); @@ -13675,38 +13839,24 @@ case 226: /* clo ek r */ rc = 5; goto jump; -case 227: /* clo ek r */ +case 236: /* clo ek r */ assert(rc == 3); { obj* 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 v14218_tmp; - { /* length */ - int n; obj l = r[3]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14218_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14218_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 */ + /* ek r r k */ + r[4+0] = (cx__25append); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r[4+2] = r[2]; + r[4+3] = r[1]; + r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - rc = 3; + rc = 4; goto jump; -case 228: /* clo ek r */ +case 237: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13726,16 +13876,16 @@ case 228: /* clo ek r */ rc = 5; goto jump; -case 229: /* clo ek r */ +case 238: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(230); + *--hp = obj_from_case(239); r[2] = (hendblk(0+1)); (void)(cdr((r[1])) = (r[2])); hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(234); + *--hp = obj_from_case(243); r[2] = (hendblk(0+1)); r[3+0] = r[2]; r[3+1] = (mksymbol(internsym("define"))); @@ -13745,7 +13895,7 @@ case 229: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_add_2Dbinding; -case 230: /* clo k sexp env */ +case 239: /* clo k sexp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k sexp env */ @@ -13757,7 +13907,7 @@ case 230: /* clo k sexp env */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(231); + *--hp = obj_from_case(240); r[4] = (hendblk(4+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -13769,7 +13919,7 @@ case 230: /* clo k sexp env */ r[1] = r[5]; goto gs_new_2Did; -case 231: /* clo ek r */ +case 240: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13786,7 +13936,7 @@ case 231: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(232); + *--hp = obj_from_case(241); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -13806,7 +13956,7 @@ case 231: /* clo ek r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; - *--hp = obj_from_case(233); + *--hp = obj_from_case(242); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); @@ -13820,7 +13970,7 @@ case 231: /* clo ek r */ goto gs_syntax_2Drules_2A; } -case 232: /* clo ek r */ +case 241: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13847,7 +13997,7 @@ case 232: /* clo ek r */ rc = 3; goto jump; -case 233: /* clo ek r */ +case 242: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13874,35 +14024,35 @@ case 233: /* clo ek r */ rc = 3; goto jump; -case 234: /* clo ek r */ +case 243: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(235); + *--hp = obj_from_case(244); r[2] = (hendblk(0+1)); r[3+0] = r[2]; r[3+1] = r[1]; r[3+2] = obj_from_bool(0); r[3+3] = (mknull()); - r[3+4] = (cx__231823); + r[3+4] = (cx__231795); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_syntax_2Drules_2A; -case 235: /* clo ek r */ +case 244: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[1]; - *--hp = obj_from_case(236); + *--hp = obj_from_case(245); r[2] = (hendblk(1+1)); r[0] = r[2]; r[1] = (mksymbol(internsym("define"))); goto gs_top_2Dtransformer_2Denv; -case 236: /* clo ek r */ +case 245: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13910,7 +14060,7 @@ case 236: /* clo ek r */ /* ek r r */ (void)(cdr((r[1])) = (r[2])); cx__2Aglobals_2A = (mknull()); - { static obj c[] = { obj_from_case(237) }; cx_global_2Dlocation = (obj)c; } + { static obj c[] = { obj_from_case(246) }; cx_global_2Dlocation = (obj)c; } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); @@ -13921,7 +14071,7 @@ case 236: /* clo ek r */ cx__2Acurrent_2Doutput_2A = obj_from_bool(0); cx__2Acurrent_2Derror_2A = obj_from_bool(0); hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(238); + *--hp = obj_from_case(247); r[3] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -13929,60 +14079,60 @@ case 236: /* clo ek r */ *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_c_2Derror = (hendblk(3)); } - { static obj c[] = { obj_from_case(239) }; cx_write_2Dserialized_2Dchar = (obj)c; } - { static obj c[] = { obj_from_case(241) }; cx_write_2Dserialized_2Dbyte = (obj)c; } - { static obj c[] = { obj_from_case(243) }; cx_write_2Dserialized_2Dsize = (obj)c; } - { static obj c[] = { obj_from_case(245) }; cx_write_2Dserialized_2Delement = (obj)c; } - { static obj c[] = { obj_from_case(247) }; cx_write_2Dserialized_2Dsexp = (obj)c; } - { static obj c[] = { obj_from_case(266) }; cx_write_2Dserialized_2Darg = (obj)c; } - { static obj c[] = { obj_from_case(268) }; cx_find_2Dfree_2A = (obj)c; } - { static obj c[] = { obj_from_case(271) }; cx_find_2Dfree = (obj)c; } - { static obj c[] = { obj_from_case(300) }; cx_find_2Dsets_2A = (obj)c; } - { static obj c[] = { obj_from_case(303) }; cx_find_2Dsets = (obj)c; } - { static obj c[] = { obj_from_case(332) }; cx_codegen = (obj)c; } - { static obj c[] = { obj_from_case(445) }; cx_compile_2Dto_2Dstring = (obj)c; } + { static obj c[] = { obj_from_case(248) }; cx_write_2Dserialized_2Dchar = (obj)c; } + { static obj c[] = { obj_from_case(250) }; cx_write_2Dserialized_2Dbyte = (obj)c; } + { static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Dsize = (obj)c; } + { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Delement = (obj)c; } + { static obj c[] = { obj_from_case(256) }; cx_write_2Dserialized_2Dsexp = (obj)c; } + { static obj c[] = { obj_from_case(275) }; cx_write_2Dserialized_2Darg = (obj)c; } + { static obj c[] = { obj_from_case(277) }; cx_find_2Dfree_2A = (obj)c; } + { static obj c[] = { obj_from_case(280) }; cx_find_2Dfree = (obj)c; } + { static obj c[] = { obj_from_case(309) }; cx_find_2Dsets_2A = (obj)c; } + { static obj c[] = { obj_from_case(312) }; cx_find_2Dsets = (obj)c; } + { static obj c[] = { obj_from_case(341) }; cx_codegen = (obj)c; } + { static obj c[] = { obj_from_case(455) }; cx_compile_2Dto_2Dstring = (obj)c; } { /* define execute-thunk-closure */ static obj c[] = { obj_from_objptr(vmcases+0) }; cx_execute_2Dthunk_2Dclosure = obj_from_objptr(c); } { /* define make-closure */ static obj c[] = { obj_from_objptr(vmcases+1) }; cx_make_2Dclosure = obj_from_objptr(c); } - { static obj c[] = { obj_from_case(448) }; cx_execute = (obj)c; } + { static obj c[] = { obj_from_case(458) }; cx_execute = (obj)c; } { /* define decode-sexp */ static obj c[] = { obj_from_objptr(vmcases+2) }; cx_decode_2Dsexp = obj_from_objptr(c); } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; cx_decode = obj_from_objptr(c); } - { static obj c[] = { obj_from_case(450) }; cx_evaluate = (obj)c; } + { static obj c[] = { obj_from_case(460) }; cx_evaluate = (obj)c; } cx__2Ahide_2Drefs_2A = (mknull()); - { static obj c[] = { obj_from_case(455) }; cx_display_2Dcode = (obj)c; } - { static obj c[] = { obj_from_case(456) }; cx_process_2Dsyntax = (obj)c; } - { static obj c[] = { obj_from_case(459) }; cx_process_2Dalias = (obj)c; } - { static obj c[] = { obj_from_case(460) }; cx_process_2Dcommand = (obj)c; } - { static obj c[] = { obj_from_case(464) }; cx_process_2Ddefine = (obj)c; } - { static obj c[] = { obj_from_case(471) }; cx_scan_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(484) }; cx_process_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(508) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } - { static obj c[] = { obj_from_case(509) }; cx_path_2Dstrip_2Dextension = (obj)c; } - { static obj c[] = { obj_from_case(510) }; cx_module_2Dname = (obj)c; } - { static obj c[] = { obj_from_case(512) }; cx_process_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(465) }; cx_display_2Dcode = (obj)c; } + { static obj c[] = { obj_from_case(466) }; cx_process_2Dsyntax = (obj)c; } + { static obj c[] = { obj_from_case(469) }; cx_process_2Dalias = (obj)c; } + { static obj c[] = { obj_from_case(470) }; cx_process_2Dcommand = (obj)c; } + { static obj c[] = { obj_from_case(474) }; cx_process_2Ddefine = (obj)c; } + { static obj c[] = { obj_from_case(481) }; cx_scan_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(494) }; cx_process_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(518) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } + { static obj c[] = { obj_from_case(520) }; cx_path_2Dstrip_2Dextension = (obj)c; } + { static obj c[] = { obj_from_case(522) }; cx_module_2Dname = (obj)c; } + { static obj c[] = { obj_from_case(524) }; cx_process_2Dfile = (obj)c; } cx_continuation_2Dadapter_2Dcode = obj_from_bool(0); { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[3] = obj_from_objptr(c); } hreserve(hbsz(0+1), 4); /* 4 live regs */ - *--hp = obj_from_case(521); + *--hp = obj_from_case(533); r[4] = (hendblk(0+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; - r[2] = (cx__233372); + r[2] = (cx__233315); rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 237: /* global-location k sym */ +case 246: /* global-location k sym */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k sym */ @@ -14021,34 +14171,34 @@ case 237: /* global-location k sym */ rc = 3; goto jump; -case 238: /* clo k msg args */ +case 247: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ - int *d = stringcat(stringdata((cx__231906)), stringdata((r[1]))); + int *d = stringcat(stringdata((cx__231878)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; -case 239: /* write-serialized-char k x port */ +case 248: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ - { const char_t v14217_x = char_from_obj(r[1]); - if ((((v14217_x) == ('%')) || (((v14217_x) == (34)) || (((v14217_x) == (92)) || (((v14217_x) < (' ')) || ((v14217_x) > ('~'))))))) { + { const char_t v14233_x = char_from_obj(r[1]); + if ((((v14233_x) == ('%')) || (((v14233_x) == (34)) || (((v14233_x) == (92)) || (((v14233_x) < (' ')) || ((v14233_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(240); + *--hp = obj_from_case(249); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = obj_from_fixnum((fixnum_t)(v14217_x)); + r[4+2] = obj_from_fixnum((fixnum_t)(v14233_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14058,13 +14208,13 @@ gs_write_2Dserialized_2Dchar: /* k x port */ /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc((v14217_x), (r[2]))); + r[2] = obj_from_void(oportputc((v14233_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } -case 240: /* clo ek r */ +case 249: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14082,14 +14232,14 @@ case 240: /* clo ek r */ rc = 3; goto jump; -case 241: /* write-serialized-byte k x port */ +case 250: /* write-serialized-byte k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dbyte: /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(242); + *--hp = obj_from_case(251); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14101,7 +14251,7 @@ gs_write_2Dserialized_2Dbyte: /* k x port */ rc = 4; goto jump; -case 242: /* clo ek r */ +case 251: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14119,14 +14269,14 @@ case 242: /* clo ek r */ rc = 3; goto jump; -case 243: /* write-serialized-size k n port */ +case 252: /* write-serialized-size k n port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(244); + *--hp = obj_from_case(253); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14138,7 +14288,7 @@ case 243: /* write-serialized-size k n port */ rc = 4; goto jump; -case 244: /* clo ek r */ +case 253: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14154,21 +14304,21 @@ case 244: /* clo ek r */ rc = 3; goto jump; -case 245: /* write-serialized-element k x port */ +case 254: /* write-serialized-element k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(246); + *--hp = obj_from_case(255); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; -case 246: /* clo ek . */ +case 255: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14184,7 +14334,7 @@ case 246: /* clo ek . */ rc = 3; goto jump; -case 247: /* write-serialized-sexp k x port */ +case 256: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ @@ -14227,7 +14377,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(248); + *--hp = obj_from_case(257); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); @@ -14260,7 +14410,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(249); + *--hp = obj_from_case(258); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14279,7 +14429,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(252); + *--hp = obj_from_case(261); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14297,7 +14447,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(254); + *--hp = obj_from_case(263); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14315,7 +14465,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(257); + *--hp = obj_from_case(266); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14333,7 +14483,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(260); + *--hp = obj_from_case(269); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; @@ -14352,7 +14502,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(263); + *--hp = obj_from_case(272); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; @@ -14367,7 +14517,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__231951); + r[3+2] = (cx__231913); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -14385,7 +14535,7 @@ gs_write_2Dserialized_2Dsexp: /* k x port */ } } -case 248: /* clo ek r */ +case 257: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14401,7 +14551,7 @@ case 248: /* clo ek r */ rc = 3; goto jump; -case 249: /* clo ek r */ +case 258: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14414,14 +14564,14 @@ case 249: /* clo ek r */ r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; - goto s_loop_v12431; + goto s_loop_v12397; -case 250: /* clo k x */ +case 259: /* 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_v12431: /* k x port */ +s_loop_v12397: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14434,14 +14584,14 @@ s_loop_v12431: /* k x port */ r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(250); + *--hp = obj_from_case(259); r[4] = (hendblk(1+1)); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(251); + *--hp = obj_from_case(260); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; @@ -14454,7 +14604,7 @@ s_loop_v12431: /* k x port */ goto jump; } -case 251: /* clo ek . */ +case 260: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14473,7 +14623,7 @@ case 251: /* clo ek . */ rc = 3; goto jump; -case 252: /* clo ek . */ +case 261: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14487,7 +14637,7 @@ case 252: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(253); + *--hp = obj_from_case(262); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[0])[0]; @@ -14498,7 +14648,7 @@ case 252: /* clo ek . */ rc = 4; goto jump; -case 253: /* clo ek . */ +case 262: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14514,219 +14664,6 @@ case 253: /* clo ek . */ rc = 3; goto jump; -case 254: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_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 x k port */ - (void)(oportputs(stringchars((r[1])), (r[4]))); - (void)(oportputc((':'), (r[4]))); - r[5+0] = r[3]; - r[5+1] = obj_from_fixnum(+0); - r[5+2] = r[4]; - r[5+3] = r[2]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v12402; - -case 255: /* clo k i */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ -s_loop_v12402: /* k i port x */ - if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - r[4] = (vectorref((r[3]), fixnum_from_obj(r[1]))); - hreserve(hbsz(2+1), 5); /* 5 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(255); - r[5] = (hendblk(2+1)); - hreserve(hbsz(4+1), 6); /* 6 live regs */ - *--hp = r[2]; - *--hp = r[0]; - *--hp = r[1]; - *--hp = r[5]; - *--hp = obj_from_case(256); - r[5] = (hendblk(4+1)); - r[6+0] = (cx_write_2Dserialized_2Dsexp); - pc = objptr_from_obj(r[6+0])[0]; - r[6+1] = r[5]; - r[6+2] = r[4]; - r[6+3] = r[2]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } - -case 256: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(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 i k port */ - (void)(oportputc((';'), (r[5]))); - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 257: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek r x k port */ - (void)(oportputs(stringchars((r[1])), (r[4]))); - (void)(oportputc((':'), (r[4]))); - r[5+0] = r[3]; - r[5+1] = obj_from_fixnum(+0); - r[5+2] = r[4]; - r[5+3] = r[2]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v12385; - -case 258: /* clo k i */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ -s_loop_v12385: /* k i port x */ - if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(258); - r[4] = (hendblk(2+1)); - hreserve(hbsz(3+1), 5); /* 5 live regs */ - *--hp = r[0]; - *--hp = r[1]; - *--hp = r[4]; - *--hp = obj_from_case(259); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); - /* r[2] */ - goto gs_write_2Dserialized_2Dchar; - } - -case 259: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . loop i k */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 260: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek r x k port */ - (void)(oportputs(stringchars((r[1])), (r[4]))); - (void)(oportputc((':'), (r[4]))); - r[5+0] = r[3]; - r[5+1] = obj_from_fixnum(+0); - r[5+2] = r[4]; - r[5+3] = r[2]; - r += 5; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto s_loop_v12368; - -case 261: /* clo k i */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ -s_loop_v12368: /* k i port x */ - if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - hreserve(hbsz(2+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(261); - r[4] = (hendblk(2+1)); - hreserve(hbsz(3+1), 5); /* 5 live regs */ - *--hp = r[0]; - *--hp = r[1]; - *--hp = r[4]; - *--hp = obj_from_case(262); - r[4] = (hendblk(3+1)); - r[0] = r[4]; - r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1]))); - /* r[2] */ - goto gs_write_2Dserialized_2Dbyte; - } - -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+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . loop i k */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - case 263: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); @@ -14743,7 +14680,7 @@ case 263: /* clo ek r */ r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v12351; + goto s_loop_v12368; case 264: /* clo k i */ assert(rc == 3); @@ -14751,6 +14688,83 @@ case 264: /* clo k i */ r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ +s_loop_v12368: /* k i port x */ + if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[4] = (vectorref((r[3]), fixnum_from_obj(r[1]))); + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(264); + r[5] = (hendblk(2+1)); + hreserve(hbsz(4+1), 6); /* 6 live regs */ + *--hp = r[2]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[5]; + *--hp = obj_from_case(265); + r[5] = (hendblk(4+1)); + r[6+0] = (cx_write_2Dserialized_2Dsexp); + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = r[4]; + r[6+3] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + 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+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek . loop i k port */ + (void)(oportputc((';'), (r[5]))); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 266: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek r x k port */ + (void)(oportputs(stringchars((r[1])), (r[4]))); + (void)(oportputc((':'), (r[4]))); + r[5+0] = r[3]; + r[5+1] = obj_from_fixnum(+0); + r[5+2] = r[4]; + r[5+3] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v12351; + +case 267: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ s_loop_v12351: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ @@ -14764,13 +14778,13 @@ s_loop_v12351: /* k i port x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(264); + *--hp = obj_from_case(267); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(265); + *--hp = obj_from_case(268); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); @@ -14778,7 +14792,7 @@ s_loop_v12351: /* k i port x */ goto gs_write_2Dserialized_2Dchar; } -case 265: /* clo ek . */ +case 268: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14795,14 +14809,150 @@ case 265: /* clo ek . */ rc = 3; goto jump; -case 266: /* write-serialized-arg k arg port */ +case 269: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek r x k port */ + (void)(oportputs(stringchars((r[1])), (r[4]))); + (void)(oportputc((':'), (r[4]))); + r[5+0] = r[3]; + r[5+1] = obj_from_fixnum(+0); + r[5+2] = r[4]; + r[5+3] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v12334; + +case 270: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v12334: /* k i port x */ + if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(270); + r[4] = (hendblk(2+1)); + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = obj_from_case(271); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1]))); + /* r[2] */ + goto gs_write_2Dserialized_2Dbyte; + } + +case 271: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . loop i k */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 272: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_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 x k port */ + (void)(oportputs(stringchars((r[1])), (r[4]))); + (void)(oportputc((':'), (r[4]))); + r[5+0] = r[3]; + r[5+1] = obj_from_fixnum(+0); + r[5+2] = r[4]; + r[5+3] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v12317; + +case 273: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v12317: /* k i port x */ + if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(273); + r[4] = (hendblk(2+1)); + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = obj_from_case(274); + r[4] = (hendblk(3+1)); + r[0] = r[4]; + r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); + /* r[2] */ + goto gs_write_2Dserialized_2Dchar; + } + +case 274: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . loop i k */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 275: /* write-serialized-arg k arg port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Darg: /* k arg port */ if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) { if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v14216_arg = fixnum_from_obj(r[1]); - r[3] = obj_from_bool(((+0) <= (v14216_arg)) && ((v14216_arg) <= (+9))); } + { const fixnum_t v14232_arg = fixnum_from_obj(r[1]); + r[3] = obj_from_bool(((+0) <= (v14232_arg)) && ((v14232_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } @@ -14810,8 +14960,8 @@ gs_write_2Dserialized_2Darg: /* k arg port */ r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { - { const char_t v14215_tmp = (*(unsigned char*)stringref((cx__232044), fixnum_from_obj(r[1]))); - r[3] = obj_from_void(oportputc((v14215_tmp), (r[2]))); } + { const char_t v14231_tmp = (*(unsigned char*)stringref((cx__232006), fixnum_from_obj(r[1]))); + r[3] = obj_from_void(oportputc((v14231_tmp), (r[2]))); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -14825,7 +14975,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(267); + *--hp = obj_from_case(276); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ @@ -14833,7 +14983,7 @@ gs_write_2Dserialized_2Darg: /* k arg port */ goto gs_write_2Dserialized_2Dsexp; } -case 267: /* clo ek . */ +case 276: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -14849,7 +14999,7 @@ case 267: /* clo ek . */ rc = 3; goto jump; -case 268: /* find-free* k x* b */ +case 277: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ @@ -14866,7 +15016,7 @@ gs_find_2Dfree_2A: /* k x* b */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(269); + *--hp = obj_from_case(278); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -14874,7 +15024,7 @@ gs_find_2Dfree_2A: /* k x* b */ goto gs_find_2Dfree; } -case 269: /* clo ek r */ +case 278: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14885,14 +15035,14 @@ case 269: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(270); + *--hp = obj_from_case(279); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; -case 270: /* clo ek r */ +case 279: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14906,7 +15056,7 @@ case 270: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 271: /* find-free k x b */ +case 280: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ @@ -14914,7 +15064,7 @@ gs_find_2Dfree: /* k x b */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(272); + *--hp = obj_from_case(281); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -14931,7 +15081,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(273); + *--hp = obj_from_case(282); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -14948,7 +15098,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(274); + *--hp = obj_from_case(283); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -14965,7 +15115,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(276); + *--hp = obj_from_case(285); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -14982,7 +15132,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(277); + *--hp = obj_from_case(286); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -14999,7 +15149,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(280); + *--hp = obj_from_case(289); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15022,7 +15172,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(284); + *--hp = obj_from_case(293); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15039,7 +15189,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(286); + *--hp = obj_from_case(295); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15056,7 +15206,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(289); + *--hp = obj_from_case(298); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15073,7 +15223,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(294); + *--hp = obj_from_case(303); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15096,7 +15246,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(295); + *--hp = obj_from_case(304); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15119,7 +15269,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(296); + *--hp = obj_from_case(305); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15142,7 +15292,7 @@ gs_find_2Dfree: /* k x b */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(299); + *--hp = obj_from_case(308); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15181,7 +15331,7 @@ gs_find_2Dfree: /* k x b */ } } -case 272: /* clo k obj */ +case 281: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -15194,7 +15344,7 @@ case 272: /* clo k obj */ rc = 3; goto jump; -case 273: /* clo k id */ +case 282: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15219,7 +15369,7 @@ case 273: /* clo k id */ rc = 3; goto jump; -case 274: /* clo k id exp */ +case 283: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15229,14 +15379,14 @@ case 274: /* clo k id exp */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(275); + *--hp = obj_from_case(284); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 275: /* clo ek r */ +case 284: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15261,7 +15411,7 @@ case 275: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 276: /* clo k id */ +case 285: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15286,7 +15436,7 @@ case 276: /* clo k id */ rc = 3; goto jump; -case 277: /* clo k idsi exp */ +case 286: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15296,13 +15446,13 @@ case 277: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(278); + *--hp = obj_from_case(287); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 278: /* clo ek r */ +case 287: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15313,14 +15463,14 @@ case 278: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(279); + *--hp = obj_from_case(288); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; -case 279: /* clo ek r */ +case 288: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15334,7 +15484,7 @@ case 279: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 280: /* clo k clauses */ +case 289: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15344,26 +15494,26 @@ case 280: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(283); + *--hp = obj_from_case(292); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v12234; + goto s_loop_v12200; -s_loop_v12234: /* k l f */ +s_loop_v12200: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(281); + *--hp = obj_from_case(290); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12234; + goto s_loop_v12200; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15374,7 +15524,7 @@ s_loop_v12234: /* k l f */ goto jump; } -case 281: /* clo ek r */ +case 290: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15385,7 +15535,7 @@ case 281: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(282); + *--hp = obj_from_case(291); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -15395,7 +15545,7 @@ case 281: /* clo ek r */ rc = 3; goto jump; -case 282: /* clo ek r */ +case 291: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15417,7 +15567,7 @@ case 282: /* clo ek r */ rc = 3; goto jump; -case 283: /* clo ek r */ +case 292: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15429,7 +15579,7 @@ case 283: /* clo ek r */ /* r[2] */ goto gs_find_2Dfree_2A; -case 284: /* clo k kid exp */ +case 293: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15438,7 +15588,7 @@ case 284: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(285); + *--hp = obj_from_case(294); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -15451,7 +15601,7 @@ case 284: /* clo k kid exp */ r[2] = r[3]; goto gs_set_2Dunion; -case 285: /* clo ek r */ +case 294: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15465,7 +15615,7 @@ case 285: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 286: /* clo k kexp exp */ +case 295: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15475,14 +15625,14 @@ case 286: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(287); + *--hp = obj_from_case(296); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 287: /* clo ek r */ +case 296: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15493,14 +15643,14 @@ case 287: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(288); + *--hp = obj_from_case(297); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 288: /* clo ek r */ +case 297: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15514,7 +15664,7 @@ case 288: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 289: /* clo k test then else */ +case 298: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -15525,14 +15675,14 @@ case 289: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(290); + *--hp = obj_from_case(299); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dfree; -case 290: /* clo ek r */ +case 299: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15546,14 +15696,14 @@ case 290: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(291); + *--hp = obj_from_case(300); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; -case 291: /* clo ek r */ +case 300: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15566,14 +15716,14 @@ case 291: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(292); + *--hp = obj_from_case(301); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; -case 292: /* clo ek r */ +case 301: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15584,7 +15734,7 @@ case 292: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(293); + *--hp = obj_from_case(302); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -15593,7 +15743,7 @@ case 292: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 293: /* clo ek r */ +case 302: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15607,7 +15757,7 @@ case 293: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 294: /* clo k exps */ +case 303: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15618,7 +15768,7 @@ case 294: /* clo k exps */ /* r[2] */ goto gs_find_2Dfree_2A; -case 295: /* clo k ig args */ +case 304: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15629,7 +15779,7 @@ case 295: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dfree_2A; -case 296: /* clo k exp args */ +case 305: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -15639,14 +15789,14 @@ case 296: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(297); + *--hp = obj_from_case(306); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; -case 297: /* clo ek r */ +case 306: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15657,14 +15807,14 @@ case 297: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(298); + *--hp = obj_from_case(307); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree_2A; -case 298: /* clo ek r */ +case 307: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15678,7 +15828,7 @@ case 298: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 299: /* clo k tail */ +case 308: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -15687,14 +15837,14 @@ case 299: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232065); + r[3+2] = (cx__232027); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 300: /* find-sets* k x* v */ +case 309: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ @@ -15711,7 +15861,7 @@ gs_find_2Dsets_2A: /* k x* v */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(301); + *--hp = obj_from_case(310); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -15719,7 +15869,7 @@ gs_find_2Dsets_2A: /* k x* v */ goto gs_find_2Dsets; } -case 301: /* clo ek r */ +case 310: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15730,14 +15880,14 @@ case 301: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(302); + *--hp = obj_from_case(311); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; -case 302: /* clo ek r */ +case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15751,7 +15901,7 @@ case 302: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 303: /* find-sets k x v */ +case 312: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ @@ -15759,7 +15909,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(304); + *--hp = obj_from_case(313); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15775,7 +15925,7 @@ gs_find_2Dsets: /* k x v */ r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(305); + *--hp = obj_from_case(314); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15792,7 +15942,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(306); + *--hp = obj_from_case(315); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15809,7 +15959,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(308); + *--hp = obj_from_case(317); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15823,63 +15973,6 @@ gs_find_2Dsets: /* k x v */ } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda")))); - if (bool_from_obj(r[3])) { - hreserve(hbsz(1+1), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_case(309); - r[3] = (hendblk(1+1)); - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = r[3]; - r[4+3] = (cdr((r[1]))); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { - r[3] = (car((r[1]))); - r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*")))); - if (bool_from_obj(r[3])) { - hreserve(hbsz(1+1), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_case(312); - r[3] = (hendblk(1+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - r[3] = (hendblk(3)); } - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = r[3]; - r[4+3] = (cdr((r[1]))); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { - r[3] = (car((r[1]))); - r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc")))); - if (bool_from_obj(r[3])) { - hreserve(hbsz(1+1), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_case(316); - r[3] = (hendblk(1+1)); - r[4+0] = (cx_apply); - pc = objptr_from_obj(r[4+0])[0]; - r[4+1] = r[0]; - r[4+2] = r[3]; - r[4+3] = (cdr((r[1]))); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - } else { - r[3] = (car((r[1]))); - r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; @@ -15896,7 +15989,7 @@ gs_find_2Dsets: /* k x v */ goto jump; } else { r[3] = (car((r[1]))); - r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin")))); + r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; @@ -15917,13 +16010,70 @@ gs_find_2Dsets: /* k x v */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; + } else { + r[3] = (car((r[1]))); + r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc")))); + if (bool_from_obj(r[3])) { + hreserve(hbsz(1+1), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_case(325); + r[3] = (hendblk(1+1)); + r[4+0] = (cx_apply); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[0]; + r[4+2] = r[3]; + r[4+3] = (cdr((r[1]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + r[3] = (car((r[1]))); + r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc")))); + if (bool_from_obj(r[3])) { + hreserve(hbsz(1+1), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_case(327); + r[3] = (hendblk(1+1)); + r[4+0] = (cx_apply); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[0]; + r[4+2] = r[3]; + r[4+3] = (cdr((r[1]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + r[3] = (car((r[1]))); + r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin")))); + if (bool_from_obj(r[3])) { + hreserve(hbsz(1+1), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_case(330); + r[3] = (hendblk(1+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + r[3] = (hendblk(3)); } + r[4+0] = (cx_apply); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[0]; + r[4+2] = r[3]; + r[4+3] = (cdr((r[1]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(322); + *--hp = obj_from_case(331); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; @@ -15940,7 +16090,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(327); + *--hp = obj_from_case(336); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15963,7 +16113,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(337); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15986,7 +16136,7 @@ gs_find_2Dsets: /* k x v */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(340); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -16025,7 +16175,7 @@ gs_find_2Dsets: /* k x v */ } } -case 304: /* clo k obj */ +case 313: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -16038,7 +16188,7 @@ case 304: /* clo k obj */ rc = 3; goto jump; -case 305: /* clo k id */ +case 314: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ @@ -16051,7 +16201,7 @@ case 305: /* clo k id */ rc = 3; goto jump; -case 306: /* clo k id x */ +case 315: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16061,14 +16211,14 @@ case 306: /* clo k id x */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(307); + *--hp = obj_from_case(316); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 307: /* clo ek r */ +case 316: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16093,7 +16243,7 @@ case 307: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 308: /* clo k id */ +case 317: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16118,7 +16268,7 @@ case 308: /* clo k id */ rc = 3; goto jump; -case 309: /* clo k idsi exp */ +case 318: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16128,13 +16278,13 @@ case 309: /* clo k idsi exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(310); + *--hp = obj_from_case(319); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; -case 310: /* clo ek r */ +case 319: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16145,7 +16295,7 @@ case 310: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(320); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16154,7 +16304,7 @@ case 310: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 311: /* clo ek r */ +case 320: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16168,7 +16318,7 @@ case 311: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 312: /* clo k clauses */ +case 321: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16178,26 +16328,26 @@ case 312: /* clo k clauses */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(324); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; - goto s_loop_v12017; + goto s_loop_v11983; -s_loop_v12017: /* k l f */ +s_loop_v11983: /* k l f */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(313); + *--hp = obj_from_case(322); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ - goto s_loop_v12017; + goto s_loop_v11983; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16208,7 +16358,7 @@ s_loop_v12017: /* k l f */ goto jump; } -case 313: /* clo ek r */ +case 322: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16219,7 +16369,7 @@ case 313: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(314); + *--hp = obj_from_case(323); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -16229,7 +16379,7 @@ case 313: /* clo ek r */ rc = 3; goto jump; -case 314: /* clo ek r */ +case 323: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16251,7 +16401,7 @@ case 314: /* clo ek r */ rc = 3; goto jump; -case 315: /* clo ek r */ +case 324: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16263,7 +16413,7 @@ case 315: /* clo ek r */ /* r[2] */ goto gs_find_2Dsets_2A; -case 316: /* clo k kid exp */ +case 325: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16272,7 +16422,7 @@ case 316: /* clo k kid exp */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(317); + *--hp = obj_from_case(326); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -16287,7 +16437,7 @@ case 316: /* clo k kid exp */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; -case 317: /* clo ek r */ +case 326: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16301,7 +16451,7 @@ case 317: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; -case 318: /* clo k kexp exp */ +case 327: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16311,14 +16461,14 @@ case 318: /* clo k kexp exp */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(319); + *--hp = obj_from_case(328); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 319: /* clo ek r */ +case 328: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16329,14 +16479,14 @@ case 319: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(320); + *--hp = obj_from_case(329); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 320: /* clo ek r */ +case 329: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16350,7 +16500,7 @@ case 320: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 321: /* clo k exps */ +case 330: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16361,7 +16511,7 @@ case 321: /* clo k exps */ /* r[2] */ goto gs_find_2Dsets_2A; -case 322: /* clo k test then else */ +case 331: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } @@ -16372,14 +16522,14 @@ case 322: /* clo k test then else */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(323); + *--hp = obj_from_case(332); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; -case 323: /* clo ek r */ +case 332: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16393,14 +16543,14 @@ case 323: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(324); + *--hp = obj_from_case(333); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; -case 324: /* clo ek r */ +case 333: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16413,14 +16563,14 @@ case 324: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(325); + *--hp = obj_from_case(334); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; -case 325: /* clo ek r */ +case 334: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16431,7 +16581,7 @@ case 325: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(326); + *--hp = obj_from_case(335); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -16440,7 +16590,7 @@ case 325: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 326: /* clo ek r */ +case 335: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16454,7 +16604,7 @@ case 326: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 327: /* clo k ig args */ +case 336: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16465,7 +16615,7 @@ case 327: /* clo k ig args */ r[2] = r[3]; goto gs_find_2Dsets_2A; -case 328: /* clo k exp args */ +case 337: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -16475,14 +16625,14 @@ case 328: /* clo k exp args */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(329); + *--hp = obj_from_case(338); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; -case 329: /* clo ek r */ +case 338: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16493,14 +16643,14 @@ case 329: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; - *--hp = obj_from_case(330); + *--hp = obj_from_case(339); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets_2A; -case 330: /* clo ek r */ +case 339: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16514,7 +16664,7 @@ case 330: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 331: /* clo k tail */ +case 340: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -16523,14 +16673,14 @@ case 331: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232065); + r[3+2] = (cx__232027); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 332: /* codegen k x l f s g k port */ +case 341: /* codegen k x l f s g k port */ assert(rc == 9); r += 1; /* shift reg. wnd */ gs_codegen: /* k x l f s g k port */ @@ -16540,7 +16690,7 @@ gs_codegen: /* k x l f s g k port */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; - *--hp = obj_from_case(333); + *--hp = obj_from_case(342); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16561,7 +16711,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(335); + *--hp = obj_from_case(344); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16583,7 +16733,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(339); + *--hp = obj_from_case(348); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16603,7 +16753,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(342); + *--hp = obj_from_case(351); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16625,7 +16775,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(344); + *--hp = obj_from_case(353); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16653,7 +16803,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(348); + *--hp = obj_from_case(357); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16675,7 +16825,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(352); + *--hp = obj_from_case(361); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16697,7 +16847,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(377); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16725,7 +16875,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(377); + *--hp = obj_from_case(386); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16746,7 +16896,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(384); + *--hp = obj_from_case(393); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; @@ -16768,7 +16918,7 @@ gs_codegen: /* k x l f s g k port */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; - *--hp = obj_from_case(389); + *--hp = obj_from_case(398); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16790,13 +16940,13 @@ gs_codegen: /* k x l f s g k port */ r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("call")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ - *--hp = r[2]; *--hp = r[6]; *--hp = r[3]; *--hp = r[5]; *--hp = r[7]; + *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(424); + *--hp = obj_from_case(433); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16819,7 +16969,7 @@ gs_codegen: /* k x l f s g k port */ if (bool_from_obj(r[8])) { hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[1]; - *--hp = obj_from_case(444); + *--hp = obj_from_case(454); r[8] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -16858,7 +17008,7 @@ gs_codegen: /* k x l f s g k port */ } } -case 333: /* clo k obj */ +case 342: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16869,7 +17019,7 @@ case 333: /* clo k obj */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(343); r[4] = (hendblk(3+1)); if (((((r[1]) == obj_from_bool(1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('t'), (r[2]))); @@ -16880,7 +17030,7 @@ case 333: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11874; + goto s_l_v11840; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); @@ -16891,7 +17041,7 @@ case 333: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11874; + goto s_l_v11840; } else { if (((((r[1]) == (mknull())) || ((is_flonum_obj(r[1])) && ((is_flonum_obj(mknull())) && (flonum_from_obj(r[1]) == flonum_from_obj(mknull()))))) && (1))) { r[5] = obj_from_void(oportputc(('n'), (r[2]))); @@ -16902,7 +17052,7 @@ case 333: /* clo k obj */ r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11874; + goto s_l_v11840; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; @@ -16913,7 +17063,7 @@ case 333: /* clo k obj */ } } -case 334: /* clo ek . */ +case 343: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16921,7 +17071,7 @@ case 334: /* clo ek . */ r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v11874: /* ek . k port k */ +s_l_v11840: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; @@ -16938,7 +17088,7 @@ s_l_v11874: /* ek . k port k */ goto jump; } -case 335: /* clo k id */ +case 344: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16953,7 +17103,7 @@ case 335: /* clo k id */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; - *--hp = obj_from_case(336); + *--hp = obj_from_case(345); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); @@ -16962,7 +17112,7 @@ case 335: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(346); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; @@ -16977,7 +17127,7 @@ case 335: /* clo k id */ *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(338); + *--hp = obj_from_case(347); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; @@ -16992,7 +17142,7 @@ case 335: /* clo k id */ } } -case 336: /* clo ek . */ +case 345: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17017,7 +17167,7 @@ case 336: /* clo ek . */ goto jump; } -case 337: /* clo ek . */ +case 346: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17035,7 +17185,7 @@ case 337: /* clo ek . */ rc = 3; goto jump; -case 338: /* clo ek . */ +case 347: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17053,7 +17203,7 @@ case 338: /* clo ek . */ rc = 3; goto jump; -case 339: /* clo k id x */ +case 348: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -17071,7 +17221,7 @@ case 339: /* clo k id x */ *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; - *--hp = obj_from_case(340); + *--hp = obj_from_case(349); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[2]; @@ -17085,7 +17235,7 @@ case 339: /* clo k id x */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 340: /* clo ek . */ +case 349: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17102,7 +17252,7 @@ case 340: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(341); + *--hp = obj_from_case(350); r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { (void)(oportputc(('.'), (r[4]))); @@ -17130,7 +17280,7 @@ case 340: /* clo ek . */ } } -case 341: /* clo ek . */ +case 350: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17155,7 +17305,7 @@ case 341: /* clo ek . */ goto jump; } -case 342: /* clo k id */ +case 351: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17169,7 +17319,7 @@ case 342: /* clo k id */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(343); + *--hp = obj_from_case(352); r[7] = (hendblk(3+1)); if (bool_from_obj(r[6])) { (void)(oportputc(('.'), (r[3]))); @@ -17194,7 +17344,7 @@ case 342: /* clo k id */ } } -case 343: /* clo ek . */ +case 352: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17219,7 +17369,7 @@ case 343: /* clo ek . */ goto jump; } -case 344: /* clo k exps */ +case 353: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17235,7 +17385,7 @@ case 344: /* clo k exps */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; - *--hp = obj_from_case(347); + *--hp = obj_from_case(356); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; @@ -17247,9 +17397,9 @@ case 344: /* clo k exps */ r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11800; + goto s_loop_v11766; -case 345: /* clo k xl */ +case 354: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17259,7 +17409,7 @@ case 345: /* clo k xl */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_loop_v11800: /* k xl port g s f l k */ +s_loop_v11766: /* k xl port g s f l k */ if ((ispair((r[1])))) { r[8] = (cdr((r[1]))); r[8] = obj_from_bool(ispair((r[8]))); @@ -17275,13 +17425,13 @@ s_loop_v11800: /* k xl port g s f l k */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(345); + *--hp = obj_from_case(354); r[9] = (hendblk(6+1)); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[9]; - *--hp = obj_from_case(346); + *--hp = obj_from_case(355); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); @@ -17304,7 +17454,7 @@ s_loop_v11800: /* k xl port g s f l k */ goto jump; } -case 346: /* clo ek . */ +case 355: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17321,7 +17471,7 @@ case 346: /* clo ek . */ rc = 3; goto jump; -case 347: /* clo ek . */ +case 356: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17347,7 +17497,7 @@ case 347: /* clo ek . */ goto jump; } -case 348: /* clo k test then else */ +case 357: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -17368,7 +17518,7 @@ case 348: /* clo k test then else */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(349); + *--hp = obj_from_case(358); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; @@ -17382,7 +17532,7 @@ case 348: /* clo k test then else */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 349: /* clo ek . */ +case 358: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17408,7 +17558,7 @@ case 349: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(350); + *--hp = obj_from_case(359); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; @@ -17422,7 +17572,7 @@ case 349: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 350: /* clo ek . */ +case 359: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17450,7 +17600,7 @@ case 350: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { - r[10] = obj_from_bool(isequal((r[6]), (cx__232884))); + r[10] = obj_from_bool(isequal((r[6]), (cx__232843))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; @@ -17465,7 +17615,7 @@ case 350: /* clo ek . */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(360); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -17490,7 +17640,7 @@ case 350: /* clo ek . */ } } -case 351: /* clo ek . */ +case 360: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17506,7 +17656,7 @@ case 351: /* clo ek . */ rc = 3; goto jump; -case 352: /* clo k idsi exp */ +case 361: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -17527,13 +17677,13 @@ case 352: /* clo k idsi exp */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(353); + *--hp = obj_from_case(362); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; -case 353: /* clo ek r */ +case 362: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17558,7 +17708,7 @@ case 353: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(363); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; @@ -17567,7 +17717,7 @@ case 353: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; -case 354: /* clo ek r */ +case 363: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17593,14 +17743,14 @@ case 354: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(355); + *--hp = obj_from_case(364); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; -case 355: /* clo ek r */ +case 364: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17627,14 +17777,14 @@ case 355: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(365); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; -case 356: /* clo ek r */ +case 365: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -17650,13 +17800,13 @@ case 356: /* clo ek r */ r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r f l idsi s g r r exp k k port */ - { fixnum_t v14214_tmp; + { fixnum_t v14230_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14214_tmp = (n); } + v14230_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14214_tmp); + obj l, o = mknull(); int c = (v14230_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -17673,7 +17823,7 @@ case 356: /* clo ek r */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(368); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); @@ -17683,16 +17833,16 @@ case 356: /* clo ek r */ r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11729; + goto s_loop_v11695; -case 357: /* clo k free l */ +case 366: /* clo k free l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; } r += 1; /* shift reg. wnd */ -s_loop_v11729: /* k free l g f port */ +s_loop_v11695: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17706,7 +17856,7 @@ s_loop_v11729: /* k free l g f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(366); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; @@ -17714,7 +17864,7 @@ s_loop_v11729: /* k free l g f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(358); + *--hp = obj_from_case(367); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* cons */ @@ -17742,7 +17892,7 @@ s_loop_v11729: /* k free l g f port */ goto gs_codegen; } -case 358: /* clo ek . */ +case 367: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17769,7 +17919,7 @@ case 358: /* clo ek . */ rc = 4; goto jump; -case 359: /* clo ek . */ +case 368: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17797,7 +17947,7 @@ case 359: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(360); + *--hp = obj_from_case(369); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; @@ -17808,7 +17958,7 @@ case 359: /* clo ek . */ r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; -case 360: /* clo ek . */ +case 369: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17835,7 +17985,7 @@ case 360: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(361); + *--hp = obj_from_case(370); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); @@ -17856,7 +18006,7 @@ case 360: /* clo ek . */ goto gs_write_2Dserialized_2Darg; } -case 361: /* clo ek . */ +case 370: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17881,7 +18031,7 @@ case 361: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(364); + *--hp = obj_from_case(373); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; @@ -17890,15 +18040,15 @@ case 361: /* clo ek . */ r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11704; + goto s_loop_v11670; -case 362: /* clo k ids n */ +case 371: /* clo k ids n */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v11704: /* k ids n port r */ +s_loop_v11670: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17911,14 +18061,14 @@ s_loop_v11704: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(362); + *--hp = obj_from_case(371); 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(363); + *--hp = obj_from_case(372); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -17932,7 +18082,7 @@ s_loop_v11704: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(362); + *--hp = obj_from_case(371); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -17942,11 +18092,11 @@ s_loop_v11704: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11706; + goto s_l_v11672; } } -case 363: /* clo ek . */ +case 372: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17955,7 +18105,7 @@ case 363: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11706: /* ek . loop n ids k */ +s_l_v11672: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -17965,7 +18115,7 @@ s_l_v11706: /* ek . loop n ids k */ rc = 4; goto jump; -case 364: /* clo ek . */ +case 373: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -17989,14 +18139,14 @@ case 364: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(365); + *--hp = obj_from_case(374); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; -case 365: /* clo ek r */ +case 374: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18017,7 +18167,7 @@ case 365: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(366); + *--hp = obj_from_case(375); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; @@ -18026,7 +18176,7 @@ case 365: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; -case 366: /* clo ek r */ +case 375: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18042,7 +18192,7 @@ case 366: /* clo ek r */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(376); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; @@ -18060,7 +18210,7 @@ case 366: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 367: /* clo ek . */ +case 376: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18086,7 +18236,7 @@ case 367: /* clo ek . */ goto jump; } -case 368: /* clo k clauses */ +case 377: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18097,13 +18247,13 @@ case 368: /* clo k clauses */ r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ - { fixnum_t v14213_tmp; + { fixnum_t v14229_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14213_tmp = (n); } + v14229_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14213_tmp); + obj l, o = mknull(); int c = (v14229_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[1]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -18114,7 +18264,7 @@ case 368: /* clo k clauses */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(380); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; @@ -18125,9 +18275,9 @@ case 368: /* clo k clauses */ r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11647; + goto s_loop_v11613; -case 369: /* clo k clauses l */ +case 378: /* clo k clauses l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18135,7 +18285,7 @@ case 369: /* clo k clauses l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11647: /* k clauses l g s f port */ +s_loop_v11613: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18150,7 +18300,7 @@ s_loop_v11647: /* k clauses l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(369); + *--hp = obj_from_case(378); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -18158,7 +18308,7 @@ s_loop_v11647: /* k clauses l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(379); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); @@ -18176,7 +18326,7 @@ s_loop_v11647: /* k clauses l g s f port */ goto gs_codegen; } -case 370: /* clo ek . */ +case 379: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18205,7 +18355,7 @@ case 370: /* clo ek . */ rc = 4; goto jump; -case 371: /* clo ek . */ +case 380: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18221,7 +18371,7 @@ case 371: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(372); + *--hp = obj_from_case(381); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; @@ -18232,7 +18382,7 @@ case 371: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 372: /* clo ek . */ +case 381: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18247,20 +18397,20 @@ case 372: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(376); + *--hp = obj_from_case(385); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = obj_from_fixnum(+0); r[3] = r[5]; - goto s_loop_v11620; + goto s_loop_v11586; -case 373: /* clo k clauses i */ +case 382: /* clo k clauses i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ -s_loop_v11620: /* k clauses i port */ +s_loop_v11586: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -18279,7 +18429,7 @@ s_loop_v11620: /* k clauses i port */ (void)(bool_from_obj(r[6]) ? (void)(oportputc(('!'), (r[3]))) : (void)(0)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(382); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; @@ -18287,7 +18437,7 @@ s_loop_v11620: /* k clauses i port */ *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; - *--hp = obj_from_case(374); + *--hp = obj_from_case(383); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; @@ -18295,7 +18445,7 @@ s_loop_v11620: /* k clauses i port */ goto gs_write_2Dserialized_2Darg; } -case 374: /* clo ek . */ +case 383: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18311,14 +18461,14 @@ case 374: /* clo ek . */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(375); + *--hp = obj_from_case(384); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 375: /* clo ek . */ +case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18337,7 +18487,7 @@ case 375: /* clo ek . */ rc = 4; goto jump; -case 376: /* clo ek . */ +case 385: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18365,7 +18515,7 @@ case 376: /* clo ek . */ goto jump; } -case 377: /* clo k kid exp */ +case 386: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18393,14 +18543,14 @@ case 377: /* clo k kid exp */ *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; - *--hp = obj_from_case(378); + *--hp = obj_from_case(387); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; -case 378: /* clo ek r */ +case 387: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18425,14 +18575,14 @@ case 378: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(379); + *--hp = obj_from_case(388); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; -case 379: /* clo ek r */ +case 388: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18456,14 +18606,14 @@ case 379: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(380); + *--hp = obj_from_case(389); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; -case 380: /* clo ek r */ +case 389: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18490,7 +18640,7 @@ case 380: /* clo ek r */ *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); - *--hp = obj_from_case(381); + *--hp = obj_from_case(390); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); @@ -18510,7 +18660,7 @@ case 380: /* clo ek r */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; - *--hp = obj_from_case(382); + *--hp = obj_from_case(391); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ @@ -18543,7 +18693,7 @@ case 380: /* clo ek r */ goto gs_codegen; } -case 381: /* clo ek . */ +case 390: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18583,7 +18733,7 @@ case 381: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 382: /* clo ek . */ +case 391: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18595,14 +18745,14 @@ case 382: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(383); + *--hp = obj_from_case(392); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = obj_from_fixnum(+3); r[2] = r[3]; goto gs_write_2Dserialized_2Darg; -case 383: /* clo ek . */ +case 392: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18618,7 +18768,7 @@ case 383: /* clo ek . */ rc = 3; goto jump; -case 384: /* clo k kexp exp */ +case 393: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18630,7 +18780,7 @@ case 384: /* clo k kexp exp */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ - obj x = (r[8]), l = (cx__232719); + obj x = (r[8]), l = (cx__232678); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[8] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[8])) { @@ -18642,7 +18792,7 @@ case 384: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(394); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = r[2]; @@ -18664,7 +18814,7 @@ case 384: /* clo k kexp exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(387); + *--hp = obj_from_case(396); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ @@ -18697,7 +18847,7 @@ case 384: /* clo k kexp exp */ goto gs_codegen; } -case 385: /* clo ek . */ +case 394: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18714,7 +18864,7 @@ case 385: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(395); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -18734,7 +18884,7 @@ case 385: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 386: /* clo ek . */ +case 395: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18752,7 +18902,7 @@ case 386: /* clo ek . */ rc = 3; goto jump; -case 387: /* clo ek . */ +case 396: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18769,7 +18919,7 @@ case 387: /* clo ek . */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(397); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ @@ -18789,7 +18939,7 @@ case 387: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 388: /* clo ek . */ +case 397: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -18805,7 +18955,7 @@ case 388: /* clo ek . */ rc = 3; goto jump; -case 389: /* clo k ig args */ +case 398: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -18829,7 +18979,7 @@ case 389: /* clo k ig args */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(390); + *--hp = obj_from_case(399); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; @@ -18841,7 +18991,7 @@ case 389: /* clo k ig args */ rc = 4; goto jump; -case 390: /* clo ek r */ +case 399: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18869,7 +19019,7 @@ case 390: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(400); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; @@ -18879,7 +19029,7 @@ case 390: /* clo ek r */ rc = 3; goto jump; -case 391: /* clo ek r */ +case 400: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -18898,16 +19048,16 @@ case 391: /* clo ek r */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(401); r[12] = (hendblk(3+1)); if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1)))))) { - { fixnum_t v14212_tmp; + { fixnum_t v14228_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14212_tmp = (n); } + v14228_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14212_tmp); + obj l, o = mknull(); int c = (v14228_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -18917,7 +19067,7 @@ case 391: /* clo ek r */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(395); + *--hp = obj_from_case(404); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -18926,7 +19076,7 @@ case 391: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11499; + goto s_loop_v11465; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { @@ -18936,7 +19086,7 @@ case 391: /* clo ek r */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); - *--hp = obj_from_case(396); + *--hp = obj_from_case(405); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -18947,19 +19097,19 @@ case 391: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14210_tmp; + { fixnum_t v14226_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14210_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14210_tmp), (+1))); } - { fixnum_t v14211_tmp; + v14226_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14226_tmp), (+1))); } + { fixnum_t v14227_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14211_tmp = (n); } + v14227_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14211_tmp); + obj l, o = mknull(); int c = (v14227_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -18970,7 +19120,7 @@ case 391: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(408); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -18979,7 +19129,7 @@ case 391: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11474; + goto s_loop_v11440; } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { @@ -18997,7 +19147,7 @@ case 391: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(409); r[14] = (hendblk(7+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; @@ -19008,19 +19158,19 @@ case 391: /* clo ek r */ rc = 4; goto jump; } else { - { fixnum_t v14208_tmp; + { fixnum_t v14224_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14208_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14208_tmp), (+1))); } - { fixnum_t v14209_tmp; + v14224_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14224_tmp), (+1))); } + { fixnum_t v14225_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14209_tmp = (n); } + v14225_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14209_tmp); + obj l, o = mknull(); int c = (v14225_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -19031,7 +19181,7 @@ case 391: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(404); + *--hp = obj_from_case(413); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19040,23 +19190,23 @@ case 391: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11438; + goto s_loop_v11404; } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14206_tmp; + { fixnum_t v14222_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14206_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14206_tmp), (+1))); } - { fixnum_t v14207_tmp; + v14222_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14222_tmp), (+1))); } + { fixnum_t v14223_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14207_tmp = (n); } + v14223_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14207_tmp); + obj l, o = mknull(); int c = (v14223_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -19072,7 +19222,7 @@ case 391: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(405); + *--hp = obj_from_case(414); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); @@ -19087,19 +19237,19 @@ case 391: /* clo ek r */ goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14204_tmp; + { fixnum_t v14220_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14204_tmp = (n); } - r[13] = obj_from_fixnum(fxsub((v14204_tmp), (+1))); } - { fixnum_t v14205_tmp; + v14220_tmp = (n); } + r[13] = obj_from_fixnum(fxsub((v14220_tmp), (+1))); } + { fixnum_t v14221_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14205_tmp = (n); } + v14221_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14205_tmp); + obj l, o = mknull(); int c = (v14221_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -19110,7 +19260,7 @@ case 391: /* clo ek r */ *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; - *--hp = obj_from_case(411); + *--hp = obj_from_case(420); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); @@ -19119,14 +19269,14 @@ case 391: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11384; + goto s_loop_v11350; } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { hreserve(hbsz(3+1), 13); /* 13 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); - *--hp = obj_from_case(412); + *--hp = obj_from_case(421); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ @@ -19135,7 +19285,7 @@ case 391: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(413); + *--hp = obj_from_case(422); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19169,7 +19319,7 @@ case 391: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(414); + *--hp = obj_from_case(423); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); @@ -19180,7 +19330,7 @@ case 391: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(416); + *--hp = obj_from_case(425); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19216,7 +19366,7 @@ case 391: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(417); + *--hp = obj_from_case(426); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = (cdr((r[14]))); @@ -19228,7 +19378,7 @@ case 391: /* clo ek r */ hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); - *--hp = obj_from_case(420); + *--hp = obj_from_case(429); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; @@ -19256,13 +19406,13 @@ case 391: /* clo ek r */ } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { - { fixnum_t v14203_tmp; + { fixnum_t v14219_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14203_tmp = (n); } + v14219_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14203_tmp); + obj l, o = mknull(); int c = (v14219_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -19273,7 +19423,7 @@ case 391: /* clo ek r */ *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; - *--hp = obj_from_case(423); + *--hp = obj_from_case(432); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); @@ -19282,12 +19432,12 @@ case 391: /* clo ek r */ /* r[4] */ /* r[5] */ r[6] = (r[10]); - goto s_loop_v11306; + goto s_loop_v11272; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); - r[13+2] = (cx__232412); + r[13+2] = (cx__232371); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -19303,7 +19453,7 @@ case 391: /* clo ek r */ } } -case 392: /* clo ek . */ +case 401: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19328,281 +19478,6 @@ case 392: /* clo ek . */ goto jump; } -case 393: /* clo k args l */ - 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_loop_v11499: /* k args l g s f port */ - if ((isnull((r[1])))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(393); - r[7] = (hendblk(4+1)); - hreserve(hbsz(5+1), 8); /* 8 live regs */ - *--hp = r[1]; - *--hp = r[6]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[7]; - *--hp = obj_from_case(394); - r[7] = (hendblk(5+1)); - r[8+0] = r[7]; - r[8+1] = (car((r[1]))); - r[8+2] = r[2]; - r[8+3] = r[5]; - r[8+4] = r[4]; - r[8+5] = r[3]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } - -case 394: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = 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 l k port args */ - r[7] = (cdr((r[6]))); - r[7] = obj_from_bool(isnull((r[7]))); - if (bool_from_obj(r[7])) { - (void)((0) ? obj_from_bool(0) : obj_from_void(0)); - } else { - (void)(oportputc((','), (r[5]))); - } - { /* cons */ - hreserve(hbsz(3), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cdr((r[6]))); - r[3] = r[7]; - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 395: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . k r port */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 396: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek r k port */ - 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(oportputs(stringchars((r[1])), (r[3]))); - r += 4; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 397: /* clo k args l */ - 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_loop_v11474: /* k args l g s f port */ - if ((isnull((r[1])))) { - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - } else { - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(397); - r[7] = (hendblk(4+1)); - hreserve(hbsz(5+1), 8); /* 8 live regs */ - *--hp = r[1]; - *--hp = r[6]; - *--hp = r[0]; - *--hp = r[2]; - *--hp = r[7]; - *--hp = obj_from_case(398); - r[7] = (hendblk(5+1)); - r[8+0] = r[7]; - r[8+1] = (car((r[1]))); - r[8+2] = r[2]; - r[8+3] = r[5]; - r[8+4] = r[4]; - r[8+5] = r[3]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - } - -case 398: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = 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 l k port args */ - r[7] = (cdr((r[6]))); - r[7] = obj_from_bool(isnull((r[7]))); - if (bool_from_obj(r[7])) { - (void)((0) ? obj_from_bool(0) : obj_from_void(0)); - } else { - (void)(oportputc((','), (r[5]))); - } - { /* cons */ - hreserve(hbsz(3), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = r[4]; - r[2] = (cdr((r[6]))); - r[3] = r[7]; - rreserve(MAX_HOSTREGS); - rc = 4; - goto jump; - -case 399: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(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 port opc k */ - r[0] = r[5]; - r[1] = obj_from_fixnum(+0); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11465; - -s_loop_v11465: /* k i r port opc */ - { const fixnum_t v14202_i = fixnum_from_obj(r[1]); - if (((v14202_i) >= fixnum_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 { - (void)(oportputs(stringchars((r[2])), (r[3]))); - /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14202_i), (+1))); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11465; - } } - -case 400: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = 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 g s f l args k port */ - hreserve(hbsz(3+1), 9); /* 9 live regs */ - *--hp = r[8]; - *--hp = r[1]; - *--hp = r[7]; - *--hp = obj_from_case(401); - r[9] = (hendblk(3+1)); - r[10+0] = r[9]; - r[10+1] = (car((r[6]))); - r[10+2] = r[5]; - r[10+3] = r[4]; - r[10+4] = r[3]; - r[10+5] = r[2]; - r[10+6] = obj_from_bool(0); - r[10+7] = r[8]; - r += 10; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 401: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek . k r port */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - case 402: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); @@ -19611,7 +19486,7 @@ case 402: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11438: /* k args l g s f port */ +s_loop_v11465: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19688,77 +19563,32 @@ case 404: /* clo ek . */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; } + r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ - /* ek . r port opc k */ - r[0] = r[5]; - r[1] = obj_from_fixnum(+0); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11429; - -s_loop_v11429: /* k i r port opc */ - { const fixnum_t v14201_i = fixnum_from_obj(r[1]); - if (((v14201_i) >= fixnum_from_obj(r[4]))) { - /* r[0] */ + /* ek . k r port */ + r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; - } else { - (void)(oportputs(stringchars((r[2])), (r[3]))); - /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14201_i), (+1))); - /* r[2] */ - /* r[3] */ - /* r[4] */ - goto s_loop_v11429; - } } -case 405: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ +case 405: /* clo ek r */ + assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; - r[1+5] = p[4]; - r[1+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+3] = p[2]; } r += 1; /* shift reg. wnd */ - /* ek . g s f l args r opc k port */ - (void)(oportputc((','), (r[10]))); - r[11] = (cdr((r[6]))); - { /* cons */ - hreserve(hbsz(3), 12); /* 12 live regs */ - *--hp = r[5]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[12] = (hendblk(3)); } - hreserve(hbsz(4+1), 13); /* 13 live regs */ - *--hp = r[9]; - *--hp = r[8]; - *--hp = (r[10]); - *--hp = r[7]; - *--hp = obj_from_case(408); - r[13] = (hendblk(4+1)); - r[14+0] = (r[13]); - r[14+1] = (r[11]); - r[14+2] = (r[12]); - r[14+3] = r[2]; - r[14+4] = r[3]; - r[14+5] = r[4]; - r[14+6] = (r[10]); - r += 14; /* shift reg wnd */ + /* ek r k port */ + 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(oportputs(stringchars((r[1])), (r[3]))); + r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11410; + rc = 3; + goto jump; case 406: /* clo k args l */ assert(rc == 4); @@ -19768,7 +19598,7 @@ case 406: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11410: /* k args l g s f port */ +s_loop_v11440: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19823,7 +19653,6 @@ case 407: /* clo ek . */ (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); - (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ @@ -19831,12 +19660,6 @@ case 407: /* clo ek . */ *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } - { /* cons */ - hreserve(hbsz(3), 8); /* 8 live regs */ - *--hp = r[7]; - *--hp = obj_from_bool(0); - *--hp = obj_from_size(PAIR_BTAG); - r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; @@ -19861,11 +19684,11 @@ case 408: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11401; + goto s_loop_v11431; -s_loop_v11401: /* k i r port opc */ - { const fixnum_t v14200_i = fixnum_from_obj(r[1]); - if (((v14200_i) >= fixnum_from_obj(r[4]))) { +s_loop_v11431: /* k i r port opc */ + { const fixnum_t v14218_i = fixnum_from_obj(r[1]); + if (((v14218_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -19874,17 +19697,63 @@ s_loop_v11401: /* k i r port opc */ rc = 3; goto jump; } else { - (void)(((v14200_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14200_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14218_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11401; + goto s_loop_v11431; } } -case 409: /* clo k args l */ +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+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 g s f l args k port */ + hreserve(hbsz(3+1), 9); /* 9 live regs */ + *--hp = r[8]; + *--hp = r[1]; + *--hp = r[7]; + *--hp = obj_from_case(410); + r[9] = (hendblk(3+1)); + r[10+0] = r[9]; + r[10+1] = (car((r[6]))); + r[10+2] = r[5]; + r[10+3] = r[4]; + r[10+4] = r[3]; + r[10+5] = r[2]; + r[10+6] = obj_from_bool(0); + r[10+7] = r[8]; + r += 10; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 410: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . k r port */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 411: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -19892,7 +19761,7 @@ case 409: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11384: /* k args l g s f port */ +s_loop_v11404: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -19907,7 +19776,7 @@ s_loop_v11384: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(409); + *--hp = obj_from_case(411); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; @@ -19915,7 +19784,7 @@ s_loop_v11384: /* k args l g s f port */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(410); + *--hp = obj_from_case(412); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -19930,7 +19799,7 @@ s_loop_v11384: /* k args l g s f port */ goto gs_codegen; } -case 410: /* clo ek . */ +case 412: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19963,7 +19832,7 @@ case 410: /* clo ek . */ rc = 4; goto jump; -case 411: /* clo ek . */ +case 413: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -19978,11 +19847,11 @@ case 411: /* clo ek . */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11375; + goto s_loop_v11395; -s_loop_v11375: /* k i r port opc */ - { const fixnum_t v14199_i = fixnum_from_obj(r[1]); - if (((v14199_i) >= fixnum_from_obj(r[4]))) { +s_loop_v11395: /* k i r port opc */ + { const fixnum_t v14217_i = fixnum_from_obj(r[1]); + if (((v14217_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -19993,14 +19862,295 @@ s_loop_v11375: /* k i r port opc */ } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14199_i), (+1))); + r[1] = obj_from_fixnum(fxadd((v14217_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11375; + goto s_loop_v11395; } } -case 412: /* clo ek . */ +case 414: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 . g s f l args r opc k port */ + (void)(oportputc((','), (r[10]))); + r[11] = (cdr((r[6]))); + { /* cons */ + hreserve(hbsz(3), 12); /* 12 live regs */ + *--hp = r[5]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[12] = (hendblk(3)); } + hreserve(hbsz(4+1), 13); /* 13 live regs */ + *--hp = r[9]; + *--hp = r[8]; + *--hp = (r[10]); + *--hp = r[7]; + *--hp = obj_from_case(417); + r[13] = (hendblk(4+1)); + r[14+0] = (r[13]); + r[14+1] = (r[11]); + r[14+2] = (r[12]); + r[14+3] = r[2]; + r[14+4] = r[3]; + r[14+5] = r[4]; + r[14+6] = (r[10]); + r += 14; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v11376; + +case 415: /* clo k args l */ + 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_loop_v11376: /* k args l g s f port */ + if ((isnull((r[1])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(415); + r[7] = (hendblk(4+1)); + hreserve(hbsz(5+1), 8); /* 8 live regs */ + *--hp = r[1]; + *--hp = r[6]; + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[7]; + *--hp = obj_from_case(416); + r[7] = (hendblk(5+1)); + r[8+0] = r[7]; + r[8+1] = (car((r[1]))); + r[8+2] = r[2]; + r[8+3] = r[5]; + r[8+4] = r[4]; + r[8+5] = r[3]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } + +case 416: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 l k port args */ + r[7] = (cdr((r[6]))); + r[7] = obj_from_bool(isnull((r[7]))); + if (bool_from_obj(r[7])) { + (void)((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void)(oportputc((','), (r[5]))); + (void)(oportputc((','), (r[5]))); + } + { /* cons */ + hreserve(hbsz(3), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[7] = (hendblk(3)); } + { /* cons */ + hreserve(hbsz(3), 8); /* 8 live regs */ + *--hp = r[7]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[7] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (cdr((r[6]))); + r[3] = r[7]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 417: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(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 port opc k */ + r[0] = r[5]; + r[1] = obj_from_fixnum(+0); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11367; + +s_loop_v11367: /* k i r port opc */ + { const fixnum_t v14216_i = fixnum_from_obj(r[1]); + if (((v14216_i) >= fixnum_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 { + (void)(((v14216_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); + (void)(oportputs(stringchars((r[2])), (r[3]))); + /* r[0] */ + r[1] = obj_from_fixnum(fxadd((v14216_i), (+1))); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11367; + } } + +case 418: /* clo k args l */ + 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_loop_v11350: /* k args l g s f port */ + if ((isnull((r[1])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(418); + r[7] = (hendblk(4+1)); + hreserve(hbsz(5+1), 8); /* 8 live regs */ + *--hp = r[1]; + *--hp = r[6]; + *--hp = r[0]; + *--hp = r[2]; + *--hp = r[7]; + *--hp = obj_from_case(419); + r[7] = (hendblk(5+1)); + r[8+0] = r[7]; + r[8+1] = (car((r[1]))); + r[8+2] = r[2]; + r[8+3] = r[5]; + r[8+4] = r[4]; + r[8+5] = r[3]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + } + +case 419: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 l k port args */ + r[7] = (cdr((r[6]))); + r[7] = obj_from_bool(isnull((r[7]))); + if (bool_from_obj(r[7])) { + (void)((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void)(oportputc((','), (r[5]))); + } + { /* cons */ + hreserve(hbsz(3), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[7] = (hendblk(3)); } + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (cdr((r[6]))); + r[3] = r[7]; + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 420: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(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 port opc k */ + r[0] = r[5]; + r[1] = obj_from_fixnum(+0); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11341; + +s_loop_v11341: /* k i r port opc */ + { const fixnum_t v14215_i = fixnum_from_obj(r[1]); + if (((v14215_i) >= fixnum_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 { + (void)(oportputs(stringchars((r[2])), (r[3]))); + /* r[0] */ + r[1] = obj_from_fixnum(fxadd((v14215_i), (+1))); + /* r[2] */ + /* r[3] */ + /* r[4] */ + goto s_loop_v11341; + } } + +case 421: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20017,7 +20167,7 @@ case 412: /* clo ek . */ rc = 3; goto jump; -case 413: /* clo ek r */ +case 422: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20033,7 +20183,7 @@ case 413: /* clo ek r */ rc = 3; goto jump; -case 414: /* clo ek . */ +case 423: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20052,7 +20202,7 @@ case 414: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(415); + *--hp = obj_from_case(424); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -20072,7 +20222,7 @@ case 414: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 415: /* clo ek . */ +case 424: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20089,7 +20239,7 @@ case 415: /* clo ek . */ rc = 3; goto jump; -case 416: /* clo ek r */ +case 425: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20105,7 +20255,7 @@ case 416: /* clo ek r */ rc = 3; goto jump; -case 417: /* clo ek . */ +case 426: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20129,7 +20279,7 @@ case 417: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(418); + *--hp = obj_from_case(427); r[10] = (hendblk(8+1)); r[11] = (cdr((r[6]))); r[11] = (car((r[11]))); @@ -20151,7 +20301,7 @@ case 417: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 418: /* clo ek . */ +case 427: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20170,7 +20320,7 @@ case 418: /* clo ek . */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; - *--hp = obj_from_case(419); + *--hp = obj_from_case(428); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -20196,7 +20346,7 @@ case 418: /* clo ek . */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 419: /* clo ek . */ +case 428: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20213,7 +20363,7 @@ case 419: /* clo ek . */ rc = 3; goto jump; -case 420: /* clo ek r */ +case 429: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20229,7 +20379,7 @@ case 420: /* clo ek r */ rc = 3; goto jump; -case 421: /* clo k args l */ +case 430: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20237,7 +20387,7 @@ case 421: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11306: /* k args l g s f port */ +s_loop_v11272: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20252,7 +20402,7 @@ s_loop_v11306: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(421); + *--hp = obj_from_case(430); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20260,7 +20410,7 @@ s_loop_v11306: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(422); + *--hp = obj_from_case(431); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20275,7 +20425,7 @@ s_loop_v11306: /* k args l g s f port */ goto gs_codegen; } -case 422: /* clo ek . */ +case 431: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20302,7 +20452,7 @@ case 422: /* clo ek . */ rc = 4; goto jump; -case 423: /* clo ek . */ +case 432: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20322,7 +20472,7 @@ case 423: /* clo ek . */ r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 424: /* clo k exp args */ +case 433: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20332,7 +20482,7 @@ case 424: /* clo k exp args */ r[1+7] = p[5]; r[1+8] = p[6]; } r += 1; /* shift reg. wnd */ - /* k exp args s port g f k l */ + /* k exp args s l port g f k */ r[9] = (car((r[1]))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[9])) { @@ -20340,19 +20490,19 @@ case 424: /* clo k exp args */ r[9] = (car((r[9]))); r[9] = obj_from_bool(islist((r[9]))); if (bool_from_obj(r[9])) { - { fixnum_t v14198_tmp; - { fixnum_t v14197_tmp; + { fixnum_t v14214_tmp; + { fixnum_t v14213_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14198_tmp = (n); } + v14214_tmp = (n); } r[9] = (cdr((r[1]))); r[9] = (car((r[9]))); { /* length */ int n; obj l = r[9]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14197_tmp = (n); } - r[9] = obj_from_bool((v14198_tmp) == (v14197_tmp)); } } + v14213_tmp = (n); } + r[9] = obj_from_bool((v14214_tmp) == (v14213_tmp)); } } } else { r[9] = obj_from_bool(0); } @@ -20360,13 +20510,13 @@ case 424: /* clo k exp args */ r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { - { fixnum_t v14196_tmp; + { fixnum_t v14212_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14196_tmp = (n); } + v14212_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14196_tmp); + obj l, o = mknull(); int c = (v14212_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -20375,67 +20525,67 @@ case 424: /* clo k exp args */ hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[8]; - *--hp = r[7]; *--hp = r[0]; + *--hp = r[7]; *--hp = r[6]; - *--hp = r[5]; *--hp = r[2]; + *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(427); + *--hp = obj_from_case(436); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[9]; - r[11+2] = r[8]; - r[11+3] = r[5]; + r[11+2] = r[4]; + r[11+3] = r[6]; r[11+4] = r[3]; - r[11+5] = r[6]; - r[11+6] = r[4]; + r[11+5] = r[7]; + r[11+6] = r[5]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11275; + goto s_loop_v11241; } else { - if (bool_from_obj(r[7])) { - { fixnum_t v14195_tmp; + if (bool_from_obj(r[8])) { + { fixnum_t v14211_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14195_tmp = (n); } + v14211_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14195_tmp); + obj l, o = mknull(); int c = (v14211_tmp); hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } } hreserve(hbsz(4+1), 10); /* 10 live regs */ - *--hp = r[4]; + *--hp = r[5]; *--hp = r[0]; *--hp = r[2]; - *--hp = r[7]; - *--hp = obj_from_case(437); + *--hp = r[8]; + *--hp = obj_from_case(447); r[10] = (hendblk(4+1)); r[11+0] = (r[10]); r[11+1] = r[9]; - r[11+2] = r[8]; - r[11+3] = r[4]; - r[11+4] = r[5]; + r[11+2] = r[4]; + r[11+3] = r[5]; + r[11+4] = r[6]; r[11+5] = r[3]; - r[11+6] = r[6]; + r[11+6] = r[7]; r[11+7] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11213; + goto s_loop_v11173; } else { - (void)(oportputc((36), (r[4]))); - (void)(oportputc(('{'), (r[4]))); - { fixnum_t v14194_tmp; + (void)(oportputc((36), (r[5]))); + (void)(oportputc(('{'), (r[5]))); + { fixnum_t v14210_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14194_tmp = (n); } + v14210_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14194_tmp); + obj l, o = mknull(); int c = (v14210_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); @@ -20443,7 +20593,7 @@ case 424: /* clo k exp args */ r[9] = (o); } } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ - *--hp = r[8]; + *--hp = r[4]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } @@ -20454,26 +20604,26 @@ case 424: /* clo k exp args */ *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } hreserve(hbsz(3+1), 11); /* 11 live regs */ - *--hp = r[4]; + *--hp = r[5]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(451); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[9]; r[12+2] = (r[10]); - r[12+3] = r[4]; - r[12+4] = r[5]; + r[12+3] = r[5]; + r[12+4] = r[6]; r[12+5] = r[3]; - r[12+6] = r[6]; + r[12+6] = r[7]; r[12+7] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11188; + goto s_loop_v11148; } } -case 425: /* clo k args l */ +case 434: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20481,7 +20631,7 @@ case 425: /* clo k args l */ r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop_v11275: /* k args l g s f port */ +s_loop_v11241: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20496,7 +20646,7 @@ s_loop_v11275: /* k args l g s f port */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(425); + *--hp = obj_from_case(434); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; @@ -20504,7 +20654,7 @@ s_loop_v11275: /* k args l g s f port */ *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; - *--hp = obj_from_case(426); + *--hp = obj_from_case(435); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); @@ -20519,7 +20669,7 @@ s_loop_v11275: /* k args l g s f port */ goto gs_codegen; } -case 426: /* clo ek . */ +case 435: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20546,7 +20696,7 @@ case 426: /* clo ek . */ rc = 4; goto jump; -case 427: /* clo ek . */ +case 436: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20560,31 +20710,31 @@ case 427: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ - /* ek . s port args g f k k l exp */ + /* ek . s l port args g f k k exp */ r[11] = (cdr((r[10]))); r[11] = (car((r[11]))); r[12] = (cdr((r[10]))); r[12] = (cdr((r[12]))); r[12] = (car((r[12]))); hreserve(hbsz(10+1), 13); /* 13 live regs */ - *--hp = (r[11]); *--hp = r[9]; *--hp = r[8]; - *--hp = r[7]; *--hp = (r[12]); + *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; + *--hp = (r[11]); *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(428); + *--hp = obj_from_case(437); r[13] = (hendblk(10+1)); r[0] = (r[13]); r[1] = (r[12]); r[2] = (r[11]); goto gs_find_2Dsets; -case 428: /* clo ek r */ +case 437: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20598,7 +20748,7 @@ case 428: /* clo ek r */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ - /* ek r s port args g f exp k k l ids */ + /* ek r s l ids port args g f exp k k */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); @@ -20608,16 +20758,16 @@ case 428: /* clo ek r */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(429); + *--hp = r[3]; + *--hp = obj_from_case(438); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = r[2]; - r[2] = (r[11]); + r[2] = r[4]; goto gs_set_2Dminus; -case 429: /* clo ek r */ +case 438: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20631,7 +20781,7 @@ case 429: /* clo ek r */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ - /* ek r r port args g f exp k k l ids */ + /* ek r l r ids port args g f exp k k */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); @@ -20643,14 +20793,14 @@ case 429: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(430); + *--hp = obj_from_case(439); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ - /* r[2] */ + r[2] = r[3]; goto gs_set_2Dunion; -case 430: /* clo ek r */ +case 439: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -20664,50 +20814,73 @@ case 430: /* clo ek r */ r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ - /* ek r r port args g f exp k k l ids */ - { fixnum_t v14193_tmp; - { /* length */ - int n; obj l = (r[11]); - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14193_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v14193_tmp); - hreserve(hbsz(3)*c, 12); /* 12 live regs */ - l = (r[11]); t = (r[10]); /* 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[12] = (o); } } - hreserve(hbsz(9+1), 13); /* 13 live regs */ + /* ek r l r ids port args g f exp k k */ + hreserve(hbsz(10+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; - *--hp = r[7]; - *--hp = (r[12]); - *--hp = r[6]; *--hp = r[1]; + *--hp = r[7]; + *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(433); - r[13] = (hendblk(9+1)); - r[14+0] = (r[13]); - r[14+1] = (r[11]); - r[14+2] = obj_from_fixnum(+0); - r[14+3] = r[3]; - r[14+4] = r[2]; - r += 14; /* shift reg wnd */ + *--hp = obj_from_case(440); + r[12] = (hendblk(10+1)); + r[13+0] = (cx__25append); + pc = objptr_from_obj(r[13+0])[0]; + r[13+1] = (r[12]); + r[13+2] = r[4]; + r[13+3] = r[2]; + r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11246; + rc = 4; + goto jump; -case 431: /* clo k ids n */ +case 440: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 r ids port args g r f exp k k */ + hreserve(hbsz(9+1), 12); /* 12 live regs */ + *--hp = (r[11]); + *--hp = (r[10]); + *--hp = r[9]; + *--hp = r[1]; + *--hp = r[8]; + *--hp = r[7]; + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = obj_from_case(443); + r[12] = (hendblk(9+1)); + r[13+0] = (r[12]); + r[13+1] = r[3]; + r[13+2] = obj_from_fixnum(+0); + r[13+3] = r[4]; + r[13+4] = r[2]; + r += 13; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v11208; + +case 441: /* clo k ids n */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ -s_loop_v11246: /* k ids n port r */ +s_loop_v11208: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -20720,14 +20893,14 @@ s_loop_v11246: /* k ids n port r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(441); 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(432); + *--hp = obj_from_case(442); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); @@ -20741,7 +20914,7 @@ s_loop_v11246: /* k ids n port r */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(431); + *--hp = obj_from_case(441); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); @@ -20751,11 +20924,11 @@ s_loop_v11246: /* k ids n port r */ r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v11248; + goto s_l_v11210; } } -case 432: /* clo ek . */ +case 442: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20764,7 +20937,7 @@ case 432: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v11248: /* ek . loop n ids k */ +s_l_v11210: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; @@ -20774,7 +20947,7 @@ s_l_v11248: /* ek . loop n ids k */ rc = 4; goto jump; -case 433: /* clo ek . */ +case 443: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20788,14 +20961,14 @@ case 433: /* clo ek . */ r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ - /* ek . port args g r f newl exp k k */ + /* ek . port args g r f r exp k k */ if (bool_from_obj(r[10])) { - { fixnum_t v14192_tmp; + { fixnum_t v14209_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14192_tmp = (n); } - r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14192_tmp))); } + v14209_tmp = (n); } + r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14209_tmp))); } r[12+0] = r[9]; r[12+1] = r[8]; r[12+2] = r[7]; @@ -20812,7 +20985,7 @@ case 433: /* clo ek . */ *--hp = r[2]; *--hp = r[9]; *--hp = r[3]; - *--hp = obj_from_case(434); + *--hp = obj_from_case(444); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[8]; @@ -20827,7 +21000,7 @@ case 433: /* clo ek . */ goto gs_codegen; } -case 434: /* clo ek . */ +case 444: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20846,7 +21019,7 @@ case 434: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 435: /* clo k args l */ +case 445: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20855,7 +21028,7 @@ case 435: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v11213: /* k args l port g s f exp */ +s_loop_v11173: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -20875,7 +21048,7 @@ s_loop_v11213: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(435); + *--hp = obj_from_case(445); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -20883,7 +21056,7 @@ s_loop_v11213: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(436); + *--hp = obj_from_case(446); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -20898,7 +21071,7 @@ s_loop_v11213: /* k args l port g s f exp */ goto gs_codegen; } -case 436: /* clo ek . */ +case 446: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20925,7 +21098,7 @@ case 436: /* clo ek . */ rc = 4; goto jump; -case 437: /* clo ek . */ +case 447: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20940,14 +21113,14 @@ case 437: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(448); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; -case 438: /* clo ek . */ +case 448: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -20965,7 +21138,7 @@ case 438: /* clo ek . */ /* r[2] */ goto gs_write_2Dserialized_2Darg; -case 439: /* clo k args l */ +case 449: /* clo k args l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -20974,7 +21147,7 @@ case 439: /* clo k args l */ r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ -s_loop_v11188: /* k args l port g s f exp */ +s_loop_v11148: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; @@ -20994,7 +21167,7 @@ s_loop_v11188: /* k args l port g s f exp */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(439); + *--hp = obj_from_case(449); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; @@ -21002,7 +21175,7 @@ s_loop_v11188: /* k args l port g s f exp */ *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; - *--hp = obj_from_case(440); + *--hp = obj_from_case(450); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); @@ -21017,7 +21190,7 @@ s_loop_v11188: /* k args l port g s f exp */ goto gs_codegen; } -case 440: /* clo ek . */ +case 450: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21044,7 +21217,7 @@ case 440: /* clo ek . */ rc = 4; goto jump; -case 441: /* clo ek . */ +case 451: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21058,14 +21231,14 @@ case 441: /* clo ek . */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(442); + *--hp = obj_from_case(452); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = obj_from_fixnum(+0); r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 442: /* clo ek . */ +case 452: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21077,7 +21250,7 @@ case 442: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(443); + *--hp = obj_from_case(453); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; @@ -21088,7 +21261,7 @@ case 442: /* clo ek . */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; -case 443: /* clo ek . */ +case 453: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21104,7 +21277,7 @@ case 443: /* clo ek . */ rc = 3; goto jump; -case 444: /* clo k tail */ +case 454: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21113,14 +21286,14 @@ case 444: /* clo k tail */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__232065); + r[3+2] = (cx__232027); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; -case 445: /* compile-to-string k x */ +case 455: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -21130,14 +21303,14 @@ case 445: /* compile-to-string k x */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(446); + *--hp = obj_from_case(456); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 446: /* clo ek r */ +case 456: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21148,7 +21321,7 @@ case 446: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(447); + *--hp = obj_from_case(457); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21162,7 +21335,7 @@ case 446: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 447: /* clo ek . */ +case 457: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21174,7 +21347,7 @@ case 447: /* clo ek . */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -21184,7 +21357,7 @@ case 447: /* clo ek . */ rc = 3; goto jump; -case 448: /* execute k code */ +case 458: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ @@ -21193,7 +21366,7 @@ gs_execute: /* k code */ r[2] = obj_from_objptr(c); } hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(449); + *--hp = obj_from_case(459); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -21204,7 +21377,7 @@ gs_execute: /* k code */ rc = 3; goto jump; -case 449: /* clo ek r */ +case 459: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21222,13 +21395,13 @@ case 449: /* clo ek r */ rc = 3; goto jump; -case 450: /* evaluate k x */ +case 460: /* evaluate k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_evaluate: /* k x */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(451); + *--hp = obj_from_case(461); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -21240,7 +21413,7 @@ gs_evaluate: /* k x */ rc = 4; goto jump; -case 451: /* clo ek r */ +case 461: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21252,14 +21425,14 @@ case 451: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(452); + *--hp = obj_from_case(462); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 452: /* clo ek r */ +case 462: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21270,7 +21443,7 @@ case 452: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(453); + *--hp = obj_from_case(463); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -21284,7 +21457,7 @@ case 452: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 453: /* clo ek . */ +case 463: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21296,14 +21469,14 @@ case 453: /* clo ek . */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(454); + *--hp = obj_from_case(464); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -21313,7 +21486,7 @@ case 453: /* clo ek . */ rc = 3; goto jump; -case 454: /* clo ek r */ +case 464: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -21323,7 +21496,7 @@ case 454: /* clo ek r */ /* r[1] */ goto gs_execute; -case 455: /* display-code k cstr oport */ +case 465: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ @@ -21334,17 +21507,17 @@ gs_display_2Dcode: /* k cstr oport */ r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v11087; + goto s_loop_v11047; -s_loop_v11087: /* k i l cstr oport */ - { const fixnum_t v14191_i = fixnum_from_obj(r[1]); - if (((fxsub(fixnum_from_obj(r[2]), (v14191_i))) <= (+70))) { - (void)(oportputcircular((cx__233027), (r[4]), 1)); +s_loop_v11047: /* k i l cstr oport */ + { const fixnum_t v14208_i = fixnum_from_obj(r[1]); + if (((fxsub(fixnum_from_obj(r[2]), (v14208_i))) <= (+70))) { + (void)(oportputcircular((cx__232986), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14191_i), fixnum_from_obj(r[2])); + int *d = substring(stringdata((r[3])), (v14208_i), fixnum_from_obj(r[2])); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - r[5] = obj_from_void(oportputcircular((cx__233031), (r[4]), 1)); + r[5] = obj_from_void(oportputcircular((cx__232990), (r[4]), 1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -21353,42 +21526,42 @@ s_loop_v11087: /* k i l cstr oport */ rc = 3; goto jump; } else { - (void)(oportputcircular((cx__233027), (r[4]), 1)); + (void)(oportputcircular((cx__232986), (r[4]), 1)); { /* substring */ - int *d = substring(stringdata((r[3])), (v14191_i), (fxadd((v14191_i), (+70)))); + int *d = substring(stringdata((r[3])), (v14208_i), (fxadd((v14208_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - (void)(oportputcircular((cx__233022), (r[4]), 1)); + (void)(oportputcircular((cx__232981), (r[4]), 1)); /* r[0] */ - r[1] = obj_from_fixnum(fxadd((v14191_i), (+70))); + r[1] = obj_from_fixnum(fxadd((v14208_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v11087; + goto s_loop_v11047; } } -case 456: /* process-syntax k id xval oport */ +case 466: /* process-syntax k id xval oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id xval oport */ (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233056), (r[3]), 1)); + (void)(oportputcircular((cx__233015), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233055), (r[3]), 1)); + (void)(oportputcircular((cx__233014), (r[3]), 1)); { /* open-output-string */ r[4] = (mkoport_string(4, newcb())); } hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; - *--hp = obj_from_case(457); + *--hp = obj_from_case(467); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; goto gs_write_2Dserialized_2Dsexp; -case 457: /* clo ek . */ +case 467: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21400,20 +21573,20 @@ case 457: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(458); + *--hp = obj_from_case(468); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_display_2Dcode; -case 458: /* clo ek . */ +case 468: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21429,17 +21602,17 @@ case 458: /* clo ek . */ rc = 3; goto jump; -case 459: /* process-alias k id oldid oport */ +case 469: /* process-alias k id oldid oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id oldid oport */ (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233066), (r[3]), 1)); + (void)(oportputcircular((cx__233025), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); - (void)(oportputcircular((cx__233031), (r[3]), 1)); - (void)(oportputcircular((cx__233065), (r[3]), 1)); + (void)(oportputcircular((cx__232990), (r[3]), 1)); + (void)(oportputcircular((cx__233024), (r[3]), 1)); (void)(oportputcircular((r[2]), (r[3]), 1)); - r[4] = obj_from_void(oportputcircular((cx__233055), (r[3]), 1)); + r[4] = obj_from_void(oportputcircular((cx__233014), (r[3]), 1)); r[5+0] = r[0]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); @@ -21449,7 +21622,7 @@ case 459: /* process-alias k id oldid oport */ rc = 3; goto jump; -case 460: /* process-command k xval oport */ +case 470: /* process-command k xval oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k xval oport */ @@ -21464,14 +21637,14 @@ case 460: /* process-command k xval oport */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(461); + *--hp = obj_from_case(471); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; -case 461: /* clo ek r */ +case 471: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21486,7 +21659,7 @@ case 461: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(462); + *--hp = obj_from_case(472); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -21500,7 +21673,7 @@ case 461: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 462: /* clo ek . */ +case 472: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21514,22 +21687,22 @@ case 462: /* clo ek . */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233077), (r[3]), 1)); + (void)(oportputcircular((cx__233036), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(463); + *--hp = obj_from_case(473); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 463: /* clo ek . */ +case 473: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21545,7 +21718,7 @@ case 463: /* clo ek . */ rc = 3; goto jump; -case 464: /* process-define k id xlam oport */ +case 474: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine: /* k id xlam oport */ @@ -21561,14 +21734,14 @@ gs_process_2Ddefine: /* k id xlam oport */ *--hp = r[3]; *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(465); + *--hp = obj_from_case(475); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (mknull()); goto gs_find_2Dfree; -case 465: /* clo ek r */ +case 475: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21586,7 +21759,7 @@ case 465: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(466); + *--hp = obj_from_case(476); r[8] = (hendblk(6+1)); r[9+0] = r[8]; r[9+1] = r[5]; @@ -21600,7 +21773,7 @@ case 465: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 466: /* clo ek . */ +case 476: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21616,35 +21789,35 @@ case 466: /* clo ek . */ obj o = r[7]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[8] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[8] = (hpushstr(8, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[6])[0] = (r[8])); - { fixnum_t v14186_len; + { fixnum_t v14203_len; r[9] = (objptr_from_obj(r[6])[0]); - v14186_len = (stringlen((r[9]))); + v14203_len = (stringlen((r[9]))); r[9] = (car((r[5]))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[9])) { - if (((v14186_len) > (+4))) { - { char_t v14190_tmp; + if (((v14203_len) > (+4))) { + { char_t v14207_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14190_tmp = (*(unsigned char*)stringref((r[9]), (+0))); - r[9] = obj_from_bool((v14190_tmp) == ('&')); } + v14207_tmp = (*(unsigned char*)stringref((r[9]), (+0))); + r[9] = obj_from_bool((v14207_tmp) == ('&')); } if (bool_from_obj(r[9])) { - { char_t v14189_tmp; + { char_t v14206_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14189_tmp = (*(unsigned char*)stringref((r[9]), (+1))); - r[9] = obj_from_bool((v14189_tmp) == ('0')); } + v14206_tmp = (*(unsigned char*)stringref((r[9]), (+1))); + r[9] = obj_from_bool((v14206_tmp) == ('0')); } if (bool_from_obj(r[9])) { - { char_t v14188_tmp; + { char_t v14205_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14188_tmp = (*(unsigned char*)stringref((r[9]), (+2))); - r[9] = obj_from_bool((v14188_tmp) == ('{')); } + v14205_tmp = (*(unsigned char*)stringref((r[9]), (+2))); + r[9] = obj_from_bool((v14205_tmp) == ('{')); } if (bool_from_obj(r[9])) { - { char_t v14187_tmp; + { char_t v14204_tmp; r[9] = (objptr_from_obj(r[6])[0]); - v14187_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14186_len), (+1))))); - r[9] = obj_from_bool((v14187_tmp) == ('}')); } + v14204_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14203_len), (+1))))); + r[9] = obj_from_bool((v14204_tmp) == ('}')); } } else { r[9] = obj_from_bool(0); } @@ -21662,17 +21835,17 @@ case 466: /* clo ek . */ } if (bool_from_obj(r[9])) { (void)(oportputc('\n', (r[4]))); - (void)(oportputcircular((cx__233100), (r[4]), 1)); + (void)(oportputcircular((cx__233059), (r[4]), 1)); (void)(oportputcircular((r[3]), (r[4]), 1)); - (void)(oportputcircular((cx__233055), (r[4]), 1)); + (void)(oportputcircular((cx__233014), (r[4]), 1)); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(467); + *--hp = obj_from_case(477); r[9] = (hendblk(2+1)); r[10] = (objptr_from_obj(r[6])[0]); { /* substring */ - int *d = substring(stringdata((r[10])), (+3), (fxsub((v14186_len), (+1)))); + int *d = substring(stringdata((r[10])), (+3), (fxsub((v14203_len), (+1)))); r[10] = (hpushstr(11, d)); } r[0] = r[9]; r[1] = (r[10]); @@ -21708,7 +21881,7 @@ case 466: /* clo ek . */ *--hp = r[4]; *--hp = r[2]; *--hp = r[9]; - *--hp = obj_from_case(468); + *--hp = obj_from_case(478); r[12] = (hendblk(5+1)); r[0] = (r[12]); r[1] = r[9]; @@ -21716,7 +21889,7 @@ case 466: /* clo ek . */ goto gs_find_2Dfree; } } -case 467: /* clo ek . */ +case 477: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21732,7 +21905,7 @@ case 467: /* clo ek . */ rc = 3; goto jump; -case 468: /* clo ek r */ +case 478: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21747,7 +21920,7 @@ case 468: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(469); + *--hp = obj_from_case(479); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; @@ -21761,7 +21934,7 @@ case 468: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 469: /* clo ek . */ +case 479: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21775,22 +21948,22 @@ case 469: /* clo ek . */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233077), (r[3]), 1)); + (void)(oportputcircular((cx__233036), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(470); + *--hp = obj_from_case(480); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; -case 470: /* clo ek . */ +case 480: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21806,7 +21979,7 @@ case 470: /* clo ek . */ rc = 3; goto jump; -case 471: /* scan-top-form k x */ +case 481: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ @@ -21826,10 +21999,10 @@ gs_scan_2Dtop_2Dform: /* k x */ if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); - r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233169)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233120)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(472); + *--hp = obj_from_case(482); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -21838,12 +22011,12 @@ gs_scan_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10943; + goto s_l_v10903; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233173); + r[5+2] = (cx__233124); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -21855,7 +22028,7 @@ gs_scan_2Dtop_2Dform: /* k x */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(478); + *--hp = obj_from_case(488); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -21878,16 +22051,16 @@ gs_scan_2Dtop_2Dform: /* k x */ } } -case 472: /* clo ek r */ +case 482: /* 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_v10943: /* ek r k */ +s_l_v10903: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(473); + *--hp = obj_from_case(483); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -21899,7 +22072,7 @@ s_l_v10943: /* ek r k */ rc = 4; goto jump; -case 473: /* clo ek r */ +case 483: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21909,19 +22082,19 @@ case 473: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(477); + *--hp = obj_from_case(487); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10952; + goto s_loop_v10912; -case 474: /* clo k x */ +case 484: /* 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_v10952: /* k x r */ +s_loop_v10912: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -21933,20 +22106,20 @@ s_loop_v10952: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(474); + *--hp = obj_from_case(484); 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(475); + *--hp = obj_from_case(485); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 475: /* clo ek . */ +case 485: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -21958,7 +22131,7 @@ case 475: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(476); + *--hp = obj_from_case(486); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -21969,7 +22142,7 @@ case 475: /* clo ek . */ rc = 4; goto jump; -case 476: /* clo ek r */ +case 486: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -21985,7 +22158,7 @@ case 476: /* clo ek r */ rc = 3; goto jump; -case 477: /* clo ek . */ +case 487: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22001,7 +22174,7 @@ case 477: /* clo ek . */ rc = 3; goto jump; -case 478: /* clo ek r */ +case 488: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22012,13 +22185,13 @@ case 478: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10927; + goto s_loop_v10887; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(481); + *--hp = obj_from_case(491); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -22036,7 +22209,7 @@ case 478: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(483); + *--hp = obj_from_case(493); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22058,19 +22231,19 @@ case 478: /* clo ek r */ } } -case 479: /* clo k l */ +case 489: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10927: /* k l */ +s_loop_v10887: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(479); + *--hp = obj_from_case(489); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(480); + *--hp = obj_from_case(490); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -22086,7 +22259,7 @@ s_loop_v10927: /* k l */ goto jump; } -case 480: /* clo ek . */ +case 490: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22103,7 +22276,7 @@ case 480: /* clo ek . */ rc = 3; goto jump; -case 481: /* clo ek r */ +case 491: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22115,13 +22288,13 @@ case 481: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(482); + *--hp = obj_from_case(492); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 482: /* clo ek r */ +case 492: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22137,7 +22310,7 @@ case 482: /* clo ek r */ rc = 3; goto jump; -case 483: /* clo ek r */ +case 493: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -22147,7 +22320,7 @@ case 483: /* clo ek r */ /* r[1] */ goto gs_scan_2Dtop_2Dform; -case 484: /* process-top-form k x oport */ +case 494: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ @@ -22167,10 +22340,10 @@ gs_process_2Dtop_2Dform: /* k x oport */ if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); - r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233169)))); + r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233120)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; - *--hp = obj_from_case(485); + *--hp = obj_from_case(495); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); @@ -22179,12 +22352,12 @@ gs_process_2Dtop_2Dform: /* k x oport */ r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10865; + goto s_l_v10825; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; - r[2] = (cx__233173); + r[2] = (cx__233124); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; @@ -22196,7 +22369,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(491); + *--hp = obj_from_case(501); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22211,7 +22384,7 @@ gs_process_2Dtop_2Dform: /* k x oport */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(504); + *--hp = obj_from_case(514); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; @@ -22225,16 +22398,16 @@ gs_process_2Dtop_2Dform: /* k x oport */ } } -case 485: /* clo ek r */ +case 495: /* 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_v10865: /* ek r k */ +s_l_v10825: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(486); + *--hp = obj_from_case(496); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; @@ -22246,7 +22419,7 @@ s_l_v10865: /* ek r k */ rc = 4; goto jump; -case 486: /* clo ek r */ +case 496: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22256,19 +22429,19 @@ case 486: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(490); + *--hp = obj_from_case(500); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ - goto s_loop_v10874; + goto s_loop_v10834; -case 487: /* clo k x */ +case 497: /* 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_v10874: /* k x r */ +s_loop_v10834: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -22280,20 +22453,20 @@ s_loop_v10874: /* k x r */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(487); + *--hp = obj_from_case(497); 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(488); + *--hp = obj_from_case(498); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } -case 488: /* clo ek . */ +case 498: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22305,7 +22478,7 @@ case 488: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(489); + *--hp = obj_from_case(499); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -22316,7 +22489,7 @@ case 488: /* clo ek . */ rc = 4; goto jump; -case 489: /* clo ek r */ +case 499: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22332,7 +22505,7 @@ case 489: /* clo ek r */ rc = 3; goto jump; -case 490: /* clo ek . */ +case 500: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22348,7 +22521,7 @@ case 490: /* clo ek . */ rc = 3; goto jump; -case 491: /* clo ek r */ +case 501: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22361,14 +22534,14 @@ case 491: /* clo ek r */ r[0] = r[4]; r[1] = r[5]; /* r[2] */ - goto s_loop_v10849; + goto s_loop_v10809; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(494); + *--hp = obj_from_case(504); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -22387,7 +22560,7 @@ case 491: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(498); + *--hp = obj_from_case(508); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); @@ -22405,7 +22578,7 @@ case 491: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(499); + *--hp = obj_from_case(509); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -22419,7 +22592,7 @@ case 491: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; - *--hp = obj_from_case(500); + *--hp = obj_from_case(510); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; @@ -22434,22 +22607,22 @@ case 491: /* clo ek r */ } } -case 492: /* clo k x* */ +case 502: /* 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_v10849: /* k x* oport */ +s_loop_v10809: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(492); + *--hp = obj_from_case(502); 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(493); + *--hp = obj_from_case(503); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); @@ -22465,7 +22638,7 @@ s_loop_v10849: /* k x* oport */ goto jump; } -case 493: /* clo ek . */ +case 503: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22482,7 +22655,7 @@ case 493: /* clo ek . */ rc = 3; goto jump; -case 494: /* clo ek r */ +case 504: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22497,13 +22670,13 @@ case 494: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(495); + *--hp = obj_from_case(505); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; -case 495: /* clo ek r */ +case 505: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -22539,12 +22712,12 @@ case 495: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233066), (r[2]), 1)); + (void)(oportputcircular((cx__233025), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__233031), (r[2]), 1)); - (void)(oportputcircular((cx__233065), (r[2]), 1)); + (void)(oportputcircular((cx__232990), (r[2]), 1)); + (void)(oportputcircular((cx__233024), (r[2]), 1)); (void)(oportputcircular((r[7]), (r[2]), 1)); - r[6] = obj_from_void(oportputcircular((cx__233055), (r[2]), 1)); + r[6] = obj_from_void(oportputcircular((cx__233014), (r[2]), 1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -22559,16 +22732,16 @@ case 495: /* clo ek r */ r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); - (void)(oportputcircular((cx__233056), (r[2]), 1)); + (void)(oportputcircular((cx__233015), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); - (void)(oportputcircular((cx__233055), (r[2]), 1)); + (void)(oportputcircular((cx__233014), (r[2]), 1)); { /* open-output-string */ r[8] = (mkoport_string(8, newcb())); } hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[8]; - *--hp = obj_from_case(496); + *--hp = obj_from_case(506); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; @@ -22577,7 +22750,7 @@ case 495: /* clo ek r */ } } -case 496: /* clo ek . */ +case 506: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -22589,247 +22762,19 @@ case 496: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(507); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_display_2Dcode; -case 497: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek . k oport */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc('\n', (r[3]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 498: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } - r += 1; /* shift reg. wnd */ - /* ek r oport x k */ - r[5] = (cdr((r[3]))); - r[5] = (car((r[5]))); - r[6+0] = r[4]; - r[6+1] = r[5]; - r[6+2] = r[1]; - r[6+3] = r[2]; - r += 6; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_process_2Ddefine; - -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 oport k */ - r[0] = r[3]; - /* r[1] */ - /* r[2] */ - goto gs_process_2Dtop_2Dform; - -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; /* shift reg. wnd */ - /* ek r k oport */ - hreserve(hbsz(1), 4); /* 4 live regs */ - *--hp = obj_from_void(0); - r[4] = (hendblk(1)); - { /* open-output-string */ - r[5] = (mkoport_string(5, newcb())); } - 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(501); - r[6] = (hendblk(5+1)); - r[0] = r[6]; - /* r[1] */ - r[2] = (mknull()); - goto gs_find_2Dfree; - -case 501: /* clo ek r */ - assert(rc == 3); - { obj* p = objptr_from_obj(r[0]); - r[1+2] = 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 k oport cstr p */ - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(502); - r[7] = (hendblk(4+1)); - r[8+0] = r[7]; - r[8+1] = r[2]; - r[8+2] = (mknull()); - r[8+3] = (mknull()); - r[8+4] = (mknull()); - r[8+5] = r[1]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 502: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(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 . k oport cstr p */ - { /* get-output-string */ - obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); - if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && - vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); - r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } - (void)(objptr_from_obj(r[4])[0] = (r[6])); - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233077), (r[3]), 1)); - hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(503); - r[7] = (hendblk(2+1)); - r[0] = r[7]; - r[1] = (objptr_from_obj(r[4])[0]); - r[2] = r[3]; - goto gs_display_2Dcode; - -case 503: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(r[0]); - r[1+2] = p[1]; - r[1+3] = p[2]; } - r += 1; /* shift reg. wnd */ - /* ek . k oport */ - r[0] = r[2]; - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = obj_from_void(oportputc('\n', (r[3]))); - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -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 oport */ - hreserve(hbsz(1), 4); /* 4 live regs */ - *--hp = obj_from_void(0); - r[4] = (hendblk(1)); - { /* open-output-string */ - r[5] = (mkoport_string(5, newcb())); } - 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(505); - r[6] = (hendblk(5+1)); - r[0] = r[6]; - /* r[1] */ - r[2] = (mknull()); - goto gs_find_2Dfree; - -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; /* shift reg. wnd */ - /* ek r r k oport cstr p */ - hreserve(hbsz(4+1), 7); /* 7 live regs */ - *--hp = r[6]; - *--hp = r[5]; - *--hp = r[4]; - *--hp = r[3]; - *--hp = obj_from_case(506); - r[7] = (hendblk(4+1)); - r[8+0] = r[7]; - r[8+1] = r[2]; - r[8+2] = (mknull()); - r[8+3] = (mknull()); - r[8+4] = (mknull()); - r[8+5] = r[1]; - r[8+6] = obj_from_bool(0); - r[8+7] = r[6]; - r += 8; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs_codegen; - -case 506: /* clo ek . */ - assert(rc >= 2); - r[2] = obj_from_void(0); /* ignored */ - { obj* p = objptr_from_obj(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 . k oport cstr p */ - { /* get-output-string */ - obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); - if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && - vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); - r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } - (void)(objptr_from_obj(r[4])[0] = (r[6])); - (void)(oportputc('\n', (r[3]))); - (void)(oportputcircular((cx__233077), (r[3]), 1)); - hreserve(hbsz(2+1), 7); /* 7 live regs */ - *--hp = r[3]; - *--hp = r[2]; - *--hp = obj_from_case(507); - r[7] = (hendblk(2+1)); - r[0] = r[7]; - r[1] = (objptr_from_obj(r[4])[0]); - r[2] = r[3]; - goto gs_display_2Dcode; - case 507: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ @@ -22846,76 +22791,293 @@ case 507: /* clo ek . */ rc = 3; goto jump; -case 508: /* path-strip-directory k filename */ +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; /* shift reg. wnd */ + /* ek r oport x k */ + r[5] = (cdr((r[3]))); + r[5] = (car((r[5]))); + r[6+0] = r[4]; + r[6+1] = r[5]; + r[6+2] = r[1]; + r[6+3] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_process_2Ddefine; + +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; /* shift reg. wnd */ + /* ek r oport k */ + r[0] = r[3]; + /* r[1] */ + /* r[2] */ + goto gs_process_2Dtop_2Dform; + +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; /* shift reg. wnd */ + /* ek r k oport */ + hreserve(hbsz(1), 4); /* 4 live regs */ + *--hp = obj_from_void(0); + r[4] = (hendblk(1)); + { /* open-output-string */ + r[5] = (mkoport_string(5, newcb())); } + 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(511); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 511: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; + r[1+6] = p[5]; } + r += 1; /* shift reg. wnd */ + /* ek r r k oport cstr p */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(512); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = r[2]; + r[8+2] = (mknull()); + r[8+3] = (mknull()); + r[8+4] = (mknull()); + r[8+5] = r[1]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 512: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(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 . k oport cstr p */ + { /* get-output-string */ + obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } + (void)(objptr_from_obj(r[4])[0] = (r[6])); + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233036), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(513); + r[7] = (hendblk(2+1)); + r[0] = r[7]; + r[1] = (objptr_from_obj(r[4])[0]); + r[2] = r[3]; + goto gs_display_2Dcode; + +case 513: /* clo ek . */ + assert(rc >= 2); + r[2] = 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 oport */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputc('\n', (r[3]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +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 oport */ + hreserve(hbsz(1), 4); /* 4 live regs */ + *--hp = obj_from_void(0); + r[4] = (hendblk(1)); + { /* open-output-string */ + r[5] = (mkoport_string(5, newcb())); } + 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(515); + r[6] = (hendblk(5+1)); + r[0] = r[6]; + /* r[1] */ + r[2] = (mknull()); + goto gs_find_2Dfree; + +case 515: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = 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 k oport cstr p */ + hreserve(hbsz(4+1), 7); /* 7 live regs */ + *--hp = r[6]; + *--hp = r[5]; + *--hp = r[4]; + *--hp = r[3]; + *--hp = obj_from_case(516); + r[7] = (hendblk(4+1)); + r[8+0] = r[7]; + r[8+1] = r[2]; + r[8+2] = (mknull()); + r[8+3] = (mknull()); + r[8+4] = (mknull()); + r[8+5] = r[1]; + r[8+6] = obj_from_bool(0); + r[8+7] = r[6]; + r += 8; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_codegen; + +case 516: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(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 . k oport cstr p */ + { /* get-output-string */ + obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } + (void)(objptr_from_obj(r[4])[0] = (r[6])); + (void)(oportputc('\n', (r[3]))); + (void)(oportputcircular((cx__233036), (r[3]), 1)); + hreserve(hbsz(2+1), 7); /* 7 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(517); + r[7] = (hendblk(2+1)); + r[0] = r[7]; + r[1] = (objptr_from_obj(r[4])[0]); + r[2] = r[3]; + goto gs_display_2Dcode; + +case 517: /* clo ek . */ + assert(rc >= 2); + r[2] = 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 oport */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_void(oportputc('\n', (r[3]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 518: /* path-strip-directory k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Ddirectory: /* k filename */ - { /* 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); } - { fixnum_t v14185_tmp; + hreserve(hbsz(1+1), 2); /* 2 live regs */ + *--hp = r[0]; + *--hp = obj_from_case(519); + r[2] = (hendblk(1+1)); + r[3+0] = (cx_string_2D_3Elist); + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = r[2]; + r[3+2] = r[1]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 519: /* clo 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 v14202_tmp; { /* length */ - int n; obj l = r[2]; + int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14185_tmp = (n); } + v14202_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v14185_tmp); + obj l, o = mknull(); int c = (v14202_tmp); hreserve(hbsz(3)*c, 3); /* 3 live regs */ - l = r[2]; /* gc-safe */ + 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[0] */ - r[1] = r[2]; - r[2] = (mknull()); - goto s_loop_v10750; - -s_loop_v10750: /* k l r */ - if ((isnull((r[1])))) { - { fixnum_t v14184_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14184_tmp = (n); } - { /* list->string */ - int i, c = (v14184_tmp); - obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ - obj l = r[2]; /* gc-safe */ - unsigned char *s = (unsigned char *)stringchars(o); - for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l)); r[3] = (o); } } - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = r[3]; + r[0] = r[2]; + r[1] = r[3]; + r[2] = (mknull()); + goto s_loop_v10706; + +s_loop_v10706: /* k l r */ + if ((isnull((r[1])))) { + r[3+0] = (cx_list_2D_3Estring); + 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; } else { r[3] = (car((r[1]))); - r[3] = (ismemv((r[3]), (cx__233295))); + r[3] = (ismemv((r[3]), (cx__233244))); if (bool_from_obj(r[3])) { - { fixnum_t v14183_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14183_tmp = (n); } - { /* list->string */ - int i, c = (v14183_tmp); - obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ - obj l = r[2]; /* gc-safe */ - unsigned char *s = (unsigned char *)stringchars(o); - for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l)); - r[3] = (o); } } - /* r[0] */ - pc = objptr_from_obj(r[0])[0]; - r[1] = obj_from_ktrap(); - r[2] = r[3]; + r[3+0] = (cx_list_2D_3Estring); + 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; @@ -22931,86 +23093,92 @@ s_loop_v10750: /* k l r */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v10750; + goto s_loop_v10706; } } -case 509: /* path-strip-extension k filename */ +case 520: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ - { /* 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); } - { fixnum_t v14180_tmp; - { /* length */ - int n; obj l = r[2]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14180_tmp = (n); } - { /* reverse */ - obj l, o = mknull(); int c = (v14180_tmp); - hreserve(hbsz(3)*c, 3); /* 3 live regs */ - l = r[2]; /* gc-safe */ - for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[2] = (o); } } - r[3] = (ismemv(obj_from_char('.'), (r[2]))); - if (bool_from_obj(r[3])) { - r[4] = (cdr((r[3]))); - { fixnum_t v14181_tmp; - { /* length */ - int n; obj l = r[4]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14181_tmp = (n); } - { /* reverse */ - obj l, o = mknull(); int c = (v14181_tmp); - hreserve(hbsz(3)*c, 5); /* 5 live regs */ - l = r[4]; /* gc-safe */ - for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); - *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } - r[4] = (o); } } - { fixnum_t v14182_tmp; - { /* length */ - int n; obj l = r[4]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v14182_tmp = (n); } - { /* list->string */ - int i, c = (v14182_tmp); - obj o = hpushstr(5, allocstring(c, ' ')); /* 5 live regs */ - obj l = r[4]; /* 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); } } - } else { - r[2] = r[1]; - } - r[3+0] = r[0]; + hreserve(hbsz(2+1), 2); /* 2 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(521); + r[2] = (hendblk(2+1)); + r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; - r[3+1] = obj_from_ktrap(); - r[3+2] = r[2]; + r[3+1] = r[2]; + r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 510: /* module-name k filename */ +case 521: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r filename k */ + { fixnum_t v14200_tmp; + { /* length */ + int n; obj l = r[1]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14200_tmp = (n); } + { /* reverse */ + obj l, o = mknull(); int c = (v14200_tmp); + hreserve(hbsz(3)*c, 4); /* 4 live regs */ + l = r[1]; /* gc-safe */ + for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); + *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } + r[4] = (o); } } + r[5] = (ismemv(obj_from_char('.'), (r[4]))); + if (bool_from_obj(r[5])) { + r[6] = (cdr((r[5]))); + { fixnum_t v14201_tmp; + { /* length */ + int n; obj l = r[6]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14201_tmp = (n); } + { /* reverse */ + obj l, o = mknull(); int c = (v14201_tmp); + hreserve(hbsz(3)*c, 7); /* 7 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[6] = (o); } } + r[0] = (cx_list_2D_3Estring); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[3]; + r[2] = r[6]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[0] = r[3]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + /* r[2] */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 522: /* module-name k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_module_2Dname: /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(511); + *--hp = obj_from_case(523); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; -case 511: /* clo ek r */ +case 523: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -23020,7 +23188,7 @@ case 511: /* clo ek r */ /* r[1] */ goto gs_path_2Dstrip_2Dextension; -case 512: /* process-file k fname */ +case 524: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ @@ -23037,13 +23205,13 @@ gs_process_2Dfile: /* k fname */ *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(513); + *--hp = obj_from_case(525); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; -case 513: /* clo ek r */ +case 525: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23053,7 +23221,7 @@ case 513: /* clo ek r */ r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r k oport mname iport fname */ - r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233169)))); + r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233120)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; @@ -23061,7 +23229,7 @@ case 513: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; - *--hp = obj_from_case(514); + *--hp = obj_from_case(526); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); @@ -23075,19 +23243,19 @@ case 513: /* clo ek r */ r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10682; + goto s_l_v10630; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__233173); + r[2] = (cx__233124); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } -case 514: /* clo ek r */ +case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23097,25 +23265,25 @@ case 514: /* clo ek r */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v10682: /* ek r fname k oport mname r iport */ +s_l_v10630: /* ek r fname k oport mname r iport */ (void)(objptr_from_obj(r[7])[0] = (r[1])); (void)(objptr_from_obj(r[5])[0] = (r[6])); - (void)(oportputcircular((cx__233349), (r[4]), 1)); + (void)(oportputcircular((cx__233292), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); - (void)(oportputcircular((cx__233348), (r[4]), 1)); + (void)(oportputcircular((cx__233291), (r[4]), 1)); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = r[7]; - *--hp = obj_from_case(515); + *--hp = obj_from_case(527); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; -case 515: /* clo ek r */ +case 527: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23125,19 +23293,19 @@ case 515: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r iport k mname oport */ (void)(oportputcircular((r[1]), (r[5]), 1)); - (void)(oportputcircular((cx__233347), (r[5]), 1)); + (void)(oportputcircular((cx__233290), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); - (void)(oportputcircular((cx__233346), (r[5]), 1)); + (void)(oportputcircular((cx__233289), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); - (void)(oportputcircular((cx__233345), (r[5]), 1)); + (void)(oportputcircular((cx__233288), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(516); + *--hp = obj_from_case(528); r[6] = (hendblk(3+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23148,7 +23316,7 @@ case 515: /* clo ek r */ rc = 4; goto jump; -case 516: /* clo ek r */ +case 528: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23160,7 +23328,7 @@ case 516: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(520); + *--hp = obj_from_case(532); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; @@ -23168,15 +23336,15 @@ case 516: /* clo ek r */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v10693; + goto s_loop_v10641; -case 517: /* clo k x */ +case 529: /* 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 */ -s_loop_v10693: /* k x oport iport */ +s_loop_v10641: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23189,13 +23357,13 @@ s_loop_v10693: /* k x oport iport */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(517); + *--hp = obj_from_case(529); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(518); + *--hp = obj_from_case(530); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ @@ -23203,7 +23371,7 @@ s_loop_v10693: /* k x oport iport */ goto gs_process_2Dtop_2Dform; } -case 518: /* clo ek . */ +case 530: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23215,7 +23383,7 @@ case 518: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(519); + *--hp = obj_from_case(531); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -23226,7 +23394,7 @@ case 518: /* clo ek . */ rc = 4; goto jump; -case 519: /* clo ek r */ +case 531: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23242,7 +23410,7 @@ case 519: /* clo ek r */ rc = 3; goto jump; -case 520: /* clo ek . */ +case 532: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23251,7 +23419,7 @@ case 520: /* clo ek . */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ - (void)(oportputcircular((cx__233337), (r[4]), 1)); + (void)(oportputcircular((cx__233280), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; @@ -23260,7 +23428,7 @@ case 520: /* clo ek . */ rc = 3; goto jump; -case 521: /* clo ek r */ +case 533: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23268,7 +23436,7 @@ case 521: /* clo ek r */ static obj c[] = { obj_from_objptr(vmcases+1) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(522); + *--hp = obj_from_case(534); r[3] = (hendblk(0+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -23279,7 +23447,7 @@ case 521: /* clo ek r */ rc = 3; goto jump; -case 522: /* clo ek r */ +case 534: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ @@ -23291,7 +23459,7 @@ case 522: /* clo ek r */ static obj c[] = { obj_from_objptr(vmcases+6) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(523); + *--hp = obj_from_case(535); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23300,7 +23468,7 @@ case 522: /* clo ek r */ rc = 2; goto jump; -case 523: /* clo ek . */ +case 535: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ @@ -23312,7 +23480,7 @@ case 523: /* clo ek . */ static obj c[] = { obj_from_objptr(vmcases+7) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(524); + *--hp = obj_from_case(536); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23321,28 +23489,28 @@ case 523: /* clo ek . */ rc = 2; goto jump; -case 524: /* clo ek . */ +case 536: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ - cx_test1 = (cx__233376); - cx_test2 = (cx__233646); - cx_test3 = (cx__233848); - cx_test4 = (cx__234250); - cx_test5 = (cx__234380); + cx_test1 = (cx__233319); + cx_test2 = (cx__233589); + cx_test3 = (cx__233791); + cx_test4 = (cx__234193); + cx_test5 = (cx__234323); cx__2Averbose_2A = obj_from_bool(0); cx__2Areset_2A = obj_from_bool(0); - { static obj c[] = { obj_from_case(525) }; cx_error_2A = (obj)c; } - { static obj c[] = { obj_from_case(527) }; cx_run_2Dtests = (obj)c; } - { static obj c[] = { obj_from_case(533) }; cx_repl_2Deval = (obj)c; } - { static obj c[] = { obj_from_case(540) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } - { static obj c[] = { obj_from_case(549) }; cx_repl_2Dread = (obj)c; } - { static obj c[] = { obj_from_case(550) }; cx_repl_2Dfrom_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(555) }; cx_repl_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(558) }; cx_benchmark_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(564) }; cx_run_2Drepl = (obj)c; } - { static obj c[] = { obj_from_case(565) }; cx_main = (obj)c; } + { static obj c[] = { obj_from_case(537) }; cx_error_2A = (obj)c; } + { static obj c[] = { obj_from_case(539) }; cx_run_2Dtests = (obj)c; } + { static obj c[] = { obj_from_case(545) }; cx_repl_2Deval = (obj)c; } + { static obj c[] = { obj_from_case(552) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } + { static obj c[] = { obj_from_case(561) }; cx_repl_2Dread = (obj)c; } + { static obj c[] = { obj_from_case(562) }; cx_repl_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(567) }; cx_repl_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(570) }; cx_benchmark_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(576) }; cx_run_2Drepl = (obj)c; } + { static obj c[] = { obj_from_case(577) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ @@ -23351,7 +23519,7 @@ case 524: /* clo ek . */ rc = 2; goto jump; -case 525: /* error* k msg args */ +case 537: /* error* k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_error_2A: /* k msg args */ @@ -23361,12 +23529,12 @@ gs_error_2A: /* k msg args */ (void)(oportputc('\n', (r[3]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(526); + *--hp = obj_from_case(538); r[4] = (hendblk(1+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; - goto s_loop_v10650; + goto s_loop_v10598; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -23385,7 +23553,7 @@ gs_error_2A: /* k msg args */ goto jump; } -s_loop_v10650: /* k l p */ +s_loop_v10598: /* k l p */ if ((ispair((r[1])))) { r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); @@ -23394,7 +23562,7 @@ s_loop_v10650: /* k l p */ /* r[0] */ r[1] = r[3]; /* r[2] */ - goto s_loop_v10650; + goto s_loop_v10598; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -23405,7 +23573,7 @@ s_loop_v10650: /* k l p */ goto jump; } -case 526: /* clo ek . */ +case 538: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23420,7 +23588,7 @@ case 526: /* clo ek . */ rc = 3; goto jump; -case 527: /* run-tests k */ +case 539: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ @@ -23429,18 +23597,18 @@ gs_run_2Dtests: /* k */ r[1] = (hendblk(1)); r[2] = obj_from_flonum(2, clock()); (void)(objptr_from_obj(r[1])[0] = (r[2])); - (void)(oportputcircular((cx__234813), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234756), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(528); + *--hp = obj_from_case(540); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; -case 528: /* clo ek r */ +case 540: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23452,13 +23620,13 @@ case 528: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(529); + *--hp = obj_from_case(541); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test2); goto gs_evaluate; -case 529: /* clo ek r */ +case 541: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23470,13 +23638,13 @@ case 529: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(530); + *--hp = obj_from_case(542); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test3); goto gs_evaluate; -case 530: /* clo ek r */ +case 542: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23488,13 +23656,13 @@ case 530: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(531); + *--hp = obj_from_case(543); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test4); goto gs_evaluate; -case 531: /* clo ek r */ +case 543: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23506,13 +23674,13 @@ case 531: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(532); + *--hp = obj_from_case(544); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test5); goto gs_evaluate; -case 532: /* clo ek r */ +case 544: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23521,23 +23689,23 @@ case 532: /* clo ek r */ /* ek r k start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - (void)(oportputcircular((cx__234812), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v14178_b; - { flonum_t v14177_a; - { const flonum_t v14176_b = (CLOCKS_PER_SEC); - { const flonum_t v14174_a = (clock()); + (void)(oportputcircular((cx__234755), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14198_b; + { flonum_t v14197_a; + { const flonum_t v14196_b = (CLOCKS_PER_SEC); + { const flonum_t v14194_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14175_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14177_a = ((v14174_a) - (v14175_tmp)); } + { const flonum_t v14195_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14197_a = ((v14194_a) - (v14195_tmp)); } } else { - v14177_a = ((v14174_a) - flonum_from_obj(r[4])); + v14197_a = ((v14194_a) - flonum_from_obj(r[4])); } } - v14178_b = ((v14177_a) / (v14176_b)); } } - { const flonum_t v14179_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14179_tmp) * (v14178_b)); } } + v14198_b = ((v14197_a) / (v14196_b)); } } + { const flonum_t v14199_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14199_tmp) * (v14198_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234788), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234731), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -23547,14 +23715,14 @@ case 532: /* clo ek r */ rc = 3; goto jump; -case 533: /* repl-eval k x */ +case 545: /* repl-eval k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval: /* k x */ cx__2Areset_2A = r[0]; hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; - *--hp = obj_from_case(534); + *--hp = obj_from_case(546); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23566,14 +23734,14 @@ gs_repl_2Deval: /* k x */ rc = 4; goto jump; -case 534: /* clo ek r */ +case 546: /* clo 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 (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234885), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234828), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); @@ -23582,7 +23750,7 @@ case 534: /* clo ek r */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(535); + *--hp = obj_from_case(547); r[3] = (hendblk(2+1)); if ((ispair((r[1])))) { r[4+0] = obj_from_ktrap(); @@ -23591,12 +23759,12 @@ case 534: /* clo ek r */ r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10571; + goto s_l_v10519; } else { r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = (cx__234883); + r[4+2] = (cx__234826); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23604,14 +23772,14 @@ case 534: /* clo ek r */ goto jump; } -case 535: /* clo ek . */ +case 547: /* clo ek . */ assert(rc >= 2); r[2] = 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_v10571: /* ek . k r */ +s_l_v10519: /* ek . k r */ r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[4])) { @@ -23619,7 +23787,7 @@ s_l_v10571: /* ek . k r */ } else { } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234876), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234819), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } @@ -23629,14 +23797,14 @@ s_l_v10571: /* ek . k r */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(536); + *--hp = obj_from_case(548); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = (mknull()); goto gs_find_2Dfree; -case 536: /* clo ek r */ +case 548: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23647,7 +23815,7 @@ case 536: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(537); + *--hp = obj_from_case(549); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; @@ -23661,7 +23829,7 @@ case 536: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_codegen; -case 537: /* clo ek . */ +case 549: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23673,7 +23841,7 @@ case 537: /* clo ek . */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } hreserve(hbsz(1), 5); /* 5 live regs */ *--hp = obj_from_bool(0); @@ -23681,7 +23849,7 @@ case 537: /* clo ek . */ if (bool_from_obj(cx__2Averbose_2A)) { (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); - (void)(oportputcircular((cx__234869), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234812), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[6] = obj_from_flonum(6, clock()); (void)(objptr_from_obj(r[5])[0] = (r[6])); @@ -23693,7 +23861,7 @@ case 537: /* clo ek . */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(538); + *--hp = obj_from_case(550); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -23703,7 +23871,7 @@ case 537: /* clo ek . */ rc = 3; goto jump; -case 538: /* clo ek r */ +case 550: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23713,13 +23881,13 @@ case 538: /* clo ek r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(539); + *--hp = obj_from_case(551); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; -case 539: /* clo ek r */ +case 551: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23733,23 +23901,23 @@ case 539: /* clo ek r */ (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } if (bool_from_obj(cx__2Averbose_2A)) { - (void)(oportputcircular((cx__234812), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); - { flonum_t v14172_b; - { flonum_t v14171_a; - { const flonum_t v14170_b = (CLOCKS_PER_SEC); - { const flonum_t v14168_a = (clock()); + (void)(oportputcircular((cx__234755), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + { flonum_t v14192_b; + { flonum_t v14191_a; + { const flonum_t v14190_b = (CLOCKS_PER_SEC); + { const flonum_t v14188_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { - { const flonum_t v14169_tmp = ((flonum_t)fixnum_from_obj(r[4])); - v14171_a = ((v14168_a) - (v14169_tmp)); } + { const flonum_t v14189_tmp = ((flonum_t)fixnum_from_obj(r[4])); + v14191_a = ((v14188_a) - (v14189_tmp)); } } else { - v14171_a = ((v14168_a) - flonum_from_obj(r[4])); + v14191_a = ((v14188_a) - flonum_from_obj(r[4])); } } - v14172_b = ((v14171_a) / (v14170_b)); } } - { const flonum_t v14173_tmp = ((flonum_t)(+1000)); - r[4] = obj_from_flonum(4, (v14173_tmp) * (v14172_b)); } } + v14192_b = ((v14191_a) / (v14190_b)); } } + { const flonum_t v14193_tmp = ((flonum_t)(+1000)); + r[4] = obj_from_flonum(4, (v14193_tmp) * (v14192_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); - (void)(oportputcircular((cx__234788), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); + (void)(oportputcircular((cx__234731), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[4] = obj_from_void(0); @@ -23762,7 +23930,7 @@ case 539: /* clo ek r */ rc = 3; goto jump; -case 540: /* repl-eval-top-form k x */ +case 552: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ @@ -23782,10 +23950,10 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); - r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233169)))); + r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233120)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; - *--hp = obj_from_case(541); + *--hp = obj_from_case(553); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -23794,12 +23962,12 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10551; + goto s_l_v10499; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233173); + r[5+2] = (cx__233124); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -23811,7 +23979,7 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(543); + *--hp = obj_from_case(555); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; @@ -23829,22 +23997,22 @@ gs_repl_2Deval_2Dtop_2Dform: /* k x */ } } -case 541: /* clo ek r */ +case 553: /* 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_v10551: /* ek r k */ +s_l_v10499: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(542); + *--hp = obj_from_case(554); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; -case 542: /* clo ek . */ +case 554: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23860,7 +24028,7 @@ case 542: /* clo ek . */ rc = 3; goto jump; -case 543: /* clo ek r */ +case 555: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23871,13 +24039,13 @@ case 543: /* clo ek r */ r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; - goto s_loop_v10535; + goto s_loop_v10483; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(546); + *--hp = obj_from_case(558); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); @@ -23895,7 +24063,7 @@ case 543: /* clo ek r */ if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(548); + *--hp = obj_from_case(560); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -23913,19 +24081,19 @@ case 543: /* clo ek r */ } } -case 544: /* clo k x* */ +case 556: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ -s_loop_v10535: /* k x* */ +s_loop_v10483: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(544); + *--hp = obj_from_case(556); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(545); + *--hp = obj_from_case(557); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); @@ -23941,7 +24109,7 @@ s_loop_v10535: /* k x* */ goto jump; } -case 545: /* clo ek . */ +case 557: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -23958,7 +24126,7 @@ case 545: /* clo ek . */ rc = 3; goto jump; -case 546: /* clo ek r */ +case 558: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23970,13 +24138,13 @@ case 546: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(547); + *--hp = obj_from_case(559); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; -case 547: /* clo ek r */ +case 559: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -23992,7 +24160,7 @@ case 547: /* clo ek r */ rc = 3; goto jump; -case 548: /* clo ek r */ +case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -24002,11 +24170,11 @@ case 548: /* clo ek r */ /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; -case 549: /* repl-read k iport */ +case 561: /* repl-read k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dread: /* k iport */ - (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234941), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); + (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234884), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0)); r[2+0] = (cx__25read); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; @@ -24017,20 +24185,20 @@ gs_repl_2Dread: /* k iport */ rc = 4; goto jump; -case 550: /* repl-from-port k iport */ +case 562: /* repl-from-port k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfrom_2Dport: /* k iport */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(551); + *--hp = obj_from_case(563); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; -case 551: /* clo ek r */ +case 563: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24040,14 +24208,14 @@ case 551: /* clo ek r */ r[0] = r[3]; /* r[1] */ /* r[2] */ - goto s_loop_v10482; + goto s_loop_v10430; -case 552: /* clo k x */ +case 564: /* 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_v10482: /* k x iport */ +s_loop_v10430: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -24059,20 +24227,20 @@ s_loop_v10482: /* k x iport */ } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(552); + *--hp = obj_from_case(564); 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(553); + *--hp = obj_from_case(565); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } -case 553: /* clo ek . */ +case 565: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24084,13 +24252,13 @@ case 553: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(554); + *--hp = obj_from_case(566); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; -case 554: /* clo ek r */ +case 566: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -24106,18 +24274,18 @@ case 554: /* clo ek r */ rc = 3; goto jump; -case 555: /* repl-file k fname */ +case 567: /* repl-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfile: /* k fname */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233169)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233120)))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(556); + *--hp = obj_from_case(568); r[4] = (hendblk(2+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24127,12 +24295,12 @@ gs_repl_2Dfile: /* k fname */ r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10463; + goto s_l_v10411; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233173); + r[5+2] = (cx__233124); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24140,24 +24308,24 @@ gs_repl_2Dfile: /* k fname */ goto jump; } -case 556: /* clo ek r */ +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_v10463: /* ek r k iport */ +s_l_v10411: /* ek r k iport */ (void)(objptr_from_obj(r[3])[0] = (r[1])); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(557); + *--hp = obj_from_case(569); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[3])[0]); goto gs_repl_2Dfrom_2Dport; -case 557: /* clo ek . */ +case 569: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24173,19 +24341,19 @@ case 557: /* clo ek . */ rc = 3; goto jump; -case 558: /* benchmark-file k fname */ +case 570: /* benchmark-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_benchmark_2Dfile: /* k fname */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233169)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233120)))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(559); + *--hp = obj_from_case(571); r[4] = (hendblk(3+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); @@ -24196,12 +24364,12 @@ gs_benchmark_2Dfile: /* k fname */ r[6+4] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v10427; + goto s_l_v10375; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__233173); + r[5+2] = (cx__233124); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24209,24 +24377,24 @@ gs_benchmark_2Dfile: /* k fname */ goto jump; } -case 559: /* clo ek r */ +case 571: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_l_v10427: /* ek r fname k iport */ +s_l_v10375: /* ek r fname k iport */ (void)(objptr_from_obj(r[4])[0] = (r[1])); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; - *--hp = obj_from_case(560); + *--hp = obj_from_case(572); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; - *--hp = obj_from_case(563); + *--hp = obj_from_case(575); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; @@ -24237,7 +24405,7 @@ s_l_v10427: /* ek r fname k iport */ rc = 4; goto jump; -case 560: /* clo ek . */ +case 572: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24248,13 +24416,13 @@ case 560: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(561); + *--hp = obj_from_case(573); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[2])[0]); goto gs_repl_2Dfrom_2Dport; -case 561: /* clo ek . */ +case 573: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24265,13 +24433,13 @@ case 561: /* clo ek . */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(562); + *--hp = obj_from_case(574); r[4] = (hendblk(2+1)); r[0] = r[4]; - r[1] = (cx__234972); + r[1] = (cx__234915); goto gs_repl_2Deval_2Dtop_2Dform; -case 562: /* clo ek . */ +case 574: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -24287,14 +24455,14 @@ case 562: /* clo ek . */ rc = 3; goto jump; -case 563: /* clo ek r */ +case 575: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r fname k */ - r[4] = (cxs_syntax_2Dmatch_3F((cx__234978), (r[1]))); + r[4] = (cxs_syntax_2Dmatch_3F((cx__234921), (r[1]))); if (bool_from_obj(r[4])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -24307,7 +24475,7 @@ case 563: /* clo ek r */ r[5+0] = (cx_error); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; - r[5+2] = (cx__234977); + r[5+2] = (cx__234920); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -24315,7 +24483,7 @@ case 563: /* clo ek r */ goto jump; } -case 564: /* run-repl k */ +case 576: /* run-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Drepl: /* k */ @@ -24325,13 +24493,13 @@ gs_run_2Drepl: /* k */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; -case 565: /* main k argv */ +case 577: /* 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(566); + *--hp = obj_from_case(578); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; @@ -24341,39 +24509,39 @@ case 565: /* main k argv */ rc = 2; goto jump; -case 566: /* clo ek r */ +case 578: /* clo 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]))); - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235021), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234964), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_process_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235013), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234956), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_repl_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235005), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234948), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_benchmark_2Dfile; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234999), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234942), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { - if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234996), (r[3])))) { + if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234939), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_run_2Drepl; diff --git a/n.c b/n.c index 520f96f..386965a 100644 --- a/n.c +++ b/n.c @@ -19,7 +19,20 @@ #include /* standard definitions */ +#ifdef NAN_BOXING +#include +typedef int64_t obj; /* pointers are this size, higher 16 bits and lower bit zero */ +typedef int64_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) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask) +#define isobjptr(o) (!notobjptr(o)) +#define notaptr(o) ((o) & 0xffff000000000001ULL) +#define isaptr(o) (!notaptr(o)) +#else 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 */ @@ -31,6 +44,7 @@ typedef struct { /* type descriptor */ #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 1) #define isaptr(o) (!notaptr(o)) +#endif #define obj_from_obj(o) (o) #define obj_from_objptr(p) ((obj)(p)) @@ -81,26 +95,52 @@ extern char **cxg_argv; /* extra definitions */ /* basic object representation */ -#define isimm(o, t) (((o) & 0xf) == (((t) << 1) | 1)) -#define isimm2(o1, o2, t) (((((o1) & 0xf) << 4) | ((o2) & 0xf)) == (((((t) << 1) | 1) << 4) | (((t) << 1) | 1))) -#define getimmu_unchecked(o) (long)(((o) >> 4) & 0xfffffff) -#define getimms_unchecked(o) (long)(((((o) >> 4) & 0xfffffff) ^ 0x8000000) - 0x8000000) +#ifdef NAN_BOXING +#define isim0(o) (((o) & 0xffff000000000003ULL) == 3) +#define isimm(o, t) (((o) & 0xffff0000000000ffULL) == (((t) << 2) | 1)) +#ifdef NDEBUG + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) +#else + extern long getim0s(obj o); + extern long getimmu(obj o, int t); +#endif +#ifndef NDEBUG +long getim0s(obj o) { + assert(isim0(o)); + return (long)(((((uint32_t)o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000); +} +long getimmu(obj o, int t) { + assert(isimm((o), t)); + return (long)(((uint32_t)o >> 8) & 0xffffff); +} +#endif +#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3)) +#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1)) +#else +#define isim0(o) (((o) & 3) == 3) +#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1)) +#ifdef NDEBUG + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) +#else + extern long getim0s(obj o); + extern long getimmu(obj o, int t); +#endif +#ifndef NDEBUG +long getim0s(obj o) { + assert(isim0(o)); + return (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000); +} long getimmu(obj o, int t) { assert(isimm(o, t)); - return getimmu_unchecked(o); + return (long)((o >> 8) & 0xffffff); } -long getimms(obj o, int t) { - assert(isimm(o, t)); - return getimms_unchecked(o); -} -#ifdef NDEBUG - #define getimmu(o, t) getimmu_unchecked(o) - #define getimms(o, t) getimms_unchecked(o) -#else - extern long getimmu(obj o, int t); - extern long getimms(obj o, int t); #endif -#define mkimm(o, t) (obj)((((o) & 0xfffffff) << 4) | ((t) << 1) | 1) +#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3) +#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1) +#define FLONUMS_BOXED +#endif #ifndef NDEBUG int isnative(obj o, cxtype_t *tp) { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; @@ -118,27 +158,13 @@ void *getnative(obj o, cxtype_t *tp) { extern int isnative(obj o, cxtype_t *tp); extern void *getnative(obj o, cxtype_t *tp); #endif +extern int istagged(obj o, int t); int istagged(obj o, int t) { if (!isobjptr(o)) return 0; else { obj h = objptr_from_obj(o)[-1]; return notaptr(h) && size_from_obj(h) >= 1 && hblkref(o, 0) == obj_from_size(t); } } -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) @@ -148,8 +174,60 @@ extern int istagged(obj o, int t); extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif -/* unit */ -#define obj_from_unit() (obj_from_size(0x6DF6F577)) +#ifndef NDEBUG +obj cktagged(obj o, int t) { + assert(istagged((o), t)); + return o; +} +int taggedlen(obj o, int t) { + assert(istagged((o), t)); + return hblklen(o) - 1; +} +obj* taggedref(obj o, int t, int i) { + int len; assert(istagged((o), t)); + len = hblklen(o); + assert(i >= 0 && i < len-1); + return &hblkref(o, i+1); +} +#endif +extern int istyped(obj o); +int istyped(obj o) { + if (!isobjptr(o)) return 0; + else { obj h = objptr_from_obj(o)[-1]; + return notaptr(h) && size_from_obj(h) >= 1 + && isobjptr(hblkref(o, 0)); } +} +#ifdef NDEBUG + #define cktyped(o, t) (o) + #define typedtype(o) (&hblkref(o, 0)) + #define typedlen(o) (hblklen(o)-1) + #define typedref(o, i) (&hblkref(o, (i)+1)) +#else + extern obj cktyped(obj o); + extern obj* typedtype(obj o); + extern int typedlen(obj o); + extern obj* typedref(obj o, int i); +#endif +#ifndef NDEBUG +obj cktyped(obj o) { + assert(istyped(o)); + return o; +} +obj* typedtype(obj o) { + assert(istyped(o)); + return &hblkref(o, 0); +} +int typedlen(obj o) { + assert(istyped(o)); + return hblklen(o) - 1; +} +obj* typedref(obj o, int i) { + int len; assert(istyped(o)); + len = hblklen(o); + assert(i >= 0 && i < len-1); + return &hblkref(o, i+1); +} +#endif /* booleans */ #define TRUE_ITAG 0 typedef int bool_t; @@ -157,10 +235,18 @@ typedef int bool_t; #define is_bool_bool(b) ((void)(b), 1) #define void_from_bool(b) (void)(b) #define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0) +/* void */ +#define VOID_ITAG 1 +#define mkvoid() mkimm(0, VOID_ITAG) +#define isvoid(o) ((o) == mkimm(0, VOID_ITAG)) +#undef obj_from_void +#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG)) +/* unit */ +#define obj_from_unit() (obj_from_size(0x6DF6F577)) /* numbers */ -#define FIXNUM_BIT 28 -#define FIXNUM_MIN -134217728 -#define FIXNUM_MAX 134217727 +#define FIXNUM_BIT 30 +#define FIXNUM_MIN -536870912 +#define FIXNUM_MAX 536870911 #ifdef NDEBUG #define fxneg(x) (-(x)) #define fxabs(x) (labs(x)) @@ -373,7 +459,7 @@ int strtofxfl(char *s, int radix, long *pl, double *pd) { fl: if (radix != 10) return (errno = eno, 0); e = "", errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e); else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); - else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL; + else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL; else d = strtod(s, &e); if (errno || *e || e == s) return (errno = eno, 0); if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d)) @@ -381,21 +467,44 @@ int strtofxfl(char *s, int radix, long *pl, double *pd) { return (errno = eno, (conv == 'e') ? (*pl = fxflo(d), 'e') : (*pd = d, 'i')); } /* fixnums */ -#define FIXNUM_ITAG 1 typedef long fixnum_t; -#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG)) -#define are_fixnum_objs(o1, o2) (isimm2((o1), (o2), FIXNUM_ITAG)) -#define get_fixnum_unchecked(o) (getimms_unchecked(o)) +#define is_fixnum_obj(o) (isim0(o)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define is_bool_fixnum(i) ((void)(i), 0) #define is_fixnum_bool(i) ((void)(i), 0) -#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG)) +#define fixnum_from_obj(o) (getim0s(o)) #define fixnum_from_fixnum(i) (i) #define fixnum_from_flonum(l,x) ((fixnum_t)(x)) #define bool_from_fixnum(i) ((void)(i), 1) #define void_from_fixnum(i) (void)(i) -#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG) +#define obj_from_fixnum(i) mkim0((fixnum_t)(i)) /* flonums */ +#ifndef FLONUMS_BOXED +typedef double flonum_t; +#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL) +#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_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) +union iod { cxoint_t i; double d; }; +static double flonum_from_obj(obj o) { + union iod u; + assert(is_flonum_obj(o)); + u.i = ~o; + return u.d; +} +static obj obj_from_flonum(int rc, double d) { + union iod u; + u.d = d; + assert(is_flonum_obj(~u.i)); + return ~u.i; +} +#else /* FLONUMS_BOXED */ static cxtype_t cxt_flonum = { "flonum", free }; cxtype_t *FLONUM_NTAG = &cxt_flonum; extern cxtype_t *FLONUM_NTAG; @@ -417,6 +526,7 @@ flonum_t *dupflonum(flonum_t f) { flonum_t *pf = cxm_cknull(malloc(sizeof(flonum_t)), "malloc(flonum)"); *pf = f; return pf; } +#endif /* characters */ #define CHAR_ITAG 2 typedef int char_t; @@ -429,7 +539,7 @@ typedef int char_t; #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_obj(o) ((int)getimmu(o, CHAR_ITAG)) #define char_from_char(i) (i) #define bool_from_char(i) ((void)(i), 1) #define void_from_char(i) (void)(i) @@ -445,9 +555,8 @@ extern cxtype_t *STRING_NTAG; #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; + int *d = stringdata(o); assert(i >= 0 && i < *d); + return sdatachars(d)+i; } #ifdef NDEBUG #define stringref(o, i) (stringchars(o)+(i)) @@ -458,13 +567,19 @@ 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; + *d = l; strcpy(sdatachars(d), s); return d; +} +extern int *newstringn(char *s, int n); +int *newstringn(char *s, int n) { + int *d; char *ns; assert(s); assert(n >= 0); + d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(stringn)"); + *d = n; memcpy((ns = sdatachars(d)), s, n); ns[n] = 0; return d; } extern int *allocstring(int n, int c); int *allocstring(int n, int c) { int *d; char *s; assert(n+1 > 0); d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)"); - *d = n; s = (char*)(d+1); memset(s, c, n); s[n] = 0; + *d = n; s = sdatachars(d); memset(s, c, n); s[n] = 0; return d; } extern int *substring(int *d, int from, int to); @@ -472,7 +587,7 @@ 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); + *d1 = n; s0 = sdatachars(d0); s1 = sdatachars(d1); memcpy(s1, s0+from, n); s1[n] = 0; return d1; } @@ -480,7 +595,7 @@ 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); + *d = n; s = sdatachars(d); s0 = sdatachars(d0); s1 = sdatachars(d1); memcpy(s, s0, l0); memcpy(s+l0, s1, l1); s[n] = 0; return d; } @@ -492,14 +607,13 @@ int *dupstring(int *d0) { } extern void stringfill(int *d, int c); void stringfill(int *d, int c) { - int l = *d, i; char *s = (char*)(d+1); + int l = *d, i; char *s = sdatachars(d); for (i = 0; i < l; ++i) s[i] = c; } -extern int strcmp_ci(char *s1, char*s2); +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); + do { c1 = *s1++; c2 = *s2++; d = (unsigned)tolower(c1) - (unsigned)tolower(c2); } while (!d && c1 && c2); return d; } /* vectors */ @@ -539,12 +653,16 @@ int *newbytevector(unsigned char *s, int n) { int *d; assert(s); assert(n >= 0); d = mallocbvdata(n); *d = n; memcpy(bvdatabytes(d), s, n); return d; } -extern int *allocbytevector(int n, int c); -int *allocbytevector(int n, int c) { +extern int *makebytevector(int n, int c); +int *makebytevector(int n, int c) { int *d; assert(n >= 0); d = mallocbvdata(n); *d = n; memset(bvdatabytes(d), c, n); return d; } +extern int *allocbytevector(int n); +int *allocbytevector(int n) { + int *d = mallocbvdata(n); *d = n; return d; +} extern int *dupbytevector(int *d); int *dupbytevector(int *d0) { int *d1 = mallocbvdata(*d0); *d1 = *d0; @@ -636,15 +754,10 @@ int internsym(char *name) { return (int)((symt.u)++); } /* records */ -#define RECORD_BTAG 4 -#define isrecord(o) istagged(o, RECORD_BTAG) -#define recordrtd(r) *taggedref(r, RECORD_BTAG, 0) -#define recordref(r, i) *taggedref(r, RECORD_BTAG, (i)+1) -#define recordlen(r) (taggedlen(r, RECORD_BTAG)-1) -/* procedures */ -extern int isprocedure(obj o); -extern int procedurelen(obj o); -extern obj* procedureref(obj o, int i); +#define isrecord(o) istyped(o) +#define recordrtd(r) *typedtype(r) +#define recordlen(r) typedlen(r) +#define recordref(r, i) *typedref(r, i) int isprocedure(obj o) { if (!o) return 0; else if (isaptr(o) && !isobjptr(o)) return 1; @@ -663,6 +776,10 @@ obj* procedureref(obj o, int i) { 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 */ @@ -752,8 +869,8 @@ default: /* inter-host call */ } /* eof */ #define EOF_ITAG 7 -#define mkeof() mkimm(-1, EOF_ITAG) -#define iseof(o) ((o) == mkimm(-1, EOF_ITAG)) +#define mkeof() mkimm(0, EOF_ITAG) +#define iseof(o) ((o) == mkimm(0, EOF_ITAG)) /* input ports */ typedef struct { /* extends cxtype_t */ const char *tname; @@ -967,7 +1084,7 @@ static void stabdelifu(obj o, stab_t *p) { } static void stabpushp(obj o, stab_t *p) { obj *r = p->r; if (!r) { p->r = r = cxm_cknull(calloc(sizeof(obj), 12), "stabpushp"); r[1] = 10; } - else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+r[1]*2)), "stabpushp"); r[1] *= 2; } + else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+(size_t)r[1]*2)), "stabpushp"); r[1] *= 2; } r[2 + r[0]++] = o; } static void stabpopp(stab_t *p) { @@ -1030,9 +1147,9 @@ static long stabref(obj o, stab_t *p, int upd) { static int stabufind(obj x, obj y, stab_t *p) { size_t sz = p->sz, i, ix=0, iy=0; /* bogus 0 inits to silence gcc */ obj *r = p->r; for (i = (unsigned long)x & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == x) { ix = i; break; } - for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = r[ix] = i; + for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = (size_t)(r[ix] = i); for (i = (unsigned long)y & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == y) { iy = i; break; } - for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = r[iy] = i; + for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = (size_t)(r[iy] = i); if (ix == iy) return 1; /* same class, assumed to be equal */ if (r[ix] < r[iy]) { r[ix] += r[iy]; r[iy] = ix; } else { r[iy] += r[ix]; r[ix] = iy; } return 0; } @@ -1040,7 +1157,9 @@ static int stabequal(obj x, obj y, stab_t *p) { obj h; int i, n; loop: if (x == y) return 1; if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0; if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y); +#endif if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0; if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)); if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0; @@ -1052,7 +1171,9 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa obj h; int i, n; loop: assert(fuel > 0); if (x == y) return fuel-1; if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return -1; if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return -1; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y) ? fuel-1 : -1; +#endif if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0 ? fuel-1 : -1; if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)) ? fuel-1 : -1; if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return -1; @@ -1070,7 +1191,9 @@ 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; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return *(flonum_t*)objptr_from_obj(x)[0] == *(flonum_t*)objptr_from_obj(y)[0]; +#endif return 0; } extern obj ismemv(obj x, obj l); @@ -1256,20 +1379,25 @@ static void wrdatum(obj o, wenv_t *e) { wrc(')', e); } else if (isbox(o)) { wrs("#&", e); o = boxref(o); goto tail; - } else if (isrecord(o)) { - int i, n = recordlen(o); - obj rtd = recordrtd(o); - if (rtd == bool_from_obj(0)) { - wrs("#', e); } else if (isprocedure(o)) { char buf[60]; sprintf(buf, "#", objptr_from_obj(o)); wrs(buf, e); + } else if (isrecord(o)) { + int i, n = recordlen(o); + wrs("#', e); + } else if (isvoid(o)) { + wrs("#", e); } else { wrs("#", e); } @@ -1297,31 +1425,43 @@ void oportputshared(obj x, obj p, int disp) { } /* cx globals */ +obj cx__25append; /* %append */ +obj cx__25assoc; /* %assoc */ +obj cx__25bytevectors_2Dcopy_2Dinto_21; /* %bytevectors-copy-into! */ +obj cx__25bytevectors_2Dsum_2Dlength; /* %bytevectors-sum-length */ obj cx__25fail_2Dlambda; /* %fail-lambda */ +obj cx__25make_2Dlist; /* %make-list */ +obj cx__25member; /* %member */ obj cx__25read; /* %read */ +obj cx__25read_2Dline; /* %read-line */ obj cx__25residual_2A; /* %residual* */ obj cx__25residual_2B; /* %residual+ */ obj cx__25residual_2D; /* %residual- */ +obj cx__25residual_2D_25make_2Dvector; /* %residual-%make-vector */ +obj cx__25residual_2D_25new_2Dvector; /* %residual-%new-vector */ +obj cx__25residual_2D_25string_2Dappend; /* %residual-%string-append */ +obj cx__25residual_2D_25string_2Dcopy; /* %residual-%string-copy */ +obj cx__25residual_2D_25string_2Dfill_21; /* %residual-%string-fill! */ obj cx__25residual_2Dabort; /* %residual-abort */ obj cx__25residual_2Dabs; /* %residual-abs */ obj cx__25residual_2Dacos; /* %residual-acos */ obj cx__25residual_2Dangle; /* %residual-angle */ obj cx__25residual_2Dappend; /* %residual-append */ -obj cx__25residual_2Dappend_2F2; /* %residual-append/2 */ obj cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F; /* %residual-argc-dispatch-lambda? */ obj cx__25residual_2Dargv_2Dref; /* %residual-argv-ref */ obj cx__25residual_2Dasin; /* %residual-asin */ +obj cx__25residual_2Dassl; /* %residual-assl */ obj cx__25residual_2Dassoc; /* %residual-assoc */ obj cx__25residual_2Dassq; /* %residual-assq */ obj cx__25residual_2Dassv; /* %residual-assv */ obj cx__25residual_2Datan; /* %residual-atan */ obj cx__25residual_2Datom_3F; /* %residual-atom? */ +obj cx__25residual_2Dboolean_3D_3F; /* %residual-boolean=? */ obj cx__25residual_2Dboolean_3F; /* %residual-boolean? */ obj cx__25residual_2Dbox; /* %residual-box */ obj cx__25residual_2Dbox_3F; /* %residual-box? */ obj cx__25residual_2Dbyte_3F; /* %residual-byte? */ obj cx__25residual_2Dbytevector; /* %residual-bytevector */ -obj cx__25residual_2Dbytevector_2D_3Elist; /* %residual-bytevector->list */ obj cx__25residual_2Dbytevector_2Dlength; /* %residual-bytevector-length */ obj cx__25residual_2Dbytevector_2Du8_2Dref; /* %residual-bytevector-u8-ref */ obj cx__25residual_2Dbytevector_2Du8_2Dset_21; /* %residual-bytevector-u8-set! */ @@ -1388,8 +1528,8 @@ obj cx__25residual_2Dcurrent_2Dinput_2Dport; /* %residual-current-input-port */ obj cx__25residual_2Dcurrent_2Djiffy; /* %residual-current-jiffy */ obj cx__25residual_2Dcurrent_2Doutput_2Dport; /* %residual-current-output-port */ obj cx__25residual_2Dcurrent_2Dsecond; /* %residual-current-second */ -obj cx__25residual_2Ddelete_2Dfile; /* %residual-delete-file */ obj cx__25residual_2Ddenominator; /* %residual-denominator */ +obj cx__25residual_2Ddigit_2Dvalue; /* %residual-digit-value */ obj cx__25residual_2Ddisplay; /* %residual-display */ obj cx__25residual_2Ddisplay_2Dfixnum; /* %residual-display-fixnum */ obj cx__25residual_2Ddisplay_2Dflonum; /* %residual-display-flonum */ @@ -1406,7 +1546,6 @@ obj cx__25residual_2Dexact; /* %residual-exact */ obj cx__25residual_2Dexit; /* %residual-exit */ obj cx__25residual_2Dexp; /* %residual-exp */ obj cx__25residual_2Dexpt; /* %residual-expt */ -obj cx__25residual_2Dfile_2Dexists_3F; /* %residual-file-exists? */ obj cx__25residual_2Dfinite_3F; /* %residual-finite? */ obj cx__25residual_2Dfixnum_2D_3Eflonum; /* %residual-fixnum->flonum */ obj cx__25residual_2Dfixnum_2Dwidth; /* %residual-fixnum-width */ @@ -1490,7 +1629,6 @@ obj cx__25residual_2Dfxsqrt; /* %residual-fxsqrt */ obj cx__25residual_2Dfxxor; /* %residual-fxxor */ obj cx__25residual_2Dfxzero_3F; /* %residual-fxzero? */ obj cx__25residual_2Dgcd; /* %residual-gcd */ -obj cx__25residual_2Dget_2Ddatum; /* %residual-get-datum */ obj cx__25residual_2Dget_2Denvironment_2Dvariable; /* %residual-get-environment-variable */ obj cx__25residual_2Dget_2Doutput_2Dbytevector; /* %residual-get-output-bytevector */ obj cx__25residual_2Dget_2Doutput_2Dstring; /* %residual-get-output-string */ @@ -1508,11 +1646,8 @@ obj cx__25residual_2Dlcm; /* %residual-lcm */ obj cx__25residual_2Dleast_2Dfixnum; /* %residual-least-fixnum */ obj cx__25residual_2Dlength; /* %residual-length */ obj cx__25residual_2Dlist; /* %residual-list */ -obj cx__25residual_2Dlist_2D_3Ebytevector; /* %residual-list->bytevector */ -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_2Dset_21; /* %residual-list-set! */ obj cx__25residual_2Dlist_2Dtail; /* %residual-list-tail */ obj cx__25residual_2Dlist_3F; /* %residual-list? */ obj cx__25residual_2Dlog; /* %residual-log */ @@ -1521,6 +1656,7 @@ obj cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda; /* %residual-make-argc-dis obj cx__25residual_2Dmake_2Dbytevector; /* %residual-make-bytevector */ obj cx__25residual_2Dmake_2Dcase_2Dlambda; /* %residual-make-case-lambda */ obj cx__25residual_2Dmake_2Dimproper_2Dlambda; /* %residual-make-improper-lambda */ +obj cx__25residual_2Dmake_2Dlist; /* %residual-make-list */ obj cx__25residual_2Dmake_2Dpolar; /* %residual-make-polar */ obj cx__25residual_2Dmake_2Drecord; /* %residual-make-record */ obj cx__25residual_2Dmake_2Drectangular; /* %residual-make-rectangular */ @@ -1531,6 +1667,7 @@ obj cx__25residual_2Dmap; /* %residual-map */ obj cx__25residual_2Dmax; /* %residual-max */ obj cx__25residual_2Dmax_2F2; /* %residual-max/2 */ obj cx__25residual_2Dmember; /* %residual-member */ +obj cx__25residual_2Dmeml; /* %residual-meml */ obj cx__25residual_2Dmemq; /* %residual-memq */ obj cx__25residual_2Dmemv; /* %residual-memv */ obj cx__25residual_2Dmin; /* %residual-min */ @@ -1560,6 +1697,7 @@ obj cx__25residual_2Doutput_2Dport_3F; /* %residual-output-port? */ obj cx__25residual_2Dpair_3F; /* %residual-pair? */ obj cx__25residual_2Dpeek_2Dchar; /* %residual-peek-char */ obj cx__25residual_2Dpeek_2Du8; /* %residual-peek-u8 */ +obj cx__25residual_2Dport_2Dfold_2Dcase_3F; /* %residual-port-fold-case? */ obj cx__25residual_2Dport_3F; /* %residual-port? */ obj cx__25residual_2Dpositive_3F; /* %residual-positive? */ obj cx__25residual_2Dprocedure_3F; /* %residual-procedure? */ @@ -1567,6 +1705,7 @@ obj cx__25residual_2Dquotient; /* %residual-quotient */ obj cx__25residual_2Drationalize; /* %residual-rationalize */ obj cx__25residual_2Dread; /* %residual-read */ obj cx__25residual_2Dread_2Dchar; /* %residual-read-char */ +obj cx__25residual_2Dread_2Dline; /* %residual-read-line */ obj cx__25residual_2Dread_2Dsimple; /* %residual-read-simple */ obj cx__25residual_2Dread_2Du8; /* %residual-read-u8 */ obj cx__25residual_2Dreal_2D_3Efixnum; /* %residual-real->fixnum */ @@ -1579,34 +1718,32 @@ obj cx__25residual_2Drecord_2Dset_21; /* %residual-record-set! */ obj cx__25residual_2Drecord_2Dtype_2Ddescriptor; /* %residual-record-type-descriptor */ obj cx__25residual_2Drecord_3F; /* %residual-record? */ obj cx__25residual_2Dremainder; /* %residual-remainder */ -obj cx__25residual_2Drename_2Dfile; /* %residual-rename-file */ obj cx__25residual_2Dreverse; /* %residual-reverse */ obj cx__25residual_2Dreverse_21; /* %residual-reverse! */ obj cx__25residual_2Dround; /* %residual-round */ obj cx__25residual_2Dset_2Dbox_21; /* %residual-set-box! */ obj cx__25residual_2Dset_2Dcar_21; /* %residual-set-car! */ obj cx__25residual_2Dset_2Dcdr_21; /* %residual-set-cdr! */ +obj cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21; /* %residual-set-port-fold-case! */ obj cx__25residual_2Dsin; /* %residual-sin */ obj cx__25residual_2Dsqrt; /* %residual-sqrt */ obj cx__25residual_2Dsquare; /* %residual-square */ obj cx__25residual_2Dstring; /* %residual-string */ obj cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum; /* %residual-string->fixnum-or-flonum */ -obj cx__25residual_2Dstring_2D_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_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_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_2Ddowncase; /* %residual-string-downcase */ obj cx__25residual_2Dstring_2Dlength; /* %residual-string-length */ obj cx__25residual_2Dstring_2Dposition; /* %residual-string-position */ obj cx__25residual_2Dstring_2Dref; /* %residual-string-ref */ obj cx__25residual_2Dstring_2Dset_21; /* %residual-string-set! */ +obj cx__25residual_2Dstring_2Dupcase; /* %residual-string-upcase */ obj cx__25residual_2Dstring_3C_3D_3F; /* %residual-string<=? */ obj cx__25residual_2Dstring_3C_3F; /* %residual-stringlist */ 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! */ @@ -1635,6 +1771,8 @@ obj cx__25residual_2Dvoid_3F; /* %residual-void? */ obj cx__25residual_2Dwrite; /* %residual-write */ obj cx__25residual_2Dwrite_2Dbytevector; /* %residual-write-bytevector */ obj cx__25residual_2Dwrite_2Dchar; /* %residual-write-char */ +obj cx__25residual_2Dwrite_2Dshared; /* %residual-write-shared */ +obj cx__25residual_2Dwrite_2Dsimple; /* %residual-write-simple */ obj cx__25residual_2Dwrite_2Dstring; /* %residual-write-string */ obj cx__25residual_2Dwrite_2Du8; /* %residual-write-u8 */ obj cx__25residual_2Dzero_3F; /* %residual-zero? */ @@ -1644,6 +1782,10 @@ obj cx__25residual_3C_3D; /* %residual<= */ obj cx__25residual_3D; /* %residual= */ obj cx__25residual_3E; /* %residual> */ obj cx__25residual_3E_3D; /* %residual>= */ +obj cx__25substring_2Dvector_2Dcopy_21; /* %substring-vector-copy! */ +obj cx__25subvector_2Dstring_2Dcopy_21; /* %subvector-string-copy! */ +obj cx__25vectors_2Dcopy_2Dinto_21; /* %vectors-copy-into! */ +obj cx__25vectors_2Dsum_2Dlength; /* %vectors-sum-length */ obj cx__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* */ @@ -1651,6 +1793,10 @@ obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */ obj cx__3Cerror_2Dobject_3E; /* */ obj cx_apply; /* apply */ obj cx_assertion_2Dviolation; /* assertion-violation */ +obj cx_bytevector_2D_3Elist; /* bytevector->list */ +obj cx_bytevector_2Dappend; /* bytevector-append */ +obj cx_bytevector_2Dcopy; /* bytevector-copy */ +obj cx_bytevector_2Dcopy_21; /* bytevector-copy! */ obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */ obj cx_call_2Dwith_2Dinput_2Dfile; /* call-with-input-file */ obj cx_call_2Dwith_2Doutput_2Dfile; /* call-with-output-file */ @@ -1660,8 +1806,10 @@ obj cx_close_2Doutput_2Dport; /* close-output-port */ obj cx_close_2Dport; /* close-port */ obj cx_command_2Dline; /* command-line */ obj cx_current_2Dexception_2Dhandler; /* current-exception-handler */ +obj cx_delete_2Dfile; /* delete-file */ obj cx_dynamic_2Dstate_2Dreroot_21; /* dynamic-state-reroot! */ obj cx_dynamic_2Dwind; /* dynamic-wind */ +obj cx_emergency_2Dexit; /* emergency-exit */ obj cx_error; /* error */ obj cx_error_2Dobject; /* error-object */ obj cx_error_2Dobject_2Dirritants; /* error-object-irritants */ @@ -1669,100 +1817,151 @@ obj cx_error_2Dobject_2Dkind; /* error-object-kind */ obj cx_error_2Dobject_2Dmessage; /* error-object-message */ obj cx_error_2Dobject_3F; /* error-object? */ obj cx_exact_2Dinteger_2Dsqrt; /* exact-integer-sqrt */ +obj cx_exit; /* exit */ obj cx_file_2Derror; /* file-error */ obj cx_file_2Derror_3F; /* file-error? */ +obj cx_file_2Dexists_3F; /* file-exists? */ obj cx_fixnum_2D_3Estring; /* fixnum->string */ obj cx_flonum_2D_3Estring; /* flonum->string */ obj cx_floor_2F; /* floor/ */ +obj cx_force; /* force */ obj cx_lcm_2F2; /* lcm/2 */ +obj cx_list_2D_3Ebytevector; /* list->bytevector */ +obj cx_list_2D_3Estring; /* list->string */ +obj cx_list_2D_3Evector; /* list->vector */ +obj cx_list_2Dcopy; /* list-copy */ +obj cx_make_2Dlazy_2Dpromise; /* make-lazy-promise */ obj cx_make_2Dparameter; /* make-parameter */ obj cx_make_2Dpromise; /* make-promise */ obj cx_print_2Derror_2Dmessage; /* print-error-message */ +obj cx_promise_3F; /* promise? */ obj cx_raise; /* raise */ obj cx_raise_2Dcontinuable; /* raise-continuable */ +obj cx_read_2Dbytevector; /* read-bytevector */ +obj cx_read_2Dbytevector_21; /* read-bytevector! */ obj cx_read_2Derror; /* read-error */ obj cx_read_2Derror_3F; /* read-error? */ +obj cx_read_2Dstring; /* read-string */ +obj cx_read_2Dstring_21; /* read-string! */ +obj cx_read_2Dsubbytevector; /* read-subbytevector */ +obj cx_read_2Dsubbytevector_21; /* read-subbytevector! */ +obj cx_read_2Dsubstring; /* read-substring */ +obj cx_read_2Dsubstring_21; /* read-substring! */ +obj cx_rename_2Dfile; /* rename-file */ obj cx_reset; /* reset */ obj cx_set_2Dreset_2Dhandler_21; /* set-reset-handler! */ obj cx_simple_2Derror; /* simple-error */ obj cx_string_2D_3Efixnum; /* string->fixnum */ obj cx_string_2D_3Eflonum; /* string->flonum */ +obj cx_string_2D_3Elist; /* string->list */ +obj cx_string_2D_3Eutf8; /* string->utf8 */ +obj cx_string_2D_3Evector; /* string->vector */ +obj cx_string_2Dcopy; /* string-copy */ +obj cx_string_2Dcopy_21; /* string-copy! */ +obj cx_string_2Dfill_21; /* string-fill! */ +obj cx_string_2Dfor_2Deach; /* string-for-each */ +obj cx_string_2Dmap; /* string-map */ +obj cx_subbytevector_2D_3Elist; /* subbytevector->list */ +obj cx_subbytevector_2Dcopy_21; /* subbytevector-copy! */ +obj cx_substring_2D_3Elist; /* substring->list */ +obj cx_substring_2D_3Eutf8; /* substring->utf8 */ +obj cx_substring_2D_3Evector; /* substring->vector */ +obj cx_substring_2Dcopy_21; /* substring-copy! */ +obj cx_substring_2Dfill_21; /* substring-fill! */ +obj cx_subutf8_2D_3Estring; /* subutf8->string */ +obj cx_subvector; /* subvector */ +obj cx_subvector_2D_3Elist; /* subvector->list */ +obj cx_subvector_2D_3Estring; /* subvector->string */ +obj cx_subvector_2Dcopy_21; /* subvector-copy! */ +obj cx_subvector_2Dfill_21; /* subvector-fill! */ obj cx_truncate_2F; /* truncate/ */ +obj cx_utf8_2D_3Estring; /* utf8->string */ +obj cx_vector_2D_3Elist; /* vector->list */ +obj cx_vector_2D_3Estring; /* vector->string */ +obj cx_vector_2Dappend; /* vector-append */ +obj cx_vector_2Dcopy; /* vector-copy */ +obj cx_vector_2Dcopy_21; /* vector-copy! */ obj cx_vector_2Dfill_21; /* vector-fill! */ +obj cx_vector_2Dfor_2Deach; /* vector-for-each */ +obj cx_vector_2Dmap; /* vector-map */ obj cx_with_2Dexception_2Dhandler; /* with-exception-handler */ obj cx_with_2Dinput_2Dfrom_2Dfile; /* with-input-from-file */ obj cx_with_2Dinput_2Dfrom_2Dport; /* with-input-from-port */ obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */ obj cx_with_2Doutput_2Dto_2Dport; /* with-output-to-port */ -static obj cx__231041; /* constant #1041 */ -static obj cx__231045; /* constant #1045 */ -static obj cx__231056; /* constant #1056 */ -static obj cx__231080; /* constant #1080 */ +obj cx_write_2Dsubbytevector; /* write-subbytevector */ +obj cx_write_2Dsubstring; /* write-substring */ +static obj cx__231117; /* constant #1117 */ static obj cx__231121; /* constant #1121 */ -static obj cx__231142; /* constant #1142 */ +static obj cx__231125; /* constant #1125 */ +static obj cx__231129; /* constant #1129 */ static obj cx__231144; /* constant #1144 */ -static obj cx__231203; /* constant #1203 */ -static obj cx__231207; /* constant #1207 */ -static obj cx__231210; /* constant #1210 */ -static obj cx__231214; /* constant #1214 */ -static obj cx__231217; /* constant #1217 */ -static obj cx__231221; /* constant #1221 */ -static obj cx__231234; /* constant #1234 */ -static obj cx__231250; /* constant #1250 */ -static obj cx__231258; /* constant #1258 */ -static obj cx__231264; /* constant #1264 */ -static obj cx__231276; /* constant #1276 */ -static obj cx__231288; /* constant #1288 */ -static obj cx__231324; /* constant #1324 */ -static obj cx__231332; /* constant #1332 */ -static obj cx__231338; /* constant #1338 */ -static obj cx__231341; /* constant #1341 */ -static obj cx__231356; /* constant #1356 */ -static obj cx__231357; /* constant #1357 */ -static obj cx__231360; /* constant #1360 */ -static obj cx__231367; /* constant #1367 */ -static obj cx__231372; /* constant #1372 */ +static obj cx__231148; /* constant #1148 */ +static obj cx__231151; /* constant #1151 */ +static obj cx__231155; /* constant #1155 */ static obj cx__231377; /* constant #1377 */ -static obj cx__231379; /* constant #1379 */ -static obj cx__231383; /* constant #1383 */ -static obj cx__231397; /* constant #1397 */ -static obj cx__231403; /* constant #1403 */ -static obj cx__231406; /* constant #1406 */ -static obj cx__231423; /* constant #1423 */ -static obj cx__231430; /* constant #1430 */ -static obj cx__231435; /* constant #1435 */ -static obj cx__231442; /* constant #1442 */ -static obj cx__231495; /* constant #1495 */ -static obj cx__231500; /* constant #1500 */ +static obj cx__231381; /* constant #1381 */ +static obj cx__231392; /* constant #1392 */ +static obj cx__231416; /* constant #1416 */ +static obj cx__231455; /* constant #1455 */ +static obj cx__231472; /* constant #1472 */ +static obj cx__231474; /* constant #1474 */ +static obj cx__231517; /* constant #1517 */ +static obj cx__231519; /* constant #1519 */ +static obj cx__231520; /* constant #1520 */ static obj cx__231522; /* constant #1522 */ -static obj cx__231567; /* constant #1567 */ -static obj cx__231585; /* constant #1585 */ -static obj cx__231606; /* constant #1606 */ -static obj cx__231648; /* constant #1648 */ +static obj cx__231523; /* constant #1523 */ +static obj cx__231525; /* constant #1525 */ +static obj cx__231534; /* constant #1534 */ +static obj cx__231550; /* constant #1550 */ +static obj cx__231558; /* constant #1558 */ +static obj cx__231562; /* constant #1562 */ +static obj cx__231574; /* constant #1574 */ +static obj cx__231580; /* constant #1580 */ +static obj cx__231594; /* constant #1594 */ +static obj cx__231602; /* constant #1602 */ +static obj cx__231608; /* constant #1608 */ +static obj cx__231611; /* constant #1611 */ +static obj cx__231626; /* constant #1626 */ +static obj cx__231627; /* constant #1627 */ +static obj cx__231630; /* constant #1630 */ +static obj cx__231637; /* constant #1637 */ +static obj cx__231642; /* constant #1642 */ +static obj cx__231647; /* constant #1647 */ +static obj cx__231649; /* constant #1649 */ +static obj cx__231653; /* constant #1653 */ +static obj cx__231665; /* constant #1665 */ +static obj cx__231671; /* constant #1671 */ +static obj cx__231674; /* constant #1674 */ +static obj cx__231687; /* constant #1687 */ static obj cx__231692; /* constant #1692 */ -static obj cx__231693; /* constant #1693 */ -static obj cx__231763; /* constant #1763 */ -static obj cx__231824; /* constant #1824 */ -static obj cx__231827; /* constant #1827 */ -static obj cx__231830; /* constant #1830 */ -static obj cx__231960; /* constant #1960 */ -static obj cx__232014; /* constant #2014 */ -static obj cx__232036; /* constant #2036 */ -static obj cx__232091; /* constant #2091 */ -static obj cx__232103; /* constant #2103 */ -static obj cx__232107; /* constant #2107 */ -static obj cx__232726; /* constant #2726 */ -static obj cx__232743; /* constant #2743 */ -static obj cx__233141; /* constant #3141 */ -static obj cx__233244; /* constant #3244 */ -static obj cx__23890; /* constant #890 */ -static obj cx__23894; /* constant #894 */ -static obj cx__23898; /* constant #898 */ -static obj cx__23902; /* constant #902 */ -static obj cx__23917; /* constant #917 */ -static obj cx__23921; /* constant #921 */ -static obj cx__23924; /* constant #924 */ -static obj cx__23928; /* constant #928 */ +static obj cx__231697; /* constant #1697 */ +static obj cx__231704; /* constant #1704 */ +static obj cx__231755; /* constant #1755 */ +static obj cx__231758; /* constant #1758 */ +static obj cx__231770; /* constant #1770 */ +static obj cx__231791; /* constant #1791 */ +static obj cx__231805; /* constant #1805 */ +static obj cx__231818; /* constant #1818 */ +static obj cx__231848; /* constant #1848 */ +static obj cx__231874; /* constant #1874 */ +static obj cx__231875; /* constant #1875 */ +static obj cx__231933; /* constant #1933 */ +static obj cx__231994; /* constant #1994 */ +static obj cx__231997; /* constant #1997 */ +static obj cx__232000; /* constant #2000 */ +static obj cx__232056; /* constant #2056 */ +static obj cx__232060; /* constant #2060 */ +static obj cx__232130; /* constant #2130 */ +static obj cx__232184; /* constant #2184 */ +static obj cx__232206; /* constant #2206 */ +static obj cx__232275; /* constant #2275 */ +static obj cx__232287; /* constant #2287 */ +static obj cx__232291; /* constant #2291 */ +static obj cx__233223; /* constant #3223 */ +static obj cx__233240; /* constant #3240 */ +static obj cx__233977; /* constant #3977 */ +static obj cx__234288; /* constant #4288 */ /* helper functions */ /* %residual-real->fixnum */ @@ -1850,11 +2049,11 @@ static obj cxs__25residual_2Dfinite_3F(obj v199_x) return obj_from_bool(is_fixnum_obj(v199_x)); } else { { /* let */ - obj v4347_tmp; + obj v5635_tmp; { /* flinfinite? */ flonum_t f = flonum_from_obj(v199_x); - v4347_tmp = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); }; - return obj_from_bool(!bool_from_obj(v4347_tmp)); + v5635_tmp = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); }; + return obj_from_bool(!bool_from_obj(v5635_tmp)); } } } @@ -1871,53 +2070,344 @@ static obj cxs__25residual_2Drationalize(obj v342_n, obj v341_d) return (v342_n); } -/* vector-fill! */ -static obj cxs_vector_2Dfill_21(obj v547_v, obj v546_x) +/* %residual-digit-value */ +static obj cxs__25residual_2Ddigit_2Dvalue(obj v446_x) +{ + return (bool_from_obj((('0') <= char_from_obj(v446_x)) ? obj_from_bool(char_from_obj(v446_x) <= ('9')) : obj_from_bool(0)) ? obj_from_fixnum(fxsub(((fixnum_t)char_from_obj(v446_x)), ('0'))) : obj_from_bool(0)); +} + +/* substring-copy! */ +static obj cxs_substring_2Dcopy_21(obj v478_to, obj v477_at, obj v476_from, obj v475_start, obj v474_end) { - { /* letrec */ - obj v551_i; { /* let */ - obj v4346_tmp = obj_from_fixnum(+0); + obj v482_limit; + { /* let */ + obj v480_b = obj_from_fixnum(fxadd(fixnum_from_obj(v475_start), (fxsub((stringlen((v478_to))), fixnum_from_obj(v477_at))))); + v482_limit = ((fixnum_from_obj(v474_end) < fixnum_from_obj(v480_b)) ? (v474_end) : (v480_b)); + } + if ((fixnum_from_obj(v477_at) <= fixnum_from_obj(v475_start))) { + { /* letrec */ + obj v497_i; + obj v496_j; /* tail call */ - v551_i = (v4346_tmp); + v497_i = (v477_at); + v496_j = (v475_start); + goto s_loop_v495; + s_loop_v495: + if ((fixnum_from_obj(v496_j) >= fixnum_from_obj(v482_limit))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(*stringref((v478_to), fixnum_from_obj(v497_i)) = (*(unsigned char*)stringref((v476_from), fixnum_from_obj(v496_j)))); + { /* let */ + obj v5634_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v496_j), (+1))); + obj v5633_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v497_i), (+1))); + /* tail call */ + v497_i = (v5633_tmp); + v496_j = (v5634_tmp); + goto s_loop_v495; + } + } + } + } else { + { /* letrec */ + obj v485_i; + obj v484_j; + { /* let */ + obj v5632_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v482_limit), (+1))); + obj v5631_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v477_at), (fxsub((fxsub(fixnum_from_obj(v474_end), fixnum_from_obj(v475_start))), (+1))))); + /* tail call */ + v485_i = (v5631_tmp); + v484_j = (v5632_tmp); goto s_loop; } s_loop: - if ((fixnum_from_obj(v551_i) == (vectorlen((v547_v))))) { + if ((fixnum_from_obj(v484_j) < fixnum_from_obj(v475_start))) { return ((0) ? obj_from_bool(0) : obj_from_void(0)); } else { - (void) obj_from_void(vectorref((v547_v), fixnum_from_obj(v551_i)) = (v546_x)); + (void) obj_from_void(*stringref((v478_to), fixnum_from_obj(v485_i)) = (*(unsigned char*)stringref((v476_from), fixnum_from_obj(v484_j)))); { /* let */ - obj v4345_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v551_i), (+1))); + obj v5630_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v484_j), (+1))); + obj v5629_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v485_i), (+1))); /* tail call */ - v551_i = (v4345_tmp); + v485_i = (v5629_tmp); + v484_j = (v5630_tmp); goto s_loop; } } } + } + } +} + +/* substring-fill! */ +static obj cxs_substring_2Dfill_21(obj v511_str, obj v510_c, obj v509_start, obj v508_end) +{ + { /* letrec */ + obj v513_i; + /* tail call */ + v513_i = (v509_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v513_i) >= fixnum_from_obj(v508_end))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(*stringref((v511_str), fixnum_from_obj(v513_i)) = char_from_obj(v510_c)); + { /* let */ + obj v5628_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v513_i), (+1))); + /* tail call */ + v513_i = (v5628_tmp); + goto s_loop; + } + } + } +} + +/* subvector-copy! */ +static obj cxs_subvector_2Dcopy_21(obj v548_to, obj v547_at, obj v546_from, obj v545_start, obj v544_end) +{ + { /* let */ + obj v552_limit; + { /* let */ + obj v550_b = obj_from_fixnum(fxadd(fixnum_from_obj(v545_start), (fxsub((vectorlen((v548_to))), fixnum_from_obj(v547_at))))); + v552_limit = ((fixnum_from_obj(v544_end) < fixnum_from_obj(v550_b)) ? (v544_end) : (v550_b)); + } + if ((fixnum_from_obj(v547_at) <= fixnum_from_obj(v545_start))) { + { /* letrec */ + obj v567_i; + obj v566_j; + /* tail call */ + v567_i = (v547_at); + v566_j = (v545_start); + goto s_loop_v565; + s_loop_v565: + if ((fixnum_from_obj(v566_j) >= fixnum_from_obj(v552_limit))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(vectorref((v548_to), fixnum_from_obj(v567_i)) = (vectorref((v546_from), fixnum_from_obj(v566_j)))); + { /* let */ + obj v5627_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v566_j), (+1))); + obj v5626_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v567_i), (+1))); + /* tail call */ + v567_i = (v5626_tmp); + v566_j = (v5627_tmp); + goto s_loop_v565; + } + } + } + } else { + { /* letrec */ + obj v555_i; + obj v554_j; + { /* let */ + obj v5625_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v552_limit), (+1))); + obj v5624_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v547_at), (fxsub((fxsub(fixnum_from_obj(v544_end), fixnum_from_obj(v545_start))), (+1))))); + /* tail call */ + v555_i = (v5624_tmp); + v554_j = (v5625_tmp); + goto s_loop; + } + s_loop: + if ((fixnum_from_obj(v554_j) < fixnum_from_obj(v545_start))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(vectorref((v548_to), fixnum_from_obj(v555_i)) = (vectorref((v546_from), fixnum_from_obj(v554_j)))); + { /* let */ + obj v5623_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v554_j), (+1))); + obj v5622_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v555_i), (+1))); + /* tail call */ + v555_i = (v5622_tmp); + v554_j = (v5623_tmp); + goto s_loop; + } + } + } + } + } +} + +/* subvector-fill! */ +static obj cxs_subvector_2Dfill_21(obj v588_vec, obj v587_x, obj v586_start, obj v585_end) +{ + { /* letrec */ + obj v590_i; + /* tail call */ + v590_i = (v586_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v590_i) >= fixnum_from_obj(v585_end))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(vectorref((v588_vec), fixnum_from_obj(v590_i)) = (v587_x)); + { /* let */ + obj v5621_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v590_i), (+1))); + /* tail call */ + v590_i = (v5621_tmp); + goto s_loop; + } + } + } +} + +/* subbytevector-copy! */ +static obj cxs_subbytevector_2Dcopy_21(obj v619_to, obj v618_at, obj v617_from, obj v616_start, obj v615_end) +{ + { /* let */ + obj v623_limit; + { /* let */ + obj v621_b = obj_from_fixnum(fxadd(fixnum_from_obj(v616_start), (fxsub((bytevectorlen((v619_to))), fixnum_from_obj(v618_at))))); + v623_limit = ((fixnum_from_obj(v615_end) < fixnum_from_obj(v621_b)) ? (v615_end) : (v621_b)); + } + if ((fixnum_from_obj(v618_at) <= fixnum_from_obj(v616_start))) { + { /* letrec */ + obj v638_i; + obj v637_j; + /* tail call */ + v638_i = (v618_at); + v637_j = (v616_start); + goto s_loop_v636; + s_loop_v636: + if ((fixnum_from_obj(v637_j) >= fixnum_from_obj(v623_limit))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(*bytevectorref((v619_to), fixnum_from_obj(v638_i)) = byte_from_fixnum((*bytevectorref((v617_from), fixnum_from_obj(v637_j))))); + { /* let */ + obj v5620_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v637_j), (+1))); + obj v5619_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v638_i), (+1))); + /* tail call */ + v638_i = (v5619_tmp); + v637_j = (v5620_tmp); + goto s_loop_v636; + } + } + } + } else { + { /* letrec */ + obj v626_i; + obj v625_j; + { /* let */ + obj v5618_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v623_limit), (+1))); + obj v5617_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v618_at), (fxsub((fxsub(fixnum_from_obj(v615_end), fixnum_from_obj(v616_start))), (+1))))); + /* tail call */ + v626_i = (v5617_tmp); + v625_j = (v5618_tmp); + goto s_loop; + } + s_loop: + if ((fixnum_from_obj(v625_j) < fixnum_from_obj(v616_start))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(*bytevectorref((v619_to), fixnum_from_obj(v626_i)) = byte_from_fixnum((*bytevectorref((v617_from), fixnum_from_obj(v625_j))))); + { /* let */ + obj v5616_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v625_j), (+1))); + obj v5615_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v626_i), (+1))); + /* tail call */ + v626_i = (v5615_tmp); + v625_j = (v5616_tmp); + goto s_loop; + } + } + } + } + } +} + +/* %subvector-string-copy! */ +static obj cxs__25subvector_2Dstring_2Dcopy_21(obj v971_to, obj v970_at, obj v969_from, obj v968_start, obj v967_end) +{ + { /* letrec */ + obj v978_i; + obj v977_j; + /* tail call */ + v978_i = (v970_at); + v977_j = (v968_start); + goto s_loop; + s_loop: + { /* let */ + obj v5611_tmp; + { /* let */ + obj v5614_tmp; + { /* let */ + obj v973_b = obj_from_fixnum(fxadd(fixnum_from_obj(v968_start), (fxsub((stringlen((v971_to))), fixnum_from_obj(v970_at))))); + v5614_tmp = ((fixnum_from_obj(v967_end) < fixnum_from_obj(v973_b)) ? (v967_end) : (v973_b)); + } + v5611_tmp = obj_from_bool(fixnum_from_obj(v977_j) >= fixnum_from_obj(v5614_tmp)); + } + if (bool_from_obj(v5611_tmp)) { + return (v971_to); + } else { + (void) obj_from_void(*stringref((v971_to), fixnum_from_obj(v978_i)) = char_from_obj(vectorref((v969_from), fixnum_from_obj(v977_j)))); + { /* let */ + obj v5613_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v977_j), (+1))); + obj v5612_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v978_i), (+1))); + /* tail call */ + v978_i = (v5612_tmp); + v977_j = (v5613_tmp); + goto s_loop; + } + } + } + } +} + +/* %substring-vector-copy! */ +static obj cxs__25substring_2Dvector_2Dcopy_21(obj v998_to, obj v997_at, obj v996_from, obj v995_start, obj v994_end) +{ + { /* letrec */ + obj v1005_i; + obj v1004_j; + /* tail call */ + v1005_i = (v997_at); + v1004_j = (v995_start); + goto s_loop; + s_loop: + { /* let */ + obj v5607_tmp; + { /* let */ + obj v5610_tmp; + { /* let */ + obj v1000_b = obj_from_fixnum(fxadd(fixnum_from_obj(v995_start), (fxsub((vectorlen((v998_to))), fixnum_from_obj(v997_at))))); + v5610_tmp = ((fixnum_from_obj(v994_end) < fixnum_from_obj(v1000_b)) ? (v994_end) : (v1000_b)); + } + v5607_tmp = obj_from_bool(fixnum_from_obj(v1004_j) >= fixnum_from_obj(v5610_tmp)); + } + if (bool_from_obj(v5607_tmp)) { + return (v998_to); + } else { + (void) obj_from_void(vectorref((v998_to), fixnum_from_obj(v1005_i)) = obj_from_char(*(unsigned char*)stringref((v996_from), fixnum_from_obj(v1004_j)))); + { /* let */ + obj v5609_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1004_j), (+1))); + obj v5608_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1005_i), (+1))); + /* tail call */ + v1005_i = (v5608_tmp); + v1004_j = (v5609_tmp); + goto s_loop; + } + } + } + } } /* %residual-port? */ -static obj cxs__25residual_2Dport_3F(obj v936_x) +static obj cxs__25residual_2Dport_3F(obj v1163_x) { - return ((isiport((v936_x))) ? obj_from_bool(isiport((v936_x))) : obj_from_bool(isoport((v936_x)))); + return ((isiport((v1163_x))) ? obj_from_bool(isiport((v1163_x))) : obj_from_bool(isoport((v1163_x)))); } /* close-port */ -static obj cxs_close_2Dport(obj v941_p) +static obj cxs_close_2Dport(obj v1168_p) { - if ((isiport((v941_p)))) { + if ((isiport((v1168_p)))) { { /* close-input-port */ - obj o = (v941_p); cxtype_iport_t *vt = iportvt(o); assert(vt); + obj o = (v1168_p); cxtype_iport_t *vt = iportvt(o); assert(vt); vt->close(iportdata(o)); vt->free(iportdata(o)); objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG; (void) obj_from_void(0); }; } else { (void) obj_from_void(0); } - if ((isoport((v941_p)))) { + if ((isoport((v1168_p)))) { { /* close-output-port */ - obj o = (v941_p); cxtype_oport_t *vt = oportvt(o); assert(vt); + obj o = (v1168_p); cxtype_oport_t *vt = oportvt(o); assert(vt); vt->close(oportdata(o)); vt->free(oportdata(o)); objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; return obj_from_void(0); }; @@ -1926,22 +2416,260 @@ static obj cxs_close_2Dport(obj v941_p) } } -/* %residual-eqv? */ -static obj cxs__25residual_2Deqv_3F(obj v990_x, obj v989_y) +/* read-substring! */ +static obj cxs_read_2Dsubstring_21(obj v1230_str, obj v1229_start, obj v1228_end, obj v1227_p) { - return (((v990_x) == (v989_y)) ? obj_from_bool((v990_x) == (v989_y)) : ((is_flonum_obj(v990_x)) ? ((is_flonum_obj(v989_y)) ? obj_from_bool(flonum_from_obj(v990_x) == flonum_from_obj(v989_y)) : obj_from_bool(0)) : obj_from_bool(0))); + { /* letrec */ + obj v1232_i; + /* tail call */ + v1232_i = (v1229_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v1232_i) >= fixnum_from_obj(v1228_end))) { + return obj_from_fixnum(fxsub(fixnum_from_obj(v1232_i), fixnum_from_obj(v1229_start))); + } else { + { /* let */ + obj v1233_c; + { int c = iportgetc((v1227_p)); v1233_c = (c == EOF ? mkeof() : obj_from_char(c)); }; + if ((iseof((v1233_c)))) { + return ((fixnum_from_obj(v1232_i) == fixnum_from_obj(v1229_start)) ? (v1233_c) : obj_from_fixnum(fxsub(fixnum_from_obj(v1232_i), fixnum_from_obj(v1229_start)))); + } else { + (void) obj_from_void(*stringref((v1230_str), fixnum_from_obj(v1232_i)) = char_from_obj(v1233_c)); + { /* let */ + obj v5606_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1232_i), (+1))); + /* tail call */ + v1232_i = (v5606_tmp); + goto s_loop; + } + } + } + } + } +} + +/* write-substring */ +static obj cxs_write_2Dsubstring(obj v1255_from, obj v1254_start, obj v1253_end, obj v1252_p) +{ + { /* letrec */ + obj v1257_i; + /* tail call */ + v1257_i = (v1254_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v1257_i) >= fixnum_from_obj(v1253_end))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(oportputc((*(unsigned char*)stringref((v1255_from), fixnum_from_obj(v1257_i))), (v1252_p))); + { /* let */ + obj v5605_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1257_i), (+1))); + /* tail call */ + v1257_i = (v5605_tmp); + goto s_loop; + } + } + } +} + +/* read-subbytevector! */ +static obj cxs_read_2Dsubbytevector_21(obj v1268_vec, obj v1267_start, obj v1266_end, obj v1265_p) +{ + { /* letrec */ + obj v1270_i; + /* tail call */ + v1270_i = (v1267_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v1270_i) >= fixnum_from_obj(v1266_end))) { + return obj_from_fixnum(fxsub(fixnum_from_obj(v1270_i), fixnum_from_obj(v1267_start))); + } else { + { /* let */ + obj v1271_u8; + { int c = iportgetc((v1265_p)); v1271_u8 = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }; + if ((iseof((v1271_u8)))) { + return ((fixnum_from_obj(v1270_i) == fixnum_from_obj(v1267_start)) ? (v1271_u8) : obj_from_fixnum(fxsub(fixnum_from_obj(v1270_i), fixnum_from_obj(v1267_start)))); + } else { + (void) obj_from_void(*bytevectorref((v1268_vec), fixnum_from_obj(v1270_i)) = byte_from_fixnum(fixnum_from_obj(v1271_u8))); + { /* let */ + obj v5604_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1270_i), (+1))); + /* tail call */ + v1270_i = (v5604_tmp); + goto s_loop; + } + } + } + } + } +} + +/* write-subbytevector */ +static obj cxs_write_2Dsubbytevector(obj v1293_from, obj v1292_start, obj v1291_end, obj v1290_p) +{ + { /* letrec */ + obj v1295_i; + /* tail call */ + v1295_i = (v1292_start); + goto s_loop; + s_loop: + if ((fixnum_from_obj(v1295_i) >= fixnum_from_obj(v1291_end))) { + return ((0) ? obj_from_bool(0) : obj_from_void(0)); + } else { + (void) obj_from_void(oportputc((*bytevectorref((v1293_from), fixnum_from_obj(v1295_i))), (v1290_p))); + { /* let */ + obj v5603_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1295_i), (+1))); + /* tail call */ + v1295_i = (v5603_tmp); + goto s_loop; + } + } + } +} + +/* %residual-eqv? */ +static obj cxs__25residual_2Deqv_3F(obj v1309_x, obj v1308_y) +{ + return (((v1309_x) == (v1308_y)) ? obj_from_bool((v1309_x) == (v1308_y)) : ((is_flonum_obj(v1309_x)) ? ((is_flonum_obj(v1308_y)) ? obj_from_bool(flonum_from_obj(v1309_x) == flonum_from_obj(v1308_y)) : obj_from_bool(0)) : obj_from_bool(0))); } /* %residual-real-part */ -static obj cxs__25residual_2Dreal_2Dpart(obj v2123_x) +static obj cxs__25residual_2Dreal_2Dpart(obj v2307_x) { - return (v2123_x); + return (v2307_x); } /* %residual-angle */ -static obj cxs__25residual_2Dangle(obj v2133_x) +static obj cxs__25residual_2Dangle(obj v2317_x) { - return (bool_from_obj((is_fixnum_obj(v2133_x)) ? obj_from_bool(fixnum_from_obj(v2133_x) < 0) : obj_from_bool(flonum_from_obj(v2133_x) < 0.0)) ? (cx__232107) : obj_from_fixnum(+0)); + return (bool_from_obj((is_fixnum_obj(v2317_x)) ? obj_from_bool(fixnum_from_obj(v2317_x) < 0) : obj_from_bool(flonum_from_obj(v2317_x) < 0.0)) ? (cx__232291) : obj_from_fixnum(+0)); +} + +/* %vectors-sum-length */ +static obj cxs__25vectors_2Dsum_2Dlength(obj v2533_vecs) +{ + { /* letrec */ + obj v2536_vecs; + obj v2535_l; + { /* let */ + obj v5602_tmp = obj_from_fixnum(+0); + obj v5601_tmp = (v2533_vecs); + /* tail call */ + v2536_vecs = (v5601_tmp); + v2535_l = (v5602_tmp); + goto s_loop; + } + s_loop: + if ((isnull((v2536_vecs)))) { + return (v2535_l); + } else { + { /* let */ + obj v5600_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2535_l), (vectorlen((car((v2536_vecs))))))); + obj v5599_tmp = (cdr((v2536_vecs))); + /* tail call */ + v2536_vecs = (v5599_tmp); + v2535_l = (v5600_tmp); + goto s_loop; + } + } + } +} + +/* %vectors-copy-into! */ +static obj cxs__25vectors_2Dcopy_2Dinto_21(obj v2546_to, obj v2545_vecs) +{ + { /* letrec */ + obj v2549_vecs; + obj v2548_i; + { /* let */ + obj v5598_tmp = obj_from_fixnum(+0); + obj v5597_tmp = (v2545_vecs); + /* tail call */ + v2549_vecs = (v5597_tmp); + v2548_i = (v5598_tmp); + goto s_loop; + } + s_loop: + if ((isnull((v2549_vecs)))) { + return (v2546_to); + } else { + { /* let */ + obj v2552_vecs = (cdr((v2549_vecs))); + obj v2553_vec = (car((v2549_vecs))); + (void) (cxs_subvector_2Dcopy_21((v2546_to), (v2548_i), (v2553_vec), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((v2553_vec))))); + { /* let */ + obj v5596_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2548_i), (vectorlen((v2553_vec))))); + obj v5595_tmp = (v2552_vecs); + /* tail call */ + v2549_vecs = (v5595_tmp); + v2548_i = (v5596_tmp); + goto s_loop; + } + } + } + } +} + +/* %bytevectors-sum-length */ +static obj cxs__25bytevectors_2Dsum_2Dlength(obj v2621_vecs) +{ + { /* letrec */ + obj v2624_vecs; + obj v2623_l; + { /* let */ + obj v5594_tmp = obj_from_fixnum(+0); + obj v5593_tmp = (v2621_vecs); + /* tail call */ + v2624_vecs = (v5593_tmp); + v2623_l = (v5594_tmp); + goto s_loop; + } + s_loop: + if ((isnull((v2624_vecs)))) { + return (v2623_l); + } else { + { /* let */ + obj v5592_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2623_l), (bytevectorlen((car((v2624_vecs))))))); + obj v5591_tmp = (cdr((v2624_vecs))); + /* tail call */ + v2624_vecs = (v5591_tmp); + v2623_l = (v5592_tmp); + goto s_loop; + } + } + } +} + +/* %bytevectors-copy-into! */ +static obj cxs__25bytevectors_2Dcopy_2Dinto_21(obj v2634_to, obj v2633_vecs) +{ + { /* letrec */ + obj v2637_vecs; + obj v2636_i; + { /* let */ + obj v5590_tmp = obj_from_fixnum(+0); + obj v5589_tmp = (v2633_vecs); + /* tail call */ + v2637_vecs = (v5589_tmp); + v2636_i = (v5590_tmp); + goto s_loop; + } + s_loop: + if ((isnull((v2637_vecs)))) { + return (v2634_to); + } else { + { /* let */ + obj v2640_vecs = (cdr((v2637_vecs))); + obj v2641_vec = (car((v2637_vecs))); + (void) (cxs_subbytevector_2Dcopy_21((v2634_to), (v2636_i), (v2641_vec), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((v2641_vec))))); + { /* let */ + obj v5588_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2636_i), (bytevectorlen((v2641_vec))))); + obj v5587_tmp = (v2640_vecs); + /* tail call */ + v2637_vecs = (v5587_tmp); + v2636_i = (v5588_tmp); + goto s_loop; + } + } + } + } } /* gc roots */ @@ -1951,9 +2679,21 @@ static obj *globv[] = { &cx__25residual_2B, &cx__25residual_2D, &cx__25residual_2Dappend, + &cx__25residual_2Dassoc, &cx__25residual_2Datan, + &cx__25residual_2Dboolean_3D_3F, &cx__25residual_2Dbytevector, + &cx__25residual_2Dchar_2Dci_3C_3D_3F, + &cx__25residual_2Dchar_2Dci_3C_3F, + &cx__25residual_2Dchar_2Dci_3D_3F, + &cx__25residual_2Dchar_2Dci_3E_3D_3F, + &cx__25residual_2Dchar_2Dci_3E_3F, &cx__25residual_2Dchar_2Dready_3F, + &cx__25residual_2Dchar_3C_3D_3F, + &cx__25residual_2Dchar_3C_3F, + &cx__25residual_2Dchar_3D_3F, + &cx__25residual_2Dchar_3E_3D_3F, + &cx__25residual_2Dchar_3E_3F, &cx__25residual_2Dcons_2A, &cx__25residual_2Dcurrent_2Derror_2Dport, &cx__25residual_2Dcurrent_2Dinput_2Dport, @@ -1996,10 +2736,12 @@ static obj *globv[] = { &cx__25residual_2Dlog, &cx__25residual_2Dmake_2Dbytevector, &cx__25residual_2Dmake_2Dcase_2Dlambda, + &cx__25residual_2Dmake_2Dlist, &cx__25residual_2Dmake_2Dstring, &cx__25residual_2Dmake_2Dvector, &cx__25residual_2Dmap, &cx__25residual_2Dmax, + &cx__25residual_2Dmember, &cx__25residual_2Dmin, &cx__25residual_2Dnewline, &cx__25residual_2Dnumber_2D_3Estring, @@ -2007,18 +2749,32 @@ static obj *globv[] = { &cx__25residual_2Dpeek_2Du8, &cx__25residual_2Dread, &cx__25residual_2Dread_2Dchar, + &cx__25residual_2Dread_2Dline, &cx__25residual_2Dread_2Dsimple, &cx__25residual_2Dread_2Du8, &cx__25residual_2Drecord_3F, &cx__25residual_2Dstring, &cx__25residual_2Dstring_2D_3Enumber, &cx__25residual_2Dstring_2Dappend, + &cx__25residual_2Dstring_2Dci_3C_3D_3F, + &cx__25residual_2Dstring_2Dci_3C_3F, + &cx__25residual_2Dstring_2Dci_3D_3F, + &cx__25residual_2Dstring_2Dci_3E_3D_3F, + &cx__25residual_2Dstring_2Dci_3E_3F, + &cx__25residual_2Dstring_3C_3D_3F, + &cx__25residual_2Dstring_3C_3F, + &cx__25residual_2Dstring_3D_3F, + &cx__25residual_2Dstring_3E_3D_3F, + &cx__25residual_2Dstring_3E_3F, + &cx__25residual_2Dsymbol_3D_3F, &cx__25residual_2Du8_2Dready_3F, &cx__25residual_2Dvalues, &cx__25residual_2Dvector, &cx__25residual_2Dwrite, &cx__25residual_2Dwrite_2Dbytevector, &cx__25residual_2Dwrite_2Dchar, + &cx__25residual_2Dwrite_2Dshared, + &cx__25residual_2Dwrite_2Dsimple, &cx__25residual_2Dwrite_2Dstring, &cx__25residual_2Dwrite_2Du8, &cx__25residual_2F, @@ -2034,82 +2790,111 @@ static obj *globv[] = { &cx__3Cerror_2Dobject_3E, &cx_apply, &cx_assertion_2Dviolation, + &cx_bytevector_2D_3Elist, + &cx_bytevector_2Dappend, + &cx_bytevector_2Dcopy, + &cx_bytevector_2Dcopy_21, &cx_current_2Dexception_2Dhandler, + &cx_emergency_2Dexit, &cx_error, + &cx_exit, &cx_file_2Derror, &cx_make_2Dparameter, + &cx_read_2Dbytevector, + &cx_read_2Dbytevector_21, &cx_read_2Derror, + &cx_read_2Dstring, + &cx_read_2Dstring_21, &cx_reset, &cx_simple_2Derror, - &cx__231041, - &cx__231045, - &cx__231056, - &cx__231080, + &cx_string_2D_3Elist, + &cx_string_2D_3Eutf8, + &cx_string_2D_3Evector, + &cx_string_2Dcopy, + &cx_string_2Dcopy_21, + &cx_string_2Dfill_21, + &cx_string_2Dfor_2Deach, + &cx_string_2Dmap, + &cx_utf8_2D_3Estring, + &cx_vector_2D_3Elist, + &cx_vector_2D_3Estring, + &cx_vector_2Dappend, + &cx_vector_2Dcopy, + &cx_vector_2Dcopy_21, + &cx_vector_2Dfill_21, + &cx_vector_2Dfor_2Deach, + &cx_vector_2Dmap, + &cx__231117, &cx__231121, - &cx__231142, + &cx__231125, + &cx__231129, &cx__231144, - &cx__231203, - &cx__231207, - &cx__231210, - &cx__231214, - &cx__231217, - &cx__231221, - &cx__231234, - &cx__231250, - &cx__231258, - &cx__231264, - &cx__231276, - &cx__231288, - &cx__231324, - &cx__231332, - &cx__231338, - &cx__231341, - &cx__231356, - &cx__231357, - &cx__231360, - &cx__231367, - &cx__231372, + &cx__231148, + &cx__231151, + &cx__231155, &cx__231377, - &cx__231379, - &cx__231383, - &cx__231397, - &cx__231403, - &cx__231406, - &cx__231423, - &cx__231430, - &cx__231435, - &cx__231442, - &cx__231495, - &cx__231500, + &cx__231381, + &cx__231392, + &cx__231416, + &cx__231455, + &cx__231472, + &cx__231474, + &cx__231517, + &cx__231519, + &cx__231520, &cx__231522, - &cx__231567, - &cx__231585, - &cx__231606, - &cx__231648, + &cx__231523, + &cx__231525, + &cx__231534, + &cx__231550, + &cx__231558, + &cx__231562, + &cx__231574, + &cx__231580, + &cx__231594, + &cx__231602, + &cx__231608, + &cx__231611, + &cx__231626, + &cx__231627, + &cx__231630, + &cx__231637, + &cx__231642, + &cx__231647, + &cx__231649, + &cx__231653, + &cx__231665, + &cx__231671, + &cx__231674, + &cx__231687, &cx__231692, - &cx__231693, - &cx__231763, - &cx__231824, - &cx__231827, - &cx__231830, - &cx__231960, - &cx__232014, - &cx__232036, - &cx__232091, - &cx__232103, - &cx__232107, - &cx__232726, - &cx__232743, - &cx__233141, - &cx__233244, - &cx__23890, - &cx__23894, - &cx__23898, - &cx__23902, - &cx__23917, - &cx__23921, - &cx__23924, - &cx__23928, + &cx__231697, + &cx__231704, + &cx__231755, + &cx__231758, + &cx__231770, + &cx__231791, + &cx__231805, + &cx__231818, + &cx__231848, + &cx__231874, + &cx__231875, + &cx__231933, + &cx__231994, + &cx__231997, + &cx__232000, + &cx__232056, + &cx__232060, + &cx__232130, + &cx__232184, + &cx__232206, + &cx__232275, + &cx__232287, + &cx__232291, + &cx__233223, + &cx__233240, + &cx__233977, + &cx__234288, }; static cxroot_t root = { @@ -2118,7 +2903,7 @@ static cxroot_t root = { /* entry points */ static obj host(obj); -static obj cases[555] = { +static obj cases[688] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, @@ -2230,6 +3015,33 @@ static obj cases[555] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, + (obj)host, (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 */ @@ -2244,72 +3056,74 @@ jump: switch (case_from_obj(pc)) { case 0: /* load module */ - cx__23890 = (hpushstr(0, newstring("r"))); - cx__23894 = (hpushstr(0, newstring("cannot open input file"))); - cx__23898 = (hpushstr(0, newstring("rb"))); - cx__23902 = (hpushstr(0, newstring("cannot open binary input file"))); - cx__23917 = (hpushstr(0, newstring("w"))); - cx__23921 = (hpushstr(0, newstring("cannot open output file"))); - cx__23924 = (hpushstr(0, newstring("wb"))); - cx__23928 = (hpushstr(0, newstring("cannot open binary output file"))); - cx__231041 = (hpushstr(0, newstring(": "))); - cx__231045 = (hpushstr(0, newstring(" in "))); - cx__231056 = (hpushstr(0, newstring("Error"))); - cx__231080 = (hpushstr(0, newstring("Assertion violation"))); - cx__231121 = (hpushstr(0, newstring("unexpected number/symbol char"))); - cx__231142 = (hpushstr(0, newstring("unsupported number syntax (implementation restriction)"))); - cx__231144 = (hpushstr(0, newstring("."))); - cx__231203 = (hpushstr(0, newstring("+inf.0"))); - cx__231207 = (hpushstr(0, newstring("-inf.0"))); - cx__231210 = (hpushstr(0, newstring("+nan.0"))); - cx__231214 = (hpushstr(0, newstring("-nan.0"))); - cx__231217 = (hpushstr(0, newstring("+i"))); - cx__231221 = (hpushstr(0, newstring("-i"))); + cx__231117 = (hpushstr(0, newstring("r"))); + cx__231121 = (hpushstr(0, newstring("cannot open input file"))); + cx__231125 = (hpushstr(0, newstring("rb"))); + cx__231129 = (hpushstr(0, newstring("cannot open binary input file"))); + cx__231144 = (hpushstr(0, newstring("w"))); + cx__231148 = (hpushstr(0, newstring("cannot open output file"))); + cx__231151 = (hpushstr(0, newstring("wb"))); + cx__231155 = (hpushstr(0, newstring("cannot open binary output file"))); + cx__231377 = (hpushstr(0, newstring(": "))); + cx__231381 = (hpushstr(0, newstring(" in "))); + cx__231392 = (hpushstr(0, newstring("Error"))); + cx__231416 = (hpushstr(0, newstring("Assertion violation"))); + cx__231455 = (hpushstr(0, newstring("unexpected number/symbol char"))); + cx__231472 = (hpushstr(0, newstring("unsupported number syntax (implementation restriction)"))); + cx__231474 = (hpushstr(0, newstring("."))); + cx__231517 = (hpushstr(0, newstring("+inf.0"))); + cx__231519 = (hpushstr(0, newstring("-inf.0"))); + cx__231520 = (hpushstr(0, newstring("+nan.0"))); + cx__231522 = (hpushstr(0, newstring("-nan.0"))); + cx__231523 = (hpushstr(0, newstring("+i"))); + cx__231525 = (hpushstr(0, newstring("-i"))); { static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 115, 104, 111, 114, 116, 0 }; - cx__231234 = (hpushstr(0, newstring(s))); } + cx__231534 = (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__231250 = (hpushstr(0, newstring(s))); } + cx__231550 = (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__231258 = (hpushstr(0, newstring(s))); } - cx__231264 = (hpushstr(0, newstring("end of file within a string"))); - cx__231276 = (hpushstr(0, newstring("invalid char escape in"))); - cx__231288 = (hpushstr(0, newstring("no newline in line ending escape"))); - cx__231324 = (hpushstr(0, newstring("end of file within a"))); - cx__231332 = (hpushstr(0, newstring("invalid byte inside bytevector --"))); - cx__231338 = (hpushstr(0, newstring("error inside bytevector --"))); - cx__231341 = (hpushstr(0, newstring("eof inside bytevector"))); - cx__231356 = (hpushstr(0, newstring("error inside list --"))); - cx__231357 = (hpushstr(0, newstring("dot in #(...)"))); - cx__231360 = (hpushstr(0, newstring("randomness after form after dot"))); - cx__231367 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses"))); - cx__231372 = (hpushstr(0, newstring("missing car -- ( immediately followed by ."))); - cx__231377 = (hpushstr(0, newstring("illegal character read"))); - cx__231379 = (hpushstr(0, newstring("unknown # syntax"))); - cx__231383 = (hpushstr(0, newstring("invalid terminator for #N notation"))); - cx__231397 = (hpushstr(0, newstring("#n= has another label as target"))); - cx__231403 = (hpushstr(0, newstring("duplicate #n= tag:"))); - cx__231406 = (hpushstr(0, newstring("invalid #n= reference:"))); - cx__231423 = (hpushstr(0, newstring("unknown #n# reference:"))); - cx__231430 = (hpushstr(0, newstring("end of file within a #N notation"))); - cx__231435 = (hpushstr(0, newstring("#N=/#N# notation is not allowed in this mode"))); + cx__231558 = (hpushstr(0, newstring(s))); } + cx__231562 = (hpushstr(0, newstring("end of file within a string"))); + cx__231574 = (hpushstr(0, newstring("invalid char escape in"))); + cx__231580 = (hpushstr(0, newstring("no newline in line ending escape"))); + cx__231594 = (hpushstr(0, newstring("end of file within a"))); + cx__231602 = (hpushstr(0, newstring("invalid byte inside bytevector --"))); + cx__231608 = (hpushstr(0, newstring("error inside bytevector --"))); + cx__231611 = (hpushstr(0, newstring("eof inside bytevector"))); + cx__231626 = (hpushstr(0, newstring("error inside list --"))); + cx__231627 = (hpushstr(0, newstring("dot in #(...)"))); + cx__231630 = (hpushstr(0, newstring("randomness after form after dot"))); + cx__231637 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses"))); + cx__231642 = (hpushstr(0, newstring("missing car -- ( immediately followed by ."))); + cx__231647 = (hpushstr(0, newstring("illegal character read"))); + cx__231649 = (hpushstr(0, newstring("unknown # syntax"))); + cx__231653 = (hpushstr(0, newstring("invalid terminator for #N notation"))); + cx__231665 = (hpushstr(0, newstring("#n= has another label as target"))); + cx__231671 = (hpushstr(0, newstring("duplicate #n= tag:"))); + cx__231674 = (hpushstr(0, newstring("invalid #n= reference:"))); + cx__231687 = (hpushstr(0, newstring("unknown #n# reference:"))); + cx__231692 = (hpushstr(0, newstring("end of file within a #N notation"))); + cx__231697 = (hpushstr(0, newstring("#N=/#N# notation is not allowed in this mode"))); { static char s[] = { 117, 110, 107, 110, 111, 119, 110, 32, 35, 92, 32, 110, 97, 109, 101, 0 }; - cx__231442 = (hpushstr(0, newstring(s))); } + cx__231704 = (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__231495 = (hpushstr(0, newstring(s))); } - cx__231500 = (hpushstr(0, newstring("invalid bytevector syntax"))); - cx__231522 = (hpushstr(0, newstring("end of file in #| comment"))); - cx__231567 = (hpushstr(0, newstring("unexpected name after #"))); - cx__231585 = (hpushstr(0, newstring("end of file after #"))); - cx__231606 = (hpushstr(0, newstring("end of file within a |symbol|"))); - cx__231648 = (hpushstr(0, newstring("end of file after ,"))); - cx__231692 = (hpushstr(0, newstring("unexpected token:"))); - cx__231693 = (hpushstr(0, newstring("unexpected end of file"))); + cx__231755 = (hpushstr(0, newstring(s))); } + cx__231758 = (hpushstr(0, newstring("invalid bytevector syntax"))); + cx__231770 = (hpushstr(0, newstring("end of file in #| comment"))); + cx__231791 = (hpushstr(0, newstring("unexpected name after #"))); + cx__231805 = (hpushstr(0, newstring("end of file after #"))); + cx__231818 = (hpushstr(0, newstring("end of file within a |symbol|"))); + cx__231848 = (hpushstr(0, newstring("end of file after ,"))); + cx__231874 = (hpushstr(0, newstring("unexpected token:"))); + cx__231875 = (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__231763 = (hpushstr(0, newstring(s))); } + cx__231933 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 32, 46, 32, 34, 0 }; - cx__231824 = (hpushstr(0, newstring(s))); } - cx__231827 = (hpushstr(0, newstring("right bracket"))); - cx__231830 = (hpushstr(0, newstring("right parenthesis"))); + cx__231994 = (hpushstr(0, newstring(s))); } + cx__231997 = (hpushstr(0, newstring("right bracket"))); + cx__232000 = (hpushstr(0, newstring("right parenthesis"))); + cx__232056 = (hpushstr(0, newstring("cannot delete file:"))); + cx__232060 = (hpushstr(0, newstring("cannot rename file:"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); @@ -2327,20 +3141,20 @@ case 0: /* load module */ *--hp = r[0]; *--hp = (mksymbol(internsym("kind"))); *--hp = obj_from_size(PAIR_BTAG); - cx__231960 = (hendblk(3)); } - cx__232014 = (hpushstr(0, newstring("unhandled exception"))); - cx__232036 = (hpushstr(0, newstring("exception handler returned"))); - cx__232091 = (hpushstr(0, newstring("nonzero imag part not supported"))); - cx__232103 = (hpushstr(0, newstring("angle not supported"))); - cx__232107 = obj_from_flonum(0, +3.141592653589793238462643e+0); - cx__232726 = obj_from_flonum(0, +0.0e+0); - cx__232743 = obj_from_flonum(0, +1.0e+0); - cx__233141 = (hpushstr(0, newstring(""))); - cx__233244 = (hpushstr(0, newstring("unexpected number of arguments"))); - { static obj c[] = { obj_from_case(1) }; cx__25residual_2Dvoid = (obj)c; } - { static obj c[] = { obj_from_case(2) }; cx__25residual_2Dvoid_3F = (obj)c; } - { static obj c[] = { obj_from_case(3) }; cx__25residual_2Dboolean_3F = (obj)c; } - { static obj c[] = { obj_from_case(4) }; cx__25residual_2Dnot = (obj)c; } + cx__232130 = (hendblk(3)); } + cx__232184 = (hpushstr(0, newstring("unhandled exception"))); + cx__232206 = (hpushstr(0, newstring("exception handler returned"))); + cx__232275 = (hpushstr(0, newstring("nonzero imag part not supported"))); + cx__232287 = (hpushstr(0, newstring("angle not supported"))); + cx__232291 = obj_from_flonum(0, +3.141592653589793238462643e+0); + cx__233223 = obj_from_flonum(0, +0.0e+0); + cx__233240 = obj_from_flonum(0, +1.0e+0); + cx__233977 = (hpushstr(0, newstring(""))); + cx__234288 = (hpushstr(0, newstring("unexpected number of arguments"))); + { static obj c[] = { obj_from_case(1) }; cx__25residual_2Dboolean_3F = (obj)c; } + { static obj c[] = { obj_from_case(2) }; cx__25residual_2Dnot = (obj)c; } + { static obj c[] = { obj_from_case(3) }; cx__25residual_2Dvoid = (obj)c; } + { static obj c[] = { obj_from_case(4) }; cx__25residual_2Dvoid_3F = (obj)c; } { static obj c[] = { obj_from_case(5) }; cx__25residual_2Dfixnum_3F = (obj)c; } { static obj c[] = { obj_from_case(6) }; cx__25residual_2Dfixnum_2Dwidth = (obj)c; } { static obj c[] = { obj_from_case(7) }; cx__25residual_2Dleast_2Dfixnum = (obj)c; } @@ -2435,140 +3249,134 @@ case 0: /* load module */ { static obj c[] = { obj_from_case(96) }; cx__25residual_2Dexpt = (obj)c; } { static obj c[] = { obj_from_case(97) }; cx__25residual_2Dsquare = (obj)c; } { static obj c[] = { obj_from_case(98) }; cx__25residual_2Dchar_3F = (obj)c; } - { static obj c[] = { obj_from_case(99) }; cx__25residual_2Dchar_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(100) }; cx__25residual_2Dchar_3C_3F = (obj)c; } - { static obj c[] = { obj_from_case(101) }; cx__25residual_2Dchar_3E_3F = (obj)c; } - { static obj c[] = { obj_from_case(102) }; cx__25residual_2Dchar_3C_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(103) }; cx__25residual_2Dchar_3E_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(104) }; cx__25residual_2Dchar_2Dci_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(105) }; cx__25residual_2Dchar_2Dci_3C_3F = (obj)c; } - { static obj c[] = { obj_from_case(106) }; cx__25residual_2Dchar_2Dci_3E_3F = (obj)c; } - { static obj c[] = { obj_from_case(107) }; cx__25residual_2Dchar_2Dci_3C_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(108) }; cx__25residual_2Dchar_2Dci_3E_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(109) }; cx__25residual_2Dchar_2Dalphabetic_3F = (obj)c; } - { static obj c[] = { obj_from_case(110) }; cx__25residual_2Dchar_2Dnumeric_3F = (obj)c; } - { static obj c[] = { obj_from_case(111) }; cx__25residual_2Dchar_2Dwhitespace_3F = (obj)c; } - { static obj c[] = { obj_from_case(112) }; cx__25residual_2Dchar_2Dupper_2Dcase_3F = (obj)c; } - { static obj c[] = { obj_from_case(113) }; cx__25residual_2Dchar_2Dlower_2Dcase_3F = (obj)c; } - { static obj c[] = { obj_from_case(114) }; cx__25residual_2Dchar_2D_3Einteger = (obj)c; } - { static obj c[] = { obj_from_case(115) }; cx__25residual_2Dinteger_2D_3Echar = (obj)c; } - { static obj c[] = { obj_from_case(116) }; cx__25residual_2Dchar_2Dupcase = (obj)c; } - { static obj c[] = { obj_from_case(117) }; cx__25residual_2Dchar_2Ddowncase = (obj)c; } - { static obj c[] = { obj_from_case(118) }; cx__25residual_2Dstring_3F = (obj)c; } - { static obj c[] = { obj_from_case(119) }; cx__25residual_2Dstring_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(120) }; cx__25residual_2Dstring_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(121) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(122) }; cx__25residual_2Dstring_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(123) }; cx__25residual_2Dstring_3C_3F = (obj)c; } - { static obj c[] = { obj_from_case(124) }; cx__25residual_2Dstring_3E_3F = (obj)c; } - { static obj c[] = { obj_from_case(125) }; cx__25residual_2Dstring_3C_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(126) }; cx__25residual_2Dstring_3E_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(127) }; cx__25residual_2Dstring_2Dci_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(128) }; cx__25residual_2Dstring_2Dci_3C_3F = (obj)c; } - { static obj c[] = { obj_from_case(129) }; cx__25residual_2Dstring_2Dci_3E_3F = (obj)c; } - { static obj c[] = { obj_from_case(130) }; cx__25residual_2Dstring_2Dci_3C_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(131) }; cx__25residual_2Dstring_2Dci_3E_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(132) }; cx__25residual_2Dsubstring = (obj)c; } - { static obj c[] = { obj_from_case(133) }; cx__25residual_2Dstring_2Dappend_2F2 = (obj)c; } - { static obj c[] = { obj_from_case(134) }; cx__25residual_2Dstring_2Dcopy = (obj)c; } - { static obj c[] = { obj_from_case(135) }; cx__25residual_2Dstring_2Dfill_21 = (obj)c; } - { static obj c[] = { obj_from_case(136) }; cx__25residual_2Dstring_2Dposition = (obj)c; } - { static obj c[] = { obj_from_case(137) }; cx__25residual_2Dvector_3F = (obj)c; } - { static obj c[] = { obj_from_case(138) }; cx__25residual_2Dmake_2Dvector = (obj)c; } - { static obj c[] = { obj_from_case(139) }; cx__25residual_2Dvector_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(140) }; cx__25residual_2Dvector_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(141) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(142) }; cx_vector_2Dfill_21 = (obj)c; } - { static obj c[] = { obj_from_case(143) }; cx__25residual_2Dbyte_3F = (obj)c; } - { static obj c[] = { obj_from_case(144) }; cx__25residual_2Dbytevector_3F = (obj)c; } - { static obj c[] = { obj_from_case(145) }; cx__25residual_2Dbytevector_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(146) }; cx__25residual_2Dbytevector_2Du8_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(147) }; cx__25residual_2Dbytevector_2Du8_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(148) }; cx__25residual_2Dbytevector_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(149) }; cx__25residual_2Dsubbytevector = (obj)c; } - { static obj c[] = { obj_from_case(150) }; cx__25residual_2Dbox_3F = (obj)c; } - { static obj c[] = { obj_from_case(151) }; cx__25residual_2Dbox = (obj)c; } - { static obj c[] = { obj_from_case(152) }; cx__25residual_2Dunbox = (obj)c; } - { static obj c[] = { obj_from_case(153) }; cx__25residual_2Dset_2Dbox_21 = (obj)c; } - { static obj c[] = { obj_from_case(154) }; cx__25residual_2Dnull_3F = (obj)c; } - { static obj c[] = { obj_from_case(155) }; cx__25residual_2Dpair_3F = (obj)c; } - { static obj c[] = { obj_from_case(156) }; cx__25residual_2Datom_3F = (obj)c; } - { static obj c[] = { obj_from_case(157) }; cx__25residual_2Dlist_3F = (obj)c; } - { static obj c[] = { obj_from_case(158) }; cx__25residual_2Dcons = (obj)c; } - { static obj c[] = { obj_from_case(159) }; cx__25residual_2Dcar = (obj)c; } - { static obj c[] = { obj_from_case(160) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; } - { static obj c[] = { obj_from_case(161) }; cx__25residual_2Dcdr = (obj)c; } - { static obj c[] = { obj_from_case(162) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; } - { static obj c[] = { obj_from_case(163) }; cx__25residual_2Dcaar = (obj)c; } - { static obj c[] = { obj_from_case(164) }; cx__25residual_2Dcadr = (obj)c; } - { static obj c[] = { obj_from_case(165) }; cx__25residual_2Dcdar = (obj)c; } - { static obj c[] = { obj_from_case(166) }; cx__25residual_2Dcddr = (obj)c; } - { static obj c[] = { obj_from_case(167) }; cx__25residual_2Dcaaar = (obj)c; } - { static obj c[] = { obj_from_case(168) }; cx__25residual_2Dcaadr = (obj)c; } - { static obj c[] = { obj_from_case(169) }; cx__25residual_2Dcadar = (obj)c; } - { static obj c[] = { obj_from_case(170) }; cx__25residual_2Dcaddr = (obj)c; } - { static obj c[] = { obj_from_case(171) }; cx__25residual_2Dcdaar = (obj)c; } - { static obj c[] = { obj_from_case(172) }; cx__25residual_2Dcdadr = (obj)c; } - { static obj c[] = { obj_from_case(173) }; cx__25residual_2Dcddar = (obj)c; } - { static obj c[] = { obj_from_case(174) }; cx__25residual_2Dcdddr = (obj)c; } - { static obj c[] = { obj_from_case(175) }; cx__25residual_2Dcaaaar = (obj)c; } - { static obj c[] = { obj_from_case(176) }; cx__25residual_2Dcaaadr = (obj)c; } - { static obj c[] = { obj_from_case(177) }; cx__25residual_2Dcaadar = (obj)c; } - { static obj c[] = { obj_from_case(178) }; cx__25residual_2Dcaaddr = (obj)c; } - { static obj c[] = { obj_from_case(179) }; cx__25residual_2Dcadaar = (obj)c; } - { static obj c[] = { obj_from_case(180) }; cx__25residual_2Dcadadr = (obj)c; } - { static obj c[] = { obj_from_case(181) }; cx__25residual_2Dcaddar = (obj)c; } - { static obj c[] = { obj_from_case(182) }; cx__25residual_2Dcadddr = (obj)c; } - { static obj c[] = { obj_from_case(183) }; cx__25residual_2Dcdaaar = (obj)c; } - { static obj c[] = { obj_from_case(184) }; cx__25residual_2Dcdaadr = (obj)c; } - { static obj c[] = { obj_from_case(185) }; cx__25residual_2Dcdadar = (obj)c; } - { static obj c[] = { obj_from_case(186) }; cx__25residual_2Dcdaddr = (obj)c; } - { static obj c[] = { obj_from_case(187) }; cx__25residual_2Dcddaar = (obj)c; } - { static obj c[] = { obj_from_case(188) }; cx__25residual_2Dcddadr = (obj)c; } - { static obj c[] = { obj_from_case(189) }; cx__25residual_2Dcdddar = (obj)c; } - { static obj c[] = { obj_from_case(190) }; cx__25residual_2Dcddddr = (obj)c; } - { static obj c[] = { obj_from_case(191) }; cx__25residual_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(192) }; cx__25residual_2Dreverse = (obj)c; } - { static obj c[] = { obj_from_case(193) }; cx__25residual_2Dreverse_21 = (obj)c; } - { static obj c[] = { obj_from_case(194) }; cx__25residual_2Dappend_2F2 = (obj)c; } - { static obj c[] = { obj_from_case(195) }; cx__25residual_2Dlist_2Dcopy = (obj)c; } - { static obj c[] = { obj_from_case(196) }; cx__25residual_2Dlist_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(197) }; cx__25residual_2Dlist_2Dtail = (obj)c; } - { static obj c[] = { obj_from_case(198) }; cx__25residual_2Dlast_2Dpair = (obj)c; } - { static obj c[] = { obj_from_case(199) }; cx__25residual_2Dsymbol_3F = (obj)c; } - { static obj c[] = { obj_from_case(200) }; cx__25residual_2Dsymbol_3D_3F = (obj)c; } - { static obj c[] = { obj_from_case(201) }; cx__25residual_2Dmake_2Drecord = (obj)c; } - { static obj c[] = { obj_from_case(202) }; cx__25residual_2Drecord_2Dtype_2Ddescriptor = (obj)c; } - { static obj c[] = { obj_from_case(203) }; cx__25residual_2Drecord_2Dlength = (obj)c; } - { static obj c[] = { obj_from_case(204) }; cx__25residual_2Drecord_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(205) }; cx__25residual_2Drecord_2Dset_21 = (obj)c; } - { static obj c[] = { obj_from_case(206) }; cx__25residual_2Dnew_2Drecord_2Dtype = (obj)c; } - { static obj c[] = { obj_from_case(207) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; } - { static obj c[] = { obj_from_case(208) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; } - { static obj c[] = { obj_from_case(209) }; cx_fixnum_2D_3Estring = (obj)c; } - { static obj c[] = { obj_from_case(210) }; cx_flonum_2D_3Estring = (obj)c; } - { static obj c[] = { obj_from_case(211) }; cx_string_2D_3Efixnum = (obj)c; } - { static obj c[] = { obj_from_case(212) }; cx_string_2D_3Eflonum = (obj)c; } - { static obj c[] = { obj_from_case(213) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; } - { static obj c[] = { obj_from_case(214) }; cx__25residual_2Dvector_2D_3Elist = (obj)c; } - { static obj c[] = { obj_from_case(215) }; cx__25residual_2Dlist_2D_3Evector = (obj)c; } - { static obj c[] = { obj_from_case(216) }; cx__25residual_2Dlist_2D_3Estring = (obj)c; } - { static obj c[] = { obj_from_case(217) }; cx__25residual_2Dstring_2D_3Elist = (obj)c; } - { static obj c[] = { obj_from_case(218) }; cx__25residual_2Dlist_2D_3Ebytevector = (obj)c; } - { static obj c[] = { obj_from_case(219) }; cx__25residual_2Dbytevector_2D_3Elist = (obj)c; } - { static obj c[] = { obj_from_case(220) }; cx__25residual_2Dprocedure_3F = (obj)c; } + { static obj c[] = { obj_from_case(99) }; cx__25residual_2Dchar_2Dalphabetic_3F = (obj)c; } + { static obj c[] = { obj_from_case(100) }; cx__25residual_2Dchar_2Dnumeric_3F = (obj)c; } + { static obj c[] = { obj_from_case(101) }; cx__25residual_2Dchar_2Dwhitespace_3F = (obj)c; } + { static obj c[] = { obj_from_case(102) }; cx__25residual_2Dchar_2Dupper_2Dcase_3F = (obj)c; } + { static obj c[] = { obj_from_case(103) }; cx__25residual_2Dchar_2Dlower_2Dcase_3F = (obj)c; } + { static obj c[] = { obj_from_case(104) }; cx__25residual_2Dchar_2D_3Einteger = (obj)c; } + { static obj c[] = { obj_from_case(105) }; cx__25residual_2Dinteger_2D_3Echar = (obj)c; } + { static obj c[] = { obj_from_case(106) }; cx__25residual_2Dchar_2Dupcase = (obj)c; } + { static obj c[] = { obj_from_case(107) }; cx__25residual_2Dchar_2Ddowncase = (obj)c; } + { static obj c[] = { obj_from_case(108) }; cx__25residual_2Ddigit_2Dvalue = (obj)c; } + { static obj c[] = { obj_from_case(109) }; cx__25residual_2Dstring_3F = (obj)c; } + { static obj c[] = { obj_from_case(110) }; cx__25residual_2Dstring_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(111) }; cx__25residual_2Dstring_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(112) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(113) }; cx__25residual_2Dstring_2Dupcase = (obj)c; } + { static obj c[] = { obj_from_case(114) }; cx__25residual_2Dstring_2Ddowncase = (obj)c; } + { static obj c[] = { obj_from_case(115) }; cx__25residual_2Dsubstring = (obj)c; } + { static obj c[] = { obj_from_case(116) }; cx__25residual_2D_25string_2Dappend = (obj)c; } + { static obj c[] = { obj_from_case(117) }; cx__25residual_2D_25string_2Dcopy = (obj)c; } + { static obj c[] = { obj_from_case(118) }; cx_substring_2Dcopy_21 = (obj)c; } + { static obj c[] = { obj_from_case(119) }; cx_substring_2Dfill_21 = (obj)c; } + { static obj c[] = { obj_from_case(120) }; cx__25residual_2D_25string_2Dfill_21 = (obj)c; } + { static obj c[] = { obj_from_case(121) }; cx__25residual_2Dstring_2Dposition = (obj)c; } + { static obj c[] = { obj_from_case(122) }; cx__25residual_2Dvector_3F = (obj)c; } + { static obj c[] = { obj_from_case(123) }; cx__25residual_2D_25new_2Dvector = (obj)c; } + { static obj c[] = { obj_from_case(124) }; cx__25residual_2D_25make_2Dvector = (obj)c; } + { static obj c[] = { obj_from_case(125) }; cx__25residual_2Dvector_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(126) }; cx__25residual_2Dvector_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(127) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(128) }; cx_subvector_2Dcopy_21 = (obj)c; } + { static obj c[] = { obj_from_case(129) }; cx_subvector = (obj)c; } + { static obj c[] = { obj_from_case(130) }; cx_subvector_2Dfill_21 = (obj)c; } + { static obj c[] = { obj_from_case(131) }; cx__25residual_2Dbyte_3F = (obj)c; } + { static obj c[] = { obj_from_case(132) }; cx__25residual_2Dbytevector_3F = (obj)c; } + { static obj c[] = { obj_from_case(133) }; cx__25residual_2Dbytevector_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(134) }; cx__25residual_2Dbytevector_2Du8_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(135) }; cx__25residual_2Dbytevector_2Du8_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(136) }; cx__25residual_2Dbytevector_3D_3F = (obj)c; } + { static obj c[] = { obj_from_case(137) }; cx_subbytevector_2Dcopy_21 = (obj)c; } + { static obj c[] = { obj_from_case(138) }; cx__25residual_2Dsubbytevector = (obj)c; } + { static obj c[] = { obj_from_case(139) }; cx__25residual_2Dbox_3F = (obj)c; } + { static obj c[] = { obj_from_case(140) }; cx__25residual_2Dbox = (obj)c; } + { static obj c[] = { obj_from_case(141) }; cx__25residual_2Dunbox = (obj)c; } + { static obj c[] = { obj_from_case(142) }; cx__25residual_2Dset_2Dbox_21 = (obj)c; } + { static obj c[] = { obj_from_case(143) }; cx__25residual_2Dnull_3F = (obj)c; } + { static obj c[] = { obj_from_case(144) }; cx__25residual_2Dpair_3F = (obj)c; } + { static obj c[] = { obj_from_case(145) }; cx__25residual_2Datom_3F = (obj)c; } + { static obj c[] = { obj_from_case(146) }; cx__25residual_2Dlist_3F = (obj)c; } + { static obj c[] = { obj_from_case(147) }; cx__25residual_2Dcons = (obj)c; } + { static obj c[] = { obj_from_case(148) }; cx__25residual_2Dcar = (obj)c; } + { static obj c[] = { obj_from_case(149) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; } + { static obj c[] = { obj_from_case(150) }; cx__25residual_2Dcdr = (obj)c; } + { static obj c[] = { obj_from_case(151) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; } + { static obj c[] = { obj_from_case(152) }; cx__25residual_2Dcaar = (obj)c; } + { static obj c[] = { obj_from_case(153) }; cx__25residual_2Dcadr = (obj)c; } + { static obj c[] = { obj_from_case(154) }; cx__25residual_2Dcdar = (obj)c; } + { static obj c[] = { obj_from_case(155) }; cx__25residual_2Dcddr = (obj)c; } + { static obj c[] = { obj_from_case(156) }; cx__25residual_2Dcaaar = (obj)c; } + { static obj c[] = { obj_from_case(157) }; cx__25residual_2Dcaadr = (obj)c; } + { static obj c[] = { obj_from_case(158) }; cx__25residual_2Dcadar = (obj)c; } + { static obj c[] = { obj_from_case(159) }; cx__25residual_2Dcaddr = (obj)c; } + { static obj c[] = { obj_from_case(160) }; cx__25residual_2Dcdaar = (obj)c; } + { static obj c[] = { obj_from_case(161) }; cx__25residual_2Dcdadr = (obj)c; } + { static obj c[] = { obj_from_case(162) }; cx__25residual_2Dcddar = (obj)c; } + { static obj c[] = { obj_from_case(163) }; cx__25residual_2Dcdddr = (obj)c; } + { static obj c[] = { obj_from_case(164) }; cx__25residual_2Dcaaaar = (obj)c; } + { static obj c[] = { obj_from_case(165) }; cx__25residual_2Dcaaadr = (obj)c; } + { static obj c[] = { obj_from_case(166) }; cx__25residual_2Dcaadar = (obj)c; } + { static obj c[] = { obj_from_case(167) }; cx__25residual_2Dcaaddr = (obj)c; } + { static obj c[] = { obj_from_case(168) }; cx__25residual_2Dcadaar = (obj)c; } + { static obj c[] = { obj_from_case(169) }; cx__25residual_2Dcadadr = (obj)c; } + { static obj c[] = { obj_from_case(170) }; cx__25residual_2Dcaddar = (obj)c; } + { static obj c[] = { obj_from_case(171) }; cx__25residual_2Dcadddr = (obj)c; } + { static obj c[] = { obj_from_case(172) }; cx__25residual_2Dcdaaar = (obj)c; } + { static obj c[] = { obj_from_case(173) }; cx__25residual_2Dcdaadr = (obj)c; } + { static obj c[] = { obj_from_case(174) }; cx__25residual_2Dcdadar = (obj)c; } + { static obj c[] = { obj_from_case(175) }; cx__25residual_2Dcdaddr = (obj)c; } + { static obj c[] = { obj_from_case(176) }; cx__25residual_2Dcddaar = (obj)c; } + { static obj c[] = { obj_from_case(177) }; cx__25residual_2Dcddadr = (obj)c; } + { static obj c[] = { obj_from_case(178) }; cx__25residual_2Dcdddar = (obj)c; } + { static obj c[] = { obj_from_case(179) }; cx__25residual_2Dcddddr = (obj)c; } + { static obj c[] = { obj_from_case(180) }; cx__25make_2Dlist = (obj)c; } + { static obj c[] = { obj_from_case(181) }; cx__25residual_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(182) }; cx__25residual_2Dreverse = (obj)c; } + { static obj c[] = { obj_from_case(183) }; cx__25residual_2Dreverse_21 = (obj)c; } + { static obj c[] = { obj_from_case(184) }; cx__25append = (obj)c; } + { static obj c[] = { obj_from_case(185) }; cx_list_2Dcopy = (obj)c; } + { static obj c[] = { obj_from_case(187) }; cx__25residual_2Dlist_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(188) }; cx__25residual_2Dlist_2Dtail = (obj)c; } + { static obj c[] = { obj_from_case(189) }; cx__25residual_2Dlist_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(190) }; cx__25residual_2Dlast_2Dpair = (obj)c; } + { static obj c[] = { obj_from_case(191) }; cx__25residual_2Dsymbol_3F = (obj)c; } + { static obj c[] = { obj_from_case(192) }; cx__25residual_2Dmake_2Drecord = (obj)c; } + { static obj c[] = { obj_from_case(193) }; cx__25residual_2Drecord_2Dtype_2Ddescriptor = (obj)c; } + { static obj c[] = { obj_from_case(194) }; cx__25residual_2Drecord_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(195) }; cx__25residual_2Drecord_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(196) }; cx__25residual_2Drecord_2Dset_21 = (obj)c; } + { static obj c[] = { obj_from_case(197) }; cx__25residual_2Dnew_2Drecord_2Dtype = (obj)c; } + { static obj c[] = { obj_from_case(198) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; } + { static obj c[] = { obj_from_case(199) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; } + { static obj c[] = { obj_from_case(200) }; cx_fixnum_2D_3Estring = (obj)c; } + { static obj c[] = { obj_from_case(201) }; cx_flonum_2D_3Estring = (obj)c; } + { static obj c[] = { obj_from_case(202) }; cx_string_2D_3Efixnum = (obj)c; } + { static obj c[] = { obj_from_case(203) }; cx_string_2D_3Eflonum = (obj)c; } + { static obj c[] = { obj_from_case(204) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; } + { static obj c[] = { obj_from_case(205) }; cx_subvector_2D_3Elist = (obj)c; } + { static obj c[] = { obj_from_case(206) }; cx_list_2D_3Evector = (obj)c; } + { static obj c[] = { obj_from_case(207) }; cx_list_2D_3Estring = (obj)c; } + { static obj c[] = { obj_from_case(208) }; cx_substring_2D_3Elist = (obj)c; } + { static obj c[] = { obj_from_case(209) }; cx__25subvector_2Dstring_2Dcopy_21 = (obj)c; } + { static obj c[] = { obj_from_case(210) }; cx_subvector_2D_3Estring = (obj)c; } + { static obj c[] = { obj_from_case(211) }; cx__25substring_2Dvector_2Dcopy_21 = (obj)c; } + { static obj c[] = { obj_from_case(212) }; cx_substring_2D_3Evector = (obj)c; } + { static obj c[] = { obj_from_case(213) }; cx_list_2D_3Ebytevector = (obj)c; } + { static obj c[] = { obj_from_case(214) }; cx_subbytevector_2D_3Elist = (obj)c; } + { static obj c[] = { obj_from_case(215) }; 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(221) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; } - { static obj c[] = { obj_from_case(222) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; } - { static obj c[] = { obj_from_case(223) }; cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda = (obj)c; } - { static obj c[] = { obj_from_case(224) }; cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F = (obj)c; } + { static obj c[] = { obj_from_case(216) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(217) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; } + { static obj c[] = { obj_from_case(218) }; cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda = (obj)c; } + { static obj c[] = { obj_from_case(219) }; cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(225); + *--hp = obj_from_case(220); r[0] = (hendblk(0+1)); hreserve(hbsz(0+1), 1); /* 1 live regs */ - *--hp = obj_from_case(231); + *--hp = obj_from_case(226); r[1] = (hendblk(0+1)); { /* make-case-lambda */ hreserve(hbsz(9+1), 2); /* 2 live regs */ @@ -2583,50 +3391,64 @@ case 0: /* load module */ *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+4); cx_make_2Dparameter = (hendblk(9+1)); } - { static obj c[] = { obj_from_case(235) }; cx_make_2Dpromise = (obj)c; } - { static obj c[] = { obj_from_case(238) }; cx__25residual_2Deof_2Dobject = (obj)c; } - { static obj c[] = { obj_from_case(239) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; } - { static obj c[] = { obj_from_case(240) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; } - { static obj c[] = { obj_from_case(241) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; } - { static obj c[] = { obj_from_case(242) }; cx_close_2Dinput_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(243) }; cx__25residual_2Dinput_2Dport_2Dopen_3F = (obj)c; } + { static obj c[] = { obj_from_case(230) }; cx_promise_3F = (obj)c; } + { static obj c[] = { obj_from_case(231) }; cx_make_2Dpromise = (obj)c; } + { static obj c[] = { obj_from_case(232) }; cx_make_2Dlazy_2Dpromise = (obj)c; } + { static obj c[] = { obj_from_case(233) }; cx_force = (obj)c; } + { static obj c[] = { obj_from_case(235) }; cx__25residual_2Deof_2Dobject = (obj)c; } + { static obj c[] = { obj_from_case(236) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; } + { static obj c[] = { obj_from_case(237) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; } + { static obj c[] = { obj_from_case(238) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; } + { static obj c[] = { obj_from_case(239) }; cx__25residual_2Dport_2Dfold_2Dcase_3F = (obj)c; } + { static obj c[] = { obj_from_case(240) }; cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21 = (obj)c; } + { static obj c[] = { obj_from_case(241) }; cx_close_2Dinput_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(242) }; cx__25residual_2Dinput_2Dport_2Dopen_3F = (obj)c; } cx__2Acurrent_2Dinput_2Dport_2A = (mkiport_file(0, stdin)); - { static obj c[] = { obj_from_case(244) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(245) }; cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(246) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; } - { static obj c[] = { obj_from_case(247) }; cx__25residual_2Dopen_2Dinput_2Dbytevector = (obj)c; } - { static obj c[] = { obj_from_case(248) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; } - { static obj c[] = { obj_from_case(249) }; cx_close_2Doutput_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(250) }; cx__25residual_2Doutput_2Dport_2Dopen_3F = (obj)c; } + { static obj c[] = { obj_from_case(243) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(244) }; cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(245) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; } + { static obj c[] = { obj_from_case(246) }; cx__25residual_2Dopen_2Dinput_2Dbytevector = (obj)c; } + { static obj c[] = { obj_from_case(247) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; } + { static obj c[] = { obj_from_case(248) }; cx_close_2Doutput_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(249) }; cx__25residual_2Doutput_2Dport_2Dopen_3F = (obj)c; } cx__2Acurrent_2Doutput_2Dport_2A = (mkoport_file(0, stdout)); cx__2Acurrent_2Derror_2Dport_2A = (mkoport_file(0, stderr)); - { static obj c[] = { obj_from_case(251) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(252) }; cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(253) }; cx__25residual_2Dopen_2Doutput_2Dstring = (obj)c; } - { static obj c[] = { obj_from_case(254) }; cx__25residual_2Dget_2Doutput_2Dstring = (obj)c; } - { static obj c[] = { obj_from_case(255) }; cx__25residual_2Dopen_2Doutput_2Dbytevector = (obj)c; } - { static obj c[] = { obj_from_case(256) }; cx__25residual_2Dget_2Doutput_2Dbytevector = (obj)c; } - { static obj c[] = { obj_from_case(257) }; cx__25residual_2Dport_3F = (obj)c; } - { static obj c[] = { obj_from_case(258) }; cx_close_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(259) }; cx_call_2Dwith_2Dinput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(261) }; cx_call_2Dwith_2Doutput_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(263) }; cx_with_2Dinput_2Dfrom_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(269) }; cx_with_2Doutput_2Dto_2Dport = (obj)c; } - { static obj c[] = { obj_from_case(275) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(277) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(279) }; cx__25residual_2Dcircular_3F = (obj)c; } - { static obj c[] = { obj_from_case(280) }; cx__25residual_2Deq_3F = (obj)c; } - { static obj c[] = { obj_from_case(281) }; cx__25residual_2Deqv_3F = (obj)c; } - { static obj c[] = { obj_from_case(282) }; cx__25residual_2Dequal_3F = (obj)c; } - { static obj c[] = { obj_from_case(283) }; cx__25residual_2Dmemq = (obj)c; } - { static obj c[] = { obj_from_case(284) }; cx__25residual_2Dmemv = (obj)c; } - { static obj c[] = { obj_from_case(285) }; cx__25residual_2Dmember = (obj)c; } - { static obj c[] = { obj_from_case(286) }; cx__25residual_2Dassq = (obj)c; } - { static obj c[] = { obj_from_case(287) }; cx__25residual_2Dassv = (obj)c; } - { static obj c[] = { obj_from_case(288) }; cx__25residual_2Dassoc = (obj)c; } - { static obj c[] = { obj_from_case(289) }; cx_print_2Derror_2Dmessage = (obj)c; } + { static obj c[] = { obj_from_case(250) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(251) }; cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(252) }; cx__25residual_2Dopen_2Doutput_2Dstring = (obj)c; } + { static obj c[] = { obj_from_case(253) }; cx__25residual_2Dget_2Doutput_2Dstring = (obj)c; } + { static obj c[] = { obj_from_case(254) }; cx__25residual_2Dopen_2Doutput_2Dbytevector = (obj)c; } + { static obj c[] = { obj_from_case(255) }; cx__25residual_2Dget_2Doutput_2Dbytevector = (obj)c; } + { static obj c[] = { obj_from_case(256) }; cx__25residual_2Dport_3F = (obj)c; } + { static obj c[] = { obj_from_case(257) }; cx_close_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(258) }; cx_call_2Dwith_2Dinput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(260) }; cx_call_2Dwith_2Doutput_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(262) }; cx_with_2Dinput_2Dfrom_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(268) }; cx_with_2Doutput_2Dto_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(274) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(276) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(278) }; cx__25read_2Dline = (obj)c; } + { static obj c[] = { obj_from_case(279) }; cx_read_2Dsubstring_21 = (obj)c; } + { static obj c[] = { obj_from_case(280) }; cx_read_2Dsubstring = (obj)c; } + { static obj c[] = { obj_from_case(281) }; cx_write_2Dsubstring = (obj)c; } + { static obj c[] = { obj_from_case(282) }; cx_read_2Dsubbytevector_21 = (obj)c; } + { static obj c[] = { obj_from_case(283) }; cx_read_2Dsubbytevector = (obj)c; } + { static obj c[] = { obj_from_case(284) }; cx_write_2Dsubbytevector = (obj)c; } + { static obj c[] = { obj_from_case(285) }; cx__25residual_2Dcircular_3F = (obj)c; } + { static obj c[] = { obj_from_case(286) }; cx__25residual_2Deq_3F = (obj)c; } + { static obj c[] = { obj_from_case(287) }; cx__25residual_2Deqv_3F = (obj)c; } + { static obj c[] = { obj_from_case(288) }; cx__25residual_2Dequal_3F = (obj)c; } + { static obj c[] = { obj_from_case(289) }; cx__25residual_2Dmemq = (obj)c; } + { static obj c[] = { obj_from_case(290) }; cx__25residual_2Dmemv = (obj)c; } + { static obj c[] = { obj_from_case(291) }; cx__25residual_2Dmeml = (obj)c; } + { static obj c[] = { obj_from_case(292) }; cx__25member = (obj)c; } + { static obj c[] = { obj_from_case(294) }; cx__25residual_2Dassq = (obj)c; } + { static obj c[] = { obj_from_case(295) }; cx__25residual_2Dassv = (obj)c; } + { static obj c[] = { obj_from_case(296) }; cx__25residual_2Dassl = (obj)c; } + { static obj c[] = { obj_from_case(297) }; cx__25assoc = (obj)c; } + { static obj c[] = { obj_from_case(299) }; cx_print_2Derror_2Dmessage = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(291); + *--hp = obj_from_case(301); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -2635,7 +3457,7 @@ case 0: /* load module */ *--hp = obj_from_objptr(appcases+1); cx_simple_2Derror = (hendblk(3)); } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(293); + *--hp = obj_from_case(303); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -2643,34 +3465,33 @@ case 0: /* load module */ *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); cx_assertion_2Dviolation = (hendblk(3)); } - { static obj c[] = { obj_from_case(295) }; cx__25read = (obj)c; } - { static obj c[] = { obj_from_case(360) }; cx__25residual_2Dget_2Ddatum = (obj)c; } - { static obj c[] = { obj_from_case(361) }; cx__25residual_2Dfile_2Dexists_3F = (obj)c; } - { static obj c[] = { obj_from_case(362) }; cx__25residual_2Ddelete_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(363) }; cx__25residual_2Drename_2Dfile = (obj)c; } - { static obj c[] = { obj_from_case(364) }; cx__25residual_2Dcall_2Dwith_2Dvalues = (obj)c; } + { static obj c[] = { obj_from_case(305) }; cx__25read = (obj)c; } + { static obj c[] = { obj_from_case(370) }; cx_file_2Dexists_3F = (obj)c; } + { static obj c[] = { obj_from_case(371) }; cx_delete_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(372) }; cx_rename_2Dfile = (obj)c; } + { static obj c[] = { obj_from_case(373) }; 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(366) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; } - { static obj c[] = { obj_from_case(369) }; cx_dynamic_2Dwind = (obj)c; } - { static obj c[] = { obj_from_case(374) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; } + { static obj c[] = { obj_from_case(375) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; } + { static obj c[] = { obj_from_case(378) }; cx_dynamic_2Dwind = (obj)c; } + { static obj c[] = { obj_from_case(383) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ - *--hp = (cx__231960); + *--hp = (cx__232130); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); cx__3Cerror_2Dobject_3E = (hendblk(3)); } - { static obj c[] = { obj_from_case(376) }; cx_error_2Dobject = (obj)c; } - { static obj c[] = { obj_from_case(377) }; cx_error_2Dobject_3F = (obj)c; } - { static obj c[] = { obj_from_case(378) }; cx_error_2Dobject_2Dkind = (obj)c; } - { static obj c[] = { obj_from_case(379) }; cx_error_2Dobject_2Dmessage = (obj)c; } - { static obj c[] = { obj_from_case(380) }; cx_error_2Dobject_2Dirritants = (obj)c; } + { static obj c[] = { obj_from_case(385) }; cx_error_2Dobject = (obj)c; } + { static obj c[] = { obj_from_case(386) }; cx_error_2Dobject_3F = (obj)c; } + { static obj c[] = { obj_from_case(387) }; cx_error_2Dobject_2Dkind = (obj)c; } + { static obj c[] = { obj_from_case(388) }; cx_error_2Dobject_2Dmessage = (obj)c; } + { static obj c[] = { obj_from_case(389) }; cx_error_2Dobject_2Dirritants = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(381); + *--hp = obj_from_case(390); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ @@ -2679,17 +3500,17 @@ case 0: /* load module */ *--hp = obj_from_objptr(appcases+1); cx_error = (hendblk(3)); } hreserve(hbsz(0+1), 0); /* 0 live regs */ - *--hp = obj_from_case(383); + *--hp = obj_from_case(392); r[0] = (hendblk(0+1)); hreserve(hbsz(1), 1); /* 1 live regs */ *--hp = obj_from_void(0); r[1] = (hendblk(1)); hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(553); + *--hp = obj_from_case(686); r[2] = (hendblk(0+1)); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(554); + *--hp = obj_from_case(687); r[3] = (hendblk(1+1)); { /* make-case-lambda */ hreserve(hbsz(9+1), 4); /* 4 live regs */ @@ -2715,33 +3536,7 @@ case 0: /* load module */ rc = 3; goto jump; -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-void? k x */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* 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((r[1]) == obj_from_void(0)); - r += 2; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 3: /* %residual-boolean? k x */ +case 1: /* %residual-boolean? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -2754,7 +3549,7 @@ case 3: /* %residual-boolean? k x */ rc = 3; goto jump; -case 4: /* %residual-not k x */ +case 2: /* %residual-not k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -2767,6 +3562,32 @@ case 4: /* %residual-not k x */ rc = 3; goto jump; +case 3: /* %residual-void k */ + assert(rc == 2); + r += 1; /* shift reg. wnd */ + /* k */ + r[1+0] = r[0]; + pc = objptr_from_obj(r[1+0])[0]; + r[1+1] = obj_from_ktrap(); + r[1+2] = obj_from_void(0); + r += 1; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 4: /* %residual-void? k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* 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((r[1]) == obj_from_void(0)); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + case 5: /* %residual-fixnum? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ @@ -3748,17 +4569,17 @@ case 77: /* %residual-quotient k x y */ r += 1; /* shift reg. wnd */ /* k x y */ if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11408_x = fixnum_from_obj(r[1]); + { const fixnum_t v14764_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[2]))) { - r[3] = obj_from_fixnum(fxquo((v11408_x), fixnum_from_obj(r[2]))); + r[3] = obj_from_fixnum(fxquo((v14764_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11409_tmp = ((flonum_t)(v11408_x)); - r[3] = obj_from_flonum(3, flquo((v11409_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14765_tmp = ((flonum_t)(v14764_x)); + r[3] = obj_from_flonum(3, flquo((v14765_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11407_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v11407_tmp))); } + { const flonum_t v14763_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v14763_tmp))); } } else { r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), flonum_from_obj(r[2]))); } @@ -3777,17 +4598,17 @@ case 78: /* %residual-remainder k x y */ r += 1; /* shift reg. wnd */ /* k x y */ if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11405_x = fixnum_from_obj(r[1]); + { const fixnum_t v14761_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[2]))) { - r[3] = obj_from_fixnum(fxrem((v11405_x), fixnum_from_obj(r[2]))); + r[3] = obj_from_fixnum(fxrem((v14761_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11406_tmp = ((flonum_t)(v11405_x)); - r[3] = obj_from_flonum(3, flrem((v11406_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14762_tmp = ((flonum_t)(v14761_x)); + r[3] = obj_from_flonum(3, flrem((v14762_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11404_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v11404_tmp))); } + { const flonum_t v14760_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v14760_tmp))); } } else { r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), flonum_from_obj(r[2]))); } @@ -3806,17 +4627,17 @@ case 79: /* %residual-modquo k x y */ r += 1; /* shift reg. wnd */ /* k x y */ if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11402_x = fixnum_from_obj(r[1]); + { const fixnum_t v14758_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[2]))) { - r[3] = obj_from_fixnum(fxmqu((v11402_x), fixnum_from_obj(r[2]))); + r[3] = obj_from_fixnum(fxmqu((v14758_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11403_tmp = ((flonum_t)(v11402_x)); - r[3] = obj_from_flonum(3, flmqu((v11403_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14759_tmp = ((flonum_t)(v14758_x)); + r[3] = obj_from_flonum(3, flmqu((v14759_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11401_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), (v11401_tmp))); } + { const flonum_t v14757_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), (v14757_tmp))); } } else { r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), flonum_from_obj(r[2]))); } @@ -3835,17 +4656,17 @@ case 80: /* %residual-modulo k x y */ r += 1; /* shift reg. wnd */ /* k x y */ if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11399_x = fixnum_from_obj(r[1]); + { const fixnum_t v14755_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[2]))) { - r[3] = obj_from_fixnum(fxmlo((v11399_x), fixnum_from_obj(r[2]))); + r[3] = obj_from_fixnum(fxmlo((v14755_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11400_tmp = ((flonum_t)(v11399_x)); - r[3] = obj_from_flonum(3, flmlo((v11400_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14756_tmp = ((flonum_t)(v14755_x)); + r[3] = obj_from_flonum(3, flmlo((v14756_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11398_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v11398_tmp))); } + { const flonum_t v14754_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v14754_tmp))); } } else { r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), flonum_from_obj(r[2]))); } @@ -3864,17 +4685,17 @@ case 81: /* lcm/2 k x y */ r += 1; /* shift reg. wnd */ gs_lcm_2F2: /* k x y */ if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11390_x = fixnum_from_obj(r[1]); + { const fixnum_t v14746_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[2]))) { - r[3] = obj_from_fixnum(fxgcd((v11390_x), fixnum_from_obj(r[2]))); + r[3] = obj_from_fixnum(fxgcd((v14746_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11391_tmp = ((flonum_t)(v11390_x)); - r[3] = obj_from_flonum(3, flgcd((v11391_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14747_tmp = ((flonum_t)(v14746_x)); + r[3] = obj_from_flonum(3, flgcd((v14747_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11389_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v11389_tmp))); } + { const flonum_t v14745_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v14745_tmp))); } } else { r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[2]))); } @@ -3884,34 +4705,34 @@ gs_lcm_2F2: /* k x y */ } 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 v11393_a = fixnum_from_obj(r[4]); + { const fixnum_t v14749_a = fixnum_from_obj(r[4]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_fixnum(fxquo((v11393_a), fixnum_from_obj(r[3]))); + r[4] = obj_from_fixnum(fxquo((v14749_a), fixnum_from_obj(r[3]))); } else { - { const flonum_t v11394_tmp = ((flonum_t)(v11393_a)); - r[4] = obj_from_flonum(5, flquo((v11394_tmp), flonum_from_obj(r[3]))); } + { const flonum_t v14750_tmp = ((flonum_t)(v14749_a)); + r[4] = obj_from_flonum(5, flquo((v14750_tmp), flonum_from_obj(r[3]))); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11392_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v11392_tmp))); } + { const flonum_t v14748_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v14748_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 v11396_a = fixnum_from_obj(r[4]); + { const fixnum_t v14752_a = fixnum_from_obj(r[4]); if ((is_fixnum_obj(r[5]))) { - r[3] = obj_from_fixnum(fxmul((v11396_a), fixnum_from_obj(r[5]))); + r[3] = obj_from_fixnum(fxmul((v14752_a), fixnum_from_obj(r[5]))); } else { - { const flonum_t v11397_tmp = ((flonum_t)(v11396_a)); - r[3] = obj_from_flonum(6, (v11397_tmp) * flonum_from_obj(r[5])); } + { const flonum_t v14753_tmp = ((flonum_t)(v14752_a)); + r[3] = obj_from_flonum(6, (v14753_tmp) * flonum_from_obj(r[5])); } } } } else { if ((is_fixnum_obj(r[5]))) { - { const flonum_t v11395_tmp = ((flonum_t)fixnum_from_obj(r[5])); - r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v11395_tmp)); } + { const flonum_t v14751_tmp = ((flonum_t)fixnum_from_obj(r[5])); + r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v14751_tmp)); } } else { r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * flonum_from_obj(r[5])); } @@ -4159,16 +4980,16 @@ case 97: /* %residual-square k x */ /* k x */ if ((is_fixnum_obj(r[1]))) { if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11388_x = fixnum_from_obj(r[1]); - r[2] = obj_from_fixnum(fxmul((v11388_x), (v11388_x))); } + { const fixnum_t v14744_x = fixnum_from_obj(r[1]); + r[2] = obj_from_fixnum(fxmul((v14744_x), (v14744_x))); } } else { - { const flonum_t v11387_tmp = ((flonum_t)fixnum_from_obj(r[1])); - r[2] = obj_from_flonum(2, (v11387_tmp) * flonum_from_obj(r[1])); } + { const flonum_t v14743_tmp = ((flonum_t)fixnum_from_obj(r[1])); + r[2] = obj_from_flonum(2, (v14743_tmp) * flonum_from_obj(r[1])); } } } else { if ((is_fixnum_obj(r[1]))) { - { const flonum_t v11386_tmp = ((flonum_t)fixnum_from_obj(r[1])); - r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * (v11386_tmp)); } + { const flonum_t v14742_tmp = ((flonum_t)fixnum_from_obj(r[1])); + r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * (v14742_tmp)); } } else { r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * flonum_from_obj(r[1])); } @@ -4195,137 +5016,7 @@ case 98: /* %residual-char? k x */ rc = 3; goto jump; -case 99: /* %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 100: /* %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 102: /* %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 103: /* %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 104: /* %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 105: /* %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 107: /* %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 108: /* %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 109: /* %residual-char-alphabetic? k x */ +case 99: /* %residual-char-alphabetic? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4338,7 +5029,7 @@ case 109: /* %residual-char-alphabetic? k x */ rc = 3; goto jump; -case 110: /* %residual-char-numeric? k x */ +case 100: /* %residual-char-numeric? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4351,7 +5042,7 @@ case 110: /* %residual-char-numeric? k x */ rc = 3; goto jump; -case 111: /* %residual-char-whitespace? k x */ +case 101: /* %residual-char-whitespace? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4364,7 +5055,7 @@ case 111: /* %residual-char-whitespace? k x */ rc = 3; goto jump; -case 112: /* %residual-char-upper-case? k x */ +case 102: /* %residual-char-upper-case? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4377,7 +5068,7 @@ case 112: /* %residual-char-upper-case? k x */ rc = 3; goto jump; -case 113: /* %residual-char-lower-case? k x */ +case 103: /* %residual-char-lower-case? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4390,7 +5081,7 @@ case 113: /* %residual-char-lower-case? k x */ rc = 3; goto jump; -case 114: /* %residual-char->integer k x */ +case 104: /* %residual-char->integer k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4403,7 +5094,7 @@ case 114: /* %residual-char->integer k x */ rc = 3; goto jump; -case 115: /* %residual-integer->char k x */ +case 105: /* %residual-integer->char k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4416,7 +5107,7 @@ case 115: /* %residual-integer->char k x */ rc = 3; goto jump; -case 116: /* %residual-char-upcase k x */ +case 106: /* %residual-char-upcase k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4429,7 +5120,7 @@ case 116: /* %residual-char-upcase k x */ rc = 3; goto jump; -case 117: /* %residual-char-downcase k x */ +case 107: /* %residual-char-downcase k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4442,7 +5133,20 @@ case 117: /* %residual-char-downcase k x */ rc = 3; goto jump; -case 118: /* %residual-string? k x */ +case 108: /* %residual-digit-value k x */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k x */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs__25residual_2Ddigit_2Dvalue((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 109: /* %residual-string? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4455,7 +5159,7 @@ case 118: /* %residual-string? k x */ rc = 3; goto jump; -case 119: /* %residual-string-length k s */ +case 110: /* %residual-string-length k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -4468,7 +5172,7 @@ case 119: /* %residual-string-length k s */ rc = 3; goto jump; -case 120: /* %residual-string-ref k s k */ +case 111: /* %residual-string-ref k s k */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s k */ @@ -4481,7 +5185,7 @@ case 120: /* %residual-string-ref k s k */ rc = 3; goto jump; -case 121: /* %residual-string-set! k s k c */ +case 112: /* %residual-string-set! k s k c */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k s k c */ @@ -4494,137 +5198,41 @@ case 121: /* %residual-string-set! k s k c */ rc = 3; goto jump; -case 122: /* %residual-string=? k x y */ - assert(rc == 4); +case 113: /* %residual-string-upcase k s */ + assert(rc == 3); r += 1; /* shift reg. wnd */ - /* k x y */ + /* k s */ + { /* string-upcase */ + int *d = dupstring(stringdata((r[1]))); char *s; + for (s = sdatachars(d); *s; ++s) *s = toupper(*s); + r[2] = (hpushstr(2, d)); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); - r[3+2] = obj_from_bool(strcmp(stringchars((r[1])), stringchars((r[2]))) == 0); + r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 123: /* %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 125: /* %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 126: /* %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 127: /* %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 128: /* %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 130: /* %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 131: /* %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 132: /* %residual-substring k s start end */ +case 115: /* %residual-substring k s start end */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k s start end */ @@ -4640,7 +5248,7 @@ case 132: /* %residual-substring k s start end */ rc = 3; goto jump; -case 133: /* %residual-string-append/2 k s1 s2 */ +case 116: /* %residual-%string-append k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s1 s2 */ @@ -4656,7 +5264,7 @@ case 133: /* %residual-string-append/2 k s1 s2 */ rc = 3; goto jump; -case 134: /* %residual-string-copy k s */ +case 117: /* %residual-%string-copy k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -4672,7 +5280,33 @@ case 134: /* %residual-string-copy k s */ rc = 3; goto jump; -case 135: /* %residual-string-fill! k s c */ +case 118: /* substring-copy! k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 119: /* substring-fill! k str c start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k str c start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 120: /* %residual-%string-fill! k s c */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s c */ @@ -4685,7 +5319,7 @@ case 135: /* %residual-string-fill! k s c */ rc = 3; goto jump; -case 136: /* %residual-string-position k c s */ +case 121: /* %residual-string-position k c s */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k c s */ @@ -4701,7 +5335,7 @@ case 136: /* %residual-string-position k c s */ rc = 3; goto jump; -case 137: /* %residual-vector? k o */ +case 122: /* %residual-vector? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4714,7 +5348,26 @@ case 137: /* %residual-vector? k o */ rc = 3; goto jump; -case 138: /* %residual-make-vector k n i */ +case 123: /* %residual-%new-vector k n */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k n */ + { /* new-vector */ + int c = fixnum_from_obj(r[1]); + hreserve(hbsz(c+1), 2); /* 2 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[2] = (hendblk(c+1)); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 124: /* %residual-%make-vector k n i */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n i */ @@ -4734,7 +5387,7 @@ case 138: /* %residual-make-vector k n i */ rc = 3; goto jump; -case 139: /* %residual-vector-length k v */ +case 125: /* %residual-vector-length k v */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k v */ @@ -4747,7 +5400,7 @@ case 139: /* %residual-vector-length k v */ rc = 3; goto jump; -case 140: /* %residual-vector-ref k v i */ +case 126: /* %residual-vector-ref k v i */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k v i */ @@ -4760,7 +5413,7 @@ case 140: /* %residual-vector-ref k v i */ rc = 3; goto jump; -case 141: /* %residual-vector-set! k v i x */ +case 127: /* %residual-vector-set! k v i x */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k v i x */ @@ -4773,20 +5426,54 @@ case 141: /* %residual-vector-set! k v i x */ rc = 3; goto jump; -case 142: /* vector-fill! k v x */ - assert(rc == 4); +case 128: /* subvector-copy! k to at from start end */ + assert(rc == 7); 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 */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 143: /* %residual-byte? k x */ +case 129: /* subvector k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs_subvector: /* k vec start end */ + { /* new-vector */ + int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))); + hreserve(hbsz(c+1), 4); /* 4 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[4] = (hendblk(c+1)); } + (void)(cxs_subvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3]))); + /* r[4] */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 130: /* subvector-fill! k vec x start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k vec x start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 131: /* %residual-byte? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4799,7 +5486,7 @@ case 143: /* %residual-byte? k x */ rc = 3; goto jump; -case 144: /* %residual-bytevector? k x */ +case 132: /* %residual-bytevector? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4812,7 +5499,7 @@ case 144: /* %residual-bytevector? k x */ rc = 3; goto jump; -case 145: /* %residual-bytevector-length k bv */ +case 133: /* %residual-bytevector-length k bv */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k bv */ @@ -4825,7 +5512,7 @@ case 145: /* %residual-bytevector-length k bv */ rc = 3; goto jump; -case 146: /* %residual-bytevector-u8-ref k bv k */ +case 134: /* %residual-bytevector-u8-ref k bv k */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k bv k */ @@ -4838,7 +5525,7 @@ case 146: /* %residual-bytevector-u8-ref k bv k */ rc = 3; goto jump; -case 147: /* %residual-bytevector-u8-set! k bv k b */ +case 135: /* %residual-bytevector-u8-set! k bv k b */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k bv k b */ @@ -4851,7 +5538,7 @@ case 147: /* %residual-bytevector-u8-set! k bv k b */ rc = 3; goto jump; -case 148: /* %residual-bytevector=? k x y */ +case 136: /* %residual-bytevector=? k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ @@ -4864,7 +5551,20 @@ case 148: /* %residual-bytevector=? k x y */ rc = 3; goto jump; -case 149: /* %residual-subbytevector k bv start end */ +case 137: /* subbytevector-copy! k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 138: /* %residual-subbytevector k bv start end */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k bv start end */ @@ -4880,7 +5580,7 @@ case 149: /* %residual-subbytevector k bv start end */ rc = 3; goto jump; -case 150: /* %residual-box? k o */ +case 139: /* %residual-box? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4893,7 +5593,7 @@ case 150: /* %residual-box? k o */ rc = 3; goto jump; -case 151: /* %residual-box k o */ +case 140: /* %residual-box k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4911,7 +5611,7 @@ case 151: /* %residual-box k o */ rc = 3; goto jump; -case 152: /* %residual-unbox k b */ +case 141: /* %residual-unbox k b */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k b */ @@ -4924,7 +5624,7 @@ case 152: /* %residual-unbox k b */ rc = 3; goto jump; -case 153: /* %residual-set-box! k b o */ +case 142: /* %residual-set-box! k b o */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k b o */ @@ -4937,7 +5637,7 @@ case 153: /* %residual-set-box! k b o */ rc = 3; goto jump; -case 154: /* %residual-null? k x */ +case 143: /* %residual-null? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -4950,7 +5650,7 @@ case 154: /* %residual-null? k x */ rc = 3; goto jump; -case 155: /* %residual-pair? k o */ +case 144: /* %residual-pair? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4963,7 +5663,7 @@ case 155: /* %residual-pair? k o */ rc = 3; goto jump; -case 156: /* %residual-atom? k o */ +case 145: /* %residual-atom? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4976,7 +5676,7 @@ case 156: /* %residual-atom? k o */ rc = 3; goto jump; -case 157: /* %residual-list? k o */ +case 146: /* %residual-list? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -4989,7 +5689,7 @@ case 157: /* %residual-list? k o */ rc = 3; goto jump; -case 158: /* %residual-cons k a d */ +case 147: /* %residual-cons k a d */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k a d */ @@ -5008,7 +5708,7 @@ case 158: /* %residual-cons k a d */ rc = 3; goto jump; -case 159: /* %residual-car k p */ +case 148: /* %residual-car k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -5021,7 +5721,7 @@ case 159: /* %residual-car k p */ rc = 3; goto jump; -case 160: /* %residual-set-car! k p a */ +case 149: /* %residual-set-car! k p a */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k p a */ @@ -5034,7 +5734,7 @@ case 160: /* %residual-set-car! k p a */ rc = 3; goto jump; -case 161: /* %residual-cdr k p */ +case 150: /* %residual-cdr k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -5047,7 +5747,7 @@ case 161: /* %residual-cdr k p */ rc = 3; goto jump; -case 162: /* %residual-set-cdr! k p d */ +case 151: /* %residual-set-cdr! k p d */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k p d */ @@ -5060,7 +5760,7 @@ case 162: /* %residual-set-cdr! k p d */ rc = 3; goto jump; -case 163: /* %residual-caar k x */ +case 152: /* %residual-caar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5075,7 +5775,7 @@ case 163: /* %residual-caar k x */ rc = 3; goto jump; -case 164: /* %residual-cadr k x */ +case 153: /* %residual-cadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5090,7 +5790,7 @@ case 164: /* %residual-cadr k x */ rc = 3; goto jump; -case 165: /* %residual-cdar k x */ +case 154: /* %residual-cdar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5105,7 +5805,7 @@ case 165: /* %residual-cdar k x */ rc = 3; goto jump; -case 166: /* %residual-cddr k x */ +case 155: /* %residual-cddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5120,7 +5820,7 @@ case 166: /* %residual-cddr k x */ rc = 3; goto jump; -case 167: /* %residual-caaar k x */ +case 156: /* %residual-caaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5136,7 +5836,7 @@ case 167: /* %residual-caaar k x */ rc = 3; goto jump; -case 168: /* %residual-caadr k x */ +case 157: /* %residual-caadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5152,7 +5852,7 @@ case 168: /* %residual-caadr k x */ rc = 3; goto jump; -case 169: /* %residual-cadar k x */ +case 158: /* %residual-cadar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5168,7 +5868,7 @@ case 169: /* %residual-cadar k x */ rc = 3; goto jump; -case 170: /* %residual-caddr k x */ +case 159: /* %residual-caddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5184,7 +5884,7 @@ case 170: /* %residual-caddr k x */ rc = 3; goto jump; -case 171: /* %residual-cdaar k x */ +case 160: /* %residual-cdaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5200,7 +5900,7 @@ case 171: /* %residual-cdaar k x */ rc = 3; goto jump; -case 172: /* %residual-cdadr k x */ +case 161: /* %residual-cdadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5216,7 +5916,7 @@ case 172: /* %residual-cdadr k x */ rc = 3; goto jump; -case 173: /* %residual-cddar k x */ +case 162: /* %residual-cddar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5232,7 +5932,7 @@ case 173: /* %residual-cddar k x */ rc = 3; goto jump; -case 174: /* %residual-cdddr k x */ +case 163: /* %residual-cdddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5248,7 +5948,7 @@ case 174: /* %residual-cdddr k x */ rc = 3; goto jump; -case 175: /* %residual-caaaar k x */ +case 164: /* %residual-caaaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5265,7 +5965,7 @@ case 175: /* %residual-caaaar k x */ rc = 3; goto jump; -case 176: /* %residual-caaadr k x */ +case 165: /* %residual-caaadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5282,7 +5982,7 @@ case 176: /* %residual-caaadr k x */ rc = 3; goto jump; -case 177: /* %residual-caadar k x */ +case 166: /* %residual-caadar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5299,7 +5999,7 @@ case 177: /* %residual-caadar k x */ rc = 3; goto jump; -case 178: /* %residual-caaddr k x */ +case 167: /* %residual-caaddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5316,7 +6016,7 @@ case 178: /* %residual-caaddr k x */ rc = 3; goto jump; -case 179: /* %residual-cadaar k x */ +case 168: /* %residual-cadaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5333,7 +6033,7 @@ case 179: /* %residual-cadaar k x */ rc = 3; goto jump; -case 180: /* %residual-cadadr k x */ +case 169: /* %residual-cadadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5350,7 +6050,7 @@ case 180: /* %residual-cadadr k x */ rc = 3; goto jump; -case 181: /* %residual-caddar k x */ +case 170: /* %residual-caddar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5367,7 +6067,7 @@ case 181: /* %residual-caddar k x */ rc = 3; goto jump; -case 182: /* %residual-cadddr k x */ +case 171: /* %residual-cadddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5384,7 +6084,7 @@ case 182: /* %residual-cadddr k x */ rc = 3; goto jump; -case 183: /* %residual-cdaaar k x */ +case 172: /* %residual-cdaaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5401,7 +6101,7 @@ case 183: /* %residual-cdaaar k x */ rc = 3; goto jump; -case 184: /* %residual-cdaadr k x */ +case 173: /* %residual-cdaadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5418,7 +6118,7 @@ case 184: /* %residual-cdaadr k x */ rc = 3; goto jump; -case 185: /* %residual-cdadar k x */ +case 174: /* %residual-cdadar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5435,7 +6135,7 @@ case 185: /* %residual-cdadar k x */ rc = 3; goto jump; -case 186: /* %residual-cdaddr k x */ +case 175: /* %residual-cdaddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5452,7 +6152,7 @@ case 186: /* %residual-cdaddr k x */ rc = 3; goto jump; -case 187: /* %residual-cddaar k x */ +case 176: /* %residual-cddaar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5469,7 +6169,7 @@ case 187: /* %residual-cddaar k x */ rc = 3; goto jump; -case 188: /* %residual-cddadr k x */ +case 177: /* %residual-cddadr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5486,7 +6186,7 @@ case 188: /* %residual-cddadr k x */ rc = 3; goto jump; -case 189: /* %residual-cdddar k x */ +case 178: /* %residual-cdddar k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5503,7 +6203,7 @@ case 189: /* %residual-cdddar k x */ rc = 3; goto jump; -case 190: /* %residual-cddddr k x */ +case 179: /* %residual-cddddr k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5520,7 +6220,54 @@ case 190: /* %residual-cddddr k x */ rc = 3; goto jump; -case 191: /* %residual-length k l */ +case 180: /* %make-list k n i */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs__25make_2Dlist: /* k n i */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = (mknull()); + r[3+3] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop; + +s_loop: /* k n l i */ + if ((is_fixnum_obj(r[1]))) { + r[4] = obj_from_bool(fixnum_from_obj(r[1]) <= (+0)); + } else { + { const flonum_t v14741_tmp = ((flonum_t)(+0)); + r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v14741_tmp)); } + } + if (bool_from_obj(r[4])) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + /* r[2] */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + if ((is_fixnum_obj(r[1]))) { + r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+1))); + } else { + { const flonum_t v14740_tmp = ((flonum_t)(+1)); + r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v14740_tmp)); } + } + { /* cons */ + hreserve(hbsz(3), 5); /* 5 live regs */ + *--hp = r[2]; + *--hp = r[3]; + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + /* r[0] */ + r[1] = r[4]; + r[2] = r[5]; + /* r[3] */ + goto s_loop; + } + +case 181: /* %residual-length k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ @@ -5537,17 +6284,17 @@ case 191: /* %residual-length k l */ rc = 3; goto jump; -case 192: /* %residual-reverse k l */ +case 182: /* %residual-reverse k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11385_tmp; + { fixnum_t v14739_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11385_tmp = (n); } + v14739_tmp = (n); } { /* reverse */ - obj l, o = mknull(); int c = (v11385_tmp); + obj l, o = mknull(); int c = (v14739_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); @@ -5562,7 +6309,7 @@ case 192: /* %residual-reverse k l */ rc = 3; goto jump; -case 193: /* %residual-reverse! k l */ +case 183: /* %residual-reverse! k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ @@ -5579,17 +6326,17 @@ case 193: /* %residual-reverse! k l */ rc = 3; goto jump; -case 194: /* %residual-append/2 k l o */ +case 184: /* %append k l o */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k l o */ - { fixnum_t v11384_tmp; + { fixnum_t v14738_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11384_tmp = (n); } + v14738_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v11384_tmp); + obj t, l, o, *p, *d; int c = (v14738_tmp); hreserve(hbsz(3)*c, 3); /* 3 live regs */ l = r[1]; t = r[2]; /* gc-safe */ o = t; p = &o; @@ -5607,35 +6354,53 @@ case 194: /* %residual-append/2 k l o */ rc = 3; goto jump; -case 195: /* %residual-list-copy k l */ +case 185: /* list-copy k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ - /* k l */ - { fixnum_t v11383_tmp; - { /* length */ - int n; obj l = r[1]; - for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11383_tmp = (n); } - { /* append */ - obj t, l, o, *p, *d; int c = (v11383_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); +gs_list_2Dcopy: /* k obj */ + if ((ispair((r[1])))) { + hreserve(hbsz(2+1), 2); /* 2 live regs */ + *--hp = r[1]; + *--hp = r[0]; + *--hp = obj_from_case(186); + r[2] = (hendblk(2+1)); + r[0] = r[2]; + r[1] = (cdr((r[1]))); + goto gs_list_2Dcopy; + } else { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = r[1]; + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 186: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r k obj */ + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); - *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 */ + 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 196: /* %residual-list-ref k l n */ +case 187: /* %residual-list-ref k l n */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k l n */ @@ -5652,7 +6417,7 @@ case 196: /* %residual-list-ref k l n */ rc = 3; goto jump; -case 197: /* %residual-list-tail k l n */ +case 188: /* %residual-list-tail k l n */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k l n */ @@ -5669,7 +6434,24 @@ case 197: /* %residual-list-tail k l n */ rc = 3; goto jump; -case 198: /* %residual-last-pair k l */ +case 189: /* %residual-list-set! k l n obj */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k l n obj */ + { /* list-tail */ + obj l = (cx__25residual_2Dlist); int c = fixnum_from_obj(r[2]); + while (c-- > 0) l = cdr(l); + r[4] = (l); } + r[4] = obj_from_void(car((r[4])) = (r[3])); + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[4]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 190: /* %residual-last-pair k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ @@ -5686,7 +6468,7 @@ case 198: /* %residual-last-pair k l */ rc = 3; goto jump; -case 199: /* %residual-symbol? k x */ +case 191: /* %residual-symbol? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5699,30 +6481,16 @@ case 199: /* %residual-symbol? k x */ rc = 3; goto jump; -case 200: /* %residual-symbol=? k x y */ - assert(rc == 4); - r += 1; /* shift reg. wnd */ - /* k x y */ - r[3+0] = r[0]; - pc = objptr_from_obj(r[3+0])[0]; - r[3+1] = obj_from_ktrap(); - r[3+2] = obj_from_bool(getsymbol((r[1])) == getsymbol((r[2]))); - r += 3; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - rc = 3; - goto jump; - -case 201: /* %residual-make-record k rtd n */ +case 192: /* %residual-make-record k rtd n */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k rtd n */ { /* make-record */ - int i = 0, c = fixnum_from_obj(r[2]); - hreserve(hbsz(c+2), 3); /* 3 live regs */ - while (i++ < c) *--hp = obj_from_bool(0); - *--hp = r[1]; /* gc-safe */ - *--hp = obj_from_size(RECORD_BTAG); - r[3] = (hendblk(c+2)); } + int c = fixnum_from_obj(r[2]); + hreserve(hbsz(c+1), 3); /* 3 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = r[1]; assert(isobjptr(*hp)); + r[3] = (hendblk(c+1)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); @@ -5732,7 +6500,7 @@ case 201: /* %residual-make-record k rtd n */ rc = 3; goto jump; -case 202: /* %residual-record-type-descriptor k r */ +case 193: /* %residual-record-type-descriptor k r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k r */ @@ -5745,7 +6513,7 @@ case 202: /* %residual-record-type-descriptor k r */ rc = 3; goto jump; -case 203: /* %residual-record-length k r */ +case 194: /* %residual-record-length k r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k r */ @@ -5758,7 +6526,7 @@ case 203: /* %residual-record-length k r */ rc = 3; goto jump; -case 204: /* %residual-record-ref k r i */ +case 195: /* %residual-record-ref k r i */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k r i */ @@ -5771,7 +6539,7 @@ case 204: /* %residual-record-ref k r i */ rc = 3; goto jump; -case 205: /* %residual-record-set! k r i x */ +case 196: /* %residual-record-set! k r i x */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k r i x */ @@ -5784,7 +6552,7 @@ case 205: /* %residual-record-set! k r i x */ rc = 3; goto jump; -case 206: /* %residual-new-record-type k name fields */ +case 197: /* %residual-new-record-type k name fields */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k name fields */ @@ -5803,7 +6571,7 @@ case 206: /* %residual-new-record-type k name fields */ rc = 3; goto jump; -case 207: /* %residual-symbol->string k s */ +case 198: /* %residual-symbol->string k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -5817,7 +6585,7 @@ case 207: /* %residual-symbol->string k s */ rc = 3; goto jump; -case 208: /* %residual-string->symbol k s */ +case 199: /* %residual-string->symbol k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -5830,7 +6598,7 @@ case 208: /* %residual-string->symbol k s */ rc = 3; goto jump; -case 209: /* fixnum->string k n r */ +case 200: /* fixnum->string k n r */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n r */ @@ -5854,7 +6622,7 @@ case 209: /* fixnum->string k n r */ rc = 3; goto jump; -case 210: /* flonum->string k x */ +case 201: /* flonum->string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -5874,7 +6642,7 @@ case 210: /* flonum->string k x */ rc = 3; goto jump; -case 211: /* string->fixnum k s r */ +case 202: /* string->fixnum k s r */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s r */ @@ -5897,7 +6665,7 @@ case 211: /* string->fixnum k s r */ rc = 3; goto jump; -case 212: /* string->flonum k s */ +case 203: /* string->flonum k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -5905,7 +6673,7 @@ case 212: /* string->flonum k s */ char *e = "", *s = stringchars((r[1])); double d; errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e); else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); - else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL; + else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL; else d = strtod(s, &e); if (errno || e == s || *e) r[2] = obj_from_bool(0); else r[2] = obj_from_flonum(2, d); } @@ -5918,7 +6686,7 @@ case 212: /* string->flonum k s */ rc = 3; goto jump; -case 213: /* %residual-string->fixnum-or-flonum k s r */ +case 204: /* %residual-string->fixnum-or-flonum k s r */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s r */ @@ -5940,37 +6708,56 @@ case 213: /* %residual-string->fixnum-or-flonum k s r */ rc = 3; goto jump; -case 214: /* %residual-vector->list k v */ - assert(rc == 3); +case 205: /* subvector->list k vec start end */ + assert(rc == 5); 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 */ +gs_subvector_2D_3Elist: /* k vec start end */ + r[4+0] = r[0]; + r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1))); + r[4+2] = (mknull()); + r[4+3] = r[1]; + r[4+4] = r[2]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v13242; + +s_loop_v13242: /* k i l vec start */ + { const fixnum_t v14737_i = fixnum_from_obj(r[1]); + if (((v14737_i) < fixnum_from_obj(r[4]))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; + } else { + r[5] = (vectorref((r[3]), (v14737_i))); + { /* cons */ + hreserve(hbsz(3), 6); /* 6 live regs */ + *--hp = r[2]; + *--hp = r[5]; + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + /* r[0] */ + r[1] = obj_from_fixnum(fxsub((v14737_i), (+1))); + r[2] = r[5]; + /* r[3] */ + /* r[4] */ + goto s_loop_v13242; + } } -case 215: /* %residual-list->vector k l */ +case 206: /* list->vector k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11382_tmp; + { fixnum_t v14736_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11382_tmp = (n); } + v14736_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v11382_tmp); + obj l; int i, c = (v14736_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); @@ -5985,17 +6772,17 @@ case 215: /* %residual-list->vector k l */ rc = 3; goto jump; -case 216: /* %residual-list->string k l */ +case 207: /* list->string k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11381_tmp; + { fixnum_t v14735_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11381_tmp = (n); } + v14735_tmp = (n); } { /* list->string */ - int i, c = (v11381_tmp); + int i, c = (v14735_tmp); obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -6010,39 +6797,118 @@ case 216: /* %residual-list->string k l */ rc = 3; goto jump; -case 217: /* %residual-string->list k s */ - assert(rc == 3); +case 208: /* substring->list k str start end */ + assert(rc == 5); 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 */ +gs_substring_2D_3Elist: /* k str start end */ + r[4+0] = r[0]; + r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1))); + r[4+2] = (mknull()); + r[4+3] = r[1]; + r[4+4] = r[2]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v13213; + +s_loop_v13213: /* k i l str start */ + { const fixnum_t v14734_i = fixnum_from_obj(r[1]); + if (((v14734_i) < fixnum_from_obj(r[4]))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + /* r[2] */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[5] = obj_from_char(*(unsigned char*)stringref((r[3]), (v14734_i))); + { /* cons */ + hreserve(hbsz(3), 6); /* 6 live regs */ + *--hp = r[2]; + *--hp = r[5]; + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + /* r[0] */ + r[1] = obj_from_fixnum(fxsub((v14734_i), (+1))); + r[2] = r[5]; + /* r[3] */ + /* r[4] */ + goto s_loop_v13213; + } } + +case 209: /* %subvector-string-copy! k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs__25subvector_2Dstring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; -case 218: /* %residual-list->bytevector k l */ +case 210: /* subvector->string k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs_subvector_2D_3Estring: /* k vec start end */ + r[4] = (hpushstr(4, allocstring((fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))), '?'))); + r[4] = (cxs__25subvector_2Dstring_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3]))); + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 211: /* %substring-vector-copy! k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs__25substring_2Dvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 212: /* substring->vector k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str start end */ + { /* new-vector */ + int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))); + hreserve(hbsz(c+1), 4); /* 4 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[4] = (hendblk(c+1)); } + r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3]))); + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 213: /* list->bytevector k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11380_tmp; + { fixnum_t v14733_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11380_tmp = (n); } + v14733_tmp = (n); } { /* list->bytevector */ - int i, c = (v11380_tmp); - obj o = hpushu8v(2, allocbytevector(c, 0)); /* 2 live regs */ + int i, c = (v14733_tmp); + obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = bytevectorbytes(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l)); @@ -6056,28 +6922,46 @@ case 218: /* %residual-list->bytevector k l */ rc = 3; goto jump; -case 219: /* %residual-bytevector->list k bv */ - assert(rc == 3); +case 214: /* subbytevector->list k vec start end */ + assert(rc == 5); r += 1; /* shift reg. wnd */ - /* k bv */ - { /* bytevector->list */ - int c = (bytevectorlen((r[1]))); - unsigned char *s; obj l = mknull(); - hreserve(hbsz(3)*c, 2); /* 2 live regs */ - s = bytevectorbytes((r[1])); /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = obj_from_fixnum(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 */ +gs_subbytevector_2D_3Elist: /* k vec start end */ + r[4+0] = r[0]; + r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1))); + r[4+2] = (mknull()); + r[4+3] = r[1]; + r[4+4] = r[2]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v13142; + +s_loop_v13142: /* k i l vec start */ + { const fixnum_t v14732_i = fixnum_from_obj(r[1]); + if (((v14732_i) < fixnum_from_obj(r[4]))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; + } else { + r[5] = obj_from_fixnum(*bytevectorref((r[3]), (v14732_i))); + { /* cons */ + hreserve(hbsz(3), 6); /* 6 live regs */ + *--hp = r[2]; + *--hp = r[5]; + *--hp = obj_from_size(PAIR_BTAG); + r[5] = (hendblk(3)); } + /* r[0] */ + r[1] = obj_from_fixnum(fxsub((v14732_i), (+1))); + r[2] = r[5]; + /* r[3] */ + /* r[4] */ + goto s_loop_v13142; + } } -case 220: /* %residual-procedure? k o */ +case 215: /* %residual-procedure? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ @@ -6090,7 +6974,7 @@ case 220: /* %residual-procedure? k o */ rc = 3; goto jump; -case 221: /* %residual-make-improper-lambda k n lam */ +case 216: /* %residual-make-improper-lambda k n lam */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n lam */ @@ -6109,7 +6993,7 @@ case 221: /* %residual-make-improper-lambda k n lam */ rc = 3; goto jump; -case 222: /* %residual-make-void-continuation k k */ +case 217: /* %residual-make-void-continuation k k */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k k */ @@ -6127,7 +7011,7 @@ case 222: /* %residual-make-void-continuation k k */ rc = 3; goto jump; -case 223: /* %residual-make-argc-dispatch-lambda k pv */ +case 218: /* %residual-make-argc-dispatch-lambda k pv */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k pv */ @@ -6145,7 +7029,7 @@ case 223: /* %residual-make-argc-dispatch-lambda k pv */ rc = 3; goto jump; -case 224: /* %residual-argc-dispatch-lambda? k x */ +case 219: /* %residual-argc-dispatch-lambda? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -6161,14 +7045,14 @@ case 224: /* %residual-argc-dispatch-lambda? k x */ rc = 3; goto jump; -case 225: /* clo k init converter */ +case 220: /* clo k init converter */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k init converter */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; - *--hp = obj_from_case(226); + *--hp = obj_from_case(221); r[3] = (hendblk(2+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -6179,7 +7063,7 @@ case 225: /* clo k init converter */ rc = 3; goto jump; -case 226: /* clo ek r */ +case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6192,16 +7076,16 @@ case 226: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(227); + *--hp = obj_from_case(222); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(228); + *--hp = obj_from_case(223); r[6] = (hendblk(2+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[4]; - *--hp = obj_from_case(230); + *--hp = obj_from_case(225); r[7] = (hendblk(1+1)); { /* make-case-lambda */ hreserve(hbsz(12+1), 8); /* 8 live regs */ @@ -6228,7 +7112,7 @@ case 226: /* clo ek r */ rc = 3; goto jump; -case 227: /* clo k x s */ +case 222: /* clo k x s */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -6255,7 +7139,7 @@ case 227: /* clo k x s */ goto jump; } -case 228: /* clo k x */ +case 223: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6265,7 +7149,7 @@ case 228: /* clo k x */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(229); + *--hp = obj_from_case(224); r[4] = (hendblk(2+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; @@ -6276,7 +7160,7 @@ case 228: /* clo k x */ rc = 3; goto jump; -case 229: /* clo ek r */ +case 224: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6292,7 +7176,7 @@ case 229: /* clo ek r */ rc = 3; goto jump; -case 230: /* clo k */ +case 225: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -6307,7 +7191,7 @@ case 230: /* clo k */ rc = 3; goto jump; -case 231: /* clo k value */ +case 226: /* clo k value */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k value */ @@ -6316,15 +7200,15 @@ case 231: /* clo k value */ r[2] = (hendblk(1)); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(232); + *--hp = obj_from_case(227); r[3] = (hendblk(1+1)); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; - *--hp = obj_from_case(233); + *--hp = obj_from_case(228); r[4] = (hendblk(1+1)); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[2]; - *--hp = obj_from_case(234); + *--hp = obj_from_case(229); r[5] = (hendblk(1+1)); { /* make-case-lambda */ hreserve(hbsz(12+1), 6); /* 6 live regs */ @@ -6351,7 +7235,7 @@ case 231: /* clo k value */ rc = 3; goto jump; -case 232: /* clo k x s */ +case 227: /* clo k x s */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -6366,7 +7250,7 @@ case 232: /* clo k x s */ rc = 3; goto jump; -case 233: /* clo k x */ +case 228: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -6381,7 +7265,7 @@ case 233: /* clo k x */ rc = 3; goto jump; -case 234: /* clo k */ +case 229: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -6396,22 +7280,34 @@ case 234: /* clo k */ rc = 3; goto jump; -case 235: /* make-promise k proc */ +case 230: /* promise? k o */ 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]; + /* 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 231: /* make-promise k o */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k o */ + { /* cons */ + hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; - *--hp = obj_from_case(236); - r[2] = (hendblk(3+1)); + *--hp = obj_from_bool(1); + *--hp = obj_from_size(PAIR_BTAG); + r[2] = (hendblk(3)); } + { /* box */ + hreserve(hbsz(2), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_size(BOX_BTAG); + r[2] = (hendblk(2)); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); @@ -6421,63 +7317,82 @@ case 235: /* make-promise k proc */ rc = 3; goto jump; -case 236: /* 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]; } +case 232: /* make-lazy-promise k o */ + assert(rc == 3); r += 1; /* shift reg. wnd */ - /* k proc result result-ready? */ - if (bool_from_obj(objptr_from_obj(r[3])[0])) { + /* k o */ + { /* cons */ + hreserve(hbsz(3), 2); /* 2 live regs */ + *--hp = r[1]; + *--hp = obj_from_bool(0); + *--hp = obj_from_size(PAIR_BTAG); + r[2] = (hendblk(3)); } + { /* box */ + hreserve(hbsz(2), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_size(BOX_BTAG); + r[2] = (hendblk(2)); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 233: /* force k p */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ +gs_force: /* k p */ + r[2] = (boxref((r[1]))); + if (bool_from_obj(car((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); - r[2] = (objptr_from_obj(r[2])[0]); + r[2] = (cdr((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { - hreserve(hbsz(3+1), 4); /* 4 live regs */ - *--hp = r[3]; - *--hp = r[2]; + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(237); - 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 */ + *--hp = obj_from_case(234); + r[3] = (hendblk(2+1)); + r[4+0] = (cdr((r[2]))); + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = r[3]; + r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } -case 237: /* clo ek r */ +case 234: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; - r[1+3] = p[2]; - r[1+4] = p[3]; } + r[1+3] = p[2]; } 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]); + /* ek r k p */ + r[4] = (boxref((r[3]))); + if (bool_from_obj(car((r[4])))) { + (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { - (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[5] = (boxref((r[1]))); + r[5] = (car((r[5]))); + (void)(car((r[4])) = (r[5])); + r[5] = (boxref((r[1]))); + r[5] = (cdr((r[5]))); + (void)(cdr((r[4])) = (r[5])); + (void)(boxref((r[1])) = (r[4])); } - r[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; + r[0] = r[2]; + r[1] = r[3]; + goto gs_force; -case 238: /* %residual-eof-object k */ +case 235: /* %residual-eof-object k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -6490,7 +7405,7 @@ case 238: /* %residual-eof-object k */ rc = 3; goto jump; -case 239: /* %residual-eof-object? k x */ +case 236: /* %residual-eof-object? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -6503,7 +7418,7 @@ case 239: /* %residual-eof-object? k x */ rc = 3; goto jump; -case 240: /* %residual-open-file* k fn mode */ +case 237: /* %residual-open-file* k fn mode */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k fn mode */ @@ -6517,7 +7432,7 @@ case 240: /* %residual-open-file* k fn mode */ rc = 3; goto jump; -case 241: /* %residual-input-port? k x */ +case 238: /* %residual-input-port? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -6530,7 +7445,33 @@ case 241: /* %residual-input-port? k x */ rc = 3; goto jump; -case 242: /* close-input-port k p */ +case 239: /* %residual-port-fold-case? k ip */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k ip */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(((void)ckiportvt((r[1])), 0)); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 240: /* %residual-set-port-fold-case! k ip b */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k ip b */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = obj_from_void(ckiportvt((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 241: /* close-input-port k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6548,7 +7489,7 @@ case 242: /* close-input-port k p */ rc = 3; goto jump; -case 243: /* %residual-input-port-open? k p */ +case 242: /* %residual-input-port-open? k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6561,11 +7502,11 @@ case 243: /* %residual-input-port-open? k p */ rc = 3; goto jump; -case 244: /* %residual-open-input-file k fn */ +case 243: /* %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__23890)))); + r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231117)))); if (bool_from_obj(r[2])) { r[3] = (mkiport_file(3, (void*)((r[2])))); /* r[0] */ @@ -6579,7 +7520,7 @@ case 244: /* %residual-open-input-file k fn */ r[3+0] = (cx_file_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__23894); + r[3+2] = (cx__231121); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6587,11 +7528,11 @@ case 244: /* %residual-open-input-file k fn */ goto jump; } -case 245: /* %residual-open-binary-input-file k fn */ +case 244: /* %residual-open-binary-input-file k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k fn */ - r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23898)))); + r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231125)))); if (bool_from_obj(r[2])) { r[3] = (mkiport_file(3, (void*)((r[2])))); /* r[0] */ @@ -6605,7 +7546,7 @@ case 245: /* %residual-open-binary-input-file k fn */ r[3+0] = (cx_file_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__23902); + r[3+2] = (cx__231129); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6613,7 +7554,7 @@ case 245: /* %residual-open-binary-input-file k fn */ goto jump; } -case 246: /* %residual-open-input-string k s */ +case 245: /* %residual-open-input-string k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -6629,7 +7570,7 @@ case 246: /* %residual-open-input-string k s */ rc = 3; goto jump; -case 247: /* %residual-open-input-bytevector k s */ +case 246: /* %residual-open-input-bytevector k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -6646,7 +7587,7 @@ case 247: /* %residual-open-input-bytevector k s */ rc = 3; goto jump; -case 248: /* %residual-output-port? k x */ +case 247: /* %residual-output-port? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -6659,7 +7600,7 @@ case 248: /* %residual-output-port? k x */ rc = 3; goto jump; -case 249: /* close-output-port k p */ +case 248: /* close-output-port k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6677,7 +7618,7 @@ case 249: /* close-output-port k p */ rc = 3; goto jump; -case 250: /* %residual-output-port-open? k p */ +case 249: /* %residual-output-port-open? k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6690,11 +7631,11 @@ case 250: /* %residual-output-port-open? k p */ rc = 3; goto jump; -case 251: /* %residual-open-output-file k fn */ +case 250: /* %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__23917)))); + r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231144)))); if (bool_from_obj(r[2])) { r[3] = (mkoport_file(3, (void*)((r[2])))); /* r[0] */ @@ -6708,7 +7649,7 @@ case 251: /* %residual-open-output-file k fn */ r[3+0] = (cx_file_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__23921); + r[3+2] = (cx__231148); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6716,11 +7657,11 @@ case 251: /* %residual-open-output-file k fn */ goto jump; } -case 252: /* %residual-open-binary-output-file k fn */ +case 251: /* %residual-open-binary-output-file k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k fn */ - r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23924)))); + r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231151)))); if (bool_from_obj(r[2])) { r[3] = (mkoport_file(3, (void*)((r[2])))); /* r[0] */ @@ -6734,7 +7675,7 @@ case 252: /* %residual-open-binary-output-file k fn */ r[3+0] = (cx_file_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__23928); + r[3+2] = (cx__231155); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6742,7 +7683,7 @@ case 252: /* %residual-open-binary-output-file k fn */ goto jump; } -case 253: /* %residual-open-output-string k */ +case 252: /* %residual-open-output-string k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -6757,7 +7698,7 @@ case 253: /* %residual-open-output-string k */ rc = 3; goto jump; -case 254: /* %residual-get-output-string k p */ +case 253: /* %residual-get-output-string k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6765,7 +7706,7 @@ case 254: /* %residual-get-output-string k p */ obj o = r[1]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[2] = (mkeof()); - else { cbuf_t *pcb = oportdata(o); + else { cbuf_t *pcb = oportdata(o); r[2] = (hpushstr(2, newstring(cbdata(pcb)))); } } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -6776,7 +7717,7 @@ case 254: /* %residual-get-output-string k p */ rc = 3; goto jump; -case 255: /* %residual-open-output-bytevector k */ +case 254: /* %residual-open-output-bytevector k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -6791,7 +7732,7 @@ case 255: /* %residual-open-output-bytevector k */ rc = 3; goto jump; -case 256: /* %residual-get-output-bytevector k p */ +case 255: /* %residual-get-output-bytevector k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6810,7 +7751,7 @@ case 256: /* %residual-get-output-bytevector k p */ rc = 3; goto jump; -case 257: /* %residual-port? k x */ +case 256: /* %residual-port? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -6823,7 +7764,7 @@ case 257: /* %residual-port? k x */ rc = 3; goto jump; -case 258: /* close-port k p */ +case 257: /* close-port k p */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k p */ @@ -6836,11 +7777,11 @@ case 258: /* close-port k p */ rc = 3; goto jump; -case 259: /* call-with-input-file k fname proc */ +case 258: /* call-with-input-file k fname proc */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_call_2Dwith_2Dinput_2Dfile: /* k fname proc */ - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23890)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231117)))); if (bool_from_obj(r[3])) { r[4] = (mkiport_file(4, (void*)((r[3])))); /* r[0] */ @@ -6851,12 +7792,12 @@ gs_call_2Dwith_2Dinput_2Dfile: /* k fname proc */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(260); + *--hp = obj_from_case(259); r[4] = (hendblk(2+1)); r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__23894); + r[5+2] = (cx__231121); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6864,7 +7805,7 @@ gs_call_2Dwith_2Dinput_2Dfile: /* k fname proc */ goto jump; } -case 260: /* clo ek r */ +case 259: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6876,11 +7817,11 @@ case 260: /* clo ek r */ /* r[2] */ goto gs_call_2Dwith_2Dport; -case 261: /* call-with-output-file k fname proc */ +case 260: /* call-with-output-file k fname proc */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_call_2Dwith_2Doutput_2Dfile: /* k fname proc */ - r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__23917)))); + r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231144)))); if (bool_from_obj(r[3])) { r[4] = (mkoport_file(4, (void*)((r[3])))); /* r[0] */ @@ -6891,12 +7832,12 @@ gs_call_2Dwith_2Doutput_2Dfile: /* k fname proc */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(262); + *--hp = obj_from_case(261); r[4] = (hendblk(2+1)); r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__23921); + r[5+2] = (cx__231148); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -6904,7 +7845,7 @@ gs_call_2Dwith_2Doutput_2Dfile: /* k fname proc */ goto jump; } -case 262: /* clo ek r */ +case 261: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6916,14 +7857,14 @@ case 262: /* clo ek r */ /* r[2] */ goto gs_call_2Dwith_2Dport; -case 263: /* with-input-from-port k port thunk */ +case 262: /* with-input-from-port k port thunk */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_with_2Dinput_2Dfrom_2Dport: /* k port thunk */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(264); + *--hp = obj_from_case(263); r[3] = (hendblk(2+1)); r[4+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport); pc = objptr_from_obj(r[4+0])[0]; @@ -6935,7 +7876,7 @@ gs_with_2Dinput_2Dfrom_2Dport: /* k port thunk */ rc = 4; goto jump; -case 264: /* clo ek r */ +case 263: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6946,7 +7887,7 @@ case 264: /* clo ek r */ *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(265); + *--hp = obj_from_case(264); r[4] = (hendblk(3+1)); r[0] = (cx__25residual_2Dcurrent_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; @@ -6955,7 +7896,7 @@ case 264: /* clo ek r */ rc = 2; goto jump; -case 265: /* clo ek r */ +case 264: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -6965,15 +7906,15 @@ case 265: /* clo ek r */ /* ek r thunk r k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; - *--hp = obj_from_case(266); + *--hp = obj_from_case(265); r[5] = (hendblk(1+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(267); + *--hp = obj_from_case(266); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[1]; - *--hp = obj_from_case(268); + *--hp = obj_from_case(267); r[7] = (hendblk(1+1)); r[8+0] = r[4]; r[8+1] = r[5]; @@ -6983,7 +7924,7 @@ case 265: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_dynamic_2Dwind; -case 266: /* clo k */ +case 265: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -6999,7 +7940,7 @@ case 266: /* clo k */ rc = 4; goto jump; -case 267: /* clo k */ +case 266: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -7013,7 +7954,7 @@ case 267: /* clo k */ rc = 2; goto jump; -case 268: /* clo k */ +case 267: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -7029,14 +7970,14 @@ case 268: /* clo k */ rc = 4; goto jump; -case 269: /* with-output-to-port k port thunk */ +case 268: /* with-output-to-port k port thunk */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_with_2Doutput_2Dto_2Dport: /* k port thunk */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(270); + *--hp = obj_from_case(269); r[3] = (hendblk(2+1)); r[4+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport); pc = objptr_from_obj(r[4+0])[0]; @@ -7048,7 +7989,7 @@ gs_with_2Doutput_2Dto_2Dport: /* k port thunk */ rc = 4; goto jump; -case 270: /* clo ek r */ +case 269: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7059,7 +8000,7 @@ case 270: /* clo ek r */ *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(271); + *--hp = obj_from_case(270); r[4] = (hendblk(3+1)); r[0] = (cx__25residual_2Dcurrent_2Doutput_2Dport); pc = objptr_from_obj(r[0])[0]; @@ -7068,7 +8009,7 @@ case 270: /* clo ek r */ rc = 2; goto jump; -case 271: /* clo ek r */ +case 270: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7078,15 +8019,15 @@ case 271: /* clo ek r */ /* ek r thunk r k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; - *--hp = obj_from_case(272); + *--hp = obj_from_case(271); r[5] = (hendblk(1+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(273); + *--hp = obj_from_case(272); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[1]; - *--hp = obj_from_case(274); + *--hp = obj_from_case(273); r[7] = (hendblk(1+1)); r[8+0] = r[4]; r[8+1] = r[5]; @@ -7096,7 +8037,7 @@ case 271: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_dynamic_2Dwind; -case 272: /* clo k */ +case 271: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -7112,7 +8053,7 @@ case 272: /* clo k */ rc = 4; goto jump; -case 273: /* clo k */ +case 272: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -7126,7 +8067,7 @@ case 273: /* clo k */ rc = 2; goto jump; -case 274: /* clo k */ +case 273: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -7142,20 +8083,20 @@ case 274: /* clo k */ rc = 4; goto jump; -case 275: /* with-input-from-file k fname thunk */ +case 274: /* with-input-from-file k fname thunk */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k fname thunk */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(276); + *--hp = obj_from_case(275); r[3] = (hendblk(1+1)); /* r[0] */ /* r[1] */ r[2] = r[3]; goto gs_call_2Dwith_2Dinput_2Dfile; -case 276: /* clo k p */ +case 275: /* clo k p */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7166,20 +8107,20 @@ case 276: /* clo k p */ /* r[2] */ goto gs_with_2Dinput_2Dfrom_2Dport; -case 277: /* with-output-to-file k fname thunk */ +case 276: /* with-output-to-file k fname thunk */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k fname thunk */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(278); + *--hp = obj_from_case(277); r[3] = (hendblk(1+1)); /* r[0] */ /* r[1] */ r[2] = r[3]; goto gs_call_2Dwith_2Doutput_2Dfile; -case 278: /* clo k p */ +case 277: /* clo k p */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7190,7 +8131,165 @@ case 278: /* clo k p */ /* r[2] */ goto gs_with_2Doutput_2Dto_2Dport; -case 279: /* %residual-circular? k x */ +case 278: /* %read-line k p */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ +gs__25read_2Dline: /* k p */ + { /* open-output-string */ + r[2] = (mkoport_string(2, newcb())); } + r[3+0] = r[0]; + r[3+1] = obj_from_bool(1); + r[3+2] = r[2]; + r[3+3] = r[1]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v12751; + +s_loop_v12751: /* k read-nothing? op p */ + { int c = iportgetc((r[3])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); } + if (((iseof((r[4]))) || (char_from_obj(r[4]) == (10)))) { + { /* get-output-string */ + obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[5] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } } + { /* close-output-port */ + obj o = r[2]; cxtype_oport_t *vt = oportvt(o); assert(vt); + vt->close(oportdata(o)); vt->free(oportdata(o)); + objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; + (void)(0); } + r[5] = (bool_from_obj((iseof((r[4]))) ? (r[1]) : obj_from_bool(0)) ? (r[4]) : (r[5])); + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + if ((char_from_obj(r[4]) == (13))) { + /* r[0] */ + r[1] = obj_from_bool(0); + /* r[2] */ + /* r[3] */ + goto s_loop_v12751; + } else { + (void)(oportputc(char_from_obj(r[4]), (r[2]))); + /* r[0] */ + r[1] = obj_from_bool(0); + /* r[2] */ + /* r[3] */ + goto s_loop_v12751; + } + } + +case 279: /* read-substring! k str start end p */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k str start end p */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 280: /* read-substring k k p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_read_2Dsubstring: /* k k p */ + r[3] = (hpushstr(3, allocstring(fixnum_from_obj(r[1]), '?'))); + r[4] = (cxs_read_2Dsubstring_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2]))); + if ((iseof((r[4])))) { + r[3] = r[4]; + } else { + if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) { + /* r[3] */ + } else { + { /* substring */ + int *d = substring(stringdata((r[3])), (+0), fixnum_from_obj(r[4])); + r[3] = (hpushstr(5, d)); } + } + } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 281: /* write-substring k from start end p */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k from start end p */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 282: /* read-subbytevector! k vec start end p */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k vec start end p */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 283: /* read-subbytevector k k p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ +gs_read_2Dsubbytevector: /* k k p */ + r[3] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[1])))); + r[4] = (cxs_read_2Dsubbytevector_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2]))); + if ((iseof((r[4])))) { + r[3] = r[4]; + } else { + if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) { + /* r[3] */ + } else { + { /* subbytevector */ + int *d = subbytevector(bytevectordata((r[3])), (+0), fixnum_from_obj(r[4])); + r[3] = (hpushu8v(5, d)); } + } + } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 284: /* write-subbytevector k from start end p */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k from start end p */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 285: /* %residual-circular? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -7203,7 +8302,7 @@ case 279: /* %residual-circular? k x */ rc = 3; goto jump; -case 280: /* %residual-eq? k x y */ +case 286: /* %residual-eq? k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ @@ -7216,7 +8315,7 @@ case 280: /* %residual-eq? k x y */ rc = 3; goto jump; -case 281: /* %residual-eqv? k x y */ +case 287: /* %residual-eqv? k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ @@ -7229,7 +8328,7 @@ case 281: /* %residual-eqv? k x y */ rc = 3; goto jump; -case 282: /* %residual-equal? k x y */ +case 288: /* %residual-equal? k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ @@ -7242,7 +8341,7 @@ case 282: /* %residual-equal? k x y */ rc = 3; goto jump; -case 283: /* %residual-memq k x l */ +case 289: /* %residual-memq k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7259,7 +8358,7 @@ case 283: /* %residual-memq k x l */ rc = 3; goto jump; -case 284: /* %residual-memv k x l */ +case 290: /* %residual-memv k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7272,7 +8371,7 @@ case 284: /* %residual-memv k x l */ rc = 3; goto jump; -case 285: /* %residual-member k x l */ +case 291: /* %residual-meml k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7285,7 +8384,65 @@ case 285: /* %residual-member k x l */ rc = 3; goto jump; -case 286: /* %residual-assq k x l */ +case 292: /* %member k x l eq */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs__25member: /* k x l eq */ + if ((ispair((r[2])))) { + hreserve(hbsz(4+1), 4); /* 4 live regs */ + *--hp = r[2]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(293); + r[4] = (hendblk(4+1)); + r[5+0] = r[3]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[4]; + r[5+2] = r[1]; + r[5+3] = (car((r[2]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 293: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r eq x k l */ + if (bool_from_obj(r[1])) { + r[0] = r[4]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[5]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[6+0] = r[4]; + r[6+1] = r[3]; + r[6+2] = (cdr((r[5]))); + r[6+3] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs__25member; + } + +case 294: /* %residual-assq k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7302,7 +8459,7 @@ case 286: /* %residual-assq k x l */ rc = 3; goto jump; -case 287: /* %residual-assv k x l */ +case 295: /* %residual-assv k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7315,7 +8472,7 @@ case 287: /* %residual-assv k x l */ rc = 3; goto jump; -case 288: /* %residual-assoc k x l */ +case 296: /* %residual-assl k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ @@ -7328,22 +8485,82 @@ case 288: /* %residual-assoc k x l */ rc = 3; goto jump; -case 289: /* print-error-message k prefix args ep */ +case 297: /* %assoc k x al eq */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs__25assoc: /* k x al eq */ + if ((ispair((r[2])))) { + hreserve(hbsz(4+1), 4); /* 4 live regs */ + *--hp = r[2]; + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(298); + r[4] = (hendblk(4+1)); + r[5] = (car((r[2]))); + r[5] = (car((r[5]))); + r[6+0] = r[3]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[4]; + r[6+2] = r[1]; + r[6+3] = r[5]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 298: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r eq x k al */ + if (bool_from_obj(r[1])) { + r[0] = r[4]; + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = (car((r[5]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[6+0] = r[4]; + r[6+1] = r[3]; + r[6+2] = (cdr((r[5]))); + r[6+3] = r[2]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs__25assoc; + } + +case 299: /* print-error-message k prefix args ep */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_print_2Derror_2Dmessage: /* k prefix args ep */ - (void)(((isstring((r[1]))) || (issymbol((r[1])))) ? (void)(oportputs(stringchars((r[1])), (r[3]))) : (void)(oportputs(stringchars((cx__231056)), (r[3])))); + (void)(((isstring((r[1]))) || (issymbol((r[1])))) ? (void)(oportputs(stringchars((r[1])), (r[3]))) : (void)(oportputs(stringchars((cx__231392)), (r[3])))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[0]; - *--hp = obj_from_case(290); + *--hp = obj_from_case(300); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto s_pr_2Dwhere; -case 290: /* clo ek . */ +case 300: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -7412,7 +8629,7 @@ s_pr_2Dwhere: /* k args ep */ r[3] = (car((r[1]))); r[3] = obj_from_bool(!bool_from_obj(r[3])); if (bool_from_obj(r[3])) { - (void)(oportputs(stringchars((cx__231041)), (r[2]))); + (void)(oportputs(stringchars((cx__231377)), (r[2]))); r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; @@ -7422,17 +8639,17 @@ s_pr_2Dwhere: /* k args ep */ r[3] = (car((r[1]))); r[3] = obj_from_bool(issymbol((r[3]))); if (bool_from_obj(r[3])) { - (void)(oportputs(stringchars((cx__231045)), (r[2]))); + (void)(oportputs(stringchars((cx__231381)), (r[2]))); r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); - (void)(oportputs(stringchars((cx__231041)), (r[2]))); + (void)(oportputs(stringchars((cx__231377)), (r[2]))); r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_pr_2Dmsg; } else { - (void)(oportputs(stringchars((cx__231041)), (r[2]))); + (void)(oportputs(stringchars((cx__231377)), (r[2]))); /* r[0] */ /* r[1] */ /* r[2] */ @@ -7449,7 +8666,7 @@ s_pr_2Dwhere: /* k args ep */ goto jump; } -case 291: /* clo k args */ +case 301: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -7457,17 +8674,17 @@ case 291: /* clo k args */ (void)(oportputc('\n', (r[2]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(292); + *--hp = obj_from_case(302); r[3] = (hendblk(1+1)); r[4+0] = r[3]; - r[4+1] = (cx__231056); + r[4+1] = (cx__231392); r[4+2] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_print_2Derror_2Dmessage; -case 292: /* clo ek . */ +case 302: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -7481,7 +8698,7 @@ case 292: /* clo ek . */ rc = 2; goto jump; -case 293: /* clo k args */ +case 303: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -7489,17 +8706,17 @@ case 293: /* clo k args */ (void)(oportputc('\n', (r[2]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(294); + *--hp = obj_from_case(304); r[3] = (hendblk(1+1)); r[4+0] = r[3]; - r[4+1] = (cx__231080); + r[4+1] = (cx__231416); r[4+2] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_print_2Derror_2Dmessage; -case 294: /* clo ek . */ +case 304: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -7515,12 +8732,12 @@ case 294: /* clo ek . */ rc = 3; goto jump; -case 295: /* %read k port simple? */ +case 305: /* %read k port simple? */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs__25read: /* k port simple? */ hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(296); + *--hp = obj_from_case(306); r[3] = (hendblk(0+1)); hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); @@ -7539,20 +8756,20 @@ gs__25read: /* k port simple? */ r[8] = (hendblk(1)); hreserve(hbsz(1+1), 9); /* 9 live regs */ *--hp = r[5]; - *--hp = obj_from_case(297); + *--hp = obj_from_case(307); r[9] = (hendblk(1+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; - *--hp = obj_from_case(298); + *--hp = obj_from_case(308); r[10] = (hendblk(1+1)); hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[3]; - *--hp = obj_from_case(302); + *--hp = obj_from_case(312); r[11] = (hendblk(2+1)); hreserve(hbsz(1+1), 12); /* 12 live regs */ *--hp = (r[10]); - *--hp = obj_from_case(305); + *--hp = obj_from_case(315); r[12] = (hendblk(1+1)); (void)(objptr_from_obj(r[4])[0] = (mknull())); (void)(objptr_from_obj(r[5])[0] = obj_from_bool(0)); @@ -7568,27 +8785,27 @@ gs__25read: /* k port simple? */ (void)(objptr_from_obj(r[5])[0] = (r[13])); { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ - *--hp = (cx__231830); + *--hp = (cx__232000); *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } (void)(objptr_from_obj(r[6])[0] = (r[14])); { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ - *--hp = (cx__231827); + *--hp = (cx__231997); *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } (void)(objptr_from_obj(r[7])[0] = (r[14])); { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ - *--hp = (cx__231824); + *--hp = (cx__231994); *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } (void)(objptr_from_obj(r[8])[0] = (r[14])); hreserve(hbsz(0+1), 13); /* 13 live regs */ - *--hp = obj_from_case(348); + *--hp = obj_from_case(358); r[13] = (hendblk(0+1)); hreserve(hbsz(5+1), 14); /* 14 live regs */ *--hp = r[4]; @@ -7596,7 +8813,7 @@ gs__25read: /* k port simple? */ *--hp = (r[13]); *--hp = r[1]; *--hp = r[9]; - *--hp = obj_from_case(307); + *--hp = obj_from_case(317); r[13] = (hendblk(5+1)); r[14+0] = (r[13]); r[14+1] = r[1]; @@ -7614,21 +8831,21 @@ gs__25read: /* k port simple? */ rreserve(MAX_HOSTREGS); goto s_sub_2Dread; -case 296: /* clo k c */ +case 306: /* clo k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ - { const char_t v11379_c = char_from_obj(r[1]); + { const char_t v14731_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((v11379_c))) || (((v11379_c) == (')')) || (((v11379_c) == ('(')) || (((v11379_c) == (']')) || (((v11379_c) == ('[')) || (((v11379_c) == (34)) || ((v11379_c) == (';')))))))); + r[2+2] = obj_from_bool((isspace((v14731_c))) || (((v14731_c) == (')')) || (((v14731_c) == ('(')) || (((v14731_c) == (']')) || (((v14731_c) == ('[')) || (((v14731_c) == (34)) || ((v14731_c) == (';')))))))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } -case 297: /* clo k form */ +case 307: /* clo k form */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7650,7 +8867,7 @@ case 297: /* clo k form */ rc = 3; goto jump; -case 298: /* clo k p in-string? */ +case 308: /* clo k p in-string? */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -7659,7 +8876,7 @@ case 298: /* clo k p in-string? */ { int c = iportpeekc((r[1])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); } hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[1]; - *--hp = obj_from_case(299); + *--hp = obj_from_case(309); r[5] = (hendblk(1+1)); r[6+0] = r[0]; r[6+1] = r[4]; @@ -7671,9 +8888,9 @@ case 298: /* clo k p in-string? */ r[6+7] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop; + goto s_loop_v12451; -case 299: /* clo k l */ +case 309: /* clo k l */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -7683,7 +8900,7 @@ case 299: /* clo k l */ r[3+0] = (cx_read_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; - r[3+2] = (cx__231234); + r[3+2] = (cx__231534); r[3+3] = (mksymbol(internsym("port:"))); r[3+4] = (r[2]); r += 3; /* shift reg wnd */ @@ -7695,13 +8912,13 @@ case 299: /* clo k l */ obj t, v = mknull(), l = r[1]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[3] = (v); } - { fixnum_t v11378_tmp; + { fixnum_t v14730_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11378_tmp = (n); } + v14730_tmp = (n); } { /* list->string */ - int i, c = (v11378_tmp); + int i, c = (v14730_tmp); obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */ obj l = r[3]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -7728,7 +8945,7 @@ case 299: /* clo k l */ goto jump; } -case 300: /* clo k c l cc */ +case 310: /* clo k c l cc */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; @@ -7736,13 +8953,13 @@ case 300: /* clo k c l cc */ r[1+6] = p[3]; r[1+7] = p[4]; } r += 1; /* shift reg. wnd */ -s_loop: /* k c l cc char-delimiter? rev-digits->char p in-string? */ +s_loop_v12451: /* k c l cc char-delimiter? rev-digits->char p in-string? */ if ((iseof((r[1])))) { if (bool_from_obj(r[7])) { r[8+0] = (cx_read_2Derror); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[0]; - r[8+2] = (cx__231264); + r[8+2] = (cx__231562); r[8+3] = (mksymbol(internsym("port:"))); r[8+4] = (r[6]); r += 8; /* shift reg wnd */ @@ -7776,7 +8993,7 @@ s_loop: /* k c l cc char-delimiter? rev-digits->char p in-string? */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(300); + *--hp = obj_from_case(310); r[8] = (hendblk(4+1)); hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[0]; @@ -7786,7 +9003,7 @@ s_loop: /* k c l cc char-delimiter? rev-digits->char p in-string? */ *--hp = r[6]; *--hp = r[3]; *--hp = r[8]; - *--hp = obj_from_case(301); + *--hp = obj_from_case(311); r[8] = (hendblk(7+1)); if ((!bool_from_obj(r[7]))) { r[9+0] = r[4]; @@ -7803,7 +9020,7 @@ s_loop: /* k c l cc char-delimiter? rev-digits->char p in-string? */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(300); + *--hp = obj_from_case(310); r[9] = (hendblk(4+1)); r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); @@ -7816,12 +9033,12 @@ s_loop: /* k c l cc char-delimiter? rev-digits->char p in-string? */ r[10+8] = r[0]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v9276; + goto s_l_v12453; } } } -case 301: /* clo ek r */ +case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7832,7 +9049,7 @@ case 301: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v9276: /* ek r loop cc p c rev-digits->char l k */ +s_l_v12453: /* ek r loop cc p c rev-digits->char l k */ if (bool_from_obj(r[1])) { r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; @@ -7842,20 +9059,20 @@ s_l_v9276: /* ek r loop cc p c rev-digits->char l k */ rc = 3; goto jump; } else { - { const fixnum_t v11377_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5])); - r[9] = obj_from_bool(((v11377_scalar_2Dvalue) >= (+48)) && ((v11377_scalar_2Dvalue) <= (+57))); + { const fixnum_t v14729_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5])); + r[9] = obj_from_bool(((v14729_scalar_2Dvalue) >= (+48)) && ((v14729_scalar_2Dvalue) <= (+57))); if (bool_from_obj(r[9])) { /* r[9] */ } else { - r[10] = obj_from_bool(((v11377_scalar_2Dvalue) >= (+65)) && ((v11377_scalar_2Dvalue) <= (+70))); - r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v11377_scalar_2Dvalue) >= (+97)) && ((v11377_scalar_2Dvalue) <= (+102)))); + r[10] = obj_from_bool(((v14729_scalar_2Dvalue) >= (+65)) && ((v14729_scalar_2Dvalue) <= (+70))); + r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v14729_scalar_2Dvalue) >= (+97)) && ((v14729_scalar_2Dvalue) <= (+102)))); } } r[9] = obj_from_bool(!bool_from_obj(r[9])); if (bool_from_obj(r[9])) { r[9+0] = (cx_read_2Derror); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; - r[9+2] = (cx__231258); + r[9+2] = (cx__231558); r[9+3] = r[5]; r[9+4] = (mksymbol(internsym("port:"))); r[9+5] = (r[4]); @@ -7867,14 +9084,14 @@ s_l_v9276: /* ek r loop cc p c rev-digits->char l k */ if ((is_fixnum_obj(r[3]))) { r[9] = obj_from_bool(fixnum_from_obj(r[3]) > (+2)); } else { - { const flonum_t v11376_tmp = ((flonum_t)(+2)); - r[9] = obj_from_bool(flonum_from_obj(r[3]) > (v11376_tmp)); } + { const flonum_t v14728_tmp = ((flonum_t)(+2)); + r[9] = obj_from_bool(flonum_from_obj(r[3]) > (v14728_tmp)); } } if (bool_from_obj(r[9])) { r[0] = (cx_read_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__231250); + r[2] = (cx__231550); r[3] = (mksymbol(internsym("port:"))); r[4] = (r[4]); rreserve(MAX_HOSTREGS); @@ -7892,8 +9109,8 @@ s_l_v9276: /* ek r loop cc p c rev-digits->char l k */ if ((is_fixnum_obj(r[3]))) { r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); } else { - { const flonum_t v11375_tmp = ((flonum_t)(+1)); - r[11] = obj_from_flonum(11, flonum_from_obj(r[3]) + (v11375_tmp)); } + { const flonum_t v14727_tmp = ((flonum_t)(+1)); + r[11] = obj_from_flonum(11, flonum_from_obj(r[3]) + (v14727_tmp)); } } r[12+0] = r[2]; pc = objptr_from_obj(r[12+0])[0]; @@ -7909,7 +9126,7 @@ s_l_v9276: /* ek r loop cc p c rev-digits->char l k */ } } -case 302: /* clo k c p */ +case 312: /* clo k c p */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; @@ -7932,21 +9149,21 @@ case 302: /* clo k c p */ r[7+6] = r[4]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v9251; + goto s_loop_v12428; -case 303: /* clo k c l hash? */ +case 313: /* 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_v9251: /* k c l hash? char-delimiter? p dot */ +s_loop_v12428: /* 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(303); + *--hp = obj_from_case(313); r[7] = (hendblk(3+1)); hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[2]; @@ -7956,14 +9173,14 @@ s_loop_v9251: /* k c l hash? char-delimiter? p dot */ *--hp = r[5]; *--hp = r[1]; *--hp = r[7]; - *--hp = obj_from_case(304); + *--hp = obj_from_case(314); 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(303); + *--hp = obj_from_case(313); r[8] = (hendblk(3+1)); r[9+0] = obj_from_ktrap(); r[9+1] = obj_from_bool(iseof((r[1]))); @@ -7976,7 +9193,7 @@ s_loop_v9251: /* k c l hash? char-delimiter? p dot */ r[9+8] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v9253; + goto s_l_v12430; } else { r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; @@ -7988,7 +9205,7 @@ s_loop_v9251: /* k c l hash? char-delimiter? p dot */ goto jump; } -case 304: /* clo ek r */ +case 314: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -7999,27 +9216,27 @@ case 304: /* clo ek r */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_l_v9253: /* ek r loop c p k dot hash? l */ +s_l_v12430: /* ek r loop c p k dot hash? l */ if (bool_from_obj(r[1])) { { /* reverse! */ obj t, v = mknull(), l = r[8]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[9] = (v); } r[10] = (car((r[9]))); - { fixnum_t v11371_tmp; + { fixnum_t v14723_tmp; { /* length */ int n; obj l = r[9]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11371_tmp = (n); } + v14723_tmp = (n); } { /* list->string */ - int i, c = (v11371_tmp); + int i, c = (v14723_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__231144))) == 0)) { + if ((strcmp(stringchars((r[11])), stringchars((cx__231474))) == 0)) { r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); @@ -8031,18 +9248,18 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ if (bool_from_obj(bool_from_obj(r[7]) ? (r[7]) : obj_from_bool(isdigit(char_from_obj(r[10]))))) { r[12] = obj_from_bool(0); } else { - r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231217))) == 0); - r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231221))) == 0)); + r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231523))) == 0); + r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231525))) == 0)); if (bool_from_obj(r[12])) { r[12] = obj_from_bool(0); } else { - r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231210))) == 0); - r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231214))) == 0)); + r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231520))) == 0); + r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231522))) == 0)); if (bool_from_obj(r[12])) { r[12] = obj_from_bool(0); } else { - r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231203))) == 0); - r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231207))) == 0)); + r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231517))) == 0); + r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231519))) == 0)); if (bool_from_obj(r[12])) { r[12] = obj_from_bool(0); } else { @@ -8060,21 +9277,21 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ r[12] = (cdr((r[12]))); r[12] = obj_from_bool(ispair((r[12]))); if (bool_from_obj(r[12])) { - { bool_t v11374_tmp; + { bool_t v14726_tmp; r[12] = (cdr((r[9]))); r[12] = (cdr((r[12]))); r[12] = (car((r[12]))); - v11374_tmp = (isdigit(char_from_obj(r[12]))); - r[12] = obj_from_bool(!(v11374_tmp)); } + v14726_tmp = (isdigit(char_from_obj(r[12]))); + r[12] = obj_from_bool(!(v14726_tmp)); } } else { r[12] = obj_from_bool(0); } } else { - { bool_t v11373_tmp; + { bool_t v14725_tmp; r[12] = (cdr((r[9]))); r[12] = (car((r[12]))); - v11373_tmp = (isdigit(char_from_obj(r[12]))); - r[12] = obj_from_bool(!(v11373_tmp)); } + v14725_tmp = (isdigit(char_from_obj(r[12]))); + r[12] = obj_from_bool(!(v14725_tmp)); } } } } else { @@ -8082,11 +9299,11 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ r[12] = (cdr((r[9]))); r[12] = obj_from_bool(ispair((r[12]))); if (bool_from_obj(r[12])) { - { bool_t v11372_tmp; + { bool_t v14724_tmp; r[12] = (cdr((r[9]))); r[12] = (car((r[12]))); - v11372_tmp = (isdigit(char_from_obj(r[12]))); - r[12] = obj_from_bool(!(v11372_tmp)); } + v14724_tmp = (isdigit(char_from_obj(r[12]))); + r[12] = obj_from_bool(!(v14724_tmp)); } } else { r[12] = obj_from_bool(0); } @@ -8128,7 +9345,7 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ r[13+0] = (cx_read_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[5]; - r[13+2] = (cx__231142); + r[13+2] = (cx__231472); r[13+3] = (r[11]); r[13+4] = (mksymbol(internsym("port:"))); r[13+5] = (r[4]); @@ -8169,7 +9386,7 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ goto jump; } else { { /* string-position */ - char *s = stringchars((cx__231763)), *p = strchr(s, char_from_obj(r[3])); + char *s = stringchars((cx__231933)), *p = strchr(s, char_from_obj(r[3])); if (p) r[9] = obj_from_fixnum(p-s); else r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { { int c = iportgetc((r[4])); (void)(c == EOF ? mkeof() : obj_from_char(c)); } @@ -8193,7 +9410,7 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ r[9+0] = (cx_read_2Derror); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[5]; - r[9+2] = (cx__231121); + r[9+2] = (cx__231455); r[9+3] = r[3]; r[9+4] = (mksymbol(internsym("port:"))); r[9+5] = (r[4]); @@ -8205,7 +9422,7 @@ s_l_v9253: /* ek r loop c p k dot hash? l */ } } -case 305: /* clo k p what */ +case 315: /* clo k p what */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } @@ -8218,13 +9435,13 @@ case 305: /* clo k p what */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(306); + *--hp = obj_from_case(316); r[5] = (hendblk(5+1)); if ((iseof((r[4])))) { r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; - r[6+2] = (cx__231324); + r[6+2] = (cx__231594); r[6+3] = r[2]; r[6+4] = (mksymbol(internsym("port:"))); r[6+5] = (r[1]); @@ -8242,10 +9459,10 @@ case 305: /* clo k p what */ r[6+6] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v9231; + goto s_l_v12408; } -case 306: /* clo ek . */ +case 316: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -8255,7 +9472,7 @@ case 306: /* clo ek . */ r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ -s_l_v9231: /* ek . what sub-read-x-char-escape p k c */ +s_l_v12408: /* ek . what sub-read-x-char-escape p k c */ if (((char_from_obj(r[6]) == (92)) || ((char_from_obj(r[6]) == (34)) || (char_from_obj(r[6]) == ('|'))))) { r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -8344,12 +9561,12 @@ s_l_v9231: /* ek . what sub-read-x-char-escape p k c */ r[1] = obj_from_bool(char_from_obj(r[6]) == (10)); r[2] = r[7]; r[3] = r[4]; - goto s_loop_v9232; + goto s_loop_v12409; } else { r[7+0] = (cx_read_2Derror); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; - r[7+2] = (cx__231276); + r[7+2] = (cx__231574); r[7+3] = r[2]; r[7+4] = (mksymbol(internsym(":"))); r[7+5] = (r[6]); @@ -8370,7 +9587,7 @@ s_l_v9231: /* ek . what sub-read-x-char-escape p k c */ } } -s_loop_v9232: /* k gotnl nc p */ +s_loop_v12409: /* k gotnl nc p */ if (((iseof((r[2]))) || (!(isspace(char_from_obj(r[2])))))) { if (bool_from_obj(r[1])) { /* r[0] */ @@ -8384,7 +9601,7 @@ s_loop_v9232: /* k gotnl nc p */ r[4+0] = (cx_read_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231288); + r[4+2] = (cx__231580); r[4+3] = (mksymbol(internsym("port:"))); r[4+4] = (r[3]); r += 4; /* shift reg wnd */ @@ -8408,11 +9625,11 @@ s_loop_v9232: /* k gotnl nc p */ r[1] = (bool_from_obj(r[1]) ? (r[1]) : obj_from_bool(char_from_obj(r[2]) == (10))); r[2] = r[4]; /* r[3] */ - goto s_loop_v9232; + goto s_loop_v12409; } } -case 307: /* clo ek r */ +case 317: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8428,7 +9645,7 @@ case 307: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(308); + *--hp = obj_from_case(318); r[7] = (hendblk(5+1)); r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; @@ -8439,7 +9656,7 @@ case 307: /* clo ek r */ rc = 3; goto jump; -case 308: /* clo ek r */ +case 318: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8473,7 +9690,7 @@ case 308: /* clo ek r */ r[7+0] = (cx_read_2Derror); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[4]; - r[7+2] = (cx__231692); + r[7+2] = (cx__231874); r[7+3] = (cdr((r[5]))); r[7+4] = (mksymbol(internsym("port:"))); r[7+5] = (r[2]); @@ -8495,7 +9712,7 @@ s_sub_2Dread_2Dbyte_2Dlist: /* k p dot simple? shared char-delimiter? sub-read-x *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(331); r[12] = (hendblk(10+1)); hreserve(hbsz(5+1), 13); /* 13 live regs */ *--hp = r[0]; @@ -8503,7 +9720,7 @@ s_sub_2Dread_2Dbyte_2Dlist: /* k p dot simple? shared char-delimiter? sub-read-x *--hp = (r[10]); *--hp = (r[12]); *--hp = (r[11]); - *--hp = obj_from_case(309); + *--hp = obj_from_case(319); r[13] = (hendblk(5+1)); r[0] = (r[13]); /* r[1] */ @@ -8519,7 +9736,7 @@ s_sub_2Dread_2Dbyte_2Dlist: /* k p dot simple? shared char-delimiter? sub-read-x r[11] = (r[11]); goto s_sub_2Dread; -case 309: /* clo ek r */ +case 319: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8537,7 +9754,7 @@ case 309: /* clo ek r */ /* r[5] */ goto s_recur; -case 310: /* clo k form */ +case 320: /* clo k form */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8550,7 +9767,7 @@ s_recur: /* k form reader-token? sub-read close-paren p */ r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231341); + r[6+2] = (cx__231611); r[6+3] = (mksymbol(internsym("port:"))); r[6+4] = (r[5]); r += 6; /* shift reg wnd */ @@ -8574,7 +9791,7 @@ s_recur: /* k form reader-token? sub-read close-paren p */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(310); + *--hp = obj_from_case(320); r[6] = (hendblk(4+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[0]; @@ -8582,7 +9799,7 @@ s_recur: /* k form reader-token? sub-read close-paren p */ *--hp = r[5]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(311); + *--hp = obj_from_case(321); r[6] = (hendblk(5+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; @@ -8595,7 +9812,7 @@ s_recur: /* k form reader-token? sub-read close-paren p */ } } -case 311: /* clo ek r */ +case 321: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8609,7 +9826,7 @@ case 311: /* clo ek r */ r[7+0] = (cx_read_2Derror); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; - r[7+2] = (cx__231338); + r[7+2] = (cx__231608); r[7+3] = (cdr((r[5]))); r[7+4] = (mksymbol(internsym("port:"))); r[7+5] = (r[4]); @@ -8624,7 +9841,7 @@ case 311: /* clo ek r */ r[7+0] = (cx_read_2Derror); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; - r[7+2] = (cx__231332); + r[7+2] = (cx__231602); r[7+3] = r[5]; r[7+4] = (mksymbol(internsym("port:"))); r[7+5] = (r[4]); @@ -8637,7 +9854,7 @@ case 311: /* clo ek r */ *--hp = r[5]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(312); + *--hp = obj_from_case(322); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -8649,7 +9866,7 @@ case 311: /* clo ek r */ } } -case 312: /* clo ek r */ +case 322: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8660,7 +9877,7 @@ case 312: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(313); + *--hp = obj_from_case(323); r[5] = (hendblk(2+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -8671,7 +9888,7 @@ case 312: /* clo ek r */ rc = 3; goto jump; -case 313: /* clo ek r */ +case 323: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8705,7 +9922,7 @@ s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(331); r[15] = (hendblk(10+1)); hreserve(hbsz(10+1), 16); /* 16 live regs */ *--hp = (r[14]); @@ -8718,7 +9935,7 @@ s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; - *--hp = obj_from_case(345); + *--hp = obj_from_case(355); r[16] = (hendblk(10+1)); hreserve(hbsz(8+1), 17); /* 17 live regs */ *--hp = r[5]; @@ -8729,7 +9946,7 @@ s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter *--hp = (r[15]); *--hp = (r[16]); *--hp = (r[14]); - *--hp = obj_from_case(314); + *--hp = obj_from_case(324); r[16] = (hendblk(8+1)); r[0] = (r[16]); r[1] = r[2]; @@ -8745,7 +9962,7 @@ s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter r[11] = (r[14]); goto s_sub_2Dread; -case 314: /* clo ek r */ +case 324: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8764,7 +9981,7 @@ case 314: /* clo ek r */ r[0] = (cx_read_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; - r[2] = (cx__231372); + r[2] = (cx__231642); r[3] = (mksymbol(internsym("port:"))); r[4] = (r[7]); rreserve(MAX_HOSTREGS); @@ -8782,10 +9999,10 @@ case 314: /* clo ek r */ r[10+8] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_recur_v9097; + goto s_recur_v12274; } -case 315: /* clo k form */ +case 325: /* clo k form */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8796,12 +10013,12 @@ case 315: /* clo k form */ r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ -s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot close-token p */ +s_recur_v12274: /* k form reader-token? sub-read-carefully sub-read dot? dot close-token p */ if ((iseof((r[1])))) { r[9+0] = (cx_read_2Derror); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; - r[9+2] = (cx__231367); + r[9+2] = (cx__231637); r[9+3] = (mksymbol(internsym("port:"))); r[9+4] = (r[8]); r += 9; /* shift reg wnd */ @@ -8827,7 +10044,7 @@ s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot clos *--hp = r[0]; *--hp = r[8]; *--hp = r[4]; - *--hp = obj_from_case(316); + *--hp = obj_from_case(326); r[9] = (hendblk(4+1)); r[10+0] = r[3]; pc = objptr_from_obj(r[10+0])[0]; @@ -8841,7 +10058,7 @@ s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot clos r[9+0] = (cx_read_2Derror); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; - r[9+2] = (cx__231357); + r[9+2] = (cx__231627); r[9+3] = (mksymbol(internsym("port:"))); r[9+4] = (r[8]); r += 9; /* shift reg wnd */ @@ -8858,7 +10075,7 @@ s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot clos *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(315); + *--hp = obj_from_case(325); r[9] = (hendblk(7+1)); hreserve(hbsz(5+1), 10); /* 10 live regs */ *--hp = r[0]; @@ -8866,7 +10083,7 @@ s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot clos *--hp = r[8]; *--hp = r[9]; *--hp = r[4]; - *--hp = obj_from_case(318); + *--hp = obj_from_case(328); r[9] = (hendblk(5+1)); r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; @@ -8880,7 +10097,7 @@ s_recur_v9097: /* k form reader-token? sub-read-carefully sub-read dot? dot clos } } -case 316: /* clo ek r */ +case 326: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8894,7 +10111,7 @@ case 316: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(317); + *--hp = obj_from_case(327); r[6] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -8904,7 +10121,7 @@ case 316: /* clo ek r */ rc = 3; goto jump; -case 317: /* clo ek r */ +case 327: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8925,7 +10142,7 @@ case 317: /* clo ek r */ r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[3]; - r[6+2] = (cx__231360); + r[6+2] = (cx__231630); r[6+3] = r[1]; r[6+4] = (mksymbol(internsym("port:"))); r[6+5] = (r[2]); @@ -8935,7 +10152,7 @@ case 317: /* clo ek r */ goto jump; } -case 318: /* clo ek r */ +case 328: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8949,7 +10166,7 @@ case 318: /* clo ek r */ r[7+0] = (cx_read_2Derror); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; - r[7+2] = (cx__231356); + r[7+2] = (cx__231626); r[7+3] = (cdr((r[5]))); r[7+4] = (mksymbol(internsym("port:"))); r[7+5] = (r[4]); @@ -8962,7 +10179,7 @@ case 318: /* clo ek r */ *--hp = r[5]; *--hp = r[6]; *--hp = r[3]; - *--hp = obj_from_case(319); + *--hp = obj_from_case(329); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -8973,7 +10190,7 @@ case 318: /* clo ek r */ goto jump; } -case 319: /* clo ek r */ +case 329: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -8984,7 +10201,7 @@ case 319: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(320); + *--hp = obj_from_case(330); r[5] = (hendblk(2+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -8995,7 +10212,7 @@ case 319: /* clo ek r */ rc = 3; goto jump; -case 320: /* clo ek r */ +case 330: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9017,7 +10234,7 @@ case 320: /* clo ek r */ rc = 3; goto jump; -case 321: /* clo k p */ +case 331: /* clo k p */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9043,7 +10260,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(345); + *--hp = obj_from_case(355); r[12] = (hendblk(10+1)); hreserve(hbsz(10+1), 13); /* 13 live regs */ *--hp = (r[11]); @@ -9056,7 +10273,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(321); + *--hp = obj_from_case(331); r[13] = (hendblk(10+1)); { int c = iportgetc((r[1])); r[14] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[14])))) { @@ -9146,7 +10363,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s if ((char_from_obj(r[14]) == (39))) { hreserve(hbsz(1+1), 15); /* 15 live regs */ *--hp = r[0]; - *--hp = obj_from_case(322); + *--hp = obj_from_case(332); r[15] = (hendblk(1+1)); r[0] = (r[15]); /* r[1] */ @@ -9165,7 +10382,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s if ((char_from_obj(r[14]) == ('`'))) { hreserve(hbsz(1+1), 15); /* 15 live regs */ *--hp = r[0]; - *--hp = obj_from_case(323); + *--hp = obj_from_case(333); r[15] = (hendblk(1+1)); r[0] = (r[15]); /* r[1] */ @@ -9182,7 +10399,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s goto s_sub_2Dread_2Dcarefully; } else { { /* string-position */ - char *s = stringchars((cx__231763)), *p = strchr(s, char_from_obj(r[14])); + char *s = stringchars((cx__231933)), *p = strchr(s, char_from_obj(r[14])); if (p) r[15] = obj_from_fixnum(p-s); else r[15] = obj_from_bool(0); } if (bool_from_obj(r[15])) { r[15+0] = r[8]; @@ -9201,14 +10418,14 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[0]; *--hp = r[1]; *--hp = (r[13]); - *--hp = obj_from_case(324); + *--hp = obj_from_case(334); r[16] = (hendblk(3+1)); r[17+0] = (r[16]); r[17+1] = (r[15]); r[17+2] = r[1]; r += 17; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v9061; + goto s_loop_v12238; } else { if ((char_from_obj(r[14]) == (','))) { { int c = iportpeekc((r[1])); r[15] = (c == EOF ? mkeof() : obj_from_char(c)); } @@ -9216,7 +10433,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[16+0] = (cx_read_2Derror); pc = objptr_from_obj(r[16+0])[0]; r[16+1] = r[0]; - r[16+2] = (cx__231648); + r[16+2] = (cx__231848); r[16+3] = (mksymbol(internsym("port:"))); r[16+4] = (r[1]); r += 16; /* shift reg wnd */ @@ -9228,7 +10445,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s { int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); } hreserve(hbsz(1+1), 16); /* 16 live regs */ *--hp = r[0]; - *--hp = obj_from_case(325); + *--hp = obj_from_case(335); r[16] = (hendblk(1+1)); r[0] = (r[16]); /* r[1] */ @@ -9246,7 +10463,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s } else { hreserve(hbsz(1+1), 16); /* 16 live regs */ *--hp = r[0]; - *--hp = obj_from_case(326); + *--hp = obj_from_case(336); r[16] = (hendblk(1+1)); r[0] = (r[16]); /* r[1] */ @@ -9271,7 +10488,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[15+3] = r[1]; r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v9032; + goto s_loop_v12209; } else { if ((char_from_obj(r[14]) == ('|'))) { r[15+0] = r[0]; @@ -9280,7 +10497,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[15+3] = r[1]; r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v9021; + goto s_loop_v12198; } else { if ((char_from_obj(r[14]) == ('#'))) { { int c = iportpeekc((r[1])); r[15] = (c == EOF ? mkeof() : obj_from_char(c)); } @@ -9288,7 +10505,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[16+0] = (cx_read_2Derror); pc = objptr_from_obj(r[16+0])[0]; r[16+1] = r[0]; - r[16+2] = (cx__231585); + r[16+2] = (cx__231805); r[16+3] = (mksymbol(internsym("port:"))); r[16+4] = (r[1]); r += 16; /* shift reg wnd */ @@ -9300,7 +10517,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s hreserve(hbsz(2+1), 16); /* 16 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(331); + *--hp = obj_from_case(341); r[16] = (hendblk(2+1)); r[0] = (r[16]); /* r[1] */ @@ -9331,7 +10548,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s { int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); } hreserve(hbsz(1+1), 16); /* 16 live regs */ *--hp = r[0]; - *--hp = obj_from_case(332); + *--hp = obj_from_case(342); r[16] = (hendblk(1+1)); r[0] = (r[16]); /* r[1] */ @@ -9353,7 +10570,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[0]; *--hp = r[1]; *--hp = (r[13]); - *--hp = obj_from_case(333); + *--hp = obj_from_case(343); r[16] = (hendblk(3+1)); r[0] = (r[16]); /* r[1] */ @@ -9375,18 +10592,18 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[0]; *--hp = r[1]; *--hp = (r[13]); - *--hp = obj_from_case(336); + *--hp = obj_from_case(346); r[16] = (hendblk(3+1)); r[0] = (r[16]); /* r[1] */ - goto s_recur_v8994; + goto s_recur_v12171; } else { if ((char_from_obj(r[15]) == ('('))) { { int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); } r[16] = (objptr_from_obj(r[10])[0]); hreserve(hbsz(1+1), 17); /* 17 live regs */ *--hp = r[0]; - *--hp = obj_from_case(337); + *--hp = obj_from_case(347); r[17] = (hendblk(1+1)); r[18+0] = (r[17]); r[18+1] = (r[15]); @@ -9420,7 +10637,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s if (bool_from_obj(r[16])) { hreserve(hbsz(1+1), 16); /* 16 live regs */ *--hp = r[0]; - *--hp = obj_from_case(338); + *--hp = obj_from_case(348); r[16] = (hendblk(1+1)); r[0] = (r[16]); /* r[1] */ @@ -9439,7 +10656,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[16+0] = (cx_read_2Derror); pc = objptr_from_obj(r[16+0])[0]; r[16+1] = r[0]; - r[16+2] = (cx__231500); + r[16+2] = (cx__231758); r[16+3] = (mksymbol(internsym("port:"))); r[16+4] = (r[1]); r += 16; /* shift reg wnd */ @@ -9455,7 +10672,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[17+0] = (cx_read_2Derror); pc = objptr_from_obj(r[17+0])[0]; r[17+1] = r[0]; - r[17+2] = (cx__231495); + r[17+2] = (cx__231755); r[17+3] = (mksymbol(internsym("port:"))); r[17+4] = (r[1]); r += 17; /* shift reg wnd */ @@ -9470,7 +10687,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; - *--hp = obj_from_case(339); + *--hp = obj_from_case(349); r[17] = (hendblk(4+1)); { int c = iportpeekc((r[1])); r[18] = (c == EOF ? mkeof() : obj_from_char(c)); } r[19+0] = r[5]; @@ -9487,7 +10704,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = (r[16]); *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(340); + *--hp = obj_from_case(350); r[17] = (hendblk(3+1)); r[0] = (r[17]); /* r[1] */ @@ -9523,13 +10740,13 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s *--hp = r[1]; *--hp = r[4]; *--hp = (r[12]); - *--hp = obj_from_case(341); + *--hp = obj_from_case(351); r[16] = (hendblk(4+1)); if (bool_from_obj(r[3])) { r[17+0] = (cx_read_2Derror); pc = objptr_from_obj(r[17+0])[0]; r[17+1] = (r[16]); - r[17+2] = (cx__231435); + r[17+2] = (cx__231697); r[17+3] = (mksymbol(internsym("port:"))); r[17+4] = (r[1]); r += 17; /* shift reg wnd */ @@ -9545,13 +10762,13 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[17+5] = r[0]; r += 17; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v8938; + goto s_l_v12115; } } else { r[16+0] = (cx_read_2Derror); pc = objptr_from_obj(r[16+0])[0]; r[16+1] = r[0]; - r[16+2] = (cx__231379); + r[16+2] = (cx__231649); r[16+3] = (r[15]); r[16+4] = (mksymbol(internsym("port:"))); r[16+5] = (r[1]); @@ -9573,7 +10790,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s r[15+0] = (cx_read_2Derror); pc = objptr_from_obj(r[15+0])[0]; r[15+1] = r[0]; - r[15+2] = (cx__231377); + r[15+2] = (cx__231647); r[15+3] = (r[14]); r[15+4] = (mksymbol(internsym("port:"))); r[15+5] = (r[1]); @@ -9596,7 +10813,7 @@ s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape s } } -case 322: /* clo ek r */ +case 332: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9622,7 +10839,7 @@ case 322: /* clo ek r */ rc = 3; goto jump; -case 323: /* clo ek r */ +case 333: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9648,7 +10865,7 @@ case 323: /* clo ek r */ rc = 3; goto jump; -s_loop_v9061: /* k c p */ +s_loop_v12238: /* k c p */ if ((iseof((r[1])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -9673,11 +10890,11 @@ s_loop_v9061: /* k c p */ /* r[0] */ r[1] = r[3]; /* r[2] */ - goto s_loop_v9061; + goto s_loop_v12238; } } -case 324: /* clo ek . */ +case 334: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -9694,7 +10911,7 @@ case 324: /* clo ek . */ rc = 3; goto jump; -case 325: /* clo ek r */ +case 335: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9720,7 +10937,7 @@ case 325: /* clo ek r */ rc = 3; goto jump; -case 326: /* clo ek r */ +case 336: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -9746,24 +10963,24 @@ case 326: /* clo ek r */ rc = 3; goto jump; -case 327: /* clo k l */ +case 337: /* 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_v9032: /* k l sub-read-strsym-char-escape p */ +s_loop_v12209: /* k l sub-read-strsym-char-escape p */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(327); + *--hp = obj_from_case(337); r[4] = (hendblk(2+1)); { int c = iportgetc((r[3])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[5])))) { r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231264); + r[6+2] = (cx__231562); r[6+3] = (mksymbol(internsym("port:"))); r[6+4] = (r[3]); r += 6; /* shift reg wnd */ @@ -9776,7 +10993,7 @@ s_loop_v9032: /* k l sub-read-strsym-char-escape p */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(328); + *--hp = obj_from_case(338); r[6] = (hendblk(3+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; @@ -9793,13 +11010,13 @@ s_loop_v9032: /* k l sub-read-strsym-char-escape p */ 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 v11370_tmp; + { fixnum_t v14722_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11370_tmp = (n); } + v14722_tmp = (n); } { /* list->string */ - int i, c = (v11370_tmp); + int i, c = (v14722_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -9824,12 +11041,12 @@ s_loop_v9032: /* k l sub-read-strsym-char-escape p */ r[1] = r[6]; /* r[2] */ /* r[3] */ - goto s_loop_v9032; + goto s_loop_v12209; } } } -case 328: /* clo ek r */ +case 338: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9856,24 +11073,24 @@ case 328: /* clo ek r */ rc = 3; goto jump; -case 329: /* clo k l */ +case 339: /* 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_v9021: /* k l sub-read-strsym-char-escape p */ +s_loop_v12198: /* k l sub-read-strsym-char-escape p */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(329); + *--hp = obj_from_case(339); r[4] = (hendblk(2+1)); { int c = iportgetc((r[3])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[5])))) { r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231606); + r[6+2] = (cx__231818); r[6+3] = (mksymbol(internsym("port:"))); r[6+4] = (r[3]); r += 6; /* shift reg wnd */ @@ -9886,7 +11103,7 @@ s_loop_v9021: /* k l sub-read-strsym-char-escape p */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(330); + *--hp = obj_from_case(340); r[6] = (hendblk(3+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; @@ -9903,13 +11120,13 @@ s_loop_v9021: /* k l sub-read-strsym-char-escape p */ 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 v11369_tmp; + { fixnum_t v14721_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11369_tmp = (n); } + v14721_tmp = (n); } { /* list->string */ - int i, c = (v11369_tmp); + int i, c = (v14721_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -9935,12 +11152,12 @@ s_loop_v9021: /* k l sub-read-strsym-char-escape p */ r[1] = r[6]; /* r[2] */ /* r[3] */ - goto s_loop_v9021; + goto s_loop_v12198; } } } -case 330: /* clo ek r */ +case 340: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9967,7 +11184,7 @@ case 330: /* clo ek r */ rc = 3; goto jump; -case 331: /* clo ek r */ +case 341: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -9995,7 +11212,7 @@ case 331: /* clo ek r */ r[4+0] = (cx_read_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; - r[4+2] = (cx__231567); + r[4+2] = (cx__231791); r[4+3] = r[1]; r[4+4] = (mksymbol(internsym("port:"))); r[4+5] = (r[2]); @@ -10006,7 +11223,7 @@ case 331: /* clo ek r */ } } -case 332: /* clo ek r */ +case 342: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -10026,7 +11243,7 @@ case 332: /* clo ek r */ rc = 3; goto jump; -case 333: /* clo ek . */ +case 343: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10043,22 +11260,22 @@ case 333: /* clo ek . */ rc = 3; goto jump; -case 334: /* clo k */ +case 344: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } r += 1; /* shift reg. wnd */ -s_recur_v8994: /* k p */ +s_recur_v12171: /* k p */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[1]; - *--hp = obj_from_case(334); + *--hp = obj_from_case(344); r[2] = (hendblk(1+1)); { int c = iportgetc((r[1])); r[3] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[3])))) { r[4+0] = (cx_read_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; - r[4+2] = (cx__231522); + r[4+2] = (cx__231770); r[4+3] = (mksymbol(internsym("port:"))); r[4+4] = (r[1]); r += 4; /* shift reg wnd */ @@ -10072,7 +11289,7 @@ s_recur_v8994: /* k p */ r[5+0] = (cx_read_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; - r[5+2] = (cx__231522); + r[5+2] = (cx__231770); r[5+3] = (mksymbol(internsym("port:"))); r[5+4] = (r[1]); r += 5; /* shift reg wnd */ @@ -10093,7 +11310,7 @@ s_recur_v8994: /* k p */ } else { /* r[0] */ /* r[1] */ - goto s_recur_v8994; + goto s_recur_v12171; } } } else { @@ -10103,7 +11320,7 @@ s_recur_v8994: /* k p */ r[5+0] = (cx_read_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; - r[5+2] = (cx__231522); + r[5+2] = (cx__231770); r[5+3] = (mksymbol(internsym("port:"))); r[5+4] = (r[1]); r += 5; /* shift reg wnd */ @@ -10116,26 +11333,26 @@ s_recur_v8994: /* k p */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(335); + *--hp = obj_from_case(345); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ - goto s_recur_v8994; + goto s_recur_v12171; } else { /* r[0] */ /* r[1] */ - goto s_recur_v8994; + goto s_recur_v12171; } } } else { /* r[0] */ /* r[1] */ - goto s_recur_v8994; + goto s_recur_v12171; } } } -case 335: /* clo ek . */ +case 345: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10150,7 +11367,7 @@ case 335: /* clo ek . */ rc = 2; goto jump; -case 336: /* clo ek . */ +case 346: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10167,19 +11384,19 @@ case 336: /* clo ek . */ rc = 3; goto jump; -case 337: /* clo ek r */ +case 347: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ - { fixnum_t v11368_tmp; + { fixnum_t v14720_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11368_tmp = (n); } + v14720_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v11368_tmp); + obj l; int i, c = (v14720_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); @@ -10194,20 +11411,20 @@ case 337: /* clo ek r */ rc = 3; goto jump; -case 338: /* clo ek r */ +case 348: /* clo 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 v11367_tmp; + { fixnum_t v14719_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11367_tmp = (n); } + v14719_tmp = (n); } { /* list->bytevector */ - int i, c = (v11367_tmp); - obj o = hpushu8v(3, allocbytevector(c, 0)); /* 3 live regs */ + int i, c = (v14719_tmp); + obj o = hpushu8v(3, allocbytevector(c)); /* 3 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = bytevectorbytes(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l)); @@ -10221,7 +11438,7 @@ case 338: /* clo ek r */ rc = 3; goto jump; -case 339: /* clo ek r */ +case 349: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10249,7 +11466,7 @@ case 339: /* clo ek r */ goto jump; } -case 340: /* clo ek r */ +case 350: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10257,10 +11474,10 @@ case 340: /* clo ek r */ r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r p k c */ - { fixnum_t v11366_a; + { fixnum_t v14718_a; r[5] = (hpushstr(5, newstring(symbolname(getsymbol((r[1])))))); - v11366_a = (stringlen((r[5]))); - r[5] = obj_from_bool((v11366_a) == (+1)); } + v14718_a = (stringlen((r[5]))); + r[5] = obj_from_bool((v14718_a) == (+1)); } if (bool_from_obj(r[5])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -10372,7 +11589,7 @@ case 340: /* clo ek r */ r[5+0] = (cx_read_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; - r[5+2] = (cx__231442); + r[5+2] = (cx__231704); r[5+3] = r[1]; r[5+4] = (mksymbol(internsym("port:"))); r[5+5] = (r[2]); @@ -10393,7 +11610,7 @@ case 340: /* clo ek r */ } } -case 341: /* clo ek . */ +case 351: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10402,21 +11619,21 @@ case 341: /* clo ek . */ r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ -s_l_v8938: /* ek . sub-read-carefully shared p k */ +s_l_v12115: /* ek . sub-read-carefully shared p k */ r[0] = r[5]; r[1] = (mknull()); /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v8939; + goto s_loop_v12116; -s_loop_v8939: /* k l sub-read-carefully shared p */ +s_loop_v12116: /* k l sub-read-carefully shared p */ { int c = iportgetc((r[4])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[5])))) { r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231430); + r[6+2] = (cx__231692); r[6+3] = (mksymbol(internsym("port:"))); r[6+4] = (r[4]); r += 6; /* shift reg wnd */ @@ -10436,20 +11653,20 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ /* r[2] */ /* r[3] */ /* r[4] */ - goto s_loop_v8939; + goto s_loop_v12116; } else { if ((char_from_obj(r[5]) == ('#'))) { { /* reverse! */ obj t, v = mknull(), l = r[1]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[6] = (v); } - { fixnum_t v11365_tmp; + { fixnum_t v14717_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11365_tmp = (n); } + v14717_tmp = (n); } { /* list->string */ - int i, c = (v11365_tmp); + int i, c = (v14717_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -10487,7 +11704,7 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ r[9+1] = r[0]; r[9+2] = r[6]; r[9+3] = (mksymbol(internsym("port:"))); - r[9+4] = (cx__231423); + r[9+4] = (cx__231687); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; @@ -10499,13 +11716,13 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ 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 v11364_tmp; + { fixnum_t v14716_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11364_tmp = (n); } + v14716_tmp = (n); } { /* list->string */ - int i, c = (v11364_tmp); + int i, c = (v14716_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -10527,7 +11744,7 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ *--hp = r[6]; *--hp = r[4]; *--hp = r[2]; - *--hp = obj_from_case(342); + *--hp = obj_from_case(352); r[8] = (hendblk(6+1)); if ((!(is_fixnum_obj(r[7])))) { r[0] = (cx_read_2Derror); @@ -10535,7 +11752,7 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ r[1] = r[8]; r[2] = r[6]; r[3] = (mksymbol(internsym("port:"))); - r[4] = (cx__231406); + r[4] = (cx__231674); rreserve(MAX_HOSTREGS); rc = 5; goto jump; @@ -10551,7 +11768,7 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ r[1] = r[8]; r[2] = r[7]; r[3] = (mksymbol(internsym("port:"))); - r[4] = (cx__231403); + r[4] = (cx__231671); rreserve(MAX_HOSTREGS); rc = 5; goto jump; @@ -10566,14 +11783,14 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ r[9+7] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_l_v8941; + goto s_l_v12118; } } } else { r[6+0] = (cx_read_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; - r[6+2] = (cx__231383); + r[6+2] = (cx__231653); r[6+3] = (mksymbol(internsym("port:"))); r[6+4] = (r[4]); r += 6; /* shift reg wnd */ @@ -10585,7 +11802,7 @@ s_loop_v8939: /* k l sub-read-carefully shared p */ } } -case 342: /* clo ek . */ +case 352: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10596,7 +11813,7 @@ case 342: /* clo ek . */ r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ -s_l_v8941: /* ek . sub-read-carefully p s k n shared */ +s_l_v12118: /* ek . sub-read-carefully p s k n shared */ { /* box */ hreserve(hbsz(2), 8); /* 8 live regs */ *--hp = obj_from_bool(0); @@ -10605,7 +11822,7 @@ s_l_v8941: /* ek . sub-read-carefully p s k n shared */ r[9] = (objptr_from_obj(r[7])[0]); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[8]; - *--hp = obj_from_case(343); + *--hp = obj_from_case(353); r[10] = (hendblk(1+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ @@ -10624,7 +11841,7 @@ s_l_v8941: /* ek . sub-read-carefully p s k n shared */ *--hp = r[5]; *--hp = r[4]; *--hp = r[8]; - *--hp = obj_from_case(344); + *--hp = obj_from_case(354); r[9] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; @@ -10634,7 +11851,7 @@ s_l_v8941: /* ek . sub-read-carefully p s k n shared */ rc = 3; goto jump; -case 343: /* clo k */ +case 353: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -10649,7 +11866,7 @@ case 343: /* clo k */ rc = 3; goto jump; -case 344: /* clo ek r */ +case 354: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10663,7 +11880,7 @@ case 344: /* clo ek r */ r[1] = r[4]; r[2] = r[3]; r[3] = (mksymbol(internsym("port:"))); - r[4] = (cx__231397); + r[4] = (cx__231665); rreserve(MAX_HOSTREGS); rc = 5; goto jump; @@ -10680,7 +11897,7 @@ case 344: /* clo ek r */ goto jump; } -case 345: /* clo k p */ +case 355: /* clo k p */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10699,7 +11916,7 @@ s_sub_2Dread_2Dcarefully: /* k p dot simple? shared char-delimiter? sub-read-x-c *--hp = r[0]; *--hp = r[1]; *--hp = (r[11]); - *--hp = obj_from_case(346); + *--hp = obj_from_case(356); r[12] = (hendblk(3+1)); r[0] = (r[12]); /* r[1] */ @@ -10715,7 +11932,7 @@ s_sub_2Dread_2Dcarefully: /* k p dot simple? shared char-delimiter? sub-read-x-c r[11] = (r[11]); goto s_sub_2Dread; -case 346: /* clo ek r */ +case 356: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10727,7 +11944,7 @@ case 346: /* clo ek r */ r[5+0] = (cx_read_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__231693); + r[5+2] = (cx__231875); r[5+3] = (mksymbol(internsym("port:"))); r[5+4] = (r[3]); r += 5; /* shift reg wnd */ @@ -10739,7 +11956,7 @@ case 346: /* clo ek r */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; - *--hp = obj_from_case(347); + *--hp = obj_from_case(357); r[5] = (hendblk(3+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; @@ -10751,7 +11968,7 @@ case 346: /* clo ek r */ goto jump; } -case 347: /* clo ek r */ +case 357: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10763,7 +11980,7 @@ case 347: /* clo ek r */ r[5+0] = (cx_read_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; - r[5+2] = (cx__231692); + r[5+2] = (cx__231874); r[5+3] = (cdr((r[3]))); r[5+4] = (mksymbol(internsym("port:"))); r[5+5] = (r[2]); @@ -10781,20 +11998,20 @@ case 347: /* clo ek r */ goto jump; } -case 348: /* clo k form */ +case 358: /* clo k form */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k form */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(349); + *--hp = obj_from_case(359); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto s_patch_2Dshared_21; -case 349: /* clo ek . */ +case 359: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10810,15 +12027,15 @@ case 349: /* clo ek . */ rc = 3; goto jump; -case 350: /* clo k form */ +case 360: /* clo k form */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_patch_2Dshared_21: /* k form */ hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(358); + *--hp = obj_from_case(368); r[2] = (hendblk(0+1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(350); + *--hp = obj_from_case(360); r[3] = (hendblk(0+1)); if ((ispair((r[1])))) { hreserve(hbsz(4+1), 4); /* 4 live regs */ @@ -10826,7 +12043,7 @@ s_patch_2Dshared_21: /* k form */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; - *--hp = obj_from_case(351); + *--hp = obj_from_case(361); r[4] = (hendblk(4+1)); r[5] = (car((r[1]))); r[5] = obj_from_bool(isprocedure((r[5]))); @@ -10835,7 +12052,7 @@ s_patch_2Dshared_21: /* k form */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(353); + *--hp = obj_from_case(363); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[5]; @@ -10855,7 +12072,7 @@ s_patch_2Dshared_21: /* k form */ r[4+4] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v8833; + goto s_loop_v12010; } else { if ((isbox((r[1])))) { r[4] = (boxref((r[1]))); @@ -10865,7 +12082,7 @@ s_patch_2Dshared_21: /* k form */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(357); + *--hp = obj_from_case(367); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; @@ -10888,7 +12105,7 @@ s_patch_2Dshared_21: /* k form */ } } -case 351: /* clo ek . */ +case 361: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -10904,7 +12121,7 @@ case 351: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; - *--hp = obj_from_case(352); + *--hp = obj_from_case(362); r[6] = (hendblk(2+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -10923,7 +12140,7 @@ case 351: /* clo ek . */ goto jump; } -case 352: /* clo ek r */ +case 362: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10939,7 +12156,7 @@ case 352: /* clo ek r */ rc = 3; goto jump; -case 353: /* clo ek r */ +case 363: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -10955,34 +12172,34 @@ case 353: /* clo ek r */ rc = 3; goto jump; -case 354: /* clo k i */ +case 364: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ -s_loop_v8833: /* k i patch-shared! patch-ref! form */ +s_loop_v12010: /* k i patch-shared! patch-ref! form */ if ((fixnum_from_obj(r[1]) < (vectorlen((r[4]))))) { r[5] = (vectorref((r[4]), fixnum_from_obj(r[1]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(354); + *--hp = obj_from_case(364); r[6] = (hendblk(3+1)); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; - *--hp = obj_from_case(355); + *--hp = obj_from_case(365); r[6] = (hendblk(3+1)); if ((isprocedure((r[5])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[6]; - *--hp = obj_from_case(356); + *--hp = obj_from_case(366); r[7] = (hendblk(3+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; @@ -11010,7 +12227,7 @@ s_loop_v8833: /* k i patch-shared! patch-ref! form */ goto jump; } -case 355: /* clo ek . */ +case 365: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -11027,7 +12244,7 @@ case 355: /* clo ek . */ rc = 3; goto jump; -case 356: /* clo ek r */ +case 366: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11044,7 +12261,7 @@ case 356: /* clo ek r */ rc = 3; goto jump; -case 357: /* clo ek r */ +case 367: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11060,18 +12277,18 @@ case 357: /* clo ek r */ rc = 3; goto jump; -case 358: /* clo k form */ +case 368: /* clo k form */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_patch_2Dref_21: /* k form */ if ((isprocedure((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(358); + *--hp = obj_from_case(368); r[2] = (hendblk(0+1)); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(359); + *--hp = obj_from_case(369); r[2] = (hendblk(2+1)); r[3+0] = r[1]; pc = objptr_from_obj(r[3+0])[0]; @@ -11091,7 +12308,7 @@ s_patch_2Dref_21: /* k form */ goto jump; } -case 359: /* clo ek r */ +case 369: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11107,18 +12324,7 @@ case 359: /* clo ek r */ rc = 3; goto jump; -case 360: /* %residual-get-datum k p */ - assert(rc == 3); - r += 1; /* shift reg. wnd */ - /* k p */ - r[2+0] = r[0]; - r[2+1] = r[1]; - r[2+2] = obj_from_bool(0); - r += 2; /* shift reg wnd */ - rreserve(MAX_HOSTREGS); - goto gs__25read; - -case 361: /* %residual-file-exists? k fn */ +case 370: /* file-exists? k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k fn */ @@ -11135,46 +12341,70 @@ case 361: /* %residual-file-exists? k fn */ rc = 3; goto jump; -case 362: /* %residual-delete-file k fn */ +case 371: /* 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 */ + if (bool_from_obj(r[2])) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; + } else { + r[2+0] = (cx_file_2Derror); + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = r[0]; + r[2+2] = (cx__232056); + r[2+3] = r[1]; + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + } -case 363: /* %residual-rename-file k fnold fnnew */ +case 372: /* rename-file k fnold fnnew */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k fnold fnnew */ { /* rename-file */ int res = rename(stringchars((r[1])), stringchars((r[2]))); r[3] = obj_from_bool(res == 0); } - 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 */ + if (bool_from_obj(r[3])) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; + } else { + r[3+0] = (cx_file_2Derror); + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = r[0]; + r[3+2] = (cx__232060); + r[3+3] = r[1]; + r[3+4] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + } -case 364: /* %residual-call-with-values k producer consumer */ +case 373: /* %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(365); + *--hp = obj_from_case(374); r[3] = (hendblk(2+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -11190,7 +12420,7 @@ case 364: /* %residual-call-with-values k producer consumer */ rc = 2; goto jump; -case 365: /* clo k results */ +case 374: /* clo k results */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11210,7 +12440,7 @@ case 365: /* clo k results */ rc = 4; goto jump; -case 366: /* call-with-current-continuation k proc */ +case 375: /* call-with-current-continuation k proc */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_call_2Dwith_2Dcurrent_2Dcontinuation: /* k proc */ @@ -11218,7 +12448,7 @@ gs_call_2Dwith_2Dcurrent_2Dcontinuation: /* k proc */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(367); + *--hp = obj_from_case(376); r[3] = (hendblk(2+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -11235,7 +12465,7 @@ gs_call_2Dwith_2Dcurrent_2Dcontinuation: /* k proc */ rc = 3; goto jump; -case 367: /* clo k results */ +case 376: /* clo k results */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11246,13 +12476,13 @@ case 367: /* clo k results */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(368); + *--hp = obj_from_case(377); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; goto gs_dynamic_2Dstate_2Dreroot_21; -case 368: /* clo ek . */ +case 377: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -11274,7 +12504,7 @@ case 368: /* clo ek . */ rc = 4; goto jump; -case 369: /* dynamic-wind k before during after */ +case 378: /* dynamic-wind k before during after */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_dynamic_2Dwind: /* k before during after */ @@ -11283,7 +12513,7 @@ gs_dynamic_2Dwind: /* k before during after */ *--hp = r[4]; *--hp = r[0]; *--hp = r[2]; - *--hp = obj_from_case(370); + *--hp = obj_from_case(379); r[5] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ @@ -11301,7 +12531,7 @@ gs_dynamic_2Dwind: /* k before during after */ r[1] = r[6]; goto gs_dynamic_2Dstate_2Dreroot_21; -case 370: /* clo ek . */ +case 379: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -11312,7 +12542,7 @@ case 370: /* clo ek . */ /* ek . during k here */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; - *--hp = obj_from_case(371); + *--hp = obj_from_case(380); r[5] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 6); /* 6 live regs */ @@ -11323,7 +12553,7 @@ case 370: /* clo ek . */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; - *--hp = obj_from_case(373); + *--hp = obj_from_case(382); r[6] = (hendblk(2+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 7); /* 7 live regs */ @@ -11338,7 +12568,7 @@ case 370: /* clo ek . */ rc = 2; goto jump; -case 371: /* clo k results */ +case 380: /* clo k results */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11347,13 +12577,13 @@ case 371: /* clo k results */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(372); + *--hp = obj_from_case(381); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto gs_dynamic_2Dstate_2Dreroot_21; -case 372: /* clo ek . */ +case 381: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -11374,7 +12604,7 @@ case 372: /* clo ek . */ rc = 4; goto jump; -case 373: /* clo k results */ +case 382: /* clo k results */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -11394,17 +12624,17 @@ case 373: /* clo k results */ rc = 4; goto jump; -case 374: /* dynamic-state-reroot! k there */ +case 383: /* dynamic-state-reroot! k there */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_dynamic_2Dstate_2Dreroot_21: /* k there */ - { const bool_t v11363_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1])); - r[2] = obj_from_bool(!(v11363_tmp)); } + { const bool_t v14715_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1])); + r[2] = obj_from_bool(!(v14715_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(375); + *--hp = obj_from_case(384); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cdr((r[1]))); @@ -11420,7 +12650,7 @@ gs_dynamic_2Dstate_2Dreroot_21: /* k there */ goto jump; } -case 375: /* clo ek . */ +case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -11450,17 +12680,16 @@ case 375: /* clo ek . */ rc = 2; goto jump; -case 376: /* error-object k kind message irritants */ +case 385: /* error-object k kind message irritants */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_error_2Dobject: /* k kind message irritants */ { /* make-record */ - int i = 0, c = (+3); - hreserve(hbsz(c+2), 4); /* 4 live regs */ - while (i++ < c) *--hp = obj_from_bool(0); - *--hp = (cx__3Cerror_2Dobject_3E); /* gc-safe */ - *--hp = obj_from_size(RECORD_BTAG); - r[4] = (hendblk(c+2)); } + int c = (+3); + hreserve(hbsz(c+1), 4); /* 4 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = (cx__3Cerror_2Dobject_3E); assert(isobjptr(*hp)); + r[4] = (hendblk(c+1)); } (void)(recordref((r[4]), (+0)) = (r[1])); (void)(recordref((r[4]), (+1)) = (r[2])); (void)(recordref((r[4]), (+2)) = (r[3])); @@ -11474,7 +12703,7 @@ gs_error_2Dobject: /* k kind message irritants */ rc = 3; goto jump; -case 377: /* error-object? k obj */ +case 386: /* error-object? k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -11491,7 +12720,7 @@ case 377: /* error-object? k obj */ rc = 3; goto jump; -case 378: /* error-object-kind k obj */ +case 387: /* error-object-kind k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -11504,7 +12733,7 @@ case 378: /* error-object-kind k obj */ rc = 3; goto jump; -case 379: /* error-object-message k obj */ +case 388: /* error-object-message k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -11517,7 +12746,7 @@ case 379: /* error-object-message k obj */ rc = 3; goto jump; -case 380: /* error-object-irritants k obj */ +case 389: /* error-object-irritants k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -11530,13 +12759,13 @@ case 380: /* error-object-irritants k obj */ rc = 3; goto jump; -case 381: /* clo k msg args */ +case 390: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(382); + *--hp = obj_from_case(391); r[3] = (hendblk(1+1)); r[4+0] = r[3]; r[4+1] = obj_from_bool(0); @@ -11546,7 +12775,7 @@ case 381: /* clo k msg args */ rreserve(MAX_HOSTREGS); goto gs_error_2Dobject; -case 382: /* clo ek r */ +case 391: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -11556,19 +12785,19 @@ case 382: /* clo ek r */ /* r[1] */ goto gs_raise; -case 383: /* clo ek r */ +case 392: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_current_2Dexception_2Dhandler = r[1]; - { static obj c[] = { obj_from_case(384) }; cx_with_2Dexception_2Dhandler = (obj)c; } - { static obj c[] = { obj_from_case(393) }; cx_raise = (obj)c; } - { static obj c[] = { obj_from_case(403) }; cx_raise_2Dcontinuable = (obj)c; } - { static obj c[] = { obj_from_case(411) }; cx__25residual_2Dabort = (obj)c; } - { static obj c[] = { obj_from_case(412) }; cx_reset = (obj)c; } - { static obj c[] = { obj_from_case(413) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; } + { static obj c[] = { obj_from_case(393) }; cx_with_2Dexception_2Dhandler = (obj)c; } + { static obj c[] = { obj_from_case(402) }; cx_raise = (obj)c; } + { static obj c[] = { obj_from_case(412) }; cx_raise_2Dcontinuable = (obj)c; } + { static obj c[] = { obj_from_case(420) }; cx__25residual_2Dabort = (obj)c; } + { static obj c[] = { obj_from_case(421) }; cx_reset = (obj)c; } + { static obj c[] = { obj_from_case(422) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(414); + *--hp = obj_from_case(423); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -11576,9 +12805,9 @@ case 383: /* clo ek r */ *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_read_2Derror = (hendblk(3)); } - { static obj c[] = { obj_from_case(416) }; cx_read_2Derror_3F = (obj)c; } + { static obj c[] = { obj_from_case(425) }; cx_read_2Derror_3F = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(417); + *--hp = obj_from_case(426); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ @@ -11586,476 +12815,565 @@ case 383: /* clo ek r */ *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_file_2Derror = (hendblk(3)); } - { static obj c[] = { obj_from_case(419) }; cx_file_2Derror_3F = (obj)c; } - { static obj c[] = { obj_from_case(420) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; } - { static obj c[] = { obj_from_case(421) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; } - { static obj c[] = { obj_from_case(422) }; cx__25residual_2Dcurrent_2Dsecond = (obj)c; } - { static obj c[] = { obj_from_case(423) }; cx__25residual_2Dargv_2Dref = (obj)c; } - { static obj c[] = { obj_from_case(424) }; cx_command_2Dline = (obj)c; } - { static obj c[] = { obj_from_case(425) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; } - { static obj c[] = { obj_from_case(426) }; cx__25residual_2Dsystem = (obj)c; } - { static obj c[] = { obj_from_case(427) }; cx__25residual_2Dmake_2Drectangular = (obj)c; } - { static obj c[] = { obj_from_case(428) }; cx__25residual_2Dmake_2Dpolar = (obj)c; } - { static obj c[] = { obj_from_case(429) }; cx__25residual_2Dreal_2Dpart = (obj)c; } - { static obj c[] = { obj_from_case(430) }; cx__25residual_2Dimag_2Dpart = (obj)c; } - { static obj c[] = { obj_from_case(431) }; cx__25residual_2Dmagnitude = (obj)c; } - { static obj c[] = { obj_from_case(432) }; cx__25residual_2Dangle = (obj)c; } - { static obj c[] = { obj_from_case(433) }; cx_truncate_2F = (obj)c; } - { static obj c[] = { obj_from_case(435) }; cx_floor_2F = (obj)c; } - { static obj c[] = { obj_from_case(437) }; cx_exact_2Dinteger_2Dsqrt = (obj)c; } - { static obj c[] = { obj_from_case(439) }; cx_call_2Dwith_2Dport = (obj)c; } + { static obj c[] = { obj_from_case(428) }; cx_file_2Derror_3F = (obj)c; } + { static obj c[] = { obj_from_case(429) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; } + { static obj c[] = { obj_from_case(430) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; } + { static obj c[] = { obj_from_case(431) }; cx__25residual_2Dcurrent_2Dsecond = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(442); + *--hp = obj_from_case(432); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dvalues = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(444); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[2] = (hendblk(3)); } + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(433); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(434); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[3]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = r[4]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+4); + cx_emergency_2Dexit = (hendblk(12+1)); } + r[2] = (cx__2Acurrent_2Ddynamic_2Dstate_2A); + hreserve(hbsz(1+1), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_case(435); + r[3] = (hendblk(1+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(445); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_3C_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(446); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_3E_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(447); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_3C_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(448); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_3E_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(449); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(450); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_3C_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(451); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_3E_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(452); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_3C_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(453); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_3E_3D_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(454); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_3D = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(455); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_3C = (hendblk(3)); } + cx_exit = (hendblk(3)); } + { static obj c[] = { obj_from_case(437) }; cx__25residual_2Dargv_2Dref = (obj)c; } + { static obj c[] = { obj_from_case(438) }; cx_command_2Dline = (obj)c; } + { static obj c[] = { obj_from_case(439) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; } + { static obj c[] = { obj_from_case(440) }; cx__25residual_2Dsystem = (obj)c; } + { static obj c[] = { obj_from_case(441) }; cx__25residual_2Dmake_2Drectangular = (obj)c; } + { static obj c[] = { obj_from_case(442) }; cx__25residual_2Dmake_2Dpolar = (obj)c; } + { static obj c[] = { obj_from_case(443) }; cx__25residual_2Dreal_2Dpart = (obj)c; } + { static obj c[] = { obj_from_case(444) }; cx__25residual_2Dimag_2Dpart = (obj)c; } + { static obj c[] = { obj_from_case(445) }; cx__25residual_2Dmagnitude = (obj)c; } + { static obj c[] = { obj_from_case(446) }; cx__25residual_2Dangle = (obj)c; } + { static obj c[] = { obj_from_case(447) }; cx_truncate_2F = (obj)c; } + { static obj c[] = { obj_from_case(449) }; cx_floor_2F = (obj)c; } + { static obj c[] = { obj_from_case(451) }; cx_exact_2Dinteger_2Dsqrt = (obj)c; } + { static obj c[] = { obj_from_case(453) }; cx_call_2Dwith_2Dport = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(456); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_3E = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(457); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_3C_3D = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(458); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_3E_3D = (hendblk(3)); } + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_string_2D_3Elist = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(459); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfxmax = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(460); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfxmin = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(461); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dflmax = (hendblk(3)); } + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_string_2Dcopy = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(462); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dflmin = (hendblk(3)); } - { static obj c[] = { obj_from_case(463) }; cx__25residual_2Dmax_2F2 = (obj)c; } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(463); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(464); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmax = (hendblk(3)); } - { static obj c[] = { obj_from_case(467) }; cx__25residual_2Dmin_2F2 = (obj)c; } + *--hp = obj_from_fixnum(+5); + *--hp = obj_from_fixnum(+5); + *--hp = r[3]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[4]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_objptr(appcases+4); + cx_string_2Dcopy_21 = (hendblk(12+1)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(465); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(466); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(467); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[3]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[4]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+4); + cx_string_2Dfill_21 = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(468); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(469); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(470); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmin = (hendblk(3)); } + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_vector_2D_3Elist = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(471); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_2B = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(472); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_2A = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(473); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_2B = (hendblk(3)); } + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_vector_2D_3Estring = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(474); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_2A = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(475); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2B = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(476); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2A = (hendblk(3)); } + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_string_2D_3Evector = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(477); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dgcd = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(478); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(479); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dlcm = (hendblk(3)); } + *--hp = r[2]; + *--hp = obj_from_fixnum(+5); + *--hp = obj_from_fixnum(+5); + *--hp = r[3]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[4]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_objptr(appcases+4); + cx_vector_2Dcopy_21 = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(480); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(481); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_2D = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(482); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfx_2F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(483); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_2D = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(484); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfl_2F = (hendblk(3)); } + *--hp = obj_from_objptr(appcases+4); + cx_vector_2Dcopy = (hendblk(12+1)); } + { static obj c[] = { obj_from_case(483) }; cx__25vectors_2Dsum_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(484) }; cx__25vectors_2Dcopy_2Dinto_21 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(485); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2D = (hendblk(3)); } + cx_vector_2Dappend = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(486); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(487); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dlog = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(488); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dflatan = (hendblk(3)); } + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[3]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[4]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+4); + cx_vector_2Dfill_21 = (hendblk(12+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(489); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Datan = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(490); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(491); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; *--hp = obj_from_fixnum(+2); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmap = (hendblk(3)); } + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_bytevector_2D_3Elist = (hendblk(12+1)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(492); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(493); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(494); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+5); + *--hp = obj_from_fixnum(+5); + *--hp = r[3]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[4]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_objptr(appcases+4); + cx_bytevector_2Dcopy_21 = (hendblk(12+1)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(495); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(496); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(497); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_bytevector_2Dcopy = (hendblk(12+1)); } + { static obj c[] = { obj_from_case(498) }; cx__25bytevectors_2Dsum_2Dlength = (obj)c; } + { static obj c[] = { obj_from_case(499) }; cx__25bytevectors_2Dcopy_2Dinto_21 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(500); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx_bytevector_2Dappend = (hendblk(3)); } + { static obj c[] = { obj_from_case(501) }; cx_subutf8_2D_3Estring = (obj)c; } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(502); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(503); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(504); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; *--hp = obj_from_fixnum(+2); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dfor_2Deach = (hendblk(3)); } + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_utf8_2D_3Estring = (hendblk(12+1)); } + { static obj c[] = { obj_from_case(505) }; cx_substring_2D_3Eutf8 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(506); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(507); + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ + *--hp = obj_from_case(508); + r[4] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(12+1), 5); /* 5 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[3]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[4]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_string_2D_3Eutf8 = (hendblk(12+1)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(509); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(510); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmake_2Dstring = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(511); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dstring = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[4] = (hendblk(0+1)); + hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(512); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[5] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(15+1), 6); /* 6 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dstring_2Dappend = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(514); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[3]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[4]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[5]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmake_2Dvector = (hendblk(3)); } + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_read_2Dstring_21 = (hendblk(15+1)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(513); + r[2] = (hendblk(0+1)); + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(514); + r[3] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(9+1), 4); /* 4 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[3]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_read_2Dstring = (hendblk(9+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(515); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dvector = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(516); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmake_2Dbytevector = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[3] = (hendblk(0+1)); + hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(517); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dbytevector = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ + r[4] = (hendblk(0+1)); + hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(518); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; + r[5] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(15+1), 6); /* 6 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dlist = (hendblk(3)); } + *--hp = r[2]; + *--hp = obj_from_fixnum(+4); + *--hp = obj_from_fixnum(+4); + *--hp = r[3]; + *--hp = obj_from_fixnum(+3); + *--hp = obj_from_fixnum(+3); + *--hp = r[4]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[5]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_read_2Dbytevector_21 = (hendblk(15+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(519); r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ + hreserve(hbsz(0+1), 3); /* 3 live regs */ + *--hp = obj_from_case(520); + r[3] = (hendblk(0+1)); + { /* make-case-lambda */ + hreserve(hbsz(9+1), 4); /* 4 live regs */ + *--hp = (cx__25fail_2Dlambda); + *--hp = obj_from_fixnum(FIXNUM_MAX); + *--hp = obj_from_fixnum(+0); *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_fixnum(+2); + *--hp = r[3]; *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dcons_2A = (hendblk(3)); } + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+4); + cx_read_2Dbytevector = (hendblk(9+1)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(521); r[2] = (hendblk(0+1)); @@ -12064,34 +13382,34 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dappend = (hendblk(3)); } + cx__25residual_2Dvalues = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(523); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Drecord_3F = (hendblk(3)); } + cx__25residual_2Dboolean_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(524); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); } + cx__25residual_2Dfx_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(525); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); } + cx__25residual_2Dfx_3C_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(526); r[2] = (hendblk(0+1)); @@ -12100,7 +13418,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25fail_2Dlambda = (hendblk(3)); } + cx__25residual_2Dfx_3E_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(527); r[2] = (hendblk(0+1)); @@ -12109,7 +13427,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); } + cx__25residual_2Dfx_3C_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(528); r[2] = (hendblk(0+1)); @@ -12118,7 +13436,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dcurrent_2Dinput_2Dport = (hendblk(3)); } + cx__25residual_2Dfx_3E_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(529); r[2] = (hendblk(0+1)); @@ -12127,7 +13445,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dcurrent_2Doutput_2Dport = (hendblk(3)); } + cx__25residual_2Dfl_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(530); r[2] = (hendblk(0+1)); @@ -12136,7 +13454,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dcurrent_2Derror_2Dport = (hendblk(3)); } + cx__25residual_2Dfl_3C_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(531); r[2] = (hendblk(0+1)); @@ -12145,7 +13463,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dread_2Dchar = (hendblk(3)); } + cx__25residual_2Dfl_3E_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(532); r[2] = (hendblk(0+1)); @@ -12154,7 +13472,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dpeek_2Dchar = (hendblk(3)); } + cx__25residual_2Dfl_3C_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(533); r[2] = (hendblk(0+1)); @@ -12163,52 +13481,52 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); } + cx__25residual_2Dfl_3E_3D_3F = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(534); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); } + cx__25residual_3D = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(535); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); } + cx__25residual_3C = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(536); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); } + cx__25residual_3E = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(537); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); } + cx__25residual_3C_3D = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(538); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+1); + *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay_2Doutput_2Dport = (hendblk(3)); } + cx__25residual_3E_3D = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(539); r[2] = (hendblk(0+1)); @@ -12217,7 +13535,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dwrite_2Dchar = (hendblk(3)); } + cx__25residual_2Dfxmax = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(540); r[2] = (hendblk(0+1)); @@ -12226,70 +13544,36 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dwrite_2Dstring = (hendblk(3)); } + cx__25residual_2Dfxmin = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(541); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+0); + *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dnewline = (hendblk(3)); } + cx__25residual_2Dflmax = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(542); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+0); + *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dflush_2Doutput_2Dport = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(543); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dread_2Du8 = (hendblk(3)); } + cx__25residual_2Dflmin = (hendblk(3)); } + { static obj c[] = { obj_from_case(543) }; cx__25residual_2Dmax_2F2 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(544); r[2] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dpeek_2Du8 = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(545); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Du8_2Dready_3F = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(546); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dwrite_2Du8 = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(547); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dwrite_2Dbytevector = (hendblk(3)); } + cx__25residual_2Dmax = (hendblk(3)); } + { static obj c[] = { obj_from_case(547) }; cx__25residual_2Dmin_2F2 = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(548); r[2] = (hendblk(0+1)); @@ -12298,25 +13582,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dwrite = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(549); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+1); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Ddisplay = (hendblk(3)); } - hreserve(hbsz(0+1), 2); /* 2 live regs */ - *--hp = obj_from_case(550); - r[2] = (hendblk(0+1)); - { /* make-improper-lambda */ - hreserve(hbsz(3), 3); /* 3 live regs */ - *--hp = r[2]; - *--hp = obj_from_fixnum(+0); - *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dread = (hendblk(3)); } + cx__25residual_2Dmin = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(551); r[2] = (hendblk(0+1)); @@ -12325,7 +13591,7 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); - cx__25residual_2Dread_2Dsimple = (hendblk(3)); } + cx__25residual_2Dfx_2B = (hendblk(3)); } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(552); r[2] = (hendblk(0+1)); @@ -12334,6 +13600,798 @@ case 383: /* clo ek r */ *--hp = r[2]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfx_2A = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(553); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfl_2B = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(554); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfl_2A = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(555); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2B = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(556); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2A = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(557); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dgcd = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(558); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dlcm = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(561); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfx_2D = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(562); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfx_2F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(563); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfl_2D = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(564); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfl_2F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(565); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2D = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(566); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(567); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dlog = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(568); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dflatan = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(569); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Datan = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(570); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmember = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(571); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dassoc = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(572); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmap = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(582); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dfor_2Deach = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(592); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx_string_2Dmap = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(599); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx_vector_2Dmap = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(606); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx_string_2Dfor_2Deach = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(612); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+2); + *--hp = obj_from_objptr(appcases+1); + cx_vector_2Dfor_2Deach = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(618); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(619); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_3C_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(620); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_3E_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(621); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_3C_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(622); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_3E_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(623); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dci_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(624); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dci_3C_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(625); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dci_3E_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(626); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dci_3C_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(627); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dci_3E_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(628); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmake_2Dstring = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(629); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(630); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dappend = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(632); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(633); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_3C_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(634); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_3E_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(635); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_3C_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(636); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_3E_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(637); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dci_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(638); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dci_3C_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(639); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dci_3E_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(640); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dci_3C_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(641); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2Dci_3E_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(642); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmake_2Dvector = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(643); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dvector = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(644); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmake_2Dbytevector = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(645); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dbytevector = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(646); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dlist = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(647); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmake_2Dlist = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(648); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dcons_2A = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(650); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dappend = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(652); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Drecord_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(653); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(654); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(655); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dsymbol_3D_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(656); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25fail_2Dlambda = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(657); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(658); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dcurrent_2Dinput_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(659); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dcurrent_2Doutput_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(660); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dcurrent_2Derror_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(661); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dread_2Dchar = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(662); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dpeek_2Dchar = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(663); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(664); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dread_2Dline = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(665); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(666); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(667); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(668); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(669); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay_2Doutput_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(670); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Dchar = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(671); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Dstring = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(672); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dnewline = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(673); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dflush_2Doutput_2Dport = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(674); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dread_2Du8 = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(675); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dpeek_2Du8 = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(676); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Du8_2Dready_3F = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(677); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Du8 = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(678); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Dbytevector = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(679); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Dsimple = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(680); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite_2Dshared = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(681); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dwrite = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(682); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+1); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Ddisplay = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(683); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dread = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(684); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); + cx__25residual_2Dread_2Dsimple = (hendblk(3)); } + hreserve(hbsz(0+1), 2); /* 2 live regs */ + *--hp = obj_from_case(685); + r[2] = (hendblk(0+1)); + { /* make-improper-lambda */ + hreserve(hbsz(3), 3); /* 3 live regs */ + *--hp = r[2]; + *--hp = obj_from_fixnum(+0); + *--hp = obj_from_objptr(appcases+1); cx__25residual_2Dexit = (hendblk(3)); } r[2] = obj_from_void(0); r[3+0] = r[0]; @@ -12343,7 +14401,7 @@ case 383: /* clo ek r */ rc = 2; goto jump; -case 384: /* with-exception-handler k handler thunk */ +case 393: /* with-exception-handler k handler thunk */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k handler thunk */ @@ -12351,7 +14409,7 @@ case 384: /* with-exception-handler k handler thunk */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(385); + *--hp = obj_from_case(394); r[3] = (hendblk(3+1)); r[4+0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[4+0])[0]; @@ -12361,7 +14419,7 @@ case 384: /* with-exception-handler k handler thunk */ rc = 2; goto jump; -case 385: /* clo ek r */ +case 394: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12372,15 +14430,15 @@ case 385: /* clo ek r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(386); + *--hp = obj_from_case(395); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(391); + *--hp = obj_from_case(400); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[1]; - *--hp = obj_from_case(392); + *--hp = obj_from_case(401); r[7] = (hendblk(1+1)); { /* make-case-lambda */ hreserve(hbsz(9+1), 8); /* 8 live regs */ @@ -12405,7 +14463,7 @@ case 385: /* clo ek r */ rc = 4; goto jump; -case 386: /* clo ek r */ +case 395: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12416,7 +14474,7 @@ case 386: /* clo ek r */ *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(387); + *--hp = obj_from_case(396); r[4] = (hendblk(3+1)); r[0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[0])[0]; @@ -12425,7 +14483,7 @@ case 386: /* clo ek r */ rc = 2; goto jump; -case 387: /* clo ek r */ +case 396: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12435,15 +14493,15 @@ case 387: /* clo ek r */ /* ek r thunk r k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; - *--hp = obj_from_case(388); + *--hp = obj_from_case(397); r[5] = (hendblk(1+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; - *--hp = obj_from_case(389); + *--hp = obj_from_case(398); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[1]; - *--hp = obj_from_case(390); + *--hp = obj_from_case(399); r[7] = (hendblk(1+1)); r[8+0] = r[4]; r[8+1] = r[5]; @@ -12453,7 +14511,7 @@ case 387: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_dynamic_2Dwind; -case 388: /* clo k */ +case 397: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12469,7 +14527,7 @@ case 388: /* clo k */ rc = 4; goto jump; -case 389: /* clo k */ +case 398: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12483,7 +14541,7 @@ case 389: /* clo k */ rc = 2; goto jump; -case 390: /* clo k */ +case 399: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12499,7 +14557,7 @@ case 390: /* clo k */ rc = 4; goto jump; -case 391: /* clo k obj */ +case 400: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12514,7 +14572,7 @@ case 391: /* clo k obj */ rc = 3; goto jump; -case 392: /* clo k */ +case 401: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12529,14 +14587,14 @@ case 392: /* clo k */ rc = 3; goto jump; -case 393: /* raise k obj */ +case 402: /* raise k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_raise: /* k obj */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(394); + *--hp = obj_from_case(403); r[2] = (hendblk(2+1)); r[3+0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[3+0])[0]; @@ -12546,7 +14604,7 @@ gs_raise: /* k obj */ rc = 2; goto jump; -case 394: /* clo ek r */ +case 403: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12557,7 +14615,7 @@ case 394: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(395); + *--hp = obj_from_case(404); r[4] = (hendblk(3+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -12566,7 +14624,7 @@ case 394: /* clo ek r */ rc = 2; goto jump; -case 395: /* clo ek r */ +case 404: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12578,7 +14636,7 @@ case 395: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(396); + *--hp = obj_from_case(405); r[5] = (hendblk(3+1)); r[6+0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[6+0])[0]; @@ -12590,7 +14648,7 @@ case 395: /* clo ek r */ rc = 4; goto jump; -case 396: /* clo ek r */ +case 405: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12603,7 +14661,7 @@ case 396: /* clo ek r */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(397); + *--hp = obj_from_case(406); r[5] = (hendblk(4+1)); r[0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[0])[0]; @@ -12612,7 +14670,7 @@ case 396: /* clo ek r */ rc = 2; goto jump; -case 397: /* clo ek r */ +case 406: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12623,16 +14681,16 @@ case 397: /* clo ek r */ /* ek r r obj r k */ hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; - *--hp = obj_from_case(398); + *--hp = obj_from_case(407); r[6] = (hendblk(1+1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(399); + *--hp = obj_from_case(408); r[7] = (hendblk(2+1)); hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[1]; - *--hp = obj_from_case(402); + *--hp = obj_from_case(411); r[8] = (hendblk(1+1)); r[9+0] = r[5]; r[9+1] = r[6]; @@ -12642,7 +14700,7 @@ case 397: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_dynamic_2Dwind; -case 398: /* clo k */ +case 407: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12658,7 +14716,7 @@ case 398: /* clo k */ rc = 4; goto jump; -case 399: /* clo k */ +case 408: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; @@ -12669,7 +14727,7 @@ case 399: /* clo k */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(400); + *--hp = obj_from_case(409); r[3] = (hendblk(3+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; @@ -12680,7 +14738,7 @@ case 399: /* clo k */ rc = 3; goto jump; -case 400: /* clo ek . */ +case 409: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -12691,7 +14749,7 @@ case 400: /* clo ek . */ /* ek . r obj k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; - *--hp = obj_from_case(401); + *--hp = obj_from_case(410); r[5] = (hendblk(1+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ @@ -12707,13 +14765,13 @@ case 400: /* clo ek . */ r[6] = (hendblk(3)); } r[7+0] = r[5]; r[7+1] = (mksymbol(internsym("raise"))); - r[7+2] = (cx__232036); + r[7+2] = (cx__232206); r[7+3] = (r[6]); r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_error_2Dobject; -case 401: /* clo ek r */ +case 410: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12723,7 +14781,7 @@ case 401: /* clo ek r */ /* r[1] */ goto gs_raise; -case 402: /* clo k */ +case 411: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12739,14 +14797,14 @@ case 402: /* clo k */ rc = 4; goto jump; -case 403: /* raise-continuable k obj */ +case 412: /* raise-continuable k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; - *--hp = obj_from_case(404); + *--hp = obj_from_case(413); r[2] = (hendblk(2+1)); r[3+0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[3+0])[0]; @@ -12756,7 +14814,7 @@ case 403: /* raise-continuable k obj */ rc = 2; goto jump; -case 404: /* clo ek r */ +case 413: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12767,7 +14825,7 @@ case 404: /* clo ek r */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; - *--hp = obj_from_case(405); + *--hp = obj_from_case(414); r[4] = (hendblk(3+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; @@ -12776,7 +14834,7 @@ case 404: /* clo ek r */ rc = 2; goto jump; -case 405: /* clo ek r */ +case 414: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12788,7 +14846,7 @@ case 405: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(406); + *--hp = obj_from_case(415); r[5] = (hendblk(3+1)); r[6+0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[6+0])[0]; @@ -12800,7 +14858,7 @@ case 405: /* clo ek r */ rc = 4; goto jump; -case 406: /* clo ek r */ +case 415: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12813,7 +14871,7 @@ case 406: /* clo ek r */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(407); + *--hp = obj_from_case(416); r[5] = (hendblk(4+1)); r[0] = (cx_current_2Dexception_2Dhandler); pc = objptr_from_obj(r[0])[0]; @@ -12822,7 +14880,7 @@ case 406: /* clo ek r */ rc = 2; goto jump; -case 407: /* clo ek r */ +case 416: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -12833,16 +14891,16 @@ case 407: /* clo ek r */ /* ek r r obj r k */ hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; - *--hp = obj_from_case(408); + *--hp = obj_from_case(417); r[6] = (hendblk(1+1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(409); + *--hp = obj_from_case(418); r[7] = (hendblk(2+1)); hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[1]; - *--hp = obj_from_case(410); + *--hp = obj_from_case(419); r[8] = (hendblk(1+1)); r[9+0] = r[5]; r[9+1] = r[6]; @@ -12852,7 +14910,7 @@ case 407: /* clo ek r */ rreserve(MAX_HOSTREGS); goto gs_dynamic_2Dwind; -case 408: /* clo k */ +case 417: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12868,7 +14926,7 @@ case 408: /* clo k */ rc = 4; goto jump; -case 409: /* clo k */ +case 418: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; @@ -12884,7 +14942,7 @@ case 409: /* clo k */ rc = 3; goto jump; -case 410: /* clo k */ +case 419: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } @@ -12900,7 +14958,7 @@ case 410: /* clo k */ rc = 4; goto jump; -case 411: /* %residual-abort k */ +case 420: /* %residual-abort k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -12913,7 +14971,7 @@ case 411: /* %residual-abort k */ rc = 3; goto jump; -case 412: /* reset k */ +case 421: /* reset k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -12926,7 +14984,7 @@ case 412: /* reset k */ rc = 3; goto jump; -case 413: /* set-reset-handler! k fn */ +case 422: /* set-reset-handler! k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k fn */ @@ -12941,13 +14999,13 @@ case 413: /* set-reset-handler! k fn */ rc = 3; goto jump; -case 414: /* clo k msg args */ +case 423: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(415); + *--hp = obj_from_case(424); r[3] = (hendblk(1+1)); r[4+0] = r[3]; r[4+1] = (mksymbol(internsym("read"))); @@ -12957,7 +15015,7 @@ case 414: /* clo k msg args */ rreserve(MAX_HOSTREGS); goto gs_error_2Dobject; -case 415: /* clo ek r */ +case 424: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -12967,7 +15025,7 @@ case 415: /* clo ek r */ /* r[1] */ goto gs_raise; -case 416: /* read-error? k obj */ +case 425: /* read-error? k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -12990,13 +15048,13 @@ case 416: /* read-error? k obj */ rc = 3; goto jump; -case 417: /* clo k msg args */ +case 426: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; - *--hp = obj_from_case(418); + *--hp = obj_from_case(427); r[3] = (hendblk(1+1)); r[4+0] = r[3]; r[4+1] = (mksymbol(internsym("file"))); @@ -13006,7 +15064,7 @@ case 417: /* clo k msg args */ rreserve(MAX_HOSTREGS); goto gs_error_2Dobject; -case 418: /* clo ek r */ +case 427: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13016,7 +15074,7 @@ case 418: /* clo ek r */ /* r[1] */ goto gs_raise; -case 419: /* file-error? k obj */ +case 428: /* file-error? k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -13039,7 +15097,7 @@ case 419: /* file-error? k obj */ rc = 3; goto jump; -case 420: /* %residual-current-jiffy k */ +case 429: /* %residual-current-jiffy k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -13053,7 +15111,7 @@ case 420: /* %residual-current-jiffy k */ rc = 3; goto jump; -case 421: /* %residual-jiffies-per-second k */ +case 430: /* %residual-jiffies-per-second k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -13067,11 +15125,11 @@ case 421: /* %residual-jiffies-per-second k */ rc = 3; goto jump; -case 422: /* %residual-current-second k */ +case 431: /* %residual-current-second k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ - r[1] = obj_from_flonum(1, (double)time(NULL)); + r[1] = obj_from_flonum(1, difftime(time(NULL), 0)+37.0); r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); @@ -13081,7 +15139,82 @@ case 422: /* %residual-current-second k */ rc = 3; goto jump; -case 423: /* %residual-argv-ref k argv i */ +case 432: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_void(exit(1)); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 433: /* clo k n */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k n */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_void(((r[1]) == obj_from_bool(1)) ? (void)(exit(0)) : (void)((is_fixnum_obj(r[1])) ? (void)(exit(fixnum_from_obj(r[1]))) : (void)(exit(1)))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 434: /* 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 435: /* clo k args */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* k args exit-ds */ + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(436); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto gs_dynamic_2Dstate_2Dreroot_21; + +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 */ + /* ek . args k */ + { /* define apply */ + static obj c[] = { obj_from_objptr(appcases+0) }; + r[4] = obj_from_objptr(c); } + r[5+0] = r[4]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[3]; + r[5+2] = (cx_emergency_2Dexit); + r[5+3] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 4; + goto jump; + +case 437: /* %residual-argv-ref k argv i */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k argv i */ @@ -13099,7 +15232,7 @@ case 423: /* %residual-argv-ref k argv i */ rc = 3; goto jump; -case 424: /* command-line k */ +case 438: /* command-line k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ @@ -13108,12 +15241,12 @@ case 424: /* command-line k */ r[1+2] = obj_from_fixnum(0); r += 1; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v8412; + goto s_loop_v11567; -s_loop_v8412: /* k r i */ - { const fixnum_t v11362_i = fixnum_from_obj(r[2]); +s_loop_v11567: /* k r i */ + { const fixnum_t v14714_i = fixnum_from_obj(r[2]); { /* argv-ref */ - int i = (v11362_i); + int i = (v14714_i); char *s = ((char **)((cxg_argv)))[i]; if (s) r[3] = (hpushstr(3, newstring(s))); else r[3] = obj_from_bool(0); } @@ -13126,8 +15259,8 @@ s_loop_v8412: /* k r i */ r[4] = (hendblk(3)); } /* r[0] */ r[1] = r[4]; - r[2] = obj_from_fixnum(fxadd((v11362_i), (1))); - goto s_loop_v8412; + r[2] = obj_from_fixnum(fxadd((v14714_i), (1))); + goto s_loop_v11567; } else { { /* reverse! */ obj t, v = mknull(), l = r[1]; @@ -13143,7 +15276,7 @@ s_loop_v8412: /* k r i */ goto jump; } } -case 425: /* %residual-get-environment-variable k s */ +case 439: /* %residual-get-environment-variable k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ @@ -13160,7 +15293,7 @@ case 425: /* %residual-get-environment-variable k s */ rc = 3; goto jump; -case 426: /* %residual-system k cmd */ +case 440: /* %residual-system k cmd */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k cmd */ @@ -13176,15 +15309,15 @@ case 426: /* %residual-system k cmd */ rc = 3; goto jump; -case 427: /* %residual-make-rectangular k r i */ +case 441: /* %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 v11361_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v11361_tmp)); } + { const flonum_t v14713_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14713_tmp)); } } if (bool_from_obj(r[3])) { r[3+0] = r[0]; @@ -13200,7 +15333,7 @@ case 427: /* %residual-make-rectangular k r i */ pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (mksymbol(internsym("make-rectangular"))); - r[3+3] = (cx__232091); + r[3+3] = (cx__232275); r[3+4] = (r[2]); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13208,15 +15341,15 @@ case 427: /* %residual-make-rectangular k r i */ goto jump; } -case 428: /* %residual-make-polar k m a */ +case 442: /* %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 v11360_tmp = ((flonum_t)(+0)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v11360_tmp)); } + { const flonum_t v14712_tmp = ((flonum_t)(+0)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14712_tmp)); } } if (bool_from_obj(r[3])) { r[3+0] = r[0]; @@ -13229,19 +15362,19 @@ case 428: /* %residual-make-polar k m a */ goto jump; } else { if ((is_fixnum_obj(r[2]))) { - { const fixnum_t v11358_a = fixnum_from_obj(r[2]); - if ((is_fixnum_obj(cx__232107))) { - r[3] = obj_from_bool((v11358_a) == fixnum_from_obj(cx__232107)); + { const fixnum_t v14710_a = fixnum_from_obj(r[2]); + if ((is_fixnum_obj(cx__232291))) { + r[3] = obj_from_bool((v14710_a) == fixnum_from_obj(cx__232291)); } else { - { const flonum_t v11359_tmp = ((flonum_t)(v11358_a)); - r[3] = obj_from_bool((v11359_tmp) == flonum_from_obj(cx__232107)); } + { const flonum_t v14711_tmp = ((flonum_t)(v14710_a)); + r[3] = obj_from_bool((v14711_tmp) == flonum_from_obj(cx__232291)); } } } } else { - if ((is_fixnum_obj(cx__232107))) { - { const flonum_t v11357_tmp = ((flonum_t)fixnum_from_obj(cx__232107)); - r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v11357_tmp)); } + if ((is_fixnum_obj(cx__232291))) { + { const flonum_t v14709_tmp = ((flonum_t)fixnum_from_obj(cx__232291)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14709_tmp)); } } else { - r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__232107)); + r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__232291)); } } if (bool_from_obj(r[3])) { @@ -13259,7 +15392,7 @@ case 428: /* %residual-make-polar k m a */ pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (mksymbol(internsym("make-polar"))); - r[3+3] = (cx__232103); + r[3+3] = (cx__232287); r[3+4] = (r[2]); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -13268,7 +15401,7 @@ case 428: /* %residual-make-polar k m a */ } } -case 429: /* %residual-real-part k x */ +case 443: /* %residual-real-part k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -13281,7 +15414,7 @@ case 429: /* %residual-real-part k x */ rc = 3; goto jump; -case 430: /* %residual-imag-part k x */ +case 444: /* %residual-imag-part k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -13294,7 +15427,7 @@ case 430: /* %residual-imag-part k x */ rc = 3; goto jump; -case 431: /* %residual-magnitude k x */ +case 445: /* %residual-magnitude k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -13308,7 +15441,7 @@ case 431: /* %residual-magnitude k x */ rc = 3; goto jump; -case 432: /* %residual-angle k x */ +case 446: /* %residual-angle k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ @@ -13321,20 +15454,20 @@ case 432: /* %residual-angle k x */ rc = 3; goto jump; -case 433: /* truncate/ k x y */ +case 447: /* truncate/ k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(434); + *--hp = obj_from_case(448); r[3] = (hendblk(2+1)); /* r[0] */ r[1] = r[3]; goto gs_call_2Dwith_2Dcurrent_2Dcontinuation; -case 434: /* clo k k */ +case 448: /* clo k k */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13342,33 +15475,33 @@ case 434: /* clo k k */ r += 1; /* shift reg. wnd */ /* k k y x */ if ((is_fixnum_obj(r[3]))) { - { const fixnum_t v11355_x = fixnum_from_obj(r[3]); + { const fixnum_t v14707_x = fixnum_from_obj(r[3]); if ((is_fixnum_obj(r[2]))) { - r[4] = obj_from_fixnum(fxquo((v11355_x), fixnum_from_obj(r[2]))); + r[4] = obj_from_fixnum(fxquo((v14707_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11356_tmp = ((flonum_t)(v11355_x)); - r[4] = obj_from_flonum(4, flquo((v11356_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14708_tmp = ((flonum_t)(v14707_x)); + r[4] = obj_from_flonum(4, flquo((v14708_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11354_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), (v11354_tmp))); } + { const flonum_t v14706_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), (v14706_tmp))); } } else { r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), flonum_from_obj(r[2]))); } } if ((is_fixnum_obj(r[3]))) { - { const fixnum_t v11352_x = fixnum_from_obj(r[3]); + { const fixnum_t v14704_x = fixnum_from_obj(r[3]); if ((is_fixnum_obj(r[2]))) { - r[5] = obj_from_fixnum(fxrem((v11352_x), fixnum_from_obj(r[2]))); + r[5] = obj_from_fixnum(fxrem((v14704_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11353_tmp = ((flonum_t)(v11352_x)); - r[5] = obj_from_flonum(5, flrem((v11353_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14705_tmp = ((flonum_t)(v14704_x)); + r[5] = obj_from_flonum(5, flrem((v14705_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11351_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), (v11351_tmp))); } + { const flonum_t v14703_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), (v14703_tmp))); } } else { r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), flonum_from_obj(r[2]))); } @@ -13383,20 +15516,20 @@ case 434: /* clo k k */ rc = 4; goto jump; -case 435: /* floor/ k x y */ +case 449: /* floor/ k x y */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x y */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; - *--hp = obj_from_case(436); + *--hp = obj_from_case(450); r[3] = (hendblk(2+1)); /* r[0] */ r[1] = r[3]; goto gs_call_2Dwith_2Dcurrent_2Dcontinuation; -case 436: /* clo k k */ +case 450: /* clo k k */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13404,33 +15537,33 @@ case 436: /* clo k k */ r += 1; /* shift reg. wnd */ /* k k y x */ if ((is_fixnum_obj(r[3]))) { - { const fixnum_t v11349_x = fixnum_from_obj(r[3]); + { const fixnum_t v14701_x = fixnum_from_obj(r[3]); if ((is_fixnum_obj(r[2]))) { - r[4] = obj_from_fixnum(fxmqu((v11349_x), fixnum_from_obj(r[2]))); + r[4] = obj_from_fixnum(fxmqu((v14701_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11350_tmp = ((flonum_t)(v11349_x)); - r[4] = obj_from_flonum(4, flmqu((v11350_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14702_tmp = ((flonum_t)(v14701_x)); + r[4] = obj_from_flonum(4, flmqu((v14702_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11348_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), (v11348_tmp))); } + { const flonum_t v14700_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), (v14700_tmp))); } } else { r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), flonum_from_obj(r[2]))); } } if ((is_fixnum_obj(r[3]))) { - { const fixnum_t v11346_x = fixnum_from_obj(r[3]); + { const fixnum_t v14698_x = fixnum_from_obj(r[3]); if ((is_fixnum_obj(r[2]))) { - r[5] = obj_from_fixnum(fxmlo((v11346_x), fixnum_from_obj(r[2]))); + r[5] = obj_from_fixnum(fxmlo((v14698_x), fixnum_from_obj(r[2]))); } else { - { const flonum_t v11347_tmp = ((flonum_t)(v11346_x)); - r[5] = obj_from_flonum(5, flmlo((v11347_tmp), flonum_from_obj(r[2]))); } + { const flonum_t v14699_tmp = ((flonum_t)(v14698_x)); + r[5] = obj_from_flonum(5, flmlo((v14699_tmp), flonum_from_obj(r[2]))); } } } } else { if ((is_fixnum_obj(r[2]))) { - { const flonum_t v11345_tmp = ((flonum_t)fixnum_from_obj(r[2])); - r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), (v11345_tmp))); } + { const flonum_t v14697_tmp = ((flonum_t)fixnum_from_obj(r[2])); + r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), (v14697_tmp))); } } else { r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), flonum_from_obj(r[2]))); } @@ -13445,32 +15578,32 @@ case 436: /* clo k k */ rc = 4; goto jump; -case 437: /* exact-integer-sqrt k x */ +case 451: /* exact-integer-sqrt k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = obj_from_fixnum(fxsqrt(fixnum_from_obj(r[1]))); *--hp = r[1]; - *--hp = obj_from_case(438); + *--hp = obj_from_case(452); r[2] = (hendblk(2+1)); /* r[0] */ r[1] = r[2]; goto gs_call_2Dwith_2Dcurrent_2Dcontinuation; -case 438: /* clo k k */ +case 452: /* clo k k */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* k k x r */ - { const fixnum_t v11343_b = (fxmul(fixnum_from_obj(r[3]), fixnum_from_obj(r[3]))); + { const fixnum_t v14695_b = (fxmul(fixnum_from_obj(r[3]), fixnum_from_obj(r[3]))); if ((is_fixnum_obj(r[2]))) { - r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (v11343_b))); + r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (v14695_b))); } else { - { const flonum_t v11344_tmp = ((flonum_t)(v11343_b)); - r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) - (v11344_tmp)); } + { const flonum_t v14696_tmp = ((flonum_t)(v14695_b)); + r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) - (v14696_tmp)); } } } r[5+0] = r[1]; pc = objptr_from_obj(r[5+0])[0]; @@ -13482,13 +15615,13 @@ case 438: /* clo k k */ rc = 4; goto jump; -case 439: /* call-with-port k port proc */ +case 453: /* call-with-port k port proc */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_call_2Dwith_2Dport: /* k port proc */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; - *--hp = obj_from_case(440); + *--hp = obj_from_case(454); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -13499,7 +15632,7 @@ gs_call_2Dwith_2Dport: /* k port proc */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; - *--hp = obj_from_case(441); + *--hp = obj_from_case(455); r[4] = (hendblk(2+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 5); /* 5 live regs */ @@ -13516,7 +15649,7 @@ gs_call_2Dwith_2Dport: /* k port proc */ rc = 3; goto jump; -case 440: /* clo k vals */ +case 454: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13536,7 +15669,7 @@ case 440: /* clo k vals */ rc = 4; goto jump; -case 441: /* clo k results */ +case 455: /* clo k results */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -13556,19 +15689,905 @@ case 441: /* clo k results */ rc = 4; goto jump; -case 442: /* clo k l */ +case 456: /* clo k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_substring_2D_3Elist; + +case 457: /* clo k str start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(stringlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_substring_2D_3Elist; + +case 458: /* clo k str */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k str */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = obj_from_fixnum(+0); + r[2+3] = obj_from_fixnum(stringlen((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_substring_2D_3Elist; + +case 459: /* clo k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str start end */ + { /* substring */ + int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3])); + r[4] = (hpushstr(4, d)); } + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 460: /* clo k str start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str start */ + { /* substring */ + int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), (stringlen((r[1])))); + r[3] = (hpushstr(3, d)); } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 461: /* clo k str */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k str */ + { /* string-copy */ + int *d = dupstring(stringdata((r[1]))); + r[2] = (hpushstr(2, d)); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 462: /* clo k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 463: /* clo k to at from start */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k to at from start */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(stringlen((r[3]))))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 464: /* clo k to at from */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k to at from */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[3]))))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 465: /* clo k str c start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k str c start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 466: /* clo k str c start */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str c start */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(stringlen((r[1]))))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 467: /* clo k str c */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str c */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 468: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_subvector_2D_3Elist; + +case 469: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector_2D_3Elist; + +case 470: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = obj_from_fixnum(+0); + r[2+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector_2D_3Elist; + +case 471: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_subvector_2D_3Estring; + +case 472: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector_2D_3Estring; + +case 473: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = obj_from_fixnum(+0); + r[2+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector_2D_3Estring; + +case 474: /* clo k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str start end */ + { /* new-vector */ + int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))); + hreserve(hbsz(c+1), 4); /* 4 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[4] = (hendblk(c+1)); } + r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3]))); + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 475: /* clo k str start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str start */ + { /* new-vector */ + int c = (fxsub((stringlen((r[1]))), fixnum_from_obj(r[2]))); + hreserve(hbsz(c+1), 3); /* 3 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[3] = (hendblk(c+1)); } + r[3] = (cxs__25substring_2Dvector_2Dcopy_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2]), obj_from_fixnum(stringlen((r[1]))))); + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 476: /* clo k str */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k str */ + { /* new-vector */ + int c = (fxsub((stringlen((r[1]))), (+0))); + hreserve(hbsz(c+1), 2); /* 2 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[2] = (hendblk(c+1)); } + r[2] = (cxs__25substring_2Dvector_2Dcopy_21((r[2]), obj_from_fixnum(+0), (r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))))); + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 477: /* clo k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 478: /* clo k to at from start */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k to at from start */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(vectorlen((r[3]))))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 479: /* clo k to at from */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k to at from */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[3]))))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 480: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_subvector; + +case 481: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector; + +case 482: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = obj_from_fixnum(+0); + r[2+3] = obj_from_fixnum(vectorlen((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subvector; + +case 483: /* %vectors-sum-length k vecs */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vecs */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs__25vectors_2Dsum_2Dlength((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 484: /* %vectors-copy-into! k to vecs */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k to vecs */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[1]), (r[2]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 485: /* clo k vecs */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vecs */ + r[2] = (cxs__25vectors_2Dsum_2Dlength((r[1]))); + { /* new-vector */ + int c = fixnum_from_obj(r[2]); + hreserve(hbsz(c+1), 3); /* 3 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[2] = (hendblk(c+1)); } + r[2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[2]), (r[1]))); + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 486: /* clo k vec x start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k vec x start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 487: /* clo k vec x start */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec x start */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(vectorlen((r[1]))))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 488: /* clo k vec x */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec x */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[1]))))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 489: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_subbytevector_2D_3Elist; + +case 490: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(bytevectorlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subbytevector_2D_3Elist; + +case 491: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = obj_from_fixnum(+0); + r[2+3] = obj_from_fixnum(bytevectorlen((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subbytevector_2D_3Elist; + +case 492: /* clo k to at from start end */ + assert(rc == 7); + r += 1; /* shift reg. wnd */ + /* k to at from start end */ + r[6+0] = r[0]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = obj_from_ktrap(); + r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 493: /* clo k to at from start */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k to at from start */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(bytevectorlen((r[3]))))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 494: /* clo k to at from */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k to at from */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[3]))))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 495: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + { /* subbytevector */ + int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3])); + r[4] = (hpushu8v(4, d)); } + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 496: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + { /* subbytevector */ + int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), (bytevectorlen((r[1])))); + r[3] = (hpushu8v(3, d)); } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 497: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + { /* subbytevector */ + int *d = subbytevector(bytevectordata((r[1])), (+0), (bytevectorlen((r[1])))); + r[2] = (hpushu8v(2, d)); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 498: /* %bytevectors-sum-length k vecs */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vecs */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 499: /* %bytevectors-copy-into! k to vecs */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k to vecs */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[1]), (r[2]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 500: /* clo k vecs */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vecs */ + r[2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1]))); + r[2] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[2])))); + r[2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[2]), (r[1]))); + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 501: /* subutf8->string k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs_subutf8_2D_3Estring: /* k vec start end */ + { /* open-output-string */ + r[4] = (mkoport_string(4, newcb())); } + (void)(cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4]))); + { /* get-output-string */ + obj o = r[4]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && + vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[5] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); + r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } } + { /* close-output-port */ + obj o = r[4]; cxtype_oport_t *vt = oportvt(o); assert(vt); + vt->close(oportdata(o)); vt->free(oportdata(o)); + objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; + (void)(0); } + r[4] = r[5]; + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 502: /* clo k vec start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_subutf8_2D_3Estring; + +case 503: /* clo k vec start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(bytevectorlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_subutf8_2D_3Estring; + +case 504: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + { /* bytevector->string */ + int *d = bytevectordata((r[1])); + r[2] = (hpushstr(2, newstringn((char *)bvdatabytes(d), *d))); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 505: /* substring->utf8 k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ +gs_substring_2D_3Eutf8: /* k str start end */ + { /* open-output-bytevector */ + r[4] = (mkoport_bytevector(4, newcb())); } + (void)(cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4]))); + { /* get-output-bytevector */ + obj o = r[4]; cxtype_oport_t *vt = ckoportvt(o); + if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG && + vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[5] = (mkeof()); + else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf); + r[5] = (hpushu8v(5, newbytevector((unsigned char *)pcb->buf, len))); } } + { /* close-output-port */ + obj o = r[4]; cxtype_oport_t *vt = oportvt(o); assert(vt); + vt->close(oportdata(o)); vt->free(oportdata(o)); + objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG; + (void)(0); } + r[4] = r[5]; + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = r[4]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 506: /* clo k str start end */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str start end */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + /* r[3] */ + goto gs_substring_2D_3Eutf8; + +case 507: /* clo k str start */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str start */ + r[3+0] = r[0]; + r[3+1] = r[1]; + r[3+2] = r[2]; + r[3+3] = obj_from_fixnum(stringlen((r[1]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_substring_2D_3Eutf8; + +case 508: /* clo k str */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k str */ + { /* string->bytevector */ + int *d = stringdata((r[1])); + r[2] = (hpushu8v(2, newbytevector((unsigned char *)sdatachars(d), *d))); } + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = r[2]; + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 509: /* clo k str p start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k str p start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), (r[4]), (r[2]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 510: /* clo k str p start */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k str p start */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[2]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 511: /* clo k str p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k str p */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = (cxs_read_2Dsubstring_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))), (r[2]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 512: /* clo k str */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k str */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_read_2Dsubstring_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))), (cx__2Acurrent_2Dinput_2Dport_2A))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 513: /* clo k k p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k k p */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + goto gs_read_2Dsubstring; + +case 514: /* clo k k */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k k */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_read_2Dsubstring; + +case 515: /* clo k vec p start end */ + assert(rc == 6); + r += 1; /* shift reg. wnd */ + /* k vec p start end */ + r[5+0] = r[0]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = obj_from_ktrap(); + r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), (r[4]), (r[2]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 516: /* clo k vec p start */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k vec p start */ + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[2]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 517: /* clo k vec p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k vec p */ + r[3+0] = r[0]; + pc = objptr_from_obj(r[3+0])[0]; + r[3+1] = obj_from_ktrap(); + r[3+2] = (cxs_read_2Dsubbytevector_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[1]))), (r[2]))); + r += 3; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 518: /* clo k vec */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k vec */ + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = (cxs_read_2Dsubbytevector_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[1]))), (cx__2Acurrent_2Dinput_2Dport_2A))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 519: /* clo k k p */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k k p */ + /* r[0] */ + /* r[1] */ + /* r[2] */ + goto gs_read_2Dsubbytevector; + +case 520: /* clo k k */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k k */ + r[2+0] = r[0]; + r[2+1] = r[1]; + r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto gs_read_2Dsubbytevector; + +case 521: /* 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(443); + *--hp = obj_from_case(522); r[2] = (hendblk(1+1)); /* r[0] */ r[1] = r[2]; goto gs_call_2Dwith_2Dcurrent_2Dcontinuation; -case 443: /* clo k k */ +case 522: /* clo k k */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } @@ -13587,7 +16606,7 @@ case 443: /* clo k k */ rc = 4; goto jump; -case 444: /* clo k args */ +case 523: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13606,10 +16625,60 @@ case 444: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8275; + goto s_loop_v10862; } -s_loop_v8275: /* k x args */ +s_loop_v10862: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((bool_from_obj(r[1]) == bool_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v10862; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 524: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v10849; + } + +s_loop_v10849: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13625,7 +16694,7 @@ s_loop_v8275: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8275; + goto s_loop_v10849; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13637,7 +16706,7 @@ s_loop_v8275: /* k x args */ } } -case 445: /* clo k args */ +case 525: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13656,10 +16725,10 @@ case 445: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8262; + goto s_loop_v10836; } -s_loop_v8262: /* k x args */ +s_loop_v10836: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13675,7 +16744,7 @@ s_loop_v8262: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8262; + goto s_loop_v10836; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13687,7 +16756,7 @@ s_loop_v8262: /* k x args */ } } -case 446: /* clo k args */ +case 526: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13706,10 +16775,10 @@ case 446: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8249; + goto s_loop_v10823; } -s_loop_v8249: /* k x args */ +s_loop_v10823: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13725,7 +16794,7 @@ s_loop_v8249: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8249; + goto s_loop_v10823; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13737,7 +16806,7 @@ s_loop_v8249: /* k x args */ } } -case 447: /* clo k args */ +case 527: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13756,10 +16825,10 @@ case 447: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8236; + goto s_loop_v10810; } -s_loop_v8236: /* k x args */ +s_loop_v10810: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13775,7 +16844,7 @@ s_loop_v8236: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8236; + goto s_loop_v10810; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13787,7 +16856,7 @@ s_loop_v8236: /* k x args */ } } -case 448: /* clo k args */ +case 528: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13806,10 +16875,10 @@ case 448: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8223; + goto s_loop_v10797; } -s_loop_v8223: /* k x args */ +s_loop_v10797: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13825,7 +16894,7 @@ s_loop_v8223: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8223; + goto s_loop_v10797; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13837,7 +16906,7 @@ s_loop_v8223: /* k x args */ } } -case 449: /* clo k args */ +case 529: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13856,10 +16925,10 @@ case 449: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8210; + goto s_loop_v10784; } -s_loop_v8210: /* k x args */ +s_loop_v10784: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13875,7 +16944,7 @@ s_loop_v8210: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8210; + goto s_loop_v10784; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13887,7 +16956,7 @@ s_loop_v8210: /* k x args */ } } -case 450: /* clo k args */ +case 530: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13906,10 +16975,10 @@ case 450: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8197; + goto s_loop_v10771; } -s_loop_v8197: /* k x args */ +s_loop_v10771: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13925,7 +16994,7 @@ s_loop_v8197: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8197; + goto s_loop_v10771; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13937,7 +17006,7 @@ s_loop_v8197: /* k x args */ } } -case 451: /* clo k args */ +case 531: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -13956,10 +17025,10 @@ case 451: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8184; + goto s_loop_v10758; } -s_loop_v8184: /* k x args */ +s_loop_v10758: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13975,7 +17044,7 @@ s_loop_v8184: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8184; + goto s_loop_v10758; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -13987,7 +17056,7 @@ s_loop_v8184: /* k x args */ } } -case 452: /* clo k args */ +case 532: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14006,10 +17075,10 @@ case 452: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8171; + goto s_loop_v10745; } -s_loop_v8171: /* k x args */ +s_loop_v10745: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14025,7 +17094,7 @@ s_loop_v8171: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8171; + goto s_loop_v10745; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14037,7 +17106,7 @@ s_loop_v8171: /* k x args */ } } -case 453: /* clo k args */ +case 533: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14056,10 +17125,10 @@ case 453: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8158; + goto s_loop_v10732; } -s_loop_v8158: /* k x args */ +s_loop_v10732: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14075,7 +17144,7 @@ s_loop_v8158: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8158; + goto s_loop_v10732; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14087,7 +17156,7 @@ s_loop_v8158: /* k x args */ } } -case 454: /* clo k args */ +case 534: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14106,10 +17175,10 @@ case 454: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8145; + goto s_loop_v10719; } -s_loop_v8145: /* k x args */ +s_loop_v10719: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14121,17 +17190,17 @@ s_loop_v8145: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11341_x = fixnum_from_obj(r[1]); + { const fixnum_t v14693_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_bool((v11341_x) == fixnum_from_obj(r[3])); + r[4] = obj_from_bool((v14693_x) == fixnum_from_obj(r[3])); } else { - { const flonum_t v11342_tmp = ((flonum_t)(v11341_x)); - r[4] = obj_from_bool((v11342_tmp) == flonum_from_obj(r[3])); } + { const flonum_t v14694_tmp = ((flonum_t)(v14693_x)); + r[4] = obj_from_bool((v14694_tmp) == flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11340_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v11340_tmp)); } + { const flonum_t v14692_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v14692_tmp)); } } else { r[4] = obj_from_bool(flonum_from_obj(r[1]) == flonum_from_obj(r[3])); } @@ -14141,7 +17210,7 @@ s_loop_v8145: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8145; + goto s_loop_v10719; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14153,7 +17222,7 @@ s_loop_v8145: /* k x args */ } } -case 455: /* clo k args */ +case 535: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14172,10 +17241,10 @@ case 455: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8132; + goto s_loop_v10706; } -s_loop_v8132: /* k x args */ +s_loop_v10706: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14187,17 +17256,17 @@ s_loop_v8132: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11338_x = fixnum_from_obj(r[1]); + { const fixnum_t v14690_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_bool((v11338_x) < fixnum_from_obj(r[3])); + r[4] = obj_from_bool((v14690_x) < fixnum_from_obj(r[3])); } else { - { const flonum_t v11339_tmp = ((flonum_t)(v11338_x)); - r[4] = obj_from_bool((v11339_tmp) < flonum_from_obj(r[3])); } + { const flonum_t v14691_tmp = ((flonum_t)(v14690_x)); + r[4] = obj_from_bool((v14691_tmp) < flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11337_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v11337_tmp)); } + { const flonum_t v14689_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v14689_tmp)); } } else { r[4] = obj_from_bool(flonum_from_obj(r[1]) < flonum_from_obj(r[3])); } @@ -14207,7 +17276,7 @@ s_loop_v8132: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8132; + goto s_loop_v10706; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14219,7 +17288,7 @@ s_loop_v8132: /* k x args */ } } -case 456: /* clo k args */ +case 536: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14238,10 +17307,10 @@ case 456: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8119; + goto s_loop_v10693; } -s_loop_v8119: /* k x args */ +s_loop_v10693: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14253,17 +17322,17 @@ s_loop_v8119: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11335_x = fixnum_from_obj(r[1]); + { const fixnum_t v14687_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_bool((v11335_x) > fixnum_from_obj(r[3])); + r[4] = obj_from_bool((v14687_x) > fixnum_from_obj(r[3])); } else { - { const flonum_t v11336_tmp = ((flonum_t)(v11335_x)); - r[4] = obj_from_bool((v11336_tmp) > flonum_from_obj(r[3])); } + { const flonum_t v14688_tmp = ((flonum_t)(v14687_x)); + r[4] = obj_from_bool((v14688_tmp) > flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11334_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v11334_tmp)); } + { const flonum_t v14686_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v14686_tmp)); } } else { r[4] = obj_from_bool(flonum_from_obj(r[1]) > flonum_from_obj(r[3])); } @@ -14273,7 +17342,7 @@ s_loop_v8119: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8119; + goto s_loop_v10693; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14285,7 +17354,7 @@ s_loop_v8119: /* k x args */ } } -case 457: /* clo k args */ +case 537: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14304,10 +17373,10 @@ case 457: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8106; + goto s_loop_v10680; } -s_loop_v8106: /* k x args */ +s_loop_v10680: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14319,17 +17388,17 @@ s_loop_v8106: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11332_x = fixnum_from_obj(r[1]); + { const fixnum_t v14684_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_bool((v11332_x) <= fixnum_from_obj(r[3])); + r[4] = obj_from_bool((v14684_x) <= fixnum_from_obj(r[3])); } else { - { const flonum_t v11333_tmp = ((flonum_t)(v11332_x)); - r[4] = obj_from_bool((v11333_tmp) <= flonum_from_obj(r[3])); } + { const flonum_t v14685_tmp = ((flonum_t)(v14684_x)); + r[4] = obj_from_bool((v14685_tmp) <= flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11331_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v11331_tmp)); } + { const flonum_t v14683_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v14683_tmp)); } } else { r[4] = obj_from_bool(flonum_from_obj(r[1]) <= flonum_from_obj(r[3])); } @@ -14339,7 +17408,7 @@ s_loop_v8106: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8106; + goto s_loop_v10680; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14351,7 +17420,7 @@ s_loop_v8106: /* k x args */ } } -case 458: /* clo k args */ +case 538: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14370,10 +17439,10 @@ case 458: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v8093; + goto s_loop_v10667; } -s_loop_v8093: /* k x args */ +s_loop_v10667: /* k x args */ if ((isnull((r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14385,17 +17454,17 @@ s_loop_v8093: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11329_x = fixnum_from_obj(r[1]); + { const fixnum_t v14681_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[4] = obj_from_bool((v11329_x) >= fixnum_from_obj(r[3])); + r[4] = obj_from_bool((v14681_x) >= fixnum_from_obj(r[3])); } else { - { const flonum_t v11330_tmp = ((flonum_t)(v11329_x)); - r[4] = obj_from_bool((v11330_tmp) >= flonum_from_obj(r[3])); } + { const flonum_t v14682_tmp = ((flonum_t)(v14681_x)); + r[4] = obj_from_bool((v14682_tmp) >= flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11328_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v11328_tmp)); } + { const flonum_t v14680_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v14680_tmp)); } } else { r[4] = obj_from_bool(flonum_from_obj(r[1]) >= flonum_from_obj(r[3])); } @@ -14405,7 +17474,7 @@ s_loop_v8093: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8093; + goto s_loop_v10667; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -14417,16 +17486,16 @@ s_loop_v8093: /* k x args */ } } -case 459: /* clo k x args */ +case 539: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v8078; + goto s_loop_v10652; -s_loop_v8078: /* k x args */ +s_loop_v10652: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14443,19 +17512,19 @@ s_loop_v8078: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8078; + goto s_loop_v10652; } -case 460: /* clo k x args */ +case 540: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v8063; + goto s_loop_v10637; -s_loop_v8063: /* k x args */ +s_loop_v10637: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14472,19 +17541,19 @@ s_loop_v8063: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8063; + goto s_loop_v10637; } -case 461: /* clo k x args */ +case 541: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v8048; + goto s_loop_v10622; -s_loop_v8048: /* k x args */ +s_loop_v10622: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14501,19 +17570,19 @@ s_loop_v8048: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8048; + goto s_loop_v10622; } -case 462: /* clo k x args */ +case 542: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v8033; + goto s_loop_v10607; -s_loop_v8033: /* k x args */ +s_loop_v10607: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14530,10 +17599,10 @@ s_loop_v8033: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v8033; + goto s_loop_v10607; } -case 463: /* %residual-max/2 k a b */ +case 543: /* %residual-max/2 k a b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs__25residual_2Dmax_2F2: /* k a b */ @@ -14561,19 +17630,19 @@ gs__25residual_2Dmax_2F2: /* k a b */ rc = 3; goto jump; -case 464: /* clo k x args */ +case 544: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v8004; + goto s_loop_v10578; -case 465: /* clo k x args */ +case 545: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ -s_loop_v8004: /* k x args */ +s_loop_v10578: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14585,13 +17654,13 @@ s_loop_v8004: /* k x args */ goto jump; } else { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(465); + *--hp = obj_from_case(545); 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(466); + *--hp = obj_from_case(546); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ @@ -14599,7 +17668,7 @@ s_loop_v8004: /* k x args */ goto gs__25residual_2Dmax_2F2; } -case 466: /* clo ek r */ +case 546: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14617,7 +17686,7 @@ case 466: /* clo ek r */ rc = 4; goto jump; -case 467: /* %residual-min/2 k a b */ +case 547: /* %residual-min/2 k a b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs__25residual_2Dmin_2F2: /* k a b */ @@ -14645,19 +17714,19 @@ gs__25residual_2Dmin_2F2: /* k a b */ rc = 3; goto jump; -case 468: /* clo k x args */ +case 548: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7975; + goto s_loop_v10549; -case 469: /* clo k x args */ +case 549: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ -s_loop_v7975: /* k x args */ +s_loop_v10549: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14669,13 +17738,13 @@ s_loop_v7975: /* k x args */ goto jump; } else { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(469); + *--hp = obj_from_case(549); 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(470); + *--hp = obj_from_case(550); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ @@ -14683,7 +17752,7 @@ s_loop_v7975: /* k x args */ goto gs__25residual_2Dmin_2F2; } -case 470: /* clo ek r */ +case 550: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -14701,7 +17770,7 @@ case 470: /* clo ek r */ rc = 4; goto jump; -case 471: /* clo k args */ +case 551: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14720,10 +17789,10 @@ case 471: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7962; + goto s_loop_v10536; } -s_loop_v7962: /* k x args */ +s_loop_v10536: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14740,10 +17809,10 @@ s_loop_v7962: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7962; + goto s_loop_v10536; } -case 472: /* clo k args */ +case 552: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14762,10 +17831,10 @@ case 472: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7949; + goto s_loop_v10523; } -s_loop_v7949: /* k x args */ +s_loop_v10523: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14782,10 +17851,10 @@ s_loop_v7949: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7949; + goto s_loop_v10523; } -case 473: /* clo k args */ +case 553: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14793,7 +17862,7 @@ case 473: /* clo k args */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); - r[2+2] = (cx__232726); + r[2+2] = (cx__233223); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; @@ -14804,10 +17873,10 @@ case 473: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7936; + goto s_loop_v10510; } -s_loop_v7936: /* k x args */ +s_loop_v10510: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14824,10 +17893,10 @@ s_loop_v7936: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7936; + goto s_loop_v10510; } -case 474: /* clo k args */ +case 554: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14835,7 +17904,7 @@ case 474: /* clo k args */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); - r[2+2] = (cx__232743); + r[2+2] = (cx__233240); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; @@ -14846,10 +17915,10 @@ case 474: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7923; + goto s_loop_v10497; } -s_loop_v7923: /* k x args */ +s_loop_v10497: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14866,10 +17935,10 @@ s_loop_v7923: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7923; + goto s_loop_v10497; } -case 475: /* clo k args */ +case 555: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14888,10 +17957,10 @@ case 475: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7910; + goto s_loop_v10484; } -s_loop_v7910: /* k x args */ +s_loop_v10484: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14904,17 +17973,17 @@ s_loop_v7910: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11326_x = fixnum_from_obj(r[1]); + { const fixnum_t v14678_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[3] = obj_from_fixnum(fxadd((v11326_x), fixnum_from_obj(r[3]))); + r[3] = obj_from_fixnum(fxadd((v14678_x), fixnum_from_obj(r[3]))); } else { - { const flonum_t v11327_tmp = ((flonum_t)(v11326_x)); - r[3] = obj_from_flonum(4, (v11327_tmp) + flonum_from_obj(r[3])); } + { const flonum_t v14679_tmp = ((flonum_t)(v14678_x)); + r[3] = obj_from_flonum(4, (v14679_tmp) + flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11325_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v11325_tmp)); } + { const flonum_t v14677_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v14677_tmp)); } } else { r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + flonum_from_obj(r[3])); } @@ -14923,10 +17992,10 @@ s_loop_v7910: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7910; + goto s_loop_v10484; } -case 476: /* clo k args */ +case 556: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -14945,10 +18014,10 @@ case 476: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7897; + goto s_loop_v10471; } -s_loop_v7897: /* k x args */ +s_loop_v10471: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -14961,17 +18030,17 @@ s_loop_v7897: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11323_x = fixnum_from_obj(r[1]); + { const fixnum_t v14675_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[3] = obj_from_fixnum(fxmul((v11323_x), fixnum_from_obj(r[3]))); + r[3] = obj_from_fixnum(fxmul((v14675_x), fixnum_from_obj(r[3]))); } else { - { const flonum_t v11324_tmp = ((flonum_t)(v11323_x)); - r[3] = obj_from_flonum(4, (v11324_tmp) * flonum_from_obj(r[3])); } + { const flonum_t v14676_tmp = ((flonum_t)(v14675_x)); + r[3] = obj_from_flonum(4, (v14676_tmp) * flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11322_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v11322_tmp)); } + { const flonum_t v14674_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v14674_tmp)); } } else { r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * flonum_from_obj(r[3])); } @@ -14980,10 +18049,10 @@ s_loop_v7897: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7897; + goto s_loop_v10471; } -case 477: /* clo k args */ +case 557: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -15002,10 +18071,10 @@ case 477: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7884; + goto s_loop_v10458; } -s_loop_v7884: /* k x args */ +s_loop_v10458: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15018,17 +18087,17 @@ s_loop_v7884: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11320_x = fixnum_from_obj(r[1]); + { const fixnum_t v14672_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[3] = obj_from_fixnum(fxgcd((v11320_x), fixnum_from_obj(r[3]))); + r[3] = obj_from_fixnum(fxgcd((v14672_x), fixnum_from_obj(r[3]))); } else { - { const flonum_t v11321_tmp = ((flonum_t)(v11320_x)); - r[3] = obj_from_flonum(4, flgcd((v11321_tmp), flonum_from_obj(r[3]))); } + { const flonum_t v14673_tmp = ((flonum_t)(v14672_x)); + r[3] = obj_from_flonum(4, flgcd((v14673_tmp), flonum_from_obj(r[3]))); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11319_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v11319_tmp))); } + { const flonum_t v14671_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v14671_tmp))); } } else { r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[3]))); } @@ -15037,10 +18106,10 @@ s_loop_v7884: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7884; + goto s_loop_v10458; } -case 478: /* clo k args */ +case 558: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -15059,13 +18128,13 @@ case 478: /* clo k args */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; - goto s_loop_v7865; + goto s_loop_v10439; } -case 479: /* clo k x args */ +case 559: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ -s_loop_v7865: /* k x args */ +s_loop_v10439: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15077,13 +18146,13 @@ s_loop_v7865: /* k x args */ goto jump; } else { hreserve(hbsz(0+1), 3); /* 3 live regs */ - *--hp = obj_from_case(479); + *--hp = obj_from_case(559); 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(480); + *--hp = obj_from_case(560); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ @@ -15091,7 +18160,7 @@ s_loop_v7865: /* k x args */ goto gs_lcm_2F2; } -case 480: /* clo ek r */ +case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15109,7 +18178,7 @@ case 480: /* clo ek r */ rc = 4; goto jump; -case 481: /* clo k x args */ +case 561: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15126,10 +18195,10 @@ case 481: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7850; + goto s_loop_v10424; } -s_loop_v7850: /* k x args */ +s_loop_v10424: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15146,10 +18215,10 @@ s_loop_v7850: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7850; + goto s_loop_v10424; } -case 482: /* clo k x args */ +case 562: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15166,10 +18235,10 @@ case 482: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7835; + goto s_loop_v10409; } -s_loop_v7835: /* k x args */ +s_loop_v10409: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15186,10 +18255,10 @@ s_loop_v7835: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7835; + goto s_loop_v10409; } -case 483: /* clo k x args */ +case 563: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15207,10 +18276,10 @@ case 483: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7820; + goto s_loop_v10394; } -s_loop_v7820: /* k x args */ +s_loop_v10394: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15227,10 +18296,10 @@ s_loop_v7820: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7820; + goto s_loop_v10394; } -case 484: /* clo k x args */ +case 564: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15248,10 +18317,10 @@ case 484: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7805; + goto s_loop_v10379; } -s_loop_v7805: /* k x args */ +s_loop_v10379: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15268,10 +18337,10 @@ s_loop_v7805: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7805; + goto s_loop_v10379; } -case 485: /* clo k x args */ +case 565: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15289,10 +18358,10 @@ case 485: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7790; + goto s_loop_v10364; } -s_loop_v7790: /* k x args */ +s_loop_v10364: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15305,17 +18374,17 @@ s_loop_v7790: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11317_x = fixnum_from_obj(r[1]); + { const fixnum_t v14669_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { - r[3] = obj_from_fixnum(fxsub((v11317_x), fixnum_from_obj(r[3]))); + r[3] = obj_from_fixnum(fxsub((v14669_x), fixnum_from_obj(r[3]))); } else { - { const flonum_t v11318_tmp = ((flonum_t)(v11317_x)); - r[3] = obj_from_flonum(4, (v11318_tmp) - flonum_from_obj(r[3])); } + { const flonum_t v14670_tmp = ((flonum_t)(v14669_x)); + r[3] = obj_from_flonum(4, (v14670_tmp) - flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11316_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v11316_tmp)); } + { const flonum_t v14668_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v14668_tmp)); } } else { r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - flonum_from_obj(r[3])); } @@ -15324,10 +18393,10 @@ s_loop_v7790: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7790; + goto s_loop_v10364; } -case 486: /* clo k x args */ +case 566: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15354,10 +18423,10 @@ case 486: /* clo k x args */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7775; + goto s_loop_v10349; } -s_loop_v7775: /* k x args */ +s_loop_v10349: /* k x args */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -15370,22 +18439,22 @@ s_loop_v7775: /* k x args */ } else { r[3] = (car((r[2]))); if ((is_fixnum_obj(r[1]))) { - { const fixnum_t v11314_x = fixnum_from_obj(r[1]); + { const fixnum_t v14666_x = fixnum_from_obj(r[1]); if ((is_fixnum_obj(r[3]))) { { /* fxfl/ */ - fixnum_t x = (v11314_x), y = fixnum_from_obj(r[3]); + fixnum_t x = (v14666_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 v11315_tmp = ((flonum_t)(v11314_x)); - r[3] = obj_from_flonum(4, (v11315_tmp) / flonum_from_obj(r[3])); } + { const flonum_t v14667_tmp = ((flonum_t)(v14666_x)); + r[3] = obj_from_flonum(4, (v14667_tmp) / flonum_from_obj(r[3])); } } } } else { if ((is_fixnum_obj(r[3]))) { - { const flonum_t v11313_tmp = ((flonum_t)fixnum_from_obj(r[3])); - r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v11313_tmp)); } + { const flonum_t v14665_tmp = ((flonum_t)fixnum_from_obj(r[3])); + r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v14665_tmp)); } } else { r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[3])); } @@ -15394,10 +18463,10 @@ s_loop_v7775: /* k x args */ /* r[0] */ r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7775; + goto s_loop_v10349; } -case 487: /* clo k x args */ +case 567: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15411,14 +18480,14 @@ case 487: /* clo k x args */ r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]))); r[3] = obj_from_flonum(4, log10(flonum_from_obj(r[3]))); } else { - { flonum_t v11312_tmp; - { flonum_t v11311_tmp; + { flonum_t v14664_tmp; + { flonum_t v14663_tmp; r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]))); - v11312_tmp = (log(flonum_from_obj(r[3]))); + v14664_tmp = (log(flonum_from_obj(r[3]))); r[3] = (car((r[2]))); r[3] = ((is_flonum_obj(r[3])) ? (r[3]) : obj_from_flonum(4, (flonum_t)fixnum_from_obj(r[3]))); - v11311_tmp = (log(flonum_from_obj(r[3]))); - r[3] = obj_from_flonum(3, (v11312_tmp) / (v11311_tmp)); } } + v14663_tmp = (log(flonum_from_obj(r[3]))); + r[3] = obj_from_flonum(3, (v14664_tmp) / (v14663_tmp)); } } } } r[4+0] = r[0]; @@ -15430,16 +18499,16 @@ case 487: /* clo k x args */ rc = 3; goto jump; -case 488: /* clo k x args */ +case 568: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const flonum_t v11310_x = flonum_from_obj(r[1]); + { const flonum_t v14662_x = flonum_from_obj(r[1]); if ((isnull((r[2])))) { - r[3] = obj_from_flonum(3, atan((v11310_x))); + r[3] = obj_from_flonum(3, atan((v14662_x))); } else { r[3] = (car((r[2]))); - r[3] = obj_from_flonum(4, atan2((v11310_x), flonum_from_obj(r[3]))); + r[3] = obj_from_flonum(4, atan2((v14662_x), flonum_from_obj(r[3]))); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -15449,7 +18518,7 @@ case 488: /* clo k x args */ rc = 3; goto jump; } -case 489: /* clo k x args */ +case 569: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -15471,7 +18540,49 @@ case 489: /* clo k x args */ rc = 3; goto jump; -case 490: /* clo k p l l* */ +case 570: /* clo k x y args */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k x y args */ + if ((isnull((r[3])))) { + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (ismember((r[1]), (r[2]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + /* r[0] */ + /* r[1] */ + /* r[2] */ + r[3] = (car((r[3]))); + goto gs__25member; + } + +case 571: /* clo k x y args */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k x y args */ + if ((isnull((r[3])))) { + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = (isassoc((r[1]), (r[2]))); + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + /* r[0] */ + /* r[1] */ + /* r[2] */ + r[3] = (car((r[3]))); + goto gs__25assoc; + } + +case 572: /* clo k p l l* */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k p l l* */ @@ -15482,7 +18593,7 @@ case 490: /* clo k p l l* */ r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v7728; + goto s_loop_v10282; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15496,26 +18607,26 @@ case 490: /* clo k p l l* */ r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v7670; + goto s_loop_v10224; } -case 491: /* clo k l r */ +case 573: /* 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_v7728: /* k l r p */ +s_loop_v10282: /* k l r p */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(491); + *--hp = obj_from_case(573); r[4] = (hendblk(1+1)); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; - *--hp = obj_from_case(492); + *--hp = obj_from_case(574); r[4] = (hendblk(4+1)); r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; @@ -15539,7 +18650,7 @@ s_loop_v7728: /* k l r p */ goto jump; } -case 492: /* clo ek r */ +case 574: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15563,15 +18674,15 @@ case 492: /* clo ek r */ rc = 4; goto jump; -case 493: /* clo k l* r */ +case 575: /* 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_v7670: /* k l* r p */ +s_loop_v10224: /* k l* r p */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; - *--hp = obj_from_case(493); + *--hp = obj_from_case(575); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; @@ -15579,7 +18690,7 @@ s_loop_v7670: /* k l* r p */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; - *--hp = obj_from_case(494); + *--hp = obj_from_case(576); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ @@ -15615,7 +18726,7 @@ s_lp: /* k l* */ } } -case 494: /* clo ek r */ +case 576: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15632,11 +18743,11 @@ case 494: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(496); + *--hp = obj_from_case(578); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[2]; - goto s_loop_v7702; + goto s_loop_v10256; } else { { /* reverse! */ obj t, v = mknull(), l = r[6]; @@ -15651,17 +18762,17 @@ case 494: /* clo ek r */ goto jump; } -s_loop_v7702: /* k l */ +s_loop_v10256: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(495); + *--hp = obj_from_case(577); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7702; + goto s_loop_v10256; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -15673,7 +18784,7 @@ s_loop_v7702: /* k l */ goto jump; } -case 495: /* clo ek r */ +case 577: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15697,7 +18808,7 @@ case 495: /* clo ek r */ rc = 3; goto jump; -case 496: /* clo ek r */ +case 578: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15713,23 +18824,23 @@ case 496: /* clo ek r */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(498); + *--hp = obj_from_case(580); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[2]; - goto s_loop_v7687; + goto s_loop_v10241; -s_loop_v7687: /* k l */ +s_loop_v10241: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(497); + *--hp = obj_from_case(579); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7687; + goto s_loop_v10241; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -15741,7 +18852,7 @@ s_loop_v7687: /* k l */ goto jump; } -case 497: /* clo ek r */ +case 579: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15765,7 +18876,7 @@ case 497: /* clo ek r */ rc = 3; goto jump; -case 498: /* clo ek r */ +case 580: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15783,7 +18894,7 @@ case 498: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(499); + *--hp = obj_from_case(581); r[8] = (hendblk(4+1)); r[9+0] = r[7]; pc = objptr_from_obj(r[9+0])[0]; @@ -15795,7 +18906,7 @@ case 498: /* clo ek r */ rc = 4; goto jump; -case 499: /* clo ek r */ +case 581: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15819,7 +18930,7 @@ case 499: /* clo ek r */ rc = 4; goto jump; -case 500: /* clo k p l l* */ +case 582: /* clo k p l l* */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k p l l* */ @@ -15829,7 +18940,7 @@ case 500: /* clo k p l l* */ r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v7649; + goto s_loop_v10203; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ @@ -15842,25 +18953,25 @@ case 500: /* clo k p l l* */ r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); - goto s_loop_v7593; + goto s_loop_v10147; } -case 501: /* clo k l */ +case 583: /* 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_v7649: /* k l p */ +s_loop_v10203: /* k l p */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(501); + *--hp = obj_from_case(583); 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(502); + *--hp = obj_from_case(584); r[3] = (hendblk(3+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; @@ -15880,7 +18991,7 @@ s_loop_v7649: /* k l p */ goto jump; } -case 502: /* clo ek . */ +case 584: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -15897,28 +19008,28 @@ case 502: /* clo ek . */ rc = 3; goto jump; -case 503: /* clo k l* */ +case 585: /* 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_v7593: /* k l* p */ +s_loop_v10147: /* k l* p */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; - *--hp = obj_from_case(503); + *--hp = obj_from_case(585); 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(504); + *--hp = obj_from_case(586); r[3] = (hendblk(4+1)); r[0] = r[3]; /* r[1] */ - goto s_lp_v7640; + goto s_lp_v10194; -s_lp_v7640: /* k l* */ +s_lp_v10194: /* k l* */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -15935,7 +19046,7 @@ s_lp_v7640: /* k l* */ r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; - goto s_lp_v7640; + goto s_lp_v10194; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -15948,7 +19059,7 @@ s_lp_v7640: /* k l* */ } } -case 504: /* clo ek r */ +case 586: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -15963,11 +19074,11 @@ case 504: /* clo ek r */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; - *--hp = obj_from_case(506); + *--hp = obj_from_case(588); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; - goto s_loop_v7625; + goto s_loop_v10179; } else { r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; @@ -15978,17 +19089,17 @@ case 504: /* clo ek r */ goto jump; } -s_loop_v7625: /* k l */ +s_loop_v10179: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(505); + *--hp = obj_from_case(587); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7625; + goto s_loop_v10179; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -16000,7 +19111,7 @@ s_loop_v7625: /* k l */ goto jump; } -case 505: /* clo ek r */ +case 587: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16024,7 +19135,7 @@ case 505: /* clo ek r */ rc = 3; goto jump; -case 506: /* clo ek r */ +case 588: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16040,7 +19151,7 @@ case 506: /* clo ek r */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(507); + *--hp = obj_from_case(589); r[7] = (hendblk(3+1)); r[8+0] = r[6]; pc = objptr_from_obj(r[8+0])[0]; @@ -16052,7 +19163,7 @@ case 506: /* clo ek r */ rc = 4; goto jump; -case 507: /* clo ek . */ +case 589: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); @@ -16064,23 +19175,23 @@ case 507: /* clo ek . */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; - *--hp = obj_from_case(509); + *--hp = obj_from_case(591); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; - goto s_loop_v7606; + goto s_loop_v10160; -s_loop_v7606: /* k l */ +s_loop_v10160: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(508); + *--hp = obj_from_case(590); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7606; + goto s_loop_v10160; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -16092,7 +19203,7 @@ s_loop_v7606: /* k l */ goto jump; } -case 508: /* clo ek r */ +case 590: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16116,7 +19227,7 @@ case 508: /* clo ek r */ rc = 3; goto jump; -case 509: /* clo ek r */ +case 591: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16132,16 +19243,1269 @@ case 509: /* clo ek r */ rc = 3; goto jump; -case 510: /* clo k x args */ +case 592: /* clo k p s s* */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k p s s* */ + if ((isnull((r[3])))) { + r[4] = (hpushstr(4, allocstring((stringlen((r[2]))), '?'))); + r[5+0] = r[0]; + r[5+1] = obj_from_fixnum(+0); + r[5+2] = r[1]; + r[5+3] = r[4]; + r[5+4] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v10126; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(597); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[4]; + goto s_loop_v10109; + } + +case 593: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_loop_v10126: /* k i p res s */ + if ((fixnum_from_obj(r[1]) >= (stringlen((r[4]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[3]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(593); + r[5] = (hendblk(3+1)); + hreserve(hbsz(4+1), 6); /* 6 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = r[0]; + *--hp = r[5]; + *--hp = obj_from_case(594); + r[5] = (hendblk(4+1)); + r[6+0] = r[2]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = obj_from_char(*(unsigned char*)stringref((r[4]), fixnum_from_obj(r[1]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 594: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r loop k res i */ + { const fixnum_t v14661_i = fixnum_from_obj(r[5]); + (void)(*stringref((r[4]), (v14661_i)) = char_from_obj(r[1])); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[3]; + r[2] = obj_from_fixnum(fxadd((v14661_i), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; } + +s_loop_v10109: /* k l */ + if ((ispair((r[1])))) { + r[2] = (cdr((r[1]))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(595); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto s_loop_v10109; + } 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 595: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r l k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(596); + r[4] = (hendblk(2+1)); + r[0] = (cx_string_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (car((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 596: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r 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 597: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r p k */ + { /* define apply */ + static obj c[] = { obj_from_objptr(appcases+0) }; + r[4] = obj_from_objptr(c); } + hreserve(hbsz(1+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(598); + r[5] = (hendblk(1+1)); + r[6+0] = r[4]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = (cx__25residual_2Dmap); + r[6+3] = r[2]; + r[6+4] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 598: /* clo 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 v14660_tmp; + { /* length */ + int n; obj l = r[1]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14660_tmp = (n); } + { /* list->string */ + int i, c = (v14660_tmp); + obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ + obj l = r[1]; /* gc-safe */ + unsigned char *s = (unsigned char *)stringchars(o); + for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l)); + r[3] = (o); } } + r[4+0] = r[2]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 599: /* clo k p v v* */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k p v v* */ + if ((isnull((r[3])))) { + { /* new-vector */ + int c = (vectorlen((r[2]))); + hreserve(hbsz(c+1), 4); /* 4 live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + r[4] = (hendblk(c+1)); } + r[5+0] = r[0]; + r[5+1] = obj_from_fixnum(+0); + r[5+2] = r[1]; + r[5+3] = r[4]; + r[5+4] = r[2]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v10076; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(604); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[4]; + goto s_loop_v10059; + } + +case 600: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ +s_loop_v10076: /* k i p res v */ + if ((fixnum_from_obj(r[1]) >= (vectorlen((r[4]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = r[3]; + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[4]; + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(600); + r[5] = (hendblk(3+1)); + hreserve(hbsz(4+1), 6); /* 6 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = r[0]; + *--hp = r[5]; + *--hp = obj_from_case(601); + r[5] = (hendblk(4+1)); + r[6+0] = r[2]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = (vectorref((r[4]), fixnum_from_obj(r[1]))); + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 601: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; + r[1+5] = p[4]; } + r += 1; /* shift reg. wnd */ + /* ek r loop k res i */ + { const fixnum_t v14659_i = fixnum_from_obj(r[5]); + (void)(vectorref((r[4]), (v14659_i)) = (r[1])); + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[3]; + r[2] = obj_from_fixnum(fxadd((v14659_i), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; } + +s_loop_v10059: /* k l */ + if ((ispair((r[1])))) { + r[2] = (cdr((r[1]))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(602); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto s_loop_v10059; + } 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 602: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r l k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(603); + r[4] = (hendblk(2+1)); + r[0] = (cx_vector_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (car((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 603: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r 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 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; /* shift reg. wnd */ + /* ek r p k */ + { /* define apply */ + static obj c[] = { obj_from_objptr(appcases+0) }; + r[4] = obj_from_objptr(c); } + hreserve(hbsz(1+1), 5); /* 5 live regs */ + *--hp = r[3]; + *--hp = obj_from_case(605); + r[5] = (hendblk(1+1)); + r[6+0] = r[4]; + pc = objptr_from_obj(r[6+0])[0]; + r[6+1] = r[5]; + r[6+2] = (cx__25residual_2Dmap); + r[6+3] = r[2]; + r[6+4] = r[1]; + r += 6; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 605: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; } + r += 1; /* shift reg. wnd */ + /* ek r k */ + { fixnum_t v14658_tmp; + { /* length */ + int n; obj l = r[1]; + for (n = 0; l != mknull(); ++n, l = cdr(l)) ; + v14658_tmp = (n); } + { /* list->vector */ + obj l; int i, c = (v14658_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 606: /* clo k p s s* */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k p s s* */ + if ((isnull((r[3])))) { + r[4+0] = r[0]; + r[4+1] = obj_from_fixnum(+0); + r[4+2] = r[1]; + r[4+3] = r[2]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v10026; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(611); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[4]; + goto s_loop_v10009; + } + +case 607: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v10026: /* k i p s */ + if ((fixnum_from_obj(r[1]) >= (stringlen((r[3]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(607); + r[4] = (hendblk(2+1)); + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = obj_from_case(608); + r[4] = (hendblk(3+1)); + r[5+0] = r[2]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[4]; + r[5+2] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 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 i k */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +s_loop_v10009: /* k l */ + if ((ispair((r[1])))) { + r[2] = (cdr((r[1]))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(609); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto s_loop_v10009; + } 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 609: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r l k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(610); + r[4] = (hendblk(2+1)); + r[0] = (cx_string_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (car((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 610: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r 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 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; /* shift reg. wnd */ + /* ek r p k */ + { /* define apply */ + static obj c[] = { obj_from_objptr(appcases+0) }; + r[4] = obj_from_objptr(c); } + r[5+0] = r[4]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[3]; + r[5+2] = (cx__25residual_2Dfor_2Deach); + r[5+3] = r[2]; + r[5+4] = r[1]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 612: /* clo k p v v* */ + assert(rc == 5); + r += 1; /* shift reg. wnd */ + /* k p v v* */ + if ((isnull((r[3])))) { + r[4+0] = r[0]; + r[4+1] = obj_from_fixnum(+0); + r[4+2] = r[1]; + r[4+3] = r[2]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + goto s_loop_v9982; + } else { + { /* cons */ + hreserve(hbsz(3), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_size(PAIR_BTAG); + r[4] = (hendblk(3)); } + hreserve(hbsz(2+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(617); + r[5] = (hendblk(2+1)); + r[0] = r[5]; + r[1] = r[4]; + goto s_loop_v9965; + } + +case 613: /* clo k i */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ +s_loop_v9982: /* k i p v */ + if ((fixnum_from_obj(r[1]) >= (vectorlen((r[3]))))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[3]; + *--hp = r[2]; + *--hp = obj_from_case(613); + r[4] = (hendblk(2+1)); + hreserve(hbsz(3+1), 5); /* 5 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = r[4]; + *--hp = obj_from_case(614); + r[4] = (hendblk(3+1)); + r[5+0] = r[2]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[4]; + r[5+2] = (vectorref((r[3]), fixnum_from_obj(r[1]))); + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + +case 614: /* clo ek . */ + assert(rc >= 2); + r[2] = obj_from_void(0); /* ignored */ + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; + r[1+4] = p[3]; } + r += 1; /* shift reg. wnd */ + /* ek . loop i k */ + r[0] = r[2]; + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +s_loop_v9965: /* k l */ + if ((ispair((r[1])))) { + r[2] = (cdr((r[1]))); + hreserve(hbsz(2+1), 3); /* 3 live regs */ + *--hp = r[0]; + *--hp = r[1]; + *--hp = obj_from_case(615); + r[3] = (hendblk(2+1)); + r[0] = r[3]; + r[1] = r[2]; + goto s_loop_v9965; + } 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 615: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r l k */ + hreserve(hbsz(2+1), 4); /* 4 live regs */ + *--hp = r[1]; + *--hp = r[3]; + *--hp = obj_from_case(616); + r[4] = (hendblk(2+1)); + r[0] = (cx_vector_2D_3Elist); + pc = objptr_from_obj(r[0])[0]; + r[1] = r[4]; + r[2] = (car((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 616: /* clo ek r */ + assert(rc == 3); + { obj* p = objptr_from_obj(r[0]); + r[1+2] = p[1]; + r[1+3] = p[2]; } + r += 1; /* shift reg. wnd */ + /* ek r 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 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; /* shift reg. wnd */ + /* ek r p k */ + { /* define apply */ + static obj c[] = { obj_from_objptr(appcases+0) }; + r[4] = obj_from_objptr(c); } + r[5+0] = r[4]; + pc = objptr_from_obj(r[5+0])[0]; + r[5+1] = r[3]; + r[5+2] = (cx__25residual_2Dfor_2Deach); + r[5+3] = r[2]; + r[5+4] = r[1]; + r += 5; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 5; + goto jump; + +case 618: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9946; + } + +s_loop_v9946: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((char_from_obj(r[1]) == char_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9946; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 619: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9933; + } + +s_loop_v9933: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((char_from_obj(r[1]) < char_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9933; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 620: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9920; + } + +s_loop_v9920: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((char_from_obj(r[1]) > char_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9920; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 621: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9907; + } + +s_loop_v9907: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((char_from_obj(r[1]) <= char_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9907; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 622: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9894; + } + +s_loop_v9894: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((char_from_obj(r[1]) >= char_from_obj(r[3]))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9894; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 623: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9881; + } + +s_loop_v9881: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9881; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 624: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9868; + } + +s_loop_v9868: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9868; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 625: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9855; + } + +s_loop_v9855: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9855; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 626: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9842; + } + +s_loop_v9842: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9842; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 627: /* clo k 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_v9829; + } + +s_loop_v9829: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9829; + } 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 628: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const fixnum_t v11309_x = fixnum_from_obj(r[1]); + { const fixnum_t v14657_x = fixnum_from_obj(r[1]); if ((isnull((r[2])))) { - r[3] = (hpushstr(3, allocstring((v11309_x), '?'))); + r[3] = (hpushstr(3, allocstring((v14657_x), '?'))); } else { r[3] = (car((r[2]))); - r[3] = (hpushstr(4, allocstring((v11309_x), char_from_obj(r[3])))); + r[3] = (hpushstr(4, allocstring((v14657_x), char_from_obj(r[3])))); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16151,17 +20515,17 @@ case 510: /* clo k x args */ rc = 3; goto jump; } -case 511: /* clo k l */ +case 629: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11308_tmp; + { fixnum_t v14656_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11308_tmp = (n); } + v14656_tmp = (n); } { /* list->string */ - int i, c = (v11308_tmp); + int i, c = (v14656_tmp); obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); @@ -16176,20 +20540,20 @@ case 511: /* clo k l */ rc = 3; goto jump; -case 512: /* clo k args */ +case 630: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ /* r[0] */ /* r[1] */ - goto s_loop_v7562; + goto s_loop_v9798; -s_loop_v7562: /* k args */ +s_loop_v9798: /* 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__233141); + r[2+2] = (cx__233977); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; @@ -16211,15 +20575,15 @@ s_loop_v7562: /* k args */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(513); + *--hp = obj_from_case(631); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7562; + goto s_loop_v9798; } } -case 513: /* clo ek r */ +case 631: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16238,23 +20602,522 @@ case 513: /* clo ek r */ rc = 3; goto jump; -case 514: /* clo k x args */ +case 632: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9785; + } + +s_loop_v9785: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp(stringchars((r[1])), stringchars((r[3]))) == 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9785; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 633: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9772; + } + +s_loop_v9772: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp(stringchars((r[1])), stringchars((r[3]))) < 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9772; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 634: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9759; + } + +s_loop_v9759: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp(stringchars((r[1])), stringchars((r[3]))) > 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9759; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 635: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9746; + } + +s_loop_v9746: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp(stringchars((r[1])), stringchars((r[3]))) <= 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9746; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 636: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9733; + } + +s_loop_v9733: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp(stringchars((r[1])), stringchars((r[3]))) >= 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9733; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 637: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9720; + } + +s_loop_v9720: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) == 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9720; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 638: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9707; + } + +s_loop_v9707: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) < 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9707; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 639: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9694; + } + +s_loop_v9694: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) > 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9694; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 640: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + r[2+0] = r[0]; + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = obj_from_ktrap(); + r[2+2] = obj_from_bool(isnull((r[1]))); + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[2] = (car((r[1]))); + r[3] = (cdr((r[1]))); + /* r[0] */ + r[1] = r[2]; + r[2] = r[3]; + goto s_loop_v9681; + } + +s_loop_v9681: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) <= 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9681; + } else { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(0); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } + } + +case 641: /* clo k 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_v9668; + } + +s_loop_v9668: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) >= 0)) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9668; + } 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 642: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const fixnum_t v11307_x = fixnum_from_obj(r[1]); + { const fixnum_t v14655_x = fixnum_from_obj(r[1]); if ((isnull((r[2])))) { - { /* make-vector */ - obj o; int i = 0, c = (v11307_x); + { /* new-vector */ + int c = (v14655_x); hreserve(hbsz(c+1), 3); /* 3 live regs */ - o = obj_from_void(0); /* gc-safe */ - while (i++ < c) *--hp = o; + hp -= c; memset(hp, 0, c * sizeof(obj)); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(c+1)); } } else { r[3] = (car((r[2]))); { /* make-vector */ - obj o; int i = 0, c = (v11307_x); + obj o; int i = 0, c = (v14655_x); hreserve(hbsz(c+1), 4); /* 4 live regs */ o = r[3]; /* gc-safe */ while (i++ < c) *--hp = o; @@ -16269,17 +21132,17 @@ case 514: /* clo k x args */ rc = 3; goto jump; } -case 515: /* clo k l */ +case 643: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11306_tmp; + { fixnum_t v14654_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11306_tmp = (n); } + v14654_tmp = (n); } { /* list->vector */ - obj l; int i, c = (v11306_tmp); + obj l; int i, c = (v14654_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); @@ -16294,16 +21157,16 @@ case 515: /* clo k l */ rc = 3; goto jump; -case 516: /* clo k x args */ +case 644: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const fixnum_t v11305_x = fixnum_from_obj(r[1]); + { const fixnum_t v14653_x = fixnum_from_obj(r[1]); if ((isnull((r[2])))) { - r[3] = (hpushu8v(3, allocbytevector((v11305_x), 0))); + r[3] = (hpushu8v(3, allocbytevector((v14653_x)))); } else { r[3] = (car((r[2]))); - r[3] = (hpushu8v(4, allocbytevector((v11305_x), byte_from_fixnum(fixnum_from_obj(r[3]))))); + r[3] = (hpushu8v(4, makebytevector((v14653_x), byte_from_fixnum(fixnum_from_obj(r[3]))))); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16313,18 +21176,18 @@ case 516: /* clo k x args */ rc = 3; goto jump; } -case 517: /* clo k l */ +case 645: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11304_tmp; + { fixnum_t v14652_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11304_tmp = (n); } + v14652_tmp = (n); } { /* list->bytevector */ - int i, c = (v11304_tmp); - obj o = hpushu8v(2, allocbytevector(c, 0)); /* 2 live regs */ + int i, c = (v14652_tmp); + obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = bytevectorbytes(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l)); @@ -16338,7 +21201,7 @@ case 517: /* clo k l */ rc = 3; goto jump; -case 518: /* clo k l */ +case 646: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ @@ -16351,16 +21214,32 @@ case 518: /* clo k l */ rc = 3; goto jump; -case 519: /* clo k x l */ +case 647: /* clo k x args */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + /* r[1] */ + r[2] = obj_from_void(0); + goto gs__25make_2Dlist; + } else { + /* r[0] */ + /* r[1] */ + r[2] = (car((r[2]))); + goto gs__25make_2Dlist; + } + +case 648: /* clo k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ /* r[0] */ /* r[1] */ /* r[2] */ - goto s_loop_v7507; + goto s_loop_v9605; -s_loop_v7507: /* k x l */ +s_loop_v9605: /* k x l */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -16376,15 +21255,15 @@ s_loop_v7507: /* k x l */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(520); + *--hp = obj_from_case(649); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; - goto s_loop_v7507; + goto s_loop_v9605; } -case 520: /* clo ek r */ +case 649: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16406,15 +21285,15 @@ case 520: /* clo ek r */ rc = 3; goto jump; -case 521: /* clo k args */ +case 650: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ /* r[0] */ /* r[1] */ - goto s_loop_v7490; + goto s_loop_v9588; -s_loop_v7490: /* k args */ +s_loop_v9588: /* k args */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; @@ -16441,15 +21320,15 @@ s_loop_v7490: /* k args */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; - *--hp = obj_from_case(522); + *--hp = obj_from_case(651); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; - goto s_loop_v7490; + goto s_loop_v9588; } } -case 522: /* clo ek r */ +case 651: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; @@ -16457,13 +21336,13 @@ case 522: /* clo ek r */ r += 1; /* shift reg. wnd */ /* ek r k args */ r[4] = (car((r[3]))); - { fixnum_t v11303_tmp; + { fixnum_t v14651_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11303_tmp = (n); } + v14651_tmp = (n); } { /* append */ - obj t, l, o, *p, *d; int c = (v11303_tmp); + obj t, l, o, *p, *d; int c = (v14651_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[4]; t = r[1]; /* gc-safe */ o = t; p = &o; @@ -16481,7 +21360,7 @@ case 522: /* clo ek r */ rc = 3; goto jump; -case 523: /* clo k x args */ +case 652: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16503,7 +21382,7 @@ case 523: /* clo k x args */ rc = 3; goto jump; -case 524: /* clo k x args */ +case 653: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16562,7 +21441,7 @@ case 524: /* clo k x args */ rc = 3; goto jump; -case 525: /* clo k x args */ +case 654: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16597,7 +21476,57 @@ case 525: /* clo k x args */ rc = 3; goto jump; -case 526: /* clo k args */ +case 655: /* 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_v9551; + } + +s_loop_v9551: /* k x args */ + if ((isnull((r[2])))) { + /* r[0] */ + pc = objptr_from_obj(r[0])[0]; + r[1] = obj_from_ktrap(); + r[2] = obj_from_bool(isnull((r[2]))); + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + } else { + r[3] = (car((r[2]))); + if ((getsymbol((r[1])) == getsymbol((r[3])))) { + r[4] = (cdr((r[2]))); + /* r[0] */ + r[1] = r[3]; + r[2] = r[4]; + goto s_loop_v9551; + } 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 656: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16605,24 +21534,24 @@ case 526: /* clo k args */ pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; r[2+2] = (mksymbol(internsym("case-lambda"))); - r[2+3] = (cx__233244); + r[2+3] = (cx__234288); r[2+4] = (r[1]); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; -case 527: /* clo k l */ +case 657: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ - { fixnum_t v11302_tmp; + { fixnum_t v14650_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; - v11302_tmp = (n); } + v14650_tmp = (n); } { /* %residual-make-case-lambda */ - obj l; int i, c = (v11302_tmp); + obj l; int i, c = (v14650_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); @@ -16637,7 +21566,7 @@ case 527: /* clo k l */ rc = 3; goto jump; -case 528: /* clo k args */ +case 658: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16669,7 +21598,7 @@ case 528: /* clo k args */ rc = 3; goto jump; -case 529: /* clo k args */ +case 659: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16701,7 +21630,7 @@ case 529: /* clo k args */ rc = 3; goto jump; -case 530: /* clo k args */ +case 660: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16733,7 +21662,7 @@ case 530: /* clo k args */ rc = 3; goto jump; -case 531: /* clo k args */ +case 661: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16752,7 +21681,7 @@ case 531: /* clo k args */ rc = 3; goto jump; -case 532: /* clo k args */ +case 662: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16771,7 +21700,7 @@ case 532: /* clo k args */ rc = 3; goto jump; -case 533: /* clo k args */ +case 663: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16784,19 +21713,33 @@ case 533: /* clo k args */ rc = 3; goto jump; -case 534: /* clo k x args */ +case 664: /* clo k args */ + assert(rc == 3); + r += 1; /* shift reg. wnd */ + /* k args */ + if ((isnull((r[1])))) { + /* r[0] */ + r[1] = (cx__2Acurrent_2Dinput_2Dport_2A); + goto gs__25read_2Dline; + } else { + /* r[0] */ + r[1] = (car((r[1]))); + goto gs__25read_2Dline; + } + +case 665: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const fixnum_t v11301_x = fixnum_from_obj(r[1]); + { const fixnum_t v14649_x = fixnum_from_obj(r[1]); if ((isnull((r[2])))) { { /* display-fixnum */ - char buf[30]; sprintf(buf, "%ld", (v11301_x)); + char buf[30]; sprintf(buf, "%ld", (v14649_x)); r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); } } else { r[3] = (car((r[2]))); { /* display-fixnum */ - char buf[30]; sprintf(buf, "%ld", (v11301_x)); + char buf[30]; sprintf(buf, "%ld", (v14649_x)); r[3] = obj_from_void(oportputs(buf, (r[3]))); } } /* r[0] */ @@ -16807,14 +21750,14 @@ case 534: /* clo k x args */ rc = 3; goto jump; } -case 535: /* clo k x args */ +case 666: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const flonum_t v11300_x = flonum_from_obj(r[1]); + { const flonum_t v14648_x = flonum_from_obj(r[1]); if ((isnull((r[2])))) { { /* display-flonum */ - char buf[30], *s; double d = (v11300_x); sprintf(buf, "%.15g", d); + char buf[30], *s; double d = (v14648_x); sprintf(buf, "%.15g", d); for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break; if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0"); else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; @@ -16823,7 +21766,7 @@ case 535: /* clo k x args */ } else { r[3] = (car((r[2]))); { /* display-flonum */ - char buf[30], *s; double d = (v11300_x); sprintf(buf, "%.15g", d); + char buf[30], *s; double d = (v14648_x); sprintf(buf, "%.15g", d); for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break; if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0"); else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e'; @@ -16838,7 +21781,7 @@ case 535: /* clo k x args */ rc = 3; goto jump; } -case 536: /* clo k x args */ +case 667: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16861,7 +21804,7 @@ case 536: /* clo k x args */ rc = 3; goto jump; -case 537: /* clo k x args */ +case 668: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16884,7 +21827,7 @@ case 537: /* clo k x args */ rc = 3; goto jump; -case 538: /* clo k x args */ +case 669: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -16907,16 +21850,16 @@ case 538: /* clo k x args */ rc = 3; goto jump; -case 539: /* clo k x args */ +case 670: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const char_t v11299_x = char_from_obj(r[1]); + { const char_t v14647_x = char_from_obj(r[1]); if ((isnull((r[2])))) { - r[3] = obj_from_void(oportputc((v11299_x), (cx__2Acurrent_2Doutput_2Dport_2A))); + r[3] = obj_from_void(oportputc((v14647_x), (cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[3] = (car((r[2]))); - r[3] = obj_from_void(oportputc((v11299_x), (r[3]))); + r[3] = obj_from_void(oportputc((v14647_x), (r[3]))); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -16926,15 +21869,37 @@ case 539: /* clo k x args */ rc = 3; goto jump; } -case 540: /* clo k x args */ +case 671: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ if ((isnull((r[2])))) { r[3] = obj_from_void(oportputs(stringchars((r[1])), (cx__2Acurrent_2Doutput_2Dport_2A))); } else { + r[3] = (cdr((r[2]))); + r[3] = obj_from_bool(isnull((r[3]))); + if (bool_from_obj(r[3])) { r[3] = (car((r[2]))); r[3] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); + } else { + r[3] = (cdr((r[2]))); + r[3] = (cdr((r[3]))); + r[3] = obj_from_bool(isnull((r[3]))); + if (bool_from_obj(r[3])) { + r[3] = (cdr((r[2]))); + r[3] = (car((r[3]))); + r[4] = (car((r[2]))); + r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[4]))); + } else { + r[3] = (cdr((r[2]))); + r[3] = (car((r[3]))); + r[4] = (cdr((r[2]))); + r[4] = (cdr((r[4]))); + r[4] = (car((r[4]))); + r[5] = (car((r[2]))); + r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), (r[4]), (r[5]))); + } + } } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; @@ -16945,7 +21910,7 @@ case 540: /* clo k x args */ rc = 3; goto jump; -case 541: /* clo k args */ +case 672: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -16964,15 +21929,15 @@ case 541: /* clo k args */ rc = 3; goto jump; -case 542: /* clo k args */ +case 673: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ if ((isnull((r[1])))) { - r[2] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); + r[2] = obj_from_void(oportflush((cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[2] = (car((r[1]))); - r[2] = obj_from_void(oportputc('\n', (r[2]))); + r[2] = obj_from_void(oportflush((r[2]))); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; @@ -16983,7 +21948,7 @@ case 542: /* clo k args */ rc = 3; goto jump; -case 543: /* clo k args */ +case 674: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -17002,7 +21967,7 @@ case 543: /* clo k args */ rc = 3; goto jump; -case 544: /* clo k args */ +case 675: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -17021,7 +21986,7 @@ case 544: /* clo k args */ rc = 3; goto jump; -case 545: /* clo k args */ +case 676: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -17034,16 +21999,16 @@ case 545: /* clo k args */ rc = 3; goto jump; -case 546: /* clo k x args */ +case 677: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ - { const char_t v11298_x = char_from_obj(r[1]); + { const fixnum_t v14646_x = fixnum_from_obj(r[1]); if ((isnull((r[2])))) { - r[3] = obj_from_void(oportputc((v11298_x), (cx__2Acurrent_2Doutput_2Dport_2A))); + r[3] = obj_from_void(oportputc((v14646_x), (cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[3] = (car((r[2]))); - r[3] = obj_from_void(oportputc((v11298_x), (r[3]))); + r[3] = obj_from_void(oportputc((v14646_x), (r[3]))); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; @@ -17053,15 +22018,41 @@ case 546: /* clo k x args */ rc = 3; goto jump; } -case 547: /* clo k x args */ +case 678: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ if ((isnull((r[2])))) { - r[3] = obj_from_void(oportputs(stringchars((r[1])), (cx__2Acurrent_2Doutput_2Dport_2A))); + { /* write-bytevector */ + int *d = bytevectordata((r[1])); + r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d, (cx__2Acurrent_2Doutput_2Dport_2A))); } } else { + r[3] = (cdr((r[2]))); + r[3] = obj_from_bool(isnull((r[3]))); + if (bool_from_obj(r[3])) { r[3] = (car((r[2]))); - r[3] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); + { /* write-bytevector */ + int *d = bytevectordata((r[1])); + r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d, (r[3]))); } + } else { + r[3] = (cdr((r[2]))); + r[3] = (cdr((r[3]))); + r[3] = obj_from_bool(isnull((r[3]))); + if (bool_from_obj(r[3])) { + r[3] = (cdr((r[2]))); + r[3] = (car((r[3]))); + r[4] = (car((r[2]))); + r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[4]))); + } else { + r[3] = (cdr((r[2]))); + r[3] = (car((r[3]))); + r[4] = (cdr((r[2]))); + r[4] = (cdr((r[4]))); + r[4] = (car((r[4]))); + r[5] = (car((r[2]))); + r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), (r[4]), (r[5]))); + } + } } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; @@ -17072,7 +22063,45 @@ case 547: /* clo k x args */ rc = 3; goto jump; -case 548: /* clo k x args */ +case 679: /* clo k x args */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k x args */ + if ((isnull((r[2])))) { + r[3] = obj_from_void(oportputsimple((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + } else { + r[3] = (car((r[2]))); + r[3] = obj_from_void(oportputsimple((r[1]), (r[3]), 0)); + } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 680: /* clo k x args */ + assert(rc == 4); + r += 1; /* shift reg. wnd */ + /* k x args */ + if ((isnull((r[2])))) { + r[3] = obj_from_void(oportputshared((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); + } else { + r[3] = (car((r[2]))); + r[3] = obj_from_void(oportputshared((r[1]), (r[3]), 0)); + } + r[4+0] = r[0]; + pc = objptr_from_obj(r[4+0])[0]; + r[4+1] = obj_from_ktrap(); + r[4+2] = r[3]; + r += 4; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 3; + goto jump; + +case 681: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -17091,7 +22120,7 @@ case 548: /* clo k x args */ rc = 3; goto jump; -case 549: /* clo k x args */ +case 682: /* clo k x args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x args */ @@ -17110,7 +22139,7 @@ case 549: /* clo k x args */ rc = 3; goto jump; -case 550: /* clo k args */ +case 683: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -17130,7 +22159,7 @@ case 550: /* clo k args */ goto gs__25read; } -case 551: /* clo k args */ +case 684: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ @@ -17150,26 +22179,30 @@ case 551: /* clo k args */ goto gs__25read; } -case 552: /* clo k args */ +case 685: /* clo k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k args */ if ((isnull((r[1])))) { - r[2] = obj_from_void(exit((+0))); + r[2+0] = (cx_exit); + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = r[0]; + r += 2; /* shift reg wnd */ + rreserve(MAX_HOSTREGS); + rc = 2; + goto jump; } else { - r[2] = (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 */ + r[2+0] = (cx_exit); + pc = objptr_from_obj(r[2+0])[0]; + r[2+1] = r[0]; + r[2+2] = (car((r[1]))); + r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; + } -case 553: /* clo k obj */ +case 686: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ @@ -17197,7 +22230,7 @@ case 553: /* clo k obj */ pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; r[2+2] = obj_from_bool(0); - r[2+3] = (cx__232014); + r[2+3] = (cx__232184); r[2+4] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); @@ -17205,7 +22238,7 @@ case 553: /* clo k obj */ goto jump; } -case 554: /* clo k */ +case 687: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } diff --git a/n.h b/n.h index 807ef12..086b31c 100644 --- a/n.h +++ b/n.h @@ -13,6 +13,20 @@ #include /* standard definitions */ +#ifdef NAN_BOXING +#include +typedef int64_t obj; /* pointers are this size, higher 16 bits and lower bit zero */ +typedef int64_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) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask) +#define isobjptr(o) (!notobjptr(o)) +#define notaptr(o) ((o) & 0xffff000000000001ULL) +#define isaptr(o) (!notaptr(o)) +#else 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 */ @@ -24,6 +38,7 @@ typedef struct { /* type descriptor */ #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 1) #define isaptr(o) (!notaptr(o)) +#endif #define obj_from_obj(o) (o) #define obj_from_objptr(p) ((obj)(p)) @@ -74,18 +89,32 @@ extern char **cxg_argv; /* extra definitions */ /* basic object representation */ -#define isimm(o, t) (((o) & 0xf) == (((t) << 1) | 1)) -#define isimm2(o1, o2, t) (((((o1) & 0xf) << 4) | ((o2) & 0xf)) == (((((t) << 1) | 1) << 4) | (((t) << 1) | 1))) -#define getimmu_unchecked(o) (long)(((o) >> 4) & 0xfffffff) -#define getimms_unchecked(o) (long)(((((o) >> 4) & 0xfffffff) ^ 0x8000000) - 0x8000000) +#ifdef NAN_BOXING +#define isim0(o) (((o) & 0xffff000000000003ULL) == 3) +#define isimm(o, t) (((o) & 0xffff0000000000ffULL) == (((t) << 2) | 1)) #ifdef NDEBUG - #define getimmu(o, t) getimmu_unchecked(o) - #define getimms(o, t) getimms_unchecked(o) + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) #else + extern long getim0s(obj o); extern long getimmu(obj o, int t); - extern long getimms(obj o, int t); #endif -#define mkimm(o, t) (obj)((((o) & 0xfffffff) << 4) | ((t) << 1) | 1) +#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3)) +#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1)) +#else +#define isim0(o) (((o) & 3) == 3) +#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1)) +#ifdef NDEBUG + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) +#else + extern long getim0s(obj o); + extern long getimmu(obj o, int t); +#endif +#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3) +#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1) +#define FLONUMS_BOXED +#endif #ifdef NDEBUG static int isnative(obj o, cxtype_t *tp) { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; } @@ -95,12 +124,6 @@ extern char **cxg_argv; extern void *getnative(obj o, cxtype_t *tp); #endif extern int istagged(obj o, int t); -static /*inline*/ int istagged_inlined(obj o, int t) { - if (!isobjptr(o)) return 0; - else { obj h = objptr_from_obj(o)[-1]; - return notaptr(h) && size_from_obj(h) >= 1 - && hblkref(o, 0) == obj_from_size(t); } -} #ifdef NDEBUG #define cktagged(o, t) (o) #define taggedlen(o, t) (hblklen(o)-1) @@ -110,8 +133,18 @@ static /*inline*/ int istagged_inlined(obj o, int t) { extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif -/* unit */ -#define obj_from_unit() (obj_from_size(0x6DF6F577)) +extern int istyped(obj o); +#ifdef NDEBUG + #define cktyped(o, t) (o) + #define typedtype(o) (&hblkref(o, 0)) + #define typedlen(o) (hblklen(o)-1) + #define typedref(o, i) (&hblkref(o, (i)+1)) +#else + extern obj cktyped(obj o); + extern obj* typedtype(obj o); + extern int typedlen(obj o); + extern obj* typedref(obj o, int i); +#endif /* booleans */ #define TRUE_ITAG 0 typedef int bool_t; @@ -119,10 +152,18 @@ typedef int bool_t; #define is_bool_bool(b) ((void)(b), 1) #define void_from_bool(b) (void)(b) #define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0) +/* void */ +#define VOID_ITAG 1 +#define mkvoid() mkimm(0, VOID_ITAG) +#define isvoid(o) ((o) == mkimm(0, VOID_ITAG)) +#undef obj_from_void +#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG)) +/* unit */ +#define obj_from_unit() (obj_from_size(0x6DF6F577)) /* numbers */ -#define FIXNUM_BIT 28 -#define FIXNUM_MIN -134217728 -#define FIXNUM_MAX 134217727 +#define FIXNUM_BIT 30 +#define FIXNUM_MIN -536870912 +#define FIXNUM_MAX 536870911 #ifdef NDEBUG #define fxneg(x) (-(x)) #define fxabs(x) (labs(x)) @@ -185,21 +226,44 @@ extern double flgcd(double x, double y); extern double flround(double x); extern int strtofxfl(char *s, int radix, long *pl, double *pd); /* fixnums */ -#define FIXNUM_ITAG 1 typedef long fixnum_t; -#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG)) -#define are_fixnum_objs(o1, o2) (isimm2((o1), (o2), FIXNUM_ITAG)) -#define get_fixnum_unchecked(o) (getimms_unchecked(o)) +#define is_fixnum_obj(o) (isim0(o)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define is_bool_fixnum(i) ((void)(i), 0) #define is_fixnum_bool(i) ((void)(i), 0) -#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG)) +#define fixnum_from_obj(o) (getim0s(o)) #define fixnum_from_fixnum(i) (i) #define fixnum_from_flonum(l,x) ((fixnum_t)(x)) #define bool_from_fixnum(i) ((void)(i), 1) #define void_from_fixnum(i) (void)(i) -#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG) +#define obj_from_fixnum(i) mkim0((fixnum_t)(i)) /* flonums */ +#ifndef FLONUMS_BOXED +typedef double flonum_t; +#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL) +#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_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) +union iod { cxoint_t i; double d; }; +static double flonum_from_obj(obj o) { + union iod u; + assert(is_flonum_obj(o)); + u.i = ~o; + return u.d; +} +static obj obj_from_flonum(int rc, double d) { + union iod u; + u.d = d; + assert(is_flonum_obj(~u.i)); + return ~u.i; +} +#else /* FLONUMS_BOXED */ extern cxtype_t *FLONUM_NTAG; typedef double flonum_t; #define is_flonum_obj(o) (isnative(o, FLONUM_NTAG)) @@ -215,6 +279,7 @@ typedef double flonum_t; #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); +#endif /* characters */ #define CHAR_ITAG 2 typedef int char_t; @@ -227,7 +292,7 @@ typedef int char_t; #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_obj(o) ((int)getimmu(o, CHAR_ITAG)) #define char_from_char(i) (i) #define bool_from_char(i) ((void)(i), 1) #define void_from_char(i) (void)(i) @@ -246,12 +311,13 @@ extern cxtype_t *STRING_NTAG; extern char* stringref(obj o, int i); #endif extern int *newstring(char *s); +extern int *newstringn(char *s, int n); extern int *allocstring(int n, int c); extern int *substring(int *d, int from, int to); extern int *stringcat(int *d0, int *d1); extern int *dupstring(int *d); extern void stringfill(int *d, int c); -extern int strcmp_ci(char *s1, char*s2); +extern int strcmp_ci(char *s1, char *s2); /* vectors */ #define VECTOR_BTAG 1 #define isvector(o) istagged(o, VECTOR_BTAG) @@ -279,7 +345,8 @@ static int is_byte_obj(obj o) { return (obj_from_fixnum(0) <= o && o <= obj_from extern unsigned char* bytevectorref(obj o, int i); #endif extern int *newbytevector(unsigned char *s, int n); -extern int *allocbytevector(int n, int c); +extern int *makebytevector(int n, int c); +extern int *allocbytevector(int n); extern int *dupbytevector(int *d); extern int bytevectoreq(int *d0, int *d1); extern int *subbytevector(int *d, int from, int to); @@ -305,11 +372,10 @@ extern int islist(obj l); extern char *symbolname(int sym); extern int internsym(char *name); /* records */ -#define RECORD_BTAG 4 -#define isrecord(o) istagged(o, RECORD_BTAG) -#define recordrtd(r) *taggedref(r, RECORD_BTAG, 0) -#define recordref(r, i) *taggedref(r, RECORD_BTAG, (i)+1) -#define recordlen(r) (taggedlen(r, RECORD_BTAG)-1) +#define isrecord(o) istyped(o) +#define recordrtd(r) *typedtype(r) +#define recordlen(r) typedlen(r) +#define recordref(r, i) *typedref(r, i) /* procedures */ extern int isprocedure(obj o); extern int procedurelen(obj o); @@ -318,8 +384,8 @@ extern obj* procedureref(obj o, int i); extern obj appcases[]; /* eof */ #define EOF_ITAG 7 -#define mkeof() mkimm(-1, EOF_ITAG) -#define iseof(o) ((o) == mkimm(-1, EOF_ITAG)) +#define mkeof() mkimm(0, EOF_ITAG) +#define iseof(o) ((o) == mkimm(0, EOF_ITAG)) /* input ports */ typedef struct { /* extends cxtype_t */ const char *tname; diff --git a/src/k.sf b/src/k.sf index c33193a..04fd238 100644 --- a/src/k.sf +++ b/src/k.sf @@ -457,6 +457,8 @@ (cond [(null? tail) (list 'begin)] + [(list1? tail) ; can't have defines there + (xform #f (car tail) env)] [(not (list? tail)) (x-error "improper body form" (cons 'body tail))] [else diff --git a/src/n.sf b/src/n.sf index 17a9d16..3a2f191 100644 --- a/src/n.sf +++ b/src/n.sf @@ -1,5 +1,5 @@ -; LibN: Medium RNRS compatibility library for #F, fixnum/flonum arithmetics +; LibN: Large RNRS compatibility library for #F, fixnum/flonum arithmetics ; #F's predefined forms: ; @@ -261,33 +261,60 @@ (%definition "/* basic object representation */") -; immediate objects have 3-bit tag followed by at least 28 bits of data -; subtype bits follow lsb which is 1 in non-pointer objects +; there are two types of immediate objects: those with 30 bits of payload data +; and no secondary tag (lower two bits are 11), and those with 3-bit tag and 24 +; bits of payload data (lower two bits are 01); in both cases lsb is 1 -(%definition "#define isimm(o, t) (((o) & 0xf) == (((t) << 1) | 1))") -(%definition "#define isimm2(o1, o2, t) (((((o1) & 0xf) << 4) | ((o2) & 0xf)) == (((((t) << 1) | 1) << 4) | (((t) << 1) | 1)))") -(%definition "#define getimmu_unchecked(o) (long)(((o) >> 4) & 0xfffffff)") -(%definition "#define getimms_unchecked(o) (long)(((((o) >> 4) & 0xfffffff) ^ 0x8000000) - 0x8000000)") - -(%localdef "long getimmu(obj o, int t) { - assert(isimm(o, t)); - return getimmu_unchecked(o); -}") - -(%localdef "long getimms(obj o, int t) { - assert(isimm(o, t)); - return getimms_unchecked(o); -}") +(%definition "#ifdef NAN_BOXING") +(%definition "#define isim0(o) (((o) & 0xffff000000000003ULL) == 3)") +(%definition "#define isimm(o, t) (((o) & 0xffff0000000000ffULL) == (((t) << 2) | 1))") (%definition "#ifdef NDEBUG - #define getimmu(o, t) getimmu_unchecked(o) - #define getimms(o, t) getimms_unchecked(o) + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) #else + extern long getim0s(obj o); extern long getimmu(obj o, int t); - extern long getimms(obj o, int t); #endif") +(%localdef "#ifndef NDEBUG +long getim0s(obj o) { + assert(isim0(o)); + return (long)(((((uint32_t)o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000); +} +long getimmu(obj o, int t) { + assert(isimm((o), t)); + return (long)(((uint32_t)o >> 8) & 0xffffff); +} +#endif") +(%definition "#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3))") +(%definition "#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1))") -(%definition "#define mkimm(o, t) (obj)((((o) & 0xfffffff) << 4) | ((t) << 1) | 1)") +(%definition "#else") + +(%definition "#define isim0(o) (((o) & 3) == 3)") +(%definition "#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1))") +(%definition "#ifdef NDEBUG + #define getim0s(o) (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) + #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) +#else + extern long getim0s(obj o); + extern long getimmu(obj o, int t); +#endif") +(%localdef "#ifndef NDEBUG +long getim0s(obj o) { + assert(isim0(o)); + return (long)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000); +} +long getimmu(obj o, int t) { + assert(isimm(o, t)); + return (long)((o >> 8) & 0xffffff); +} +#endif") +(%definition "#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3)") +(%definition "#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1)") +(%definition "#define FLONUMS_BOXED") + +(%definition "#endif") ; native blocks are 1-element blocks containing a native @@ -315,8 +342,10 @@ void *getnative(obj o, cxtype_t *tp) { ; tagged blocks are heap blocks with runtime int tag as 0th element -; (disjoint from closures which have a pointer as 0th element) +; (disjoint from closures which have a foreign pointer as 0th element +; and from typed blocks which have scheme heap pointer as 0th element) +(%definition "extern int istagged(obj o, int t);") (%localdef "int istagged(obj o, int t) { if (!isobjptr(o)) return 0; else { obj h = objptr_from_obj(o)[-1]; @@ -324,24 +353,6 @@ void *getnative(obj o, cxtype_t *tp) { && hblkref(o, 0) == obj_from_size(t); } }") -(%localdef "obj cktagged(obj o, int t) { - assert(istagged(o, t)); - return o; -}") - -(%localdef "int taggedlen(obj o, int t) { - assert(istagged(o, t)); - return hblklen(o) - 1; -}") - -(%localdef "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); -}") - -(%definition "extern int istagged(obj o, int t);") (%definition "#ifdef NDEBUG #define cktagged(o, t) (o) #define taggedlen(o, t) (hblklen(o)-1) @@ -351,28 +362,69 @@ void *getnative(obj o, cxtype_t *tp) { extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif") +(%localdef "#ifndef NDEBUG +obj cktagged(obj o, int t) { + assert(istagged((o), t)); + return o; +} +int taggedlen(obj o, int t) { + assert(istagged((o), t)); + return hblklen(o) - 1; +} +obj* taggedref(obj o, int t, int i) { + int len; assert(istagged((o), t)); + len = hblklen(o); + assert(i >= 0 && i < len-1); + return &hblkref(o, i+1); +} +#endif") -; void +; typed blocks have non-immediate scheme tag as 0th element +; (disjoint from closures and native/tagged blocks) -; this is the value to be used where it doesn't really matter what value -; is used. Standard header supports void value, which is some immediate -; which looks funny in the debugger; it might correspond to a useful value, -; but we don't really care. +(%definition "extern int istyped(obj o);") +(%localdef "int istyped(obj o) { + if (!isobjptr(o)) return 0; + else { obj h = objptr_from_obj(o)[-1]; + return notaptr(h) && size_from_obj(h) >= 1 + && isobjptr(hblkref(o, 0)); } +}") -(define-inline (void) (%prim "void(0)")) -(define-inline (void? x) (%prim "bool(obj_from_$arg == obj_from_void(0))" x)) +(%definition "#ifdef NDEBUG + #define cktyped(o, t) (o) + #define typedtype(o) (&hblkref(o, 0)) + #define typedlen(o) (hblklen(o)-1) + #define typedref(o, i) (&hblkref(o, (i)+1)) +#else + extern obj cktyped(obj o); + extern obj* typedtype(obj o); + extern int typedlen(obj o); + extern obj* typedref(obj o, int i); +#endif") +(%localdef "#ifndef NDEBUG +obj cktyped(obj o) { + assert(istyped(o)); + return o; +} +obj* typedtype(obj o) { + assert(istyped(o)); + return &hblkref(o, 0); +} +int typedlen(obj o) { + assert(istyped(o)); + return hblklen(o) - 1; +} +obj* typedref(obj o, int i) { + int len; assert(istyped(o)); + len = hblklen(o); + assert(i >= 0 && i < len-1); + return &hblkref(o, i+1); +} +#endif") -; unit - -; this is the value to be used when zero results are returned to a context -; where one result is expected; it is analogous to a 0-element tuple - -(%definition "/* unit */") -(%definition "#define obj_from_unit() (obj_from_size(0x6DF6F577))") - ; booleans @@ -402,13 +454,45 @@ void *getnative(obj o, cxtype_t *tp) { (define-inline (not x) (%prim "bool(!bool_from_$arg)" x)) +(define-syntax boolean=? + (syntax-rules () + [(_ x y) (%prim "bool(bool_from_$arg == bool_from_$arg)" x y)] + [(_ x y z ...) (let ([t y]) (and (boolean=? x t) (boolean=? t z ...)))] + [_ %residual-boolean=?])) + + + +; void + +; void object redefined as immediate with payload 0 and immediate tag 1 + + +(%definition "/* void */") +(%definition "#define VOID_ITAG 1") +(%definition "#define mkvoid() mkimm(0, VOID_ITAG)") +(%definition "#define isvoid(o) ((o) == mkimm(0, VOID_ITAG))") +(%definition "#undef obj_from_void") +(%definition "#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG))") + +(define-inline (void) (%prim "void(0)")) +(define-inline (void? x) (%prim "bool(obj_from_$arg == obj_from_void(0))" x)) + + +; unit + +; this is the value to be used when zero results are returned to a context +; where one result is expected; it is analogous to a 0-element tuple + +(%definition "/* unit */") +(%definition "#define obj_from_unit() (obj_from_size(0x6DF6F577))") + ; numerical helpers (%definition "/* numbers */") -(%definition "#define FIXNUM_BIT 28") -(%definition "#define FIXNUM_MIN -134217728") -(%definition "#define FIXNUM_MAX 134217727") +(%definition "#define FIXNUM_BIT 30") +(%definition "#define FIXNUM_MIN -536870912") +(%definition "#define FIXNUM_MAX 536870911") (%definition "#ifdef NDEBUG #define fxneg(x) (-(x)) #define fxabs(x) (labs(x)) @@ -627,7 +711,7 @@ long fxflo(double f) { fl: if (radix != 10) return (errno = eno, 0); e = \"\", errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e); else if (strcmp_ci(s+1, \"inf.0\") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); - else if (strcmp_ci(s+1, \"nan.0\") == 0) d = HUGE_VAL - HUGE_VAL; + else if (strcmp_ci(s+1, \"nan.0\") == 0) d = HUGE_VAL - HUGE_VAL; else d = strtod(s, &e); if (errno || *e || e == s) return (errno = eno, 0); if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d)) @@ -639,23 +723,20 @@ long fxflo(double f) { ; fixnums -; fixnums are immediate with immediate tag 1 +; fixnums are tag-less immediates with 30 bits of payload (%definition "/* fixnums */") -(%definition "#define FIXNUM_ITAG 1") (%definition "typedef long fixnum_t;") -(%definition "#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG))") -(%definition "#define are_fixnum_objs(o1, o2) (isimm2((o1), (o2), FIXNUM_ITAG))") -(%definition "#define get_fixnum_unchecked(o) (getimms_unchecked(o))") +(%definition "#define is_fixnum_obj(o) (isim0(o))") (%definition "#define is_fixnum_fixnum(i) ((void)(i), 1)") (%definition "#define is_bool_fixnum(i) ((void)(i), 0)") (%definition "#define is_fixnum_bool(i) ((void)(i), 0)") -(%definition "#define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG))") +(%definition "#define fixnum_from_obj(o) (getim0s(o))") (%definition "#define fixnum_from_fixnum(i) (i)") (%definition "#define fixnum_from_flonum(l,x) ((fixnum_t)(x))") (%definition "#define bool_from_fixnum(i) ((void)(i), 1)") (%definition "#define void_from_fixnum(i) (void)(i)") -(%definition "#define obj_from_fixnum(i) mkimm((fixnum_t)(i), FIXNUM_ITAG)") +(%definition "#define obj_from_fixnum(i) mkim0((fixnum_t)(i))") (define-syntax %const (let-syntax ([old-%const %const]) @@ -849,6 +930,32 @@ long fxflo(double f) { (%include ) (%definition "/* flonums */") +(%definition "#ifndef FLONUMS_BOXED") +(%definition "typedef double flonum_t;") +(%definition "#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL)") +(%definition "#define is_flonum_flonum(f) ((void)(f), 1)") +(%definition "#define is_flonum_bool(f) ((void)(f), 0)") +(%definition "#define is_bool_flonum(f) ((void)(f), 0)") +(%definition "#define is_fixnum_flonum(i) ((void)(i), 0)") +(%definition "#define is_flonum_fixnum(i) ((void)(i), 0)") +(%definition "#define flonum_from_flonum(l, f) (f)") +(%definition "#define flonum_from_fixnum(x) ((flonum_t)(x))") +(%definition "#define bool_from_flonum(f) ((void)(f), 0)") +(%definition "#define void_from_flonum(l, f) (void)(f)") +(%definition "union iod { cxoint_t i; double d; };") +(%definition "static double flonum_from_obj(obj o) { + union iod u; + assert(is_flonum_obj(o)); + u.i = ~o; + return u.d; +}") +(%definition "static obj obj_from_flonum(int rc, double d) { + union iod u; + u.d = d; + assert(is_flonum_obj(~u.i)); + return ~u.i; +}") +(%definition "#else /* FLONUMS_BOXED */") (%localdef "static cxtype_t cxt_flonum = { \"flonum\", free };") (%localdef "cxtype_t *FLONUM_NTAG = &cxt_flonum;") (%definition "extern cxtype_t *FLONUM_NTAG;") @@ -870,6 +977,7 @@ long fxflo(double f) { flonum_t *pf = cxm_cknull(malloc(sizeof(flonum_t)), \"malloc(flonum)\"); *pf = f; return pf; }") +(%definition "#endif") (define-syntax %const (let-syntax ([old-%const %const]) @@ -1328,7 +1436,7 @@ long fxflo(double f) { (%include ) -; characters are immediate with immediate tag 2 +; characters are 24-bit immediates with immediate tag 2 (%definition "/* characters */") (%definition "#define CHAR_ITAG 2") @@ -1342,7 +1450,7 @@ long fxflo(double f) { (%definition "#define is_fixnum_char(i) ((void)(i), 0)") (%definition "#define is_char_flonum(i) ((void)(i), 0)") (%definition "#define is_flonum_char(i) ((void)(i), 0)") -(%definition "#define char_from_obj(o) ((int)getimms(o, CHAR_ITAG))") +(%definition "#define char_from_obj(o) ((int)getimmu(o, CHAR_ITAG))") (%definition "#define char_from_char(i) (i)") (%definition "#define bool_from_char(i) ((void)(i), 1)") (%definition "#define void_from_char(i) (void)(i)") @@ -1358,35 +1466,65 @@ long fxflo(double f) { (define-inline (char? x) (%prim "bool(is_char_$arg)" x)) -(define-inline (char=? x y) - (%prim "bool(char_from_$arg == char_from_$arg)" x y)) +(define-syntax char=? + (syntax-rules () + [(_ x y) (%prim "bool(char_from_$arg == char_from_$arg)" x y)] + [(_ x y z ...) (let ([t y]) (and (char=? x t) (char=? t z ...)))] + [_ %residual-char=?])) -(define-inline (char? + (syntax-rules () + [(_ x y) (%prim "bool(char_from_$arg > char_from_$arg)" x y)] + [(_ x y z ...) (let ([t y]) (and (char>? x t) (char>? t z ...)))] + [_ %residual-char>?])) -(define-inline (char>? x y) - (%prim "bool(char_from_$arg > char_from_$arg)" x y)) +(define-syntax char=? + (syntax-rules () + [(_ x y) (%prim "bool(char_from_$arg >= char_from_$arg)" x y)] + [(_ x y z ...) (let ([t y]) (and (char>=? x t) (char>=? t z ...)))] + [_ %residual-char>=?])) -(define-inline (char>=? x y) - (%prim "bool(char_from_$arg >= char_from_$arg)" x y)) +(define-syntax char<=? + (syntax-rules () + [(_ x y) (%prim "bool(char_from_$arg <= char_from_$arg)" x y)] + [(_ x y z ...) (let ([t y]) (and (char<=? x t) (char<=? t z ...)))] + [_ %residual-char<=?])) -(define-inline (char-ci=? x y) - (%prim "bool(tolower(char_from_$arg) == tolower(char_from_$arg))" x y)) +(define-syntax char-ci=? + (syntax-rules () + [(_ x y) (%prim "bool(tolower(char_from_$arg) == tolower(char_from_$arg))" x y)] + [(_ x y z ...) (let ([t y]) (and (char-ci=? x t) (char-ci=? t z ...)))] + [_ %residual-char-ci=?])) -(define-inline (char-ci? + (syntax-rules () + [(_ x y) (%prim "bool(tolower(char_from_$arg) > tolower(char_from_$arg))" x y)] + [(_ x y z ...) (let ([t y]) (and (char-ci>? x t) (char-ci>? t z ...)))] + [_ %residual-char-ci>?])) -(define-inline (char-ci>? x y) - (%prim "bool(tolower(char_from_$arg) > tolower(char_from_$arg))" x y)) +(define-syntax char-ci=? + (syntax-rules () + [(_ x y) (%prim "bool(tolower(char_from_$arg) >= tolower(char_from_$arg))" x y)] + [(_ x y z ...) (let ([t y]) (and (char-ci>=? x t) (char-ci>=? t z ...)))] + [_ %residual-char-ci>=?])) -(define-inline (char-ci>=? x y) - (%prim "bool(tolower(char_from_$arg) >= tolower(char_from_$arg))" x y)) +(define-syntax char-ci<=? + (syntax-rules () + [(_ x y) (%prim "bool(tolower(char_from_$arg) <= tolower(char_from_$arg))" x y)] + [(_ x y z ...) (let ([t y]) (and (char-ci<=? x t) (char-ci<=? t z ...)))] + [_ %residual-char-ci<=?])) (define-inline (char-alphabetic? x) (%prim "bool(isalpha(char_from_$arg))" x)) @@ -1415,6 +1553,11 @@ long fxflo(double f) { (define-inline (char-downcase x) (%prim "char(tolower(char_from_$arg))" x)) +(define-syntax char-foldcase char-downcase) + +(define-inline (digit-value x) + (and (char<=? #\0 x #\9) (fx- (char->integer x) (%prim "fixnum('0')")))) + ; strings @@ -1432,9 +1575,8 @@ long fxflo(double f) { (%definition "#define hpushstr(l, s) hpushptr(s, STRING_NTAG, l)") (%localdef "char* stringref(obj o, int i) { - int *d = stringdata(o); - assert(i >= 0 && i < *d); - return ((char*)(d+1))+i; + int *d = stringdata(o); assert(i >= 0 && i < *d); + return sdatachars(d)+i; }") (%definition "#ifdef NDEBUG @@ -1447,14 +1589,21 @@ long fxflo(double f) { (%localdef "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; + *d = l; strcpy(sdatachars(d), s); return d; +}") + +(%definition "extern int *newstringn(char *s, int n);") +(%localdef "int *newstringn(char *s, int n) { + int *d; char *ns; assert(s); assert(n >= 0); + d = cxm_cknull(malloc(sizeof(int)+n+1), \"malloc(stringn)\"); + *d = n; memcpy((ns = sdatachars(d)), s, n); ns[n] = 0; return d; }") (%definition "extern int *allocstring(int n, int c);") (%localdef "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; + *d = n; s = sdatachars(d); memset(s, c, n); s[n] = 0; return d; }") @@ -1463,7 +1612,7 @@ long fxflo(double f) { 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); + *d1 = n; s0 = sdatachars(d0); s1 = sdatachars(d1); memcpy(s1, s0+from, n); s1[n] = 0; return d1; }") @@ -1472,7 +1621,7 @@ long fxflo(double f) { (%localdef "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); + *d = n; s = sdatachars(d); s0 = sdatachars(d0); s1 = sdatachars(d1); memcpy(s, s0, l0); memcpy(s+l0, s1, l1); s[n] = 0; return d; }") @@ -1486,15 +1635,14 @@ long fxflo(double f) { (%definition "extern void stringfill(int *d, int c);") (%localdef "void stringfill(int *d, int c) { - int l = *d, i; char *s = (char*)(d+1); + int l = *d, i; char *s = sdatachars(d); for (i = 0; i < l; ++i) s[i] = c; }") -(%definition "extern int strcmp_ci(char *s1, char*s2);") +(%definition "extern int strcmp_ci(char *s1, char *s2);") (%localdef "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); + do { c1 = *s1++; c2 = *s2++; d = (unsigned)tolower(c1) - (unsigned)tolower(c2); } while (!d && c1 && c2); return d; }") @@ -1536,42 +1684,86 @@ long fxflo(double f) { (define-inline (string-set! s k c) (%prim! "void(*stringref(obj_from_$arg, fixnum_from_$arg) = char_from_$arg)" s k c)) -(define-inline (string=? x y) - (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) == 0)" x y)) +(define-syntax string=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) == 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string=? x t) (string=? t z ...)))] + [_ %residual-string=?])) -(define-inline (string? x y) - (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) > 0)" x y)) +(define-syntax string>? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) > 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string>? x t) (string>? t z ...)))] + [_ %residual-string>?])) -(define-inline (string<=? x y) - (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) <= 0)" x y)) +(define-syntax string<=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) <= 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string<=? x t) (string<=? t z ...)))] + [_ %residual-string<=?])) -(define-inline (string>=? x y) - (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) >= 0)" x y)) +(define-syntax string>=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) >= 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string>=? x t) (string>=? t z ...)))] + [_ %residual-string>=?])) -(define-inline (string-ci=? x y) - (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) == 0)" x y)) +(define-syntax string-ci=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) == 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string-ci=? x t) (string-ci=? t z ...)))] + [_ %residual-string-ci=?])) -(define-inline (string-ci? x y) - (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) > 0)" x y)) +(define-syntax string-ci>? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) > 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string-ci>? x t) (string-ci>? t z ...)))] + [_ %residual-string-ci>?])) -(define-inline (string-ci<=? x y) - (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) <= 0)" x y)) +(define-syntax string-ci<=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) <= 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string-ci<=? x t) (string-ci<=? t z ...)))] + [_ %residual-string-ci<=?])) -(define-inline (string-ci>=? x y) - (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) >= 0)" x y)) +(define-syntax string-ci>=? + (syntax-rules () + [(_ x y) (%prim? "bool(strcmp_ci(stringchars(obj_from_$arg), stringchars(obj_from_$arg)) >= 0)" x y)] + [(_ x y z ...) (let ([t y]) (and (string-ci>=? x t) (string-ci>=? t z ...)))] + [_ %residual-string-ci>=?])) + +(define-inline (string-upcase s) + (%prim*? "{ /* string-upcase */ + int *d = dupstring(stringdata(obj_from_$arg)); char *s; + for (s = sdatachars(d); *s; ++s) *s = toupper(*s); + $return obj(hpushstr($live, d)); }" s)) + +(define-inline (string-downcase s) + (%prim*? "{ /* string-downcase */ + int *d = dupstring(stringdata(obj_from_$arg)); char *s; + for (s = sdatachars(d); *s; ++s) *s = tolower(*s); + $return obj(hpushstr($live, d)); }" s)) + +(define-syntax string-foldcase string-downcase) (define-inline (substring s start end) (%prim*? "{ /* substring */ int *d = substring(stringdata(obj_from_$arg), fixnum_from_$arg, fixnum_from_$arg); $return obj(hpushstr($live, d)); }" s start end)) -(define-inline (string-append/2 s1 s2) +(define-inline (%string-append s1 s2) (%prim*? "{ /* string-append */ int *d = stringcat(stringdata(obj_from_$arg), stringdata(obj_from_$arg)); $return obj(hpushstr($live, d)); }" s1 s2)) @@ -1579,16 +1771,29 @@ long fxflo(double f) { (define-syntax string-append (syntax-rules () [(_) ""] [(_ x) x] - [(_ x y) (string-append/2 x y)] - [(_ x y z ...) (string-append/2 x (string-append y z ...))] + [(_ x y) (%string-append x y)] + [(_ x y z ...) (%string-append x (string-append y z ...))] [_ %residual-string-append])) -(define-inline (string-copy s) +(define-inline (%string-copy s) (%prim*? "{ /* string-copy */ int *d = dupstring(stringdata(obj_from_$arg)); $return obj(hpushstr($live, d)); }" s)) -(define-inline (string-fill! s c) +(define (substring-copy! to at from start end) + (let ([limit (fxmin end (fx+ start (fx- (string-length to) at)))]) + (if (fx<=? at start) + (do ([i at (fx+ i 1)] [j start (fx+ j 1)]) + [(fx>=? j limit)] + (string-set! to i (string-ref from j))) + (do ([i (fx+ at (fx- end start 1)) (fx- i 1)] [j (fx- limit 1) (fx- j 1)]) + [(fx=? i end)] (string-set! str i c))) + +(define-inline (%string-fill! s c) (%prim! "void(stringfill(stringdata(obj_from_$arg), char_from_$arg))" s c)) (define-inline (string-position c s) @@ -1608,7 +1813,15 @@ long fxflo(double f) { (define-inline (vector? o) (%prim "bool(isvector(obj_from_$arg))" o)) -(define-inline (make-vector n i) +(define-inline (%new-vector n) + (%prim* "{ /* new-vector */ + int c = fixnum_from_$arg; + hreserve(hbsz(c+1), $live); /* $live live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_size(VECTOR_BTAG); + $return obj(hendblk(c+1)); }" n)) + +(define-inline (%make-vector n i) (%prim* "{ /* make-vector */ obj o; int i = 0, c = fixnum_from_$arg; hreserve(hbsz(c+1), $live); /* $live live regs */ @@ -1618,11 +1831,10 @@ long fxflo(double f) { $return obj(hendblk(c+1)); }" n i)) (define-syntax make-vector - (let-syntax ([old-make-vector make-vector]) - (syntax-rules () - [(_ n) (old-make-vector n (void))] - [(_ n i) (old-make-vector n i)] - [_ %residual-make-vector]))) + (syntax-rules () + [(_ n) (%new-vector n)] + [(_ n i) (%make-vector n i)] + [_ %residual-make-vector])) (define-syntax vector (syntax-rules () @@ -1649,11 +1861,23 @@ long fxflo(double f) { (define-inline (vector-set! v i x) (%prim! "void(vectorref(obj_from_$arg, fixnum_from_$arg) = obj_from_$arg)" v i x)) -(define (vector-fill! v x) ;extend? turn into subvector-fill? - (let ([n (vector-length v)]) - (do ([i 0 (fx+ i 1)]) - [(fx=? i n)] - (vector-set! v i x)))) +(define (subvector-copy! to at from start end) + (let ([limit (fxmin end (fx+ start (fx- (vector-length to) at)))]) + (if (fx<=? at start) + (do ([i at (fx+ i 1)] [j start (fx+ j 1)]) + [(fx>=? j limit)] + (vector-set! to i (vector-ref from j))) + (do ([i (fx+ at (fx- end start 1)) (fx- i 1)] [j (fx- limit 1) (fx- j 1)]) + [(fx=? i end)] (vector-set! vec i x))) ; bytevectors @@ -1694,13 +1918,18 @@ long fxflo(double f) { d = mallocbvdata(n); *d = n; memcpy(bvdatabytes(d), s, n); return d; }") -(%definition "extern int *allocbytevector(int n, int c);") -(%localdef "int *allocbytevector(int n, int c) { +(%definition "extern int *makebytevector(int n, int c);") +(%localdef "int *makebytevector(int n, int c) { int *d; assert(n >= 0); d = mallocbvdata(n); *d = n; memset(bvdatabytes(d), c, n); return d; }") +(%definition "extern int *allocbytevector(int n);") +(%localdef "int *allocbytevector(int n) { + int *d = mallocbvdata(n); *d = n; return d; +}") + (%definition "extern int *dupbytevector(int *d);") (%localdef "int *dupbytevector(int *d0) { int *d1 = mallocbvdata(*d0); *d1 = *d0; @@ -1738,15 +1967,15 @@ long fxflo(double f) { (define-syntax make-bytevector (syntax-rules () - [(_ k) (%prim* "obj(hpushu8v($live, allocbytevector(fixnum_from_$arg, 0)))" k)] - [(_ k c) (%prim* "obj(hpushu8v($live, allocbytevector(fixnum_from_$arg, byte_from_fixnum(fixnum_from_$arg))))" k c)] + [(_ k) (%prim* "obj(hpushu8v($live, allocbytevector(fixnum_from_$arg)))" k)] + [(_ k c) (%prim* "obj(hpushu8v($live, makebytevector(fixnum_from_$arg, byte_from_fixnum(fixnum_from_$arg))))" k c)] [_ %residual-make-bytevector])) (define-syntax bytevector (syntax-rules () [(_ b ...) (%prim* "{ /* bytevector */ - obj o = hpushu8v($live, allocbytevector($argc, 0)); + obj o = hpushu8v($live, allocbytevector($argc)); unsigned char *s = bytevectorbytes(o); ${*s++ = byte_from_fixnum(fixnum_from_$arg); $}$return obj(o); }" b ...)] @@ -1764,6 +1993,16 @@ long fxflo(double f) { (define-inline (bytevector=? x y) (%prim? "bool(bytevectoreq(bytevectordata(obj_from_$arg), bytevectordata(obj_from_$arg)))" x y)) +(define (subbytevector-copy! to at from start end) + (let ([limit (fxmin end (fx+ start (fx- (bytevector-length to) at)))]) + (if (fx<=? at start) + (do ([i at (fx+ i 1)] [j start (fx+ j 1)]) + [(fx>=? j limit)] + (bytevector-u8-set! to i (bytevector-u8-ref from j))) + (do ([i (fx+ at (fx- end start 1)) (fx- i 1)] [j (fx- limit 1) (fx- j 1)]) + [(fx 0) l = cdr(l); $return obj(l); }" l n)) +(define-inline (list-set! l n obj) + (set-car! (list-tail list n) obj)) + (define-inline (last-pair l) (%prim? "{ /* last-pair */ obj l = obj_from_$arg, p; @@ -2014,9 +2268,10 @@ long fxflo(double f) { [_ %residual-for-each])) + ; symbols -; symbols are immediate with immediate tag 4 +; symbols are 24-bit immediates with immediate tag 4 (%definition "/* symbols */") (%definition "#define SYMBOL_ITAG 4") @@ -2082,18 +2337,23 @@ long fxflo(double f) { (define-inline (symbol? x) (%prim "bool(issymbol(obj_from_$arg))" x)) -(define-inline (symbol=? x y) - (%prim "bool(getsymbol(obj_from_$arg) == getsymbol(obj_from_$arg))" x y)) +(define-syntax symbol=? + (syntax-rules () + [(_ x y) (%prim "bool(getsymbol(obj_from_$arg) == getsymbol(obj_from_$arg))" x y)] + [(_ x y z ...) (let ([t y]) (and (symbol=? x t) (symbol=? t z ...)))] + [_ %residual-symbol=?])) + ; records +; records are typed blocks with rtd (non-immediate object) as type + (%definition "/* records */") -(%definition "#define RECORD_BTAG 4") -(%definition "#define isrecord(o) istagged(o, RECORD_BTAG)") -(%definition "#define recordrtd(r) *taggedref(r, RECORD_BTAG, 0)") -(%definition "#define recordref(r, i) *taggedref(r, RECORD_BTAG, (i)+1)") -(%definition "#define recordlen(r) (taggedlen(r, RECORD_BTAG)-1)") +(%definition "#define isrecord(o) istyped(o)") +(%definition "#define recordrtd(r) *typedtype(r)") +(%definition "#define recordlen(r) typedlen(r)") +(%definition "#define recordref(r, i) *typedref(r, i)") (define-syntax record? (syntax-rules () @@ -2106,12 +2366,11 @@ long fxflo(double f) { (define-inline (make-record rtd n) (%prim* "{ /* make-record */ - int i = 0, c = fixnum_from_$arg; - hreserve(hbsz(c+2), $live); /* $live live regs */ - while (i++ < c) *--hp = obj_from_bool(0); - *--hp = obj_from_$arg; /* gc-safe */ - *--hp = obj_from_size(RECORD_BTAG); - $return obj(hendblk(c+2)); }" n rtd)) + int c = fixnum_from_$arg; + hreserve(hbsz(c+1), $live); /* $live live regs */ + hp -= c; memset(hp, 0, c * sizeof(obj)); + *--hp = obj_from_$arg; assert(isobjptr(*hp)); + $return obj(hendblk(c+1)); }" n rtd)) (define-inline (record-type-descriptor r) (%prim "obj(recordrtd(obj_from_$arg))" r)) @@ -2167,6 +2426,7 @@ long fxflo(double f) { (unroll rtn (consn id ...) predn ((fn . am) ...) () () ())]))) + ; conversions (define-inline (symbol->string s) @@ -2220,7 +2480,7 @@ long fxflo(double f) { char *e = \"\", *s = stringchars(obj_from_$arg); double d; errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e); else if (strcmp_ci(s+1, \"inf.0\") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL); - else if (strcmp_ci(s+1, \"nan.0\") == 0) d = HUGE_VAL - HUGE_VAL; + else if (strcmp_ci(s+1, \"nan.0\") == 0) d = HUGE_VAL - HUGE_VAL; else d = strtod(s, &e); if (errno || e == s || *e) $return bool(0); else $return flonum($live, d); }" s)) @@ -2242,16 +2502,11 @@ long fxflo(double f) { [(_ s) (string->fixnum-or-flonum s 10)] [_ %residual-string->number])) -(define-inline (vector->list v) - (%prim*? "{ /* vector->list */ - obj v, l = mknull(); int c = fixnum_from_$arg; - hreserve(hbsz(3)*c, $live); /* $live live regs */ - v = obj_from_$arg; /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c); - *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } - $return obj(l); }" (vector-length v) v)) +(define (subvector->list vec start end) + (let loop ([i (fx- end 1)] [l '()]) + (if (fxvector l) +(define (list->vector l) (%prim*? "{ /* list->vector */ obj l; int i, c = fixnum_from_$arg; hreserve(hbsz(c+1), $live); /* $live live regs */ @@ -2260,7 +2515,7 @@ long fxflo(double f) { hp -= c; *--hp = obj_from_size(VECTOR_BTAG); $return obj(hendblk(c+1)); }" (length l) l)) -(define-inline (list->string l) +(define (list->string l) (%prim*? "{ /* list->string */ int i, c = fixnum_from_$arg; obj o = hpushstr($live, allocstring(c, ' ')); /* $live live regs */ @@ -2269,34 +2524,41 @@ long fxflo(double f) { for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l)); $return obj(o); }" (length l) l)) -(define-inline (string->list s) - (%prim*? "{ /* string->list */ - int c = fixnum_from_$arg; - unsigned char *s; obj l = mknull(); - hreserve(hbsz(3)*c, $live); /* $live live regs */ - s = (unsigned char *)stringchars(obj_from_$arg); /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]); - *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } - $return obj(l); }" (string-length s) s)) +(define (substring->list str start end) + (let loop ([i (fx- end 1)] [l '()]) + (if (fxbytevector l) +(define (%subvector-string-copy! to at from start end) + (let ([limit (fxmin end (fx+ start (fx- (string-length to) at)))]) + (do ([i at (fx+ i 1)] [j start (fx+ j 1)]) + [(fx>=? j limit) to] + (string-set! to i (vector-ref from j))))) + +(define (subvector->string vec start end) + (%subvector-string-copy! (make-string (fx- end start)) 0 vec start end)) + +(define (%substring-vector-copy! to at from start end) + (let ([limit (fxmin end (fx+ start (fx- (vector-length to) at)))]) + (do ([i at (fx+ i 1)] [j start (fx+ j 1)]) + [(fx>=? j limit) to] + (vector-set! to i (string-ref from j))))) + +(define (substring->vector str start end) + (%substring-vector-copy! (make-vector (fx- end start)) 0 str start end)) + +(define (list->bytevector l) (%prim*? "{ /* list->bytevector */ int i, c = fixnum_from_$arg; - obj o = hpushu8v($live, allocbytevector(c, 0)); /* $live live regs */ + obj o = hpushu8v($live, allocbytevector(c)); /* $live live regs */ obj l = obj_from_$arg; /* gc-safe */ unsigned char *s = bytevectorbytes(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l)); $return obj(o); }" (length l) l)) -(define-inline (bytevector->list bv) - (%prim*? "{ /* bytevector->list */ - int c = fixnum_from_$arg; - unsigned char *s; obj l = mknull(); - hreserve(hbsz(3)*c, $live); /* $live live regs */ - s = bytevectorbytes(obj_from_$arg); /* gc-safe */ - while (c-- > 0) { *--hp = l; *--hp = obj_from_fixnum(s[c]); - *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } - $return obj(l); }" (bytevector-length bv) bv)) +(define (subbytevector->list vec start end) + (let loop ([i (fx- end 1)] [l '()]) + (if (fx=? i end) + (fx- i start) + (let ([c (read-char p)]) + (cond [(eof-object? c) (if (fx=? i start) c (fx- i start))] + [else (string-set! str i c) (loop (fx+ i 1))]))))) + +(define (read-substring k p) + (let ([str (make-string k)]) + (let ([r (read-substring! str 0 k p)]) + (if (eof-object? r) + r + (if (fx=? r k) str (substring str 0 r)))))) + (define-syntax flush-output-port (syntax-rules () [(_) (flush-output-port (current-output-port))] @@ -2964,10 +3260,15 @@ default: /* inter-host call */ [(_ c p) (%prim?! "void(oportputc(char_from_$arg, obj_from_$arg))" c p)] [_ %residual-write-char])) +(define (write-substring from start end p) + (do ([i start (fx+ i 1)]) [(fx>=? i end)] (write-char (string-ref from i) p))) + (define-syntax write-string (syntax-rules () [(_ s) (write-string s (current-output-port))] [(_ s p) (%prim?! "void(oportputs(stringchars(obj_from_$arg), obj_from_$arg))" s p)] + [(_ s p start) (let ([str s]) (write-substring str start (string-length str) p))] + [(_ s p start end) (write-substring s start end p)] [_ %residual-write-string])) (define-syntax newline @@ -3020,7 +3321,6 @@ default: /* inter-host call */ $return void(oportputs(buf, obj_from_$arg)); }" x p)] [_ %residual-display-output-port])) - ; simple binary i/o (define-syntax read-u8 @@ -3041,18 +3341,38 @@ default: /* inter-host call */ [(_ p) #t] ; no better solution for FILE/STRING ports [_ %residual-u8-ready?])) +(define (read-subbytevector! vec start end p) + (let loop ([i start]) + (if (fx>=? i end) + (fx- i start) + (let ([u8 (read-u8 p)]) + (cond [(eof-object? u8) (if (fx=? i start) u8 (fx- i start))] + [else (bytevector-u8-set! vec i u8) (loop (fx+ i 1))]))))) + +(define (read-subbytevector k p) + (let ([vec (make-bytevector k)]) + (let ([r (read-subbytevector! vec 0 k p)]) + (if (eof-object? r) + r + (if (fx=? r k) vec (subbytevector vec 0 r)))))) + (define-syntax write-u8 (syntax-rules () [(_ c) (write-u8 c (current-output-port))] [(_ c p) (%prim?! "void(oportputc(fixnum_from_$arg, obj_from_$arg))" c p)] [_ %residual-write-u8])) +(define (write-subbytevector from start end p) + (do ([i start (fx+ i 1)]) [(fx>=? i end)] (write-u8 (bytevector-u8-ref from i) p))) + (define-syntax write-bytevector (syntax-rules () [(_ bv) (write-bytevector bv (current-output-port))] [(_ bv p) (%prim?! "{ /* write-bytevector */ int *d = bytevectordata(obj_from_$arg); $return void(oportwrite((char *)bvdatabytes(d), *d, obj_from_$arg)); }" bv p)] + [(_ bv p start) (let ([vec bv]) (write-subbytevector vec start (bytevector-length vec) p))] + [(_ bv p start end) (write-subbytevector bv start end p)] [_ %residual-write-bytevector])) @@ -3096,7 +3416,7 @@ static void stabdelifu(obj o, stab_t *p) { } static void stabpushp(obj o, stab_t *p) { obj *r = p->r; if (!r) { p->r = r = cxm_cknull(calloc(sizeof(obj), 12), \"stabpushp\"); r[1] = 10; } - else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+r[1]*2)), \"stabpushp\"); r[1] *= 2; } + else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+(size_t)r[1]*2)), \"stabpushp\"); r[1] *= 2; } r[2 + r[0]++] = o; } static void stabpopp(stab_t *p) { @@ -3159,9 +3479,9 @@ static long stabref(obj o, stab_t *p, int upd) { static int stabufind(obj x, obj y, stab_t *p) { size_t sz = p->sz, i, ix=0, iy=0; /* bogus 0 inits to silence gcc */ obj *r = p->r; for (i = (unsigned long)x & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == x) { ix = i; break; } - for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = r[ix] = i; + for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = (size_t)(r[ix] = i); for (i = (unsigned long)y & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == y) { iy = i; break; } - for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = r[iy] = i; + for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = (size_t)(r[iy] = i); if (ix == iy) return 1; /* same class, assumed to be equal */ if (r[ix] < r[iy]) { r[ix] += r[iy]; r[iy] = ix; } else { r[iy] += r[ix]; r[ix] = iy; } return 0; } @@ -3169,7 +3489,9 @@ static int stabequal(obj x, obj y, stab_t *p) { obj h; int i, n; loop: if (x == y) return 1; if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0; if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y); +#endif if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0; if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)); if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0; @@ -3181,7 +3503,9 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa obj h; int i, n; loop: assert(fuel > 0); if (x == y) return fuel-1; if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return -1; if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return -1; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y) ? fuel-1 : -1; +#endif if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0 ? fuel-1 : -1; if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)) ? fuel-1 : -1; if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return -1; @@ -3209,7 +3533,9 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa 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; +#ifdef FLONUMS_BOXED if (h == (obj)FLONUM_NTAG) return *(flonum_t*)objptr_from_obj(x)[0] == *(flonum_t*)objptr_from_obj(y)[0]; +#endif return 0; }") @@ -3330,6 +3656,7 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa (let ([key expr]) (case key clause1 clause ...))]))) + ; equivalence-based member, assoc (define-inline (memq x l) @@ -3341,9 +3668,18 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa (define-inline (memv x l) (%prim? "obj(ismemv(obj_from_$arg, obj_from_$arg))" x l)) -(define-inline (member x l) +(define-inline (meml x l) (%prim? "obj(ismember(obj_from_$arg, obj_from_$arg))" x l)) +(define (%member x l eq) + (and (pair? l) (if (eq x (car l)) l (%member x (cdr l) eq)))) + +(define-syntax member + (syntax-rules () + [(_ x l) (meml x l)] + [(_ x l eq) (%member x l eq)] + [_ %residual-member])) + (define-inline (assq x l) (%prim? "{ /* assq */ obj x = obj_from_$arg, l = obj_from_$arg, p = mknull(); @@ -3353,9 +3689,18 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa (define-inline (assv x l) (%prim? "obj(isassv(obj_from_$arg, obj_from_$arg))" x l)) -(define-inline (assoc x l) +(define-inline (assl x l) (%prim? "obj(isassoc(obj_from_$arg, obj_from_$arg))" x l)) +(define (%assoc x al eq) + (and (pair? al) (if (eq x (caar al)) (car al) (%assoc x (cdr al) eq)))) + +(define-syntax assoc + (syntax-rules () + [(_ x al) (assl x al)] + [(_ x al eq) (%assoc x al eq)] + [_ %residual-assoc])) + ; quasiquote @@ -3376,7 +3721,6 @@ static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on fa [(_ x . d) 'x])) - ; S-expression writer (%localdef "/* internal recursive write procedure */ @@ -3489,20 +3833,25 @@ static void wrdatum(obj o, wenv_t *e) { wrc(')', e); } else if (isbox(o)) { wrs(\"#&\", e); o = boxref(o); goto tail; - } else if (isrecord(o)) { - int i, n = recordlen(o); - obj rtd = recordrtd(o); - if (rtd == bool_from_obj(0)) { - wrs(\"#', e); } else if (isprocedure(o)) { char buf[60]; sprintf(buf, \"#\", objptr_from_obj(o)); wrs(buf, e); + } else if (isrecord(o)) { + int i, n = recordlen(o); + wrs(\"#', e); + } else if (isvoid(o)) { + wrs(\"#\", e); } else { wrs(\"#\", e); } @@ -3554,7 +3903,7 @@ void oportputshared(obj x, obj p, int disp) { [(_ x) (%prim?! "void(oportputcircular(obj_from_$arg, obj_from_$arg, 1))" x (current-output-port))] [(_ x p) (%prim?! "void(oportputcircular(obj_from_$arg, obj_from_$arg, 1))" x p)] [_ %residual-display])) - + ; simple errors @@ -3600,12 +3949,12 @@ void oportputshared(obj x, obj p, int disp) { (%prim! "{ assert(0); exit(1); $return void(0); }"))) - ; S-expression reader (define (%read port simple?) + (define-syntax r-error - (syntax-rules () [(_ p msg a ...) (read-error msg a ... 'port: p)])) + (syntax-rules () [(_ p msg a ...) (read-error msg a ... 'port: p)])) ; see read-error below (define shared '()) (define (make-shared-ref loc) (lambda () (unbox loc))) @@ -3637,12 +3986,11 @@ void oportputshared(obj x, obj p, int disp) { (define close-paren #f) (define close-bracket #f) (define dot #f) - (define ; idless - (let ([rtm (list 'reader-token)]) - (set! reader-token-marker rtm) - (set! close-paren (cons rtm "right parenthesis")) - (set! close-bracket (cons rtm "right bracket")) - (set! dot (cons rtm "\" . \"")))) + (define (let ([rtm (list 'reader-token)]) + (set! reader-token-marker rtm) + (set! close-paren (cons rtm "right parenthesis")) + (set! close-bracket (cons rtm "right bracket")) + (set! dot (cons rtm "\" . \"")))) (define (reader-token? form) (and (pair? form) (eq? (car form) reader-token-marker))) @@ -3941,28 +4289,26 @@ void oportputshared(obj x, obj p, int disp) { [(_ p) (%read p #t)] [_ %residual-read-simple])) -(define-inline (get-datum p) - (%read p #f)) - - ; file system -(define-inline (file-exists? fn) ; fixme? +(define (file-exists? fn) ; fixme? (%prim?! "{ /* file-exists? */ FILE *f = fopen(stringchars(obj_from_$arg), \"r\"); if (f != NULL) fclose(f); $return bool(f != NULL); }" fn)) -(define-inline (delete-file fn) - (%prim?! "{ /* delete-file */ +(define (delete-file fn) + (unless (%prim?! "{ /* delete-file */ int res = remove(stringchars(obj_from_$arg)); - $return bool(res == 0); }" fn)) + $return bool(res == 0); }" fn) + (file-error "cannot delete file:" fn))) -(define-inline (rename-file fnold fnnew) - (%prim?! "{ /* rename-file */ +(define (rename-file fnold fnnew) ; not in r7rs + (unless (%prim?! "{ /* rename-file */ int res = rename(stringchars(obj_from_$arg), stringchars(obj_from_$arg)); - $return bool(res == 0); }" fnold fnnew)) + $return bool(res == 0); }" fnold fnnew) + (file-error "cannot rename file:" fnold fnnew))) @@ -4133,16 +4479,24 @@ void oportputshared(obj x, obj p, int disp) { (%prim* "flonum($live, CLOCKS_PER_SEC)")) (define-inline (current-second) - (%prim* "flonum($live, (double)time(NULL))")) + (%prim* "flonum($live, difftime(time(NULL), 0)+37.0)")) ; miscellaneous / system -(define-syntax exit - (syntax-rules () - [(_) (exit 0)] - [(_ n) (%prim! "void(exit(fixnum_from_$arg))" n)] - [_ %residual-exit])) +(define emergency-exit + (case-lambda ; exits no matter what + [() (%prim! "void(exit(0))")] + [(n) (cond [(eq? n #t) (%prim! "void(exit(0))")] + [(fixnum? n) (%prim! "void(exit(fixnum_from_$arg))" n)] + [else (%prim! "void(exit(1))")])] + [args (%prim! "void(exit(1))")])) + +(define exit + (let ([exit-ds *current-dynamic-state*]) + (lambda args + (dynamic-state-reroot! exit-ds) + (apply emergency-exit args)))) (define-inline (argv-ref argv i) (%prim* "{ /* argv-ref */ @@ -4203,6 +4557,171 @@ void oportputshared(obj x, obj p, int disp) { (lambda vals (close-port port) (apply values vals)))) +; procedures of variable arity (plain and making use of case-lambda) + +(define string->list + (case-lambda + [(str) (substring->list str 0 (string-length str))] + [(str start) (substring->list str start (string-length str))] + [(str start end) (substring->list str start end)])) + +(define string-copy + (case-lambda + [(str) (%string-copy str)] + [(str start) (substring str start (string-length str))] + [(str start end) (substring str start end)])) + +(define string-copy! + (case-lambda + [(to at from) (substring-copy! to at from 0 (string-length from))] + [(to at from start) (substring-copy! to at from start (string-length from))] + [(to at from start end) (substring-copy! to at from start end)])) + +(define string-fill! + (case-lambda + [(str c) (%string-fill! str c)] + [(str c start) (substring-fill! str c start (string-length str))] + [(str c start end) (substring-fill! str c start end)])) + +(define vector->list + (case-lambda + [(vec) (subvector->list vec 0 (vector-length vec))] + [(vec start) (subvector->list vec start (vector-length vec))] + [(vec start end) (subvector->list vec start end)])) + +(define vector->string + (case-lambda + [(vec) (subvector->string vec 0 (vector-length vec))] + [(vec start) (subvector->string vec start (vector-length vec))] + [(vec start end) (subvector->string vec start end)])) + +(define string->vector + (case-lambda + [(str) (substring->vector str 0 (string-length str))] + [(str start) (substring->vector str start (string-length str))] + [(str start end) (substring->vector str start end)])) + +(define vector-copy! + (case-lambda + [(to at from) (subvector-copy! to at from 0 (vector-length from))] + [(to at from start) (subvector-copy! to at from start (vector-length from))] + [(to at from start end) (subvector-copy! to at from start end)])) + +(define vector-copy + (case-lambda + [(vec) (subvector vec 0 (vector-length vec))] + [(vec start) (subvector vec start (vector-length vec))] + [(vec start end) (subvector vec start end)])) + +(define (%vectors-sum-length vecs) + (let loop ([vecs vecs] [l 0]) + (if (null? vecs) l (loop (cdr vecs) (fx+ l (vector-length (car vecs))))))) + +(define (%vectors-copy-into! to vecs) + (let loop ([vecs vecs] [i 0]) + (if (null? vecs) + to + (let ([vec (car vecs)] [vecs (cdr vecs)]) + (let ([len (vector-length vec)]) + (subvector-copy! to i vec 0 len) + (loop vecs (fx+ i len))))))) + +(define (vector-append . vecs) + (%vectors-copy-into! (make-vector (%vectors-sum-length vecs)) vecs)) + +(define vector-fill! + (case-lambda + [(vec x) (subvector-fill! vec x 0 (vector-length vec))] + [(vec x start) (subvector-fill! vec x start (vector-length vec))] + [(vec x start end) (subvector-fill! vec x start end)])) + +(define bytevector->list + (case-lambda + [(vec) (subbytevector->list vec 0 (bytevector-length vec))] + [(vec start) (subbytevector->list vec start (bytevector-length vec))] + [(vec start end) (subbytevector->list vec start end)])) + +(define bytevector-copy! + (case-lambda + [(to at from) (subbytevector-copy! to at from 0 (bytevector-length from))] + [(to at from start) (subbytevector-copy! to at from start (bytevector-length from))] + [(to at from start end) (subbytevector-copy! to at from start end)])) + +(define bytevector-copy + (case-lambda + [(vec) (subbytevector vec 0 (bytevector-length vec))] + [(vec start) (subbytevector vec start (bytevector-length vec))] + [(vec start end) (subbytevector vec start end)])) + +(define (%bytevectors-sum-length vecs) + (let loop ([vecs vecs] [l 0]) + (if (null? vecs) l (loop (cdr vecs) (fx+ l (bytevector-length (car vecs))))))) + +(define (%bytevectors-copy-into! to vecs) + (let loop ([vecs vecs] [i 0]) + (if (null? vecs) + to + (let ([vec (car vecs)] [vecs (cdr vecs)]) + (let ([len (bytevector-length vec)]) + (subbytevector-copy! to i vec 0 len) + (loop vecs (fx+ i len))))))) + +(define (bytevector-append . vecs) + (%bytevectors-copy-into! (make-bytevector (%bytevectors-sum-length vecs)) vecs)) + +(define (subutf8->string vec start end) + (let ([p (open-output-string)]) + (write-subbytevector vec start end p) + ; todo: make a single operation: get-final-output-string (can reuse cbuf?) + (let ([s (get-output-string p)]) (close-output-port p) s))) + +(define utf8->string + (case-lambda + [(vec) (%prim*? "{ /* bytevector->string */ + int *d = bytevectordata(obj_from_$arg); + $return obj(hpushstr($live, newstringn((char *)bvdatabytes(d), *d))); }" vec)] + [(vec start) (subutf8->string vec start (bytevector-length vec))] + [(vec start end) (subutf8->string vec start end)])) + +(define (substring->utf8 str start end) + (let ([p (open-output-bytevector)]) + (write-substring str start end p) + ; todo: make a single operation: get-final-output-bytevector (can reuse cbuf?) + (let ([v (get-output-bytevector p)]) (close-output-port p) v))) + +(define string->utf8 + (case-lambda + [(str) (%prim*? "{ /* string->bytevector */ + int *d = stringdata(obj_from_$arg); + $return obj(hpushu8v($live, newbytevector((unsigned char *)sdatachars(d), *d))); }" str)] + [(str start) (substring->utf8 str start (string-length str))] + [(str start end) (substring->utf8 str start end)])) + +(define read-string! + (case-lambda + [(str) (read-substring! str 0 (string-length str) (current-input-port))] + [(str p) (read-substring! str 0 (string-length str) p)] + [(str p start) (read-substring! str start (string-length str) p)] + [(str p start end) (read-substring! str start end p)])) + +(define read-string + (case-lambda + [(k) (read-substring k (current-input-port))] + [(k p) (read-substring k p)])) + +(define read-bytevector! + (case-lambda + [(vec) (read-subbytevector! vec 0 (bytevector-length vec) (current-input-port))] + [(vec p) (read-subbytevector! vec 0 (bytevector-length vec) p)] + [(vec p start) (read-subbytevector! vec start (bytevector-length vec) p)] + [(vec p start end) (read-subbytevector! vec start end p)])) + +(define read-bytevector + (case-lambda + [(k) (read-subbytevector k (current-input-port))] + [(k p) (read-subbytevector k p)])) + + ; residual versions of inline procedures (define (%residual-values . l) @@ -4218,6 +4737,8 @@ void oportputshared(obj x, obj p, int disp) { (let ([y (car args)]) (and (f x y) (loop y (cdr args))))))))])) +(define %residual-boolean=? (cmp-reducer boolean=?)) + (define %residual-fx=? (cmp-reducer fx=?)) (define %residual-fx? (cmp-reducer fx>?)) @@ -4330,6 +4851,13 @@ void oportputshared(obj x, obj p, int disp) { (lambda (x . args) (if (null? args) (f x) (if (null? (cdr args)) (f x (car args)) (f x (car args) (cadr args)))))])) +(define-syntax unary-binary-ternary-quaternary-adaptor + (syntax-rules () + [(_ f) + (lambda (x . args) + (if (null? args) (f x) (if (null? (cdr args)) (f x (car args)) + (if (null? (cddr args)) (f x (car args) (cadr args)) (f x (car args) (cadr args) (caddr args))))))])) + (define-syntax binary-ternary-adaptor (syntax-rules () [(_ f) @@ -4347,7 +4875,10 @@ void oportputshared(obj x, obj p, int disp) { (define %residual-flatan (unary-binary-adaptor flatan)) (define %residual-atan (unary-binary-adaptor atan)) - + +(define %residual-member (binary-ternary-adaptor member)) +(define %residual-assoc (binary-ternary-adaptor assoc)) + (define (%residual-map p l . l*) (if (null? l*) (let loop ([l l] [r '()]) @@ -4364,6 +4895,32 @@ void oportputshared(obj x, obj p, int disp) { (if (let lp ([l* l*]) (or (null? l*) (and (pair? (car l*)) (lp (cdr l*))))) (begin (apply p (map car l*)) (loop (map cdr l*))))))) +(define (string-map p s . s*) + (if (null? s*) + (let* ([len (string-length s)] [res (make-string len)]) + (do ([i 0 (fx+ i 1)]) [(fx>=? i len) res] + (string-set! res i (p (string-ref s i))))) + (list->string (apply map p (map string->list (cons s s*)))))) + +(define (vector-map p v . v*) + (if (null? v*) + (let* ([len (vector-length v)] [res (make-vector len)]) + (do ([i 0 (fx+ i 1)]) [(fx>=? i len) res] + (vector-set! res i (p (vector-ref v i))))) + (list->vector (apply map p (map vector->list (cons v v*)))))) + +(define (string-for-each p s . s*) + (if (null? s*) + (let ([len (string-length s)]) + (do ([i 0 (fx+ i 1)]) [(fx>=? i len)] (p (string-ref s i)))) + (apply for-each p (map string->list (cons s s*))))) + +(define (vector-for-each p v . v*) + (if (null? v*) + (let ([len (vector-length v)]) + (do ([i 0 (fx+ i 1)]) [(fx>=? i len)] (p (vector-ref v i)))) + (apply for-each p (map vector->list (cons v v*))))) + (define-syntax append-reducer (syntax-rules () [(_ f s) @@ -4373,6 +4930,17 @@ void oportputshared(obj x, obj p, int disp) { [(null? (cdr args)) (car args)] [else (f (car args) (loop (cdr args)))])))])) +(define %residual-char=? (cmp-reducer char=?)) +(define %residual-char? (cmp-reducer char>?)) +(define %residual-char<=? (cmp-reducer char<=?)) +(define %residual-char>=? (cmp-reducer char>=?)) +(define %residual-char-ci=? (cmp-reducer char-ci=?)) +(define %residual-char-ci? (cmp-reducer char-ci>?)) +(define %residual-char-ci<=? (cmp-reducer char-ci<=?)) +(define %residual-char-ci>=? (cmp-reducer char-ci>=?)) + (define %residual-make-string (unary-binary-adaptor make-string)) (define (%residual-string . l) @@ -4380,6 +4948,17 @@ void oportputshared(obj x, obj p, int disp) { (define %residual-string-append (append-reducer string-append "")) +(define %residual-string=? (cmp-reducer string=?)) +(define %residual-string? (cmp-reducer string>?)) +(define %residual-string<=? (cmp-reducer string<=?)) +(define %residual-string>=? (cmp-reducer string>=?)) +(define %residual-string-ci=? (cmp-reducer string-ci=?)) +(define %residual-string-ci? (cmp-reducer string-ci>?)) +(define %residual-string-ci<=? (cmp-reducer string-ci<=?)) +(define %residual-string-ci>=? (cmp-reducer string-ci>=?)) + (define %residual-make-vector (unary-binary-adaptor make-vector)) (define (%residual-vector . l) @@ -4392,6 +4971,8 @@ void oportputshared(obj x, obj p, int disp) { (define (%residual-list . l) l) +(define %residual-make-list (unary-binary-adaptor make-list)) + (define (%residual-cons* x . l) (let loop ([x x] [l l]) (if (null? l) x (cons x (loop (car l) (cdr l)))))) @@ -4403,6 +4984,8 @@ void oportputshared(obj x, obj p, int disp) { (define %residual-number->string (unary-binary-adaptor number->string)) (define %residual-string->number (unary-binary-adaptor string->number)) +(define %residual-symbol=? (cmp-reducer symbol=?)) + (define (%fail-lambda . args) (error 'case-lambda "unexpected number of arguments" args)) @@ -4422,6 +5005,7 @@ void oportputshared(obj x, obj p, int disp) { (define %residual-read-char (nullary-unary-adaptor read-char)) (define %residual-peek-char (nullary-unary-adaptor peek-char)) (define %residual-char-ready? (nullary-unary-adaptor char-ready?)) +(define %residual-read-line (nullary-unary-adaptor read-line)) (define %residual-display-fixnum (unary-binary-adaptor display-fixnum)) (define %residual-display-flonum (unary-binary-adaptor display-flonum)) @@ -4430,16 +5014,18 @@ void oportputshared(obj x, obj p, int disp) { (define %residual-display-output-port (unary-binary-adaptor display-output-port)) (define %residual-write-char (unary-binary-adaptor write-char)) -(define %residual-write-string (unary-binary-adaptor write-string)) +(define %residual-write-string (unary-binary-ternary-quaternary-adaptor write-string)) (define %residual-newline (nullary-unary-adaptor newline)) -(define %residual-flush-output-port (nullary-unary-adaptor newline)) +(define %residual-flush-output-port (nullary-unary-adaptor flush-output-port)) (define %residual-read-u8 (nullary-unary-adaptor read-u8)) (define %residual-peek-u8 (nullary-unary-adaptor peek-u8)) (define %residual-u8-ready? (nullary-unary-adaptor u8-ready?)) -(define %residual-write-u8 (unary-binary-adaptor write-char)) -(define %residual-write-bytevector (unary-binary-adaptor write-string)) +(define %residual-write-u8 (unary-binary-adaptor write-u8)) +(define %residual-write-bytevector (unary-binary-ternary-quaternary-adaptor write-bytevector)) +(define %residual-write-simple (unary-binary-adaptor write-simple)) +(define %residual-write-shared (unary-binary-adaptor write-shared)) (define %residual-write (unary-binary-adaptor write)) (define %residual-display (unary-binary-adaptor display)) diff --git a/src/t.scm b/src/t.scm index b07a1b2..59bfa0d 100644 --- a/src/t.scm +++ b/src/t.scm @@ -421,6 +421,8 @@ (cond [(null? tail) (list 'begin)] + [(list1? tail) ; can't have defines there + (xform #f (car tail) env)] [(not (list? tail)) (x-error "improper body form" (cons 'body tail))] [else diff --git a/t.c b/t.c index bc0aa26..26434f1 100644 --- a/t.c +++ b/t.c @@ -250,22 +250,22 @@ char *t_code[] = { " form),@(y7:x-error)[22", "P", "xform-body", - "%2.0u?{'(y5:begin),l1]2}.0L0~?{.0,'(y4:body)c,'(s18:improper body form" - "),@(y7:x-error)[22}.0,n,n,n,.5,,#0.0,&1{%5.4p?{.4ap}{f}?{.4d,.5a,.0a,." - "1d,${.6,.4,t,@(y5:xform)[03},.0,'(y5:begin),.1v?{.2L0?{.5,.3L6,.(i10)," - ".(i10),.(i10),.(i10),:0^[(i11)5}.4,'(s19:improper begin form),@(y7:x-e" - "rror)[(i11)2}'(y6:define),.1v?{${.4,@(y6:list2?)[01}?{.2au}{f}?{.2da,." - "6,.(i11),fc,.(i11),.3c,.(i11),fc,.(i11),:0^[(i12)5}${.4,@(y6:list2?)[0" - "1}?{${.4a,@(y3:id?)[01}}{f}?{.2a,.3da,${${.5,@(y7:id->sym)[01},@(y6:ge" - "nsym)[01},${.(i11),.3,.6,@(y7:add-var)[03},.9,.(i14),.3c,.(i14),.5c,.(" - "i14),.7c,.4,:0^[(i15)5}.4,'(s20:improper define form),@(y7:x-error)[(i" - "11)2}'(y13:define-syntax),.1v?{${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[" - "01}}{f}?{.2a,.3da,${.(i10),'(l1:y9:undefined;),.5,@(y11:add-binding)[0" - "3},.8,.(i13),tc,.(i13),.4c,.(i13),.6c,.4,:0^[(i14)5}.4,'(s27:improper " - "define-syntax form),@(y7:x-error)[(i11)2}.1K0?{.5,${.9,.8,.6[02}c,.(i1" - "0),.(i10),.(i10),.(i10),:0^[(i11)5}.6,.(i11),.(i11)A8,.(i11)A8,.(i11)A" - "8,@(y12:xform-labels)[(i11)5}.0,.5,.5A8,.5A8,.5A8,@(y12:xform-labels)[" - "55}.!0.0^_1[25", + "%2.0u?{'(y5:begin),l1]2}${.2,@(y6:list1?)[01}?{.1,.1a,f,@(y5:xform)[23" + "}.0L0~?{.0,'(y4:body)c,'(s18:improper body form),@(y7:x-error)[22}.0,n" + ",n,n,.5,,#0.0,&1{%5.4p?{.4ap}{f}?{.4d,.5a,.0a,.1d,${.6,.4,t,@(y5:xform" + ")[03},.0,'(y5:begin),.1v?{.2L0?{.5,.3L6,.(i10),.(i10),.(i10),.(i10),:0" + "^[(i11)5}.4,'(s19:improper begin form),@(y7:x-error)[(i11)2}'(y6:defin" + "e),.1v?{${.4,@(y6:list2?)[01}?{.2au}{f}?{.2da,.6,.(i11),fc,.(i11),.3c," + ".(i11),fc,.(i11),:0^[(i12)5}${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[01}" + "}{f}?{.2a,.3da,${${.5,@(y7:id->sym)[01},@(y6:gensym)[01},${.(i11),.3,." + "6,@(y7:add-var)[03},.9,.(i14),.3c,.(i14),.5c,.(i14),.7c,.4,:0^[(i15)5}" + ".4,'(s20:improper define form),@(y7:x-error)[(i11)2}'(y13:define-synta" + "x),.1v?{${.4,@(y6:list2?)[01}?{${.4a,@(y3:id?)[01}}{f}?{.2a,.3da,${.(i" + "10),'(l1:y9:undefined;),.5,@(y11:add-binding)[03},.8,.(i13),tc,.(i13)," + ".4c,.(i13),.6c,.4,:0^[(i14)5}.4,'(s27:improper define-syntax form),@(y" + "7:x-error)[(i11)2}.1K0?{.5,${.9,.8,.6[02}c,.(i10),.(i10),.(i10),.(i10)" + ",:0^[(i11)5}.6,.(i11),.(i11)A8,.(i11)A8,.(i11)A8,@(y12:xform-labels)[(" + "i11)5}.0,.5,.5A8,.5A8,.5A8,@(y12:xform-labels)[55}.!0.0^_1[25", "P", "xform-labels", "%5n,n,.4,.4,.4,,#0.0,.(i11),.(i11),&3{%5.0u?{${:0,:1,&1{%1:0,.1,f,@(y5"