// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: make_permanent_let
static s7_pointer make_permanent_let(s7_scheme *sc, s7_pointer vars)
    {
        s7_pointer frame, var, slot;
        frame = alloc_pointer(sc);

#if S7_DEBUGGING
        permanent_slots++;
#endif
        set_type(frame, T_LET | T_SAFE_PROCEDURE | T_UNHEAP);
        let_id(frame) = ++sc->let_number;
        set_outlet(frame, sc->envir);
        slot = make_permanent_slot(sc, caar(vars), sc->F);
        add_permanent_let_or_slot(sc, slot);
        symbol_set_local(caar(vars), sc->let_number, slot);
        let_set_slots(frame, slot);
        for (var = cdr(vars); is_pair(var); var = cdr(var))
        {
            s7_pointer last_slot;
            last_slot = slot;
            slot = make_permanent_slot(sc, caar(var), sc->F);
            add_permanent_let_or_slot(sc, slot);
            symbol_set_local(caar(var), sc->let_number, slot);
            slot_set_next(last_slot, slot);
        }
        slot_set_next(slot, slot_end(sc));
        add_permanent_let_or_slot(sc, frame); /* need to mark outlet and maybe slot values */
        return(frame);
    }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq %rsi, 0x28(%rsp)
movq 0x30(%rsp), %rdi
callq 0x148a0
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movabsq $0x400000000020001c, %rcx # imm = 0x400000000020001C
movq %rcx, (%rax)
movq 0x30(%rsp), %rax
movq 0x250(%rax), %rcx
addq $0x1, %rcx
movq %rcx, 0x250(%rax)
movq 0x20(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x20(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x30(%rsp), %rax
movq 0x120(%rax), %rdx
callq 0xbb00
movq %rax, 0x10(%rsp)
movq 0x30(%rsp), %rdi
movq 0x10(%rsp), %rsi
callq 0x18ba50
movq 0x10(%rsp), %rcx
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x18(%rax)
movq 0x30(%rsp), %rax
movq 0x250(%rax), %rcx
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x20(%rax)
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movl 0x28(%rax), %ecx
addl $0x1, %ecx
movl %ecx, 0x28(%rax)
movq 0x10(%rsp), %rcx
movq 0x20(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
jne 0x174ca9
movq 0x10(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x30(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x30(%rsp), %rax
movq 0x120(%rax), %rdx
callq 0xbb00
movq %rax, 0x10(%rsp)
movq 0x30(%rsp), %rdi
movq 0x10(%rsp), %rsi
callq 0x18ba50
movq 0x10(%rsp), %rcx
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x18(%rax)
movq 0x30(%rsp), %rax
movq 0x250(%rax), %rcx
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x20(%rax)
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movl 0x28(%rax), %ecx
addl $0x1, %ecx
movl %ecx, 0x28(%rax)
movq 0x10(%rsp), %rcx
movq 0x8(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x18(%rsp)
jmp 0x174bed
movq 0x10(%rsp), %rax
movq $0x0, 0x18(%rax)
movq 0x30(%rsp), %rdi
movq 0x20(%rsp), %rsi
callq 0x18ba50
movq 0x20(%rsp), %rax
addq $0x38, %rsp
retq
nop