Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so dont bother with any of their useless mail servers here and just use oauth login instead. Thank the nice Russians for causing that. :)
Paste
Pasted as C by pscat ( 15 years ago )
#ifdef ECL_DYNAMIC_VV
static cl_object *VV;
#else
static cl_object VV[VM];
#endif
#ifdef __cplusplus
extern "C" {
#endif
static cl_object L2in_koi_7(cl_object );
#define VT2 cl_object T0;
#define VLEX2 volatile cl_object lex0[4];
#define CLSR2
#define STCK2
static cl_object LC1leter_iter(volatile cl_object *, cl_object , cl_object );
#define VT3 cl_object T0,T1;
#define VLEX3
#define CLSR3
#define STCK3
static cl_object L3in_bin_koi_7(cl_object );
#define VT4 cl_object T0,T1;
#define VLEX4
#define CLSR4
#define STCK4
static cl_object L4hex_str__bin(cl_object );
#define VT5
#define VLEX5
#define CLSR5
#define STCK5
static cl_object L5list_of_pairs__list_of_string(cl_object );
#define VT6 cl_object T0,T1,T2,T3;
#define VLEX6
#define CLSR6
#define STCK6
static cl_object L6in_string(cl_object );
#define VT7
#define VLEX7
#define CLSR7
#define STCK7
static cl_object L7xor_lists_of_bin_str(cl_object , cl_object );
#define VT8 cl_object T0,T1;
#define VLEX8
#define CLSR8
#define STCK8
static cl_object L8xor_bit_str(cl_narg, cl_object , cl_object , ...);
#define VT9 cl_object T0,T1,T2;
#define VLEX9
#define CLSR9
#define STCK9
static cl_object L9xor(cl_object , cl_object );
#define VT10
#define VLEX10
#define CLSR10
#define STCK10
static cl_object L14start_gui();
#define VT11 cl_object T0;
#define VLEX11
#define CLSR11
#define STCK11 cl_object env0; cl_object CLV0,CLV1,CLV2,CLV3,CLV4,CLV5,CLV6,CLV7,CLV8;
static cl_object LC10__g20(cl_narg, ...);
#define VT12
#define VLEX12
#define CLSR12
#define STCK12 cl_object CLV0,CLV1,CLV2,CLV3,CLV4,CLV5,CLV6,CLV7,CLV8;
static cl_object LC11__g21(cl_narg, ...);
#define VT13
#define VLEX13
#define CLSR13
#define STCK13 cl_object CLV0,CLV1,CLV2,CLV3,CLV4,CLV5,CLV6,CLV7,CLV8;
static cl_object LC12__g22(cl_narg, ...);
#define VT14
#define VLEX14
#define CLSR14
#define STCK14 cl_object CLV0,CLV1,CLV2,CLV3,CLV4,CLV5,CLV6,CLV7,CLV8;
static cl_object LC13__g23(cl_narg, ...);
#define VT15
#define VLEX15
#define CLSR15
#define STCK15 cl_object CLV0,CLV1,CLV2,CLV3,CLV4,CLV5,CLV6,CLV7,CLV8;
static cl_object L15set_lisp_logo(cl_object );
#define VT16 cl_object T0,T1,T2;
#define VLEX16
#define CLSR16
#define STCK16
static cl_object L16update_symbols_and_bit_counts(cl_object , cl_object , cl_object );
#define VT17 cl_object T0;
#define VLEX17
#define CLSR17
#define STCK17
static cl_object L17update_lcd(cl_object , cl_object );
#define VT18
#define VLEX18
#define CLSR18
#define STCK18
static cl_object L18update_text_edit_from_in_koi_7(cl_object , cl_object );
#define VT19 cl_object T0,T1,T2;
#define VLEX19
#define CLSR19
#define STCK19
static cl_object L19update_xor(cl_object , cl_object , cl_object );
#define VT20 cl_object T0,T1,T2;
#define VLEX20
#define CLSR20
#define STCK20
#define VT1
#define VLEX1
#define CLSR1
#define STCK1
static cl_object Cblock;
#define VM1 0
#define VM20 3
#define VM19 3
#define VM18 0
#define VM17 1
#define VM16 3
#define VM15 0
#define VM14 0
#define VM13 0
#define VM12 0
#define VM11 1
#define VM10 0
#define VM9 3
#define VM8 2
#define VM7 0
#define VM6 4
#define VM5 0
#define VM4 2
#define VM3 2
#define VM2 1
#define VM 78
#define VMtemp 5
#ifdef __cplusplus
}
#endif
/*
* Exported Lisp functions
*/
#define compiler_cfuns_size 14
static const struct ecl_cfun compiler_cfuns[] = {
/*t,m,narg,padding,name,block,entry*/
{0,0,1,0,MAKE_FIXNUM(52),MAKE_FIXNUM(5),(cl_objectfn)L2in_koi_7,Cnil,MAKE_FIXNUM(468)},
{0,0,1,0,MAKE_FIXNUM(54),MAKE_FIXNUM(6),(cl_objectfn)L3in_bin_koi_7,Cnil,MAKE_FIXNUM(1566)},
{0,0,1,0,MAKE_FIXNUM(55),MAKE_FIXNUM(7),(cl_objectfn)L4hex_str__bin,Cnil,MAKE_FIXNUM(1686)},
{0,0,1,0,MAKE_FIXNUM(56),MAKE_FIXNUM(9),(cl_objectfn)L5list_of_pairs__list_of_string,Cnil,MAKE_FIXNUM(1844)},
{0,0,1,0,MAKE_FIXNUM(57),MAKE_FIXNUM(11),(cl_objectfn)L6in_string,Cnil,MAKE_FIXNUM(1981)},
{0,0,2,0,MAKE_FIXNUM(58),MAKE_FIXNUM(12),(cl_objectfn)L7xor_lists_of_bin_str,Cnil,MAKE_FIXNUM(2118)},
{0,0,-1,0,MAKE_FIXNUM(59),MAKE_FIXNUM(14),(cl_objectfn)L8xor_bit_str,Cnil,MAKE_FIXNUM(2186)},
{0,0,2,0,MAKE_FIXNUM(60),MAKE_FIXNUM(15),(cl_objectfn)L9xor,Cnil,MAKE_FIXNUM(2655)},
{0,0,0,0,MAKE_FIXNUM(62),MAKE_FIXNUM(32),(cl_objectfn)L14start_gui,Cnil,MAKE_FIXNUM(2864)},
{0,0,1,0,MAKE_FIXNUM(71),MAKE_FIXNUM(39),(cl_objectfn)L15set_lisp_logo,Cnil,MAKE_FIXNUM(4554)},
{0,0,3,0,MAKE_FIXNUM(74),MAKE_FIXNUM(41),(cl_objectfn)L16update_symbols_and_bit_counts,Cnil,MAKE_FIXNUM(4772)},
{0,0,2,0,MAKE_FIXNUM(75),MAKE_FIXNUM(43),(cl_objectfn)L17update_lcd,Cnil,MAKE_FIXNUM(5008)},
{0,0,2,0,MAKE_FIXNUM(76),MAKE_FIXNUM(44),(cl_objectfn)L18update_text_edit_from_in_koi_7,Cnil,MAKE_FIXNUM(5070)},
{0,0,3,0,MAKE_FIXNUM(77),MAKE_FIXNUM(50),(cl_objectfn)L19update_xor,Cnil,MAKE_FIXNUM(5221)},
};
Revise this Paste