On 7/23/22 20:46, Waldek Hebisch wrote:
GCL-2.6.13_pre fails to build on Linux with git HEAD.
I commited GCL patches should make porting to newere GCL-s
easier, but does not solve main problems. Also, I commited
only parts compatible with older versions.
OK, not high priority for GCL-2.6.13_pre, but the error
happens when first trying to generate database:
======= it stops somewhere randomly around "JGB". no other error message
)compile JGB.spad
Compiling FriCAS source code from file
/tmp/fricas/src/algebra/JGB.spad using old system compiler.
JGB abbreviates package JetGroebner
------------------------------------------------------------------------
initializing NRLIB JGB for JetGroebner
compiling into NRLIB JGB
****** Domain: JB already in scope
****** Domain: P already in scope
>> System error:
(1) -> mv: cannot stat 'category.daase': No such file or directory
mv: cannot stat 'compress.daase': No such file or directory
mv: cannot stat 'interp.daase': No such file or directory
mv: cannot stat 'operation.daase': No such file or directory
make[3]: *** [Makefile:620: stamp-db] Error 1
make[3]: Leaving directory '/tmp/fricas/src/algebra'
ECL fails to build on macOS with git HEAD.
Could you say more about this? Main change is that
FriCAS now generates extern declarations for C
functions that we call via FFI. That is supposed
to replace Sage patch (which IMO is problematic).
Glad to know you are trying to fix this issue.
I'm attaching the failure log and generated
fricas-lisp.c.
Anyway, with the patches FriCAS build for me
using gcl-2.6.12, ecl-16.1.2 and ecl-21.2.1.
So with ECL any problem most likely is OS or
C compiler. Of course, C compiler can emit
warnings whenever it wants and if one inserts
'-Werror' to default C options it may easily
lead to spurious failures.
BTW: ATM I find Github CI reports kind of useless,
they does not tell me more than what I already
know due to Murphy: there is failure somewhere.
Up to now I was unable to see build logs to get
more info. One answer to stackoverflow question
claimed that one has to authenticate as project
admin to see logs but I saw no docs how this is
supposed to work.
For CI logs, if you are logged into GitHub, you will be able
to see the logs. But recent CI status for macOS build
is "canceled", which is strange. I'm restarting them
and one has passed (they are testing sbcl on macOS after all).
- Qian
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/883e3e62-0d2a-0faf-0326-62788086941a%40gmail.com.
;;; End of Pass 1.
;;; Internal error:
;;; ** Error code 1 when executing
;;; (EXT:RUN-PROGRAM "clang" ("-I." "-I/usr/local/Cellar/ecl/21.2.1_2/include/" "-I/usr/local/opt/gmp/include" "-I/usr/local/opt/libffi/include" "-I/usr/local/opt/bdw-gc/include" "-g" "-O2" "-fPIC" "-fno-common" "-D_THREAD_SAFE" "-Ddarwin" "-O2" "-c" "fricas-lisp.c" "-o" "fricas-lisp.o")):
;;; fricas-lisp.c:682:25: error: implicit declaration of function 'writeablep' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(writeablep(ecl_base_string_pointer_safe(v2)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:713:25: error: implicit declaration of function 'remove_directory' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(remove_directory(ecl_base_string_pointer_safe(v2)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:713:25: note: did you mean 'L28_remove_directory_'?
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; ./fricas-lisp.eclh:40:18: note: 'L28_remove_directory_' declared here
;;; static cl_object L28_remove_directory_(cl_object );
;;; ^
;;; fricas-lisp.c:744:25: error: implicit declaration of function 'open_server' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(open_server(ecl_base_string_pointer_safe(v2)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:772:24: error: implicit declaration of function 'sock_get_int' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(sock_get_int(ecl_fixnum(v1fricas_lisp__purpose)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:784:24: error: implicit declaration of function 'sock_send_int' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(sock_send_int(ecl_fixnum(v1fricas_lisp__purpose),ecl_fixnum(v2fricas_lisp__val)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:796:33: error: implicit declaration of function 'sock_get_float' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_double_float(sock_get_float(ecl_fixnum(v1fricas_lisp__purpose)));
;;; ^
;;; fricas-lisp.c:808:24: error: implicit declaration of function 'sock_send_float' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(sock_send_float(ecl_fixnum(v1fricas_lisp__purpose),ecl_double_float(v2fricas_lisp__num)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:823:25: error: implicit declaration of function 'sock_send_string_len' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(sock_send_string_len(ecl_fixnum(v1fricas_lisp__purpose),ecl_base_string_pointer_safe(v4),ecl_fixnum(v3fricas_lisp__len)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:823:25: note: did you mean 'L36sock_send_string_len'?
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; ./fricas-lisp.eclh:48:18: note: 'L36sock_send_string_len' declared here
;;; static cl_object L36sock_send_string_len(cl_object , cl_object , cl_object );
;;; ^
;;; fricas-lisp.c:866:24: error: implicit declaration of function 'server_switch' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(server_switch());
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:878:24: error: implicit declaration of function 'sock_send_signal' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(sock_send_signal(ecl_fixnum(v1fricas_lisp__purpose),ecl_fixnum(v2fricas_lisp__sig)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:890:2: error: implicit declaration of function 'sock_get_string_buf' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; sock_get_string_buf(ecl_fixnum(v1fricas_lisp__purpose),ecl_to_pointer(v2fricas_lisp__buf),ecl_fixnum(v3fricas_lisp__len));
;;; ^
;;; fricas-lisp.c:964:25: error: implicit declaration of function 'directoryp' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(directoryp(ecl_base_string_pointer_safe(v2)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; fricas-lisp.c:995:25: error: implicit declaration of function 'makedir' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
;;; value0 = ecl_make_int(makedir(ecl_base_string_pointer_safe(v2)));
;;; ^
;;; /usr/local/Cellar/ecl/21.2.1_2/include/ecl/external.h:1107:23: note: expanded from macro 'ecl_make_int'
;;; # define ecl_make_int ecl_make_int32_t
;;; ^
;;; 13 errors generated.
NIL
T
T
/* Compiler: ECL 21.2.1 */
/* Date: 2022/7/22 18:58 (yyyy/mm/dd) */
/* Machine: Darwin 20.6.0 x86_64 */
/* Source: fricas-lisp.lisp */
#include <ecl/ecl-cmp.h>
#include "fricas-lisp.eclh"
/* function definition for SET-INITIAL-PARAMETERS */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L1set_initial_parameters()
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
ECL_SETQ(cl_env_copy,ECL_SYM("*PRINT-CIRCLE*",49),ECL_T);
ECL_SETQ(cl_env_copy,ECL_SYM("*COMPILE-PRINT*",30),ECL_NIL);
ECL_SETQ(cl_env_copy,ECL_SYM("*READ-DEFAULT-FLOAT-FORMAT*",64),ECL_SYM("DOUBLE-FLOAT",317));
value0 = ECL_SYM("DOUBLE-FLOAT",317);
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for SAVE-CORE-RESTART */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L2save_core_restart(cl_object v1fricas_lisp__core_image, cl_object v2restart)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ECL_NIL;
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for SAVE-CORE */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L3save_core(cl_object v1fricas_lisp__core_image)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = L2save_core_restart(v1fricas_lisp__core_image, ECL_NIL);
return value0;
}
/* function definition for LOAD-LISP-FILES */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L5load_lisp_files(cl_object v1fricas_lisp__files)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
{
cl_object v3;
v3 = ecl_make_cfun((cl_objectfn_fixed)LC4__lambda8,ECL_NIL,Cblock,1);
v2 = v3;
}
{
cl_object v3;
cl_object v4;
v3 = ECL_NIL;
v4 = v1fricas_lisp__files;
{
cl_object v5;
cl_object v6;
v5 = ecl_list1(ECL_NIL);
v6 = v5;
L6:;
if (!(v4==ECL_NIL)) { goto L8; }
goto L7;
L8:;
v3 = ECL_CONS_CAR(v4);
v4 = ECL_CONS_CDR(v4);
T0 = v6;
T1 = ecl_function_dispatch(cl_env_copy,v2)(1, v3);
v6 = ecl_list1(T1);
(ECL_CONS_CDR(T0)=v6,T0);
goto L6;
L7:;
value0 = _ecl_cdr(v5);
cl_env_copy->nvalues = 1;
return value0;
}
}
}
}
/* local function LAMBDA8 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC4__lambda8(cl_object v1fricas_lisp__f)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = cl_load(1, v1fricas_lisp__f);
return value0;
}
/* function definition for EXIT-WITH-STATUS */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L6exit_with_status(cl_object v1fricas_lisp__s)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = si_quit(1, v1fricas_lisp__s);
return value0;
}
/* function definition for QUIT */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L7quit()
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = L6exit_with_status(ecl_make_fixnum(0));
return value0;
}
/* function definition for MAKE-PROGRAM */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L8make_program(cl_object v1fricas_lisp__core_image, cl_object v2fricas_lisp__lisp_files)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
if (Null(ECL_SYM_VAL(cl_env_copy,VV[7]))) { goto L2; }
T0 = ecl_append(ECL_SYM_VAL(cl_env_copy,VV[9]),v2fricas_lisp__lisp_files);
ecl_function_dispatch(cl_env_copy,VV[113])(7, v1fricas_lisp__core_image, VV[8], T0, VV[10], ECL_SYM_VAL(cl_env_copy,VV[11]), VV[12], ECL_SYM_VAL(cl_env_copy,VV[7])) /* BUILD-PROGRAM */;
goto L1;
L2:;
T0 = ecl_append(ECL_SYM_VAL(cl_env_copy,VV[9]),v2fricas_lisp__lisp_files);
ecl_function_dispatch(cl_env_copy,VV[113])(5, v1fricas_lisp__core_image, VV[8], T0, VV[10], ECL_SYM_VAL(cl_env_copy,VV[11])) /* BUILD-PROGRAM */;
L1:;
value0 = L7quit();
return value0;
}
/* function definition for maybe_delete_file */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L10_maybe_delete_file_(cl_object volatile v1fricas_lisp__file)
{
cl_object T0, T1, T2, T3;
cl_object volatile env0 = ECL_NIL;
cl_object volatile CLV0, CLV1;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object volatile value0;
TTL:
{
volatile cl_object env1 = env0;
env1 = ECL_NIL;
CLV0 = env1 = CONS(ECL_NIL,env1);
{
volatile cl_object env2 = env1;
CLV1 = env2 = CONS(ECL_NEW_FRAME_ID(cl_env_copy),env2); /* TAGBODY */
{
ecl_frs_push(cl_env_copy,ECL_CONS_CAR(CLV1));
if (__ecl_frs_push_result) {
if (cl_env_copy->values[0]==ecl_make_fixnum(0))goto L1;
ecl_internal_error("GO found an inexistent tag");
}
}
{
cl_object v2;
v2 = ecl_make_cclosure_va((cl_objectfn)LC9__lambda15,env2,Cblock,1);
T0 = v2;
}
T1 = CONS(ECL_SYM("ERROR",339),T0);
T2 = ecl_list1(T1);
T3 = CONS(T2,ECL_SYM_VAL(cl_env_copy,ECL_SYM("*HANDLER-CLUSTERS*",6)));
ecl_bds_bind(cl_env_copy,ECL_SYM("*HANDLER-CLUSTERS*",6),T3); /* *HANDLER-CLUSTERS* */
value0 = cl_delete_file(v1fricas_lisp__file);
ecl_frs_pop(cl_env_copy);
ecl_bds_unwind1(cl_env_copy);
return value0;
L1:;
{
cl_object v2condition;
v2condition = ECL_CONS_CAR(CLV0);
cl_env_copy->nvalues = 2;
cl_env_copy->values[1] = v2condition;
cl_env_copy->values[0] = ECL_NIL;
value0 = cl_env_copy->values[0];
ecl_frs_pop(cl_env_copy);
return value0;
}
}
}
}
/* closure LAMBDA15 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC9__lambda15(cl_narg narg, cl_object v1si__temp, ...)
{
cl_object CLV0, CLV1;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
/* Scanning closure data ... */
CLV1 = env0; /* TAGBODY */
CLV0 = _ecl_cdr(CLV1);
{ /* ... closure scanning finished */
TTL:
ECL_CONS_CAR(CLV0) = v1si__temp;
cl_go(ECL_CONS_CAR(CLV1),ecl_make_fixnum(0));
}
}
/* function definition for CHDIR */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L11chdir(cl_object v1fricas_lisp__dir)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = L47pad_directory_name(v1fricas_lisp__dir);
value0 = si_chdir(2, T0, ECL_T);
return value0;
}
/* function definition for getEnv */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L12_getenv_(cl_object v1fricas_lisp__var_name)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = si_getenv(v1fricas_lisp__var_name);
return value0;
}
/* function definition for getCLArgs */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L13_getclargs_()
{
cl_object T0, T1, T2;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_fixnum v1;
cl_object v2fricas_lisp__res;
v1 = ecl_fixnum(si_argc());
v2fricas_lisp__res = ECL_NIL;
{
cl_object v3fricas_lisp__i;
v3fricas_lisp__i = ecl_make_fixnum(0);
goto L6;
L5:;
T0 = ecl_plus(v3fricas_lisp__i,ecl_make_fixnum(1));
T1 = ecl_minus(ecl_make_fixnum(v1),T0);
T2 = si_argv(T1);
v2fricas_lisp__res = CONS(T2,v2fricas_lisp__res);
v3fricas_lisp__i = ecl_one_plus(v3fricas_lisp__i);
L6:;
if (!(ecl_lower(v3fricas_lisp__i,ecl_make_fixnum(v1)))) { goto L12; }
goto L5;
L12:;
}
value0 = v2fricas_lisp__res;
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for load_quietly */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L14_load_quietly_(cl_object v1fricas_lisp__f)
{
cl_object T0, T1, T2, T3;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = (ECL_SYM("MUFFLE-WARNING",573)->symbol.gfdef);
T1 = CONS(ECL_SYM("WARNING",906),T0);
T2 = ecl_list1(T1);
T3 = CONS(T2,ECL_SYM_VAL(cl_env_copy,ECL_SYM("*HANDLER-CLUSTERS*",6)));
ecl_bds_bind(cl_env_copy,ECL_SYM("*HANDLER-CLUSTERS*",6),T3); /* *HANDLER-CLUSTERS* */
value0 = cl_load(1, v1fricas_lisp__f);
ecl_bds_unwind1(cl_env_copy);
return value0;
}
/* function definition for quiet_load_alien */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L15_quiet_load_alien_(cl_object v1fricas_lisp__s)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ECL_NIL;
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for C-TYPE-TO-FFI */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L16c_type_to_ffi(cl_object v1fricas_lisp__c_type)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2fricas_lisp__pp;
v2fricas_lisp__pp = ecl_assql(v1fricas_lisp__c_type,ECL_SYM_VAL(cl_env_copy,VV[19]));
if (Null(v2fricas_lisp__pp)) { goto L2; }
value0 = _ecl_cadr(v2fricas_lisp__pp);
cl_env_copy->nvalues = 1;
return value0;
L2:;
value0 = (cl_env_copy->function=(ECL_SYM("BREAK",160)->symbol.gfdef))->cfun.entry(0) /* BREAK */;
return value0;
}
}
/* function definition for C_TYPE_AS_STRING */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L17c_type_as_string(cl_object v1fricas_lisp__c_type)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = ecl_assql(v1fricas_lisp__c_type,ECL_SYM_VAL(cl_env_copy,VV[21]));
value0 = _ecl_cadr(T0);
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for C_ARGS_AS_STRING */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L18c_args_as_string(cl_object v1fricas_lisp__arguments)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
if (!(v1fricas_lisp__arguments==ECL_NIL)) { goto L1; }
value0 = VV[24];
cl_env_copy->nvalues = 1;
return value0;
L1:;
{
cl_object v2fricas_lisp__res;
T0 = _ecl_car(v1fricas_lisp__arguments);
T1 = _ecl_cadr(T0);
v2fricas_lisp__res = L17c_type_as_string(T1);
{
cl_object v3;
v3 = _ecl_cdr(v1fricas_lisp__arguments);
goto L8;
L7:;
{
cl_object v4fricas_lisp__el;
v4fricas_lisp__el = _ecl_car(v3);
T0 = _ecl_cadr(v4fricas_lisp__el);
T1 = L17c_type_as_string(T0);
v2fricas_lisp__res = cl_concatenate(4, ECL_SYM("STRING",807), v2fricas_lisp__res, VV[25], T1);
}
v3 = _ecl_cdr(v3);
L8:;
if (Null(v3)) { goto L16; }
goto L7;
L16:;
}
value0 = v2fricas_lisp__res;
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for MAKE_EXTERN */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L19make_extern(cl_object v1fricas_lisp__return_type, cl_object v2fricas_lisp__c_name, cl_object v3fricas_lisp__arguments)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = L17c_type_as_string(v1fricas_lisp__return_type);
T1 = L18c_args_as_string(v3fricas_lisp__arguments);
value0 = cl_concatenate(8, ECL_SYM("STRING",807), VV[27], T0, VV[28], v2fricas_lisp__c_name, VV[29], T1, VV[30]);
return value0;
}
/* function definition for C-ARGS-TO-ECL */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L21c_args_to_ecl(cl_object v1fricas_lisp__arguments)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
cl_object CLV0, CLV1;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object env1 = env0;
env1 = ECL_NIL;
CLV0 = env1 = CONS(ECL_NIL,env1); /* STRS */
CLV1 = env1 = CONS(ECL_NIL,env1); /* FARGS */
{
cl_object v2;
{
cl_object v3;
v3 = ecl_make_cclosure_va((cl_objectfn)LC20__lambda43,env1,Cblock,1);
v2 = v3;
}
{
cl_object v3;
cl_object v4;
v3 = ECL_NIL;
v4 = v1fricas_lisp__arguments;
{
cl_object v5;
cl_object v6;
v5 = ecl_list1(ECL_NIL);
v6 = v5;
L7:;
if (!(v4==ECL_NIL)) { goto L9; }
goto L8;
L9:;
v3 = ECL_CONS_CAR(v4);
v4 = ECL_CONS_CDR(v4);
T0 = v6;
T1 = ecl_function_dispatch(cl_env_copy,v2)(1, v3);
v6 = ecl_list1(T1);
(ECL_CONS_CDR(T0)=v6,T0);
goto L7;
L8:;
goto L1;
}
}
}
L1:;
T0 = cl_nreverse(ECL_CONS_CAR(CLV1));
cl_env_copy->nvalues = 2;
cl_env_copy->values[1] = ECL_CONS_CAR(CLV0);
cl_env_copy->values[0] = T0;
return cl_env_copy->values[0];
}
}
/* function definition for ECL-FOREIGN-CALL */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L22ecl_foreign_call(cl_object v1fricas_lisp__name, cl_object v2fricas_lisp__c_name, cl_object v3fricas_lisp__return_type, cl_object v4fricas_lisp__arguments)
{
cl_object T0, T1, T2, T3, T4;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v6; /* FARGS */
cl_object v7; /* STRS */
value0 = L21c_args_to_ecl(v4fricas_lisp__arguments);
{
const int v8 = cl_env_copy->nvalues;
v6 = value0;
cl_object v9;
v9 = (v8<=1)? ECL_NIL : cl_env_copy->values[1];
v7 = v9;
}
{
cl_object v8;
v8 = L16c_type_to_ffi(v3fricas_lisp__return_type);
T0 = L19make_extern(v3fricas_lisp__return_type, v2fricas_lisp__c_name, v4fricas_lisp__arguments);
T1 = cl_list(2, ECL_SYM("CLINES",2068), T0);
if (Null(v7)) { goto L4; }
{
cl_object v9fricas_lisp__sym;
cl_object v10fricas_lisp__wargs;
cl_object v11fricas_lisp__largs;
cl_object v12fricas_lisp__wrapper;
v9fricas_lisp__sym = cl_gensym(0);
{
cl_object v13;
v13 = (ECL_SYM("CAR",182)->symbol.gfdef);
{
cl_object v14;
cl_object v15;
v14 = ECL_NIL;
v15 = v6;
{
cl_object v16;
cl_object v17;
v16 = ecl_list1(ECL_NIL);
v17 = v16;
L13:;
if (!(v15==ECL_NIL)) { goto L15; }
goto L14;
L15:;
v14 = ECL_CONS_CAR(v15);
v15 = ECL_CONS_CDR(v15);
T3 = v17;
T4 = (cl_env_copy->function=v13)->cfun.entry(1, v14);
v17 = ecl_list1(T4);
(ECL_CONS_CDR(T3)=v17,T3);
goto L13;
L14:;
v10fricas_lisp__wargs = _ecl_cdr(v16);
goto L7;
}
}
}
L7:;
{
cl_object v13;
v13 = (ECL_SYM("CAR",182)->symbol.gfdef);
{
cl_object v14;
cl_object v15;
v14 = ECL_NIL;
v15 = v4fricas_lisp__arguments;
{
cl_object v16;
cl_object v17;
v16 = ecl_list1(ECL_NIL);
v17 = v16;
L32:;
if (!(v15==ECL_NIL)) { goto L34; }
goto L33;
L34:;
v14 = ECL_CONS_CAR(v15);
v15 = ECL_CONS_CDR(v15);
T3 = v17;
T4 = (cl_env_copy->function=v13)->cfun.entry(1, v14);
v17 = ecl_list1(T4);
(ECL_CONS_CDR(T3)=v17,T3);
goto L32;
L33:;
v11fricas_lisp__largs = _ecl_cdr(v16);
goto L26;
}
}
}
L26:;
v12fricas_lisp__wrapper = CONS(v9fricas_lisp__sym,v10fricas_lisp__wargs);
{
cl_object v13;
v13 = v7;
goto L50;
L49:;
{
cl_object v14fricas_lisp__el;
v14fricas_lisp__el = _ecl_car(v13);
v12fricas_lisp__wrapper = cl_list(3, ECL_SYM("WITH-CSTRING",2110), v14fricas_lisp__el, v12fricas_lisp__wrapper);
}
v13 = _ecl_cdr(v13);
L50:;
if (Null(v13)) { goto L58; }
goto L49;
L58:;
}
v12fricas_lisp__wrapper = cl_list(4, ECL_SYM("DEFUN",291), v1fricas_lisp__name, v11fricas_lisp__largs, v12fricas_lisp__wrapper);
T3 = cl_list(2, v2fricas_lisp__c_name, v9fricas_lisp__sym);
T4 = cl_list(5, ECL_SYM("DEF-FUNCTION",2079), T3, v6, VV[34], v8);
T2 = cl_list(3, ECL_SYM("PROGN",673), T4, v12fricas_lisp__wrapper);
goto L3;
}
L4:;
T3 = cl_list(2, v2fricas_lisp__c_name, v1fricas_lisp__name);
T2 = cl_list(5, ECL_SYM("DEF-FUNCTION",2079), T3, v6, VV[34], v8);
L3:;
value0 = cl_list(3, ECL_SYM("PROGN",673), T1, T2);
return value0;
}
}
}
/* local function FRICAS-FOREIGN-CALL */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC23fricas_foreign_call(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4fricas_lisp__name;
cl_object v5fricas_lisp__c_name;
cl_object v6fricas_lisp__return_type;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4fricas_lisp__name = v7;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5fricas_lisp__c_name = v7;
}
if (!(v3==ECL_NIL)) { goto L15; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L15:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v6fricas_lisp__return_type = v7;
}
value0 = L22ecl_foreign_call(v4fricas_lisp__name, v5fricas_lisp__c_name, v6fricas_lisp__return_type, v3);
return value0;
}
}
/* closure LAMBDA43 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC20__lambda43(cl_narg narg, cl_object v1x, ...)
{
cl_object T0, T1, T2, T3;
cl_object CLV0, CLV1;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
/* Scanning closure data ... */
CLV1 = env0; /* FARGS */
CLV0 = _ecl_cdr(CLV1);
{ /* ... closure scanning finished */
TTL:
T0 = _ecl_cadr(v1x);
if (!((T0)==(VV[32]))) { goto L1; }
{
cl_object v2fricas_lisp__sym;
v2fricas_lisp__sym = cl_gensym(0);
T0 = _ecl_car(v1x);
T1 = cl_list(2, v2fricas_lisp__sym, T0);
ECL_CONS_CAR(CLV0) = CONS(T1,ECL_CONS_CAR(CLV0));
T0 = cl_list(2, v2fricas_lisp__sym, ECL_SYM("CSTRING",1397));
ECL_CONS_CAR(CLV1) = CONS(T0,ECL_CONS_CAR(CLV1));
value0 = ECL_CONS_CAR(CLV1);
cl_env_copy->nvalues = 1;
return value0;
}
L1:;
T0 = _ecl_car(v1x);
T1 = _ecl_cadr(v1x);
T2 = L16c_type_to_ffi(T1);
T3 = cl_list(2, T0, T2);
ECL_CONS_CAR(CLV1) = CONS(T3,ECL_CONS_CAR(CLV1));
value0 = ECL_CONS_CAR(CLV1);
cl_env_copy->nvalues = 1;
return value0;
}
}
/* local function FOREIGN-DEFS */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC24foreign_defs(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
v3 = ECL_CONS_CDR(v1);
value0 = CONS(ECL_SYM("PROGN",673),v3);
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for G91 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L25__g91(cl_object v1)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1);
value0 = ecl_make_int(writeablep(ecl_base_string_pointer_safe(v2)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for writeablep */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L26_writeablep_(cl_object v1fricas_lisp__filename)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1fricas_lisp__filename);
value0 = L25__g91(v2);
return value0;
}
}
/* function definition for G94 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L27__g94(cl_object v1)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1);
value0 = ecl_make_int(remove_directory(ecl_base_string_pointer_safe(v2)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for remove_directory */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L28_remove_directory_(cl_object v1fricas_lisp__dir_name)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1fricas_lisp__dir_name);
value0 = L27__g94(v2);
return value0;
}
}
/* function definition for G97 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L29__g97(cl_object v1)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1);
value0 = ecl_make_int(open_server(ecl_base_string_pointer_safe(v2)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for openServer */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L30_openserver_(cl_object v1fricas_lisp__server_name)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1fricas_lisp__server_name);
value0 = L29__g97(v2);
return value0;
}
}
/* function definition for sockGetInt */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L31_sockgetint_(cl_object v1fricas_lisp__purpose)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_int(sock_get_int(ecl_fixnum(v1fricas_lisp__purpose)));
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for sockSendInt */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L32_socksendint_(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__val)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_int(sock_send_int(ecl_fixnum(v1fricas_lisp__purpose),ecl_fixnum(v2fricas_lisp__val)));
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for sockGetFloat */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L33_sockgetfloat_(cl_object v1fricas_lisp__purpose)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_double_float(sock_get_float(ecl_fixnum(v1fricas_lisp__purpose)));
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for sockSendFloat */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L34_socksendfloat_(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__num)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_int(sock_send_float(ecl_fixnum(v1fricas_lisp__purpose),ecl_double_float(v2fricas_lisp__num)));
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for G100 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L35__g100(cl_object v1fricas_lisp__purpose, cl_object v2, cl_object v3fricas_lisp__len)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v4;
v4 = si_copy_to_simple_base_string(v2);
value0 = ecl_make_int(sock_send_string_len(ecl_fixnum(v1fricas_lisp__purpose),ecl_base_string_pointer_safe(v4),ecl_fixnum(v3fricas_lisp__len)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for SOCK_SEND_STRING_LEN */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L36sock_send_string_len(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__str, cl_object v3fricas_lisp__len)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v4;
v4 = si_copy_to_simple_base_string(v2fricas_lisp__str);
value0 = L35__g100(v1fricas_lisp__purpose, v4, v3fricas_lisp__len);
return value0;
}
}
/* function definition for sockSendString */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L37_socksendstring_(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__str)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_fixnum v3;
v3 = ecl_length(v2fricas_lisp__str);
value0 = L36sock_send_string_len(v1fricas_lisp__purpose, v2fricas_lisp__str, ecl_make_fixnum(v3));
return value0;
}
}
/* function definition for serverSwitch */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L38_serverswitch_()
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_int(server_switch());
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for sockSendSignal */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L39_socksendsignal_(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__sig)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = ecl_make_int(sock_send_signal(ecl_fixnum(v1fricas_lisp__purpose),ecl_fixnum(v2fricas_lisp__sig)));
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for SOCK_GET_STRING_BUF_WRAPPER */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L40sock_get_string_buf_wrapper(cl_object v1fricas_lisp__purpose, cl_object v2fricas_lisp__buf, cl_object v3fricas_lisp__len)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
sock_get_string_buf(ecl_fixnum(v1fricas_lisp__purpose),ecl_to_pointer(v2fricas_lisp__buf),ecl_fixnum(v3fricas_lisp__len));
value0 = ECL_NIL;
cl_env_copy->nvalues = 0;
return value0;
}
/* function definition for sockGetStringFrom */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L41_sockgetstringfrom_(cl_object volatile v1fricas_lisp__purpose)
{
cl_object volatile env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object volatile value0;
TTL:
{
volatile cl_object v2fricas_lisp__buf;
v2fricas_lisp__buf = ecl_function_dispatch(cl_env_copy,ECL_SYM("ALLOCATE-FOREIGN-OBJECT",2061))(1, VV[54]) /* ALLOCATE-FOREIGN-OBJECT */;
{
struct ecl_stack_frame _ecl_inner_frame_aux;
volatile cl_object _ecl_inner_frame = ecl_stack_frame_open(cl_env_copy,(cl_object)&_ecl_inner_frame_aux,0);
{
volatile cl_object v3;
v3 = _ecl_inner_frame;
{
volatile cl_object v4;
v4 = ECL_SYM_VAL(cl_env_copy,ECL_SYM("*INTERRUPTS-ENABLED*",7));
ecl_bds_bind(cl_env_copy,ECL_SYM("*INTERRUPTS-ENABLED*",7),ECL_NIL); /* *INTERRUPTS-ENABLED* */
ecl_bds_bind(cl_env_copy,ECL_SYM("*ALLOW-WITH-INTERRUPTS*",1793),ECL_NIL); /* *ALLOW-WITH-INTERRUPTS* */
{
volatile bool unwinding = FALSE;
cl_index v5=ECL_STACK_INDEX(cl_env_copy),v6;
ecl_frame_ptr next_fr;
ecl_frs_push(cl_env_copy,ECL_PROTECT_TAG);
if (__ecl_frs_push_result) {
unwinding = TRUE; next_fr=cl_env_copy->nlj_fr;
} else {
ecl_bds_bind(cl_env_copy,ECL_SYM("*INTERRUPTS-ENABLED*",7),v4); /* *INTERRUPTS-ENABLED* */
L40sock_get_string_buf_wrapper(v1fricas_lisp__purpose, v2fricas_lisp__buf, ecl_make_fixnum(10000));
cl_env_copy->values[0] = ecl_function_dispatch(cl_env_copy,ECL_SYM("CONVERT-FROM-FOREIGN-STRING",2070))(1, v2fricas_lisp__buf) /* CONVERT-FROM-FOREIGN-STRING */;
ecl_bds_unwind1(cl_env_copy);
}
ecl_frs_pop(cl_env_copy);
v6=ecl_stack_push_values(cl_env_copy);
ecl_function_dispatch(cl_env_copy,ECL_SYM("FREE-FOREIGN-OBJECT",2097))(1, v2fricas_lisp__buf) /* FREE-FOREIGN-OBJECT */;
ecl_stack_pop_values(cl_env_copy,v6);
if (unwinding) ecl_unwind(cl_env_copy,next_fr);
ECL_STACK_SET_INDEX(cl_env_copy,v5);
ecl_bds_unwind1(cl_env_copy);
ecl_bds_unwind1(cl_env_copy);
}
}
ecl_stack_frame_push_values(v3);
value0 = ECL_NIL;
cl_env_copy->nvalues = 0;
if (Null(ECL_SYM_VAL(cl_env_copy,ECL_SYM("*INTERRUPTS-ENABLED*",7)))) { goto L10; }
si_check_pending_interrupts();
L10:;cl_env_copy->values[0]=ecl_stack_frame_pop_values(v3);
value0 = cl_env_copy->values[0];
}
ecl_stack_frame_close(_ecl_inner_frame);
}
return value0;
}
}
/* function definition for G115 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L42__g115(cl_object v1)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1);
value0 = ecl_make_int(directoryp(ecl_base_string_pointer_safe(v2)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for FILE_KIND */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L43file_kind(cl_object v1fricas_lisp__arg)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1fricas_lisp__arg);
value0 = L42__g115(v2);
return value0;
}
}
/* function definition for G118 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L44__g118(cl_object v1)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1);
value0 = ecl_make_int(makedir(ecl_base_string_pointer_safe(v2)));
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for MAKEDIR */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L45makedir(cl_object v1fricas_lisp__arg)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2;
v2 = si_copy_to_simple_base_string(v1fricas_lisp__arg);
value0 = L44__g118(v2);
return value0;
}
}
/* function definition for TRIM-DIRECTORY-NAME */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L46trim_directory_name(cl_object v1fricas_lisp__name)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_fixnum v2;
v2 = ecl_length(v1fricas_lisp__name);
{
cl_fixnum v3;
v3 = (v2)-1;
{
ecl_character v4;
v4 = ecl_char(v1fricas_lisp__name,v3);
if (!((v4)==((ecl_character)(47)))) { goto L1; }
}
}
}
{
cl_fixnum v2;
v2 = ecl_length(v1fricas_lisp__name);
T0 = ecl_make_integer((v2)-1);
v1fricas_lisp__name = cl_subseq(3, v1fricas_lisp__name, ecl_make_fixnum(0), T0);
}
L1:;
value0 = v1fricas_lisp__name;
cl_env_copy->nvalues = 1;
return value0;
}
/* function definition for PAD-DIRECTORY-NAME */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L47pad_directory_name(cl_object v1fricas_lisp__name)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_fixnum v2;
v2 = ecl_length(v1fricas_lisp__name);
{
cl_fixnum v3;
v3 = (v2)-1;
{
ecl_character v4;
v4 = ecl_char(v1fricas_lisp__name,v3);
if (!((v4)==((ecl_character)(47)))) { goto L1; }
}
}
}
value0 = v1fricas_lisp__name;
cl_env_copy->nvalues = 1;
return value0;
L1:;
value0 = cl_concatenate(3, ECL_SYM("STRING",807), v1fricas_lisp__name, VV[61]);
return value0;
}
/* function definition for FILE-KIND */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L48file_kind(cl_object v1fricas_lisp__filename)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = L43file_kind(v1fricas_lisp__filename);
return value0;
}
/* function definition for GET-CURRENT-DIRECTORY */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L49get_current_directory()
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = cl_truename(VV[24]);
T1 = cl_namestring(T0);
value0 = L46trim_directory_name(T1);
return value0;
}
/* function definition for fricas_probe_file */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L50_fricas_probe_file_(cl_object v1fricas_lisp__file)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = cl_probe_file(v1fricas_lisp__file);
return value0;
}
/* function definition for RELATIVE-TO-ABSOLUTE */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L51relative_to_absolute(cl_object v1fricas_lisp__name)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v2fricas_lisp__ns;
v2fricas_lisp__ns = cl_namestring(v1fricas_lisp__name);
T0 = cl_pathname_directory(1, v1fricas_lisp__name);
if (!(ECL_CONSP(T0))) { goto L2; }
T0 = cl_pathname_directory(1, v1fricas_lisp__name);
T1 = _ecl_car(T0);
if (!((T1)==(ECL_SYM("ABSOLUTE",1218)))) { goto L2; }
value0 = v2fricas_lisp__ns;
cl_env_copy->nvalues = 1;
return value0;
L2:;
T0 = L49get_current_directory();
value0 = cl_concatenate(4, ECL_SYM("STRING",807), T0, VV[61], v2fricas_lisp__ns);
return value0;
}
}
/* function definition for FRICAS_COMPILE_FILE */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L52fricas_compile_file(cl_object v1fricas_lisp__f, cl_object v2fricas_lisp__output_file)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = L51relative_to_absolute(v2fricas_lisp__output_file);
value0 = (cl_env_copy->function=(ECL_SYM("COMPILE-FILE",236)->symbol.gfdef))->cfun.entry(5, v1fricas_lisp__f, VV[67], T0, VV[68], ECL_T) /* COMPILE-FILE */;
return value0;
}
/* function definition for FRICAS_COMPILE_FASL */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L53fricas_compile_fasl(cl_object v1fricas_lisp__f, cl_object v2fricas_lisp__output_file)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
T0 = L51relative_to_absolute(v2fricas_lisp__output_file);
value0 = (cl_env_copy->function=(ECL_SYM("COMPILE-FILE",236)->symbol.gfdef))->cfun.entry(3, v1fricas_lisp__f, VV[67], T0) /* COMPILE-FILE */;
return value0;
}
/* local function DEFCONST */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC54defconst(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4fricas_lisp__name;
cl_object v5fricas_lisp__value;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4fricas_lisp__name = v6;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5fricas_lisp__value = v6;
}
if (Null(v3)) { goto L14; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L14:;
T0 = cl_list(2, ECL_SYM("QUOTE",681), v4fricas_lisp__name);
T1 = cl_list(2, ECL_SYM("BOUNDP",159), T0);
T2 = cl_list(2, ECL_SYM("QUOTE",681), v4fricas_lisp__name);
T3 = cl_list(2, ECL_SYM("SYMBOL-VALUE",848), T2);
T4 = cl_list(4, ECL_SYM("IF",948), T1, T3, v5fricas_lisp__value);
value0 = cl_list(3, ECL_SYM("DEFCONSTANT",279), v4fricas_lisp__name, T4);
return value0;
}
}
/* local function MEMQ */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC55memq(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4fricas_lisp__a;
cl_object v5fricas_lisp__b;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4fricas_lisp__a = v6;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5fricas_lisp__b = v6;
}
if (Null(v3)) { goto L14; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L14:;
value0 = cl_listX(4, ECL_SYM("MEMBER",554), v4fricas_lisp__a, v5fricas_lisp__b, VV[72]);
return value0;
}
}
/* function definition for handle_input_file */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L56_handle_input_file_(cl_object volatile v1fricas_lisp__fn, cl_object volatile v2fricas_lisp__fun, cl_object volatile v3fricas_lisp__args)
{
cl_object T0;
cl_object volatile env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object volatile value0;
TTL:
{
volatile cl_object v4stream;
v4stream = cl_open(5, v1fricas_lisp__fn, ECL_SYM("DIRECTION",1240), ECL_SYM("INPUT",1280), ECL_SYM("IF-DOES-NOT-EXIST",1268), ECL_NIL);
{
volatile bool unwinding = FALSE;
cl_index v5=ECL_STACK_INDEX(cl_env_copy),v6;
ecl_frame_ptr next_fr;
ecl_frs_push(cl_env_copy,ECL_PROTECT_TAG);
if (__ecl_frs_push_result) {
unwinding = TRUE; next_fr=cl_env_copy->nlj_fr;
} else {
{
struct ecl_stack_frame _ecl_inner_frame_aux;
volatile cl_object _ecl_inner_frame = ecl_stack_frame_open(cl_env_copy,(cl_object)&_ecl_inner_frame_aux,0);
{
cl_object v7;
v7 = _ecl_inner_frame;
T0 = CONS(v4stream,v3fricas_lisp__args);
cl_env_copy->values[0] = cl_apply(2, v2fricas_lisp__fun, T0);
ecl_stack_frame_push_values(v7);
value0 = ECL_NIL;
cl_env_copy->nvalues = 0;
if (Null(v4stream)) { goto L7; }
cl_close(1, v4stream);
L7:;cl_env_copy->values[0]=ecl_stack_frame_pop_values(v7);
}
ecl_stack_frame_close(_ecl_inner_frame);
}
}
ecl_frs_pop(cl_env_copy);
v6=ecl_stack_push_values(cl_env_copy);
if (Null(v4stream)) { goto L9; }
cl_close(3, v4stream, ECL_SYM("ABORT",1217), ECL_T);
L9:;
ecl_stack_pop_values(cl_env_copy,v6);
if (unwinding) ecl_unwind(cl_env_copy,next_fr);
ECL_STACK_SET_INDEX(cl_env_copy,v5);
return cl_env_copy->values[0];
}
}
}
/* function definition for handle_output_file */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L57_handle_output_file_(cl_object volatile v1fricas_lisp__fn, cl_object volatile v2fricas_lisp__fun, cl_object volatile v3fricas_lisp__args)
{
cl_object T0;
cl_object volatile env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object volatile value0;
TTL:
{
volatile cl_object v4stream;
v4stream = cl_open(5, v1fricas_lisp__fn, ECL_SYM("DIRECTION",1240), ECL_SYM("OUTPUT",1309), ECL_SYM("IF-EXISTS",1270), ECL_SYM("SUPERSEDE",1341));
{
volatile bool unwinding = FALSE;
cl_index v5=ECL_STACK_INDEX(cl_env_copy),v6;
ecl_frame_ptr next_fr;
ecl_frs_push(cl_env_copy,ECL_PROTECT_TAG);
if (__ecl_frs_push_result) {
unwinding = TRUE; next_fr=cl_env_copy->nlj_fr;
} else {
{
struct ecl_stack_frame _ecl_inner_frame_aux;
volatile cl_object _ecl_inner_frame = ecl_stack_frame_open(cl_env_copy,(cl_object)&_ecl_inner_frame_aux,0);
{
cl_object v7;
v7 = _ecl_inner_frame;
T0 = CONS(v4stream,v3fricas_lisp__args);
cl_env_copy->values[0] = cl_apply(2, v2fricas_lisp__fun, T0);
ecl_stack_frame_push_values(v7);
value0 = ECL_NIL;
cl_env_copy->nvalues = 0;
if (Null(v4stream)) { goto L7; }
cl_close(1, v4stream);
L7:;cl_env_copy->values[0]=ecl_stack_frame_pop_values(v7);
}
ecl_stack_frame_close(_ecl_inner_frame);
}
}
ecl_frs_pop(cl_env_copy);
v6=ecl_stack_push_values(cl_env_copy);
if (Null(v4stream)) { goto L9; }
cl_close(3, v4stream, ECL_SYM("ABORT",1217), ECL_T);
L9:;
ecl_stack_pop_values(cl_env_copy,v6);
if (unwinding) ecl_unwind(cl_env_copy,next_fr);
ECL_STACK_SET_INDEX(cl_env_copy,v5);
return cl_env_copy->values[0];
}
}
}
/* local function IFCAR */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC58ifcar(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
if (!(ECL_ATOM(v4x))) { goto L10; }
T0 = cl_list(2, ECL_SYM("CONSP",254), v4x);
T1 = cl_list(2, VV[76], v4x);
value0 = cl_list(3, ECL_SYM("AND",89), T0, T1);
return value0;
L10:;
{
cl_object v5boot__xx;
v5boot__xx = cl_gensym(0);
T0 = cl_list(2, v5boot__xx, v4x);
T1 = ecl_list1(T0);
T2 = cl_list(2, ECL_SYM("CONSP",254), v5boot__xx);
T3 = cl_list(2, VV[76], v5boot__xx);
T4 = cl_list(3, ECL_SYM("AND",89), T2, T3);
value0 = cl_list(3, ECL_SYM("LET",479), T1, T4);
return value0;
}
}
}
/* local function IFCDR */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC59ifcdr(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
if (!(ECL_ATOM(v4x))) { goto L10; }
T0 = cl_list(2, ECL_SYM("CONSP",254), v4x);
T1 = cl_list(2, VV[78], v4x);
value0 = cl_list(3, ECL_SYM("AND",89), T0, T1);
return value0;
L10:;
{
cl_object v5boot__xx;
v5boot__xx = cl_gensym(0);
T0 = cl_list(2, v5boot__xx, v4x);
T1 = ecl_list1(T0);
T2 = cl_list(2, ECL_SYM("CONSP",254), v5boot__xx);
T3 = cl_list(2, VV[78], v5boot__xx);
T4 = cl_list(3, ECL_SYM("AND",89), T2, T3);
value0 = cl_list(3, ECL_SYM("LET",479), T1, T4);
return value0;
}
}
}
/* local function function */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC60_function_(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__name;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__name = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("FUNCTION",398), v4boot__name);
return value0;
}
}
/* local function replaceString */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC61_replacestring_(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__result;
cl_object v5boot__part;
cl_object v6boot__start;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__result = v7;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5boot__part = v7;
}
if (!(v3==ECL_NIL)) { goto L15; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L15:;
{
cl_object v7;
v7 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v6boot__start = v7;
}
if (Null(v3)) { goto L20; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L20:;
value0 = cl_list(5, ECL_SYM("REPLACE",719), v4boot__result, v5boot__part, ECL_SYM("START1",1338), v6boot__start);
return value0;
}
}
/* local function elapsedUserTime */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC62_elapsedusertime_(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
v3 = ECL_CONS_CDR(v1);
if (Null(v3)) { goto L2; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L2:;
value0 = VV[82];
cl_env_copy->nvalues = 1;
return value0;
}
}
/* local function elapsedGcTime */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC63_elapsedgctime_(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
v3 = ECL_CONS_CDR(v1);
if (Null(v3)) { goto L2; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L2:;
value0 = ecl_make_fixnum(0);
cl_env_copy->nvalues = 1;
return value0;
}
}
/* local function char */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC64_char_(cl_object v1, cl_object v2)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__arg;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__arg = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
if (!(ECL_STRINGP(v4boot__arg))) { goto L10; }
value0 = cl_character(v4boot__arg);
return value0;
L10:;
if (!(ECL_FIXNUMP(v4boot__arg)||ECL_BIGNUMP(v4boot__arg))) { goto L12; }
value0 = CODE_CHAR(ecl_fixnum(v4boot__arg));
cl_env_copy->nvalues = 1;
return value0;
L12:;
if (!(ECL_CONSP(v4boot__arg))) { goto L14; }
T0 = _ecl_car(v4boot__arg);
if (!((T0)==(ECL_SYM("QUOTE",681)))) { goto L14; }
T0 = _ecl_cadr(v4boot__arg);
value0 = cl_character(T0);
return value0;
L14:;
value0 = cl_list(2, ECL_SYM("CHARACTER",224), v4boot__arg);
return value0;
}
}
/* local function ADD1 */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC65add1(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("1+",72), v4x);
return value0;
}
}
/* local function ASSQ */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC66assq(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__a;
cl_object v5boot__b;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__a = v6;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5boot__b = v6;
}
if (Null(v3)) { goto L14; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L14:;
value0 = cl_listX(4, ECL_SYM("ASSOC",116), v4boot__a, v5boot__b, VV[72]);
return value0;
}
}
/* local function FETCHCHAR */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC67fetchchar(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
cl_object v5boot__i;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v6;
}
if (!(v3==ECL_NIL)) { goto L9; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L9:;
{
cl_object v6;
v6 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v5boot__i = v6;
}
if (Null(v3)) { goto L14; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L14:;
value0 = cl_list(3, ECL_SYM("CHAR",205), v4x, v5boot__i);
return value0;
}
}
/* local function FIXP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC68fixp(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("INTEGERP",442), v4x);
return value0;
}
}
/* local function IDENTP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC69identp(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
if (!(ECL_ATOM(v4x))) { goto L10; }
T0 = cl_list(2, ECL_SYM("SYMBOLP",849), v4x);
value0 = cl_list(3, ECL_SYM("AND",89), v4x, T0);
return value0;
L10:;
{
cl_object v5boot__xx;
v5boot__xx = cl_gensym(0);
T0 = cl_list(2, v5boot__xx, v4x);
T1 = ecl_list1(T0);
T2 = cl_list(2, ECL_SYM("SYMBOLP",849), v5boot__xx);
T3 = cl_list(3, ECL_SYM("AND",89), v5boot__xx, T2);
value0 = cl_list(3, ECL_SYM("LET",479), T1, T3);
return value0;
}
}
}
/* local function LASTNODE */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC70lastnode(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__l;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__l = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("LAST",457), v4boot__l);
return value0;
}
}
/* local function MAKESTRING */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC71makestring(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__a;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__a = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = v4boot__a;
cl_env_copy->nvalues = 1;
return value0;
}
}
/* local function MAXINDEX */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC72maxindex(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
T0 = cl_list(2, ECL_SYM("LENGTH",478), v4x);
T1 = cl_list(3, ECL_SYM("THE",858), ECL_SYM("FIXNUM",374), T0);
T2 = cl_list(2, ECL_SYM("1-",73), T1);
value0 = cl_list(3, ECL_SYM("THE",858), ECL_SYM("FIXNUM",374), T2);
return value0;
}
}
/* local function REFVECP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC73refvecp(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__v;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__v = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("SIMPLE-VECTOR-P",777), v4boot__v);
return value0;
}
}
/* local function SINTP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC74sintp(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__n;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__n = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(3, ECL_SYM("TYPEP",877), v4boot__n, VV[95]);
return value0;
}
}
/* local function STRINGLENGTH */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC75stringlength(cl_object v1, cl_object v2)
{
cl_object T0;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
T0 = cl_list(3, ECL_SYM("THE",858), ECL_SYM("STRING",807), v4x);
value0 = cl_list(2, ECL_SYM("LENGTH",478), T0);
return value0;
}
}
/* local function SUBRP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC76subrp(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("COMPILED-FUNCTION-P",239), v4x);
return value0;
}
}
/* local function VECP */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC77vecp(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4boot__v;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4boot__v = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(2, ECL_SYM("SIMPLE-VECTOR-P",777), v4boot__v);
return value0;
}
}
/* local function startsId? */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC78_startsid__(cl_object v1, cl_object v2)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
T0 = cl_list(2, ECL_SYM("ALPHA-CHAR-P",87), v4x);
T1 = cl_listX(3, ECL_SYM("MEMBER",554), v4x, VV[100]);
value0 = cl_list(3, ECL_SYM("OR",616), T0, T1);
return value0;
}
}
/* local function idChar? */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC79_idchar__(cl_object v1, cl_object v2)
{
cl_object T0, T1;
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4x;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4x = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
T0 = cl_list(2, ECL_SYM("ALPHANUMERICP",88), v4x);
T1 = cl_listX(3, ECL_SYM("MEMBER",554), v4x, VV[102]);
value0 = cl_list(3, ECL_SYM("OR",616), T0, T1);
return value0;
}
}
/* function definition for write_to_string_radix */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object L80_write_to_string_radix_(cl_object v1boot__int, cl_object v2boot__radix)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
value0 = cl_write_to_string(3, v1boot__int, ECL_SYM("BASE",1223), v2boot__radix);
return value0;
}
/* local function doInBoottranPackage */
/* optimize speed 3, debug 0, space 0, safety 0 */
static cl_object LC81_doinboottranpackage_(cl_object v1, cl_object v2)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
TTL:
{
cl_object v3;
cl_object v4expr;
v3 = ECL_CONS_CDR(v1);
if (!(v3==ECL_NIL)) { goto L3; }
ecl_function_dispatch(cl_env_copy,VV[127])(1, v1) /* DM-TOO-FEW-ARGUMENTS */;
L3:;
{
cl_object v5;
v5 = ECL_CONS_CAR(v3);
v3 = ECL_CONS_CDR(v3);
v4expr = v5;
}
if (Null(v3)) { goto L8; }
ecl_function_dispatch(cl_env_copy,VV[159])(1, v1) /* DM-TOO-MANY-ARGUMENTS */;
L8:;
value0 = cl_list(3, ECL_SYM("LET",479), VV[105], v4expr);
return value0;
}
}
#include "fricas-lisp.data"
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void _eclOfxrNCuYPKDzj_HSz6a561(cl_object flag)
{
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
cl_object *VVtemp;
if (flag != OBJNULL){
Cblock = flag;
#ifndef ECL_DYNAMIC_VV
flag->cblock.data = VV;
#endif
flag->cblock.data_size = VM;
flag->cblock.temp_data_size = VMtemp;
flag->cblock.data_text = compiler_data_text;
flag->cblock.cfuns_size = compiler_cfuns_size;
flag->cblock.cfuns = compiler_cfuns;
flag->cblock.source = ecl_make_constant_base_string("/Users/test/build-ecl/src/lisp/fricas-lisp.lisp",-1);
return;}
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = (const cl_object *)"@EcLtAg:_eclOfxrNCuYPKDzj_HSz6a561@";
VVtemp = Cblock->cblock.temp_data;
ECL_DEFINE_SETF_FUNCTIONS
si_select_package(VVtemp[0]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[0], ECL_SYM("LOCATION",1842), VVtemp[1], VVtemp[2]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[0], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defun(VV[106]); /* SET-INITIAL-PARAMETERS */
L1set_initial_parameters();
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[1], ECL_SYM("LOCATION",1842), VVtemp[3], VVtemp[4]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[1], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[5]) /* ANNOTATE */;
ecl_cmp_defun(VV[107]); /* SAVE-CORE-RESTART */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[2], ECL_SYM("LOCATION",1842), VVtemp[6], VVtemp[7]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[2], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[8]) /* ANNOTATE */;
ecl_cmp_defun(VV[108]); /* SAVE-CORE */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[3], ECL_SYM("LOCATION",1842), VVtemp[9], VVtemp[10]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[3], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[11]) /* ANNOTATE */;
ecl_cmp_defun(VV[109]); /* LOAD-LISP-FILES */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[4], ECL_SYM("LOCATION",1842), VVtemp[12], VVtemp[13]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[4], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[14]) /* ANNOTATE */;
ecl_cmp_defun(VV[110]); /* EXIT-WITH-STATUS */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[5], ECL_SYM("LOCATION",1842), VVtemp[15], VVtemp[16]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[5], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defun(VV[111]); /* QUIT */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[6], ECL_SYM("LOCATION",1842), VVtemp[17], VVtemp[18]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[6], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[19]) /* ANNOTATE */;
ecl_cmp_defun(VV[112]); /* MAKE-PROGRAM */
ECL_SETQ(cl_env_copy,ECL_SYM("*FEATURES*",36),CONS(ECL_SYM("UNIX",1786),ECL_SYM_VAL(cl_env_copy,ECL_SYM("*FEATURES*",36))));
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[13], ECL_SYM("LOCATION",1842), VVtemp[20], VVtemp[21]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[13], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[22]) /* ANNOTATE */;
ecl_cmp_defun(VV[114]); /* maybe_delete_file */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[14], ECL_SYM("LOCATION",1842), VVtemp[23], VVtemp[24]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[14], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[25]) /* ANNOTATE */;
ecl_cmp_defun(VV[115]); /* CHDIR */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[15], ECL_SYM("LOCATION",1842), VVtemp[26], VVtemp[27]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[15], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[28]) /* ANNOTATE */;
ecl_cmp_defun(VV[116]); /* getEnv */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[16], ECL_SYM("LOCATION",1842), VVtemp[29], VVtemp[30]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[16], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defun(VV[117]); /* getCLArgs */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[17], ECL_SYM("LOCATION",1842), VVtemp[31], VVtemp[32]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[17], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[33]) /* ANNOTATE */;
ecl_cmp_defun(VV[118]); /* load_quietly */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[18], ECL_SYM("LOCATION",1842), VVtemp[34], VVtemp[35]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[18], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[14]) /* ANNOTATE */;
ecl_cmp_defun(VV[119]); /* quiet_load_alien */
si_Xmake_special(VV[19]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[19], ECL_SYM("LOCATION",1842), VVtemp[36], VVtemp[37]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[20], ECL_SYM("LOCATION",1842), VVtemp[38], VVtemp[37]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[20], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[39]) /* ANNOTATE */;
ecl_cmp_defun(VV[120]); /* C-TYPE-TO-FFI */
si_Xmake_special(VV[21]);
if (ecl_boundp(cl_env_copy,VV[21])) { goto L96; }
ECL_SETQ(cl_env_copy,VV[21],VVtemp[40]);
L96:;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[21], ECL_SYM("LOCATION",1842), VVtemp[41], VVtemp[42]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[22], ECL_SYM("LOCATION",1842), VVtemp[43], VVtemp[44]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[22], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[45]) /* ANNOTATE */;
ecl_cmp_defun(VV[121]); /* C_TYPE_AS_STRING */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[23], ECL_SYM("LOCATION",1842), VVtemp[46], VVtemp[47]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[23], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[48]) /* ANNOTATE */;
ecl_cmp_defun(VV[122]); /* C_ARGS_AS_STRING */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[26], ECL_SYM("LOCATION",1842), VVtemp[49], VVtemp[50]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[26], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[51]) /* ANNOTATE */;
ecl_cmp_defun(VV[123]); /* MAKE_EXTERN */
ECL_SETQ(cl_env_copy,VV[19],VVtemp[52]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[31], ECL_SYM("LOCATION",1842), VVtemp[53], VVtemp[54]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[31], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[48]) /* ANNOTATE */;
ecl_cmp_defun(VV[124]); /* C-ARGS-TO-ECL */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[33], ECL_SYM("LOCATION",1842), VVtemp[55], VVtemp[54]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[33], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[56]) /* ANNOTATE */;
ecl_cmp_defun(VV[125]); /* ECL-FOREIGN-CALL */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[35], ECL_SYM("LOCATION",1842), VVtemp[57], VVtemp[54]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[35], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[58]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[126]); /* FRICAS-FOREIGN-CALL */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[36], ECL_SYM("LOCATION",1842), VVtemp[59], VVtemp[60]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[36], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[61]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[128]); /* FOREIGN-DEFS */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[37], ECL_SYM("LOCATION",1842), VVtemp[62], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[37], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[64]) /* ANNOTATE */;
ecl_cmp_defun(VV[129]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[38], ECL_SYM("LOCATION",1842), VVtemp[65], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[38], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[66]) /* ANNOTATE */;
ecl_cmp_defun(VV[130]); /* writeablep */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[39], ECL_SYM("LOCATION",1842), VVtemp[67], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[39], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[68]) /* ANNOTATE */;
ecl_cmp_defun(VV[131]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[40], ECL_SYM("LOCATION",1842), VVtemp[69], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[40], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[70]) /* ANNOTATE */;
ecl_cmp_defun(VV[132]); /* remove_directory */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[41], ECL_SYM("LOCATION",1842), VVtemp[71], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[41], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[72]) /* ANNOTATE */;
ecl_cmp_defun(VV[133]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[42], ECL_SYM("LOCATION",1842), VVtemp[73], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[42], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[74]) /* ANNOTATE */;
ecl_cmp_defun(VV[134]); /* openServer */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[43], ECL_SYM("LOCATION",1842), VVtemp[75], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[43], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[76]) /* ANNOTATE */;
ecl_cmp_defun(VV[135]); /* sockGetInt */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[44], ECL_SYM("LOCATION",1842), VVtemp[77], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[44], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[78]) /* ANNOTATE */;
ecl_cmp_defun(VV[136]); /* sockSendInt */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[45], ECL_SYM("LOCATION",1842), VVtemp[79], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[45], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[76]) /* ANNOTATE */;
ecl_cmp_defun(VV[137]); /* sockGetFloat */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[46], ECL_SYM("LOCATION",1842), VVtemp[80], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[46], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[81]) /* ANNOTATE */;
ecl_cmp_defun(VV[138]); /* sockSendFloat */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[47], ECL_SYM("LOCATION",1842), VVtemp[82], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[47], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[83]) /* ANNOTATE */;
ecl_cmp_defun(VV[139]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[48], ECL_SYM("LOCATION",1842), VVtemp[84], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[48], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[85]) /* ANNOTATE */;
ecl_cmp_defun(VV[140]); /* SOCK_SEND_STRING_LEN */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[49], ECL_SYM("LOCATION",1842), VVtemp[86], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[49], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[87]) /* ANNOTATE */;
ecl_cmp_defun(VV[141]); /* sockSendString */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[50], ECL_SYM("LOCATION",1842), VVtemp[88], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[50], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defun(VV[142]); /* serverSwitch */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[51], ECL_SYM("LOCATION",1842), VVtemp[89], VVtemp[63]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[51], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[90]) /* ANNOTATE */;
ecl_cmp_defun(VV[143]); /* sockSendSignal */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[52], ECL_SYM("LOCATION",1842), VVtemp[91], VVtemp[92]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[52], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[93]) /* ANNOTATE */;
ecl_cmp_defun(VV[144]); /* SOCK_GET_STRING_BUF_WRAPPER */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[53], ECL_SYM("LOCATION",1842), VVtemp[94], VVtemp[92]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[53], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[76]) /* ANNOTATE */;
ecl_cmp_defun(VV[145]); /* sockGetStringFrom */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[55], ECL_SYM("LOCATION",1842), VVtemp[95], VVtemp[96]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[55], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[97]) /* ANNOTATE */;
ecl_cmp_defun(VV[146]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[56], ECL_SYM("LOCATION",1842), VVtemp[98], VVtemp[96]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[56], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[99]) /* ANNOTATE */;
ecl_cmp_defun(VV[147]); /* FILE_KIND */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[57], ECL_SYM("LOCATION",1842), VVtemp[100], VVtemp[96]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[57], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[101]) /* ANNOTATE */;
ecl_cmp_defun(VV[148]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[58], ECL_SYM("LOCATION",1842), VVtemp[102], VVtemp[96]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[58], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[99]) /* ANNOTATE */;
ecl_cmp_defun(VV[149]); /* MAKEDIR */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[59], ECL_SYM("LOCATION",1842), VVtemp[103], VVtemp[104]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[59], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[105]) /* ANNOTATE */;
ecl_cmp_defun(VV[150]); /* TRIM-DIRECTORY-NAME */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[60], ECL_SYM("LOCATION",1842), VVtemp[106], VVtemp[107]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[60], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[105]) /* ANNOTATE */;
ecl_cmp_defun(VV[151]); /* PAD-DIRECTORY-NAME */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[62], ECL_SYM("LOCATION",1842), VVtemp[108], VVtemp[109]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[62], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[66]) /* ANNOTATE */;
ecl_cmp_defun(VV[152]); /* FILE-KIND */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[63], ECL_SYM("LOCATION",1842), VVtemp[110], VVtemp[111]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[63], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defun(VV[153]); /* GET-CURRENT-DIRECTORY */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[64], ECL_SYM("LOCATION",1842), VVtemp[112], VVtemp[113]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[64], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[22]) /* ANNOTATE */;
ecl_cmp_defun(VV[154]); /* fricas_probe_file */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[65], ECL_SYM("LOCATION",1842), VVtemp[114], VVtemp[115]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[65], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[105]) /* ANNOTATE */;
ecl_cmp_defun(VV[155]); /* RELATIVE-TO-ABSOLUTE */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[66], ECL_SYM("LOCATION",1842), VVtemp[116], VVtemp[117]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[66], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[118]) /* ANNOTATE */;
ecl_cmp_defun(VV[156]); /* FRICAS_COMPILE_FILE */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[69], ECL_SYM("LOCATION",1842), VVtemp[119], VVtemp[120]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[69], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[118]) /* ANNOTATE */;
ecl_cmp_defun(VV[157]); /* FRICAS_COMPILE_FASL */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[70], ECL_SYM("LOCATION",1842), VVtemp[121], VVtemp[122]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[70], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[123]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[158]); /* DEFCONST */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[71], ECL_SYM("LOCATION",1842), VVtemp[124], VVtemp[125]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[71], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[126]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[160]); /* MEMQ */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[73], ECL_SYM("LOCATION",1842), VVtemp[127], VVtemp[128]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[73], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[129]) /* ANNOTATE */;
ecl_cmp_defun(VV[161]); /* handle_input_file */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[74], ECL_SYM("LOCATION",1842), VVtemp[130], VVtemp[131]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[74], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[129]) /* ANNOTATE */;
ecl_cmp_defun(VV[162]); /* handle_output_file */
si_select_package(VVtemp[132]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[75], ECL_SYM("LOCATION",1842), VVtemp[133], VVtemp[134]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[75], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[163]); /* IFCAR */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[77], ECL_SYM("LOCATION",1842), VVtemp[136], VVtemp[137]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[77], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[164]); /* IFCDR */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[79], ECL_SYM("LOCATION",1842), VVtemp[138], VVtemp[139]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[79], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[140]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[165]); /* function */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[80], ECL_SYM("LOCATION",1842), VVtemp[141], VVtemp[142]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[80], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[143]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[166]); /* replaceString */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[81], ECL_SYM("LOCATION",1842), VVtemp[144], VVtemp[145]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[81], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defmacro(VV[167]); /* elapsedUserTime */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[83], ECL_SYM("LOCATION",1842), VVtemp[146], VVtemp[147]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[83], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, ECL_NIL) /* ANNOTATE */;
ecl_cmp_defmacro(VV[168]); /* elapsedGcTime */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[84], ECL_SYM("LOCATION",1842), VVtemp[148], VVtemp[149]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[84], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[150]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[169]); /* char */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[85], ECL_SYM("LOCATION",1842), VVtemp[151], VVtemp[152]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[85], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[170]); /* ADD1 */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[86], ECL_SYM("LOCATION",1842), VVtemp[153], VVtemp[154]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[86], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[155]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[171]); /* ASSQ */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[87], ECL_SYM("LOCATION",1842), VVtemp[156], VVtemp[157]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[87], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[158]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[172]); /* FETCHCHAR */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[88], ECL_SYM("LOCATION",1842), VVtemp[159], VVtemp[160]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[88], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[173]); /* FIXP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[89], ECL_SYM("LOCATION",1842), VVtemp[161], VVtemp[162]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[89], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[174]); /* IDENTP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[90], ECL_SYM("LOCATION",1842), VVtemp[163], VVtemp[164]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[90], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[165]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[175]); /* LASTNODE */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[91], ECL_SYM("LOCATION",1842), VVtemp[166], VVtemp[167]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[91], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[168]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[176]); /* MAKESTRING */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[92], ECL_SYM("LOCATION",1842), VVtemp[169], VVtemp[170]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[92], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[177]); /* MAXINDEX */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[93], ECL_SYM("LOCATION",1842), VVtemp[171], VVtemp[172]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[93], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[173]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[178]); /* REFVECP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[94], ECL_SYM("LOCATION",1842), VVtemp[174], VVtemp[175]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[94], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[176]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[179]); /* SINTP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[96], ECL_SYM("LOCATION",1842), VVtemp[177], VVtemp[178]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[96], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[180]); /* STRINGLENGTH */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[97], ECL_SYM("LOCATION",1842), VVtemp[179], VVtemp[180]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[97], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[181]); /* SUBRP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[98], ECL_SYM("LOCATION",1842), VVtemp[181], VVtemp[182]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[98], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[173]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[182]); /* VECP */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[99], ECL_SYM("LOCATION",1842), VVtemp[183], VVtemp[184]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[99], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[183]); /* startsId? */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[101], ECL_SYM("LOCATION",1842), VVtemp[185], VVtemp[186]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[101], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[135]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[184]); /* idChar? */
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[103], ECL_SYM("LOCATION",1842), VVtemp[187], VVtemp[188]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[103], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[189]) /* ANNOTATE */;
ecl_cmp_defun(VV[185]); /* write_to_string_radix */
si_select_package(VVtemp[190]);
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[104], ECL_SYM("LOCATION",1842), VVtemp[191], VVtemp[192]) /* ANNOTATE */;
ecl_function_dispatch(cl_env_copy,ECL_SYM("ANNOTATE",1836))(4, VV[104], ECL_SYM("LAMBDA-LIST",1000), ECL_NIL, VVtemp[193]) /* ANNOTATE */;
ecl_cmp_defmacro(VV[186]); /* doInBoottranPackage */
}
