/* Compiler: ECL 10.4.1 */
/* Date: 2011/2/1 22:54 (yyyy/mm/dd) */
/* Machine: NT 5.0 x86 */
/* Source: koi7.lisp */
#include <ecl/ecl-cmp.h>
#include "c:/home/sources/study/pdi/koi7.h"
/* function definition for IN-KOI-7 */
static cl_object L2in_koi_7(cl_object V1)
{ VT2 VLEX2 CLSR2 STCK2
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
lex0[0]= V1; /* STR */
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[5],Cnil);
TTL:
{cl_object V2; /* NIL */
cl_object V3; /* NIL */
cl_object V4; /* NIL */
V2= cl_first(ecl_symbol_value(VV[2])) /* FIRST */;
V3= cl_rest(ecl_symbol_value(VV[2])) /* REST */;
T0= MAKE_FIXNUM(ecl_length(lex0[0]));
V4= ecl_one_minus(T0);
lex0[1]= V2; /* SECOND-PART */
lex0[2]= V3; /* INIT-LETER-SET */
lex0[3]= V4; /* STR-LENGTH */
if(!(ecl_number_compare(lex0[3],MAKE_FIXNUM(0))<0)){
goto L5;}
value0=ecl_list1(VV[4]); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L5:;
T0= LC1leter_iter(lex0,lex0[2],MAKE_FIXNUM(0)) /* LETER-ITER */;
value0=ecl_function_dispatch(cl_env_copy,VV[9])(1,T0) /* LIST-OF-PAIRS->LIST-OF-STRING */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* local function LETER-ITER */
static cl_object LC1leter_iter(volatile cl_object *lex0, cl_object V1, cl_object V2)
{ VT3 VLEX3 CLSR3 STCK3
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[53],Cnil);
TTL:
{cl_object V3; /* LETERS */
cl_object V4; /* TRANSLATE-LETER */
cl_object V5; /* MATCH */
V3= cl_first(V1) /* FIRST */;
T0= ecl_elt(lex0[0],fix(V2));
V4= cl_string(T0) /* STRING */;
{cl_object V6; /* LETER */
cl_object V7;
V7= cl_rest(V3) /* REST */;
V6= Cnil;
{cl_object V8; /* I */
V8= MAKE_FIXNUM(0);
if(!(ecl_endp(V7))){
goto L8;}
goto L7;
L8:;
V6= cl_car(V7) /* CAR */;
V7= cl_cdr(V7) /* CDR */;
L6:;
if(!(ecl_equal(V4,V6))){
goto L15;}
T0= cl_first(V3) /* FIRST */;
T1= ecl_nth(fixint(V8),lex0[1]);
V5= CONS(T0,T1);
goto L3;
L15:;
if(!(ecl_endp(V7))){
goto L18;}
goto L7;
L18:;
V6= cl_car(V7) /* CAR */;
V7= cl_cdr(V7) /* CDR */;
V8= ecl_one_plus(V8);
goto L6;
L7:;
V5= Cnil;
goto L3;
}
}
L3:;
if((V5)==Cnil){
goto L30;}
if(!(ecl_number_compare(V2,lex0[3])<0)){
goto L30;}
T1= ecl_one_plus(V2);
T0= LC1leter_iter(lex0,lex0[2],T1) /* LETER-ITER */;
value0=CONS(V5,T0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L30:;
if((V5)==Cnil){
goto L36;}
value0=ecl_list1(V5); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L36:;
if((cl_rest(V1) /* REST */)==Cnil){
goto L39;}
V1= cl_rest(V1) /* REST */;
goto TTL;
L39:;
if(!(ecl_number_compare(V2,lex0[3])<0)){
goto L45;}
T1= ecl_one_plus(V2);
T0= LC1leter_iter(lex0,lex0[2],T1) /* LETER-ITER */;
value0=CONS(Cnil,T0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L45:;
value0=Cnil; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for IN-BIN-KOI-7 */
static cl_object L3in_bin_koi_7(cl_object V1)
{ VT4 VLEX4 CLSR4 STCK4
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[6],Cnil);
TTL:
{cl_object V2;
cl_object V3;
V3= ecl_function_dispatch(cl_env_copy,VV[5])(1,V1) /* IN-KOI-7 */;
V2= Cnil;
{cl_object V4;
cl_object V5;
V4= ecl_list1(Cnil);
V5= V4;
L5:;
if(!(ecl_endp(V3))){
goto L7;}
goto L6;
L7:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
T0= V5;
T1= ecl_function_dispatch(cl_env_copy,VV[7])(1,V2) /* HEX-STR->BIN */;
V5= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V5;
goto L5;
L6:;
value0=cl_cdr(V4) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for HEX-STR->BIN */
static cl_object L4hex_str__bin(cl_object V1)
{ VT5 VLEX5 CLSR5 STCK5
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[7],Cnil);
TTL:
{cl_object V2; /* HEX */
V2= cl_parse_integer(5,V1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(16),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
if((V2)==Cnil){
goto L3;}
value0=cl_write_to_string(3,V2,ECL_SYM("BASE",1174),MAKE_FIXNUM(2)) /* WRITE-TO-STRING */;
ecl_ihs_pop(cl_env_copy);
return value0;
L3:;
value0=VV[4]; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for LIST-OF-PAIRS->LIST-OF-STRING */
static cl_object L5list_of_pairs__list_of_string(cl_object V1)
{ VT6 VLEX6 CLSR6 STCK6
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[9],Cnil);
TTL:
{cl_object V2;
cl_object V3;
V2= Cnil;
V3= V1;
{cl_object V4;
cl_object V5;
V4= ecl_list1(Cnil);
V5= V4;
L4:;
if(!(ecl_endp(V3))){
goto L6;}
goto L5;
L6:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
T0= V5;
T2= cl_car(V2) /* CAR */;
T3= cl_cdr(V2) /* CDR */;
T1= cl_format(4,Cnil,VV[8],T2,T3) /* FORMAT */;
V5= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V5;
goto L4;
L5:;
value0=cl_cdr(V4) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for IN-STRING */
static cl_object L6in_string(cl_object V1)
{ VT7 VLEX7 CLSR7 STCK7
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[11],Cnil);
TTL:
{cl_object V2; /* EL */
cl_object V3;
V2= Cnil;
V3= V1;
{cl_object V4; /* STR */
V4= Cnil;
if(!(ecl_endp(V3))){
goto L4;}
goto L3;
L4:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
V4= V2;
L2:;
if(!(ecl_endp(V3))){
goto L13;}
goto L3;
L13:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
V4= cl_format(4,Cnil,VV[10],V4,V2) /* FORMAT */;
goto L2;
L3:;
value0=V4; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for XOR-LISTS-OF-BIN-STR */
static cl_object L7xor_lists_of_bin_str(cl_object V1, cl_object V2)
{ VT8 VLEX8 CLSR8 STCK8
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[12],Cnil);
TTL:
{cl_object V3;
cl_object V4;
V3= Cnil;
V4= V1;
{cl_object V5;
cl_object V6;
V5= Cnil;
V6= V2;
{cl_object V7;
cl_object V8;
V7= ecl_list1(Cnil);
V8= V7;
L4:;
if(!(ecl_endp(V4))){
goto L6;}
goto L5;
L6:;
V3= cl_car(V4) /* CAR */;
V4= cl_cdr(V4) /* CDR */;
if(!(ecl_endp(V6))){
goto L13;}
goto L5;
L13:;
V5= cl_car(V6) /* CAR */;
V6= cl_cdr(V6) /* CDR */;
T0= V8;
T1= ecl_function_dispatch(cl_env_copy,VV[14])(2,V3,V5) /* XOR-BIT-STR */;
V8= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V8;
goto L4;
L5:;
value0=cl_cdr(V7) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}
}}
/* function definition for XOR-BIT-STR */
static cl_object L8xor_bit_str(cl_narg narg, cl_object V1, cl_object V2, ...)
{ VT9 VLEX9 CLSR9 STCK9
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
if (ecl_unlikely(narg<2)) FEwrong_num_arguments_anonym();
if (ecl_unlikely(narg>4)) FEwrong_num_arguments_anonym();
{
cl_object V3;
cl_object V4;
va_list args; va_start(args,V2);
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[14],Cnil);{int i=2;
if (i >= narg) {
V3= MAKE_FIXNUM(0);
} else {
i++;
V3= va_arg(args,cl_object);
}
if (i >= narg) {
{cl_fixnum V5;
V5= ecl_length(V1);
{cl_fixnum V6;
V6= ecl_length(V2);
V4= MAKE_FIXNUM((V5)<=(V6)?V5:V6);}}
} else {
i++;
V4= va_arg(args,cl_object);
}}
va_end(args);
if(!(ecl_number_equalp(V3,V4))){
goto L4;}
value0=VV[4]; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L4:;
{cl_object V5; /* B1 */
cl_object V6; /* NIL */
cl_object V7; /* B2 */
T0= ecl_elt(V1,fix(V3));
T1= cl_string(T0) /* STRING */;
V6= cl_parse_integer(5,T1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(2),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
T0= ecl_elt(V2,fix(V3));
T1= cl_string(T0) /* STRING */;
V7= cl_parse_integer(5,T1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(2),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
V5= V6;
if((V5)==Cnil){
goto L9;}
if((V7)==Cnil){
goto L9;}
T0= ecl_function_dispatch(cl_env_copy,VV[15])(2,V5,V7) /* XOR */;
T1= ecl_one_plus(V3);
T2= ecl_function_dispatch(cl_env_copy,VV[14])(3,V1,V2,T1) /* XOR-BIT-STR */;
value0=cl_format(4,Cnil,VV[8],T0,T2) /* FORMAT */;
ecl_ihs_pop(cl_env_copy);
return value0;
L9:;
T0= ecl_one_plus(V3);
T1= ecl_function_dispatch(cl_env_copy,VV[14])(3,V1,V2,T0) /* XOR-BIT-STR */;
value0=cl_format(3,Cnil,VV[13],T1) /* FORMAT */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for XOR */
static cl_object L9xor(cl_object V1, cl_object V2)
{ VT10 VLEX10 CLSR10 STCK10
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[15],Cnil);
TTL:
if(!(ecl_number_equalp(V1,MAKE_FIXNUM(1)))){
goto L3;}
if(ecl_number_equalp(V2,MAKE_FIXNUM(1))){
goto L1;}
L3:;
if(!(ecl_number_equalp(V1,MAKE_FIXNUM(0)))){
goto L2;}
if(!(ecl_number_equalp(V2,MAKE_FIXNUM(0)))){
goto L2;}
L1:;
value0=MAKE_FIXNUM(0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L2:;
value0=MAKE_FIXNUM(1); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for START-GUI */
static cl_object L14start_gui()
{ VT11 VLEX11 CLSR11 STCK11
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[32],Cnil);
TTL:
if((ecl_symbol_value(VV[0]))==Cnil){
goto L1;}
{cl_object V1;
V1= ecl_function_dispatch(cl_env_copy,VV[61])(1,VV[17]) /* QLOAD-UI */;
cl_set(VV[16],V1);
}
L1:;
T0= cl_list(2,MAKE_FIXNUM(50),MAKE_FIXNUM(50)) /* LIST */;
(void)ecl_function_dispatch(cl_env_copy,VV[63])(3,ecl_symbol_value(VV[16]),VV[18],T0) /* QSET */;
T0= cl_list(2,MAKE_FIXNUM(700),MAKE_FIXNUM(500)) /* LIST */;
(void)ecl_function_dispatch(cl_env_copy,VV[63])(3,ecl_symbol_value(VV[16]),VV[19],T0) /* QSET */;
{cl_object V1; /* LISP-LOGO */
cl_object V2; /* NIL */
cl_object V3; /* NIL */
cl_object V4; /* NIL */
cl_object V5; /* NIL */
cl_object V6; /* NIL */
cl_object V7; /* NIL */
cl_object V8; /* NIL */
cl_object V9; /* NIL */
cl_object V10; /* NIL */
cl_object V11; /* NIL */
V2= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[20]) /* QFIND-CHILD */;
V3= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[21]) /* QFIND-CHILD */;
V4= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[22]) /* QFIND-CHILD */;
V5= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[23]) /* QFIND-CHILD */;
V6= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[24]) /* QFIND-CHILD */;
V7= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[25]) /* QFIND-CHILD */;
V8= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[26]) /* QFIND-CHILD */;
V9= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[27]) /* QFIND-CHILD */;
V10= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[28]) /* QFIND-CHILD */;
V11= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[29]) /* QFIND-CHILD */;
V1= V2;
env0 = Cnil;
CLV0=env0=CONS(V3,env0); /* SET-MSG-EDIT */
CLV1=env0=CONS(V4,env0); /* GET-MSG-EDIT */
CLV2=env0=CONS(V5,env0); /* SET-CODE-OUT */
CLV3=env0=CONS(V6,env0); /* GET-CODE-OUT */
CLV4=env0=CONS(V7,env0); /* XOR-CODES-OUT */
CLV5=env0=CONS(V8,env0); /* SET-SYMBOLS-COUNT */
CLV6=env0=CONS(V9,env0); /* GET-SYMBOLS-COUNT */
CLV7=env0=CONS(V10,env0); /* SET-BITS-COUNT */
CLV8=env0=CONS(V11,env0); /* GET-BITS-COUNT */
T0= ecl_make_cclosure_va((cl_objectfn)LC10__g20,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV0),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC11__g21,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV1),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC12__g22,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV2),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC13__g23,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV3),VV[30],T0) /* QCONNECT */;
(void)ecl_function_dispatch(cl_env_copy,VV[39])(1,V1) /* SET-LISP-LOGO */;
}
value0=ecl_function_dispatch(cl_env_copy,VV[66])(2,ecl_symbol_value(VV[16]),VV[31]) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* closure G20 */
static cl_object LC10__g20(cl_narg narg, ...)
{ VT12 VLEX12 CLSR12 STCK12
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8); /* SET-BITS-COUNT */
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5);
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[67],Cnil);
TTL:
(void)ecl_function_dispatch(cl_env_copy,VV[41])(3,ECL_CONS_CAR(CLV5),ECL_CONS_CAR(CLV7),ECL_CONS_CAR(CLV0)) /* UPDATE-SYMBOLS-AND-BIT-COUNTS */;
value0=ecl_function_dispatch(cl_env_copy,VV[44])(2,ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV0)) /* UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G21 */
static cl_object LC11__g21(cl_narg narg, ...)
{ VT13 VLEX13 CLSR13 STCK13
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0; /* GET-BITS-COUNT */
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5);
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[68],Cnil);
TTL:
(void)ecl_function_dispatch(cl_env_copy,VV[41])(3,ECL_CONS_CAR(CLV6),ECL_CONS_CAR(CLV8),ECL_CONS_CAR(CLV1)) /* UPDATE-SYMBOLS-AND-BIT-COUNTS */;
value0=ecl_function_dispatch(cl_env_copy,VV[44])(2,ECL_CONS_CAR(CLV3),ECL_CONS_CAR(CLV1)) /* UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G22 */
static cl_object LC12__g22(cl_narg narg, ...)
{ VT14 VLEX14 CLSR14 STCK14
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5); /* XOR-CODES-OUT */
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[69],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[50])(3,ECL_CONS_CAR(CLV4),ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV3)) /* UPDATE-XOR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G23 */
static cl_object LC13__g23(cl_narg narg, ...)
{ VT15 VLEX15 CLSR15 STCK15
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5); /* XOR-CODES-OUT */
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[70],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[50])(3,ECL_CONS_CAR(CLV4),ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV3)) /* UPDATE-XOR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* function definition for SET-LISP-LOGO */
static cl_object L15set_lisp_logo(cl_object V1)
{ VT16 VLEX16 CLSR16 STCK16
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[39],Cnil);
TTL:
{cl_object V2; /* LISP-PIX */
V2= ecl_function_dispatch(cl_env_copy,VV[72])(2,VV[33],VV[34]) /* QNEW */;
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V1,VV[37]) /* QGET */;
T1= ecl_function_dispatch(cl_env_copy,VV[73])(2,V1,VV[38]) /* QGET */;
T2= ecl_function_dispatch(cl_env_copy,VV[66])(4,V2,VV[36],T0,T1) /* QFUN */;
value0=ecl_function_dispatch(cl_env_copy,VV[66])(3,V1,VV[35],T2) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for UPDATE-SYMBOLS-AND-BIT-COUNTS */
static cl_object L16update_symbols_and_bit_counts(cl_object V1, cl_object V2, cl_object V3)
{ VT17 VLEX17 CLSR17 STCK17
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[41],Cnil);
TTL:
{cl_fixnum V4; /* SYMBOLS-N */
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V3,VV[40]) /* QGET */;
V4= ecl_length(T0);
(void)ecl_function_dispatch(cl_env_copy,VV[43])(2,V1,MAKE_FIXNUM(V4)) /* UPDATE-LCD */;
T0= ecl_times(MAKE_FIXNUM(V4),ecl_symbol_value(VV[1]));
value0=ecl_function_dispatch(cl_env_copy,VV[43])(2,V2,T0) /* UPDATE-LCD */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for UPDATE-LCD */
static cl_object L17update_lcd(cl_object V1, cl_object V2)
{ VT18 VLEX18 CLSR18 STCK18
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[43],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[63])(3,V1,VV[42],V2) /* QSET */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */
static cl_object L18update_text_edit_from_in_koi_7(cl_object V1, cl_object V2)
{ VT19 VLEX19 CLSR19 STCK19
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[44],Cnil);
TTL:
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V2,VV[40]) /* QGET */;
T1= ecl_function_dispatch(cl_env_copy,VV[6])(1,T0) /* IN-BIN-KOI-7 */;
T2= ecl_function_dispatch(cl_env_copy,VV[11])(1,T1) /* IN-STRING */;
value0=ecl_function_dispatch(cl_env_copy,VV[63])(3,V1,VV[40],T2) /* QSET */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for UPDATE-XOR */
static cl_object L19update_xor(cl_object V1, cl_object V2, cl_object V3)
{ VT20 VLEX20 CLSR20 STCK20
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[50],Cnil);
TTL:
{cl_object V4; /* STR */
V4= cl_make_string_output_stream(0) /* MAKE-STRING-OUTPUT-STREAM */;
{cl_object V5; /* CH */
cl_object V6;
cl_fixnum V7;
cl_fixnum V8;
T1= ecl_function_dispatch(cl_env_copy,VV[73])(2,V2,VV[40]) /* QGET */;
T2= ecl_function_dispatch(cl_env_copy,VV[73])(2,V3,VV[40]) /* QGET */;
V6= ecl_function_dispatch(cl_env_copy,VV[14])(2,T1,T2) /* XOR-BIT-STR */;
V7= 0;
V8= 0;
V5= Cnil;
{cl_object V9; /* COLOR */
V9= VV[46];
V8= ecl_length(V6);
L8:;
if(!((V7)>=(V8))){
goto L12;}
goto L9;
L12:;
V5= ecl_aref1(V6,V7);
V7= (V7)+1;
if(!(ecl_char_code(V5)==ecl_char_code(CODE_CHAR('\61')))){
goto L22;}
if(ecl_equal(V9,VV[47])){
goto L22;}
(void)cl_write_string(2,VV[48],V4) /* WRITE-STRING */;
V9= VV[47];
goto L20;
L22:;
if(ecl_equal(V9,VV[46])){
goto L20;}
(void)cl_write_string(2,VV[49],V4) /* WRITE-STRING */;
V9= VV[46];
L20:;
T1= cl_string(V5) /* STRING */;
(void)cl_write_string(2,T1,V4) /* WRITE-STRING */;
goto L8;
L9:;
goto L3;
}
}
L3:;
T0= cl_get_output_stream_string(V4) /* GET-OUTPUT-STREAM-STRING */;
}
value0=ecl_function_dispatch(cl_env_copy,VV[66])(3,V1,VV[45],T0) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
#include "c:/home/sources/study/pdi/koi7.data"
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void init_fas_CODE(cl_object flag)
{ VT1 VLEX1 CLSR1 STCK1
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
cl_object *VVtemp;
if (!FIXNUMP(flag)){
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.data_text_size = compiler_data_text_size;
flag->cblock.cfuns_size = compiler_cfuns_size;
flag->cblock.cfuns = compiler_cfuns;
flag->cblock.source = make_constant_base_string("c:/home/sources/study/pdi/koi7.lisp");
return;}
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = "@EcLtAg:init_fas_CODE@";
VVtemp = Cblock->cblock.temp_data;
(void)ecl_function_dispatch(cl_env_copy,VV[51])(10,VVtemp[0],Cnil,Cnil,VVtemp[1],Cnil,Cnil,VVtemp[2],Cnil,Cnil,Cnil) /* DODEFPACKAGE */;
(void)si_select_package(VVtemp[0]) /* SELECT-PACKAGE */;
(void)si_Xmake_special(VV[0]) /* *MAKE-SPECIAL */;
cl_set(VV[0],Ct);
(void)si_Xmake_special(VV[1]) /* *MAKE-SPECIAL */;
cl_set(VV[1],MAKE_FIXNUM(7));
(void)si_Xmake_special(VV[2]) /* *MAKE-SPECIAL */;
cl_set(VV[2],VVtemp[3]);
(void)si_Xmake_special(VV[3]) /* *MAKE-SPECIAL */;
cl_set(VV[3],ecl_symbol_value(ECL_SYM("*STANDARD-OUTPUT*",65)));
ecl_cmp_defun(VV[52]);
ecl_cmp_defun(VV[54]);
ecl_cmp_defun(VV[55]);
ecl_cmp_defun(VV[56]);
ecl_cmp_defun(VV[57]);
ecl_cmp_defun(VV[58]);
ecl_cmp_defun(VV[59]);
ecl_cmp_defun(VV[60]);
(void)si_Xmake_special(VV[16]) /* *MAKE-SPECIAL */;
cl_set(VV[16],ecl_function_dispatch(cl_env_copy,VV[61])(1,VVtemp[4]) /* QLOAD-UI */);
ecl_cmp_defun(VV[62]);
ecl_cmp_defun(VV[71]);
ecl_cmp_defun(VV[74]);
ecl_cmp_defun(VV[75]);
ecl_cmp_defun(VV[76]);
ecl_cmp_defun(VV[77]);
}Add a code snippet to your website: www.paste.org