// File: /workspace/github_c_makefile_star2_O2/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, %r12d
movl %esi, %ebx
movq 0x11054(%rip), %rax     # 0x17340
movslq %edi, %rcx
movslq (%rax,%rcx,4), %r14
movq 0x1104e(%rip), %rax     # 0x17348
movl (%rax,%rcx,4), %r13d
pushq $-0x1
popq %rsi
movl %r14d, %edi
callq 0x57eb
movl %eax, %ebp
movl 0x10e5f(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10e50(%rip)     # 0x17170
movq 0x11019(%rip), %rax     # 0x17340
movq 0x1101a(%rip), %rcx     # 0x17348
movslq (%rcx,%r14,4), %rcx
movl (%rax,%rcx,4), %edi
callq 0x5503
movl %eax, %r15d
movl 0x10e2d(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10e1e(%rip)     # 0x17170
movl %ebp, %edi
callq 0x5cb1
movl %ebp, %edi
movl %ebx, %esi
movl %r12d, %edx
callq 0x5abc
movl %eax, %ebp
movl 0x10e03(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10df4(%rip)     # 0x17170
movl %r13d, %edi
movl %ebx, %esi
movl %r12d, %edx
callq 0x5cd7
movl %eax, %r12d
movl 0x10dde(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10dcf(%rip)     # 0x17170
movl %ebp, %edi
callq 0x61fa
movl %eax, %edi
movl %r12d, %esi
callq 0x3b10
movl %eax, %r12d
movq 0x10f84(%rip), %rax     # 0x17340
movslq 0x10dad(%rip), %rcx     # 0x17170
movl %r12d, (%rax,%rcx,4)
movl %ebp, %edi
callq 0x6169
movl %eax, %r13d
movl 0x10d99(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10d8a(%rip)     # 0x17170
movq 0x10f53(%rip), %rax     # 0x17340
movq 0x10f54(%rip), %rcx     # 0x17348
movslq (%rcx,%r14,4), %rcx
movl (%rax,%rcx,4), %esi
movl %r13d, %edi
callq 0x3ab1
movl %eax, %ebp
movl 0x10d65(%rip), %esi     # 0x17170
movl %eax, %edi
xorl %edx, %edx
callq 0x2f8c
movl %eax, 0x10d56(%rip)     # 0x17170
movl %r13d, %edi
movl %r15d, %esi
callq 0x571b
movq 0x10f14(%rip), %rcx     # 0x17340
movq 0x10f15(%rip), %rdx     # 0x17348
movslq 0x10d36(%rip), %rsi     # 0x17170
movslq (%rdx,%rsi,4), %rsi
movl %eax, (%rcx,%rsi,4)
movslq (%rdx,%r14,4), %rcx
movl (%rdx,%rcx,4), %edi
movl %ebx, %esi
movl %eax, %edx
callq 0x5cd7
pushq $-0x1
popq %rdi
movl %eax, %esi
xorl %edx, %edx
callq 0x2f8c
movl %ebp, %edi
movl %eax, %esi
xorl %edx, %edx
callq 0x2f8c
movl 0x112d2(%rip), %edi     # 0x17740
movl %eax, %esi
xorl %edx, %edx
callq 0x2f8c
movl %eax, %ebx
pushq $0x6
popq %rdi
callq 0x31a9
movl %ebx, %edi
movl %r12d, %esi
xorl %edx, %edx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x2f8c