// File: /workspace/github_c_makefile_star2_O1/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), %r14
movq 0x110(%rdi), %r15
addq $0x8, %r14
movq (%r14), %r14
movzbl (%r14), %eax
cmpl $0x1, %eax
jne 0xdde6e
movq 0x8(%r14), %rdx
cmpb $0x1, (%rdx)
jne 0xdde01
movq 0x10(%rdx), %rax
movq 0x8(%rax), %rcx
movzbl (%rcx), %eax
cmpl $0x1, %eax
je 0xddd98
cmpl $0xa, %eax
jne 0xdde4a
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 0xdde5a
testb $-0x80, 0x6(%rdx)
jne 0xdde1c
movq 0x8(%rbx), %rsi
movq 0x120(%rbx), %rcx
movq %rbx, %rdi
callq 0xb169
jmp 0xdde65
cmpq 0x1890(%rbx), %rdx
jne 0xdde65
movq 0x10(%r14), %rax
movq 0x8(%rax), %rdx
movq 0x8(%rbx), %rsi
movq 0x110(%rbx), %rcx
movq %rbx, %rdi
callq 0xb169
orb $0x2, 0x6(%rax)
movq 0x10(%r14), %r14
jmp 0xdde65
movq 0x8(%rbx), %rsi
movq 0x8(%rdx), %rdx
movq %rbx, %rdi
callq 0xb169
cmpq 0x110(%rbx), %r15
cmoveq %rax, %r15
addq $0x10, %r14
jmp 0xddd62
cmpl $0xa, %eax
jne 0xdde8d
movq 0x8(%rbx), %rsi
movq 0x110(%rbx), %rcx
movq %rbx, %rdi
movq %r14, %rdx
callq 0xb169
orb $0x2, 0x6(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rax
testq %rax, %rax
je 0xddeb1
xorl %edx, %edx
movq %rax, %rcx
movq 0x18(%rax), %rax
movq %rdx, 0x18(%rcx)
movq %rcx, %rdx
testq %rax, %rax
jne 0xdde9c
jmp 0xddeb3
xorl %ecx, %ecx
movq 0x8(%rbx), %rax
movq %rcx, 0x8(%rax)
movq %rbx, %rdi
callq 0xdd389
movq %r15, 0x10(%rbx)
cmpb $0x20, (%r15)
jne 0xddf2c
movq (%rbx), %rax
movq 0x50(%rbx), %rcx
movq %rax, (%rcx)
movq 0x8(%rbx), %rax
movq 0x50(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%rbx), %rax
movq 0x50(%rbx), %rcx
movq %rax, 0x10(%rcx)
movq 0x50(%rbx), %rax
movq $0x1, 0x18(%rax)
addq $0x20, 0x50(%rbx)
movq %rbx, %rdi
callq 0xddab1
movl %eax, %ecx
movb $0x1, %al
cmpl $0x5, %ecx
je 0xddf38
movq 0x50(%rbx), %rax
leaq -0x20(%rax), %rcx
movq %rcx, 0x50(%rbx)
movups -0x20(%rax), %xmm0
movups %xmm0, (%rbx)
movq -0x10(%rax), %rax
movq %rax, 0x10(%rbx)
movq (%rbx), %rax
movq 0x10(%rax), %rax
movq %rax, (%rbx)
xorl %eax, %eax
popq %rbx
popq %r14
popq %r15
retq