// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: apply_unsafe_closure_star_1
static bool apply_unsafe_closure_star_1(s7_scheme *sc)
                {
                    s7_pointer z, car_z, val, top;
                    /* fprintf(stderr, "%s %s\n", __func__, DISPLAY(sc->code)); */
                    top = sc->nil;
                    for (z = closure_args(sc->code); is_pair(z); z = cdr(z))
                    {
                        car_z = car(z);
                        if (is_pair(car_z))           /* arg has a default value */
                        {
                            s7_pointer slot;
                            val = cadr(car_z);
                            if ((!is_pair(val)) &&
                                    (!is_symbol(val)))
                                slot = make_slot_1(sc, sc->envir, car(car_z), val);
                            else
                            {
                                add_slot(sc->envir, car(car_z), sc->undefined);
                                slot = let_slots(sc->envir);
                                slot_set_expression(slot, val);
                            }
                            if (is_null(top))
                                top = slot;
                        }
                        else
                        {
                            if (!is_keyword(car_z))
                                make_slot_1(sc, sc->envir, car_z, sc->F);
                            else
                            {
                                if (car_z == sc->key_rest_symbol) /* else it's :allow-other-keys? */
                                {
                                    set_is_rest_slot(make_slot_1(sc, sc->envir, cadr(z), sc->nil));
                                    z = cdr(z);
                                }
                            }
                        }
                    }
                    if (is_symbol(z))
                        set_is_rest_slot(make_slot_1(sc, sc->envir, z, sc->nil));     /* set up rest arg */
                    let_set_slots(sc->envir, reverse_slots(sc, let_slots(sc->envir)));
                    return(set_star_args(sc, top));
                }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq (%rdi), %r15
movq 0x110(%rdi), %r14
addq $0x8, %r15
movq (%r15), %r15
movzbl (%r15), %eax
cmpl $0x1, %eax
jne 0xa8ccd
movq 0x8(%r15), %rdx
cmpb $0x1, (%rdx)
jne 0xa8c60
movq 0x10(%rdx), %rax
movq 0x8(%rax), %rcx
movzbl (%rcx), %eax
cmpl $0x1, %eax
je 0xa8bf7
cmpl $0xa, %eax
jne 0xa8ca9
movq 0x8(%rdx), %rax
movq 0x90(%rbx), %rdx
movq 0x128(%rbx), %rsi
leaq -0x8(%rdx), %rdi
movq %rdi, 0x90(%rbx)
movq -0x8(%rdx), %rdx
movq $0x20, (%rdx)
movq %rax, 0x8(%rdx)
movq %rsi, 0x10(%rdx)
movq %rdx, 0x18(%rax)
movq 0x8(%rbx), %rsi
movq 0x18(%rsi), %rsi
movq %rsi, 0x20(%rax)
incl 0x28(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rdx)
movq 0x8(%rbx), %rax
movq %rdx, 0x8(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x28(%rax)
orb $0x2, 0x3(%rax)
jmp 0xa8cb9
testb $-0x80, 0x6(%rdx)
jne 0xa8c7b
movq 0x8(%rbx), %rsi
movq 0x120(%rbx), %rcx
movq %rbx, %rdi
callq 0x9a09
jmp 0xa8cc4
cmpq 0x1890(%rbx), %rdx
jne 0xa8cc4
movq 0x10(%r15), %rax
movq 0x8(%rax), %rdx
movq 0x8(%rbx), %rsi
movq 0x110(%rbx), %rcx
movq %rbx, %rdi
callq 0x9a09
orb $0x2, 0x6(%rax)
movq 0x10(%r15), %r15
jmp 0xa8cc4
movq 0x8(%rbx), %rsi
movq 0x8(%rdx), %rdx
movq %rbx, %rdi
callq 0x9a09
cmpq 0x110(%rbx), %r14
cmoveq %rax, %r14
addq $0x10, %r15
jmp 0xa8bc1
cmpl $0xa, %eax
jne 0xa8cec
movq 0x8(%rbx), %rsi
movq 0x110(%rbx), %rcx
movq %rbx, %rdi
movq %r15, %rdx
callq 0x9a09
orb $0x2, 0x6(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
callq 0x89849
movq 0x8(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq %rbx, %rdi
movq %r14, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0xa87dd