// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: set_implicit_closure
static goto_t set_implicit_closure(s7_scheme *sc, s7_pointer cx)
                {
                    s7_pointer setter;
                    setter = closure_setter(cx);
                    if ((setter == sc->F) &&
                            (!closure_no_setter(cx)))
                        setter = g_setter(sc, set_plist_1(sc, cx));
                    if (is_t_procedure(setter))          /* appears to be caar_code */
                    {
                        /* (set! (o g) ...), here cx = o, sc->code = ((o g) ...) */
                        push_op_stack(sc, setter);
                        if (is_null(cdar(sc->code)))
                        {
                            push_stack(sc, OP_EVAL_ARGS1, sc->nil, cddr(sc->code));
                            sc->code = cadr(sc->code);
                        }
                        else
                        {
                            if (is_null(cddar(sc->code)))
                                push_stack(sc, OP_EVAL_ARGS1, sc->nil, cdr(sc->code));
                            else push_stack(sc, OP_EVAL_ARGS1, sc->nil, s7_append(sc, cddar(sc->code), cdr(sc->code)));
                            sc->code = cadar(sc->code);
                        }
                    }
                    else
                    {
                        if (is_any_macro(setter))
                        {
                            if (is_null(cdar(sc->code)))
                                sc->args = copy_list(sc, cdr(sc->code));
                            else sc->args = s7_append(sc, cdar(sc->code), copy_list(sc, cdr(sc->code)));
                            sc->code = setter;
                            return(goto_apply);
                        }
                        s7_error(sc, sc->syntax_error_symbol, set_elist_3(sc, no_setter_string, caar(sc->code), prepackaged_type_names[type(cx)]));
                    }
                    sc->cur_op = optimize_op(sc->code);
                    return(goto_top_no_pop);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x38(%rsp)
movq %rsi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x20(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x38(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x19201e
movq 0x30(%rsp), %rax
movq (%rax), %rax
andq $0x40000, %rax          # imm = 0x40000
cmpq $0x0, %rax
jne 0x19201e
movq 0x38(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x38(%rsp), %rdi
movq 0x30(%rsp), %rsi
callq 0x35ea0
movq 0x20(%rsp), %rdi
movq %rax, %rsi
callq 0x3d270
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x89e31(%rip), %rax     # 0x21be60
testb $0x1, (%rax,%rcx)
je 0x192247
movq 0x28(%rsp), %rcx
movq 0x38(%rsp), %rdx
movq 0x68(%rdx), %rax
movq %rax, %rsi
addq $0x8, %rsi
movq %rsi, 0x68(%rdx)
movq %rcx, (%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x38(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x192104
jmp 0x192079
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, (%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x10(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movl $0x193, %ecx            # imm = 0x193
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rcx
addq $0x20, %rcx
movq %rcx, 0x50(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rcx
movq 0x38(%rsp), %rax
movq %rcx, (%rax)
jmp 0x192242
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x38(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x192197
jmp 0x192128
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, (%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x10(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movl $0x193, %ecx            # imm = 0x193
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rcx
addq $0x20, %rcx
movq %rcx, 0x50(%rax)
jmp 0x192226
jmp 0x192199
movq 0x38(%rsp), %rdi
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rsi
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rdx
callq 0x316f0
movq %rax, %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, (%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, 0x10(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rax
movl $0x193, %ecx            # imm = 0x193
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x50(%rax), %rcx
addq $0x20, %rcx
movq %rcx, 0x50(%rax)
jmp 0x192226
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rcx
movq 0x38(%rsp), %rax
movq %rcx, (%rax)
jmp 0x192372
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x89c48(%rip), %rax     # 0x21bea0
testb $0x1, (%rax,%rcx)
je 0x192311
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x38(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x1922a4
movq 0x38(%rsp), %rdi
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rsi
callq 0x44270
movq %rax, %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x10(%rax)
jmp 0x1922f7
movq 0x38(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rdi
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rsi
callq 0x44270
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
movq %rax, %rdx
callq 0x316f0
movq %rax, %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x28(%rsp), %rcx
movq 0x38(%rsp), %rax
movq %rcx, (%rax)
movl $0xa, 0x44(%rsp)
jmp 0x192391
movq 0x38(%rsp), %rax
movq %rax, (%rsp)
movq 0x38(%rsp), %rax
movq 0x1918(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x38(%rsp), %rdi
movq 0x92c29(%rip), %rsi     # 0x224f60
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rdx
movq 0x30(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x88238(%rip), %rax     # 0x21a590
movq (%rax,%rcx,8), %rcx
callq 0xf240
movq (%rsp), %rdi
movq 0x8(%rsp), %rsi
movq %rax, %rdx
callq 0x2f940
movq 0x38(%rsp), %rax
movq (%rax), %rax
movzwl 0x4(%rax), %eax
movl %eax, %ecx
movq 0x38(%rsp), %rax
movq %rcx, 0x18(%rax)
movl $0x9, 0x44(%rsp)
movl 0x44(%rsp), %eax
addq $0x48, %rsp
retq
nopw (%rax,%rax)