diff --git a/LOG b/LOG index e6a795bac0..6fc162f811 100644 --- a/LOG +++ b/LOG @@ -1862,3 +1862,86 @@ compile.ss, primdata.ss 7.ms, root-experr* system.stex, use.stex, release_notes.stex +- added invoke-library + syntax.ss, primdata.ss, + 8.ms, root-experr*, + libraries.stex, release_notes.stex +- updated the date + release_notes.stex +- libraries contained within a whole program or library are now + marked pending before their invoke code is run so that invoke + cycles are reported as such rather than as attempts to invoke + while still loading. + compile.ss, syntax.ss, primdata.ss, + 7.ms, root-experr* +- the library manager now protects against unbound references + from separately compiled libraries or programs to identifiers + ostensibly but not actually exported by (invisible) libraries + that exist only locally within a whole program. this is done by + marking the invisibility of the library in the library-info and + propagating it to libdesc records; the latter is checked upon + library import, visit, and invoke as well as by verify-loadability. + the import and visit code of each invisible no longer complains + about invisibility since it shouldn't be reachable. + syntax.ss, compile.ss, expand-lang.ss, + 7.ms, 8.ms, root-experr*, patch* +- documented that compile-whole-xxx's linearization of the + library initialization code based on static dependencies might + not work for dynamic dependencies. + system.stex +- optimized bignum right shifts so the code (1) doesn't look at + shifted-off bigits if the bignum is positive, since it doesn't + need to know in that case if any bits are set; (2) doesn't look + at shifted-off bigits if the bignum is negative if it determines + that at least one bit is set in the bits shifted off the low-order + partially retained bigit; (3) quits looking, if it must look, for + one bits as soon as it finds one; (4) looks from both ends under + the assumption that set bits, if any, are most likely to be found + toward the high or low end of the bignum rather than just in the + middle; and (5) doesn't copy the retained bigits and then shift; + rather shifts as it copies. This leads to dramatic improvements + when the shift count is large and often significant improvements + otherwise. + number.c, + 5_3.ms, + release_notes.stex +- threaded tc argument through to all calls to S_bignum and + S_trunc_rem so they don't have to call get_thread_context() + when it might already have been called. + alloc.c, number.c, fasl.c, print.c, prim5.c, externs.h +- added an expand-primitive handler to partially inline integer?. + cpnanopass.ss +- added some special cases for basic arithmetic operations (+, -, *, + /, quotient, remainder, and the div/div0/mod/mod0 operations) to + avoid doing unnecessary work for large bignums when the result + will be zero (e.g,. multiplying by 0), the same as one of the + inputs (e.g., adding 0 or multiplying by 1), or the additive + inverse of one of the inputs (e.g., subtracting from 0, dividing + by -1). This can have a major beneficial affect when operating + on large bignums in the cases handled. also converted some uses + of / into integer/ where going through the former would just add + overhead without the possibility of optimization. + 5_3.ss, + number.c, externs.h, prim5.c, + 5_3.ms, root-experr, patch*, + release_notes.stex +- added a queue to hold pending signals for which handlers have + been registered via register-signal-handler so up to 63 (configurable + in the source code) unhandled signals are buffered before the + handler has to start dropping them. + cmacros.ss, library.ss, prims.ss, primdata.ss, + schsig.c, externs.h, prim5.c, thread.c, gc.c, + unix.ms, + system.stex, release_notes.stex +- bytevector-compress now selects the level of compression based + on the compress-level parameter. Prior to this it always used a + default setting for compression. the compress-level parameter + can now take on the new minimum in addition to low, medium, high, + and maximum. minimum is presently treated the same as low + except in the case of lz4 bytevector compression, where it + results in the use of LZ4_compress_default rather than the + slower but more effective LZ4_compress_HC. + cmacros,ss, back.ss, + compress_io.c, new_io.c, externs.h, + bytevector.ms, mats/Mf-base, root-experr* + io.stex, objects.stex, release_notes.stex diff --git a/c/alloc.c b/c/alloc.c index c0e52d5e34..9de3cc2bf1 100644 --- a/c/alloc.c +++ b/c/alloc.c @@ -816,8 +816,7 @@ ptr Sstring_utf8(s, n) const char *s; iptr n; { return p; } -ptr S_bignum(n, sign) iptr n; IBOOL sign; { - ptr tc = get_thread_context(); +ptr S_bignum(tc, n, sign) ptr tc; iptr n; IBOOL sign; { ptr p; iptr d; if ((uptr)n > (uptr)maximum_bignum_length) diff --git a/c/compress-io.c b/c/compress-io.c index d4d4e9ef55..15eba871ac 100644 --- a/c/compress-io.c +++ b/c/compress-io.c @@ -91,6 +91,23 @@ static INT glzread_lz4(lz4File_in *lz4, void *buffer, UINT count); static INT glzemit_lz4(lz4File_out *lz4, void *buffer, UINT count); static INT glzwrite_lz4(lz4File_out *lz4, void *buffer, UINT count); +INT S_zlib_compress_level(INT compress_level) { + switch (compress_level) { + case COMPRESS_MIN: + case COMPRESS_LOW: + return Z_BEST_SPEED; + case COMPRESS_MEDIUM: + return (Z_BEST_SPEED + Z_BEST_COMPRESSION) / 2; + case COMPRESS_HIGH: + return (Z_BEST_SPEED + (3 * Z_BEST_COMPRESSION)) / 4; + case COMPRESS_MAX: + return Z_BEST_COMPRESSION; + default: + S_error1("S_zlib_compress_level", "unexpected compress level ~s", Sinteger(compress_level)); + return 0; + } +} + static glzFile glzdopen_output_gz(INT fd, INT compress_level) { gzFile gz; glzFile glz; @@ -105,24 +122,7 @@ static glzFile glzdopen_output_gz(INT fd, INT compress_level) { if ((gz = gzdopen(fd, as_append ? "ab" : "wb")) == Z_NULL) return Z_NULL; - switch (compress_level) { - case COMPRESS_LOW: - level = Z_BEST_SPEED; - break; - case COMPRESS_MEDIUM: - level = (Z_BEST_SPEED + Z_BEST_COMPRESSION) / 2; - break; - case COMPRESS_HIGH: - level = (Z_BEST_SPEED + (3 * Z_BEST_COMPRESSION)) / 4; - break; - case COMPRESS_MAX: - level = Z_BEST_COMPRESSION; - break; - default: - S_error1("glzdopen_output_gz", "unexpected compress level ~s", Sinteger(compress_level)); - level = 0; - break; - } + level = S_zlib_compress_level(compress_level); gzsetparams(gz, level, Z_DEFAULT_STRATEGY); @@ -137,29 +137,29 @@ static glzFile glzdopen_output_gz(INT fd, INT compress_level) { return glz; } +INT S_lz4_compress_level(INT compress_level) { + switch (compress_level) { + case COMPRESS_MIN: + case COMPRESS_LOW: + return 1; + case COMPRESS_MEDIUM: + return LZ4HC_CLEVEL_MIN; + case COMPRESS_HIGH: + return (LZ4HC_CLEVEL_MIN + LZ4HC_CLEVEL_MAX) / 2; + case COMPRESS_MAX: + return LZ4HC_CLEVEL_MAX; + default: + S_error1("S_lz4_compress_level", "unexpected compress level ~s", Sinteger(compress_level)); + return 0; + } +} + static glzFile glzdopen_output_lz4(INT fd, INT compress_level) { glzFile glz; lz4File_out *lz4; INT level; - switch (compress_level) { - case COMPRESS_LOW: - level = 1; - break; - case COMPRESS_MEDIUM: - level = LZ4HC_CLEVEL_MIN; - break; - case COMPRESS_HIGH: - level = (LZ4HC_CLEVEL_MIN + LZ4HC_CLEVEL_MAX) / 2; - break; - case COMPRESS_MAX: - level = LZ4HC_CLEVEL_MAX; - break; - default: - S_error1("glzdopen_output_lz4", "unexpected compress level ~s", Sinteger(compress_level)); - level = 0; - break; - } + level = S_lz4_compress_level(compress_level); if ((lz4 = malloc(sizeof(lz4File_out))) == NULL) return Z_NULL; memset(&lz4->preferences, 0, sizeof(LZ4F_preferences_t)); diff --git a/c/externs.h b/c/externs.h index 0c3919b889..50f0f5a54a 100644 --- a/c/externs.h +++ b/c/externs.h @@ -90,7 +90,7 @@ extern ptr S_inexactnum PROTO((double rp, double ip)); extern ptr S_exactnum PROTO((ptr a, ptr b)); extern ptr S_thread PROTO((ptr tc)); extern ptr S_string PROTO((const char *s, iptr n)); -extern ptr S_bignum PROTO((iptr n, IBOOL sign)); +extern ptr S_bignum PROTO((ptr tc, iptr n, IBOOL sign)); extern ptr S_code PROTO((ptr tc, iptr type, iptr n)); extern ptr S_relocation_table PROTO((iptr n)); extern ptr S_weak_cons PROTO((ptr car, ptr cdr)); @@ -175,6 +175,8 @@ extern wchar_t *S_malloc_wide_pathname PROTO((const char *inpath)); extern IBOOL S_fixedpathp PROTO((const char *inpath)); /* compress-io.c */ +extern INT S_zlib_compress_level PROTO((INT compress_level)); +extern INT S_lz4_compress_level PROTO((INT compress_level)); extern glzFile S_glzdopen_output PROTO((INT fd, INT compress_format, INT compress_level)); extern glzFile S_glzdopen_input PROTO((INT fd)); extern glzFile S_glzopen_input PROTO((const char *path)); @@ -260,13 +262,14 @@ extern iptr S_integer_value PROTO((const char *who, ptr x)); extern I64 S_int64_value PROTO((char *who, ptr x)); extern IBOOL S_big_eq PROTO((ptr x, ptr y)); extern IBOOL S_big_lt PROTO((ptr x, ptr y)); +extern ptr S_big_negate PROTO((ptr x)); extern ptr S_add PROTO((ptr x, ptr y)); extern ptr S_sub PROTO((ptr x, ptr y)); extern ptr S_mul PROTO((ptr x, ptr y)); extern ptr S_div PROTO((ptr x, ptr y)); extern ptr S_rem PROTO((ptr x, ptr y)); extern ptr S_trunc PROTO((ptr x, ptr y)); -extern void S_trunc_rem PROTO((ptr x, ptr y, ptr *q, ptr *r)); +extern void S_trunc_rem PROTO((ptr tc, ptr x, ptr y, ptr *q, ptr *r)); extern ptr S_gcd PROTO((ptr x, ptr y)); extern ptr S_ash PROTO((ptr x, ptr n)); extern ptr S_big_positive_bit_field PROTO((ptr x, ptr fxstart, ptr fxend)); @@ -322,6 +325,8 @@ extern void S_handle_arg_error PROTO((void)); extern void S_handle_nonprocedure_symbol PROTO((void)); extern void S_handle_values_error PROTO((void)); extern void S_handle_mvlet_error PROTO((void)); +extern ptr S_allocate_scheme_signal_queue PROTO((void)); +extern ptr S_dequeue_scheme_signals PROTO((ptr tc)); extern void S_register_scheme_signal PROTO((iptr sig)); extern void S_fire_collector PROTO((void)); extern NORETURN void S_noncontinuable_interrupt PROTO((void)); diff --git a/c/fasl.c b/c/fasl.c index 69f6e91a27..0472d6948e 100644 --- a/c/fasl.c +++ b/c/fasl.c @@ -904,7 +904,7 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { IBOOL sign; iptr n; ptr t; bigit *p; sign = bytein(f); n = uptrin(f); - t = S_bignum(n, sign); + t = S_bignum(tc, n, sign); p = &BIGIT(t, 0); while (n--) *p++ = (bigit)uptrin(f); *x = S_normalize_bignum(t); diff --git a/c/gc.c b/c/gc.c index 1b54e206c2..3dba4976f1 100644 --- a/c/gc.c +++ b/c/gc.c @@ -1494,6 +1494,7 @@ static void sweep_thread(p) ptr p; { /* immediate TIMERTICKS */ /* immediate DISABLE_COUNT */ /* immediate SIGNALINTERRUPTPENDING */ + /* void* SIGNALINTERRUPTQUEUE(tc) */ /* immediate KEYBOARDINTERRUPTPENDING */ relocate(&THREADNO(tc)) relocate(&CURRENTINPUT(tc)) diff --git a/c/new-io.c b/c/new-io.c index 74ed098b1f..67fef8fefa 100644 --- a/c/new-io.c +++ b/c/new-io.c @@ -28,6 +28,7 @@ #include #include "zlib.h" #include "lz4.h" +#include "lz4hc.h" /* !!! UNLESS you enjoy spending endless days tracking down race conditions !!! involving the garbage collector, please note: DEACTIVATE and @@ -814,6 +815,9 @@ uptr S_bytevector_compress_size(iptr s_count, INT compress_format) { ptr S_bytevector_compress(ptr dest_bv, iptr d_start, iptr d_count, ptr src_bv, iptr s_start, iptr s_count, INT compress_format) { + ptr tc = get_thread_context(); + int compress_level = (INT)UNFIX(COMPRESSLEVEL(tc)); + /* On error, an message-template string with ~s for the bytevector */ switch (compress_format) { case COMPRESS_GZIP: @@ -826,7 +830,7 @@ ptr S_bytevector_compress(ptr dest_bv, iptr d_start, iptr d_count, destLen = (uLong)d_count; - r = compress(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), (uLong)s_count); + r = compress2(&BVIT(dest_bv, d_start), &destLen, &BVIT(src_bv, s_start), (uLong)s_count, S_zlib_compress_level(compress_level)); if (r == Z_OK) return FIX(destLen); @@ -842,7 +846,11 @@ ptr S_bytevector_compress(ptr dest_bv, iptr d_start, iptr d_count, if (!is_valid_lz4_length(s_count)) return Sstring("source bytevector ~s is too large"); - destLen = LZ4_compress_default((char *)&BVIT(src_bv, s_start), (char *)&BVIT(dest_bv, d_start), (int)s_count, (int)d_count); + if (compress_level == COMPRESS_MIN) { + destLen = LZ4_compress_default((char *)&BVIT(src_bv, s_start), (char *)&BVIT(dest_bv, d_start), (int)s_count, (int)d_count); + } else { + destLen = LZ4_compress_HC((char *)&BVIT(src_bv, s_start), (char *)&BVIT(dest_bv, d_start), (int)s_count, (int)d_count, S_lz4_compress_level(compress_level)); + } if (destLen > 0) return Sfixnum(destLen); diff --git a/c/number.c b/c/number.c index 4e39685fe0..f1132345a7 100644 --- a/c/number.c +++ b/c/number.c @@ -25,9 +25,10 @@ #include "system.h" /* locally defined functions */ -static ptr copy_normalize PROTO((bigit *p, iptr len, IBOOL sign)); +static ptr copy_normalize PROTO((ptr tc, const bigit *p, iptr len, IBOOL sign)); static IBOOL abs_big_lt PROTO((ptr x, ptr y, iptr xl, iptr yl)); static IBOOL abs_big_eq PROTO((ptr x, ptr y, iptr xl, iptr yl)); +static ptr big_negate PROTO((ptr tc, ptr x)); static ptr big_add_pos PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL sign)); static ptr big_add_neg PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL sign)); static ptr big_add PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL xs, IBOOL ys)); @@ -37,7 +38,7 @@ static void big_trunc PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL qs, I static INT normalize PROTO((bigit *xp, bigit *yp, iptr xl, iptr yl)); static bigit quotient_digit PROTO((bigit *xp, bigit *yp, iptr yl)); static bigit qhat PROTO((bigit *xp, bigit *yp)); -static ptr big_short_gcd PROTO((ptr x, bigit y, iptr xl)); +static ptr big_short_gcd PROTO((ptr tc, ptr x, bigit y, iptr xl)); static ptr big_gcd PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl)); static ptr s_big_ash PROTO((ptr tc, bigit *xp, iptr xl, IBOOL sign, iptr cnt)); static double big_short_floatify PROTO((ptr tc, ptr x, bigit s, iptr xl, IBOOL sign)); @@ -53,27 +54,27 @@ static ptr big_logor PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL xs, IB static ptr big_logxor PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL xs, IBOOL ys)); /* use w/o trailing semicolon */ -#define PREPARE_BIGNUM(x,l)\ - {if (x == FIX(0) || BIGLEN(x) < (l)) x = S_bignum((l)*2, 0);} +#define PREPARE_BIGNUM(tc,x,l)\ + {if (x == FIX(0) || BIGLEN(x) < (l)) x = S_bignum(tc, (l)*2, 0);} #define bigit_mask (~(bigit)0) -#define IBIGIT_TO_BIGNUM(B,x,cnt,sign) {\ +#define IBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) {\ ibigit _i_ = x;\ - PREPARE_BIGNUM(B, 1)\ + PREPARE_BIGNUM(tc, B, 1)\ *cnt = 1;\ BIGIT(B,0) = (*sign = (_i_ < 0)) ? -_i_ : _i_;\ } -#define UBIGIT_TO_BIGNUM(B,u,cnt) {\ - PREPARE_BIGNUM(B, 1)\ +#define UBIGIT_TO_BIGNUM(tc,B,u,cnt) {\ + PREPARE_BIGNUM(tc, B, 1)\ *cnt = 1;\ BIGIT(B,0) = u;\ } -#define IBIGITBIGIT_TO_BIGNUM(B,x,cnt,sign) {\ +#define IBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) {\ ibigitbigit _i_ = x; bigitbigit _u_; bigit _b_;\ - PREPARE_BIGNUM(B, 2)\ + PREPARE_BIGNUM(tc, B, 2)\ _u_ = (*sign = (_i_ < 0)) ? -_i_ : _i_;\ if ((_b_ = (_u_ & (bigitbigit)bigit_mask)) == _u_) {\ *cnt = 1;\ @@ -85,9 +86,9 @@ static ptr big_logxor PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL xs, I }\ } -#define UBIGITBIGIT_TO_BIGNUM(B,x,cnt) {\ +#define UBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt) {\ bigitbigit _u_ = x; bigit _b_;\ - PREPARE_BIGNUM(B, 2)\ + PREPARE_BIGNUM(tc, B, 2)\ if ((_b_ = (_u_ & (bigitbigit)bigit_mask)) == _u_) {\ *cnt = 1;\ BIGIT(B,0) = (bigit)_u_;\ @@ -101,20 +102,20 @@ static ptr big_logxor PROTO((ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL xs, I #define U32_bigits (32 / bigit_bits) #if (U32_bigits == 1) -#define I32_TO_BIGNUM(B,x,cnt,sign) IBIGIT_TO_BIGNUM(B,x,cnt,sign) -#define U32_TO_BIGNUM(B,x,cnt) UBIGIT_TO_BIGNUM(B,x,cnt) +#define I32_TO_BIGNUM(tc,B,x,cnt,sign) IBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) +#define U32_TO_BIGNUM(tc,B,x,cnt) UBIGIT_TO_BIGNUM(tc,B,x,cnt) #endif #if (U32_bigits == 2) -#define I32_TO_BIGNUM(B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(B,x,cnt,sign) -#define U32_TO_BIGNUM(B,x,cnt) UBIGITBIGIT_TO_BIGNUM(B,x,cnt) +#define I32_TO_BIGNUM(tc,B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) +#define U32_TO_BIGNUM(tc,B,x,cnt) UBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt) #endif #define U64_bigits (64 / bigit_bits) #if (U64_bigits == 2) -#define I64_TO_BIGNUM(B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(B,x,cnt,sign) -#define U64_TO_BIGNUM(B,x,cnt) UBIGITBIGIT_TO_BIGNUM(B,x,cnt) +#define I64_TO_BIGNUM(tc,B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) +#define U64_TO_BIGNUM(tc,B,x,cnt) UBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt) #endif #if (U64_bigits == 4) @@ -124,16 +125,16 @@ see v7.4 number.c for U64_TO_BIGNUM w/U64_bigits == 4 #define ptr_bigits (ptr_bits / bigit_bits) #if (ptr_bigits == 1) -#define IPTR_TO_BIGNUM(B,x,cnt,sign) IBIGIT_TO_BIGNUM(B,x,cnt,sign) -#define UPTR_TO_BIGNUM(B,x,cnt) UBIGIT_TO_BIGNUM(B,x,cnt) +#define IPTR_TO_BIGNUM(tc,B,x,cnt,sign) IBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) +#define UPTR_TO_BIGNUM(tc,B,x,cnt) UBIGIT_TO_BIGNUM(tc,B,x,cnt) #endif #if (ptr_bigits == 2) -#define IPTR_TO_BIGNUM(B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(B,x,cnt,sign) -#define UPTR_TO_BIGNUM(B,x,cnt) UBIGITBIGIT_TO_BIGNUM(B,x,cnt) +#define IPTR_TO_BIGNUM(tc,B,x,cnt,sign) IBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt,sign) +#define UPTR_TO_BIGNUM(tc,B,x,cnt) UBIGITBIGIT_TO_BIGNUM(tc,B,x,cnt) #endif -#define FIXNUM_TO_BIGNUM(B,p,cnt,sign) IPTR_TO_BIGNUM(B,UNFIX(p),cnt,sign) +#define FIXNUM_TO_BIGNUM(tc,B,p,cnt,sign) IPTR_TO_BIGNUM(tc,B,UNFIX(p),cnt,sign) ptr S_normalize_bignum(ptr x) { uptr n = BIGIT(x, 0); iptr len = BIGLEN(x); IBOOL sign = BIGSIGN(x); @@ -163,7 +164,7 @@ ptr S_normalize_bignum(ptr x) { return x; } -static ptr copy_normalize(p,len,sign) bigit *p; iptr len; IBOOL sign; { +static ptr copy_normalize(tc, p, len, sign) ptr tc; const bigit *p; iptr len; IBOOL sign; { bigit *p1; uptr n; ptr b; for (;;) { @@ -196,7 +197,7 @@ static ptr copy_normalize(p,len,sign) bigit *p; iptr len; IBOOL sign; { } #endif - b = S_bignum(len, sign); + b = S_bignum(tc, len, sign); for (p1 = &BIGIT(b, 0); len--;) *p1++ = *p++; return b; } @@ -337,7 +338,7 @@ ptr Sunsigned(u) uptr u; { /* convert arg to Scheme integer */ return FIX(u); else { ptr x = FIX(0); iptr xl; - UPTR_TO_BIGNUM(x, u, &xl) + UPTR_TO_BIGNUM(get_thread_context(), x, u, &xl) SETBIGLENANDSIGN(x, xl, 0); return x; } @@ -348,7 +349,7 @@ ptr Sinteger(i) iptr i; { /* convert arg to Scheme integer */ return FIX(i); else { ptr x = FIX(0); iptr xl; IBOOL xs; - IPTR_TO_BIGNUM(x, i, &xl, &xs) + IPTR_TO_BIGNUM(get_thread_context(), x, i, &xl, &xs) SETBIGLENANDSIGN(x, xl, xs); return x; } @@ -362,7 +363,7 @@ ptr Sunsigned32(u) U32 u; { /* convert arg to Scheme integer */ return FIX((uptr)u); else { ptr x = FIX(0); iptr xl; - U32_TO_BIGNUM(x, u, &xl) + U32_TO_BIGNUM(get_thread_context(), x, u, &xl) SETBIGLENANDSIGN(x, xl, 0); return x; } @@ -377,7 +378,7 @@ ptr Sinteger32(i) I32 i; { /* convert arg to Scheme integer */ return FIX((iptr)i); else { ptr x = FIX(0); iptr xl; IBOOL xs; - I32_TO_BIGNUM(x, i, &xl, &xs) + I32_TO_BIGNUM(get_thread_context(), x, i, &xl, &xs) SETBIGLENANDSIGN(x, xl, xs); return x; } @@ -389,7 +390,7 @@ ptr Sunsigned64(u) U64 u; { /* convert arg to Scheme integer */ return FIX((uptr)u); else { ptr x = FIX(0); iptr xl; - U64_TO_BIGNUM(x, u, &xl) + U64_TO_BIGNUM(get_thread_context(), x, u, &xl) SETBIGLENANDSIGN(x, xl, 0); return x; } @@ -400,7 +401,7 @@ ptr Sinteger64(i) I64 i; { /* convert arg to Scheme integer */ return FIX((iptr)i); else { ptr x = FIX(0); iptr xl; IBOOL xs; - I64_TO_BIGNUM(x, i, &xl, &xs) + I64_TO_BIGNUM(get_thread_context(), x, i, &xl, &xs) SETBIGLENANDSIGN(x, xl, xs); return x; } @@ -417,6 +418,11 @@ ptr Sinteger64(i) I64 i; { /* convert arg to Scheme integer */ *(x) = _b_>>_n_ | *(k);\ *(k) = _newk_;} +#define ERSH2(n,x,y,k) { /* undefined when n == 0 */\ + INT _n_ = (INT)(n); bigit _b_ = (x), _newk_ = _b_<<(bigit_bits-_n_);\ + *(y) = _b_>>_n_ | *(k);\ + *(k) = _newk_;} + #define EADDC(a1, a2, sum, k) {\ bigit _tmp1_, _tmp2_, _tmpk_;\ _tmp1_ = (a1);\ @@ -505,13 +511,21 @@ addition/subtraction *** */ +static ptr big_negate(tc, x) ptr tc, x; { + return copy_normalize(tc, &BIGIT(x,0),BIGLEN(x),!BIGSIGN(x)); +} + +ptr S_big_negate(x) ptr x; { + return big_negate(get_thread_context(), x); +} + /* assumptions: BIGLEN(x) >= BIGLEN(y) */ static ptr big_add_pos(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL sign; { iptr i; bigit *xp, *yp, *zp; bigit k = 0; - PREPARE_BIGNUM(W(tc),xl+1) + PREPARE_BIGNUM(tc, W(tc),xl+1) xp = &BIGIT(x,xl-1); yp = &BIGIT(y,yl-1); zp = &BIGIT(W(tc),xl); @@ -524,7 +538,7 @@ static ptr big_add_pos(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL *zp = k; - return copy_normalize(zp,xl+1,sign); + return copy_normalize(tc, zp,xl+1,sign); } /* assumptions: x >= y */ @@ -533,7 +547,7 @@ static ptr big_add_neg(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL bigit *xp, *yp, *zp; bigit b = 0; - PREPARE_BIGNUM(W(tc),xl) + PREPARE_BIGNUM(tc, W(tc),xl) xp = &BIGIT(x,xl-1); yp = &BIGIT(y,yl-1); zp = &BIGIT(W(tc),xl-1); @@ -544,7 +558,7 @@ static ptr big_add_neg(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL for (; i-- > 0; ) *zp-- = *xp--; - return copy_normalize(zp+1,xl,sign); + return copy_normalize(tc, zp+1,xl,sign); } static ptr big_add(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL xs, ys; { @@ -570,13 +584,13 @@ ptr S_add(x, y) ptr x, y; { return FIXRANGE(n) ? FIX(n) : Sinteger(n); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_add(tc, X(tc), y, xl, BIGLEN(y), xs, BIGSIGN(y)); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_add(tc, x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), ys); } else { return big_add(tc, x, y, BIGLEN(x), BIGLEN(y), BIGSIGN(x), BIGSIGN(y)); @@ -594,13 +608,13 @@ ptr S_sub(x, y) ptr x, y; { return FIXRANGE(n) ? FIX(n) : Sinteger(n); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_add(tc, X(tc), y, xl, BIGLEN(y), xs, !BIGSIGN(y)); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_add(tc, x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), !ys); } else { return big_add(tc, x, y, BIGLEN(x), BIGLEN(y), BIGSIGN(x), !BIGSIGN(y)); @@ -619,7 +633,7 @@ static ptr big_mul(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL sign bigit *xp, *yp, *zp, *zpa; bigit k, k1, prod; - PREPARE_BIGNUM(W(tc),xl+yl) + PREPARE_BIGNUM(tc, W(tc),xl+yl) for (xi = xl, zp = &BIGIT(W(tc),xl+yl-1); xi-- > 0; ) *zp-- = 0; for (yi=yl,yp= &BIGIT(y,yl-1),zp= &BIGIT(W(tc),xl+yl-1); yi-- > 0; yp--, zp--) @@ -634,7 +648,7 @@ static ptr big_mul(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IBOOL sign *zpa = k; } - return copy_normalize(&BIGIT(W(tc),0),xl+yl,sign); + return copy_normalize(tc, &BIGIT(W(tc),0),xl+yl,sign); } /* SHORTRANGE is -floor(sqrt(most_positive_fixnum))..floor(sqrt(most_positive_fixnum)). @@ -657,17 +671,17 @@ ptr S_mul(x, y) ptr x, y; { if (SHORTRANGE(xn) && SHORTRANGE(yn)) return FIX(xn * yn); else { - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) x = X(tc); - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) y = Y(tc); + FIXNUM_TO_BIGNUM(tc, X(tc),x,&xl,&xs) x = X(tc); + FIXNUM_TO_BIGNUM(tc, Y(tc),y,&yl,&ys) y = Y(tc); } } else { - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) x = X(tc); + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) x = X(tc); yl = BIGLEN(y); ys = BIGSIGN(y); } } else { if (Sfixnump(y)) { xl = BIGLEN(x); xs = BIGSIGN(x); - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) y = Y(tc); + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) y = Y(tc); } else { xl = BIGLEN(x); xs = BIGSIGN(x); yl = BIGLEN(y); ys = BIGSIGN(y); @@ -684,29 +698,34 @@ division /* arguments must be integers (fixnums or bignums), y must be nonzero */ ptr S_div(x, y) ptr x, y; { - ptr g; + ptr g, n, d; + ptr tc = get_thread_context(); g = S_gcd(x,y); - if (Sfixnump(y) ? UNFIX(y) < 0 : BIGSIGN(y)) g = S_sub(FIX(0),g); - return S_rational(S_trunc(x,g), S_trunc(y,g)); + if (Sfixnump(y) ? UNFIX(y) < 0 : BIGSIGN(y)) { + g = Sfixnump(g) ? Sinteger(-UNFIX(g)) : big_negate(tc, g); + } + + S_trunc_rem(tc, x, g, &n, (ptr *)NULL); + S_trunc_rem(tc, y, g, &d, (ptr *)NULL); + + return S_rational(n, d); } ptr S_trunc(x, y) ptr x, y; { ptr q; - S_trunc_rem(x, y, &q, (ptr *)NULL); + S_trunc_rem(get_thread_context(), x, y, &q, (ptr *)NULL); return q; } ptr S_rem(x, y) ptr x, y; { ptr r; - S_trunc_rem(x, y, (ptr *)NULL, &r); + S_trunc_rem(get_thread_context(), x, y, (ptr *)NULL, &r); return r; } /* arguments must be integers (fixnums or bignums), y must be nonzero */ -void S_trunc_rem(origx, y, q, r) ptr origx, y, *q, *r; { - ptr tc = get_thread_context(); - +void S_trunc_rem(tc, origx, y, q, r) ptr tc, origx, y, *q, *r; { iptr xl, yl; IBOOL xs, ys; ptr x = origx; if (Sfixnump(x)) { @@ -722,13 +741,13 @@ void S_trunc_rem(origx, y, q, r) ptr origx, y, *q, *r; { return; } } else { - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) x = X(tc); + FIXNUM_TO_BIGNUM(tc, X(tc),x,&xl,&xs) x = X(tc); yl = BIGLEN(y); ys = BIGSIGN(y); } } else { if (Sfixnump(y)) { xl = BIGLEN(x); xs = BIGSIGN(x); - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) y = Y(tc); + FIXNUM_TO_BIGNUM(tc, Y(tc),y,&yl,&ys) y = Y(tc); } else { xl = BIGLEN(x); xs = BIGSIGN(x); yl = BIGLEN(y); ys = BIGSIGN(y); @@ -750,13 +769,13 @@ static void big_short_trunc(ptr tc, ptr x, bigit s, iptr xl, IBOOL qs, IBOOL rs, bigit *xp, *zp; bigit k; - PREPARE_BIGNUM(W(tc),xl) + PREPARE_BIGNUM(tc, W(tc),xl) for (i = xl, k = 0, xp = &BIGIT(x,0), zp = &BIGIT(W(tc),0); i-- > 0; ) EDIV(k, *xp++, s, zp++, &k) - if (q != (ptr *)NULL) *q = copy_normalize(&BIGIT(W(tc),0),xl,qs); - if (r != (ptr *)NULL) *r = copy_normalize(&k,1,rs); + if (q != (ptr *)NULL) *q = copy_normalize(tc, &BIGIT(W(tc),0),xl,qs); + if (r != (ptr *)NULL) *r = copy_normalize(tc, &k,1,rs); } static void big_trunc(tc, x, y, xl, yl, qs, rs, q, r) @@ -767,11 +786,11 @@ static void big_trunc(tc, x, y, xl, yl, qs, rs, q, r) INT d; bigit k; - PREPARE_BIGNUM(U(tc), xl+1) + PREPARE_BIGNUM(tc, U(tc), xl+1) for (i = xl, xp = &BIGIT(U(tc),xl+1), p = &BIGIT(x,xl); i-- > 0;) *--xp = *--p; *--xp = 0; - PREPARE_BIGNUM(V(tc), yl) + PREPARE_BIGNUM(tc, V(tc), yl) for (i = yl, yp = &BIGIT(V(tc),yl), p = &BIGIT(y,yl); i-- > 0;) *--yp = *--p; d = normalize(xp, yp, xl, yl); @@ -779,10 +798,10 @@ static void big_trunc(tc, x, y, xl, yl, qs, rs, q, r) if (q == (ptr *)NULL) { for (i = m; i-- > 0 ; xp++) (void) quotient_digit(xp, yp, yl); } else { - PREPARE_BIGNUM(W(tc),m) + PREPARE_BIGNUM(tc, W(tc),m) p = &BIGIT(W(tc),0); for (i = m; i-- > 0 ; xp++) *p++ = quotient_digit(xp, yp, yl); - *q = copy_normalize(&BIGIT(W(tc),0),m,qs); + *q = copy_normalize(tc, &BIGIT(W(tc),0),m,qs); } if (r != (ptr *)NULL) { @@ -790,7 +809,7 @@ static void big_trunc(tc, x, y, xl, yl, qs, rs, q, r) if (d != 0) { for (i = yl, p = xp, k = 0; i-- > 0; p++) ERSH(d,p,&k) } - *r = copy_normalize(xp, yl, rs); + *r = copy_normalize(tc, xp, yl, rs); } } @@ -874,12 +893,12 @@ static ptr uptr_gcd(x, y) uptr x, y; { } /* sparc C compiler barfs w/o full declaration */ -static ptr big_short_gcd(ptr x, bigit y, iptr xl) { +static ptr big_short_gcd(ptr tc, ptr x, bigit y, iptr xl) { bigit *xp; iptr i; bigit r, q; - if (y == 0) return BIGSIGN(x) ? S_sub(FIX(0),x) : x; + if (y == 0) return BIGSIGN(x) ? big_negate(tc, x) : x; for (i = xl, r = 0, xp = &BIGIT(x,0); i-- > 0; ) EDIV(r, *xp++, y, &q, &r) @@ -893,13 +912,13 @@ static ptr big_gcd(tc, x, y, xl, yl) ptr tc, x, y; iptr xl, yl; { bigit *p, *xp, *yp, k, b; /* Copy x to scratch bignum, with a leading zero */ - PREPARE_BIGNUM(U(tc),xl+1) + PREPARE_BIGNUM(tc, U(tc),xl+1) xp = &BIGIT(U(tc),xl+1); for (i = xl, p = &BIGIT(x,xl); i-- > 0; ) *--xp = *--p; *--xp = 0; /* leave xp pointing at leading 0-bigit */ /* Copy y to scratch bignum, with a leading zero */ - PREPARE_BIGNUM(V(tc),yl+1) + PREPARE_BIGNUM(tc, V(tc),yl+1) yp = &BIGIT(V(tc),yl+1); for (i = yl, p = &BIGIT(y,yl); i-- > 0; ) *--yp = *--p; *(yp-1) = 0; /* leave yp pointing just after leading 0-bigit */ @@ -953,7 +972,7 @@ static ptr big_gcd(tc, x, y, xl, yl) ptr tc, x, y; iptr xl, yl; { if (asc != 0) { for (i = xl, p = xp, k = 0; i-- > 0; p++) ERSH(asc,p,&k) } - return copy_normalize(xp,xl,0); + return copy_normalize(tc, xp,xl,0); } else { bigit d, r; @@ -976,13 +995,13 @@ ptr S_gcd(x, y) ptr x, y; { uptr_gcd((uptr)xi, (uptr)yi) : uptr_gcd((uptr)yi, (uptr)xi); } else { - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) x = X(tc); + FIXNUM_TO_BIGNUM(tc, X(tc),x,&xl,&xs) x = X(tc); yl = BIGLEN(y); ys = BIGSIGN(y); } else if (Sfixnump(y)) { xl = BIGLEN(x); xs = BIGSIGN(x); - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) y = Y(tc); + FIXNUM_TO_BIGNUM(tc, Y(tc),y,&yl,&ys) y = Y(tc); } else { xl = BIGLEN(x); xs = BIGSIGN(x); yl = BIGLEN(y); ys = BIGSIGN(y); @@ -993,10 +1012,10 @@ ptr S_gcd(x, y) ptr x, y; { uptr xu = BIGIT(x,0), yu = BIGIT(y,0); return xu >= yu ? uptr_gcd(xu, yu) : uptr_gcd(yu, xu); } else - return big_short_gcd(y, BIGIT(x,0), yl); + return big_short_gcd(tc, y, BIGIT(x,0), yl); else if (yl == 1) - return big_short_gcd(x, BIGIT(y,0), xl); + return big_short_gcd(tc, x, BIGIT(y,0), xl); else if (abs_big_lt(x, y, xl, yl)) return big_gcd(tc, y, x, yl, xl); @@ -1066,7 +1085,7 @@ static double big_short_floatify(ptr tc, ptr x, bigit s, iptr xl, IBOOL sign) { iptr i; bigit *xp, *zp, k; - PREPARE_BIGNUM(W(tc),enough+1) + PREPARE_BIGNUM(tc, W(tc),enough+1) /* compute only as much of quotient as we need */ for (i = 0, k = 0, xp = &BIGIT(x,0), zp = &BIGIT(W(tc),0); i < enough; i++) @@ -1087,18 +1106,18 @@ static double big_floatify(tc, x, y, xl, yl, sign) ptr tc, x, y; iptr xl, yl; IB /* copy x to U(tc), scaling with added zero bigits as necessary */ ul = xl < yl + enough-1 ? yl + enough-1 : xl; - PREPARE_BIGNUM(U(tc), ul+1) + PREPARE_BIGNUM(tc, U(tc), ul+1) for (i = ul - xl, xp = &BIGIT(U(tc),ul+1); i-- > 0;) *--xp = 0; for (i = xl, p = &BIGIT(x,xl); i-- > 0;) *--xp = *--p; *--xp = 0; /* copy y to V(tc) */ - PREPARE_BIGNUM(V(tc), yl) + PREPARE_BIGNUM(tc, V(tc), yl) for (i = yl, yp = &BIGIT(V(tc),yl), p = &BIGIT(y,yl); i-- > 0;) *--yp = *--p; (void) normalize(xp, yp, ul, yl); - PREPARE_BIGNUM(W(tc),4) + PREPARE_BIGNUM(tc, W(tc),4) p = &BIGIT(W(tc),0); /* compute 'enough' bigits of the quotient */ @@ -1202,7 +1221,7 @@ static double floatify_ratnum(tc, p) ptr tc, p; { /* make sure we are dealing with bignums */ if (Sfixnump(x)) { - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) x = X(tc); } else { xl = BIGLEN(x); @@ -1211,7 +1230,7 @@ static double floatify_ratnum(tc, p) ptr tc, p; { if (Sfixnump(y)) { IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) y = Y(tc); } else { yl = BIGLEN(y); @@ -1264,7 +1283,7 @@ ptr S_decode_float(d) double d; { else { iptr xl; x = FIX(0); - U64_TO_BIGNUM(x, m, &xl) + U64_TO_BIGNUM(get_thread_context(), x, m, &xl) SETBIGLENANDSIGN(x, xl, 0); } @@ -1288,39 +1307,47 @@ static ptr s_big_ash(tc, xp, xl, sign, cnt) ptr tc; bigit *xp; iptr xl; IBOOL si bigit *p1, *p2, k; if (cnt < 0) { /* shift to the right */ - INT bit_bucket = 0; + iptr whole_bigits; + + /* decrement length to shift by whole bigits */ + if ((xl -= (whole_bigits = (cnt = -cnt) / bigit_bits)) <= 0) return sign ? FIX(-1) : FIX(0); + cnt -= whole_bigits * bigit_bits; - cnt = -cnt; - - /* shift by whole bigits by decrementing length */ - while (cnt >= bigit_bits) { - xl -= 1; - if (xl == 0) return sign ? FIX(-1) : FIX(0); - cnt -= bigit_bits; - bit_bucket |= *(xp + xl); - } - - /* copy to scratch bignum */ - PREPARE_BIGNUM(W(tc),xl) - p1 = &BIGIT(W(tc), xl); - for (i = xl, p2 = xp + xl; i-- > 0; ) *--p1 = *--p2; - - /* shift by remaining count */ + /* shift by remaining count to scratch bignum, tracking bits shifted off to the right */ + PREPARE_BIGNUM(tc, W(tc),xl) + p1 = &BIGIT(W(tc), 0); + p2 = xp; k = 0; - if (cnt != 0) { - for (i = xl; i-- > 0; p1++) ERSH(cnt,p1,&k) - } - bit_bucket |= k; - - /* round down negative numbers by incrementing the magnitude if any - one bits dropped into the bit bucket */ - if (sign && bit_bucket) { - p1 = &BIGIT(W(tc), xl - 1); - for (i = xl, k = 1; k != 0 && i-- > 0; p1 -= 1) - EADDC(0, *p1, p1, &k) + i = xl; + if (cnt == 0) { + do { *p1++ = *p2++; } while (--i > 0); + } else { + do { ERSH2(cnt,*p2,p1,&k); p1++; p2++; } while (--i > 0); } - return copy_normalize(&BIGIT(W(tc), 0), xl, sign); + if (sign) { + if (k == 0) { + /* check for one bits in the shifted-off bigits, looking */ + /* from both ends in an attempt to get out more quickly for what */ + /* seem like the most likely patterns. of course, there might */ + /* be no one bits (in which case this won't help) or they might be */ + /* only in the middle (in which case this will be slower) */ + p2 = (p1 = xp + xl) + whole_bigits; + while (p1 != p2) { + if ((k = *p1++) || p1 == p2 || (k = *--p2)) break; + } + } + + /* round down negative numbers by incrementing the magnitude if any + one bits were shifted off to the right */ + if (k) { + p1 = &BIGIT(W(tc), xl - 1); + for (i = xl, k = 1; k != 0 && i-- > 0; p1 -= 1) + EADDC(0, *p1, p1, &k) + } + } + + return copy_normalize(tc, &BIGIT(W(tc), 0), xl, sign); } else { /* shift to the left */ iptr xlplus, newxl; @@ -1334,7 +1361,7 @@ static ptr s_big_ash(tc, xp, xl, sign, cnt) ptr tc; bigit *xp; iptr xl; IBOOL si /* maximum total length includes +1 for shift out of top bigit */ newxl = xl + xlplus + 1; - PREPARE_BIGNUM(W(tc),newxl) + PREPARE_BIGNUM(tc, W(tc),newxl) /* fill bigits to right with zero */ for (i = xlplus, p1 = &BIGIT(W(tc), newxl); i-- > 0; ) *--p1 = 0; @@ -1346,7 +1373,7 @@ static ptr s_big_ash(tc, xp, xl, sign, cnt) ptr tc; bigit *xp; iptr xl; IBOOL si } *--p1 = k; - return copy_normalize(p1, newxl, sign); + return copy_normalize(tc, p1, newxl, sign); } } @@ -1361,7 +1388,7 @@ ptr S_ash(x, n) ptr x, n; { do much here anyway since semantics of signed >> are undefined in C */ iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs); + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs); return s_big_ash(tc, &BIGIT(X(tc),0), xl, xs, cnt); } else return s_big_ash(tc, &BIGIT(x,0), BIGLEN(x), BIGSIGN(x), cnt); @@ -1429,7 +1456,7 @@ ptr S_big_positive_bit_field(ptr x, ptr fxstart, ptr fxend) { } /* copy to scratch bignum */ - PREPARE_BIGNUM(W(tc),wl) + PREPARE_BIGNUM(tc, W(tc),wl) p1 = &BIGIT(W(tc), wl); for (i = wl, p2 = xp + xl; i-- > 0; ) *--p1 = *--p2; @@ -1442,7 +1469,7 @@ ptr S_big_positive_bit_field(ptr x, ptr fxstart, ptr fxend) { for (i = wl; i > 0; i -= 1, p1 += 1) ERSH(start,p1,&k) } - return copy_normalize(&BIGIT(W(tc), 0), wl, 0); + return copy_normalize(tc, &BIGIT(W(tc), 0), wl, 0); } /* logical operations simulate two's complement operations using the @@ -1470,13 +1497,13 @@ ptr S_logand(x, y) ptr x, y; { return (ptr)((iptr)x & (iptr)y); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_logand(tc, y, X(tc), BIGLEN(y), xl, BIGSIGN(y), xs); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_logand(tc, x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), ys); } else { if (BIGLEN(x) >= BIGLEN(y)) @@ -1505,14 +1532,14 @@ static ptr big_logand(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL if (xs == 0) { if (ys == 0) { - PREPARE_BIGNUM(W(tc),yl); + PREPARE_BIGNUM(tc, W(tc),yl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),yl); for (i = yl; i > 0; i -= 1) *--zp = *--xp & *--yp; - return copy_normalize(zp, yl, 0); + return copy_normalize(tc, zp, yl, 0); } else { bigit yb; - PREPARE_BIGNUM(W(tc),xl); + PREPARE_BIGNUM(tc, W(tc),xl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl); yb = 1; for (i = yl; i > 0; i -= 1) { @@ -1523,13 +1550,13 @@ static ptr big_logand(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL /* yb must be 0, since high-order bigit >= 1. effectively, this means ~t2 would be all 1's from here on out. */ for (i = xl - yl; i > 0; i -= 1) *--zp = *--xp; - return copy_normalize(zp, xl, 0); + return copy_normalize(tc, zp, xl, 0); } } else { if (ys == 0) { bigit xb; - PREPARE_BIGNUM(W(tc),yl); + PREPARE_BIGNUM(tc, W(tc),yl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),yl); xb = 1; for (i = yl; i > 0; i -= 1) { @@ -1537,11 +1564,11 @@ static ptr big_logand(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL xb = t2 > t1; *--zp = *--yp & ~t2; } - return copy_normalize(zp, yl, 0); + return copy_normalize(tc, zp, yl, 0); } else { bigit xb, yb, k; - PREPARE_BIGNUM(W(tc),xl+1); + PREPARE_BIGNUM(tc, W(tc),xl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl+1); k = yb = xb = 1; for (i = yl; i > 0; i -= 1) { @@ -1560,7 +1587,7 @@ static ptr big_logand(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, xl+1, 1); + return copy_normalize(tc, zp, xl+1, 1); } } } @@ -1575,13 +1602,13 @@ ptr S_logtest(x, y) ptr x, y; { return Sboolean((iptr)x & (iptr)y); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_logtest(y, X(tc), BIGLEN(y), xl, BIGSIGN(y), xs); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_logtest(x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), ys); } else { if (BIGLEN(x) >= BIGLEN(y)) @@ -1690,7 +1717,7 @@ ptr S_logbit0(k, x) ptr k, x; { } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs); + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs); return big_logbit0(tc, x, n, X(tc), xl, xs); } } else { @@ -1717,7 +1744,7 @@ static ptr big_logbit0(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB /* we'd just be clearing a bit that's already (virtually) cleared */ return origx; } else { - PREPARE_BIGNUM(W(tc),xl); + PREPARE_BIGNUM(tc, W(tc),xl); xp = &BIGIT(x,xl); zp = &BIGIT(W(tc),xl); for (;;) { if (n < bigit_bits) break; @@ -1726,13 +1753,13 @@ static ptr big_logbit0(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB } *--zp = *--xp & ~(1 << n); for (i = xl - yl; i > 0; i -= 1) *--zp = *--xp; - return copy_normalize(zp,xl,0); + return copy_normalize(tc, zp,xl,0); } } else { bigit xb, k, x1, x2, z1, z2; iptr zl = (yl > xl ? yl : xl) + 1; - PREPARE_BIGNUM(W(tc),zl); + PREPARE_BIGNUM(tc, W(tc),zl); xp = &BIGIT(x,xl); zp = &BIGIT(W(tc),zl); k = xb = 1; i = xl; @@ -1752,7 +1779,7 @@ static ptr big_logbit0(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB *--zp = z2; } *--zp = k; - return copy_normalize(zp, zl, 1); + return copy_normalize(tc, zp, zl, 1); } } @@ -1767,7 +1794,7 @@ ptr S_logbit1(k, x) ptr k, x; { } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs); + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs); return big_logbit1(tc, x, n, X(tc), xl, xs); } } else { @@ -1785,7 +1812,7 @@ static ptr big_logbit1(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB bigit x1; iptr zl = yl > xl ? yl : xl; - PREPARE_BIGNUM(W(tc),zl); + PREPARE_BIGNUM(tc, W(tc),zl); xp = &BIGIT(x,xl); zp = &BIGIT(W(tc),zl); i = xl; @@ -1797,7 +1824,7 @@ static ptr big_logbit1(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB } *--zp = x1 | (1 << n); for (; i > 0; i -= 1) *--zp = *--xp; - return copy_normalize(zp, zl, 0); + return copy_normalize(tc, zp, zl, 0); } else if (yl > xl) { /* we'd just be setting a bit that's already (virtually) set */ return origx; @@ -1805,7 +1832,7 @@ static ptr big_logbit1(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB bigit xb, k, x1, x2, z1, z2; iptr zl = xl + 1; - PREPARE_BIGNUM(W(tc),zl); + PREPARE_BIGNUM(tc, W(tc),zl); xp = &BIGIT(x,xl); zp = &BIGIT(W(tc),zl); k = xb = 1; for (;;) { @@ -1826,7 +1853,7 @@ static ptr big_logbit1(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB *--zp = z2; } *--zp = k; - return copy_normalize(zp, zl, 1); + return copy_normalize(tc, zp, zl, 1); } } @@ -1838,13 +1865,13 @@ ptr S_logor(x, y) ptr x, y; { return (ptr)((iptr)x | (iptr)(y)); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_logor(tc, y, X(tc), BIGLEN(y), xl, BIGSIGN(y), xs); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_logor(tc, x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), ys); } else { if (BIGLEN(x) >= BIGLEN(y)) @@ -1873,15 +1900,15 @@ static ptr big_logor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL if (xs == 0) { if (ys == 0) { - PREPARE_BIGNUM(W(tc),xl); + PREPARE_BIGNUM(tc, W(tc),xl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl); for (i = yl; i > 0; i -= 1) *--zp = *--xp | *--yp; for (i = xl - yl; i > 0; i -= 1) *--zp = *--xp; - return copy_normalize(zp, xl, 0); + return copy_normalize(tc, zp, xl, 0); } else { bigit yb, k; - PREPARE_BIGNUM(W(tc),yl+1); + PREPARE_BIGNUM(tc, W(tc),yl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),yl+1); k = yb = 1; for (i = yl; i > 0; i -= 1) { @@ -1892,13 +1919,13 @@ static ptr big_logor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, yl+1, 1); + return copy_normalize(tc, zp, yl+1, 1); } } else { if (ys == 0) { bigit xb, k; - PREPARE_BIGNUM(W(tc),xl+1); + PREPARE_BIGNUM(tc, W(tc),xl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl+1); k = xb = 1; for (i = yl; i > 0; i -= 1) { @@ -1916,11 +1943,11 @@ static ptr big_logor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, xl+1, 1); + return copy_normalize(tc, zp, xl+1, 1); } else { bigit xb, yb, k; - PREPARE_BIGNUM(W(tc),yl+1); + PREPARE_BIGNUM(tc, W(tc),yl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),yl+1); k = yb = xb = 1; for (i = yl; i > 0; i -= 1) { @@ -1932,7 +1959,7 @@ static ptr big_logor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, yl+1, 1); + return copy_normalize(tc, zp, yl+1, 1); } } } @@ -1945,13 +1972,13 @@ ptr S_logxor(x, y) ptr x, y; { return (ptr)((iptr)x ^ (iptr)(y)); } else { iptr xl; IBOOL xs; - FIXNUM_TO_BIGNUM(X(tc),x,&xl,&xs) + FIXNUM_TO_BIGNUM(tc,X(tc),x,&xl,&xs) return big_logxor(tc, y, X(tc), BIGLEN(y), xl, BIGSIGN(y), xs); } } else { if (Sfixnump(y)) { iptr yl; IBOOL ys; - FIXNUM_TO_BIGNUM(Y(tc),y,&yl,&ys) + FIXNUM_TO_BIGNUM(tc,Y(tc),y,&yl,&ys) return big_logxor(tc, x, Y(tc), BIGLEN(x), yl, BIGSIGN(x), ys); } else { if (BIGLEN(x) >= BIGLEN(y)) @@ -1980,15 +2007,15 @@ static ptr big_logxor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL if (xs == 0) { if (ys == 0) { - PREPARE_BIGNUM(W(tc),xl); + PREPARE_BIGNUM(tc, W(tc),xl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl); for (i = yl; i > 0; i -= 1) *--zp = *--xp ^ *--yp; for (i = xl - yl; i > 0; i -= 1) *--zp = *--xp; - return copy_normalize(zp, xl, 0); + return copy_normalize(tc, zp, xl, 0); } else { bigit yb, k; - PREPARE_BIGNUM(W(tc),xl+1); + PREPARE_BIGNUM(tc, W(tc),xl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl+1); k = yb = 1; for (i = yl; i > 0; i -= 1) { @@ -2005,13 +2032,13 @@ static ptr big_logxor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, xl+1, 1); + return copy_normalize(tc, zp, xl+1, 1); } } else { if (ys == 0) { bigit xb, k; - PREPARE_BIGNUM(W(tc),xl+1); + PREPARE_BIGNUM(tc, W(tc),xl+1); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl+1); k = xb = 1; for (i = yl; i > 0; i -= 1) { @@ -2029,11 +2056,11 @@ static ptr big_logxor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL *--zp = z2; } *--zp = k; - return copy_normalize(zp, xl+1, 1); + return copy_normalize(tc, zp, xl+1, 1); } else { bigit xb, yb; - PREPARE_BIGNUM(W(tc),xl); + PREPARE_BIGNUM(tc, W(tc),xl); xp = &BIGIT(x,xl); yp = &BIGIT(y,yl); zp = &BIGIT(W(tc),xl); yb = xb = 1; for (i = yl; i > 0; i -= 1) { @@ -2047,7 +2074,7 @@ static ptr big_logxor(tc, x, y, xl, yl, xs, ys) ptr tc, x, y; iptr xl, yl; IBOOL x1 = *--xp; x2 = x1 - xb; xb = x2 > x1; *--zp = x2; } - return copy_normalize(zp, xl, 0); + return copy_normalize(tc, zp, xl, 0); } } } diff --git a/c/prim5.c b/c/prim5.c index a2f10a96b7..53a45dd19d 100644 --- a/c/prim5.c +++ b/c/prim5.c @@ -166,7 +166,7 @@ static iptr s_fxdiv(x, y) iptr x, y; { static ptr s_trunc_rem(x, y) ptr x, y; { ptr q, r; - S_trunc_rem(x, y, &q, &r); + S_trunc_rem(get_thread_context(), x, y, &q, &r); return Scons(q, r); } @@ -1596,6 +1596,7 @@ void S_prim5_init() { Sforeign_symbol("(cs)lognot", (void *)S_lognot); Sforeign_symbol("(cs)fxmul", (void *)s_fxmul); Sforeign_symbol("(cs)fxdiv", (void *)s_fxdiv); + Sforeign_symbol("(cs)s_big_negate", (void *)S_big_negate); Sforeign_symbol("(cs)add", (void *)S_add); Sforeign_symbol("(cs)gcd", (void *)S_gcd); Sforeign_symbol("(cs)mul", (void *)S_mul); @@ -1627,6 +1628,7 @@ void S_prim5_init() { #else Sforeign_symbol("(cs)directory_list", (void *)S_directory_list); #endif + Sforeign_symbol("(cs)dequeue_scheme_signals", (void *)S_dequeue_scheme_signals); Sforeign_symbol("(cs)register_scheme_signal", (void *)S_register_scheme_signal); Sforeign_symbol("(cs)exp", (void *)s_exp); diff --git a/c/print.c b/c/print.c index 8a8537f777..0d963c6d7d 100644 --- a/c/print.c +++ b/c/print.c @@ -282,7 +282,7 @@ static void pbignum(x) ptr x; { static void wrint(x) ptr x; { ptr q, r; - S_trunc_rem(x, FIX(10), &q, &r); + S_trunc_rem(get_thread_context(), x, FIX(10), &q, &r); if (q != 0) wrint(q); putchar((INT)UNFIX(r) + '0'); } diff --git a/c/schsig.c b/c/schsig.c index 83c8d6f54b..003923460a 100644 --- a/c/schsig.c +++ b/c/schsig.c @@ -501,16 +501,24 @@ void S_noncontinuable_interrupt() { } #ifdef WIN32 +ptr S_dequeue_scheme_signals(ptr tc) { + return Snil; +} + +ptr S_allocate_scheme_signal_queue() { + return (ptr)0; +} + +void S_register_scheme_signal(sig) iptr sig; { + S_error("register_scheme_signal", "unsupported in this version"); +} + /* code courtesy Bob Burger, burgerrg@sagian.com We cannot call noncontinuable_interrupt, because we are not allowed to perform a longjmp inside a signal handler; instead, we don't handle the signal, which will cause the process to terminate. */ -void S_register_scheme_signal(sig) iptr sig; { - S_error("register_scheme_signal", "unsupported in this version"); -} - static BOOL WINAPI handle_signal(DWORD dwCtrlType) { switch (dwCtrlType) { case CTRL_C_EVENT: @@ -538,6 +546,8 @@ static void init_signal_handlers() { #include static void handle_signal PROTO((INT sig, siginfo_t *si, void *data)); +static IBOOL enqueue_scheme_signal PROTO((ptr tc, INT sig)); +static ptr allocate_scheme_signal_queue PROTO((void)); static void forward_signal_to_scheme PROTO((INT sig)); #define RESET_SIGNAL {\ @@ -547,18 +557,88 @@ static void forward_signal_to_scheme PROTO((INT sig)); sigprocmask(SIG_UNBLOCK,&set,(sigset_t *)0);\ } +/* we buffer up to SIGNALQUEUESIZE - 1 unhandled signals, the start dropping them. */ +#define SIGNALQUEUESIZE 64 +static IBOOL scheme_signals_registered; + +/* we use a simple queue for pending signals. signals are enqueued only by the + C signal handler and dequeued only by the Scheme event handler. since the signal + handler and event handler run in the same thread, there's no need for locks + or write barriers. */ + +struct signal_queue { + INT head; + INT tail; + INT data[SIGNALQUEUESIZE]; +}; + +static IBOOL enqueue_scheme_signal(ptr tc, INT sig) { + struct signal_queue *queue = (struct signal_queue *)(SIGNALINTERRUPTQUEUE(tc)); + /* ignore the signal if we failed to allocate the queue */ + if (queue == NULL) return 0; + INT tail = queue->tail; + INT next_tail = tail + 1; + if (next_tail == SIGNALQUEUESIZE) next_tail = 0; + /* ignore the signal if the queue is full */ + if (next_tail == queue->head) return 0; + queue->data[tail] = sig; + queue->tail = next_tail; + return 1; +} + +ptr S_dequeue_scheme_signals(ptr tc) { + ptr ls = Snil; + struct signal_queue *queue = (struct signal_queue *)(SIGNALINTERRUPTQUEUE(tc)); + if (queue == NULL) return ls; + INT head = queue->head; + INT tail = queue->tail; + INT i = tail; + while (i != head) { + if (i == 0) i = SIGNALQUEUESIZE; + i -= 1; + ls = Scons(Sfixnum(queue->data[i]), ls); + } + queue->head = tail; + return ls; +} + static void forward_signal_to_scheme(sig) INT sig; { ptr tc = get_thread_context(); - SIGNALINTERRUPTPENDING(tc) = Sfixnum(sig); - SOMETHINGPENDING(tc) = Strue; + if (enqueue_scheme_signal(tc, sig)) { + SIGNALINTERRUPTPENDING(tc) = Strue; + SOMETHINGPENDING(tc) = Strue; + } RESET_SIGNAL } +static ptr allocate_scheme_signal_queue() { + /* silently fail to allocate space for signals if malloc returns NULL */ + struct signal_queue *queue = malloc(sizeof(struct signal_queue)); + if (queue != (struct signal_queue *)0) { + queue->head = queue->tail = 0; + } + return (ptr)queue; +} + +ptr S_allocate_scheme_signal_queue() { + return scheme_signals_registered ? allocate_scheme_signal_queue() : (ptr)0; +} + void S_register_scheme_signal(sig) iptr sig; { struct sigaction act; - sigemptyset(&act.sa_mask); + tc_mutex_acquire() + if (!scheme_signals_registered) { + ptr ls; + scheme_signals_registered = 1; + for (ls = S_threads; ls != Snil; ls = Scdr(ls)) { + SIGNALINTERRUPTQUEUE(THREADTC(Scar(ls))) = S_allocate_scheme_signal_queue(); + } + } + tc_mutex_release() + + sigfillset(&act.sa_mask); act.sa_flags = 0; act.sa_handler = forward_signal_to_scheme; sigaction(sig, &act, (struct sigaction *)0); @@ -690,6 +770,7 @@ void S_schsig_init() { S_protect(&S_G.error_id); S_G.error_id = S_intern((const unsigned char *)"$c-error"); + scheme_signals_registered = 0; } diff --git a/c/thread.c b/c/thread.c index 75200089bc..ae96e1f69f 100644 --- a/c/thread.c +++ b/c/thread.c @@ -95,6 +95,7 @@ ptr S_create_thread_object(who, p_tc) const char *who; ptr p_tc; { TIMERTICKS(tc) = Sfalse; DISABLECOUNT(tc) = Sfixnum(0); SIGNALINTERRUPTPENDING(tc) = Sfalse; + SIGNALINTERRUPTQUEUE(tc) = S_allocate_scheme_signal_queue(); KEYBOARDINTERRUPTPENDING(tc) = Sfalse; TARGETMACHINE(tc) = S_intern((const unsigned char *)MACHINE_TYPE); @@ -227,6 +228,7 @@ static IBOOL destroy_thread(tc) ptr tc; { } if (LZ4OUTBUFFER(tc) != NULL) free(LZ4OUTBUFFER(tc)); + if (SIGNALINTERRUPTQUEUE(tc) != NULL) free(SIGNALINTERRUPTQUEUE(tc)); free((void *)tc); THREADTC(thread) = 0; /* mark it dead */ diff --git a/csug/io.stex b/csug/io.stex index 0742fcbfdb..db638736db 100644 --- a/csug/io.stex +++ b/csug/io.stex @@ -1020,7 +1020,7 @@ be significantly smaller. \noindent \scheme{compress-level} determines the amount of effort spent on compression and is thus relevant only for output. -It can be set to one of the symbols \scheme{low}, +It can be set to one of the symbols \scheme{minimum}, \scheme{low}, \scheme{medium}, \scheme{high}, or \scheme{maximum}, which are listed in order from shortest to longest expected compression time and least to greatest expected effectiveness. diff --git a/csug/libraries.stex b/csug/libraries.stex index a48f401c70..57bb3a3cb9 100644 --- a/csug/libraries.stex +++ b/csug/libraries.stex @@ -896,6 +896,57 @@ cannot be proven immutable, which inhibits important optimizations such as procedure inlining. This can result in significantly lower run-time performance. +\section{Explicitly invoking libraries\label{SECTLIBRARYINVOCATION}} + +%---------------------------------------------------------------------------- +\noskipentryheader +\formdef{invoke-library}{\categoryprocedure}{(invoke-library \var{libref})} +\returns unspecified +\listlibraries +\endnoskipentryheader + +\var{libref} must be an s-expression in the form of a library reference. +The syntax for library references is given in +Chapter~\ref{TSPL:CHPTLIBRARIES} of {\TSPLFOUR} and in the Revised$^6$ +Report. + +A library is implicitly invoked when or before some expression +outside the library (e.g., in another library or in a top-level +program) evaluates a reference to one of the library's exported +variables. +When the library is invoked, its body expressions (the right-hand-sides +of the library's variable definitions and its initialization +expressions) are evaluated. +Once invoked, the library is not invoked again within the same process, +unless it is first explicitly redefined or reloaded. + +\scheme{invoke-library} explicitly invokes the library specified +by \var{libref} if it has not already been invoked or has since +been redefined or reloaded. +If the library has not yet been loaded, \scheme{invoke-library} +first loads the library via the process described in +Section~\ref{SECTUSELIBRARIES}. + +\scheme{invoke-library} is typically only useful for libraries whose +body expressions have side effects. +It is useful to control when the side effects occur and to force +invocation of a library that has no exported variables. +Invoking a library does not force the compile-time code (macro +transformer expressions and meta definitions) to be loaded or +evaluated, nor does it cause the library's bindings to become +visible. + +It is good practice to avoid externally visible side effects in +library bodies so the library can be used equally well at compile +time and run time. +When feasible, consider moving the side effects of a library body +to an initialization routine and adding a top-level program that +imports the library and calls the initialization routine. +With this structure, calls to \scheme{invoke-library} on the +library can be replaced by calls to +\index{\scheme{load-program}}\scheme{load-program} on the +top-level program. + \section{Library Parameters\label{SECTLIBRARYPARAMETERS}} \index{\scheme{import}}% @@ -915,7 +966,7 @@ The parameter \scheme{library-directories} determines where the files containing library source and object code are located in the file system, and the parameter \scheme{library-extensions} determines the filename extensions for the files holding the code, as described in -section~\ref{SECTUSESCRIPTING}. +section~\ref{SECTUSELIBRARIES}. The values of both parameters are lists of pairs of strings. The first string in each \scheme{library-directories} pair identifies a source-file root directory, and the second identifies the corresponding @@ -974,7 +1025,7 @@ to a procedure that simply calls \scheme{compile-library}) on any imported libra the object file is missing, older than the corresponding source file, older than any source files included (via \index{\scheme{include}}\scheme{include}) when the object file was created, or itself requires a library that has or must -be recompiled, as described in Section~\ref{SECTUSESCRIPTING}. +be recompiled, as described in Section~\ref{SECTUSELIBRARIES}. The default initial value of this parameter is \scheme{#f}. It can be set to \scheme{#t} via the command-line option \index{\scheme{--compile-imported-libraries} command-line option}\scheme{--compile-imported-libraries}. @@ -1056,7 +1107,7 @@ The set of libraries initially defined includes those listed in Section~\ref{SECTBUILTINLIBRARIES} above. %---------------------------------------------------------------------------- -\noskipentryheader +\entryheader \formdef{library-version}{\categoryprocedure}{(library-version \var{libref})} \returns the version of the specified library \formdef{library-exports}{\categoryprocedure}{(library-exports \var{libref})} @@ -1068,7 +1119,7 @@ Section~\ref{SECTBUILTINLIBRARIES} above. \formdef{library-object-filename}{\categoryprocedure}{(library-object-filename \var{libref})} \returns the name of the object file holding the specified library, if any \listlibraries -\endnoskipentryheader +\endentryheader Information can be obtained only for built-in libraries or libraries previously loaded into the system. diff --git a/csug/objects.stex b/csug/objects.stex index b8e3262acb..257ebd5379 100644 --- a/csug/objects.stex +++ b/csug/objects.stex @@ -1180,9 +1180,7 @@ the uncompressed size and the compression mode. The result does not include the header that is written by port-based compression using the \scheme{compressed} option. The compression format is determined by the \index{\scheme{compress-format}}\scheme{compress-format} -parameter. -The compression level is fixed to some default determined by the -format; it is not affected by the +parameter, and the compression level is determined by the \index{\scheme{compress-level}}\scheme{compress-level} parameter. diff --git a/csug/system.stex b/csug/system.stex index b3845f6fe6..0529cfbcc1 100644 --- a/csug/system.stex +++ b/csug/system.stex @@ -521,6 +521,8 @@ It is generally not a good idea, therefore, to establish handlers for memory faults, illegal instructions, and the like, since the code that causes the fault or illegal instruction will continue to execute (presumably erroneously) for some time before the handler is invoked. +A finite amount of storage is used to buffer as-yet unhandled +signals, after which additional signals are dropped. \scheme{register-signal-handler} is supported only on Unix-based systems. @@ -1422,7 +1424,23 @@ The libraries incorporated into the resulting object file are visible (for use by \scheme{environment} and \scheme{eval}) if the \var{libs-visible?} argument is supplied and non-false. Any library incorporated into the resulting object file and required by -an object file left to be loaded at run time is also visible. +an object file left to be loaded at run time is also visible, as are any +libraries the object file depends upon, regardless of the value of +\var{libs-visible?}. + +\scheme{compile-whole-program} linearizes the initialization code for the +set of incorporated libraries in a way that respects static +dependencies among the libraries but not necessary dynamic dependencies +deriving from initialization-time uses of \scheme{environment} +or \scheme{eval}. +Additional static dependencies can be added in most cases to force +an ordering that allows the dynamic imports to succeed, +though not in general since a different order might be required each +time the program is run. +Adding a static dependency of one library on a second requires +adding an import of the second in the first as well as a run-time +reference to one of the variables exported by the second in the +body of the first. \var{input-filename} and \var{output-filename} must be strings. \var{input-filename} must identify a wpo file, and a wpo or object @@ -1460,6 +1478,10 @@ all libraries are automatically made visible, and a new wpo file is produced (when \scheme{generate-wpo-files} is \scheme{#t}) as well as an object file for the resulting combination of libraries. +The comment in the description of \scheme{compile-whole-program} +about the effect of initialization-code linearization on dynamic +dependencies applies to \scheme{compile-whole-library} as well. + %---------------------------------------------------------------------------- \entryheader \formdef{compile-port}{\categoryprocedure}{(compile-port \var{input-port} \var{output-port})} diff --git a/mats/5_3.ms b/mats/5_3.ms index 9a3296faa2..750275b548 100644 --- a/mats/5_3.ms +++ b/mats/5_3.ms @@ -2877,6 +2877,107 @@ (eqv? (ash #x-8000000000000000 -31) #x-100000000) (eqv? (ash #x-8000000000000000 -32) #x-80000000) (eqv? (ash #x-8000000000000000 -33) #x-40000000) + (begin + (define ($test-right-shift srl) + (define ($go q x n expected) + (let ([got (srl x n)]) + (unless (eqv? got expected) + (syntax-error q (format "expected ~x, got ~x" expected got))))) + (define-syntax go + (lambda (q) + (syntax-case q () + [(_ x n expected) #`($go #'#,q x n expected)]))) + (let* ([$x (expt 2 1024)] + [$-x (- $x)] + [$x+1 (+ $x 1)] + [$-x-1 (- $x+1)] + [$x-1 (- $x 1)] + [$-x+1 (- $x-1)] + [$x+8 (+ $x 8)] + [$-x-8 (- $x+8)] + [$x+2^31 (+ $x (expt 2 32))] + [$-x-2^31 (- $x+2^31)] + [$x+2^32 (+ $x (expt 2 32))] + [$-x-2^32 (- $x+2^32)] + [$x+2^40 (+ $x (expt 2 40))] + [$-x-2^40 (- $x+2^40)] + [$x+2^63 (+ $x (expt 2 63))] + [$-x-2^63 (- $x+2^63)] + [$x+2^65 (+ $x (expt 2 65))] + [$-x-2^65 (- $x+2^65)] + [$x*3/2 (ash 3 1023)] + [$-x*3/2 (- $x*3/2)] + ; answers + [$2^64 (expt 2 64)] + [$-2^64 (- $2^64)] + [$-2^64-1 (- -1 $2^64)] + [$x>>64 (expt 2 (- 1024 64))] + [$-x>>64 (- $x>>64)] + [$-x>>64-1 (- -1 $x>>64)] + [$x>>64+2 (+ $x>>64 2)] + [$-x>>64-2 (- $x>>64+2 )] + [$x>>80 (expt 2 (- 1024 80))] + [$-x>>80 (- $x>>80)] + [$-x>>80-1 (- -1 $x>>80)] + ) + (go $x 1024 1) + (go $-x 1024 -1) + (go $x 1025 0) + (go $-x 1025 -1) + (go $x+1 1024 1) + (go $-x-1 1024 -2) + (go $x+1 1025 0) + (go $-x-1 1025 -1) + (go $x (- 1024 64) $2^64) + (go $-x (- 1024 64) $-2^64) + (go $x+1 (- 1024 64) $2^64) + (go $-x-1 (- 1024 64) $-2^64-1) + (go $x+8 (- 1024 64) $2^64) + (go $-x-8 (- 1024 64) $-2^64-1) + (go $x+2^32 (- 1024 64) $2^64) + (go $-x-2^32 (- 1024 64) $-2^64-1) + (go $x+2^65 (- 1024 64) $2^64) + (go $-x-2^65 (- 1024 64) $-2^64-1) + (go $x 64 $x>>64) + (go $-x 64 $-x>>64) + (go $x+1 64 $x>>64) + (go $-x-1 64 $-x>>64-1) + (go $x+8 64 $x>>64) + (go $-x-8 64 $-x>>64-1) + (go $x+2^31 64 $x>>64) + (go $-x-2^31 64 $-x>>64-1) + (go $x+2^40 64 $x>>64) + (go $-x-2^40 64 $-x>>64-1) + (go $x+2^63 64 $x>>64) + (go $-x-2^63 64 $-x>>64-1) + (go $x+2^65 64 $x>>64+2) + (go $-x-2^65 64 $-x>>64-2) + (go $x 80 $x>>80) + (go $-x 80 $-x>>80) + (go $x+1 80 $x>>80) + (go $-x-1 80 $-x>>80-1) + (go $x+8 80 $x>>80) + (go $-x-8 80 $-x>>80-1) + (go $x+2^31 80 $x>>80) + (go $-x-2^31 80 $-x>>80-1) + (go $x+2^32 80 $x>>80) + (go $-x-2^32 80 $-x>>80-1) + (go $x+2^40 80 $x>>80) + (go $-x-2^40 80 $-x>>80-1) + (go $x+2^63 80 $x>>80) + (go $-x-2^63 80 $-x>>80-1) + (go $x+2^65 80 $x>>80) + (go $-x-2^65 80 $-x>>80-1) + (go $x*3/2 1023 3) + (go $-x*3/2 1023 -3) + (go $x*3/2 1024 1) + (go $-x*3/2 1024 -2) + (go $x*3/2 1025 0) + (go $-x*3/2 1025 -1) + ) + #t) + #t) + ($test-right-shift (lambda (x n) (ash x (- n)))) ) (mat bitwise-arithmetic-shift @@ -2922,6 +3023,7 @@ (eqv? (bitwise-arithmetic-shift #x-8000000000000000 -31) #x-100000000) (eqv? (bitwise-arithmetic-shift #x-8000000000000000 -32) #x-80000000) (eqv? (bitwise-arithmetic-shift #x-8000000000000000 -33) #x-40000000) + ($test-right-shift (lambda (x n) (bitwise-arithmetic-shift x (- n)))) ) (mat bitwise-arithmetic-shift-left/right @@ -2967,6 +3069,7 @@ (eqv? (bitwise-arithmetic-shift-right #x-8000000000000000 31) #x-100000000) (eqv? (bitwise-arithmetic-shift-right #x-8000000000000000 32) #x-80000000) (eqv? (bitwise-arithmetic-shift-right #x-8000000000000000 33) #x-40000000) + ($test-right-shift (lambda (x n) (bitwise-arithmetic-shift-right x n))) ) (mat bitwise-bit-field @@ -6277,3 +6380,564 @@ '((0 . 3/5) (0 . -3/5) (0 . 3/5) (0 . -3/5) (5 . 2/7) (-5 . -2/7) (-5 . 2/7) (5 . -2/7))) ) + +(mat special-cases ; test special cases added Feb 2020 + (begin + (define $n 40910371311673474504209841881478505181983799806634563) + (define $-n (- $n)) + (define $q 40910371311673474504209841881478505181983799806634563/7312893582423593745243587) + (define $-q (- $q)) + (define $x 1.499423325079378e100) + (define $-x (- $x)) + (define $ez 3+4i) + (define $-ez (- $ez)) + (define $iz 3.0-4.0i) + (define $-iz (- $iz)) + #t) + (error? ; not a number + (div-and-mod 'bogus 1)) + (error? ; not a number + (div-and-mod 'bogus -1)) + (error? ; domain error + (div-and-mod $n 4+3i)) + (error? ; domain error + (div-and-mod 4+3i $n)) + (error? ; domain error + (div-and-mod 0 0)) + (error? ; domain error + (div-and-mod $n 0)) + (error? ; domain error + (div-and-mod $q 0)) + (error? ; not a number + (div 'bogus 1)) + (error? ; not a number + (div 'bogus -1)) + (error? ; domain error + (div $n 4+3i)) + (error? ; domain error + (div 4+3i $n)) + (error? ; domain error + (div 0 0)) + (error? ; domain error + (div $n 0)) + (error? ; domain error + (div $q 0)) + (error? ; not a number + (mod 'bogus 1)) + (error? ; not a number + (mod 'bogus -1)) + (error? ; domain error + (mod $n 4+3i)) + (error? ; domain error + (mod 4+3i $n)) + (error? ; domain error + (mod 0 0)) + (error? ; domain error + (mod $n 0)) + (error? ; domain error + (mod $q 0)) + (error? ; not a number + (div0-and-mod0 'bogus 1)) + (error? ; not a number + (div0-and-mod0 'bogus -1)) + (error? ; domain error + (div0-and-mod0 $n 4+3i)) + (error? ; domain error + (div0-and-mod0 4+3i $n)) + (error? ; domain error + (div0-and-mod0 0 0)) + (error? ; domain error + (div0-and-mod0 $n 0)) + (error? ; domain error + (div0-and-mod0 $q 0)) + (error? ; not a number + (div0 'bogus 1)) + (error? ; not a number + (div0 'bogus -1)) + (error? ; domain error + (div0 $n 4+3i)) + (error? ; domain error + (div0 4+3i $n)) + (error? ; domain error + (div0 0 0)) + (error? ; domain error + (div0 $n 0)) + (error? ; domain error + (div0 $q 0)) + (error? ; not a number + (mod0 'bogus 1)) + (error? ; not a number + (mod0 'bogus -1)) + (error? ; domain error + (mod0 $n 4+3i)) + (error? ; domain error + (mod0 4+3i $n)) + (error? ; domain error + (mod0 0 0)) + (error? ; domain error + (mod0 $n 0)) + (error? ; domain error + (mod0 $q 0)) + (error? ; not a number + (quotient 'bogus 1)) + (error? ; not a number + (quotient 'bogus -1)) + (error? ; domain error + (quotient $n 4+3i)) + (error? ; domain error + (quotient 4.5 $n)) + (error? ; domain error + (quotient 0 0)) + (error? ; domain error + (quotient $n 0)) + (error? ; domain error + (quotient 4.0 0)) + (error? ; not a number + (remainder 'bogus 1)) + (error? ; not a number + (remainder 'bogus -1)) + (error? ; domain error + (remainder $n 4+3i)) + (error? ; domain error + (remainder 4.5 $n)) + (error? ; domain error + (remainder 0 0)) + (error? ; domain error + (remainder $n 0)) + (error? ; domain error + (remainder 4.0 0)) + (error? ; not a number + (modulo 'bogus 1)) + (error? ; not a number + (modulo 'bogus -1)) + (error? ; domain error + (modulo $n 4+3i)) + (error? ; domain error + (modulo 4.5 $n)) + (error? ; domain error + (modulo 0 0)) + (error? ; domain error + (modulo $n 0)) + (error? ; domain error + (modulo 4.0 0)) + (error? ; not a number + (/ 'bogus 1)) + (error? ; not a number + (/ 'bogus -1)) + (error? ; domain error + (/ 0 0)) + (error? ; domain error + (/ $n 0)) + (error? ; domain error + (/ $q 0)) + (error? ; domain error + (/ $ez 0)) + (error? ; not a number + (* 'bogus 0)) + (error? ; not a number + (* 'bogus 1)) + (error? ; not a number + (* 'bogus -1)) + (error? ; not a number + (* 0 'bogus)) + (error? ; not a number + (* 1 'bogus)) + (error? ; not a number + (* -1 'bogus)) + (error? ; not a number + (+ 'bogus 0)) + (error? ; not a number + (+ 0 'bogus)) + (error? ; not a number + (- 'bogus 0)) + (error? ; not a number + (- 0 'bogus)) + (equal? (call-with-values (lambda () (div-and-mod $n 1)) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (div-and-mod $n -1)) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (div-and-mod $-n 1)) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (div-and-mod $-n -1)) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (div $n 1) (mod $n 1))) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (div $n -1) (mod $n -1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (div $-n 1) (mod $n 1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (div $-n -1) (mod $n -1))) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (div0-and-mod0 $n 1)) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (div0-and-mod0 $n -1)) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (div0-and-mod0 $-n 1)) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (div0-and-mod0 $-n -1)) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (div0 $n 1) (mod0 $n 1))) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (div0 $n -1) (mod0 $n -1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (div0 $-n 1) (mod0 $n 1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (div0 $-n -1) (mod0 $n -1))) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (quotient $n 1) (remainder $n 1))) cons) `(,$n . 0)) + (equal? (call-with-values (lambda () (values (quotient $n -1) (remainder $n -1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (quotient $-n 1) (remainder $n 1))) cons) `(,$-n . 0)) + (equal? (call-with-values (lambda () (values (quotient $-n -1) (remainder $n -1))) cons) `(,$n . 0)) + (equal? (modulo $n 1) 0) + (equal? (modulo $n -1) 0) + (equal? (modulo $-n 1) 0) + (equal? (modulo $-n -1) 0) + (equal? (/ $n 1) $n) + (equal? (/ $n -1) $-n) + (equal? (/ $-n 1) $-n) + (equal? (/ $-n -1) $n) + (equal? (/ 0 $n) 0) + (equal? (/ 0 $-n) 0) + (equal? (/ $q 1) $q) + (equal? (/ $q -1) $-q) + (equal? (/ $-q 1) $-q) + (equal? (/ $-q -1) $q) + (equal? (/ $x 1) $x) + (equal? (/ $x -1) $-x) + (equal? (/ $-x 1) $-x) + (equal? (/ $-x -1) $x) + (equal? (/ $ez 1) $ez) + (equal? (/ $ez -1) $-ez) + (equal? (/ $-ez 1) $-ez) + (equal? (/ $-ez -1) $ez) + (equal? (/ $iz 1) $iz) + (equal? (/ $iz -1) $-iz) + (equal? (/ $-iz 1) $-iz) + (equal? (/ $-iz -1) $iz) + (equal? (* $n 1) $n) + (equal? (* $n -1) $-n) + (equal? (* $-n 1) $-n) + (equal? (* $-n -1) $n) + (equal? (* $n 0) 0) + (equal? (* $-n 0) 0) + (equal? (* $q 1) $q) + (equal? (* $q -1) $-q) + (equal? (* $-q 1) $-q) + (equal? (* $-q -1) $q) + (equal? (* $q 0) 0) + (equal? (* $-q 0) 0) + (equal? (* $x 1) $x) + (equal? (* $x -1) $-x) + (equal? (* $-x 1) $-x) + (equal? (* $-x -1) $x) + (equal? (* $x 0) 0) + (equal? (* $-x 0) 0) + (equal? (* $ez 1) $ez) + (equal? (* $ez -1) $-ez) + (equal? (* $-ez 1) $-ez) + (equal? (* $-ez -1) $ez) + (equal? (* $ez 0) 0) + (equal? (* $-ez 0) 0) + (equal? (* $iz 1) $iz) + (equal? (* $iz -1) $-iz) + (equal? (* $-iz 1) $-iz) + (equal? (* $-iz -1) $iz) + (equal? (* $iz 0) 0) + (equal? (* $-iz 0) 0) + (equal? (* 1 $n) $n) + (equal? (* -1 $n) $-n) + (equal? (* 1 $-n) $-n) + (equal? (* -1 $-n) $n) + (equal? (* 0 $n) 0) + (equal? (* 0 $-n) 0) + (equal? (* 1 $q) $q) + (equal? (* -1 $q) $-q) + (equal? (* 1 $-q) $-q) + (equal? (* -1 $-q) $q) + (equal? (* 0 $q) 0) + (equal? (* 0 $-q) 0) + (equal? (* 1 $x) $x) + (equal? (* -1 $x) $-x) + (equal? (* 1 $-x) $-x) + (equal? (* -1 $-x) $x) + (equal? (* 0 $x) 0) + (equal? (* 0 $-x) 0) + (equal? (* 1 $ez) $ez) + (equal? (* -1 $ez) $-ez) + (equal? (* 1 $-ez) $-ez) + (equal? (* -1 $-ez) $ez) + (equal? (* 0 $ez) 0) + (equal? (* 0 $-ez) 0) + (equal? (* 1 $iz) $iz) + (equal? (* -1 $iz) $-iz) + (equal? (* 1 $-iz) $-iz) + (equal? (* -1 $-iz) $iz) + (equal? (* 0 $iz) 0) + (equal? (* 0 $-iz) 0) + (equal? (+ $n 0) $n) + (equal? (+ $-n 0) $-n) + (equal? (+ 0 $n) $n) + (equal? (+ 0 $-n) $-n) + (equal? (+ $q 0) $q) + (equal? (+ $-q 0) $-q) + (equal? (+ 0 $q) $q) + (equal? (+ 0 $-q) $-q) + (equal? (+ $x 0) $x) + (equal? (+ $-x 0) $-x) + (equal? (+ 0 $x) $x) + (equal? (+ 0 $-x) $-x) + (equal? (+ $ez 0) $ez) + (equal? (+ $-ez 0) $-ez) + (equal? (+ 0 $ez) $ez) + (equal? (+ 0 $-ez) $-ez) + (equal? (+ $iz 0) $iz) + (equal? (+ $-iz 0) $-iz) + (equal? (+ 0 $iz) $iz) + (equal? (+ 0 $-iz) $-iz) + (equal? (- $n 0) $n) + (equal? (- $-n 0) $-n) + (equal? (- 0 $n) $-n) + (equal? (- 0 $-n) $n) + (equal? (- $q 0) $q) + (equal? (- $-q 0) $-q) + (equal? (- 0 $q) $-q) + (equal? (- 0 $-q) $q) + (equal? (- $x 0) $x) + (equal? (- $-x 0) $-x) + (equal? (- 0 $x) $-x) + (equal? (- 0 $-x) $x) + (equal? (- $ez 0) $ez) + (equal? (- $-ez 0) $-ez) + (equal? (- 0 $ez) $-ez) + (equal? (- 0 $-ez) $ez) + (equal? (- $iz 0) $iz) + (equal? (- $-iz 0) $-iz) + (equal? (- 0 $iz) $-iz) + (equal? (- 0 $-iz) $iz) + (equal? (- 0 (most-negative-fixnum)) (+ (most-positive-fixnum) 1)) +) + +(mat benchmarks + (let () + ; revert to the original values for benchmarking + (define runs 1 #;10) + (define iter 1 #;100000) + (define min-ns 0 #;#e25e7) + + (define time->ns + (lambda (t) + (+ (* (time-second t) 1000000000) (time-nanosecond t)))) + + (define mean + (lambda (ls) + (assert (not (null? ls))) + (/ (apply + ls) (length ls)))) + + (define stddev + (lambda (m ls) + (define (square x) (* x x)) + (sqrt (mean (map (lambda (x) (square (- x m))) ls))))) + + (define ($run-one expr th expected) + (define (do-big-iter) + (collect 0 0) + (let ([t0 (current-time 'time-monotonic)]) + (do ([iter iter (#3%fx- iter 1)] [ans #f (th)]) + ((#3%fx= iter 0) + (let ([t (time-difference t0 (current-time 'time-monotonic))]) + (unless (equal? ans expected) (errorf #f "oops ~s != ~s for ~s" ans expected expr)) + t))))) + (parameterize ([collect-request-handler void]) + (collect (collect-maximum-generation)) + ; warm up and calibrate number of ITERATIONS to at least meet min-ns + (let ([ITER (let loop ([ITER 1] [t (make-time 'time-duration 0 0)]) + (let ([t (time-difference t (do-big-iter))]) + (if (>= (time->ns t) min-ns) + ITER + (loop (fx+ ITER 1) t))))]) + (do ([run runs (#3%fx- run 1)] + [t* '() (cons + (let loop ([ITER ITER] [t (make-time 'time-duration 0 0)]) + (do ([ITER ITER (#3%fx- ITER 1)] + [t (make-time 'time-duration 0 0) (time-difference t (do-big-iter))]) + ((#3%fx= ITER 0) t))) + t*)]) + ((#3%fx= run 0) + (let ([ns* (map time->ns (reverse t*))]) + (let ([m (mean ns*)]) + (printf "~s\n" (vector expr (/ m ITER) (if (= m 0) 0 (/ (stddev m ns*) m)) ITER)) + (flush-output-port)))))))) + + (let () + (define (run sra) + (define-syntax run-one + (lambda (x) + (define prettify + (lambda (x) + (let-values ([(neg? x) (if (< x 0) (values #t (- x)) (values #f x))]) + (let ([s (format "~{~a~^+~}" + (let loop ([x x] [k 0] [ls '()]) + (let ([b (bitwise-first-bit-set x)]) + (if (= b -1) + ls + (let ([k (+ k b)]) + (loop (bitwise-arithmetic-shift-right x (fx+ b 1)) (fx+ k 1) + (cons (if (= k 0) "1" (format "2^~a" k)) ls)))))))]) + (if neg? (format "-(~a)" s) s))))) + (syntax-case x () + [(_ sra x k expected) + (with-syntax ([n (eval (datum x))]) + (with-syntax ([expr (format "(sra ~a ~s)" (prettify (datum n)) (datum k))]) + #'($run-one expr (lambda () (sra n k)) expected)))]))) + (printf "((iter . ~s) (min-ns . ~s))\n" iter min-ns) + (printf "(\n") + (run-one sra 1 1 0) + (run-one sra (ash 1 1024) 1024 1) + (run-one sra (ash 1 1024) 512 (ash 1 512)) + (run-one sra (- (ash 1 1024)) 1024 -1) + (run-one sra (- (ash 1 1024)) 512 (- (ash 1 512))) + (run-one sra (+ (ash 1 1024) 1) 1024 1) + (run-one sra (+ (ash 1 1024) 1) 512 (ash 1 512)) + (run-one sra (- (+ (ash 1 1024) 1)) 1024 -2) + (run-one sra (- (+ (ash 1 1024) 1)) 512 (- -1 (ash 1 512))) + (run-one sra (- (ash 1 1024)) 1024 -1) + (run-one sra (- (ash 1 1024)) 512 (- (ash 1 512))) + (run-one sra (ash 1 1024) 1025 0) + (run-one sra (- (ash 1 1024)) 1025 -1) + (run-one sra (ash 3 1023) 1024 1) + (run-one sra (- (ash 3 1023)) 1024 -2) + (run-one sra (ash 3 1023) 1025 0) + (run-one sra (- (ash 3 1023)) 1025 -1) + (run-one sra (ash 1 1000000) 1000000 1) + (run-one sra (- (ash 1 1000000)) 1000000 -1) + (run-one sra (ash 1 1000000) 1000001 0) + (run-one sra (- (ash 1 1000000)) 1000001 -1) + (run-one sra (ash 3 1000000) 1000001 1) + (run-one sra (- (ash 3 1000000)) 1000001 -2) + (run-one sra (ash 3 1000000) 1000002 0) + (run-one sra (- (ash 3 1000000)) 1000002 -1) + ; worst-case---only shifted-off one bit is in the middle + (run-one sra (- (+ (ash 1 1024) (ash 1 512))) 1024 -2) + ; shift by one bit + (run-one sra (ash 3 1000000) 1 (ash 3 999999)) + (run-one sra (- (ash 3 1000000)) 1 (- (ash 3 999999))) + (printf ")\n")) + + (run bitwise-arithmetic-shift-right) + (run (lambda (x k) (bitwise-arithmetic-shift x (- k)))) + (run (lambda (x k) (ash x (- k))))) + + (let () + (define (run) + (define $x 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789) + (define $y (* (most-positive-fixnum) 2)) + (define-syntax run-one + (syntax-rules () + [(_ expr expected) + ($run-one 'expr (lambda () expr) expected)] + [(_ expr expected ...) + ($run-one 'expr (lambda () (call-with-values (lambda () expr) list)) (list expected ...))])) + (define $2x (* 2 $x)) + (define $x+2 (+ $x 2)) + (define $-x (- $x)) + (define $x^4 (* $x $x $x $x)) + (define $-x^4 (- $x^4)) + (define $2y (* $y 2)) + (define $y+2 (+ $y 2)) + (printf "((iter . ~s) (min-ns . ~s) ($x . ~s) ($y . ~s))\n" iter min-ns $x $y) + (printf "(\n") + (run-one 0 0) + (run-one (* $x 0) 0) + (run-one (* $x^4 0) 0) + (run-one (* $x 1) $x) + (run-one (* $x^4 1) $x^4) + (run-one (* $x -1) $-x) + (run-one (* $x^4 -1) $-x^4) + (run-one (* 1 $x) $x) + (run-one (* 1 $x^4) $x^4) + (run-one (* -1 $x) $-x) + (run-one (* -1 $x^4) $-x^4) + (run-one (/ $x 1) $x) + (run-one (/ $x^4 1) $x^4) + (run-one (/ $x -1) $-x) + (run-one (/ $x^4 -1) $-x^4) + (run-one (+ $x 0) $x) + (run-one (+ $x^4 0) $x^4) + (run-one (- $x 0) $x) + (run-one (- $x^4 0) $x^4) + (run-one (+ 0 $x) $x) + (run-one (+ 0 $x^4) $x^4) + (run-one (- 0 $x) $-x) + (run-one (- 0 $x^4) $-x^4) + (run-one (quotient $x 1) $x) + (run-one (quotient $x^4 1) $x^4) + (run-one (quotient $x -1) $-x) + (run-one (remainder $x 1) 0) + (run-one (remainder $x^4 1) 0) + (run-one (remainder $x -1) 0) + (run-one (div-and-mod $x 1) $x 0) + (run-one (div-and-mod $x^4 1) $x^4 0) + (run-one (div-and-mod $x -1) $-x 0) + (run-one (div0-and-mod0 $x 1) $x 0) + (run-one (div0-and-mod0 $x^4 1) $x^4 0) + (run-one (div0-and-mod0 $x -1) $-x 0) + (run-one (div $x 1) $x) + (run-one (div $x^4 1) $x^4) + (run-one (div $x -1) $-x) + (run-one (div0 $x 1) $x) + (run-one (div0 $x^4 1) $x^4) + (run-one (div0 $x -1) $-x) + (run-one (mod $x 1) 0) + (run-one (mod $x^4 1) 0) + (run-one (mod $x -1) 0) + (run-one (mod0 $x 1) 0) + (run-one (mod0 $x^4 1) 0) + (run-one (mod0 $x -1) 0) + ; these should not improve and we hope not slow down measurably + (run-one (* $y 2) $2y) + (run-one (/ $2y 2) $y) + (run-one (+ $y 2) $y+2) + (run-one (- $y -2) $y+2) + (run-one (quotient $y 2) (ash $y -1)) + (run-one (remainder $y 2) (logand $y 1)) + (run-one (div-and-mod $2y 2) $y 0) + (run-one (div0-and-mod0 $2y 2) $y 0) + (run-one (div $2y 2) $y) + (run-one (div0 $2y 2) $y) + (run-one (mod $2y 2) 0) + (run-one (mod0 $2y 2) 0) + (printf ")\n")) + + (run)) + + ; use with --program to compare results + #;(top-level-program + (import (chezscheme)) + + (unless (= (length (command-line-arguments)) 3) + (fprintf (current-error-port) "usage: ~a: \n" (car (command-line))) + (exit 1)) + + (let ([reportfn (car (command-line-arguments))] + [beforefn (cadr (command-line-arguments))] + [afterfn (caddr (command-line-arguments))]) + (let-values ([(before-info before) (with-input-from-file beforefn (lambda () (let ([info (read)]) (values info (read)))))] + [(after-info after) (with-input-from-file afterfn (lambda () (let ([info (read)]) (values info (read)))))]) + (with-output-to-file reportfn + (lambda () + (unless (equal? before-info after-info) (errorf #f "before info ~s and after info ~s differ" before-info after-info)) + (let ([iter (cond [(assq 'iter before-info) => cdr] [else (errorf #f "expected to find binding for iter in info\n")])]) + (printf "Results ~a\n" (machine-type)) + (printf "

~{~a~^
~}

" (map (lambda (a) (format "~s = ~s" (car a) (cdr a))) before-info)) + (printf "\n" iter iter) + (for-each + (lambda (before after) + (define EXPR 0) + (define MEAN-NS 1) + (define STDDEV 2) + (define ITER 3) + (for-each + (lambda (i) + (unless (equal? (vector-ref before i) (vector-ref after i)) + (errorf #f "comparing apples to oranges: ~s, ~s" before after))) + (list EXPR)) + (printf "\n" + (vector-ref before EXPR) + (* (/ (- (vector-ref before MEAN-NS) (vector-ref after MEAN-NS)) (vector-ref before MEAN-NS)) 100) + (vector-ref before STDDEV) + (vector-ref after STDDEV) + (/ (vector-ref before MEAN-NS) (expt 10 9)) + (/ (vector-ref after MEAN-NS) (expt 10 9)) + (vector-ref before ITER) + (vector-ref after ITER) + )) + before + after) + (printf "
expressionspeedupbefore stddevafter stddevbefore time (x~s)after time (x~s)before iterationsafter iterations
~a~5,2f%~7,4f%~7,4f%~10,8f~10,8f~s~s
\n"))) + 'replace)))) + #t) +) diff --git a/mats/7.ms b/mats/7.ms index e4da055d9c..076944170b 100644 --- a/mats/7.ms +++ b/mats/7.ms @@ -2314,6 +2314,228 @@ evaluating module init (error? ; invoke cycle (separate-eval '(load-program "testfile-wpo-b9-all.so"))) + + (begin + (mkfile "testfile-wpo-a10.ss" + '(library (testfile-wpo-a10) + (export ax) + (import (chezscheme)) + (define ax (cons 'a '())))) + (mkfile "testfile-wpo-b10.ss" + '(library (testfile-wpo-b10) + (export bx) + (import (chezscheme) (testfile-wpo-a10)) + (define bx (cons 'b ax)))) + (mkfile "testfile-wpo-c10.ss" + '(library (testfile-wpo-c10) + (export cx) + (import (chezscheme) (testfile-wpo-b10)) + (define cx (cons 'c bx)))) + (mkfile "testfile-wpo-d10.ss" + '(import (chezscheme) (testfile-wpo-c10)) + '(printf "d: cx = ~s\n" cx)) + (mkfile "testfile-wpo-e10.ss" + '(import (chezscheme) (testfile-wpo-a10)) + '(printf "e: ax = ~s\n" ax)) + (mkfile "testfile-wpo-f10.ss" + '(import (chezscheme) (testfile-wpo-c10)) + '(printf "f: cx = ~s\n" cx)) + (separate-compile + '(lambda (x) + (parameterize ([generate-wpo-files #t] + [compile-imported-libraries #t]) + (compile-program x))) + 'wpo-d10) + (separate-compile 'compile-program 'wpo-e10) + (separate-compile 'compile-program 'wpo-f10) + #t) + + ; cause b10 to be excluded from the whole program + (delete-file "testfile-wpo-b10.wpo") + + (equal? + (separate-eval + '(compile-whole-program "testfile-wpo-d10.wpo" + "testfile-wpo-d10-all.so" #f)) + "((testfile-wpo-b10))\n") + + (equal? + (separate-eval '(verify-loadability 'visit "testfile-wpo-d10-all.so")) + "") + + (equal? + (separate-eval '(verify-loadability 'revisit "testfile-wpo-d10-all.so")) + "") + + (equal? + (separate-eval '(verify-loadability 'load "testfile-wpo-d10-all.so")) + "") + + (equal? + (separate-eval '(load-program "testfile-wpo-d10-all.so")) + "d: cx = (c b a)\n") + + ; library a10 must be visible for (excluded library) + ; b10's benefit, so e10 can reference its export + (equal? + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(load-program "testfile-wpo-e10.so")) + "d: cx = (c b a)\ne: ax = (a)\n") + + ; library c10 need not and should not be visible, so f10 + ; shouldn't be able to reference its export. + (error? + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(load-program "testfile-wpo-f10.so"))) + + (error? ; testfile-wpo-c10 is not visible + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(import (testfile-wpo-c10)))) + + (equal? + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(verify-loadability 'visit "testfile-wpo-f10.so")) + "d: cx = (c b a)\n") + + ; verify-loadability should error out trying to invoke + ; c10 because c10 is not visible + (error? ; not visible + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(verify-loadability 'revisit "testfile-wpo-f10.so"))) + + (error? ; not visible + (separate-eval + '(load-program "testfile-wpo-d10-all.so") + '(verify-loadability 'load "testfile-wpo-f10.so"))) + + (begin + (mkfile "testfile-wpo-a11.ss" + '(library (testfile-wpo-a11) + (export ax) + (import (chezscheme)) + (define ax (cons 'a '())) + (printf "invoking a\n"))) + (parameterize ([generate-wpo-files #t]) + (compile-library "testfile-wpo-a11")) + #t) + + (equal? + (compile-whole-library "testfile-wpo-a11.wpo" "testfile-wpo-a11-all.so") + '()) + + (equal? + (separate-eval + '(load-library "testfile-wpo-a11.so")) + "") + + (equal? + (separate-eval + '(load-library "testfile-wpo-a11.so") + '(let () (import (testfile-wpo-a11)) ax)) + "invoking a\n(a)\n") + + (equal? + (separate-eval + '(load-library "testfile-wpo-a11-all.so")) + "") + + (equal? + (separate-eval + '(load-library "testfile-wpo-a11-all.so") + '(let () (import (testfile-wpo-a11)) ax)) + "invoking a\n(a)\n") + + (begin + (mkfile "testfile-wpo-a12.ss" + '(library (testfile-wpo-a12) + (export ax) + (import (chezscheme)) + (define ax (cons 'a '())))) + (mkfile "testfile-wpo-b12.ss" + '(library (testfile-wpo-b12) + (export bx) + (import (chezscheme) (testfile-wpo-a12)) + (define bx (eval 'cx (environment '(testfile-wpo-c12)))))) + (mkfile "testfile-wpo-c12.ss" + '(library (testfile-wpo-c12) + (export cx) + (import (chezscheme) (testfile-wpo-b12)) + (define cx (cons 'c bx)))) + (mkfile "testfile-wpo-d12.ss" + '(import (chezscheme) (testfile-wpo-c12)) + '(printf "d: cx = ~s\n" cx)) + (parameterize ([generate-wpo-files #t] + [compile-imported-libraries #t]) + (compile-program "testfile-wpo-d12")) + #t) + + (error? ; cyclc + (separate-eval '(load-program "testfile-wpo-d12.so"))) + + ; cause b12 to be excluded from the whole library and program + (delete-file "testfile-wpo-b12.wpo") + + (equal? + (separate-eval + '(compile-whole-library "testfile-wpo-c12.wpo" + "testfile-wpo-c12-all.so")) + "((testfile-wpo-b12))\n") + + (equal? + (separate-eval + '(compile-whole-program "testfile-wpo-d12.wpo" + "testfile-wpo-d12-all.so" #t)) + "((testfile-wpo-b12))\n") + + (equal? + (separate-eval + '(load-library "testfile-wpo-c12-all.so")) + "") + + (error? ; cycle + (separate-eval + '(load-library "testfile-wpo-c12-all.so") + '(let () (import (testfile-wpo-c12)) cx))) + + (error? ; cycle + (separate-eval '(load-program "testfile-wpo-d12-all.so"))) + + ; verify-loadability doesn't catch (dynamic) cycles + (equal? + (separate-eval + '(verify-loadability 'visit "testfile-wpo-c12.so")) + "") + + (equal? + (separate-eval + '(verify-loadability 'revisit "testfile-wpo-c12.so")) + "") + + (equal? + (separate-eval + '(verify-loadability 'load "testfile-wpo-c12.so")) + "") + + ; verify-loadability doesn't catch (dynamic) cycles + (equal? + (separate-eval + '(verify-loadability 'visit "testfile-wpo-d12.so")) + "") + + (equal? + (separate-eval + '(verify-loadability 'revisit "testfile-wpo-d12.so")) + "") + + (equal? + (separate-eval + '(verify-loadability 'load "testfile-wpo-d12.so")) + "") ) (mat compile-whole-library diff --git a/mats/8.ms b/mats/8.ms index 8fac7e887f..25f3fdea10 100644 --- a/mats/8.ms +++ b/mats/8.ms @@ -9132,8 +9132,82 @@ (string-append "123\n" "123\n" - "Exception in visit: library (testfile-lr-l4) is not visible\n" - "Exception in visit: library (testfile-lr-l4) is not visible\n")))) + "Exception in environment: attempt to import invisible library (testfile-lr-l4)\n" + "Exception in environment: attempt to import invisible library (testfile-lr-l4)\n")))) + +(mat invoke-library + (error? ; invalid library reference + (invoke-library '(testfile-il1 (<= 3)))) + (error? ; invalid library reference + (invoke-library '(testfile-il1 (what?)))) + (error? ; invalid library reference + (invoke-library '())) + (error? ; invalid library reference + (invoke-library 'hello)) + (error? ; invalid library reference + (invoke-library '(3 2 1))) + (begin + (mkfile "testfile-il1.ss" + '(library (testfile-il1 (2)) (export a) (import (chezscheme)) (define a 3) (printf "invoked (testfile-il1)\n"))) + #t) + (equal? + (separate-eval + '(let () (import (testfile-il1)) a)) + "invoked (testfile-il1)\n3\n") + (equal? + (separate-eval + '(invoke-library '(testfile-il1))) + "invoked (testfile-il1)\n") + (equal? + (separate-eval + '(invoke-library '(testfile-il1)) + '(printf "hello\n") + '(let () (import (testfile-il1)) a)) + "invoked (testfile-il1)\nhello\n3\n") + (equal? + (separate-eval + '(let () (import (testfile-il1)) a) + '(printf "hello\n") + '(invoke-library '(testfile-il1))) + "invoked (testfile-il1)\n3\nhello\n") + (begin + (separate-eval '(compile-library "testfile-il1")) + #t) + (delete-file "testfile-il1.ss") + (equal? + (separate-eval + '(let () (import (testfile-il1)) a)) + "invoked (testfile-il1)\n3\n") + (equal? + (separate-eval + '(invoke-library '(testfile-il1))) + "invoked (testfile-il1)\n") + (equal? + (separate-eval + '(invoke-library '(testfile-il1)) + '(printf "hello\n") + '(let () (import (testfile-il1)) a)) + "invoked (testfile-il1)\nhello\n3\n") + (equal? + (separate-eval + '(let () (import (testfile-il1)) a) + '(printf "hello\n") + '(invoke-library '(testfile-il1))) + "invoked (testfile-il1)\n3\nhello\n") + (error? ; version mismatch + (separate-eval '(invoke-library '(testfile-il1 (3))))) + (error? ; version mismatch + (separate-eval + '(invoke-library '(testfile-il1 ((>= 3)))))) + (equal? + (separate-eval + '(invoke-library '(testfile-il1 ((>= 2))))) + "invoked (testfile-il1)\n") + (equal? + (separate-eval + '(invoke-library '(testfile-il1 (2)))) + "invoked (testfile-il1)\n") +) (mat cross-library-optimization (begin diff --git a/mats/Mf-base b/mats/Mf-base index 0aee37026e..c335aaae41 100644 --- a/mats/Mf-base +++ b/mats/Mf-base @@ -406,6 +406,7 @@ foreign.mo ${objdir}/foreign.mo: ${fobj} thread.mo ${objdir}/thread.mo: ${fobj} examples.mo ${objdir}/examples.mo: m4test.in m4test.out freq.in freq.out build-examples 6.mo ${objdir}/6.mo: prettytest.ss +bytevector.mo ${objdir}/bytevector.mo: prettytest.ss io.mo ${objdir}/io.mo: prettytest.ss unix.mo ${objdir}/unix.mo io.mo ${objdir}/io.mo 6.mo ${objdir}/6.mo: cat_flush oop.mo ${objdir}/oop.mo: oop.ss diff --git a/mats/bytevector.ms b/mats/bytevector.ms index e018ef2592..ea574b7610 100644 --- a/mats/bytevector.ms +++ b/mats/bytevector.ms @@ -11275,9 +11275,8 @@ (number? (bytevector-ieee-double-native-ref immutable-100-bytevector 0)) ) - (mat bytevector-compress - (parameters [compress-format 'gzip 'lz4]) + (parameters [compress-format 'gzip 'lz4] [compress-level 'minimum 'low 'medium 'high 'maximum]) (error? (bytevector-compress 7)) (error? (bytevector-compress "hello")) (error? (bytevector-uncompress 7)) diff --git a/mats/patch-compile-0-f-t-f b/mats/patch-compile-0-f-t-f index 5fe032f3c2..d48e8c4c9c 100644 --- a/mats/patch-compile-0-f-t-f +++ b/mats/patch-compile-0-f-t-f @@ -1,5 +1,5 @@ -*** errors-compile-0-f-f-f 2020-01-21 14:14:21.000000000 -0800 ---- errors-compile-0-f-t-f 2020-01-21 13:41:38.000000000 -0800 +*** errors-compile-0-f-f-f 2020-02-11 17:27:14.000000000 -0800 +--- errors-compile-0-f-t-f 2020-02-11 16:54:20.000000000 -0800 *************** *** 178,184 **** 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". @@ -58,7 +58,7 @@ 3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17". 3.mo:Expected error in mat mrvs: "returned two values to single value return context". *************** -*** 3794,3800 **** +*** 3873,3879 **** misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -66,7 +66,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". ---- 3794,3800 ---- +--- 3873,3879 ---- misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -75,7 +75,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". *************** -*** 7288,7295 **** +*** 7378,7385 **** 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -84,7 +84,7 @@ record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float". record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". ---- 7288,7295 ---- +--- 7378,7385 ---- 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -94,7 +94,7 @@ record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". *************** -*** 7297,7311 **** +*** 7387,7401 **** record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -110,7 +110,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid input #f". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". ---- 7297,7311 ---- +--- 7387,7401 ---- record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -127,7 +127,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". *************** -*** 7318,7343 **** +*** 7408,7433 **** record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -154,7 +154,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". ---- 7318,7343 ---- +--- 7408,7433 ---- record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -182,7 +182,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". *************** -*** 7468,7506 **** +*** 7558,7596 **** record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -222,7 +222,7 @@ record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor". record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". ---- 7468,7506 ---- +--- 7558,7596 ---- record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -263,7 +263,7 @@ record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". *************** -*** 7515,7571 **** +*** 7605,7661 **** record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". @@ -321,7 +321,7 @@ record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat". ---- 7515,7571 ---- +--- 7605,7661 ---- record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". diff --git a/mats/patch-compile-0-t-f-f b/mats/patch-compile-0-t-f-f index 585f89b073..d00f8155b5 100644 --- a/mats/patch-compile-0-t-f-f +++ b/mats/patch-compile-0-t-f-f @@ -1,5 +1,5 @@ -*** errors-compile-0-f-f-f 2020-01-21 14:14:21.000000000 -0800 ---- errors-compile-0-t-f-f 2020-01-21 13:49:14.000000000 -0800 +*** errors-compile-0-f-f-f 2020-02-11 17:27:14.000000000 -0800 +--- errors-compile-0-t-f-f 2020-02-11 17:02:13.000000000 -0800 *************** *** 146,152 **** 3.mo:Expected error in mat case-lambda: "incorrect number of arguments to #". @@ -1332,10 +1332,10 @@ 5_3.mo:Expected error in mat real->flonum: "real->flonum: 3+4i is not a real number". 5_3.mo:Expected error in mat div-and-mod: "div-and-mod: undefined for 0". *************** -*** 1724,1884 **** - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for 0". - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for a". - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for (a)". +*** 1803,1963 **** + 5_3.mo:Expected error in mat special-cases: "+: bogus is not a number". + 5_3.mo:Expected error in mat special-cases: "-: bogus is not a number". + 5_3.mo:Expected error in mat special-cases: "-: bogus is not a number". ! 5_4.mo:Expected error in mat char=?/char-ci=?: "incorrect argument count in call (char=?)". 5_4.mo:Expected error in mat char=?/char-ci=?: "char=?: a is not a character". 5_4.mo:Expected error in mat char=?/char-ci=?: "char=?: a is not a character". @@ -1494,10 +1494,10 @@ 5_4.mo:Expected error in mat integer->char: "integer->char: a is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #f is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #\a is not a valid unicode scalar value". ---- 1724,1884 ---- - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for 0". - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for a". - 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for (a)". +--- 1803,1963 ---- + 5_3.mo:Expected error in mat special-cases: "+: bogus is not a number". + 5_3.mo:Expected error in mat special-cases: "-: bogus is not a number". + 5_3.mo:Expected error in mat special-cases: "-: bogus is not a number". ! 5_4.mo:Expected error in mat char=?/char-ci=?: "incorrect number of arguments to #". 5_4.mo:Expected error in mat char=?/char-ci=?: "char=?: a is not a character". 5_4.mo:Expected error in mat char=?/char-ci=?: "char=?: a is not a character". @@ -1657,7 +1657,7 @@ 5_4.mo:Expected error in mat integer->char: "integer->char: #f is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #\a is not a valid unicode scalar value". *************** -*** 1897,1909 **** +*** 1976,1988 **** 5_4.mo:Expected error in mat integer->char: "integer->char: 1114112 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: 1179648 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: is not a valid unicode scalar value". @@ -1671,7 +1671,7 @@ 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". ---- 1897,1909 ---- +--- 1976,1988 ---- 5_4.mo:Expected error in mat integer->char: "integer->char: 1114112 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: 1179648 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: is not a valid unicode scalar value". @@ -1686,7 +1686,7 @@ 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". *************** -*** 1918,2063 **** +*** 1997,2142 **** 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "" and "x" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". @@ -1833,7 +1833,7 @@ 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". ---- 1918,2063 ---- +--- 1997,2142 ---- 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "" and "x" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". @@ -1981,7 +1981,7 @@ 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". *************** -*** 2065,2103 **** +*** 2144,2182 **** 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". @@ -2021,7 +2021,7 @@ 5_5.mo:Expected error in mat string-copy!: "string-copy!: 0 is not a string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: invalid start value -1". ---- 2065,2103 ---- +--- 2144,2182 ---- 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". @@ -2062,7 +2062,7 @@ 5_5.mo:Expected error in mat string-copy!: "string-copy!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: invalid start value -1". *************** -*** 2121,2129 **** +*** 2200,2208 **** 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 4 + count 1 is beyond the end of "1234"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 0 + count 500 is beyond the end of "abcdefghi"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 500 + count 0 is beyond the end of "abcdefghi"". @@ -2072,7 +2072,7 @@ 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: 0 is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: invalid new length -1 for "abcdefghi"". ---- 2121,2129 ---- +--- 2200,2208 ---- 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 4 + count 1 is beyond the end of "1234"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 0 + count 500 is beyond the end of "abcdefghi"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 500 + count 0 is beyond the end of "abcdefghi"". @@ -2083,7 +2083,7 @@ 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: invalid new length -1 for "abcdefghi"". *************** -*** 2135,2187 **** +*** 2214,2266 **** 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-copy: a is not a string". @@ -2137,7 +2137,7 @@ bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: is not a valid bytevector length". ---- 2135,2187 ---- +--- 2214,2266 ---- 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-copy: a is not a string". @@ -2192,7 +2192,7 @@ bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: is not a valid bytevector length". *************** -*** 2198,2227 **** +*** 2277,2306 **** bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value -500". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 1e100". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000". @@ -2223,7 +2223,7 @@ bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: 3 is not a valid index for #vu8(3 4 5)". ---- 2198,2227 ---- +--- 2277,2306 ---- bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value -500". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 1e100". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000". @@ -2255,7 +2255,7 @@ bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: 3 is not a valid index for #vu8(3 4 5)". *************** -*** 2230,2239 **** +*** 2309,2318 **** bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value -129". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value 128". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value d". @@ -2266,7 +2266,7 @@ bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: 3 is not a valid index for #vu8(3 4 5)". ---- 2230,2239 ---- +--- 2309,2318 ---- bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value -129". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value 128". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value d". @@ -2278,7 +2278,7 @@ bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: 3 is not a valid index for #vu8(3 4 5)". *************** -*** 2242,2250 **** +*** 2321,2329 **** bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value 256". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value d". @@ -2288,7 +2288,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2242,2250 ---- +--- 2321,2329 ---- bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value 256". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value d". @@ -2299,7 +2299,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2252,2260 **** +*** 2331,2339 **** bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2309,7 +2309,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2252,2260 ---- +--- 2331,2339 ---- bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2320,7 +2320,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2262,2271 **** +*** 2341,2350 **** bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2331,7 +2331,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2262,2271 ---- +--- 2341,2350 ---- bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2343,7 +2343,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2279,2288 **** +*** 2358,2367 **** bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value 32768". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value -32769". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value "hello"". @@ -2354,7 +2354,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2279,2288 ---- +--- 2358,2367 ---- bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value 32768". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value -32769". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value "hello"". @@ -2366,7 +2366,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2296,2304 **** +*** 2375,2383 **** bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value 65536". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value "hello"". @@ -2376,7 +2376,7 @@ bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2296,2304 ---- +--- 2375,2383 ---- bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value 65536". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value "hello"". @@ -2387,7 +2387,7 @@ bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2308,2316 **** +*** 2387,2395 **** bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness #t". @@ -2397,7 +2397,7 @@ bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2308,2316 ---- +--- 2387,2395 ---- bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness #t". @@ -2408,7 +2408,7 @@ bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2320,2329 **** +*** 2399,2408 **** bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness #t". @@ -2419,7 +2419,7 @@ bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2320,2329 ---- +--- 2399,2408 ---- bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness #t". @@ -2431,7 +2431,7 @@ bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2339,2348 **** +*** 2418,2427 **** bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness #t". @@ -2442,7 +2442,7 @@ bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2339,2348 ---- +--- 2418,2427 ---- bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness #t". @@ -2454,7 +2454,7 @@ bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2358,2367 **** +*** 2437,2446 **** bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness #t". @@ -2465,7 +2465,7 @@ bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2358,2367 ---- +--- 2437,2446 ---- bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness #t". @@ -2477,7 +2477,7 @@ bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2371,2380 **** +*** 2450,2459 **** bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness #t". @@ -2488,7 +2488,7 @@ bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2371,2380 ---- +--- 2450,2459 ---- bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness #t". @@ -2500,7 +2500,7 @@ bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2384,2394 **** +*** 2463,2473 **** bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness #t". @@ -2512,7 +2512,7 @@ bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2384,2394 ---- +--- 2463,2473 ---- bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness #t". @@ -2525,7 +2525,7 @@ bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2402,2412 **** +*** 2481,2491 **** bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2537,7 +2537,7 @@ bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2402,2412 ---- +--- 2481,2491 ---- bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2550,7 +2550,7 @@ bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2420,2428 **** +*** 2499,2507 **** bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2560,7 +2560,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2420,2428 ---- +--- 2499,2507 ---- bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2571,7 +2571,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2434,2442 **** +*** 2513,2521 **** bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2581,7 +2581,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2434,2442 ---- +--- 2513,2521 ---- bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2592,7 +2592,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2448,2457 **** +*** 2527,2536 **** bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2603,7 +2603,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2448,2457 ---- +--- 2527,2536 ---- bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2615,7 +2615,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2478,2487 **** +*** 2557,2566 **** bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value "hello"". @@ -2626,7 +2626,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2478,2487 ---- +--- 2557,2566 ---- bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value "hello"". @@ -2638,7 +2638,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2508,2517 **** +*** 2587,2596 **** bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value "hello"". @@ -2649,7 +2649,7 @@ bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2508,2517 ---- +--- 2587,2596 ---- bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value "hello"". @@ -2661,7 +2661,7 @@ bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2521,2530 **** +*** 2600,2609 **** bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness #t". @@ -2672,7 +2672,7 @@ bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2521,2530 ---- +--- 2600,2609 ---- bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness #t". @@ -2684,7 +2684,7 @@ bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2534,2544 **** +*** 2613,2623 **** bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness #t". @@ -2696,7 +2696,7 @@ bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2534,2544 ---- +--- 2613,2623 ---- bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness #t". @@ -2709,7 +2709,7 @@ bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2553,2563 **** +*** 2632,2642 **** bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2721,7 +2721,7 @@ bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2553,2563 ---- +--- 2632,2642 ---- bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2734,7 +2734,7 @@ bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2572,2581 **** +*** 2651,2660 **** bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2745,7 +2745,7 @@ bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2572,2581 ---- +--- 2651,2660 ---- bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2757,7 +2757,7 @@ bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2585,2594 **** +*** 2664,2673 **** bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness #t". @@ -2768,7 +2768,7 @@ bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2585,2594 ---- +--- 2664,2673 ---- bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness #t". @@ -2780,7 +2780,7 @@ bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2598,2608 **** +*** 2677,2687 **** bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness #t". @@ -2792,7 +2792,7 @@ bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2598,2608 ---- +--- 2677,2687 ---- bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness #t". @@ -2805,7 +2805,7 @@ bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2616,2626 **** +*** 2695,2705 **** bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2817,7 +2817,7 @@ bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2616,2626 ---- +--- 2695,2705 ---- bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2830,7 +2830,7 @@ bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2634,2643 **** +*** 2713,2722 **** bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2841,7 +2841,7 @@ bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2634,2643 ---- +--- 2713,2722 ---- bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2853,7 +2853,7 @@ bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2647,2656 **** +*** 2726,2735 **** bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness #t". @@ -2864,7 +2864,7 @@ bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2647,2656 ---- +--- 2726,2735 ---- bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness #t". @@ -2876,7 +2876,7 @@ bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2660,2670 **** +*** 2739,2749 **** bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness #t". @@ -2888,7 +2888,7 @@ bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2660,2670 ---- +--- 2739,2749 ---- bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness #t". @@ -2901,7 +2901,7 @@ bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2678,2688 **** +*** 2757,2767 **** bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2913,7 +2913,7 @@ bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2678,2688 ---- +--- 2757,2767 ---- bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2926,7 +2926,7 @@ bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2696,2705 **** +*** 2775,2784 **** bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2937,7 +2937,7 @@ bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2696,2705 ---- +--- 2775,2784 ---- bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2949,7 +2949,7 @@ bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2709,2718 **** +*** 2788,2797 **** bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness #t". @@ -2960,7 +2960,7 @@ bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2709,2718 ---- +--- 2788,2797 ---- bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness #t". @@ -2972,7 +2972,7 @@ bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2722,2732 **** +*** 2801,2811 **** bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness #t". @@ -2984,7 +2984,7 @@ bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2722,2732 ---- +--- 2801,2811 ---- bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness #t". @@ -2997,7 +2997,7 @@ bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2740,2750 **** +*** 2819,2829 **** bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3009,7 +3009,7 @@ bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2740,2750 ---- +--- 2819,2829 ---- bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3022,7 +3022,7 @@ bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2758,2766 **** +*** 2837,2845 **** bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3032,7 +3032,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2758,2766 ---- +--- 2837,2845 ---- bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3043,7 +3043,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2790,2798 **** +*** 2869,2877 **** bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3053,7 +3053,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2790,2798 ---- +--- 2869,2877 ---- bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3064,7 +3064,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2822,2831 **** +*** 2901,2910 **** bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3075,7 +3075,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2822,2831 ---- +--- 2901,2910 ---- bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3087,7 +3087,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2859,2868 **** +*** 2938,2947 **** bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value "hello"". @@ -3098,7 +3098,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2859,2868 ---- +--- 2938,2947 ---- bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value "hello"". @@ -3110,7 +3110,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2896,2905 **** +*** 2975,2984 **** bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value "hello"". @@ -3121,7 +3121,7 @@ bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2896,2905 ---- +--- 2975,2984 ---- bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value "hello"". @@ -3133,7 +3133,7 @@ bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2915,2924 **** +*** 2994,3003 **** bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness 1e23". @@ -3144,7 +3144,7 @@ bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2915,2924 ---- +--- 2994,3003 ---- bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness 1e23". @@ -3156,7 +3156,7 @@ bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2934,2944 **** +*** 3013,3023 **** bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness 1e23". @@ -3168,7 +3168,7 @@ bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2934,2944 ---- +--- 3013,3023 ---- bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness 1e23". @@ -3181,7 +3181,7 @@ bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2957,2967 **** +*** 3036,3046 **** bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #t". @@ -3193,7 +3193,7 @@ bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2957,2967 ---- +--- 3036,3046 ---- bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #t". @@ -3206,7 +3206,7 @@ bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2980,2988 **** +*** 3059,3067 **** bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #t". @@ -3216,7 +3216,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2980,2988 ---- +--- 3059,3067 ---- bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #t". @@ -3227,7 +3227,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3018,3026 **** +*** 3097,3105 **** bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 38 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 39 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3237,7 +3237,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3018,3026 ---- +--- 3097,3105 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 38 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 39 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3248,7 +3248,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3060,3069 **** +*** 3139,3148 **** bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 70 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 71 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3259,7 +3259,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3060,3069 ---- +--- 3139,3148 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 70 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 71 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3271,7 +3271,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3097,3106 **** +*** 3176,3185 **** bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: "oops" is not a real number". @@ -3282,7 +3282,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3097,3106 ---- +--- 3176,3185 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: "oops" is not a real number". @@ -3294,7 +3294,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3146,3155 **** +*** 3225,3234 **** bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: "oops" is not a real number". @@ -3305,7 +3305,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: invalid index -1 for bytevector #vu8(0 0 0 0 199 0 ...)". ---- 3146,3155 ---- +--- 3225,3234 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: "oops" is not a real number". @@ -3317,7 +3317,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: invalid index -1 for bytevector #vu8(0 0 0 0 199 0 ...)". *************** -*** 3161,3170 **** +*** 3240,3249 **** bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness 35". @@ -3328,7 +3328,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3161,3170 ---- +--- 3240,3249 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness 35". @@ -3340,7 +3340,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3180,3190 **** +*** 3259,3269 **** bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness 35". @@ -3352,7 +3352,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3180,3190 ---- +--- 3259,3269 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness 35". @@ -3365,7 +3365,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3201,3211 **** +*** 3280,3290 **** bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness #\newline". @@ -3377,7 +3377,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3201,3211 ---- +--- 3280,3290 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness #\newline". @@ -3390,7 +3390,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3226,3236 **** +*** 3305,3315 **** bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness #\newline". @@ -3402,7 +3402,7 @@ bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3226,3236 ---- +--- 3305,3315 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness #\newline". @@ -3415,7 +3415,7 @@ bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3265,3275 **** +*** 3344,3354 **** bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size byte". @@ -3427,7 +3427,7 @@ bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3265,3275 ---- +--- 3344,3354 ---- bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size byte". @@ -3440,7 +3440,7 @@ bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3307,3318 **** +*** 3386,3397 **** bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size for bytevector #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size byte". @@ -3453,7 +3453,7 @@ bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3307,3318 ---- +--- 3386,3397 ---- bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size for bytevector #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size byte". @@ -3467,7 +3467,7 @@ bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3371,3382 **** +*** 3450,3461 **** bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size byte". @@ -3480,7 +3480,7 @@ bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3371,3382 ---- +--- 3450,3461 ---- bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size byte". @@ -3494,7 +3494,7 @@ bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3435,3450 **** +*** 3514,3529 **** bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size byte". @@ -3511,7 +3511,7 @@ bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: 0 is not a bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: #(1 2 3) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: invalid start value -1". ---- 3435,3450 ---- +--- 3514,3529 ---- bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size byte". @@ -3529,7 +3529,7 @@ bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: #(1 2 3) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: invalid start value -1". *************** -*** 3468,3476 **** +*** 3547,3555 **** bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 4 + count 1 is beyond the end of #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 0 + count 500 is beyond the end of #vu8(255 254 253 252 251 250 ...)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 500 + count 0 is beyond the end of #vu8(255 254 253 252 251 250 ...)". @@ -3539,7 +3539,7 @@ bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: 0 is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: "abc" is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length -1 for #vu8(1 2 3 4 5 6 ...)". ---- 3468,3476 ---- +--- 3547,3555 ---- bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 4 + count 1 is beyond the end of #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 0 + count 500 is beyond the end of #vu8(255 254 253 252 251 250 ...)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 500 + count 0 is beyond the end of #vu8(255 254 253 252 251 250 ...)". @@ -3550,7 +3550,7 @@ bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: "abc" is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length -1 for #vu8(1 2 3 4 5 6 ...)". *************** -*** 3478,3518 **** +*** 3557,3597 **** bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length 1000 for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length a for #vu8(1 2 3 4 5 6 ...)". @@ -3592,7 +3592,7 @@ bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: (1 2 . 3) is not a proper list". ---- 3478,3518 ---- +--- 3557,3597 ---- bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length 1000 for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length a for #vu8(1 2 3 4 5 6 ...)". @@ -3635,7 +3635,7 @@ bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: (1 2 . 3) is not a proper list". *************** -*** 3551,3559 **** +*** 3630,3638 **** bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size "oops"". @@ -3645,7 +3645,7 @@ bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: (1 2 . 3) is not a proper list". ---- 3551,3559 ---- +--- 3630,3638 ---- bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size "oops"". @@ -3656,7 +3656,7 @@ bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: (1 2 . 3) is not a proper list". *************** -*** 3592,3600 **** +*** 3671,3679 **** bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size "oops"". @@ -3666,7 +3666,7 @@ bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: unrecognized endianness spam". ---- 3592,3600 ---- +--- 3671,3679 ---- bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size "oops"". @@ -3677,7 +3677,7 @@ bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: unrecognized endianness spam". *************** -*** 3614,3622 **** +*** 3693,3701 **** bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 50". @@ -3687,7 +3687,7 @@ bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: unrecognized endianness spam". ---- 3614,3622 ---- +--- 3693,3701 ---- bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 50". @@ -3698,7 +3698,7 @@ bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: unrecognized endianness spam". *************** -*** 3636,3644 **** +*** 3715,3723 **** bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 50". @@ -3708,7 +3708,7 @@ bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: a is not a bytevector". bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: "a" is not a bytevector". bytevector.mo:Expected error in mat tspl/csug-examples: "invalid endianness "spam"". ---- 3636,3644 ---- +--- 3715,3723 ---- bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 50". @@ -3719,7 +3719,7 @@ bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: "a" is not a bytevector". bytevector.mo:Expected error in mat tspl/csug-examples: "invalid endianness "spam"". *************** -*** 3688,3708 **** +*** 3767,3787 **** bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: invalid data in source bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: bytevector #vu8(255 255 255 255 255 255 ...) claims invalid uncompressed size ". profile.mo:Expected error in mat compile-profile: "compile-profile: invalid mode src [must be #f, #t, source, or block]". @@ -3741,7 +3741,7 @@ profile.mo:Expected error in mat compile-profile: "profile-dump-data: #t is not a string". profile.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump 17". profile.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump (17)". ---- 3688,3708 ---- +--- 3767,3787 ---- bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: invalid data in source bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: bytevector #vu8(255 255 255 255 255 255 ...) claims invalid uncompressed size ". profile.mo:Expected error in mat compile-profile: "compile-profile: invalid mode src [must be #f, #t, source, or block]". @@ -3764,7 +3764,7 @@ profile.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump 17". profile.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump (17)". *************** -*** 3724,3735 **** +*** 3803,3814 **** profile.mo:Expected error in mat profile-form: "profile subform is not a source object 3". misc.mo:Expected error in mat compiler1: "variable i-am-not-bound is not bound". misc.mo:Expected error in mat compiler1: "attempt to apply non-procedure oops". @@ -3777,7 +3777,7 @@ misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2) at line 3, char 19 of testfile.ss". misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2)". misc.mo:Expected error in mat compiler3: "variable goto is not bound". ---- 3724,3735 ---- +--- 3803,3814 ---- profile.mo:Expected error in mat profile-form: "profile subform is not a source object 3". misc.mo:Expected error in mat compiler1: "variable i-am-not-bound is not bound". misc.mo:Expected error in mat compiler1: "attempt to apply non-procedure oops". @@ -3791,7 +3791,7 @@ misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2)". misc.mo:Expected error in mat compiler3: "variable goto is not bound". *************** -*** 3817,3823 **** +*** 3896,3902 **** misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 4". @@ -3799,7 +3799,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: foo is not a cost center". misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". ---- 3817,3823 ---- +--- 3896,3902 ---- misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 4". @@ -3808,7 +3808,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". *************** -*** 3871,3878 **** +*** 3950,3957 **** misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3817,7 +3817,7 @@ misc.mo:Expected error in mat apropos: "variable $apropos-unbound1 is not bound". misc.mo:Expected error in mat apropos: "variable $apropos-unbound2 is not bound". misc.mo:Expected error in mat simplify-if: "textual-port?: a is not a port". ---- 3871,3878 ---- +--- 3950,3957 ---- misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3827,7 +3827,7 @@ misc.mo:Expected error in mat apropos: "variable $apropos-unbound2 is not bound". misc.mo:Expected error in mat simplify-if: "textual-port?: a is not a port". *************** -*** 3900,3908 **** +*** 3979,3987 **** cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition". cp0.mo:Expected error in mat cp0-regression: "apply: 0 is not a proper list". cp0.mo:Expected error in mat cp0-regression: "apply: 2 is not a proper list". @@ -3837,7 +3837,7 @@ cp0.mo:Expected error in mat expand-output: "expand-output: #t is not a textual output port or #f". cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". ---- 3900,3908 ---- +--- 3979,3987 ---- cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition". cp0.mo:Expected error in mat cp0-regression: "apply: 0 is not a proper list". cp0.mo:Expected error in mat cp0-regression: "apply: 2 is not a proper list". @@ -3848,7 +3848,7 @@ cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". *************** -*** 3966,3974 **** +*** 4045,4053 **** 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 . 3) is not a proper list". 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 3 2 3 2 ...) is circular". 5_6.mo:Expected error in mat fxvector->list: "fxvector->list: (a b c) is not an fxvector". @@ -3858,7 +3858,7 @@ 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". ---- 3966,3974 ---- +--- 4045,4053 ---- 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 . 3) is not a proper list". 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 3 2 3 2 ...) is circular". 5_6.mo:Expected error in mat fxvector->list: "fxvector->list: (a b c) is not an fxvector". @@ -3869,7 +3869,7 @@ 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". *************** -*** 3983,3991 **** +*** 4062,4070 **** 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". @@ -3879,7 +3879,7 @@ 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". ---- 3983,3991 ---- +--- 4062,4070 ---- 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". @@ -3890,7 +3890,7 @@ 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". *************** -*** 4000,4017 **** +*** 4079,4096 **** 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". @@ -3909,7 +3909,7 @@ 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: 3 is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: (1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: #(a b c) is not a procedure". ---- 4000,4017 ---- +--- 4079,4096 ---- 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". @@ -3929,7 +3929,7 @@ 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: (1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: #(a b c) is not a procedure". *************** -*** 4022,4030 **** +*** 4101,4109 **** 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". @@ -3939,7 +3939,7 @@ 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: 1 is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". ---- 4022,4030 ---- +--- 4101,4109 ---- 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". @@ -3950,7 +3950,7 @@ 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". *************** -*** 4053,4060 **** +*** 4132,4139 **** 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". @@ -3959,7 +3959,7 @@ 5_8.mo:Expected error in mat box-cas!: "box-cas!: 1 is not a mutable box". 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". ---- 4053,4060 ---- +--- 4132,4139 ---- 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". @@ -3969,7 +3969,7 @@ 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". *************** -*** 4092,4113 **** +*** 4171,4192 **** 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -3992,7 +3992,7 @@ 6.mo:Expected error in mat port-operations1: "open-input-output-file: furball is not a string". 6.mo:Expected error in mat port-operations1: "open-input-output-file: failed for /probably/not/a/good/path: no such file or directory". 6.mo:Expected error in mat port-operations1: "open-input-output-file: invalid option compressed". ---- 4092,4113 ---- +--- 4171,4192 ---- 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -4016,7 +4016,7 @@ 6.mo:Expected error in mat port-operations1: "open-input-output-file: failed for /probably/not/a/good/path: no such file or directory". 6.mo:Expected error in mat port-operations1: "open-input-output-file: invalid option compressed". *************** -*** 4116,4122 **** +*** 4195,4201 **** 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4024,7 +4024,7 @@ 6.mo:Expected error in mat port-operations1: "truncate-file: not permitted on closed port #". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". ---- 4116,4122 ---- +--- 4195,4201 ---- 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4033,7 +4033,7 @@ 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". *************** -*** 4133,4140 **** +*** 4212,4219 **** 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4042,7 +4042,7 @@ 6.mo:Expected error in mat pretty-print: "pretty-format: 3 is not a symbol". 6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)". 6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "~a~~~s" in call to format". ---- 4133,4140 ---- +--- 4212,4219 ---- 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4052,7 +4052,7 @@ 6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)". 6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "~a~~~s" in call to format". *************** -*** 6618,6649 **** +*** 6697,6728 **** io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4085,7 +4085,7 @@ io.mo:Expected error in mat port-operations1: "open-file-input/output-port: failed for /probably/not/a/good/path: no such file or directory". io.mo:Expected error in mat port-operations1: "invalid file option uncompressed". io.mo:Expected error in mat port-operations1: "invalid file option truncate". ---- 6618,6649 ---- +--- 6697,6728 ---- io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4119,7 +4119,7 @@ io.mo:Expected error in mat port-operations1: "invalid file option uncompressed". io.mo:Expected error in mat port-operations1: "invalid file option truncate". *************** -*** 6654,6660 **** +*** 6733,6739 **** io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4127,7 +4127,7 @@ io.mo:Expected error in mat port-operations1: "truncate-port: not permitted on closed port #". io.mo:Expected error in mat port-operations3: "file-port?: "not a port" is not a port". io.mo:Expected error in mat port-operations3: "port-file-descriptor: oops is not a port". ---- 6654,6660 ---- +--- 6733,6739 ---- io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4136,7 +4136,7 @@ io.mo:Expected error in mat port-operations3: "file-port?: "not a port" is not a port". io.mo:Expected error in mat port-operations3: "port-file-descriptor: oops is not a port". *************** -*** 6837,6849 **** +*** 6916,6928 **** io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4150,7 +4150,7 @@ io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: shoe is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 0 is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: -15 is not a positive fixnum". ---- 6837,6849 ---- +--- 6916,6928 ---- io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4165,7 +4165,7 @@ io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 0 is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: -15 is not a positive fixnum". *************** -*** 6869,6884 **** +*** 6948,6963 **** io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". io.mo:Expected error in mat compression: "port-file-compressed!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4182,7 +4182,7 @@ io.mo:Expected error in mat custom-binary-ports: "unget-u8: cannot unget 255 on #". io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". ---- 6869,6884 ---- +--- 6948,6963 ---- io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". io.mo:Expected error in mat compression: "port-file-compressed!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4200,7 +4200,7 @@ io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". *************** -*** 6950,6965 **** +*** 7029,7044 **** io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4217,7 +4217,7 @@ io.mo:Expected error in mat utf-16-codec: "utf-16-codec: invalid endianness #f". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". ---- 6950,6965 ---- +--- 7029,7044 ---- io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4235,26 +4235,26 @@ io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". *************** -*** 7131,7137 **** +*** 7210,7216 **** 7.mo:Expected error in mat eval-when: "invalid syntax visit-x". 7.mo:Expected error in mat eval-when: "invalid syntax revisit-x". 7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory". ! 7.mo:Expected error in mat compile-whole-program: "incorrect argument count in call (compile-whole-program "testfile-wpo-ab.wpo")". - 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in visit: library (testfile-wpo-lib) is not visible + 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in environment: attempt to import invisible library (testfile-wpo-lib) 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found ---- 7131,7137 ---- +--- 7210,7216 ---- 7.mo:Expected error in mat eval-when: "invalid syntax visit-x". 7.mo:Expected error in mat eval-when: "invalid syntax revisit-x". 7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory". ! 7.mo:Expected error in mat compile-whole-program: "incorrect number of arguments to #". - 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in visit: library (testfile-wpo-lib) is not visible + 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in environment: attempt to import invisible library (testfile-wpo-lib) 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found *************** -*** 7186,7212 **** - 7.mo:Expected error in mat verify-loadability: "verify-loadability: visiting "testfile-clK0.so" does not define compile-time information for (testfile-clK0)". - 7.mo:Expected error in mat verify-loadability: "separate-eval: Exception: loading testfile-clK0.so did not define library (testfile-clK0) +*** 7276,7302 **** + 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1A) + 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1B) 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol". ! 7.mo:Expected error in mat top-level-value-functions: "incorrect argument count in call (top-level-bound?)". 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: 45 is not a symbol". @@ -4280,9 +4280,9 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: hello is not an environment". 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". ---- 7186,7212 ---- - 7.mo:Expected error in mat verify-loadability: "verify-loadability: visiting "testfile-clK0.so" does not define compile-time information for (testfile-clK0)". - 7.mo:Expected error in mat verify-loadability: "separate-eval: Exception: loading testfile-clK0.so did not define library (testfile-clK0) +--- 7276,7302 ---- + 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1A) + 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1B) 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol". ! 7.mo:Expected error in mat top-level-value-functions: "incorrect number of arguments to #". 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: 45 is not a symbol". @@ -4309,7 +4309,7 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". *************** -*** 7611,7721 **** +*** 7701,7811 **** hash.mo:Expected error in mat old-hash-table: "hash-table-for-each: ((a . b)) is not an eq hashtable". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". @@ -4421,7 +4421,7 @@ hash.mo:Expected error in mat hashtable-arguments: "hashtable-ephemeron?: (hash . table) is not a hashtable". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". ---- 7611,7721 ---- +--- 7701,7811 ---- hash.mo:Expected error in mat old-hash-table: "hash-table-for-each: ((a . b)) is not an eq hashtable". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". @@ -4534,7 +4534,7 @@ hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". *************** -*** 7735,7841 **** +*** 7825,7931 **** hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4642,7 +4642,7 @@ hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument -1". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #t". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #f". ---- 7735,7841 ---- +--- 7825,7931 ---- hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4751,7 +4751,7 @@ hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #t". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #f". *************** -*** 7843,7858 **** +*** 7933,7948 **** hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -4768,7 +4768,7 @@ hash.mo:Expected error in mat hash-functions: "string-ci-hash: hello is not a string". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". ---- 7843,7858 ---- +--- 7933,7948 ---- hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -4786,7 +4786,7 @@ hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". *************** -*** 7968,7975 **** +*** 8058,8065 **** 8.mo:Expected error in mat with-syntax: "invalid syntax a". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". @@ -4795,7 +4795,7 @@ 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: improper list structure (a b . c)". 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: cyclic list structure (a b c b c b ...)". 8.mo:Expected error in mat syntax->list: "syntax->list: invalid argument #". ---- 7968,7975 ---- +--- 8058,8065 ---- 8.mo:Expected error in mat with-syntax: "invalid syntax a". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". @@ -4805,7 +4805,7 @@ 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: cyclic list structure (a b c b c b ...)". 8.mo:Expected error in mat syntax->list: "syntax->list: invalid argument #". *************** -*** 8579,8594 **** +*** 8676,8691 **** 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -4822,7 +4822,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: hello is not an environment". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". ---- 8579,8594 ---- +--- 8676,8691 ---- 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -4840,7 +4840,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". *************** -*** 8687,8709 **** +*** 8784,8806 **** fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -4864,7 +4864,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". ---- 8687,8709 ---- +--- 8784,8806 ---- fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -4889,7 +4889,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". *************** -*** 8735,8747 **** +*** 8832,8844 **** fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -4903,7 +4903,7 @@ fx.mo:Expected error in mat r6rs:fx*: "fx*: is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum". ---- 8735,8747 ---- +--- 8832,8844 ---- fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -4918,7 +4918,7 @@ fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum". *************** -*** 8791,8803 **** +*** 8888,8900 **** fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -4932,7 +4932,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: a is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". ---- 8791,8803 ---- +--- 8888,8900 ---- fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -4947,7 +4947,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". *************** -*** 8895,8904 **** +*** 8992,9001 **** fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -4958,7 +4958,7 @@ fx.mo:Expected error in mat fxbit-field: "fxbit-field: 35.0 is not a fixnum". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 5.0 is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 8.0 is not a valid end index". ---- 8895,8904 ---- +--- 8992,9001 ---- fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -4970,7 +4970,7 @@ fx.mo:Expected error in mat fxbit-field: "fxbit-field: 5.0 is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 8.0 is not a valid end index". *************** -*** 8912,8945 **** +*** 9009,9042 **** fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5005,7 +5005,7 @@ fx.mo:Expected error in mat fxif: "fxif: a is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: 3.4 is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: (a) is not a fixnum". ---- 8912,8945 ---- +--- 9009,9042 ---- fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5041,7 +5041,7 @@ fx.mo:Expected error in mat fxif: "fxif: 3.4 is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: (a) is not a fixnum". *************** -*** 8949,8992 **** +*** 9046,9089 **** fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". @@ -5086,7 +5086,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: 3.4 is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". ---- 8949,8992 ---- +--- 9046,9089 ---- fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". @@ -5132,7 +5132,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". *************** -*** 8995,9005 **** +*** 9092,9102 **** fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5144,7 +5144,7 @@ fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3.4 is not a valid start index". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3/4 is not a valid end index". ---- 8995,9005 ---- +--- 9092,9102 ---- fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5157,7 +5157,7 @@ fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3.4 is not a valid start index". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3/4 is not a valid end index". *************** -*** 9059,9068 **** +*** 9156,9165 **** fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: (a) is not a fixnum". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". @@ -5168,7 +5168,7 @@ fx.mo:Expected error in mat fx+/carry: "fx+/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 3.0 is not a fixnum". ---- 9059,9068 ---- +--- 9156,9165 ---- fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: (a) is not a fixnum". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". @@ -5180,7 +5180,7 @@ fx.mo:Expected error in mat fx+/carry: "fx+/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 3.0 is not a fixnum". *************** -*** 9078,9087 **** +*** 9175,9184 **** fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". @@ -5191,7 +5191,7 @@ fx.mo:Expected error in mat fx-/carry: "fx-/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 3.0 is not a fixnum". ---- 9078,9087 ---- +--- 9175,9184 ---- fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". @@ -5203,7 +5203,7 @@ fx.mo:Expected error in mat fx-/carry: "fx-/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 3.0 is not a fixnum". *************** -*** 9097,9106 **** +*** 9194,9203 **** fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". @@ -5214,7 +5214,7 @@ fx.mo:Expected error in mat fx*/carry: "fx*/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 3.0 is not a fixnum". ---- 9097,9106 ---- +--- 9194,9203 ---- fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". @@ -5226,7 +5226,7 @@ fx.mo:Expected error in mat fx*/carry: "fx*/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 3.0 is not a fixnum". *************** -*** 9116,9126 **** +*** 9213,9223 **** fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". @@ -5238,7 +5238,7 @@ fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: a is not a fixnum". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index 2.0". ---- 9116,9126 ---- +--- 9213,9223 ---- fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". @@ -5251,7 +5251,7 @@ fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index 2.0". *************** -*** 9143,9152 **** +*** 9240,9249 **** fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5262,7 +5262,7 @@ fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: a is not a fixnum". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index 2.0". ---- 9143,9152 ---- +--- 9240,9249 ---- fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5274,7 +5274,7 @@ fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index 2.0". *************** -*** 9162,9179 **** +*** 9259,9276 **** fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5293,7 +5293,7 @@ fl.mo:Expected error in mat fl=: "fl=: (a) is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". ---- 9162,9179 ---- +--- 9259,9276 ---- fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5313,7 +5313,7 @@ fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". *************** -*** 9181,9187 **** +*** 9278,9284 **** fl.mo:Expected error in mat fl=: "fl=: 3 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". @@ -5321,7 +5321,7 @@ fl.mo:Expected error in mat fl<: "fl<: (a) is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". ---- 9181,9187 ---- +--- 9278,9284 ---- fl.mo:Expected error in mat fl=: "fl=: 3 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". @@ -5330,7 +5330,7 @@ fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". *************** -*** 9189,9195 **** +*** 9286,9292 **** fl.mo:Expected error in mat fl<: "fl<: 3 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". @@ -5338,7 +5338,7 @@ fl.mo:Expected error in mat fl>: "fl>: (a) is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". ---- 9189,9195 ---- +--- 9286,9292 ---- fl.mo:Expected error in mat fl<: "fl<: 3 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". @@ -5347,7 +5347,7 @@ fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". *************** -*** 9197,9203 **** +*** 9294,9300 **** fl.mo:Expected error in mat fl>: "fl>: 3 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". @@ -5355,7 +5355,7 @@ fl.mo:Expected error in mat fl<=: "fl<=: (a) is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". ---- 9197,9203 ---- +--- 9294,9300 ---- fl.mo:Expected error in mat fl>: "fl>: 3 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". @@ -5364,7 +5364,7 @@ fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". *************** -*** 9205,9211 **** +*** 9302,9308 **** fl.mo:Expected error in mat fl<=: "fl<=: 3 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". @@ -5372,7 +5372,7 @@ fl.mo:Expected error in mat fl>=: "fl>=: (a) is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". ---- 9205,9211 ---- +--- 9302,9308 ---- fl.mo:Expected error in mat fl<=: "fl<=: 3 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". @@ -5381,7 +5381,7 @@ fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". *************** -*** 9213,9252 **** +*** 9310,9349 **** fl.mo:Expected error in mat fl>=: "fl>=: 3 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". @@ -5422,7 +5422,7 @@ fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: 3 is not a flonum". ---- 9213,9252 ---- +--- 9310,9349 ---- fl.mo:Expected error in mat fl>=: "fl>=: 3 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". @@ -5464,7 +5464,7 @@ fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: 3 is not a flonum". *************** -*** 9256,9262 **** +*** 9353,9359 **** fl.mo:Expected error in mat fl+: "fl+: (a . b) is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 1 is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 2/3 is not a flonum". @@ -5472,7 +5472,7 @@ fl.mo:Expected error in mat fl-: "fl-: (a . b) is not a flonum". fl.mo:Expected error in mat fl-: "fl-: 1 is not a flonum". fl.mo:Expected error in mat fl-: "fl-: a is not a flonum". ---- 9256,9262 ---- +--- 9353,9359 ---- fl.mo:Expected error in mat fl+: "fl+: (a . b) is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 1 is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 2/3 is not a flonum". @@ -5481,7 +5481,7 @@ fl.mo:Expected error in mat fl-: "fl-: 1 is not a flonum". fl.mo:Expected error in mat fl-: "fl-: a is not a flonum". *************** -*** 9266,9348 **** +*** 9363,9445 **** fl.mo:Expected error in mat fl*: "fl*: (a . b) is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 1 is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 2/3 is not a flonum". @@ -5565,7 +5565,7 @@ fl.mo:Expected error in mat flround: "flround: a is not a flonum". fl.mo:Expected error in mat flround: "flround: 2.0+1.0i is not a flonum". fl.mo:Expected error in mat flround: "flround: 2+1i is not a flonum". ---- 9266,9348 ---- +--- 9363,9445 ---- fl.mo:Expected error in mat fl*: "fl*: (a . b) is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 1 is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 2/3 is not a flonum". @@ -5650,7 +5650,7 @@ fl.mo:Expected error in mat flround: "flround: 2.0+1.0i is not a flonum". fl.mo:Expected error in mat flround: "flround: 2+1i is not a flonum". *************** -*** 9362,9397 **** +*** 9459,9494 **** fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3/4 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: hi is not a flonum". @@ -5687,7 +5687,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: a is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". ---- 9362,9397 ---- +--- 9459,9494 ---- fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3/4 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: hi is not a flonum". @@ -5725,7 +5725,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". *************** -*** 9399,9406 **** +*** 9496,9503 **** fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5734,7 +5734,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: a is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". ---- 9399,9406 ---- +--- 9496,9503 ---- fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5744,7 +5744,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". *************** -*** 9408,9414 **** +*** 9505,9511 **** fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -5752,7 +5752,7 @@ fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". ---- 9408,9414 ---- +--- 9505,9511 ---- fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -5761,7 +5761,7 @@ fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". *************** -*** 9416,9422 **** +*** 9513,9519 **** fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0+1i is not a flonum". @@ -5769,7 +5769,7 @@ fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 3 is not a flonum". ---- 9416,9422 ---- +--- 9513,9519 ---- fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0+1i is not a flonum". @@ -5778,7 +5778,7 @@ fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 3 is not a flonum". *************** -*** 9424,9437 **** +*** 9521,9534 **** fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0+1i is not a flonum". @@ -5793,7 +5793,7 @@ fl.mo:Expected error in mat fldenominator: "fldenominator: a is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 3 is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 0+1i is not a flonum". ---- 9424,9437 ---- +--- 9521,9534 ---- fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0+1i is not a flonum". @@ -5809,7 +5809,7 @@ fl.mo:Expected error in mat fldenominator: "fldenominator: 3 is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 0+1i is not a flonum". *************** -*** 9477,9483 **** +*** 9574,9580 **** cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". @@ -5817,7 +5817,7 @@ cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". ---- 9477,9483 ---- +--- 9574,9580 ---- cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". @@ -5826,7 +5826,7 @@ cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". *************** -*** 9487,9500 **** +*** 9584,9597 **** cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". @@ -5841,7 +5841,7 @@ foreign.mo:Expected error in mat load-shared-object: "load-shared-object: invalid path 3". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". ---- 9487,9500 ---- +--- 9584,9597 ---- cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". @@ -5857,7 +5857,7 @@ foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". *************** -*** 9529,9536 **** +*** 9626,9633 **** foreign.mo:Expected error in mat foreign-procedure: "id: invalid foreign-procedure argument foo". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle abcde". foreign.mo:Expected error in mat foreign-procedure: "float_id: invalid foreign-procedure argument 0". @@ -5866,7 +5866,7 @@ foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier i-am-not-a-type". foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1". foreign.mo:Expected error in mat foreign-bytevectors: "u8*->u8*: invalid foreign-procedure argument "hello"". ---- 9529,9536 ---- +--- 9626,9633 ---- foreign.mo:Expected error in mat foreign-procedure: "id: invalid foreign-procedure argument foo". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle abcde". foreign.mo:Expected error in mat foreign-procedure: "float_id: invalid foreign-procedure argument 0". @@ -5876,7 +5876,7 @@ foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1". foreign.mo:Expected error in mat foreign-bytevectors: "u8*->u8*: invalid foreign-procedure argument "hello"". *************** -*** 10028,10040 **** +*** 10125,10137 **** unix.mo:Expected error in mat file-operations: "file-access-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-change-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-modification-time: failed for "testlink": no such file or directory". @@ -5890,7 +5890,7 @@ windows.mo:Expected error in mat registry: "get-registry: pooh is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". ---- 10028,10040 ---- +--- 10125,10137 ---- unix.mo:Expected error in mat file-operations: "file-access-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-change-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-modification-time: failed for "testlink": no such file or directory". @@ -5905,7 +5905,7 @@ windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". *************** -*** 10062,10133 **** +*** 10159,10230 **** ieee.mo:Expected error in mat flonum->fixnum: "flonum->fixnum: result for -inf.0 would be outside of fixnum range". ieee.mo:Expected error in mat flonum->fixnum: "flonum->fixnum: result for +nan.0 would be outside of fixnum range". ieee.mo:Expected error in mat fllp: "fllp: 3 is not a flonum". @@ -5978,7 +5978,7 @@ date.mo:Expected error in mat time: "time>=?: 3 is not a time record". date.mo:Expected error in mat time: "time>=?: # is not a time record". date.mo:Expected error in mat time: "time>=?: types of