// File: /workspace/github_c_makefile_star2_O1/blakemcbride[P]LISP9/ls9.c
// Function: appconv
cell appconv(cell x, cell e, cell a) {
	cell	fn, as, fv, fnargs, m, n, lv, vars, cv;

	fn = car(x);
	as = cdr(x);
	fv = freevars(fn, NIL);
	protect(fv);
	fnargs = flatargs(cadr(fn));
	protect(fnargs);
	newvars(fv);
	m = initmap(fv, e, a);
	protect(m);
	as = mapconv(as, e, a);
	protect(as);
	n = liftargs(m);
	as = nconc(n, as);
	car(Protected) = as;
	lv = liftnames(m);
	protect(lv);
	vars = conc(lv, cadr(fn));
	protect(vars);
	cv = set_union(lv, fnargs);
	cadr(Protected) = cv;
	fn = mapconv(cddr(fn), e, cv);
	fn = cons(NIL, fn);
	fn = cons(vars, fn);
	fn = cons(I_closure, fn);
	unprot(6);
	return cons(fn, as);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %r14d
movl %esi, %ebx
movq 0x1229e(%rip), %rax     # 0x19340
movslq %edi, %rcx
movl (%rax,%rcx,4), %ebp
movq 0x12299(%rip), %rax     # 0x19348
movl (%rax,%rcx,4), %r15d
movl %ebp, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
callq 0x63fa
movl %eax, %r12d
movl 0x120a8(%rip), %esi     # 0x19170
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x12099(%rip)     # 0x19170
movq 0x12262(%rip), %rax     # 0x19340
movq 0x12263(%rip), %rcx     # 0x19348
movslq %ebp, %r13
movslq (%rcx,%r13,4), %rcx
movl (%rax,%rcx,4), %edi
callq 0x6086
movl 0x12076(%rip), %esi     # 0x19170
movl %eax, 0x4(%rsp)
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x12063(%rip)     # 0x19170
cmpl $-0x1, %r12d
je 0x7137
movl %r12d, %eax
movq 0x12223(%rip), %rcx     # 0x19340
movslq %eax, %rbp
movl (%rcx,%rbp,4), %edi
callq 0x6935
movq 0x12219(%rip), %rax     # 0x19348
movl (%rax,%rbp,4), %eax
cmpl $-0x1, %eax
jne 0x7116
movl %r12d, %edi
movl %ebx, %esi
movl %r14d, %edx
callq 0x672f
movl %eax, %r12d
movl 0x12023(%rip), %esi     # 0x19170
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x12014(%rip)     # 0x19170
movl %r15d, %edi
movl %ebx, %esi
movl %r14d, %edx
callq 0x69e9
movl %eax, %r15d
movl 0x11ffe(%rip), %esi     # 0x19170
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x11fef(%rip)     # 0x19170
movl %r12d, %edi
callq 0x6fa4
cmpl $-0x1, %eax
je 0x71ac
movl %eax, %r14d
movq 0x121b0(%rip), %rax     # 0x19348
movl %r14d, %ecx
movslq %ecx, %rdx
movl (%rax,%rdx,4), %ecx
cmpl $-0x1, %ecx
jne 0x719b
movl %r15d, (%rax,%rdx,4)
jmp 0x71af
movl %r15d, %r14d
movq 0x1218a(%rip), %rax     # 0x19340
movslq 0x11fb3(%rip), %rcx     # 0x19170
movl %r14d, (%rax,%rcx,4)
movl %r12d, %edi
callq 0x6f0a
movl %eax, %r12d
movl 0x11f9e(%rip), %esi     # 0x19170
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x11f8f(%rip)     # 0x19170
movq 0x12158(%rip), %rax     # 0x19340
movq 0x12159(%rip), %rcx     # 0x19348
movslq (%rcx,%r13,4), %rcx
movl (%rax,%rcx,4), %esi
movl %r12d, %edi
callq 0x3eb5
movl %eax, %r15d
movl 0x11f69(%rip), %esi     # 0x19170
movl %eax, %edi
xorl %edx, %edx
callq 0x3162
movl %eax, 0x11f5a(%rip)     # 0x19170
movl %r12d, %edi
movl 0x4(%rsp), %esi
callq 0x62f1
movq 0x12117(%rip), %rcx     # 0x19340
movq 0x12118(%rip), %rdx     # 0x19348
movslq 0x11f39(%rip), %rsi     # 0x19170
movslq (%rdx,%rsi,4), %rsi
movl %eax, (%rcx,%rsi,4)
movslq (%rdx,%r13,4), %rcx
movl (%rdx,%rcx,4), %edi
movl %ebx, %esi
movl %eax, %edx
callq 0x69e9
movl $0xffffffff, %edi       # imm = 0xFFFFFFFF
movl %eax, %esi
xorl %edx, %edx
callq 0x3162
movl %r15d, %edi
movl %eax, %esi
xorl %edx, %edx
callq 0x3162
movl 0x124d2(%rip), %edi     # 0x19740
movl %eax, %esi
xorl %edx, %edx
callq 0x3162
movl %eax, %ebx
movl $0x6, %edi
callq 0x33d7
movl %ebx, %edi
movl %r14d, %esi
xorl %edx, %edx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3162