// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: op_tc_let_when_laa
static void op_tc_let_when_laa(s7_scheme *sc, bool when, s7_pointer code)
                {
                    s7_pointer p, body, if_test, if_true, la, la_slot, let_slot, laa, laa_slot, let_var, outer_env, inner_env;
                    let_var = caadr(code);
                    body = caddr(code);
                    outer_env = sc->envir;
                    new_frame_with_slot(sc, sc->envir, sc->envir, car(let_var), fx_call(sc, cdr(let_var)));
                    inner_env = sc->envir;
                    push_stack_no_let_no_code(sc, OP_GC_PROTECT, inner_env);
                    let_slot = let_slots(sc->envir);
                    let_var = cdr(let_var);

                    if_test = cdr(body);
                    if_true = cddr(body);
                    for (p = if_true; is_pair(cdr(p)); p = cdr(p));
                    la = cdar(p);
                    laa = cddar(p);

                    if ((car(la) == slot_symbol(let_slots(outer_env))) &&
                            (car(laa) == slot_symbol(next_slot(let_slots(outer_env)))))
                    {
                        while (true)
                        {
                            p = fx_call(sc, if_test);
                            if (when) {if (p == sc->F) break;} else {if (p != sc->F) break;}
                            for (p = if_true; is_pair(cdr(p)); p = cdr(p))
                                fx_call(sc, p);
                            sc->envir = outer_env;
                            slot_set_value(let_slot, fx_call(sc, let_var));
                            sc->envir = inner_env;
                        }
                    }
                    else
                    {
                        la_slot = let_slots(outlet(sc->envir));
                        laa_slot = next_slot(la_slot);
                        while (true)
                        {
                            s7_pointer a1;
                            p = fx_call(sc, if_test);
                            if (when) {if (p == sc->F) break;} else {if (p != sc->F) break;}
                            for (p = if_true; is_pair(cdr(p)); p = cdr(p))
                                fx_call(sc, p);
                            a1 = fx_call(sc, la);
                            sc->w = a1;
                            slot_set_value(laa_slot, fx_call(sc, laa));
                            slot_set_value(la_slot, a1);
                            sc->envir = outer_env;
                            slot_set_value(let_slot, fx_call(sc, let_var));
                            sc->envir = inner_env;
                        }
                    }
                    unstack(sc);
                    sc->value = sc->unspecified;
                }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x38, %rsp
movl %esi, 0x4(%rsp)
movq %rdi, %rbx
movq 0x10(%rdx), %rax
movq 0x8(%rax), %rcx
movq 0x10(%rax), %rax
movq 0x8(%rcx), %r15
movq 0x8(%rax), %r12
movq 0x8(%rdi), %rax
movq %rax, 0x10(%rsp)
movq 0x8(%r15), %r13
movq 0x10(%r15), %rax
movq 0x8(%rax), %rsi
callq *0x20(%rax)
movq %rax, %r14
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xcb63d
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
movq 0x8(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq %rax, 0x8(%rbx)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rdx
movq %rdx, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq $0x20, (%rcx)
movq %r13, 0x8(%rcx)
movq %r14, 0x10(%rcx)
movq %rcx, 0x18(%r13)
movq 0x250(%rbx), %rdx
movq %rdx, 0x20(%r13)
incl 0x28(%r13)
movq $0x0, 0x18(%rcx)
movq %rcx, 0x8(%rax)
movq 0x8(%rbx), %rcx
movq 0x50(%rbx), %rax
movq %rcx, 0x20(%rsp)
movq %rcx, 0x10(%rax)
movq 0x50(%rbx), %rax
movq $0x1, 0x18(%rax)
addq $0x20, 0x50(%rbx)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movq 0x10(%r15), %rbp
movq 0x10(%r12), %r15
movq 0x10(%r15), %rdx
movq %rdx, 0x8(%rsp)
movq %rdx, %rcx
movq 0x10(%rdx), %rdx
cmpb $0x1, (%rdx)
je 0xcb700
movq 0x8(%rcx), %rcx
movq 0x10(%rcx), %r13
movq 0x8(%r13), %rdx
movq 0x10(%r13), %r12
movq 0x10(%rsp), %rcx
movq 0x8(%rcx), %rcx
cmpq 0x8(%rcx), %rdx
jne 0xcb73e
movq 0x8(%r12), %rdx
movq 0x18(%rcx), %rcx
cmpq 0x8(%rcx), %rdx
je 0xcb85a
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x18(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
cmpb $0x0, 0x4(%rsp)
je 0xcb774
cmpq 0x120(%rbx), %rax
jne 0xcb781
jmp 0xcb880
cmpq 0x120(%rbx), %rax
jne 0xcb880
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
cmpb $0x1, (%rax)
jne 0xcb7ac
movq 0x8(%rsp), %r14
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq *0x20(%r14)
movq 0x10(%r14), %r14
movq 0x10(%r14), %rax
cmpb $0x1, (%rax)
je 0xcb794
movq 0x8(%r13), %rsi
movq %rbx, %rdi
callq *0x20(%r13)
movq %rax, %r14
movq %rax, 0x4d8(%rbx)
movq 0x8(%r12), %rsi
movq %rbx, %rdi
callq *0x20(%r12)
movq 0x28(%rsp), %rcx
movq %rax, 0x10(%rcx)
movq 0x30(%rsp), %rax
movq %r14, 0x10(%rax)
movq 0x10(%rsp), %rax
movq %rax, 0x8(%rbx)
movq 0x8(%rbp), %rsi
movq %rbx, %rdi
callq *0x20(%rbp)
movq 0x18(%rsp), %rcx
movq %rax, 0x10(%rcx)
movq 0x20(%rsp), %rax
movq %rax, 0x8(%rbx)
jmp 0xcb754
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
cmpb $0x1, (%rax)
jne 0xcb835
movq 0x8(%rsp), %r14
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq *0x20(%r14)
movq 0x10(%r14), %r14
movq 0x10(%r14), %rax
cmpb $0x1, (%rax)
je 0xcb81d
movq 0x10(%rsp), %rax
movq %rax, 0x8(%rbx)
movq 0x8(%rbp), %rsi
movq %rbx, %rdi
callq *0x20(%rbp)
movq 0x18(%rsp), %rcx
movq %rax, 0x10(%rcx)
movq 0x20(%rsp), %rax
movq %rax, 0x8(%rbx)
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
cmpb $0x0, 0x4(%rsp)
je 0xcb877
cmpq 0x120(%rbx), %rax
jne 0xcb80a
jmp 0xcb880
cmpq 0x120(%rbx), %rax
je 0xcb80a
addq $-0x20, 0x50(%rbx)
movq 0x130(%rbx), %rax
movq %rax, 0x20(%rbx)
addq $0x38, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq